diff --git a/doc/reference/dev/bootstrap.md b/doc/reference/dev/bootstrap.md index cc91e34b3..4d1b4352a 100644 --- a/doc/reference/dev/bootstrap.md +++ b/doc/reference/dev/bootstrap.md @@ -194,22 +194,20 @@ 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 -$ cd .. -$ ./build.sh stage0 +$ ../build.sh stage0 ... -$ ./build.sh stage1 +$ ../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. ``` -$ ./build.sh env bash +$ cd src $ rm -rf bootstrap/* -$ mkdir bootstrap/gerbil +$ mkdir -p bootstrap/gerbil $ cp gerbil/prelude/builtin.ssxi.ss bootstrap/gerbil -$ 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 -$ ^D +$ ../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. diff --git a/src/bootstrap/gerbil/builtin.ssxi.ss b/src/bootstrap/gerbil/builtin.ssxi.ss index 34019aaa4..8f7d6479c 100644 --- a/src/bootstrap/gerbil/builtin.ssxi.ss +++ b/src/bootstrap/gerbil/builtin.ssxi.ss @@ -420,7 +420,7 @@ package: gerbil method-ref direct-method-ref bound-method-ref checked-method-ref checked-bound-method-ref find-method - struct-subtype? class-subtype? + substruct? subclass? with-unwind-protect with-catch file-newer?) diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index 81e7a677f..d02d59887 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 1707423041) + (define gerbil/compiler/base::timestamp 1707565661) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) @@ -18,26 +18,26 @@ (define gxc#current-compile-decls (make-parameter '#f)) (define gxc#current-compile-context (make-parameter '#f)) (define gxc#symbol-table::t - (let ((__tmp185795 - (let ((__tmp185796 + (let ((__tmp185725 + (let ((__tmp185726 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp185796 '())))) + (cons __tmp185726 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#symbol-table::t 'symbol-table '#f '(gensyms bindings) - __tmp185795 + __tmp185725 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (make-struct-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _$args181554_ - (apply make-struct-instance gxc#symbol-table::t _$args181554_))) + (lambda _$args181484_ + (apply make-struct-instance gxc#symbol-table::t _$args181484_))) (define gxc#symbol-table-gensyms (let () (declare (not safe)) @@ -71,90 +71,90 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) (define gxc#symbol-table:::init! - (lambda (_self181552_) - (if (let ((__tmp185801 + (lambda (_self181482_) + (if (let ((__tmp185731 (let () (declare (not safe)) - (##structure-length _self181552_)))) + (##structure-length _self181482_)))) (declare (not safe)) - (##fx< '2 __tmp185801)) + (##fx< '2 __tmp185731)) (begin - (let ((__tmp185798 + (let ((__tmp185728 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp185797 + (__tmp185727 (let () (declare (not safe)) - (##structure-type _self181552_)))) + (##structure-type _self181482_)))) (declare (not safe)) (##unchecked-structure-set! - _self181552_ - __tmp185798 + _self181482_ + __tmp185728 '1 - __tmp185797 + __tmp185727 '#f)) - (let ((__tmp185800 + (let ((__tmp185730 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp185799 + (__tmp185729 (let () (declare (not safe)) - (##structure-type _self181552_)))) + (##structure-type _self181482_)))) (declare (not safe)) (##unchecked-structure-set! - _self181552_ - __tmp185800 + _self181482_ + __tmp185730 '2 - __tmp185799 + __tmp185729 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self181552_ + _self181482_ '2 (let () (declare (not safe)) - (##vector-length _self181552_)))))) + (##vector-length _self181482_)))))) (let () (declare (not safe)) (bind-method! gxc#symbol-table::t ':init! gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_message181421_ _stx181422_ . _details181423_) - (let ((_ctx181428_ - (let ((_$e181425_ (gxc#current-compile-context))) - (if _$e181425_ _$e181425_ 'compile)))) + (lambda (_message181351_ _stx181352_ . _details181353_) + (let ((_ctx181358_ + (let ((_$e181355_ (gxc#current-compile-context))) + (if _$e181355_ _$e181355_ 'compile)))) (apply gx#raise-syntax-error - _ctx181428_ - _message181421_ - _stx181422_ - _details181423_)))) + _ctx181358_ + _message181351_ + _stx181352_ + _details181353_)))) (define gxc#verbose - (lambda _args181418_ + (lambda _args181348_ (if (gxc#current-compile-verbose) - (let ((__tmp185802 (lambda () (apply displayln _args181418_)))) + (let ((__tmp185732 (lambda () (apply displayln _args181348_)))) (declare (not safe)) - (with-lock gxc#+verbose-mutex+ __tmp185802)) + (with-lock gxc#+verbose-mutex+ __tmp185732)) '#!void))) (define gxc#+verbose-mutex+ (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_id181400_) - (let* ((_str181402_ - (if (let () (declare (not safe)) (symbol? _id181400_)) - (symbol->string _id181400_) - _id181400_)) - (_len181404_ (string-length _str181402_)) - (_res181406_ (make-string _len181404_))) - (let _lp181409_ ((_i181411_ '0)) - (if (fx< _i181411_ _len181404_) - (let* ((_char181413_ (string-ref _str181402_ _i181411_)) - (_xchar181415_ + (lambda (_id181330_) + (let* ((_str181332_ + (if (let () (declare (not safe)) (symbol? _id181330_)) + (symbol->string _id181330_) + _id181330_)) + (_len181334_ (string-length _str181332_)) + (_res181336_ (make-string _len181334_))) + (let _lp181339_ ((_i181341_ '0)) + (if (fx< _i181341_ _len181334_) + (let* ((_char181343_ (string-ref _str181332_ _i181341_)) + (_xchar181345_ (if (let () (declare (not safe)) (string-index gxc#module-path-reserved-chars - _char181413_)) + _char181343_)) '#\_ - _char181413_))) - (string-set! _res181406_ _i181411_ _xchar181415_) - (let ((__tmp185803 - (let () (declare (not safe)) (fx+ _i181411_ '1)))) + _char181343_))) + (string-set! _res181336_ _i181341_ _xchar181345_) + (let ((__tmp185733 + (let () (declare (not safe)) (fx+ _i181341_ '1)))) (declare (not safe)) - (_lp181409_ __tmp185803))) - _res181406_))))))) + (_lp181339_ __tmp185733))) + _res181336_))))))) diff --git a/src/bootstrap/gerbil/compiler/base__1.scm b/src/bootstrap/gerbil/compiler/base__1.scm index 9288e893f..7093ee92a 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]#_g185833_| + (define |gxc[1]#_g185763_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g185835_| + (define |gxc[1]#_g185765_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g185837_| + (define |gxc[1]#_g185767_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g185842_| + (define |gxc[1]#_g185772_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g185845_| + (define |gxc[1]#_g185775_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g185850_| + (define |gxc[1]#_g185780_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g185853_| + (define |gxc[1]#_g185783_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g185858_| + (define |gxc[1]#_g185788_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g185861_| + (define |gxc[1]#_g185791_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g185866_| + (define |gxc[1]#_g185796_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g185869_| + (define |gxc[1]#_g185799_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! @@ -79,436 +79,436 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_stx180998_) + (lambda (_stx180928_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx180998_ + _stx180928_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_stx181001_) - (let* ((_g181004181028_ - (lambda (_g181005181024_) + (lambda (_stx180931_) + (let* ((_g180934180958_ + (lambda (_g180935180954_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g181005181024_)))) - (_g181003181331_ - (lambda (_g181005181032_) + _g180935180954_)))) + (_g180933181261_ + (lambda (_g180935180962_) (if (let () (declare (not safe)) - (gx#stx-pair? _g181005181032_)) - (let ((_e181010181035_ + (gx#stx-pair? _g180935180962_)) + (let ((_e180940180965_ (let () (declare (not safe)) - (gx#syntax-e _g181005181032_)))) - (let ((_hd181009181039_ + (gx#syntax-e _g180935180962_)))) + (let ((_hd180939180969_ (let () (declare (not safe)) - (##car _e181010181035_))) - (_tl181008181042_ + (##car _e180940180965_))) + (_tl180938180972_ (let () (declare (not safe)) - (##cdr _e181010181035_)))) + (##cdr _e180940180965_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl181008181042_)) - (let ((_e181013181045_ + (gx#stx-pair? _tl180938180972_)) + (let ((_e180943180975_ (let () (declare (not safe)) - (gx#syntax-e _tl181008181042_)))) - (let ((_hd181012181049_ + (gx#syntax-e _tl180938180972_)))) + (let ((_hd180942180979_ (let () (declare (not safe)) - (##car _e181013181045_))) - (_tl181011181052_ + (##car _e180943180975_))) + (_tl180941180982_ (let () (declare (not safe)) - (##cdr _e181013181045_)))) + (##cdr _e180943180975_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl181011181052_)) - (let ((_g185804_ + (gx#stx-pair/null? _tl180941180982_)) + (let ((_g185734_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl181011181052_ + _tl180941180982_ '0)))) (begin - (let ((_g185805_ + (let ((_g185735_ (let () (declare (not safe)) - (if (##values? _g185804_) + (if (##values? _g185734_) (##vector-length - _g185804_) + _g185734_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185805_ 2))) + (##fx= _g185735_ 2))) (error "Context expects 2 values" - _g185805_))) - (let ((_target181014181055_ + _g185735_))) + (let ((_target180944180985_ (let () (declare (not safe)) - (##vector-ref _g185804_ 0))) - (_tl181016181058_ + (##vector-ref _g185734_ 0))) + (_tl180946180988_ (let () (declare (not safe)) (##vector-ref - _g185804_ + _g185734_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl181016181058_)) - (letrec ((_loop181017181061_ - (lambda (_hd181015181065_ + _tl180946180988_)) + (letrec ((_loop180947180991_ + (lambda (_hd180945180995_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause181021181068_) + _clause180951180998_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd181015181065_)) - (let ((_e181018181071_ + (gx#stx-pair? _hd180945180995_)) + (let ((_e180948181001_ (let () (declare (not safe)) - (gx#syntax-e _hd181015181065_)))) - (let ((_lp-hd181019181075_ + (gx#syntax-e _hd180945180995_)))) + (let ((_lp-hd180949181005_ (let () (declare (not safe)) - (##car _e181018181071_))) - (_lp-tl181020181078_ + (##car _e180948181001_))) + (_lp-tl180950181008_ (let () (declare (not safe)) - (##cdr _e181018181071_)))) - (_loop181017181061_ - _lp-tl181020181078_ + (##cdr _e180948181001_)))) + (_loop180947180991_ + _lp-tl180950181008_ (let () (declare (not safe)) - (cons _lp-hd181019181075_ - _clause181021181068_))))) - (let ((_clause181022181081_ - (reverse _clause181021181068_))) - ((lambda (_L181085_ _L181087_) + (cons _lp-hd180949181005_ + _clause180951180998_))))) + (let ((_clause180952181011_ + (reverse _clause180951180998_))) + ((lambda (_L181015_ _L181017_) (if (let () (declare (not safe)) - (gx#identifier-list? _L181087_)) - (let* ((_g181106181123_ - (lambda (_g181107181119_) + (gx#identifier-list? _L181017_)) + (let* ((_g181036181053_ + (lambda (_g181037181049_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g181107181119_)))) - (_g181105181184_ - (lambda (_g181107181127_) + _g181037181049_)))) + (_g181035181114_ + (lambda (_g181037181057_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g181107181127_)) - (let ((_g185806_ + _g181037181057_)) + (let ((_g185736_ (let () (declare (not safe)) (gx#syntax-split-splice - _g181107181127_ + _g181037181057_ '0)))) (begin - (let ((_g185807_ + (let ((_g185737_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g185806_) - (##vector-length _g185806_) + _g185736_) + (##vector-length _g185736_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g185807_ 2))) - (error "Context expects 2 values" _g185807_))) + (##fx= _g185737_ 2))) + (error "Context expects 2 values" _g185737_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target181109181130_ + (let ((_target181039181060_ (let () (declare (not safe)) (##vector-ref - _g185806_ + _g185736_ 0))) - (_tl181111181133_ + (_tl181041181063_ (let () (declare (not safe)) (##vector-ref - _g185806_ + _g185736_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl181111181133_)) - (letrec ((_loop181112181136_ + _tl181041181063_)) + (letrec ((_loop181042181066_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd181110181140_ _clause181116181143_) + (lambda (_hd181040181070_ _clause181046181073_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd181110181140_)) - (let ((_e181113181146_ + (gx#stx-pair? _hd181040181070_)) + (let ((_e181043181076_ (let () (declare (not safe)) - (gx#syntax-e _hd181110181140_)))) - (let ((_lp-hd181114181150_ + (gx#syntax-e _hd181040181070_)))) + (let ((_lp-hd181044181080_ (let () (declare (not safe)) - (##car _e181113181146_))) - (_lp-tl181115181153_ + (##car _e181043181076_))) + (_lp-tl181045181083_ (let () (declare (not safe)) - (##cdr _e181113181146_)))) - (_loop181112181136_ - _lp-tl181115181153_ + (##cdr _e181043181076_)))) + (_loop181042181066_ + _lp-tl181045181083_ (let () (declare (not safe)) - (cons _lp-hd181114181150_ - _clause181116181143_))))) - (let ((_clause181117181156_ - (reverse _clause181116181143_))) - ((lambda (_L181160_) + (cons _lp-hd181044181080_ + _clause181046181073_))))) + (let ((_clause181047181086_ + (reverse _clause181046181073_))) + ((lambda (_L181090_) (let () - (let ((__tmp185819 + (let ((__tmp185749 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp185808 - (let ((__tmp185817 - (let ((__tmp185818 + (__tmp185738 + (let ((__tmp185747 + (let ((__tmp185748 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '$stx)))) (declare (not safe)) - (cons __tmp185818 '()))) + (cons __tmp185748 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp185809 - (let ((__tmp185810 - (let ((__tmp185816 + (__tmp185739 + (let ((__tmp185740 + (let ((__tmp185746 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp185811 - (let ((__tmp185815 + (__tmp185741 + (let ((__tmp185745 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx))) - (__tmp185812 - (let ((__tmp185813 - (let ((__tmp185814 - (lambda (_g181175181178_ - _g181176181181_) + (__tmp185742 + (let ((__tmp185743 + (let ((__tmp185744 + (lambda (_g181105181108_ + _g181106181111_) (let () (declare (not safe)) - (cons _g181175181178_ - _g181176181181_))))) + (cons _g181105181108_ + _g181106181111_))))) (declare (not safe)) - (foldr1 __tmp185814 + (foldr1 __tmp185744 '() - _L181160_)))) + _L181090_)))) (declare (not safe)) - (cons _L181087_ __tmp185813)))) + (cons _L181017_ __tmp185743)))) (declare (not safe)) - (cons __tmp185815 __tmp185812)))) + (cons __tmp185745 __tmp185742)))) (declare (not safe)) - (cons __tmp185816 __tmp185811)))) + (cons __tmp185746 __tmp185741)))) (declare (not safe)) - (cons __tmp185810 '())))) + (cons __tmp185740 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp185817 - __tmp185809)))) + (cons __tmp185747 + __tmp185739)))) (declare (not safe)) - (cons __tmp185819 __tmp185808)))) - _clause181117181156_)))))) - (_loop181112181136_ _target181109181130_ '())) - (_g181106181123_ _g181107181127_))))) + (cons __tmp185749 __tmp185738)))) + _clause181047181086_)))))) + (_loop181042181066_ _target181039181060_ '())) + (_g181036181053_ _g181037181057_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g181106181123_ - _g181107181127_))))) - (_g181105181184_ - (let ((__tmp185822 - (lambda (_clause181188_) - (let* ((___stx185751185752_ - _clause181188_) - (_g181192181219_ + (_g181036181053_ + _g181037181057_))))) + (_g181035181114_ + (let ((__tmp185752 + (lambda (_clause181118_) + (let* ((___stx185681185682_ + _clause181118_) + (_g181122181149_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx185751185752_))))) - (let ((___kont185754185755_ - (lambda (_L181304_ - _L181306_) - (let ((__tmp185823 - (let ((__tmp185824 + ___stx185681185682_))))) + (let ((___kont185684185685_ + (lambda (_L181234_ + _L181236_) + (let ((__tmp185753 + (let ((__tmp185754 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp185826 + (let ((__tmp185756 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp185825 + (__tmp185755 (let () (declare (not safe)) - (cons _L181304_ '())))) + (cons _L181234_ '())))) (declare (not safe)) - (cons __tmp185826 __tmp185825)))) + (cons __tmp185756 __tmp185755)))) (declare (not safe)) - (cons __tmp185824 '())))) + (cons __tmp185754 '())))) (declare (not safe)) - (cons _L181306_ __tmp185823)))) + (cons _L181236_ __tmp185753)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont185756185757_ - (lambda (_L181256_ - _L181258_ - _L181259_) - (let ((__tmp185827 - (let ((__tmp185828 + (___kont185686185687_ + (lambda (_L181186_ + _L181188_ + _L181189_) + (let ((__tmp185757 + (let ((__tmp185758 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp185829 - (let ((__tmp185831 + (let ((__tmp185759 + (let ((__tmp185761 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp185830 + (__tmp185760 (let () (declare (not safe)) - (cons _L181256_ '())))) + (cons _L181186_ '())))) (declare (not safe)) - (cons __tmp185831 __tmp185830)))) + (cons __tmp185761 __tmp185760)))) (declare (not safe)) - (cons __tmp185829 '())))) + (cons __tmp185759 '())))) (declare (not safe)) - (cons _L181258_ __tmp185828)))) + (cons _L181188_ __tmp185758)))) (declare (not safe)) - (cons _L181259_ __tmp185827))))) + (cons _L181189_ __tmp185757))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx185751185752_)) - (let ((_e181198181284_ + ___stx185681185682_)) + (let ((_e181128181214_ (let () (declare (not safe)) (gx#syntax-e - ___stx185751185752_)))) - (let ((_tl181196181291_ + ___stx185681185682_)))) + (let ((_tl181126181221_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e181198181284_))) - (_hd181197181288_ - (let () (declare (not safe)) (##car _e181198181284_)))) + (##cdr _e181128181214_))) + (_hd181127181218_ + (let () (declare (not safe)) (##car _e181128181214_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl181196181291_)) - (let ((_e181201181294_ + (gx#stx-pair? _tl181126181221_)) + (let ((_e181131181224_ (let () (declare (not safe)) - (gx#syntax-e _tl181196181291_)))) - (let ((_tl181199181301_ + (gx#syntax-e _tl181126181221_)))) + (let ((_tl181129181231_ (let () (declare (not safe)) - (##cdr _e181201181294_))) - (_hd181200181298_ + (##cdr _e181131181224_))) + (_hd181130181228_ (let () (declare (not safe)) - (##car _e181201181294_)))) + (##car _e181131181224_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl181199181301_)) - (___kont185754185755_ - _hd181200181298_ - _hd181197181288_) + (gx#stx-null? _tl181129181231_)) + (___kont185684185685_ + _hd181130181228_ + _hd181127181218_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl181199181301_)) - (let ((_e181213181246_ + (gx#stx-pair? _tl181129181231_)) + (let ((_e181143181176_ (let () (declare (not safe)) - (gx#syntax-e _tl181199181301_)))) - (let ((_tl181211181253_ + (gx#syntax-e _tl181129181231_)))) + (let ((_tl181141181183_ (let () (declare (not safe)) - (##cdr _e181213181246_))) - (_hd181212181250_ + (##cdr _e181143181176_))) + (_hd181142181180_ (let () (declare (not safe)) - (##car _e181213181246_)))) + (##car _e181143181176_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl181211181253_)) - (___kont185756185757_ - _hd181212181250_ - _hd181200181298_ - _hd181197181288_) + (gx#stx-null? _tl181141181183_)) + (___kont185686185687_ + _hd181142181180_ + _hd181130181228_ + _hd181127181218_) (let () (declare (not safe)) - (_g181192181219_))))) + (_g181122181149_))))) (let () (declare (not safe)) - (_g181192181219_)))))) - (let () (declare (not safe)) (_g181192181219_))))) + (_g181122181149_)))))) + (let () (declare (not safe)) (_g181122181149_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g181192181219_))))))) - (__tmp185820 - (let ((__tmp185821 - (lambda (_g181322181325_ - _g181323181328_) + (_g181122181149_))))))) + (__tmp185750 + (let ((__tmp185751 + (lambda (_g181252181255_ + _g181253181258_) (let () (declare (not safe)) - (cons _g181322181325_ - _g181323181328_))))) + (cons _g181252181255_ + _g181253181258_))))) (declare (not safe)) - (foldr1 __tmp185821 + (foldr1 __tmp185751 '() - _L181085_)))) + _L181015_)))) (declare (not safe)) - (gx#stx-map1 __tmp185822 __tmp185820)))) - (_g181004181028_ _g181005181032_))) - _clause181022181081_ - _hd181012181049_)))))) + (gx#stx-map1 __tmp185752 __tmp185750)))) + (_g180934180958_ _g180935180962_))) + _clause180952181011_ + _hd180942180979_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop181017181061_ - _target181014181055_ + (_loop180947180991_ + _target180944180985_ '())) - (_g181004181028_ - _g181005181032_))))) - (_g181004181028_ _g181005181032_)))) - (_g181004181028_ _g181005181032_)))) - (_g181004181028_ _g181005181032_))))) - (_g181003181331_ _stx181001_)))) + (_g180934180958_ + _g180935180962_))))) + (_g180934180958_ _g180935180962_)))) + (_g180934180958_ _g180935180962_)))) + (_g180934180958_ _g180935180962_))))) + (_g180933181261_ _stx180931_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj185794 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj185724 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj185794 + __obj185724 'gxc#symbol-table::t '1 gerbil/core$$#class-type-info::t @@ -516,7 +516,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj185794 + __obj185724 'symbol-table '2 gerbil/core$$#class-type-info::t @@ -524,7 +524,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj185794 + __obj185724 '(gensyms bindings) '4 gerbil/core$$#class-type-info::t @@ -532,7 +532,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj185794 + __obj185724 '() '3 gerbil/core$$#class-type-info::t @@ -540,7 +540,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj185794 + __obj185724 '#t '5 gerbil/core$$#class-type-info::t @@ -548,7 +548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj185794 + __obj185724 '#f '6 gerbil/core$$#class-type-info::t @@ -556,205 +556,205 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj185794 + __obj185724 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185832 |gxc[1]#_g185833_|)) + (let ((__tmp185762 |gxc[1]#_g185763_|)) (declare (not safe)) (##unchecked-structure-set! - __obj185794 - __tmp185832 + __obj185724 + __tmp185762 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185834 |gxc[1]#_g185835_|)) + (let ((__tmp185764 |gxc[1]#_g185765_|)) (declare (not safe)) (##unchecked-structure-set! - __obj185794 - __tmp185834 + __obj185724 + __tmp185764 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185836 |gxc[1]#_g185837_|)) + (let ((__tmp185766 |gxc[1]#_g185767_|)) (declare (not safe)) (##unchecked-structure-set! - __obj185794 - __tmp185836 + __obj185724 + __tmp185766 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185838 - (let ((__tmp185843 - (let ((__tmp185844 |gxc[1]#_g185845_|)) + (let ((__tmp185768 + (let ((__tmp185773 + (let ((__tmp185774 |gxc[1]#_g185775_|)) (declare (not safe)) - (cons 'gensyms __tmp185844))) - (__tmp185839 - (let ((__tmp185840 - (let ((__tmp185841 |gxc[1]#_g185842_|)) + (cons 'gensyms __tmp185774))) + (__tmp185769 + (let ((__tmp185770 + (let ((__tmp185771 |gxc[1]#_g185772_|)) (declare (not safe)) - (cons 'bindings __tmp185841)))) + (cons 'bindings __tmp185771)))) (declare (not safe)) - (cons __tmp185840 '())))) + (cons __tmp185770 '())))) (declare (not safe)) - (cons __tmp185843 __tmp185839)))) + (cons __tmp185773 __tmp185769)))) (declare (not safe)) (##unchecked-structure-set! - __obj185794 - __tmp185838 + __obj185724 + __tmp185768 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185846 - (let ((__tmp185851 - (let ((__tmp185852 |gxc[1]#_g185853_|)) + (let ((__tmp185776 + (let ((__tmp185781 + (let ((__tmp185782 |gxc[1]#_g185783_|)) (declare (not safe)) - (cons 'gensyms __tmp185852))) - (__tmp185847 - (let ((__tmp185848 - (let ((__tmp185849 |gxc[1]#_g185850_|)) + (cons 'gensyms __tmp185782))) + (__tmp185777 + (let ((__tmp185778 + (let ((__tmp185779 |gxc[1]#_g185780_|)) (declare (not safe)) - (cons 'bindings __tmp185849)))) + (cons 'bindings __tmp185779)))) (declare (not safe)) - (cons __tmp185848 '())))) + (cons __tmp185778 '())))) (declare (not safe)) - (cons __tmp185851 __tmp185847)))) + (cons __tmp185781 __tmp185777)))) (declare (not safe)) (##unchecked-structure-set! - __obj185794 - __tmp185846 + __obj185724 + __tmp185776 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185854 - (let ((__tmp185859 - (let ((__tmp185860 |gxc[1]#_g185861_|)) + (let ((__tmp185784 + (let ((__tmp185789 + (let ((__tmp185790 |gxc[1]#_g185791_|)) (declare (not safe)) - (cons 'gensyms __tmp185860))) - (__tmp185855 - (let ((__tmp185856 - (let ((__tmp185857 |gxc[1]#_g185858_|)) + (cons 'gensyms __tmp185790))) + (__tmp185785 + (let ((__tmp185786 + (let ((__tmp185787 |gxc[1]#_g185788_|)) (declare (not safe)) - (cons 'bindings __tmp185857)))) + (cons 'bindings __tmp185787)))) (declare (not safe)) - (cons __tmp185856 '())))) + (cons __tmp185786 '())))) (declare (not safe)) - (cons __tmp185859 __tmp185855)))) + (cons __tmp185789 __tmp185785)))) (declare (not safe)) (##unchecked-structure-set! - __obj185794 - __tmp185854 + __obj185724 + __tmp185784 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185862 - (let ((__tmp185867 - (let ((__tmp185868 |gxc[1]#_g185869_|)) + (let ((__tmp185792 + (let ((__tmp185797 + (let ((__tmp185798 |gxc[1]#_g185799_|)) (declare (not safe)) - (cons 'gensyms __tmp185868))) - (__tmp185863 - (let ((__tmp185864 - (let ((__tmp185865 |gxc[1]#_g185866_|)) + (cons 'gensyms __tmp185798))) + (__tmp185793 + (let ((__tmp185794 + (let ((__tmp185795 |gxc[1]#_g185796_|)) (declare (not safe)) - (cons 'bindings __tmp185865)))) + (cons 'bindings __tmp185795)))) (declare (not safe)) - (cons __tmp185864 '())))) + (cons __tmp185794 '())))) (declare (not safe)) - (cons __tmp185867 __tmp185863)))) + (cons __tmp185797 __tmp185793)))) (declare (not safe)) (##unchecked-structure-set! - __obj185794 - __tmp185862 + __obj185724 + __tmp185792 '14 gerbil/core$$#class-type-info::t '#f)) - __obj185794)) + __obj185724)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_$stx181337_) - (let* ((_g181341181355_ - (lambda (_g181342181351_) + (lambda (_$stx181267_) + (let* ((_g181271181285_ + (lambda (_g181272181281_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g181342181351_)))) - (_g181340181396_ - (lambda (_g181342181359_) + _g181272181281_)))) + (_g181270181326_ + (lambda (_g181272181289_) (if (let () (declare (not safe)) - (gx#stx-pair? _g181342181359_)) - (let ((_e181346181362_ + (gx#stx-pair? _g181272181289_)) + (let ((_e181276181292_ (let () (declare (not safe)) - (gx#syntax-e _g181342181359_)))) - (let ((_hd181345181366_ + (gx#syntax-e _g181272181289_)))) + (let ((_hd181275181296_ (let () (declare (not safe)) - (##car _e181346181362_))) - (_tl181344181369_ + (##car _e181276181292_))) + (_tl181274181299_ (let () (declare (not safe)) - (##cdr _e181346181362_)))) + (##cdr _e181276181292_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl181344181369_)) - (let ((_e181349181372_ + (gx#stx-pair? _tl181274181299_)) + (let ((_e181279181302_ (let () (declare (not safe)) - (gx#syntax-e _tl181344181369_)))) - (let ((_hd181348181376_ + (gx#syntax-e _tl181274181299_)))) + (let ((_hd181278181306_ (let () (declare (not safe)) - (##car _e181349181372_))) - (_tl181347181379_ + (##car _e181279181302_))) + (_tl181277181309_ (let () (declare (not safe)) - (##cdr _e181349181372_)))) + (##cdr _e181279181302_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl181347181379_)) - ((lambda (_L181382_) - (let ((__tmp185877 + (gx#stx-null? _tl181277181309_)) + ((lambda (_L181312_) + (let ((__tmp185807 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp185870 - (let ((__tmp185876 + (__tmp185800 + (let ((__tmp185806 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+verbose-mutex+))) - (__tmp185871 - (let ((__tmp185872 - (let ((__tmp185875 + (__tmp185801 + (let ((__tmp185802 + (let ((__tmp185805 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp185873 - (let ((__tmp185874 + (__tmp185803 + (let ((__tmp185804 (let () (declare (not safe)) - (cons _L181382_ '())))) + (cons _L181312_ '())))) (declare (not safe)) - (cons '() __tmp185874)))) + (cons '() __tmp185804)))) (declare (not safe)) - (cons __tmp185875 __tmp185873)))) + (cons __tmp185805 __tmp185803)))) (declare (not safe)) - (cons __tmp185872 '())))) + (cons __tmp185802 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp185876 - __tmp185871)))) + (cons __tmp185806 + __tmp185801)))) (declare (not safe)) - (cons __tmp185877 __tmp185870))) - _hd181348181376_) - (_g181341181355_ _g181342181359_)))) - (_g181341181355_ _g181342181359_)))) - (_g181341181355_ _g181342181359_))))) - (_g181340181396_ _$stx181337_)))))) + (cons __tmp185807 __tmp185800))) + _hd181278181306_) + (_g181271181285_ _g181272181289_)))) + (_g181271181285_ _g181272181289_)))) + (_g181271181285_ _g181272181289_))))) + (_g181270181326_ _$stx181267_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index df4191777..fad879763 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 f64vector? 0 f64vector?) - (0 f32vector? 0 f32vector?) - (0 u8vector? 0 u8vector?) - (0 s64vector? 0 s64vector?) - (0 s32vector? 0 s32vector?) - (0 s16vector? 0 s16vector?) + (0 s8vector? 0 s8vector?) (0 u64vector? 0 u64vector?) (0 u16vector? 0 u16vector?) (0 u32vector? 0 u32vector?) - (0 s8vector? 0 s8vector?))) + (0 f32vector? 0 f32vector?) + (0 f64vector? 0 f64vector?) + (0 s16vector? 0 s16vector?) + (0 u8vector? 0 u8vector?) + (0 s32vector? 0 s32vector?) + (0 s64vector? 0 s64vector?))) (%#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__0.scm b/src/bootstrap/gerbil/compiler/compile__0.scm index 47131273d..38e57d912 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 1707423041) + (define gerbil/compiler/compile::timestamp 1707565661) (begin - (define gxc#_g203059_ + (define gxc#_g202989_ (gx#core-deserialize-mark - '(0 (else . _else197155_) (hd . _hd197178_)) + '(0 (hd . _hd197108_) (else . _else197085_)) (gx#current-expander-context))) - (define gxc#_g203060_ + (define gxc#_g202990_ (##structure gx#syntax-quote::t - '_hd197178_ + '_hd197108_ #f (gx#current-expander-context) - (list gxc#_g203059_))) - (define gxc#_g203065_ + (list gxc#_g202989_))) + (define gxc#_g202995_ (gx#core-deserialize-mark - '(0 (else . _else197216_) (hd . _hd197239_)) + '(0 (hd . _hd197169_) (else . _else197146_)) (gx#current-expander-context))) - (define gxc#_g203066_ + (define gxc#_g202996_ (##structure gx#syntax-quote::t - '_hd197239_ + '_hd197169_ #f (gx#current-expander-context) - (list gxc#_g203065_))) - (define gxc#_g203071_ + (list gxc#_g202995_))) + (define gxc#_g203001_ (gx#core-deserialize-mark - '(0 (else . _else197278_) (hd . _hd197301_)) + '(0 (hd . _hd197231_) (else . _else197208_)) (gx#current-expander-context))) - (define gxc#_g203072_ + (define gxc#_g203002_ (##structure gx#syntax-quote::t - '_hd197301_ + '_hd197231_ #f (gx#current-expander-context) - (list gxc#_g203071_))) - (define gxc#_g203077_ + (list gxc#_g203001_))) + (define gxc#_g203007_ (gx#core-deserialize-mark - '(0 (else . _else197341_) (hd . _hd197364_)) + '(0 (hd . _hd197294_) (else . _else197271_)) (gx#current-expander-context))) - (define gxc#_g203078_ + (define gxc#_g203008_ (##structure gx#syntax-quote::t - '_hd197364_ + '_hd197294_ #f (gx#current-expander-context) - (list gxc#_g203077_))) + (list gxc#_g203007_))) (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-e197376_ - (lambda (_id197378_) + (letrec ((_hash-e197306_ + (lambda (_id197308_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _id197378_)))))) + (let () (declare (not safe)) (gx#stx-e _id197308_)))))) (let () (declare (not safe)) (make-table 'test: gx#bound-identifier=? 'hash: - _hash-e197376_))))) + _hash-e197306_))))) (define gxc#compile-e__0 - (lambda (_stx197129_) - (let* ((___stx201574201575_ _stx197129_) - (_g197132197143_ + (lambda (_stx197059_) + (let* ((___stx201504201505_ _stx197059_) + (_g197062197073_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx201574201575_))))) - (let ((___kont201576201577_ - (lambda (_L197170_) - (let ((_$e197180_ - (let ((__tmp203056 (gxc#current-compile-methods)) - (__tmp203055 + ___stx201504201505_))))) + (let ((___kont201506201507_ + (lambda (_L197100_) + (let ((_$e197110_ + (let ((__tmp202986 (gxc#current-compile-methods)) + (__tmp202985 (let () (declare (not safe)) - (gx#stx-e _L197170_)))) + (gx#stx-e _L197100_)))) (declare (not safe)) - (table-ref __tmp203056 __tmp203055 '#f)))) - (if _$e197180_ - ((lambda (_method197183_) + (table-ref __tmp202986 __tmp202985 '#f)))) + (if _$e197110_ + ((lambda (_method197113_) (declare (not safe)) - (_method197183_ _stx197129_)) - _$e197180_) + (_method197113_ _stx197059_)) + _$e197110_) '#!void)))) - (___kont201578201579_ - (lambda (_L197148_) - (let ((__tmp203057 - (let ((__tmp203058 gxc#_g203060_)) + (___kont201508201509_ + (lambda (_L197078_) + (let ((__tmp202987 + (let ((__tmp202988 gxc#_g202990_)) (declare (not safe)) - (gx#datum->syntax__% __tmp203058 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp202988 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx197129_ - __tmp203057))))) + _stx197059_ + __tmp202987))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx201574201575_)) - (let ((_e197137197162_ + (gx#stx-pair? ___stx201504201505_)) + (let ((_e197067197092_ (let () (declare (not safe)) - (gx#stx-e ___stx201574201575_)))) - (let ((_tl197135197167_ + (gx#stx-e ___stx201504201505_)))) + (let ((_tl197065197097_ (let () (declare (not safe)) - (##cdr _e197137197162_))) - (_hd197136197165_ + (##cdr _e197067197092_))) + (_hd197066197095_ (let () (declare (not safe)) - (##car _e197137197162_)))) - (___kont201576201577_ _hd197136197165_))) - (___kont201578201579_ ___stx201574201575_)))))) + (##car _e197067197092_)))) + (___kont201506201507_ _hd197066197095_))) + (___kont201508201509_ ___stx201504201505_)))))) (define gxc#compile-e__1 - (lambda (_stx197189_ _arg197190_) - (let* ((___stx201588201589_ _stx197189_) - (_g197193197204_ + (lambda (_stx197119_ _arg197120_) + (let* ((___stx201518201519_ _stx197119_) + (_g197123197134_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx201588201589_))))) - (let ((___kont201590201591_ - (lambda (_L197231_) - (let ((_$e197241_ - (let ((__tmp203062 (gxc#current-compile-methods)) - (__tmp203061 + ___stx201518201519_))))) + (let ((___kont201520201521_ + (lambda (_L197161_) + (let ((_$e197171_ + (let ((__tmp202992 (gxc#current-compile-methods)) + (__tmp202991 (let () (declare (not safe)) - (gx#stx-e _L197231_)))) + (gx#stx-e _L197161_)))) (declare (not safe)) - (table-ref __tmp203062 __tmp203061 '#f)))) - (if _$e197241_ - ((lambda (_method197244_) + (table-ref __tmp202992 __tmp202991 '#f)))) + (if _$e197171_ + ((lambda (_method197174_) (declare (not safe)) - (_method197244_ _stx197189_ _arg197190_)) - _$e197241_) + (_method197174_ _stx197119_ _arg197120_)) + _$e197171_) '#!void)))) - (___kont201592201593_ - (lambda (_L197209_) - (let ((__tmp203063 - (let ((__tmp203064 gxc#_g203066_)) + (___kont201522201523_ + (lambda (_L197139_) + (let ((__tmp202993 + (let ((__tmp202994 gxc#_g202996_)) (declare (not safe)) - (gx#datum->syntax__% __tmp203064 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp202994 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx197189_ - __tmp203063))))) + _stx197119_ + __tmp202993))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx201588201589_)) - (let ((_e197198197223_ + (gx#stx-pair? ___stx201518201519_)) + (let ((_e197128197153_ (let () (declare (not safe)) - (gx#stx-e ___stx201588201589_)))) - (let ((_tl197196197228_ + (gx#stx-e ___stx201518201519_)))) + (let ((_tl197126197158_ (let () (declare (not safe)) - (##cdr _e197198197223_))) - (_hd197197197226_ + (##cdr _e197128197153_))) + (_hd197127197156_ (let () (declare (not safe)) - (##car _e197198197223_)))) - (___kont201590201591_ _hd197197197226_))) - (___kont201592201593_ ___stx201588201589_)))))) + (##car _e197128197153_)))) + (___kont201520201521_ _hd197127197156_))) + (___kont201522201523_ ___stx201518201519_)))))) (define gxc#compile-e__2 - (lambda (_stx197250_ _arg1197251_ _arg2197252_) - (let* ((___stx201602201603_ _stx197250_) - (_g197255197266_ + (lambda (_stx197180_ _arg1197181_ _arg2197182_) + (let* ((___stx201532201533_ _stx197180_) + (_g197185197196_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx201602201603_))))) - (let ((___kont201604201605_ - (lambda (_L197293_) - (let ((_$e197303_ - (let ((__tmp203068 (gxc#current-compile-methods)) - (__tmp203067 + ___stx201532201533_))))) + (let ((___kont201534201535_ + (lambda (_L197223_) + (let ((_$e197233_ + (let ((__tmp202998 (gxc#current-compile-methods)) + (__tmp202997 (let () (declare (not safe)) - (gx#stx-e _L197293_)))) + (gx#stx-e _L197223_)))) (declare (not safe)) - (table-ref __tmp203068 __tmp203067 '#f)))) - (if _$e197303_ - ((lambda (_method197306_) + (table-ref __tmp202998 __tmp202997 '#f)))) + (if _$e197233_ + ((lambda (_method197236_) (declare (not safe)) - (_method197306_ - _stx197250_ - _arg1197251_ - _arg2197252_)) - _$e197303_) + (_method197236_ + _stx197180_ + _arg1197181_ + _arg2197182_)) + _$e197233_) '#!void)))) - (___kont201606201607_ - (lambda (_L197271_) - (let ((__tmp203069 - (let ((__tmp203070 gxc#_g203072_)) + (___kont201536201537_ + (lambda (_L197201_) + (let ((__tmp202999 + (let ((__tmp203000 gxc#_g203002_)) (declare (not safe)) - (gx#datum->syntax__% __tmp203070 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp203000 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx197250_ - __tmp203069))))) + _stx197180_ + __tmp202999))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx201602201603_)) - (let ((_e197260197285_ + (gx#stx-pair? ___stx201532201533_)) + (let ((_e197190197215_ (let () (declare (not safe)) - (gx#stx-e ___stx201602201603_)))) - (let ((_tl197258197290_ + (gx#stx-e ___stx201532201533_)))) + (let ((_tl197188197220_ (let () (declare (not safe)) - (##cdr _e197260197285_))) - (_hd197259197288_ + (##cdr _e197190197215_))) + (_hd197189197218_ (let () (declare (not safe)) - (##car _e197260197285_)))) - (___kont201604201605_ _hd197259197288_))) - (___kont201606201607_ ___stx201602201603_)))))) + (##car _e197190197215_)))) + (___kont201534201535_ _hd197189197218_))) + (___kont201536201537_ ___stx201532201533_)))))) (define gxc#compile-e__3 - (lambda (_stx197312_ _arg1197313_ _arg2197314_ . _args197315_) - (let* ((___stx201616201617_ _stx197312_) - (_g197318197329_ + (lambda (_stx197242_ _arg1197243_ _arg2197244_ . _args197245_) + (let* ((___stx201546201547_ _stx197242_) + (_g197248197259_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx201616201617_))))) - (let ((___kont201618201619_ - (lambda (_L197356_) - (let ((_$e197366_ - (let ((__tmp203074 (gxc#current-compile-methods)) - (__tmp203073 + ___stx201546201547_))))) + (let ((___kont201548201549_ + (lambda (_L197286_) + (let ((_$e197296_ + (let ((__tmp203004 (gxc#current-compile-methods)) + (__tmp203003 (let () (declare (not safe)) - (gx#stx-e _L197356_)))) + (gx#stx-e _L197286_)))) (declare (not safe)) - (table-ref __tmp203074 __tmp203073 '#f)))) - (if _$e197366_ - ((lambda (_method197369_) + (table-ref __tmp203004 __tmp203003 '#f)))) + (if _$e197296_ + ((lambda (_method197299_) (declare (not safe)) - (apply _method197369_ - _stx197312_ - _arg1197313_ - _arg2197314_ - _args197315_)) - _$e197366_) + (apply _method197299_ + _stx197242_ + _arg1197243_ + _arg2197244_ + _args197245_)) + _$e197296_) '#!void)))) - (___kont201620201621_ - (lambda (_L197334_) - (let ((__tmp203075 - (let ((__tmp203076 gxc#_g203078_)) + (___kont201550201551_ + (lambda (_L197264_) + (let ((__tmp203005 + (let ((__tmp203006 gxc#_g203008_)) (declare (not safe)) - (gx#datum->syntax__% __tmp203076 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp203006 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx197312_ - __tmp203075))))) + _stx197242_ + __tmp203005))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx201616201617_)) - (let ((_e197323197348_ + (gx#stx-pair? ___stx201546201547_)) + (let ((_e197253197278_ (let () (declare (not safe)) - (gx#stx-e ___stx201616201617_)))) - (let ((_tl197321197353_ + (gx#stx-e ___stx201546201547_)))) + (let ((_tl197251197283_ (let () (declare (not safe)) - (##cdr _e197323197348_))) - (_hd197322197351_ + (##cdr _e197253197278_))) + (_hd197252197281_ (let () (declare (not safe)) - (##car _e197323197348_)))) - (___kont201618201619_ _hd197322197351_))) - (___kont201620201621_ ___stx201616201617_)))))) + (##car _e197253197278_)))) + (___kont201548201549_ _hd197252197281_))) + (___kont201550201551_ ___stx201546201547_)))))) (define gxc#compile-e - (lambda _g203080_ - (let ((_g203079_ (let () (declare (not safe)) (##length _g203080_)))) - (cond ((let () (declare (not safe)) (##fx= _g203079_ 1)) - (apply (lambda (_stx197129_) + (lambda _g203010_ + (let ((_g203009_ (let () (declare (not safe)) (##length _g203010_)))) + (cond ((let () (declare (not safe)) (##fx= _g203009_ 1)) + (apply (lambda (_stx197059_) (let () (declare (not safe)) - (gxc#compile-e__0 _stx197129_))) - _g203080_)) - ((let () (declare (not safe)) (##fx= _g203079_ 2)) - (apply (lambda (_stx197189_ _arg197190_) + (gxc#compile-e__0 _stx197059_))) + _g203010_)) + ((let () (declare (not safe)) (##fx= _g203009_ 2)) + (apply (lambda (_stx197119_ _arg197120_) (let () (declare (not safe)) - (gxc#compile-e__1 _stx197189_ _arg197190_))) - _g203080_)) - ((let () (declare (not safe)) (##fx= _g203079_ 3)) - (apply (lambda (_stx197250_ _arg1197251_ _arg2197252_) + (gxc#compile-e__1 _stx197119_ _arg197120_))) + _g203010_)) + ((let () (declare (not safe)) (##fx= _g203009_ 3)) + (apply (lambda (_stx197180_ _arg1197181_ _arg2197182_) (let () (declare (not safe)) (gxc#compile-e__2 - _stx197250_ - _arg1197251_ - _arg2197252_))) - _g203080_)) - ((let () (declare (not safe)) (##fx>= _g203079_ 3)) - (apply gxc#compile-e__3 _g203080_)) + _stx197180_ + _arg1197181_ + _arg2197182_))) + _g203010_)) + ((let () (declare (not safe)) (##fx>= _g203009_ 3)) + (apply gxc#compile-e__3 _g203010_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g203080_)))))) - (define gxc#void-method (lambda (_stx197126_ . _args197127_) '#!void)) - (define gxc#false-method (lambda (_stx197123_ . _args197124_) '#f)) - (define gxc#true-method (lambda (_stx197120_ . _args197121_) '#t)) + _g203010_)))))) + (define gxc#void-method (lambda (_stx197056_ . _args197057_) '#!void)) + (define gxc#false-method (lambda (_stx197053_ . _args197054_) '#f)) + (define gxc#true-method (lambda (_stx197050_ . _args197051_) '#t)) (define gxc#&void-expression (make-promise (lambda () - (let ((_tbl197117_ + (let ((_tbl197047_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#begin-annotation gxc#void-method)) + (table-set! _tbl197047_ '%#begin-annotation gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#lambda gxc#void-method)) + (table-set! _tbl197047_ '%#lambda gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#case-lambda gxc#void-method)) + (table-set! _tbl197047_ '%#case-lambda gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#let-values gxc#void-method)) + (table-set! _tbl197047_ '%#let-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#letrec-values gxc#void-method)) + (table-set! _tbl197047_ '%#letrec-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#letrec*-values gxc#void-method)) + (table-set! _tbl197047_ '%#letrec*-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#quote gxc#void-method)) + (table-set! _tbl197047_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#quote-syntax gxc#void-method)) + (table-set! _tbl197047_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#call gxc#void-method)) + (table-set! _tbl197047_ '%#call gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#call-unchecked gxc#void-method)) + (table-set! _tbl197047_ '%#call-unchecked gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#if gxc#void-method)) + (table-set! _tbl197047_ '%#if gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#ref gxc#void-method)) + (table-set! _tbl197047_ '%#ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#set! gxc#void-method)) + (table-set! _tbl197047_ '%#set! gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#struct-instance? gxc#void-method)) + (table-set! _tbl197047_ '%#struct-instance? gxc#void-method)) (let () (declare (not safe)) (table-set! - _tbl197117_ + _tbl197047_ '%#struct-direct-instance? gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#struct-ref gxc#void-method)) + (table-set! _tbl197047_ '%#struct-ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#struct-set! gxc#void-method)) + (table-set! _tbl197047_ '%#struct-set! gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#struct-direct-ref gxc#void-method)) + (table-set! _tbl197047_ '%#struct-direct-ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197117_ '%#struct-direct-set! gxc#void-method)) + (table-set! _tbl197047_ '%#struct-direct-set! gxc#void-method)) (let () (declare (not safe)) (table-set! - _tbl197117_ + _tbl197047_ '%#struct-unchecked-ref gxc#void-method)) (let () (declare (not safe)) (table-set! - _tbl197117_ + _tbl197047_ '%#struct-unchecked-set! gxc#void-method)) - _tbl197117_)))) + _tbl197047_)))) (define gxc#&void-special-form (make-promise (lambda () - (let ((_tbl197113_ + (let ((_tbl197043_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#begin gxc#void-method)) + (table-set! _tbl197043_ '%#begin gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#begin-syntax gxc#void-method)) + (table-set! _tbl197043_ '%#begin-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#begin-foreign gxc#void-method)) + (table-set! _tbl197043_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#module gxc#void-method)) + (table-set! _tbl197043_ '%#module gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#import gxc#void-method)) + (table-set! _tbl197043_ '%#import gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#export gxc#void-method)) + (table-set! _tbl197043_ '%#export gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#provide gxc#void-method)) + (table-set! _tbl197043_ '%#provide gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#extern gxc#void-method)) + (table-set! _tbl197043_ '%#extern gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#define-values gxc#void-method)) + (table-set! _tbl197043_ '%#define-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#define-syntax gxc#void-method)) + (table-set! _tbl197043_ '%#define-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#define-alias gxc#void-method)) + (table-set! _tbl197043_ '%#define-alias gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl197113_ '%#declare gxc#void-method)) - _tbl197113_)))) + (table-set! _tbl197043_ '%#declare gxc#void-method)) + _tbl197043_)))) (define gxc#&void (make-promise (lambda () - (let ((_tbl197109_ + (let ((_tbl197039_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp203081 (force gxc#&void-special-form))) + (let ((__tmp203011 (force gxc#&void-special-form))) (declare (not safe)) - (hash-copy! _tbl197109_ __tmp203081)) - (let ((__tmp203082 (force gxc#&void-expression))) + (hash-copy! _tbl197039_ __tmp203011)) + (let ((__tmp203012 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl197109_ __tmp203082)) - _tbl197109_)))) + (hash-copy! _tbl197039_ __tmp203012)) + _tbl197039_)))) (define gxc#&false-expression (make-promise (lambda () - (let ((_tbl197105_ + (let ((_tbl197035_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#begin-annotation gxc#false-method)) + (table-set! _tbl197035_ '%#begin-annotation gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#lambda gxc#false-method)) + (table-set! _tbl197035_ '%#lambda gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#case-lambda gxc#false-method)) + (table-set! _tbl197035_ '%#case-lambda gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#let-values gxc#false-method)) + (table-set! _tbl197035_ '%#let-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#letrec-values gxc#false-method)) + (table-set! _tbl197035_ '%#letrec-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#letrec*-values gxc#false-method)) + (table-set! _tbl197035_ '%#letrec*-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#quote gxc#false-method)) + (table-set! _tbl197035_ '%#quote gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#quote-syntax gxc#false-method)) + (table-set! _tbl197035_ '%#quote-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#call gxc#false-method)) + (table-set! _tbl197035_ '%#call gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#call-unchecked gxc#false-method)) + (table-set! _tbl197035_ '%#call-unchecked gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#if gxc#false-method)) + (table-set! _tbl197035_ '%#if gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#ref gxc#false-method)) + (table-set! _tbl197035_ '%#ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#set! gxc#false-method)) + (table-set! _tbl197035_ '%#set! gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#struct-instance? gxc#false-method)) + (table-set! _tbl197035_ '%#struct-instance? gxc#false-method)) (let () (declare (not safe)) (table-set! - _tbl197105_ + _tbl197035_ '%#struct-direct-instance? gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#struct-ref gxc#false-method)) + (table-set! _tbl197035_ '%#struct-ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#struct-set! gxc#false-method)) + (table-set! _tbl197035_ '%#struct-set! gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#struct-direct-ref gxc#false-method)) + (table-set! _tbl197035_ '%#struct-direct-ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197105_ '%#struct-direct-set! gxc#false-method)) + (table-set! _tbl197035_ '%#struct-direct-set! gxc#false-method)) (let () (declare (not safe)) (table-set! - _tbl197105_ + _tbl197035_ '%#struct-unchecked-ref gxc#false-method)) (let () (declare (not safe)) (table-set! - _tbl197105_ + _tbl197035_ '%#struct-unchecked-set! gxc#false-method)) - _tbl197105_)))) + _tbl197035_)))) (define gxc#&false-special-form (make-promise (lambda () - (let ((_tbl197101_ + (let ((_tbl197031_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#begin gxc#false-method)) + (table-set! _tbl197031_ '%#begin gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#begin-syntax gxc#false-method)) + (table-set! _tbl197031_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#begin-foreign gxc#false-method)) + (table-set! _tbl197031_ '%#begin-foreign gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#module gxc#false-method)) + (table-set! _tbl197031_ '%#module gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#import gxc#false-method)) + (table-set! _tbl197031_ '%#import gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#export gxc#false-method)) + (table-set! _tbl197031_ '%#export gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#provide gxc#false-method)) + (table-set! _tbl197031_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#extern gxc#false-method)) + (table-set! _tbl197031_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#define-values gxc#false-method)) + (table-set! _tbl197031_ '%#define-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#define-syntax gxc#false-method)) + (table-set! _tbl197031_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#define-alias gxc#false-method)) + (table-set! _tbl197031_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197101_ '%#declare gxc#false-method)) - _tbl197101_)))) + (table-set! _tbl197031_ '%#declare gxc#false-method)) + _tbl197031_)))) (define gxc#&false (make-promise (lambda () - (let ((_tbl197097_ + (let ((_tbl197027_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp203083 (force gxc#&false-special-form))) + (let ((__tmp203013 (force gxc#&false-special-form))) (declare (not safe)) - (hash-copy! _tbl197097_ __tmp203083)) - (let ((__tmp203084 (force gxc#&false-expression))) + (hash-copy! _tbl197027_ __tmp203013)) + (let ((__tmp203014 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl197097_ __tmp203084)) - _tbl197097_)))) + (hash-copy! _tbl197027_ __tmp203014)) + _tbl197027_)))) (define gxc#&collect-bindings (make-promise (lambda () - (let ((_tbl197093_ + (let ((_tbl197023_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp203085 (force gxc#&void-expression))) + (let ((__tmp203015 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl197093_ __tmp203085)) - (let ((__tmp203086 (force gxc#&void-special-form))) + (hash-copy! _tbl197023_ __tmp203015)) + (let ((__tmp203016 (force gxc#&void-special-form))) (declare (not safe)) - (hash-copy! _tbl197093_ __tmp203086)) + (hash-copy! _tbl197023_ __tmp203016)) (let () (declare (not safe)) - (table-set! _tbl197093_ '%#begin gxc#collect-begin%)) + (table-set! _tbl197023_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl197093_ + _tbl197023_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl197093_ '%#module gxc#collect-module%)) + (table-set! _tbl197023_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl197093_ + _tbl197023_ '%#define-values gxc#collect-bindings-define-values%)) (let () (declare (not safe)) (table-set! - _tbl197093_ + _tbl197023_ '%#define-syntax gxc#collect-bindings-define-syntax%)) - _tbl197093_)))) + _tbl197023_)))) (define gxc#apply-collect-bindings - (lambda (_stx197076_ . _args197078_) - (let ((__tmp203088 + (lambda (_stx197006_ . _args197008_) + (let ((__tmp203018 (lambda () (declare (not safe)) - (if (null? _args197078_) - (gxc#compile-e__0 _stx197076_) - (let ((_arg1197083_ (car _args197078_)) - (_rest197085_ (cdr _args197078_))) - (if (null? _rest197085_) - (gxc#compile-e__1 _stx197076_ _arg1197083_) - (let ((_arg2197088_ (car _rest197085_)) - (_rest197090_ (cdr _rest197085_))) - (if (null? _rest197090_) + (if (null? _args197008_) + (gxc#compile-e__0 _stx197006_) + (let ((_arg1197013_ (car _args197008_)) + (_rest197015_ (cdr _args197008_))) + (if (null? _rest197015_) + (gxc#compile-e__1 _stx197006_ _arg1197013_) + (let ((_arg2197018_ (car _rest197015_)) + (_rest197020_ (cdr _rest197015_))) + (if (null? _rest197020_) (gxc#compile-e__2 - _stx197076_ - _arg1197083_ - _arg2197088_) + _stx197006_ + _arg1197013_ + _arg2197018_) (apply gxc#compile-e - _stx197076_ - _arg1197083_ - _arg2197088_ - _rest197090_)))))))) - (__tmp203087 (force gxc#&collect-bindings))) + _stx197006_ + _arg1197013_ + _arg2197018_ + _rest197020_)))))))) + (__tmp203017 (force gxc#&collect-bindings))) (declare (not safe)) (call-with-parameters - __tmp203088 + __tmp203018 gxc#current-compile-methods - __tmp203087)))) + __tmp203017)))) (define gxc#&lift-modules (make-promise (lambda () - (let ((_tbl197073_ + (let ((_tbl197003_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp203089 (force gxc#&void))) + (let ((__tmp203019 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl197073_ __tmp203089)) + (hash-copy! _tbl197003_ __tmp203019)) (let () (declare (not safe)) - (table-set! _tbl197073_ '%#begin gxc#collect-begin%)) + (table-set! _tbl197003_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! _tbl197073_ '%#module gxc#lift-modules-module%)) - _tbl197073_)))) + (table-set! _tbl197003_ '%#module gxc#lift-modules-module%)) + _tbl197003_)))) (define gxc#apply-lift-modules - (lambda (_stx197056_ . _args197058_) - (let ((__tmp203091 + (lambda (_stx196986_ . _args196988_) + (let ((__tmp203021 (lambda () (declare (not safe)) - (if (null? _args197058_) - (gxc#compile-e__0 _stx197056_) - (let ((_arg1197063_ (car _args197058_)) - (_rest197065_ (cdr _args197058_))) - (if (null? _rest197065_) - (gxc#compile-e__1 _stx197056_ _arg1197063_) - (let ((_arg2197068_ (car _rest197065_)) - (_rest197070_ (cdr _rest197065_))) - (if (null? _rest197070_) + (if (null? _args196988_) + (gxc#compile-e__0 _stx196986_) + (let ((_arg1196993_ (car _args196988_)) + (_rest196995_ (cdr _args196988_))) + (if (null? _rest196995_) + (gxc#compile-e__1 _stx196986_ _arg1196993_) + (let ((_arg2196998_ (car _rest196995_)) + (_rest197000_ (cdr _rest196995_))) + (if (null? _rest197000_) (gxc#compile-e__2 - _stx197056_ - _arg1197063_ - _arg2197068_) + _stx196986_ + _arg1196993_ + _arg2196998_) (apply gxc#compile-e - _stx197056_ - _arg1197063_ - _arg2197068_ - _rest197070_)))))))) - (__tmp203090 (force gxc#&lift-modules))) + _stx196986_ + _arg1196993_ + _arg2196998_ + _rest197000_)))))))) + (__tmp203020 (force gxc#&lift-modules))) (declare (not safe)) (call-with-parameters - __tmp203091 + __tmp203021 gxc#current-compile-methods - __tmp203090)))) + __tmp203020)))) (define gxc#&find-runtime-code (make-promise (lambda () - (let ((_tbl197053_ + (let ((_tbl196983_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#begin gxc#find-runtime-begin%)) + (table-set! _tbl196983_ '%#begin gxc#find-runtime-begin%)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#begin-syntax gxc#false-method)) + (table-set! _tbl196983_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#begin-foreign gxc#true-method)) + (table-set! _tbl196983_ '%#begin-foreign gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#begin-annotation gxc#true-method)) + (table-set! _tbl196983_ '%#begin-annotation gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#module gxc#false-method)) + (table-set! _tbl196983_ '%#module gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#import gxc#false-method)) + (table-set! _tbl196983_ '%#import gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#export gxc#false-method)) + (table-set! _tbl196983_ '%#export gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#provide gxc#false-method)) + (table-set! _tbl196983_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#extern gxc#false-method)) + (table-set! _tbl196983_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#define-values gxc#true-method)) + (table-set! _tbl196983_ '%#define-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#define-syntax gxc#false-method)) + (table-set! _tbl196983_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#define-alias gxc#false-method)) + (table-set! _tbl196983_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#declare gxc#false-method)) + (table-set! _tbl196983_ '%#declare gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#lambda gxc#true-method)) + (table-set! _tbl196983_ '%#lambda gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#case-lambda gxc#true-method)) + (table-set! _tbl196983_ '%#case-lambda gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#let-values gxc#true-method)) + (table-set! _tbl196983_ '%#let-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#letrec-values gxc#true-method)) + (table-set! _tbl196983_ '%#letrec-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#letrec*-values gxc#true-method)) + (table-set! _tbl196983_ '%#letrec*-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#quote gxc#true-method)) + (table-set! _tbl196983_ '%#quote gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#call gxc#true-method)) + (table-set! _tbl196983_ '%#call gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#call-unchecked gxc#true-method)) + (table-set! _tbl196983_ '%#call-unchecked gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#if gxc#true-method)) + (table-set! _tbl196983_ '%#if gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#ref gxc#true-method)) + (table-set! _tbl196983_ '%#ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#set! gxc#true-method)) + (table-set! _tbl196983_ '%#set! gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#struct-instance? gxc#true-method)) + (table-set! _tbl196983_ '%#struct-instance? gxc#true-method)) (let () (declare (not safe)) (table-set! - _tbl197053_ + _tbl196983_ '%#struct-direct-instance? gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#struct-ref gxc#true-method)) + (table-set! _tbl196983_ '%#struct-ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#struct-set! gxc#true-method)) + (table-set! _tbl196983_ '%#struct-set! gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#struct-direct-ref gxc#true-method)) + (table-set! _tbl196983_ '%#struct-direct-ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl197053_ '%#struct-direct-set! gxc#true-method)) + (table-set! _tbl196983_ '%#struct-direct-set! gxc#true-method)) (let () (declare (not safe)) (table-set! - _tbl197053_ + _tbl196983_ '%#struct-unchecked-ref gxc#true-method)) (let () (declare (not safe)) (table-set! - _tbl197053_ + _tbl196983_ '%#struct-unchecked-set! gxc#true-method)) - _tbl197053_)))) + _tbl196983_)))) (define gxc#apply-find-runtime-code - (lambda (_stx197036_ . _args197038_) - (let ((__tmp203093 + (lambda (_stx196966_ . _args196968_) + (let ((__tmp203023 (lambda () (declare (not safe)) - (if (null? _args197038_) - (gxc#compile-e__0 _stx197036_) - (let ((_arg1197043_ (car _args197038_)) - (_rest197045_ (cdr _args197038_))) - (if (null? _rest197045_) - (gxc#compile-e__1 _stx197036_ _arg1197043_) - (let ((_arg2197048_ (car _rest197045_)) - (_rest197050_ (cdr _rest197045_))) - (if (null? _rest197050_) + (if (null? _args196968_) + (gxc#compile-e__0 _stx196966_) + (let ((_arg1196973_ (car _args196968_)) + (_rest196975_ (cdr _args196968_))) + (if (null? _rest196975_) + (gxc#compile-e__1 _stx196966_ _arg1196973_) + (let ((_arg2196978_ (car _rest196975_)) + (_rest196980_ (cdr _rest196975_))) + (if (null? _rest196980_) (gxc#compile-e__2 - _stx197036_ - _arg1197043_ - _arg2197048_) + _stx196966_ + _arg1196973_ + _arg2196978_) (apply gxc#compile-e - _stx197036_ - _arg1197043_ - _arg2197048_ - _rest197050_)))))))) - (__tmp203092 (force gxc#&find-runtime-code))) + _stx196966_ + _arg1196973_ + _arg2196978_ + _rest196980_)))))))) + (__tmp203022 (force gxc#&find-runtime-code))) (declare (not safe)) (call-with-parameters - __tmp203093 + __tmp203023 gxc#current-compile-methods - __tmp203092)))) + __tmp203022)))) (define gxc#&find-lambda-expression (make-promise (lambda () - (let ((_tbl197033_ + (let ((_tbl196963_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp203094 (force gxc#&false))) + (let ((__tmp203024 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl197033_ __tmp203094)) + (hash-copy! _tbl196963_ __tmp203024)) (let () (declare (not safe)) (table-set! - _tbl197033_ + _tbl196963_ '%#begin gxc#find-lambda-expression-begin%)) (let () (declare (not safe)) (table-set! - _tbl197033_ + _tbl196963_ '%#begin-annotation gxc#find-lambda-expression-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl197033_ '%#lambda values)) + (table-set! _tbl196963_ '%#lambda values)) (let () (declare (not safe)) - (table-set! _tbl197033_ '%#case-lambda values)) + (table-set! _tbl196963_ '%#case-lambda values)) (let () (declare (not safe)) (table-set! - _tbl197033_ + _tbl196963_ '%#let-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) (table-set! - _tbl197033_ + _tbl196963_ '%#letrec-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) (table-set! - _tbl197033_ + _tbl196963_ '%#letrec*-values gxc#find-lambda-expression-let-values%)) - _tbl197033_)))) + _tbl196963_)))) (define gxc#apply-find-lambda-expression - (lambda (_stx197016_ . _args197018_) - (let ((__tmp203096 + (lambda (_stx196946_ . _args196948_) + (let ((__tmp203026 (lambda () (declare (not safe)) - (if (null? _args197018_) - (gxc#compile-e__0 _stx197016_) - (let ((_arg1197023_ (car _args197018_)) - (_rest197025_ (cdr _args197018_))) - (if (null? _rest197025_) - (gxc#compile-e__1 _stx197016_ _arg1197023_) - (let ((_arg2197028_ (car _rest197025_)) - (_rest197030_ (cdr _rest197025_))) - (if (null? _rest197030_) + (if (null? _args196948_) + (gxc#compile-e__0 _stx196946_) + (let ((_arg1196953_ (car _args196948_)) + (_rest196955_ (cdr _args196948_))) + (if (null? _rest196955_) + (gxc#compile-e__1 _stx196946_ _arg1196953_) + (let ((_arg2196958_ (car _rest196955_)) + (_rest196960_ (cdr _rest196955_))) + (if (null? _rest196960_) (gxc#compile-e__2 - _stx197016_ - _arg1197023_ - _arg2197028_) + _stx196946_ + _arg1196953_ + _arg2196958_) (apply gxc#compile-e - _stx197016_ - _arg1197023_ - _arg2197028_ - _rest197030_)))))))) - (__tmp203095 (force gxc#&find-lambda-expression))) + _stx196946_ + _arg1196953_ + _arg2196958_ + _rest196960_)))))))) + (__tmp203025 (force gxc#&find-lambda-expression))) (declare (not safe)) (call-with-parameters - __tmp203096 + __tmp203026 gxc#current-compile-methods - __tmp203095)))) + __tmp203025)))) (define gxc#&count-values (make-promise (lambda () - (let ((_tbl197013_ + (let ((_tbl196943_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp203097 (force gxc#&false-expression))) + (let ((__tmp203027 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl197013_ __tmp203097)) + (hash-copy! _tbl196943_ __tmp203027)) (let () (declare (not safe)) - (table-set! _tbl197013_ '%#begin gxc#count-values-begin%)) + (table-set! _tbl196943_ '%#begin gxc#count-values-begin%)) (let () (declare (not safe)) (table-set! - _tbl197013_ + _tbl196943_ '%#begin-annotation gxc#count-values-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl197013_ '%#lambda gxc#count-values-single%)) + (table-set! _tbl196943_ '%#lambda gxc#count-values-single%)) (let () (declare (not safe)) (table-set! - _tbl197013_ + _tbl196943_ '%#case-lambda gxc#count-values-single%)) (let () (declare (not safe)) (table-set! - _tbl197013_ + _tbl196943_ '%#let-values gxc#count-values-let-values%)) (let () (declare (not safe)) (table-set! - _tbl197013_ + _tbl196943_ '%#letrec-values gxc#count-values-let-values%)) (let () (declare (not safe)) (table-set! - _tbl197013_ + _tbl196943_ '%#letrec*-values gxc#count-values-let-values%)) (let () (declare (not safe)) - (table-set! _tbl197013_ '%#quote gxc#count-values-single%)) + (table-set! _tbl196943_ '%#quote gxc#count-values-single%)) (let () (declare (not safe)) - (table-set! _tbl197013_ '%#call gxc#count-values-call%)) + (table-set! _tbl196943_ '%#call gxc#count-values-call%)) (let () (declare (not safe)) (table-set! - _tbl197013_ + _tbl196943_ '%#call-unchecked gxc#count-values-call%)) (let () (declare (not safe)) - (table-set! _tbl197013_ '%#if gxc#count-values-if%)) - _tbl197013_)))) + (table-set! _tbl196943_ '%#if gxc#count-values-if%)) + _tbl196943_)))) (define gxc#apply-count-values - (lambda (_stx196996_ . _args196998_) - (let ((__tmp203099 + (lambda (_stx196926_ . _args196928_) + (let ((__tmp203029 (lambda () (declare (not safe)) - (if (null? _args196998_) - (gxc#compile-e__0 _stx196996_) - (let ((_arg1197003_ (car _args196998_)) - (_rest197005_ (cdr _args196998_))) - (if (null? _rest197005_) - (gxc#compile-e__1 _stx196996_ _arg1197003_) - (let ((_arg2197008_ (car _rest197005_)) - (_rest197010_ (cdr _rest197005_))) - (if (null? _rest197010_) + (if (null? _args196928_) + (gxc#compile-e__0 _stx196926_) + (let ((_arg1196933_ (car _args196928_)) + (_rest196935_ (cdr _args196928_))) + (if (null? _rest196935_) + (gxc#compile-e__1 _stx196926_ _arg1196933_) + (let ((_arg2196938_ (car _rest196935_)) + (_rest196940_ (cdr _rest196935_))) + (if (null? _rest196940_) (gxc#compile-e__2 - _stx196996_ - _arg1197003_ - _arg2197008_) + _stx196926_ + _arg1196933_ + _arg2196938_) (apply gxc#compile-e - _stx196996_ - _arg1197003_ - _arg2197008_ - _rest197010_)))))))) - (__tmp203098 (force gxc#&count-values))) + _stx196926_ + _arg1196933_ + _arg2196938_ + _rest196940_)))))))) + (__tmp203028 (force gxc#&count-values))) (declare (not safe)) (call-with-parameters - __tmp203099 + __tmp203029 gxc#current-compile-methods - __tmp203098)))) + __tmp203028)))) (define gxc#&generate-runtime-empty (make-promise (lambda () - (let ((_tbl196993_ + (let ((_tbl196923_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#begin gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#begin gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#begin-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#begin-foreign gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#begin-annotation gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#module gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#module gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#import gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#import gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#export gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#export gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#provide gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#provide gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#extern gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#extern gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#define-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#define-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#define-alias gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#declare gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#declare gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#lambda gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#case-lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#let-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#letrec-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#letrec*-values gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#quote gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#quote gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#call gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#call gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#call-unchecked gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#if gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#if gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#ref gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#ref gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl196993_ '%#set! gxc#generate-runtime-empty)) + (table-set! _tbl196923_ '%#set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#struct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#struct-direct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#struct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#struct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#struct-direct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#struct-direct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#struct-unchecked-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl196993_ + _tbl196923_ '%#struct-unchecked-set! gxc#generate-runtime-empty)) - _tbl196993_)))) + _tbl196923_)))) (define gxc#&generate-loader (make-promise (lambda () - (let ((_tbl196989_ + (let ((_tbl196919_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp203100 (force gxc#&generate-runtime-empty))) + (let ((__tmp203030 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl196989_ __tmp203100)) + (hash-copy! _tbl196919_ __tmp203030)) (let () (declare (not safe)) - (table-set! _tbl196989_ '%#begin gxc#generate-runtime-begin%)) + (table-set! _tbl196919_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (table-set! - _tbl196989_ + _tbl196919_ '%#import gxc#generate-runtime-loader-import%)) - _tbl196989_)))) + _tbl196919_)))) (define gxc#apply-generate-loader - (lambda (_stx196972_ . _args196974_) - (let ((__tmp203102 + (lambda (_stx196902_ . _args196904_) + (let ((__tmp203032 (lambda () (declare (not safe)) - (if (null? _args196974_) - (gxc#compile-e__0 _stx196972_) - (let ((_arg1196979_ (car _args196974_)) - (_rest196981_ (cdr _args196974_))) - (if (null? _rest196981_) - (gxc#compile-e__1 _stx196972_ _arg1196979_) - (let ((_arg2196984_ (car _rest196981_)) - (_rest196986_ (cdr _rest196981_))) - (if (null? _rest196986_) + (if (null? _args196904_) + (gxc#compile-e__0 _stx196902_) + (let ((_arg1196909_ (car _args196904_)) + (_rest196911_ (cdr _args196904_))) + (if (null? _rest196911_) + (gxc#compile-e__1 _stx196902_ _arg1196909_) + (let ((_arg2196914_ (car _rest196911_)) + (_rest196916_ (cdr _rest196911_))) + (if (null? _rest196916_) (gxc#compile-e__2 - _stx196972_ - _arg1196979_ - _arg2196984_) + _stx196902_ + _arg1196909_ + _arg2196914_) (apply gxc#compile-e - _stx196972_ - _arg1196979_ - _arg2196984_ - _rest196986_)))))))) - (__tmp203101 (force gxc#&generate-loader))) + _stx196902_ + _arg1196909_ + _arg2196914_ + _rest196916_)))))))) + (__tmp203031 (force gxc#&generate-loader))) (declare (not safe)) (call-with-parameters - __tmp203102 + __tmp203032 gxc#current-compile-methods - __tmp203101)))) + __tmp203031)))) (define gxc#&generate-runtime (make-promise (lambda () - (let ((_tbl196969_ + (let ((_tbl196899_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp203103 (force gxc#&generate-runtime-empty))) + (let ((__tmp203033 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl196969_ __tmp203103)) + (hash-copy! _tbl196899_ __tmp203033)) (let () (declare (not safe)) - (table-set! _tbl196969_ '%#begin gxc#generate-runtime-begin%)) + (table-set! _tbl196899_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#begin-foreign gxc#generate-runtime-begin-foreign%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#begin-annotation gxc#generate-runtime-begin-annotation%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#define-values gxc#generate-runtime-define-values%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#declare gxc#generate-runtime-declare%)) (let () (declare (not safe)) - (table-set! _tbl196969_ '%#lambda gxc#generate-runtime-lambda%)) + (table-set! _tbl196899_ '%#lambda gxc#generate-runtime-lambda%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#case-lambda gxc#generate-runtime-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#let-values gxc#generate-runtime-let-values%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#letrec-values gxc#generate-runtime-letrec-values%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#letrec*-values gxc#generate-runtime-letrec*-values%)) (let () (declare (not safe)) - (table-set! _tbl196969_ '%#quote gxc#generate-runtime-quote%)) + (table-set! _tbl196899_ '%#quote gxc#generate-runtime-quote%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#quote-syntax gxc#generate-runtime-quote-syntax%)) (let () (declare (not safe)) - (table-set! _tbl196969_ '%#call gxc#generate-runtime-call%)) + (table-set! _tbl196899_ '%#call gxc#generate-runtime-call%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#call-unchecked gxc#generate-runtime-call-unchecked%)) (let () (declare (not safe)) - (table-set! _tbl196969_ '%#if gxc#generate-runtime-if%)) + (table-set! _tbl196899_ '%#if gxc#generate-runtime-if%)) (let () (declare (not safe)) - (table-set! _tbl196969_ '%#ref gxc#generate-runtime-ref%)) + (table-set! _tbl196899_ '%#ref gxc#generate-runtime-ref%)) (let () (declare (not safe)) - (table-set! _tbl196969_ '%#set! gxc#generate-runtime-setq%)) + (table-set! _tbl196899_ '%#set! gxc#generate-runtime-setq%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#struct-instance? gxc#generate-runtime-struct-instancep%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#struct-direct-instance? gxc#generate-runtime-struct-direct-instancep%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#struct-ref gxc#generate-runtime-struct-ref%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#struct-set! gxc#generate-runtime-struct-setq%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#struct-direct-ref gxc#generate-runtime-struct-direct-ref%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#struct-direct-set! gxc#generate-runtime-struct-direct-setq%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#struct-unchecked-ref gxc#generate-runtime-struct-unchecked-ref%)) (let () (declare (not safe)) (table-set! - _tbl196969_ + _tbl196899_ '%#struct-unchecked-set! gxc#generate-runtime-struct-unchecked-setq%)) - _tbl196969_)))) + _tbl196899_)))) (define gxc#apply-generate-runtime - (lambda (_stx196952_ . _args196954_) - (let ((__tmp203105 + (lambda (_stx196882_ . _args196884_) + (let ((__tmp203035 (lambda () (declare (not safe)) - (if (null? _args196954_) - (gxc#compile-e__0 _stx196952_) - (let ((_arg1196959_ (car _args196954_)) - (_rest196961_ (cdr _args196954_))) - (if (null? _rest196961_) - (gxc#compile-e__1 _stx196952_ _arg1196959_) - (let ((_arg2196964_ (car _rest196961_)) - (_rest196966_ (cdr _rest196961_))) - (if (null? _rest196966_) + (if (null? _args196884_) + (gxc#compile-e__0 _stx196882_) + (let ((_arg1196889_ (car _args196884_)) + (_rest196891_ (cdr _args196884_))) + (if (null? _rest196891_) + (gxc#compile-e__1 _stx196882_ _arg1196889_) + (let ((_arg2196894_ (car _rest196891_)) + (_rest196896_ (cdr _rest196891_))) + (if (null? _rest196896_) (gxc#compile-e__2 - _stx196952_ - _arg1196959_ - _arg2196964_) + _stx196882_ + _arg1196889_ + _arg2196894_) (apply gxc#compile-e - _stx196952_ - _arg1196959_ - _arg2196964_ - _rest196966_)))))))) - (__tmp203104 (force gxc#&generate-runtime))) + _stx196882_ + _arg1196889_ + _arg2196894_ + _rest196896_)))))))) + (__tmp203034 (force gxc#&generate-runtime))) (declare (not safe)) (call-with-parameters - __tmp203105 + __tmp203035 gxc#current-compile-methods - __tmp203104)))) + __tmp203034)))) (define gxc#&generate-runtime-phi (make-promise (lambda () - (let ((_tbl196949_ + (let ((_tbl196879_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp203106 (force gxc#&generate-runtime))) + (let ((__tmp203036 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-copy! _tbl196949_ __tmp203106)) + (hash-copy! _tbl196879_ __tmp203036)) (let () (declare (not safe)) (table-set! - _tbl196949_ + _tbl196879_ '%#define-runtime gxc#generate-runtime-phi-define-runtime%)) - _tbl196949_)))) + _tbl196879_)))) (define gxc#apply-generate-runtime-phi - (lambda (_stx196932_ . _args196934_) - (let ((__tmp203108 + (lambda (_stx196862_ . _args196864_) + (let ((__tmp203038 (lambda () (declare (not safe)) - (if (null? _args196934_) - (gxc#compile-e__0 _stx196932_) - (let ((_arg1196939_ (car _args196934_)) - (_rest196941_ (cdr _args196934_))) - (if (null? _rest196941_) - (gxc#compile-e__1 _stx196932_ _arg1196939_) - (let ((_arg2196944_ (car _rest196941_)) - (_rest196946_ (cdr _rest196941_))) - (if (null? _rest196946_) + (if (null? _args196864_) + (gxc#compile-e__0 _stx196862_) + (let ((_arg1196869_ (car _args196864_)) + (_rest196871_ (cdr _args196864_))) + (if (null? _rest196871_) + (gxc#compile-e__1 _stx196862_ _arg1196869_) + (let ((_arg2196874_ (car _rest196871_)) + (_rest196876_ (cdr _rest196871_))) + (if (null? _rest196876_) (gxc#compile-e__2 - _stx196932_ - _arg1196939_ - _arg2196944_) + _stx196862_ + _arg1196869_ + _arg2196874_) (apply gxc#compile-e - _stx196932_ - _arg1196939_ - _arg2196944_ - _rest196946_)))))))) - (__tmp203107 (force gxc#&generate-runtime-phi))) + _stx196862_ + _arg1196869_ + _arg2196874_ + _rest196876_)))))))) + (__tmp203037 (force gxc#&generate-runtime-phi))) (declare (not safe)) (call-with-parameters - __tmp203108 + __tmp203038 gxc#current-compile-methods - __tmp203107)))) + __tmp203037)))) (define gxc#&collect-expression-refs (make-promise (lambda () - (let ((_tbl196929_ + (let ((_tbl196859_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#begin gxc#collect-begin%)) + (table-set! _tbl196859_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl196859_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#quote gxc#void-method)) + (table-set! _tbl196859_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#quote-syntax gxc#void-method)) + (table-set! _tbl196859_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#call gxc#collect-operands)) + (table-set! _tbl196859_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#call-unchecked gxc#collect-operands)) + (table-set! _tbl196859_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#if gxc#collect-operands)) + (table-set! _tbl196859_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#ref gxc#collect-refs-ref%)) + (table-set! _tbl196859_ '%#ref gxc#collect-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#set! gxc#collect-refs-setq%)) + (table-set! _tbl196859_ '%#set! gxc#collect-refs-setq%)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#struct-ref gxc#collect-operands)) + (table-set! _tbl196859_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl196929_ '%#struct-set! gxc#collect-operands)) + (table-set! _tbl196859_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl196929_ + _tbl196859_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl196929_)))) + _tbl196859_)))) (define gxc#apply-collect-expression-refs - (lambda (_stx196912_ . _args196914_) - (let ((__tmp203110 + (lambda (_stx196842_ . _args196844_) + (let ((__tmp203040 (lambda () (declare (not safe)) - (if (null? _args196914_) - (gxc#compile-e__0 _stx196912_) - (let ((_arg1196919_ (car _args196914_)) - (_rest196921_ (cdr _args196914_))) - (if (null? _rest196921_) - (gxc#compile-e__1 _stx196912_ _arg1196919_) - (let ((_arg2196924_ (car _rest196921_)) - (_rest196926_ (cdr _rest196921_))) - (if (null? _rest196926_) + (if (null? _args196844_) + (gxc#compile-e__0 _stx196842_) + (let ((_arg1196849_ (car _args196844_)) + (_rest196851_ (cdr _args196844_))) + (if (null? _rest196851_) + (gxc#compile-e__1 _stx196842_ _arg1196849_) + (let ((_arg2196854_ (car _rest196851_)) + (_rest196856_ (cdr _rest196851_))) + (if (null? _rest196856_) (gxc#compile-e__2 - _stx196912_ - _arg1196919_ - _arg2196924_) + _stx196842_ + _arg1196849_ + _arg2196854_) (apply gxc#compile-e - _stx196912_ - _arg1196919_ - _arg2196924_ - _rest196926_)))))))) - (__tmp203109 (force gxc#&collect-expression-refs))) + _stx196842_ + _arg1196849_ + _arg2196854_ + _rest196856_)))))))) + (__tmp203039 (force gxc#&collect-expression-refs))) (declare (not safe)) (call-with-parameters - __tmp203110 + __tmp203040 gxc#current-compile-methods - __tmp203109)))) + __tmp203039)))) (define gxc#&generate-meta (make-promise (lambda () - (let ((_tbl196909_ + (let ((_tbl196839_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp203111 (force gxc#&void-expression))) + (let ((__tmp203041 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl196909_ __tmp203111)) + (hash-copy! _tbl196839_ __tmp203041)) (let () (declare (not safe)) - (table-set! _tbl196909_ '%#begin gxc#generate-meta-begin%)) + (table-set! _tbl196839_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) (table-set! - _tbl196909_ + _tbl196839_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl196909_ '%#module gxc#generate-meta-module%)) + (table-set! _tbl196839_ '%#module gxc#generate-meta-module%)) (let () (declare (not safe)) - (table-set! _tbl196909_ '%#import gxc#generate-meta-import%)) + (table-set! _tbl196839_ '%#import gxc#generate-meta-import%)) (let () (declare (not safe)) - (table-set! _tbl196909_ '%#export gxc#generate-meta-export%)) + (table-set! _tbl196839_ '%#export gxc#generate-meta-export%)) (let () (declare (not safe)) - (table-set! _tbl196909_ '%#provide gxc#generate-meta-provide%)) + (table-set! _tbl196839_ '%#provide gxc#generate-meta-provide%)) (let () (declare (not safe)) - (table-set! _tbl196909_ '%#extern gxc#generate-meta-extern%)) + (table-set! _tbl196839_ '%#extern gxc#generate-meta-extern%)) (let () (declare (not safe)) (table-set! - _tbl196909_ + _tbl196839_ '%#define-values gxc#generate-meta-define-values%)) (let () (declare (not safe)) (table-set! - _tbl196909_ + _tbl196839_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) (table-set! - _tbl196909_ + _tbl196839_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) - (table-set! _tbl196909_ '%#begin-foreign gxc#void-method)) + (table-set! _tbl196839_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl196909_ '%#declare gxc#void-method)) - _tbl196909_)))) + (table-set! _tbl196839_ '%#declare gxc#void-method)) + _tbl196839_)))) (define gxc#apply-generate-meta - (lambda (_stx196892_ . _args196894_) - (let ((__tmp203113 + (lambda (_stx196822_ . _args196824_) + (let ((__tmp203043 (lambda () (declare (not safe)) - (if (null? _args196894_) - (gxc#compile-e__0 _stx196892_) - (let ((_arg1196899_ (car _args196894_)) - (_rest196901_ (cdr _args196894_))) - (if (null? _rest196901_) - (gxc#compile-e__1 _stx196892_ _arg1196899_) - (let ((_arg2196904_ (car _rest196901_)) - (_rest196906_ (cdr _rest196901_))) - (if (null? _rest196906_) + (if (null? _args196824_) + (gxc#compile-e__0 _stx196822_) + (let ((_arg1196829_ (car _args196824_)) + (_rest196831_ (cdr _args196824_))) + (if (null? _rest196831_) + (gxc#compile-e__1 _stx196822_ _arg1196829_) + (let ((_arg2196834_ (car _rest196831_)) + (_rest196836_ (cdr _rest196831_))) + (if (null? _rest196836_) (gxc#compile-e__2 - _stx196892_ - _arg1196899_ - _arg2196904_) + _stx196822_ + _arg1196829_ + _arg2196834_) (apply gxc#compile-e - _stx196892_ - _arg1196899_ - _arg2196904_ - _rest196906_)))))))) - (__tmp203112 (force gxc#&generate-meta))) + _stx196822_ + _arg1196829_ + _arg2196834_ + _rest196836_)))))))) + (__tmp203042 (force gxc#&generate-meta))) (declare (not safe)) (call-with-parameters - __tmp203113 + __tmp203043 gxc#current-compile-methods - __tmp203112)))) + __tmp203042)))) (define gxc#&generate-meta-phi (make-promise (lambda () - (let ((_tbl196889_ + (let ((_tbl196819_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl196889_ '%#begin gxc#generate-meta-begin%)) + (table-set! _tbl196819_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#define-values gxc#generate-meta-phi-define-values%)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#begin-annotation gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl196889_ '%#lambda gxc#generate-meta-phi-expr)) + (table-set! _tbl196819_ '%#lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#case-lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#let-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#letrec-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#letrec*-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl196889_ '%#quote gxc#generate-meta-phi-expr)) + (table-set! _tbl196819_ '%#quote gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#quote-syntax gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl196889_ '%#call gxc#generate-meta-phi-expr)) + (table-set! _tbl196819_ '%#call gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#call-unchecked gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl196889_ '%#if gxc#generate-meta-phi-expr)) + (table-set! _tbl196819_ '%#if gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl196889_ '%#ref gxc#generate-meta-phi-expr)) + (table-set! _tbl196819_ '%#ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl196889_ '%#set! gxc#generate-meta-phi-expr)) + (table-set! _tbl196819_ '%#set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#struct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#struct-direct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#struct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#struct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#struct-direct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#struct-direct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#struct-unchecked-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl196889_ + _tbl196819_ '%#struct-unchecked-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl196889_ '%#declare gxc#void-method)) - _tbl196889_)))) + (table-set! _tbl196819_ '%#declare gxc#void-method)) + _tbl196819_)))) (define gxc#apply-generate-meta-phi - (lambda (_stx196872_ . _args196874_) - (let ((__tmp203115 + (lambda (_stx196802_ . _args196804_) + (let ((__tmp203045 (lambda () (declare (not safe)) - (if (null? _args196874_) - (gxc#compile-e__0 _stx196872_) - (let ((_arg1196879_ (car _args196874_)) - (_rest196881_ (cdr _args196874_))) - (if (null? _rest196881_) - (gxc#compile-e__1 _stx196872_ _arg1196879_) - (let ((_arg2196884_ (car _rest196881_)) - (_rest196886_ (cdr _rest196881_))) - (if (null? _rest196886_) + (if (null? _args196804_) + (gxc#compile-e__0 _stx196802_) + (let ((_arg1196809_ (car _args196804_)) + (_rest196811_ (cdr _args196804_))) + (if (null? _rest196811_) + (gxc#compile-e__1 _stx196802_ _arg1196809_) + (let ((_arg2196814_ (car _rest196811_)) + (_rest196816_ (cdr _rest196811_))) + (if (null? _rest196816_) (gxc#compile-e__2 - _stx196872_ - _arg1196879_ - _arg2196884_) + _stx196802_ + _arg1196809_ + _arg2196814_) (apply gxc#compile-e - _stx196872_ - _arg1196879_ - _arg2196884_ - _rest196886_)))))))) - (__tmp203114 (force gxc#&generate-meta-phi))) + _stx196802_ + _arg1196809_ + _arg2196814_ + _rest196816_)))))))) + (__tmp203044 (force gxc#&generate-meta-phi))) (declare (not safe)) (call-with-parameters - __tmp203115 + __tmp203045 gxc#current-compile-methods - __tmp203114)))) + __tmp203044)))) (define gxc#collect-begin% - (lambda (_stx196822_ . _args196823_) - (let* ((_g196825196835_ - (lambda (_g196826196832_) + (lambda (_stx196752_ . _args196753_) + (let* ((_g196755196765_ + (lambda (_g196756196762_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196826196832_)))) - (_g196824196869_ - (lambda (_g196826196838_) + _g196756196762_)))) + (_g196754196799_ + (lambda (_g196756196768_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196826196838_)) - (let ((_e196830196840_ + (gx#stx-pair? _g196756196768_)) + (let ((_e196760196770_ (let () (declare (not safe)) - (gx#stx-e _g196826196838_)))) - (let ((_hd196829196843_ + (gx#stx-e _g196756196768_)))) + (let ((_hd196759196773_ (let () (declare (not safe)) - (##car _e196830196840_))) - (_tl196828196845_ + (##car _e196760196770_))) + (_tl196758196775_ (let () (declare (not safe)) - (##cdr _e196830196840_)))) - ((lambda (_L196848_) + (##cdr _e196760196770_)))) + ((lambda (_L196778_) (for-each - (lambda (_stx196858_) + (lambda (_stx196788_) (if (let () (declare (not safe)) - (null? _args196823_)) + (null? _args196753_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx196858_)) - (let ((_arg1196860_ (car _args196823_)) - (_rest196862_ (cdr _args196823_))) + (gxc#compile-e__0 _stx196788_)) + (let ((_arg1196790_ (car _args196753_)) + (_rest196792_ (cdr _args196753_))) (if (let () (declare (not safe)) - (null? _rest196862_)) + (null? _rest196792_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx196858_ - _arg1196860_)) - (let ((_arg2196865_ - (car _rest196862_)) - (_rest196867_ - (cdr _rest196862_))) + _stx196788_ + _arg1196790_)) + (let ((_arg2196795_ + (car _rest196792_)) + (_rest196797_ + (cdr _rest196792_))) (if (let () (declare (not safe)) - (null? _rest196867_)) + (null? _rest196797_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx196858_ - _arg1196860_ - _arg2196865_)) + _stx196788_ + _arg1196790_ + _arg2196795_)) (apply gxc#compile-e - _stx196858_ - _arg1196860_ - _arg2196865_ - _rest196867_))))))) + _stx196788_ + _arg1196790_ + _arg2196795_ + _rest196797_))))))) (let () (declare (not safe)) - (gx#stx-e _L196848_)))) - _tl196828196845_))) + (gx#stx-e _L196778_)))) + _tl196758196775_))) (let () (declare (not safe)) - (_g196825196835_ _g196826196838_)))))) + (_g196755196765_ _g196756196768_)))))) (declare (not safe)) - (_g196824196869_ _stx196822_)))) + (_g196754196799_ _stx196752_)))) (define gxc#collect-begin-syntax% - (lambda (_stx196818_ . _args196819_) - (let ((__tmp203118 + (lambda (_stx196748_ . _args196749_) + (let ((__tmp203048 (lambda () - (apply gxc#collect-begin% _stx196818_ _args196819_))) - (__tmp203116 - (let ((__tmp203117 (gx#current-expander-phi))) + (apply gxc#collect-begin% _stx196748_ _args196749_))) + (__tmp203046 + (let ((__tmp203047 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp203117 '1)))) + (fx+ __tmp203047 '1)))) (declare (not safe)) (call-with-parameters - __tmp203118 + __tmp203048 gx#current-expander-phi - __tmp203116)))) + __tmp203046)))) (define gxc#collect-module% - (lambda (_stx196748_ . _args196749_) - (let* ((_g196751196765_ - (lambda (_g196752196762_) + (lambda (_stx196678_ . _args196679_) + (let* ((_g196681196695_ + (lambda (_g196682196692_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196752196762_)))) - (_g196750196815_ - (lambda (_g196752196768_) + _g196682196692_)))) + (_g196680196745_ + (lambda (_g196682196698_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196752196768_)) - (let ((_e196757196770_ + (gx#stx-pair? _g196682196698_)) + (let ((_e196687196700_ (let () (declare (not safe)) - (gx#stx-e _g196752196768_)))) - (let ((_hd196756196773_ + (gx#stx-e _g196682196698_)))) + (let ((_hd196686196703_ (let () (declare (not safe)) - (##car _e196757196770_))) - (_tl196755196775_ + (##car _e196687196700_))) + (_tl196685196705_ (let () (declare (not safe)) - (##cdr _e196757196770_)))) + (##cdr _e196687196700_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196755196775_)) - (let ((_e196760196778_ + (gx#stx-pair? _tl196685196705_)) + (let ((_e196690196708_ (let () (declare (not safe)) - (gx#stx-e _tl196755196775_)))) - (let ((_hd196759196781_ + (gx#stx-e _tl196685196705_)))) + (let ((_hd196689196711_ (let () (declare (not safe)) - (##car _e196760196778_))) - (_tl196758196783_ + (##car _e196690196708_))) + (_tl196688196713_ (let () (declare (not safe)) - (##cdr _e196760196778_)))) - ((lambda (_L196786_ _L196787_) - (let* ((_ctx196800_ + (##cdr _e196690196708_)))) + ((lambda (_L196716_ _L196717_) + (let* ((_ctx196730_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L196787_))) - (_ctx-stx196802_ + _L196717_))) + (_ctx-stx196732_ (##structure-ref - _ctx196800_ + _ctx196730_ '11 gx#module-context::t '#f))) - (let ((__tmp203119 + (let ((__tmp203049 (lambda () (if (let () (declare (not safe)) - (null? _args196749_)) + (null? _args196679_)) (let () (declare (not safe)) (gxc#compile-e__0 - _ctx-stx196802_)) - (let ((_arg1196806_ - (car _args196749_)) - (_rest196808_ - (cdr _args196749_))) + _ctx-stx196732_)) + (let ((_arg1196736_ + (car _args196679_)) + (_rest196738_ + (cdr _args196679_))) (if (let () (declare (not safe)) - (null? _rest196808_)) + (null? _rest196738_)) (let () (declare (not safe)) (gxc#compile-e__1 - _ctx-stx196802_ - _arg1196806_)) - (let ((_arg2196811_ + _ctx-stx196732_ + _arg1196736_)) + (let ((_arg2196741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _rest196808_)) - (_rest196813_ (cdr _rest196808_))) - (if (let () (declare (not safe)) (null? _rest196813_)) + (car _rest196738_)) + (_rest196743_ (cdr _rest196738_))) + (if (let () (declare (not safe)) (null? _rest196743_)) (let () (declare (not safe)) (gxc#compile-e__2 - _ctx-stx196802_ - _arg1196806_ - _arg2196811_)) + _ctx-stx196732_ + _arg1196736_ + _arg2196741_)) (apply gxc#compile-e - _ctx-stx196802_ - _arg1196806_ - _arg2196811_ - _rest196813_))))))))) + _ctx-stx196732_ + _arg1196736_ + _arg2196741_ + _rest196743_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp203119 + __tmp203049 gx#current-expander-context - _ctx196800_)))) - _tl196758196783_ - _hd196759196781_))) + _ctx196730_)))) + _tl196688196713_ + _hd196689196711_))) (let () (declare (not safe)) - (_g196751196765_ _g196752196768_))))) + (_g196681196695_ _g196682196698_))))) (let () (declare (not safe)) - (_g196751196765_ _g196752196768_)))))) + (_g196681196695_ _g196682196698_)))))) (declare (not safe)) - (_g196750196815_ _stx196748_)))) + (_g196680196745_ _stx196678_)))) (define gxc#collect-begin-annotation% - (lambda (_stx196671_ . _args196672_) - (let* ((_g196674196691_ - (lambda (_g196675196688_) + (lambda (_stx196601_ . _args196602_) + (let* ((_g196604196621_ + (lambda (_g196605196618_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196675196688_)))) - (_g196673196745_ - (lambda (_g196675196694_) + _g196605196618_)))) + (_g196603196675_ + (lambda (_g196605196624_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196675196694_)) - (let ((_e196680196696_ + (gx#stx-pair? _g196605196624_)) + (let ((_e196610196626_ (let () (declare (not safe)) - (gx#stx-e _g196675196694_)))) - (let ((_hd196679196699_ + (gx#stx-e _g196605196624_)))) + (let ((_hd196609196629_ (let () (declare (not safe)) - (##car _e196680196696_))) - (_tl196678196701_ + (##car _e196610196626_))) + (_tl196608196631_ (let () (declare (not safe)) - (##cdr _e196680196696_)))) + (##cdr _e196610196626_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196678196701_)) - (let ((_e196683196704_ + (gx#stx-pair? _tl196608196631_)) + (let ((_e196613196634_ (let () (declare (not safe)) - (gx#stx-e _tl196678196701_)))) - (let ((_hd196682196707_ + (gx#stx-e _tl196608196631_)))) + (let ((_hd196612196637_ (let () (declare (not safe)) - (##car _e196683196704_))) - (_tl196681196709_ + (##car _e196613196634_))) + (_tl196611196639_ (let () (declare (not safe)) - (##cdr _e196683196704_)))) + (##cdr _e196613196634_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196681196709_)) - (let ((_e196686196712_ + (gx#stx-pair? _tl196611196639_)) + (let ((_e196616196642_ (let () (declare (not safe)) - (gx#stx-e _tl196681196709_)))) - (let ((_hd196685196715_ + (gx#stx-e _tl196611196639_)))) + (let ((_hd196615196645_ (let () (declare (not safe)) - (##car _e196686196712_))) - (_tl196684196717_ + (##car _e196616196642_))) + (_tl196614196647_ (let () (declare (not safe)) - (##cdr _e196686196712_)))) + (##cdr _e196616196642_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196684196717_)) - ((lambda (_L196720_ _L196721_) + _tl196614196647_)) + ((lambda (_L196650_ _L196651_) (if (let () (declare (not safe)) - (null? _args196672_)) + (null? _args196602_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L196720_)) - (let ((_arg1196736_ - (car _args196672_)) - (_rest196738_ - (cdr _args196672_))) + _L196650_)) + (let ((_arg1196666_ + (car _args196602_)) + (_rest196668_ + (cdr _args196602_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest196738_)) + (null? _rest196668_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L196720_ _arg1196736_)) - (let ((_arg2196741_ (car _rest196738_)) - (_rest196743_ (cdr _rest196738_))) - (if (let () (declare (not safe)) (null? _rest196743_)) + (gxc#compile-e__1 _L196650_ _arg1196666_)) + (let ((_arg2196671_ (car _rest196668_)) + (_rest196673_ (cdr _rest196668_))) + (if (let () (declare (not safe)) (null? _rest196673_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L196720_ - _arg1196736_ - _arg2196741_)) + _L196650_ + _arg1196666_ + _arg2196671_)) (apply gxc#compile-e - _L196720_ - _arg1196736_ - _arg2196741_ - _rest196743_))))))) + _L196650_ + _arg1196666_ + _arg2196671_ + _rest196673_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd196685196715_ - _hd196682196707_) + _hd196615196645_ + _hd196612196637_) (let () (declare (not safe)) - (_g196674196691_ - _g196675196694_))))) + (_g196604196621_ + _g196605196624_))))) (let () (declare (not safe)) - (_g196674196691_ _g196675196694_))))) + (_g196604196621_ _g196605196624_))))) (let () (declare (not safe)) - (_g196674196691_ _g196675196694_))))) + (_g196604196621_ _g196605196624_))))) (let () (declare (not safe)) - (_g196674196691_ _g196675196694_)))))) + (_g196604196621_ _g196605196624_)))))) (declare (not safe)) - (_g196673196745_ _stx196671_)))) + (_g196603196675_ _stx196601_)))) (define gxc#collect-define-values% - (lambda (_stx196594_ . _args196595_) - (let* ((_g196597196614_ - (lambda (_g196598196611_) + (lambda (_stx196524_ . _args196525_) + (let* ((_g196527196544_ + (lambda (_g196528196541_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196598196611_)))) - (_g196596196668_ - (lambda (_g196598196617_) + _g196528196541_)))) + (_g196526196598_ + (lambda (_g196528196547_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196598196617_)) - (let ((_e196603196619_ + (gx#stx-pair? _g196528196547_)) + (let ((_e196533196549_ (let () (declare (not safe)) - (gx#stx-e _g196598196617_)))) - (let ((_hd196602196622_ + (gx#stx-e _g196528196547_)))) + (let ((_hd196532196552_ (let () (declare (not safe)) - (##car _e196603196619_))) - (_tl196601196624_ + (##car _e196533196549_))) + (_tl196531196554_ (let () (declare (not safe)) - (##cdr _e196603196619_)))) + (##cdr _e196533196549_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196601196624_)) - (let ((_e196606196627_ + (gx#stx-pair? _tl196531196554_)) + (let ((_e196536196557_ (let () (declare (not safe)) - (gx#stx-e _tl196601196624_)))) - (let ((_hd196605196630_ + (gx#stx-e _tl196531196554_)))) + (let ((_hd196535196560_ (let () (declare (not safe)) - (##car _e196606196627_))) - (_tl196604196632_ + (##car _e196536196557_))) + (_tl196534196562_ (let () (declare (not safe)) - (##cdr _e196606196627_)))) + (##cdr _e196536196557_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196604196632_)) - (let ((_e196609196635_ + (gx#stx-pair? _tl196534196562_)) + (let ((_e196539196565_ (let () (declare (not safe)) - (gx#stx-e _tl196604196632_)))) - (let ((_hd196608196638_ + (gx#stx-e _tl196534196562_)))) + (let ((_hd196538196568_ (let () (declare (not safe)) - (##car _e196609196635_))) - (_tl196607196640_ + (##car _e196539196565_))) + (_tl196537196570_ (let () (declare (not safe)) - (##cdr _e196609196635_)))) + (##cdr _e196539196565_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196607196640_)) - ((lambda (_L196643_ _L196644_) + _tl196537196570_)) + ((lambda (_L196573_ _L196574_) (if (let () (declare (not safe)) - (null? _args196595_)) + (null? _args196525_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L196643_)) - (let ((_arg1196659_ - (car _args196595_)) - (_rest196661_ - (cdr _args196595_))) + _L196573_)) + (let ((_arg1196589_ + (car _args196525_)) + (_rest196591_ + (cdr _args196525_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest196661_)) + (null? _rest196591_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L196643_ _arg1196659_)) - (let ((_arg2196664_ (car _rest196661_)) - (_rest196666_ (cdr _rest196661_))) - (if (let () (declare (not safe)) (null? _rest196666_)) + (gxc#compile-e__1 _L196573_ _arg1196589_)) + (let ((_arg2196594_ (car _rest196591_)) + (_rest196596_ (cdr _rest196591_))) + (if (let () (declare (not safe)) (null? _rest196596_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L196643_ - _arg1196659_ - _arg2196664_)) + _L196573_ + _arg1196589_ + _arg2196594_)) (apply gxc#compile-e - _L196643_ - _arg1196659_ - _arg2196664_ - _rest196666_))))))) + _L196573_ + _arg1196589_ + _arg2196594_ + _rest196596_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd196608196638_ - _hd196605196630_) + _hd196538196568_ + _hd196535196560_) (let () (declare (not safe)) - (_g196597196614_ - _g196598196617_))))) + (_g196527196544_ + _g196528196547_))))) (let () (declare (not safe)) - (_g196597196614_ _g196598196617_))))) + (_g196527196544_ _g196528196547_))))) (let () (declare (not safe)) - (_g196597196614_ _g196598196617_))))) + (_g196527196544_ _g196528196547_))))) (let () (declare (not safe)) - (_g196597196614_ _g196598196617_)))))) + (_g196527196544_ _g196528196547_)))))) (declare (not safe)) - (_g196596196668_ _stx196594_)))) + (_g196526196598_ _stx196524_)))) (define gxc#collect-define-syntax% - (lambda (_stx196516_ . _args196517_) - (let* ((_g196519196536_ - (lambda (_g196520196533_) + (lambda (_stx196446_ . _args196447_) + (let* ((_g196449196466_ + (lambda (_g196450196463_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196520196533_)))) - (_g196518196591_ - (lambda (_g196520196539_) + _g196450196463_)))) + (_g196448196521_ + (lambda (_g196450196469_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196520196539_)) - (let ((_e196525196541_ + (gx#stx-pair? _g196450196469_)) + (let ((_e196455196471_ (let () (declare (not safe)) - (gx#stx-e _g196520196539_)))) - (let ((_hd196524196544_ + (gx#stx-e _g196450196469_)))) + (let ((_hd196454196474_ (let () (declare (not safe)) - (##car _e196525196541_))) - (_tl196523196546_ + (##car _e196455196471_))) + (_tl196453196476_ (let () (declare (not safe)) - (##cdr _e196525196541_)))) + (##cdr _e196455196471_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196523196546_)) - (let ((_e196528196549_ + (gx#stx-pair? _tl196453196476_)) + (let ((_e196458196479_ (let () (declare (not safe)) - (gx#stx-e _tl196523196546_)))) - (let ((_hd196527196552_ + (gx#stx-e _tl196453196476_)))) + (let ((_hd196457196482_ (let () (declare (not safe)) - (##car _e196528196549_))) - (_tl196526196554_ + (##car _e196458196479_))) + (_tl196456196484_ (let () (declare (not safe)) - (##cdr _e196528196549_)))) + (##cdr _e196458196479_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196526196554_)) - (let ((_e196531196557_ + (gx#stx-pair? _tl196456196484_)) + (let ((_e196461196487_ (let () (declare (not safe)) - (gx#stx-e _tl196526196554_)))) - (let ((_hd196530196560_ + (gx#stx-e _tl196456196484_)))) + (let ((_hd196460196490_ (let () (declare (not safe)) - (##car _e196531196557_))) - (_tl196529196562_ + (##car _e196461196487_))) + (_tl196459196492_ (let () (declare (not safe)) - (##cdr _e196531196557_)))) + (##cdr _e196461196487_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196529196562_)) - ((lambda (_L196565_ _L196566_) - (let ((__tmp203122 + _tl196459196492_)) + ((lambda (_L196495_ _L196496_) + (let ((__tmp203052 (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _args196517_)) + (null? _args196447_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L196565_)) - (let ((_arg1196582_ (car _args196517_)) - (_rest196584_ (cdr _args196517_))) + (gxc#compile-e__0 _L196495_)) + (let ((_arg1196512_ (car _args196447_)) + (_rest196514_ (cdr _args196447_))) (if (let () (declare (not safe)) - (null? _rest196584_)) + (null? _rest196514_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L196565_ _arg1196582_)) - (let ((_arg2196587_ (car _rest196584_)) - (_rest196589_ (cdr _rest196584_))) + (gxc#compile-e__1 _L196495_ _arg1196512_)) + (let ((_arg2196517_ (car _rest196514_)) + (_rest196519_ (cdr _rest196514_))) (if (let () (declare (not safe)) - (null? _rest196589_)) + (null? _rest196519_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L196565_ - _arg1196582_ - _arg2196587_)) + _L196495_ + _arg1196512_ + _arg2196517_)) (apply gxc#compile-e - _L196565_ - _arg1196582_ - _arg2196587_ - _rest196589_)))))))) - (__tmp203120 - (let ((__tmp203121 (gx#current-expander-phi))) + _L196495_ + _arg1196512_ + _arg2196517_ + _rest196519_)))))))) + (__tmp203050 + (let ((__tmp203051 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp203121 '1)))) + (fx+ __tmp203051 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp203122 + __tmp203052 gx#current-expander-phi - __tmp203120))) - _hd196530196560_ - _hd196527196552_) + __tmp203050))) + _hd196460196490_ + _hd196457196482_) (let () (declare (not safe)) - (_g196519196536_ - _g196520196539_))))) + (_g196449196466_ + _g196450196469_))))) (let () (declare (not safe)) - (_g196519196536_ _g196520196539_))))) + (_g196449196466_ _g196450196469_))))) (let () (declare (not safe)) - (_g196519196536_ _g196520196539_))))) + (_g196449196466_ _g196450196469_))))) (let () (declare (not safe)) - (_g196519196536_ _g196520196539_)))))) + (_g196449196466_ _g196450196469_)))))) (declare (not safe)) - (_g196518196591_ _stx196516_)))) + (_g196448196521_ _stx196446_)))) (define gxc#collect-body-lambda% - (lambda (_stx196439_ . _args196440_) - (let* ((_g196442196459_ - (lambda (_g196443196456_) + (lambda (_stx196369_ . _args196370_) + (let* ((_g196372196389_ + (lambda (_g196373196386_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196443196456_)))) - (_g196441196513_ - (lambda (_g196443196462_) + _g196373196386_)))) + (_g196371196443_ + (lambda (_g196373196392_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196443196462_)) - (let ((_e196448196464_ + (gx#stx-pair? _g196373196392_)) + (let ((_e196378196394_ (let () (declare (not safe)) - (gx#stx-e _g196443196462_)))) - (let ((_hd196447196467_ + (gx#stx-e _g196373196392_)))) + (let ((_hd196377196397_ (let () (declare (not safe)) - (##car _e196448196464_))) - (_tl196446196469_ + (##car _e196378196394_))) + (_tl196376196399_ (let () (declare (not safe)) - (##cdr _e196448196464_)))) + (##cdr _e196378196394_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196446196469_)) - (let ((_e196451196472_ + (gx#stx-pair? _tl196376196399_)) + (let ((_e196381196402_ (let () (declare (not safe)) - (gx#stx-e _tl196446196469_)))) - (let ((_hd196450196475_ + (gx#stx-e _tl196376196399_)))) + (let ((_hd196380196405_ (let () (declare (not safe)) - (##car _e196451196472_))) - (_tl196449196477_ + (##car _e196381196402_))) + (_tl196379196407_ (let () (declare (not safe)) - (##cdr _e196451196472_)))) + (##cdr _e196381196402_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196449196477_)) - (let ((_e196454196480_ + (gx#stx-pair? _tl196379196407_)) + (let ((_e196384196410_ (let () (declare (not safe)) - (gx#stx-e _tl196449196477_)))) - (let ((_hd196453196483_ + (gx#stx-e _tl196379196407_)))) + (let ((_hd196383196413_ (let () (declare (not safe)) - (##car _e196454196480_))) - (_tl196452196485_ + (##car _e196384196410_))) + (_tl196382196415_ (let () (declare (not safe)) - (##cdr _e196454196480_)))) + (##cdr _e196384196410_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196452196485_)) - ((lambda (_L196488_ _L196489_) + _tl196382196415_)) + ((lambda (_L196418_ _L196419_) (if (let () (declare (not safe)) - (null? _args196440_)) + (null? _args196370_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L196488_)) - (let ((_arg1196504_ - (car _args196440_)) - (_rest196506_ - (cdr _args196440_))) + _L196418_)) + (let ((_arg1196434_ + (car _args196370_)) + (_rest196436_ + (cdr _args196370_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest196506_)) + (null? _rest196436_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L196488_ _arg1196504_)) - (let ((_arg2196509_ (car _rest196506_)) - (_rest196511_ (cdr _rest196506_))) - (if (let () (declare (not safe)) (null? _rest196511_)) + (gxc#compile-e__1 _L196418_ _arg1196434_)) + (let ((_arg2196439_ (car _rest196436_)) + (_rest196441_ (cdr _rest196436_))) + (if (let () (declare (not safe)) (null? _rest196441_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L196488_ - _arg1196504_ - _arg2196509_)) + _L196418_ + _arg1196434_ + _arg2196439_)) (apply gxc#compile-e - _L196488_ - _arg1196504_ - _arg2196509_ - _rest196511_))))))) + _L196418_ + _arg1196434_ + _arg2196439_ + _rest196441_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd196453196483_ - _hd196450196475_) + _hd196383196413_ + _hd196380196405_) (let () (declare (not safe)) - (_g196442196459_ - _g196443196462_))))) + (_g196372196389_ + _g196373196392_))))) (let () (declare (not safe)) - (_g196442196459_ _g196443196462_))))) + (_g196372196389_ _g196373196392_))))) (let () (declare (not safe)) - (_g196442196459_ _g196443196462_))))) + (_g196372196389_ _g196373196392_))))) (let () (declare (not safe)) - (_g196442196459_ _g196443196462_)))))) + (_g196372196389_ _g196373196392_)))))) (declare (not safe)) - (_g196441196513_ _stx196439_)))) + (_g196371196443_ _stx196369_)))) (define gxc#collect-body-case-lambda% - (lambda (_stx196314_ . _args196315_) - (let* ((_g196317196345_ - (lambda (_g196318196342_) + (lambda (_stx196244_ . _args196245_) + (let* ((_g196247196275_ + (lambda (_g196248196272_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196318196342_)))) - (_g196316196436_ - (lambda (_g196318196348_) + _g196248196272_)))) + (_g196246196366_ + (lambda (_g196248196278_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196318196348_)) - (let ((_e196323196350_ + (gx#stx-pair? _g196248196278_)) + (let ((_e196253196280_ (let () (declare (not safe)) - (gx#stx-e _g196318196348_)))) - (let ((_hd196322196353_ + (gx#stx-e _g196248196278_)))) + (let ((_hd196252196283_ (let () (declare (not safe)) - (##car _e196323196350_))) - (_tl196321196355_ + (##car _e196253196280_))) + (_tl196251196285_ (let () (declare (not safe)) - (##cdr _e196323196350_)))) + (##cdr _e196253196280_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl196321196355_)) - (let ((_g203123_ + (gx#stx-pair/null? _tl196251196285_)) + (let ((_g203053_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl196321196355_ + _tl196251196285_ '0)))) (begin - (let ((_g203124_ + (let ((_g203054_ (let () (declare (not safe)) - (if (##values? _g203123_) - (##vector-length _g203123_) + (if (##values? _g203053_) + (##vector-length _g203053_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g203124_ 2))) + (##fx= _g203054_ 2))) (error "Context expects 2 values" - _g203124_))) - (let ((_target196324196358_ + _g203054_))) + (let ((_target196254196288_ (let () (declare (not safe)) - (##vector-ref _g203123_ 0))) - (_tl196326196360_ + (##vector-ref _g203053_ 0))) + (_tl196256196290_ (let () (declare (not safe)) - (##vector-ref _g203123_ 1)))) + (##vector-ref _g203053_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196326196360_)) - (letrec ((_loop196327196363_ - (lambda (_hd196325196366_ - _body196331196368_ - _hd196332196370_) + (gx#stx-null? _tl196256196290_)) + (letrec ((_loop196257196293_ + (lambda (_hd196255196296_ + _body196261196298_ + _hd196262196300_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd196325196366_)) - (let ((_e196328196373_ + _hd196255196296_)) + (let ((_e196258196303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd196325196366_)))) - (let ((_lp-hd196329196376_ + (gx#stx-e _hd196255196296_)))) + (let ((_lp-hd196259196306_ (let () (declare (not safe)) - (##car _e196328196373_))) - (_lp-tl196330196378_ + (##car _e196258196303_))) + (_lp-tl196260196308_ (let () (declare (not safe)) - (##cdr _e196328196373_)))) + (##cdr _e196258196303_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd196329196376_)) - (let ((_e196337196381_ + (gx#stx-pair? _lp-hd196259196306_)) + (let ((_e196267196311_ (let () (declare (not safe)) - (gx#stx-e _lp-hd196329196376_)))) - (let ((_hd196336196384_ + (gx#stx-e _lp-hd196259196306_)))) + (let ((_hd196266196314_ (let () (declare (not safe)) - (##car _e196337196381_))) - (_tl196335196386_ + (##car _e196267196311_))) + (_tl196265196316_ (let () (declare (not safe)) - (##cdr _e196337196381_)))) + (##cdr _e196267196311_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196335196386_)) - (let ((_e196340196389_ + (gx#stx-pair? _tl196265196316_)) + (let ((_e196270196319_ (let () (declare (not safe)) - (gx#stx-e _tl196335196386_)))) - (let ((_hd196339196392_ + (gx#stx-e _tl196265196316_)))) + (let ((_hd196269196322_ (let () (declare (not safe)) - (##car _e196340196389_))) - (_tl196338196394_ + (##car _e196270196319_))) + (_tl196268196324_ (let () (declare (not safe)) - (##cdr _e196340196389_)))) + (##cdr _e196270196319_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196338196394_)) - (let ((__tmp203127 + (gx#stx-null? _tl196268196324_)) + (let ((__tmp203057 (let () (declare (not safe)) - (cons _hd196339196392_ - _body196331196368_))) - (__tmp203126 + (cons _hd196269196322_ + _body196261196298_))) + (__tmp203056 (let () (declare (not safe)) - (cons _hd196336196384_ - _hd196332196370_)))) + (cons _hd196266196314_ + _hd196262196300_)))) (declare (not safe)) - (_loop196327196363_ - _lp-tl196330196378_ - __tmp203127 - __tmp203126)) + (_loop196257196293_ + _lp-tl196260196308_ + __tmp203057 + __tmp203056)) (let () (declare (not safe)) - (_g196317196345_ - _g196318196348_))))) + (_g196247196275_ + _g196248196278_))))) (let () (declare (not safe)) - (_g196317196345_ _g196318196348_))))) + (_g196247196275_ _g196248196278_))))) (let () (declare (not safe)) - (_g196317196345_ _g196318196348_))))) - (let ((_body196333196397_ (reverse _body196331196368_)) - (_hd196334196399_ (reverse _hd196332196370_))) - ((lambda (_L196402_ _L196403_) + (_g196247196275_ _g196248196278_))))) + (let ((_body196263196327_ (reverse _body196261196298_)) + (_hd196264196329_ (reverse _hd196262196300_))) + ((lambda (_L196332_ _L196333_) (for-each - (lambda (_stx196418_) + (lambda (_stx196348_) (if (let () (declare (not safe)) - (null? _args196315_)) + (null? _args196245_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx196418_)) - (let ((_arg1196420_ (car _args196315_)) - (_rest196422_ (cdr _args196315_))) + (gxc#compile-e__0 _stx196348_)) + (let ((_arg1196350_ (car _args196245_)) + (_rest196352_ (cdr _args196245_))) (if (let () (declare (not safe)) - (null? _rest196422_)) + (null? _rest196352_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx196418_ - _arg1196420_)) - (let ((_arg2196425_ (car _rest196422_)) - (_rest196427_ (cdr _rest196422_))) + _stx196348_ + _arg1196350_)) + (let ((_arg2196355_ (car _rest196352_)) + (_rest196357_ (cdr _rest196352_))) (if (let () (declare (not safe)) - (null? _rest196427_)) + (null? _rest196357_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx196418_ - _arg1196420_ - _arg2196425_)) + _stx196348_ + _arg1196350_ + _arg2196355_)) (apply gxc#compile-e - _stx196418_ - _arg1196420_ - _arg2196425_ - _rest196427_))))))) - (let ((__tmp203125 - (lambda (_g196428196431_ _g196429196433_) + _stx196348_ + _arg1196350_ + _arg2196355_ + _rest196357_))))))) + (let ((__tmp203055 + (lambda (_g196358196361_ _g196359196363_) (let () (declare (not safe)) - (cons _g196428196431_ _g196429196433_))))) + (cons _g196358196361_ _g196359196363_))))) (declare (not safe)) - (foldr1 __tmp203125 '() _L196402_)))) - _body196333196397_ - _hd196334196399_)))))) + (foldr1 __tmp203055 '() _L196332_)))) + _body196263196327_ + _hd196264196329_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop196327196363_ - _target196324196358_ + (_loop196257196293_ + _target196254196288_ '() '()))) (let () (declare (not safe)) - (_g196317196345_ - _g196318196348_)))))) + (_g196247196275_ + _g196248196278_)))))) (let () (declare (not safe)) - (_g196317196345_ _g196318196348_))))) + (_g196247196275_ _g196248196278_))))) (let () (declare (not safe)) - (_g196317196345_ _g196318196348_)))))) + (_g196247196275_ _g196248196278_)))))) (declare (not safe)) - (_g196316196436_ _stx196314_)))) + (_g196246196366_ _stx196244_)))) (define gxc#collect-body-let-values% - (lambda (_stx196160_ . _args196161_) - (let* ((_g196163196198_ - (lambda (_g196164196195_) + (lambda (_stx196090_ . _args196091_) + (let* ((_g196093196128_ + (lambda (_g196094196125_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196164196195_)))) - (_g196162196311_ - (lambda (_g196164196201_) + _g196094196125_)))) + (_g196092196241_ + (lambda (_g196094196131_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196164196201_)) - (let ((_e196170196203_ + (gx#stx-pair? _g196094196131_)) + (let ((_e196100196133_ (let () (declare (not safe)) - (gx#stx-e _g196164196201_)))) - (let ((_hd196169196206_ + (gx#stx-e _g196094196131_)))) + (let ((_hd196099196136_ (let () (declare (not safe)) - (##car _e196170196203_))) - (_tl196168196208_ + (##car _e196100196133_))) + (_tl196098196138_ (let () (declare (not safe)) - (##cdr _e196170196203_)))) + (##cdr _e196100196133_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196168196208_)) - (let ((_e196173196211_ + (gx#stx-pair? _tl196098196138_)) + (let ((_e196103196141_ (let () (declare (not safe)) - (gx#stx-e _tl196168196208_)))) - (let ((_hd196172196214_ + (gx#stx-e _tl196098196138_)))) + (let ((_hd196102196144_ (let () (declare (not safe)) - (##car _e196173196211_))) - (_tl196171196216_ + (##car _e196103196141_))) + (_tl196101196146_ (let () (declare (not safe)) - (##cdr _e196173196211_)))) + (##cdr _e196103196141_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd196172196214_)) - (let ((_g203128_ + (gx#stx-pair/null? _hd196102196144_)) + (let ((_g203058_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd196172196214_ + _hd196102196144_ '0)))) (begin - (let ((_g203129_ + (let ((_g203059_ (let () (declare (not safe)) - (if (##values? _g203128_) + (if (##values? _g203058_) (##vector-length - _g203128_) + _g203058_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g203129_ 2))) + (##fx= _g203059_ 2))) (error "Context expects 2 values" - _g203129_))) - (let ((_target196174196219_ + _g203059_))) + (let ((_target196104196149_ (let () (declare (not safe)) (##vector-ref - _g203128_ + _g203058_ 0))) - (_tl196176196221_ + (_tl196106196151_ (let () (declare (not safe)) (##vector-ref - _g203128_ + _g203058_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196176196221_)) - (letrec ((_loop196177196224_ - (lambda (_hd196175196227_ + _tl196106196151_)) + (letrec ((_loop196107196154_ + (lambda (_hd196105196157_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr196181196229_ - _hd196182196231_) + _expr196111196159_ + _hd196112196161_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd196175196227_)) - (let ((_e196178196234_ + (gx#stx-pair? _hd196105196157_)) + (let ((_e196108196164_ (let () (declare (not safe)) - (gx#stx-e _hd196175196227_)))) - (let ((_lp-hd196179196237_ + (gx#stx-e _hd196105196157_)))) + (let ((_lp-hd196109196167_ (let () (declare (not safe)) - (##car _e196178196234_))) - (_lp-tl196180196239_ + (##car _e196108196164_))) + (_lp-tl196110196169_ (let () (declare (not safe)) - (##cdr _e196178196234_)))) + (##cdr _e196108196164_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd196179196237_)) - (let ((_e196187196242_ + (gx#stx-pair? _lp-hd196109196167_)) + (let ((_e196117196172_ (let () (declare (not safe)) - (gx#stx-e _lp-hd196179196237_)))) - (let ((_hd196186196245_ + (gx#stx-e _lp-hd196109196167_)))) + (let ((_hd196116196175_ (let () (declare (not safe)) - (##car _e196187196242_))) - (_tl196185196247_ + (##car _e196117196172_))) + (_tl196115196177_ (let () (declare (not safe)) - (##cdr _e196187196242_)))) + (##cdr _e196117196172_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196185196247_)) - (let ((_e196190196250_ + (gx#stx-pair? _tl196115196177_)) + (let ((_e196120196180_ (let () (declare (not safe)) (gx#stx-e - _tl196185196247_)))) - (let ((_hd196189196253_ + _tl196115196177_)))) + (let ((_hd196119196183_ (let () (declare (not safe)) - (##car _e196190196250_))) - (_tl196188196255_ + (##car _e196120196180_))) + (_tl196118196185_ (let () (declare (not safe)) - (##cdr _e196190196250_)))) + (##cdr _e196120196180_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196188196255_)) - (let ((__tmp203133 + _tl196118196185_)) + (let ((__tmp203063 (let () (declare (not safe)) - (cons _hd196189196253_ + (cons _hd196119196183_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr196181196229_))) - (__tmp203132 + _expr196111196159_))) + (__tmp203062 (let () (declare (not safe)) - (cons _hd196186196245_ _hd196182196231_)))) + (cons _hd196116196175_ _hd196112196161_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop196177196224_ - _lp-tl196180196239_ - __tmp203133 - __tmp203132)) + (_loop196107196154_ + _lp-tl196110196169_ + __tmp203063 + __tmp203062)) (let () (declare (not safe)) - (_g196163196198_ - _g196164196201_))))) + (_g196093196128_ + _g196094196131_))))) (let () (declare (not safe)) - (_g196163196198_ - _g196164196201_))))) + (_g196093196128_ + _g196094196131_))))) (let () (declare (not safe)) - (_g196163196198_ _g196164196201_))))) - (let ((_expr196183196258_ - (reverse _expr196181196229_)) - (_hd196184196260_ (reverse _hd196182196231_))) + (_g196093196128_ _g196094196131_))))) + (let ((_expr196113196188_ + (reverse _expr196111196159_)) + (_hd196114196190_ (reverse _hd196112196161_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196171196216_)) - (let ((_e196193196263_ + (gx#stx-pair? _tl196101196146_)) + (let ((_e196123196193_ (let () (declare (not safe)) - (gx#stx-e _tl196171196216_)))) - (let ((_hd196192196266_ + (gx#stx-e _tl196101196146_)))) + (let ((_hd196122196196_ (let () (declare (not safe)) - (##car _e196193196263_))) - (_tl196191196268_ + (##car _e196123196193_))) + (_tl196121196198_ (let () (declare (not safe)) - (##cdr _e196193196263_)))) + (##cdr _e196123196193_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196191196268_)) - ((lambda (_L196271_ - _L196272_ - _L196273_) + (gx#stx-null? _tl196121196198_)) + ((lambda (_L196201_ + _L196202_ + _L196203_) (for-each - (lambda (_stx196293_) + (lambda (_stx196223_) (if (let () (declare (not safe)) - (null? _args196161_)) + (null? _args196091_)) (let () (declare (not safe)) (gxc#compile-e__0 - _stx196293_)) - (let ((_arg1196295_ - (car _args196161_)) - (_rest196297_ - (cdr _args196161_))) + _stx196223_)) + (let ((_arg1196225_ + (car _args196091_)) + (_rest196227_ + (cdr _args196091_))) (if (let () (declare (not safe)) - (null? _rest196297_)) + (null? _rest196227_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx196293_ - _arg1196295_)) - (let ((_arg2196300_ - (car _rest196297_)) - (_rest196302_ - (cdr _rest196297_))) + _stx196223_ + _arg1196225_)) + (let ((_arg2196230_ + (car _rest196227_)) + (_rest196232_ + (cdr _rest196227_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest196302_)) + (null? _rest196232_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx196293_ - _arg1196295_ - _arg2196300_)) + _stx196223_ + _arg1196225_ + _arg2196230_)) (apply gxc#compile-e - _stx196293_ - _arg1196295_ - _arg2196300_ - _rest196302_))))))) + _stx196223_ + _arg1196225_ + _arg2196230_ + _rest196232_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp203131 - (lambda (_g196303196306_ - _g196304196308_) + (let ((__tmp203061 + (lambda (_g196233196236_ + _g196234196238_) (let () (declare (not safe)) - (cons _g196303196306_ - _g196304196308_)))) - (__tmp203130 + (cons _g196233196236_ + _g196234196238_)))) + (__tmp203060 (let () (declare (not safe)) - (cons _L196271_ '())))) + (cons _L196201_ '())))) (declare (not safe)) - (foldr1 __tmp203131 - __tmp203130 - _L196272_)))) - _hd196192196266_ - _expr196183196258_ - _hd196184196260_) + (foldr1 __tmp203061 + __tmp203060 + _L196202_)))) + _hd196122196196_ + _expr196113196188_ + _hd196114196190_) (let () (declare (not safe)) - (_g196163196198_ _g196164196201_))))) + (_g196093196128_ _g196094196131_))))) (let () (declare (not safe)) - (_g196163196198_ _g196164196201_)))))))) + (_g196093196128_ _g196094196131_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop196177196224_ - _target196174196219_ + (_loop196107196154_ + _target196104196149_ '() '()))) (let () (declare (not safe)) - (_g196163196198_ - _g196164196201_)))))) + (_g196093196128_ + _g196094196131_)))))) (let () (declare (not safe)) - (_g196163196198_ _g196164196201_))))) + (_g196093196128_ _g196094196131_))))) (let () (declare (not safe)) - (_g196163196198_ _g196164196201_))))) + (_g196093196128_ _g196094196131_))))) (let () (declare (not safe)) - (_g196163196198_ _g196164196201_)))))) + (_g196093196128_ _g196094196131_)))))) (declare (not safe)) - (_g196162196311_ _stx196160_)))) + (_g196092196241_ _stx196090_)))) (define gxc#collect-body-setq% - (lambda (_stx196083_ . _args196084_) - (let* ((_g196086196103_ - (lambda (_g196087196100_) + (lambda (_stx196013_ . _args196014_) + (let* ((_g196016196033_ + (lambda (_g196017196030_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196087196100_)))) - (_g196085196157_ - (lambda (_g196087196106_) + _g196017196030_)))) + (_g196015196087_ + (lambda (_g196017196036_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196087196106_)) - (let ((_e196092196108_ + (gx#stx-pair? _g196017196036_)) + (let ((_e196022196038_ (let () (declare (not safe)) - (gx#stx-e _g196087196106_)))) - (let ((_hd196091196111_ + (gx#stx-e _g196017196036_)))) + (let ((_hd196021196041_ (let () (declare (not safe)) - (##car _e196092196108_))) - (_tl196090196113_ + (##car _e196022196038_))) + (_tl196020196043_ (let () (declare (not safe)) - (##cdr _e196092196108_)))) + (##cdr _e196022196038_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196090196113_)) - (let ((_e196095196116_ + (gx#stx-pair? _tl196020196043_)) + (let ((_e196025196046_ (let () (declare (not safe)) - (gx#stx-e _tl196090196113_)))) - (let ((_hd196094196119_ + (gx#stx-e _tl196020196043_)))) + (let ((_hd196024196049_ (let () (declare (not safe)) - (##car _e196095196116_))) - (_tl196093196121_ + (##car _e196025196046_))) + (_tl196023196051_ (let () (declare (not safe)) - (##cdr _e196095196116_)))) + (##cdr _e196025196046_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196093196121_)) - (let ((_e196098196124_ + (gx#stx-pair? _tl196023196051_)) + (let ((_e196028196054_ (let () (declare (not safe)) - (gx#stx-e _tl196093196121_)))) - (let ((_hd196097196127_ + (gx#stx-e _tl196023196051_)))) + (let ((_hd196027196057_ (let () (declare (not safe)) - (##car _e196098196124_))) - (_tl196096196129_ + (##car _e196028196054_))) + (_tl196026196059_ (let () (declare (not safe)) - (##cdr _e196098196124_)))) + (##cdr _e196028196054_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196096196129_)) - ((lambda (_L196132_ _L196133_) + _tl196026196059_)) + ((lambda (_L196062_ _L196063_) (if (let () (declare (not safe)) - (null? _args196084_)) + (null? _args196014_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L196132_)) - (let ((_arg1196148_ - (car _args196084_)) - (_rest196150_ - (cdr _args196084_))) + _L196062_)) + (let ((_arg1196078_ + (car _args196014_)) + (_rest196080_ + (cdr _args196014_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest196150_)) + (null? _rest196080_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L196132_ _arg1196148_)) - (let ((_arg2196153_ (car _rest196150_)) - (_rest196155_ (cdr _rest196150_))) - (if (let () (declare (not safe)) (null? _rest196155_)) + (gxc#compile-e__1 _L196062_ _arg1196078_)) + (let ((_arg2196083_ (car _rest196080_)) + (_rest196085_ (cdr _rest196080_))) + (if (let () (declare (not safe)) (null? _rest196085_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L196132_ - _arg1196148_ - _arg2196153_)) + _L196062_ + _arg1196078_ + _arg2196083_)) (apply gxc#compile-e - _L196132_ - _arg1196148_ - _arg2196153_ - _rest196155_))))))) + _L196062_ + _arg1196078_ + _arg2196083_ + _rest196085_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd196097196127_ - _hd196094196119_) + _hd196027196057_ + _hd196024196049_) (let () (declare (not safe)) - (_g196086196103_ - _g196087196106_))))) + (_g196016196033_ + _g196017196036_))))) (let () (declare (not safe)) - (_g196086196103_ _g196087196106_))))) + (_g196016196033_ _g196017196036_))))) (let () (declare (not safe)) - (_g196086196103_ _g196087196106_))))) + (_g196016196033_ _g196017196036_))))) (let () (declare (not safe)) - (_g196086196103_ _g196087196106_)))))) + (_g196016196033_ _g196017196036_)))))) (declare (not safe)) - (_g196085196157_ _stx196083_)))) + (_g196015196087_ _stx196013_)))) (define gxc#collect-operands - (lambda (_stx195989_ . _args195990_) - (let* ((_g195992196011_ - (lambda (_g195993196008_) + (lambda (_stx195919_ . _args195920_) + (let* ((_g195922195941_ + (lambda (_g195923195938_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195993196008_)))) - (_g195991196080_ - (lambda (_g195993196014_) + _g195923195938_)))) + (_g195921196010_ + (lambda (_g195923195944_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195993196014_)) - (let ((_e195997196016_ + (gx#stx-pair? _g195923195944_)) + (let ((_e195927195946_ (let () (declare (not safe)) - (gx#stx-e _g195993196014_)))) - (let ((_hd195996196019_ + (gx#stx-e _g195923195944_)))) + (let ((_hd195926195949_ (let () (declare (not safe)) - (##car _e195997196016_))) - (_tl195995196021_ + (##car _e195927195946_))) + (_tl195925195951_ (let () (declare (not safe)) - (##cdr _e195997196016_)))) + (##cdr _e195927195946_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl195995196021_)) - (let ((_g203134_ + (gx#stx-pair/null? _tl195925195951_)) + (let ((_g203064_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl195995196021_ + _tl195925195951_ '0)))) (begin - (let ((_g203135_ + (let ((_g203065_ (let () (declare (not safe)) - (if (##values? _g203134_) - (##vector-length _g203134_) + (if (##values? _g203064_) + (##vector-length _g203064_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g203135_ 2))) + (##fx= _g203065_ 2))) (error "Context expects 2 values" - _g203135_))) - (let ((_target195998196024_ + _g203065_))) + (let ((_target195928195954_ (let () (declare (not safe)) - (##vector-ref _g203134_ 0))) - (_tl196000196026_ + (##vector-ref _g203064_ 0))) + (_tl195930195956_ (let () (declare (not safe)) - (##vector-ref _g203134_ 1)))) + (##vector-ref _g203064_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196000196026_)) - (letrec ((_loop196001196029_ - (lambda (_hd195999196032_ - _rands196005196034_) + (gx#stx-null? _tl195930195956_)) + (letrec ((_loop195931195959_ + (lambda (_hd195929195962_ + _rands195935195964_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd195999196032_)) - (let ((_e196002196037_ + _hd195929195962_)) + (let ((_e195932195967_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd195999196032_)))) - (let ((_lp-hd196003196040_ + (gx#stx-e _hd195929195962_)))) + (let ((_lp-hd195933195970_ (let () (declare (not safe)) - (##car _e196002196037_))) - (_lp-tl196004196042_ + (##car _e195932195967_))) + (_lp-tl195934195972_ (let () (declare (not safe)) - (##cdr _e196002196037_)))) - (let ((__tmp203137 + (##cdr _e195932195967_)))) + (let ((__tmp203067 (let () (declare (not safe)) - (cons _lp-hd196003196040_ - _rands196005196034_)))) + (cons _lp-hd195933195970_ + _rands195935195964_)))) (declare (not safe)) - (_loop196001196029_ _lp-tl196004196042_ __tmp203137)))) - (let ((_rands196006196045_ (reverse _rands196005196034_))) - ((lambda (_L196048_) + (_loop195931195959_ _lp-tl195934195972_ __tmp203067)))) + (let ((_rands195936195975_ (reverse _rands195935195964_))) + ((lambda (_L195978_) (for-each - (lambda (_stx196062_) + (lambda (_stx195992_) (if (let () (declare (not safe)) - (null? _args195990_)) + (null? _args195920_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx196062_)) - (let ((_arg1196064_ (car _args195990_)) - (_rest196066_ (cdr _args195990_))) + (gxc#compile-e__0 _stx195992_)) + (let ((_arg1195994_ (car _args195920_)) + (_rest195996_ (cdr _args195920_))) (if (let () (declare (not safe)) - (null? _rest196066_)) + (null? _rest195996_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx196062_ - _arg1196064_)) - (let ((_arg2196069_ (car _rest196066_)) - (_rest196071_ (cdr _rest196066_))) + _stx195992_ + _arg1195994_)) + (let ((_arg2195999_ (car _rest195996_)) + (_rest196001_ (cdr _rest195996_))) (if (let () (declare (not safe)) - (null? _rest196071_)) + (null? _rest196001_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx196062_ - _arg1196064_ - _arg2196069_)) + _stx195992_ + _arg1195994_ + _arg2195999_)) (apply gxc#compile-e - _stx196062_ - _arg1196064_ - _arg2196069_ - _rest196071_))))))) - (let ((__tmp203136 - (lambda (_g196072196075_ _g196073196077_) + _stx195992_ + _arg1195994_ + _arg2195999_ + _rest196001_))))))) + (let ((__tmp203066 + (lambda (_g196002196005_ _g196003196007_) (let () (declare (not safe)) - (cons _g196072196075_ _g196073196077_))))) + (cons _g196002196005_ _g196003196007_))))) (declare (not safe)) - (foldr1 __tmp203136 '() _L196048_)))) - _rands196006196045_)))))) + (foldr1 __tmp203066 '() _L195978_)))) + _rands195936195975_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop196001196029_ - _target195998196024_ + (_loop195931195959_ + _target195928195954_ '()))) (let () (declare (not safe)) - (_g195992196011_ - _g195993196014_)))))) + (_g195922195941_ + _g195923195944_)))))) (let () (declare (not safe)) - (_g195992196011_ _g195993196014_))))) + (_g195922195941_ _g195923195944_))))) (let () (declare (not safe)) - (_g195992196011_ _g195993196014_)))))) + (_g195922195941_ _g195923195944_)))))) (declare (not safe)) - (_g195991196080_ _stx195989_)))) + (_g195921196010_ _stx195919_)))) (define gxc#collect-bindings-define-values% - (lambda (_stx195920_) - (let* ((_g195922195939_ - (lambda (_g195923195936_) + (lambda (_stx195850_) + (let* ((_g195852195869_ + (lambda (_g195853195866_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195923195936_)))) - (_g195921195986_ - (lambda (_g195923195942_) + _g195853195866_)))) + (_g195851195916_ + (lambda (_g195853195872_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195923195942_)) - (let ((_e195928195944_ + (gx#stx-pair? _g195853195872_)) + (let ((_e195858195874_ (let () (declare (not safe)) - (gx#stx-e _g195923195942_)))) - (let ((_hd195927195947_ + (gx#stx-e _g195853195872_)))) + (let ((_hd195857195877_ (let () (declare (not safe)) - (##car _e195928195944_))) - (_tl195926195949_ + (##car _e195858195874_))) + (_tl195856195879_ (let () (declare (not safe)) - (##cdr _e195928195944_)))) + (##cdr _e195858195874_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195926195949_)) - (let ((_e195931195952_ + (gx#stx-pair? _tl195856195879_)) + (let ((_e195861195882_ (let () (declare (not safe)) - (gx#stx-e _tl195926195949_)))) - (let ((_hd195930195955_ + (gx#stx-e _tl195856195879_)))) + (let ((_hd195860195885_ (let () (declare (not safe)) - (##car _e195931195952_))) - (_tl195929195957_ + (##car _e195861195882_))) + (_tl195859195887_ (let () (declare (not safe)) - (##cdr _e195931195952_)))) + (##cdr _e195861195882_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195929195957_)) - (let ((_e195934195960_ + (gx#stx-pair? _tl195859195887_)) + (let ((_e195864195890_ (let () (declare (not safe)) - (gx#stx-e _tl195929195957_)))) - (let ((_hd195933195963_ + (gx#stx-e _tl195859195887_)))) + (let ((_hd195863195893_ (let () (declare (not safe)) - (##car _e195934195960_))) - (_tl195932195965_ + (##car _e195864195890_))) + (_tl195862195895_ (let () (declare (not safe)) - (##cdr _e195934195960_)))) + (##cdr _e195864195890_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195932195965_)) - ((lambda (_L195968_ _L195969_) - (let ((__tmp203138 - (lambda (_bind195984_) + _tl195862195895_)) + ((lambda (_L195898_ _L195899_) + (let ((__tmp203068 + (lambda (_bind195914_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _bind195984_)) + (gx#identifier? _bind195914_)) (let () (declare (not safe)) - (gxc#add-module-binding! _bind195984_ '#f)) + (gxc#add-module-binding! _bind195914_ '#f)) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp203138 - _L195969_))) - _hd195933195963_ - _hd195930195955_) + __tmp203068 + _L195899_))) + _hd195863195893_ + _hd195860195885_) (let () (declare (not safe)) - (_g195922195939_ - _g195923195942_))))) + (_g195852195869_ + _g195853195872_))))) (let () (declare (not safe)) - (_g195922195939_ _g195923195942_))))) + (_g195852195869_ _g195853195872_))))) (let () (declare (not safe)) - (_g195922195939_ _g195923195942_))))) + (_g195852195869_ _g195853195872_))))) (let () (declare (not safe)) - (_g195922195939_ _g195923195942_)))))) + (_g195852195869_ _g195853195872_)))))) (declare (not safe)) - (_g195921195986_ _stx195920_)))) + (_g195851195916_ _stx195850_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_stx195853_) - (let* ((_g195855195872_ - (lambda (_g195856195869_) + (lambda (_stx195783_) + (let* ((_g195785195802_ + (lambda (_g195786195799_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195856195869_)))) - (_g195854195917_ - (lambda (_g195856195875_) + _g195786195799_)))) + (_g195784195847_ + (lambda (_g195786195805_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195856195875_)) - (let ((_e195861195877_ + (gx#stx-pair? _g195786195805_)) + (let ((_e195791195807_ (let () (declare (not safe)) - (gx#stx-e _g195856195875_)))) - (let ((_hd195860195880_ + (gx#stx-e _g195786195805_)))) + (let ((_hd195790195810_ (let () (declare (not safe)) - (##car _e195861195877_))) - (_tl195859195882_ + (##car _e195791195807_))) + (_tl195789195812_ (let () (declare (not safe)) - (##cdr _e195861195877_)))) + (##cdr _e195791195807_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195859195882_)) - (let ((_e195864195885_ + (gx#stx-pair? _tl195789195812_)) + (let ((_e195794195815_ (let () (declare (not safe)) - (gx#stx-e _tl195859195882_)))) - (let ((_hd195863195888_ + (gx#stx-e _tl195789195812_)))) + (let ((_hd195793195818_ (let () (declare (not safe)) - (##car _e195864195885_))) - (_tl195862195890_ + (##car _e195794195815_))) + (_tl195792195820_ (let () (declare (not safe)) - (##cdr _e195864195885_)))) + (##cdr _e195794195815_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195862195890_)) - (let ((_e195867195893_ + (gx#stx-pair? _tl195792195820_)) + (let ((_e195797195823_ (let () (declare (not safe)) - (gx#stx-e _tl195862195890_)))) - (let ((_hd195866195896_ + (gx#stx-e _tl195792195820_)))) + (let ((_hd195796195826_ (let () (declare (not safe)) - (##car _e195867195893_))) - (_tl195865195898_ + (##car _e195797195823_))) + (_tl195795195828_ (let () (declare (not safe)) - (##cdr _e195867195893_)))) + (##cdr _e195797195823_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195865195898_)) - ((lambda (_L195901_ _L195902_) + _tl195795195828_)) + ((lambda (_L195831_ _L195832_) (let () (declare (not safe)) (gxc#add-module-binding! - _L195902_ + _L195832_ '#t))) - _hd195866195896_ - _hd195863195888_) + _hd195796195826_ + _hd195793195818_) (let () (declare (not safe)) - (_g195855195872_ - _g195856195875_))))) + (_g195785195802_ + _g195786195805_))))) (let () (declare (not safe)) - (_g195855195872_ _g195856195875_))))) + (_g195785195802_ _g195786195805_))))) (let () (declare (not safe)) - (_g195855195872_ _g195856195875_))))) + (_g195785195802_ _g195786195805_))))) (let () (declare (not safe)) - (_g195855195872_ _g195856195875_)))))) + (_g195785195802_ _g195786195805_)))))) (declare (not safe)) - (_g195854195917_ _stx195853_)))) + (_g195784195847_ _stx195783_)))) (define gxc#lift-modules-module% - (lambda (_stx195795_ _modules195796_) - (let* ((_g195798195812_ - (lambda (_g195799195809_) + (lambda (_stx195725_ _modules195726_) + (let* ((_g195728195742_ + (lambda (_g195729195739_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195799195809_)))) - (_g195797195850_ - (lambda (_g195799195815_) + _g195729195739_)))) + (_g195727195780_ + (lambda (_g195729195745_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195799195815_)) - (let ((_e195804195817_ + (gx#stx-pair? _g195729195745_)) + (let ((_e195734195747_ (let () (declare (not safe)) - (gx#stx-e _g195799195815_)))) - (let ((_hd195803195820_ + (gx#stx-e _g195729195745_)))) + (let ((_hd195733195750_ (let () (declare (not safe)) - (##car _e195804195817_))) - (_tl195802195822_ + (##car _e195734195747_))) + (_tl195732195752_ (let () (declare (not safe)) - (##cdr _e195804195817_)))) + (##cdr _e195734195747_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195802195822_)) - (let ((_e195807195825_ + (gx#stx-pair? _tl195732195752_)) + (let ((_e195737195755_ (let () (declare (not safe)) - (gx#stx-e _tl195802195822_)))) - (let ((_hd195806195828_ + (gx#stx-e _tl195732195752_)))) + (let ((_hd195736195758_ (let () (declare (not safe)) - (##car _e195807195825_))) - (_tl195805195830_ + (##car _e195737195755_))) + (_tl195735195760_ (let () (declare (not safe)) - (##cdr _e195807195825_)))) - ((lambda (_L195833_ _L195834_) - (let ((_ctx195847_ + (##cdr _e195737195755_)))) + ((lambda (_L195763_ _L195764_) + (let ((_ctx195777_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L195834_)))) + _L195764_)))) (set-box! - _modules195796_ - (let ((__tmp203139 - (unbox _modules195796_))) + _modules195726_ + (let ((__tmp203069 + (unbox _modules195726_))) (declare (not safe)) - (cons _ctx195847_ __tmp203139))) - (let ((__tmp203140 + (cons _ctx195777_ __tmp203069))) + (let ((__tmp203070 (lambda () - (let ((__tmp203141 + (let ((__tmp203071 (##structure-ref - _ctx195847_ + _ctx195777_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - __tmp203141 - _modules195796_))))) + __tmp203071 + _modules195726_))))) (declare (not safe)) (call-with-parameters - __tmp203140 + __tmp203070 gx#current-expander-context - _ctx195847_)))) - _tl195805195830_ - _hd195806195828_))) + _ctx195777_)))) + _tl195735195760_ + _hd195736195758_))) (let () (declare (not safe)) - (_g195798195812_ _g195799195815_))))) + (_g195728195742_ _g195729195745_))))) (let () (declare (not safe)) - (_g195798195812_ _g195799195815_)))))) + (_g195728195742_ _g195729195745_)))))) (declare (not safe)) - (_g195797195850_ _stx195795_)))) + (_g195727195780_ _stx195725_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_decls195751195753_ (gxc#current-compile-decls))) - (if _decls195751195753_ - (let ((_decls195756_ _decls195751195753_)) - (let _lp195758_ ((_rest195760_ _decls195756_)) - (let* ((_rest195761195769_ _rest195760_) - (_else195763195777_ (lambda () '#f)) - (_K195765195783_ - (lambda (_decls195780_ _decl195781_) + (let ((_decls195681195683_ (gxc#current-compile-decls))) + (if _decls195681195683_ + (let ((_decls195686_ _decls195681195683_)) + (let _lp195688_ ((_rest195690_ _decls195686_)) + (let* ((_rest195691195699_ _rest195690_) + (_else195693195707_ (lambda () '#f)) + (_K195695195713_ + (lambda (_decls195710_ _decl195711_) (if (let () (declare (not safe)) - (equal? _decl195781_ '(not safe))) + (equal? _decl195711_ '(not safe))) '#t (if (let () (declare (not safe)) - (equal? _decl195781_ '(safe))) + (equal? _decl195711_ '(safe))) '#f (let () (declare (not safe)) - (_lp195758_ _decls195780_))))))) + (_lp195688_ _decls195710_))))))) (if (let () (declare (not safe)) - (##pair? _rest195761195769_)) - (let ((_hd195766195786_ + (##pair? _rest195691195699_)) + (let ((_hd195696195716_ (let () (declare (not safe)) - (##car _rest195761195769_))) - (_tl195767195788_ + (##car _rest195691195699_))) + (_tl195697195718_ (let () (declare (not safe)) - (##cdr _rest195761195769_)))) - (let* ((_decl195791_ _hd195766195786_) - (_decls195793_ _tl195767195788_)) + (##cdr _rest195691195699_)))) + (let* ((_decl195721_ _hd195696195716_) + (_decls195723_ _tl195697195718_)) (declare (not safe)) - (_K195765195783_ _decls195793_ _decl195791_))) + (_K195695195713_ _decls195723_ _decl195721_))) (let () (declare (not safe)) - (_else195763195777_)))))) + (_else195693195707_)))))) '#f)))) (define gxc#add-module-binding! - (lambda (_id195745_ _syntax?195746_) - (let ((_eid195748_ + (lambda (_id195675_ _syntax?195676_) + (let ((_eid195678_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _id195745_)) + (gx#resolve-identifier__0 _id195675_)) '1 gx#binding::t '#f)) - (_ht195749_ + (_ht195679_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid195748_) + (if (interned-symbol? _eid195678_) '#!void - (let ((__tmp203142 - (let ((__tmp203143 + (let ((__tmp203072 + (let ((__tmp203073 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid195748_)))) + _eid195678_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp203143 _syntax?195746_)))) + (gx#make-binding-id__1 __tmp203073 _syntax?195676_)))) (declare (not safe)) - (table-set! _ht195749_ _eid195748_ __tmp203142)))))) + (table-set! _ht195679_ _eid195678_ __tmp203072)))))) (define gxc#runtime-identifier=? - (lambda (_id1195738_ _id2195739_) - (letrec ((_symbol-e195741_ - (lambda (_id195743_) - (if (let () (declare (not safe)) (symbol? _id195743_)) - _id195743_ + (lambda (_id1195668_ _id2195669_) + (letrec ((_symbol-e195671_ + (lambda (_id195673_) + (if (let () (declare (not safe)) (symbol? _id195673_)) + _id195673_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id195743_)))))) - (let ((__tmp203145 + (gxc#generate-runtime-binding-id _id195673_)))))) + (let ((__tmp203075 (let () (declare (not safe)) - (_symbol-e195741_ _id1195738_))) - (__tmp203144 + (_symbol-e195671_ _id1195668_))) + (__tmp203074 (let () (declare (not safe)) - (_symbol-e195741_ _id2195739_)))) + (_symbol-e195671_ _id2195669_)))) (declare (not safe)) - (eq? __tmp203145 __tmp203144))))) + (eq? __tmp203075 __tmp203074))))) (define gxc#generate-runtime-binding-id - (lambda (_id195716_) - (let ((_$e195718_ + (lambda (_id195646_) + (let ((_$e195648_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id195716_ + _id195646_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _id195716_)) + (gx#resolve-identifier__0 _id195646_)) '#f))) - (if _$e195718_ - ((lambda (_bind195721_) - (let ((_eid195723_ - (##structure-ref _bind195721_ '1 gx#binding::t '#f)) - (_ht195724_ + (if _$e195648_ + ((lambda (_bind195651_) + (let ((_eid195653_ + (##structure-ref _bind195651_ '1 gx#binding::t '#f)) + (_ht195654_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid195723_) - _eid195723_ - (let ((_$e195726_ + (if (interned-symbol? _eid195653_) + _eid195653_ + (let ((_$e195656_ (let () (declare (not safe)) - (table-ref _ht195724_ _eid195723_ '#f)))) - (if _$e195726_ - (values _$e195726_) + (table-ref _ht195654_ _eid195653_ '#f)))) + (if _$e195656_ + (values _$e195656_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind195721_ + _bind195651_ 'gx#local-binding::t)) - (let ((_gid195729_ + (let ((_gid195659_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid195723_)))) + _eid195653_)))) (let () (declare (not safe)) (table-set! - _ht195724_ - _eid195723_ - _gid195729_)) - _gid195729_) + _ht195654_ + _eid195653_ + _gid195659_)) + _gid195659_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind195721_ + _bind195651_ 'gx#module-binding::t)) - (let ((_gid195736_ - (let ((_$e195731_ + (let ((_gid195666_ + (let ((_$e195661_ (##structure-ref (##structure-ref - _bind195721_ + _bind195651_ '4 gx#module-binding::t '#f) '6 gx#module-context::t '#f))) - (if _$e195731_ - ((lambda (_ns195734_) + (if _$e195661_ + ((lambda (_ns195664_) (let () (declare (not safe)) (make-symbol__1 - _ns195734_ + _ns195664_ '"#" - _eid195723_))) - _$e195731_) + _eid195653_))) + _$e195661_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid195723_)))))) + _eid195653_)))))) (let () (declare (not safe)) (table-set! - _ht195724_ - _eid195723_ - _gid195736_)) - _gid195736_) + _ht195654_ + _eid195653_ + _gid195666_)) + _gid195666_) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _id195716_ - _eid195723_ - _bind195721_))))))))) - _$e195718_) + _id195646_ + _eid195653_ + _bind195651_))))))))) + _$e195648_) (if (interned-symbol? - (let () (declare (not safe)) (gx#stx-e _id195716_))) - (let () (declare (not safe)) (gx#stx-e _id195716_)) + (let () (declare (not safe)) (gx#stx-e _id195646_))) + (let () (declare (not safe)) (gx#stx-e _id195646_)) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _id195716_))))))) + _id195646_))))))) (define gxc#generate-runtime-binding-id* - (lambda (_id195714_) - (if (let () (declare (not safe)) (gx#identifier? _id195714_)) + (lambda (_id195644_) + (if (let () (declare (not safe)) (gx#identifier? _id195644_)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id195714_)) + (gxc#generate-runtime-binding-id _id195644_)) (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_sym195694_ _quote?195695_) - (let* ((_ht195697_ + (lambda (_sym195624_ _quote?195625_) + (let* ((_ht195627_ (##structure-ref (gxc#current-compile-symbol-table) '1 gxc#symbol-table::t '#f)) - (_$e195699_ + (_$e195629_ (let () (declare (not safe)) - (table-ref _ht195697_ _sym195694_ '#f)))) - (if _$e195699_ - (values _$e195699_) - (let ((_g195702_ - (if _quote?195695_ - (let ((__tmp203146 (gxc#current-compile-timestamp))) + (table-ref _ht195627_ _sym195624_ '#f)))) + (if _$e195629_ + (values _$e195629_) + (let ((_g195632_ + (if _quote?195625_ + (let ((__tmp203076 (gxc#current-compile-timestamp))) (declare (not safe)) (make-symbol__1 '"__" - _sym195694_ + _sym195624_ '"__" - __tmp203146)) + __tmp203076)) (let () (declare (not safe)) - (make-symbol__1 '"_" _sym195694_ '"_"))))) + (make-symbol__1 '"_" _sym195624_ '"_"))))) (let () (declare (not safe)) - (table-set! _ht195697_ _sym195694_ _g195702_)) - _g195702_))))) + (table-set! _ht195627_ _sym195624_ _g195632_)) + _g195632_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_sym195707_) - (let ((_quote?195709_ '#f)) + (lambda (_sym195637_) + (let ((_quote?195639_ '#f)) (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym195707_ - _quote?195709_)))) + _sym195637_ + _quote?195639_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g203148_ - (let ((_g203147_ (let () (declare (not safe)) (##length _g203148_)))) - (cond ((let () (declare (not safe)) (##fx= _g203147_ 1)) - (apply (lambda (_sym195707_) + (lambda _g203078_ + (let ((_g203077_ (let () (declare (not safe)) (##length _g203078_)))) + (cond ((let () (declare (not safe)) (##fx= _g203077_ 1)) + (apply (lambda (_sym195637_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym195707_))) - _g203148_)) - ((let () (declare (not safe)) (##fx= _g203147_ 2)) - (apply (lambda (_sym195711_ _quote?195712_) + _sym195637_))) + _g203078_)) + ((let () (declare (not safe)) (##fx= _g203077_ 2)) + (apply (lambda (_sym195641_ _quote?195642_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym195711_ - _quote?195712_))) - _g203148_)) + _sym195641_ + _quote?195642_))) + _g203078_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g203148_)))))) + _g203078_)))))) (define gxc#generate-runtime-identifier - (lambda (_id195691_) - (let ((__tmp203149 + (lambda (_id195621_) + (let ((__tmp203079 (let () (declare (not safe)) - (gx#core-identifier-key _id195691_)))) + (gx#core-identifier-key _id195621_)))) (declare (not safe)) - (gxc#generate-runtime-identifier-key __tmp203149)))) + (gxc#generate-runtime-identifier-key __tmp203079)))) (define gxc#generate-runtime-identifier-key - (lambda (_key195651_) - (if (interned-symbol? _key195651_) - _key195651_ - (if (uninterned-symbol? _key195651_) + (lambda (_key195581_) + (if (interned-symbol? _key195581_) + _key195581_ + (if (uninterned-symbol? _key195581_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _key195651_)) - (let* ((_key195652195659_ _key195651_) - (_E195654195663_ + (gxc#generate-runtime-gensym-reference__0 _key195581_)) + (let* ((_key195582195589_ _key195581_) + (_E195584195593_ (lambda () - (error '"No clause matching" _key195652195659_))) - (_K195655195679_ - (lambda (_mark195666_ _eid195667_) - (let ((_$e195669_ + (error '"No clause matching" _key195582195589_))) + (_K195585195609_ + (lambda (_mark195596_ _eid195597_) + (let ((_$e195599_ (##structure-ref - _mark195666_ + _mark195596_ '1 gx#expander-mark::t '#f))) - (if _$e195669_ - ((lambda (_ht195672_) - (let ((_$e195674_ + (if _$e195599_ + ((lambda (_ht195602_) + (let ((_$e195604_ (let () (declare (not safe)) (table-ref - _ht195672_ - _eid195667_ + _ht195602_ + _eid195597_ '#f)))) - (if _$e195674_ - ((lambda (_id195677_) - (if (interned-symbol? _id195677_) - _id195677_ + (if _$e195604_ + ((lambda (_id195607_) + (if (interned-symbol? _id195607_) + _id195607_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _id195677_)))) - _$e195674_) + _id195607_)))) + _$e195604_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid195667_))))) - _$e195669_) + _eid195597_))))) + _$e195599_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid195667_))))))) + _eid195597_))))))) (if (let () (declare (not safe)) - (##pair? _key195652195659_)) - (let ((_hd195656195682_ + (##pair? _key195582195589_)) + (let ((_hd195586195612_ (let () (declare (not safe)) - (##car _key195652195659_))) - (_tl195657195684_ + (##car _key195582195589_))) + (_tl195587195614_ (let () (declare (not safe)) - (##cdr _key195652195659_)))) - (let* ((_eid195687_ _hd195656195682_) - (_mark195689_ _tl195657195684_)) + (##cdr _key195582195589_)))) + (let* ((_eid195617_ _hd195586195612_) + (_mark195619_ _tl195587195614_)) (declare (not safe)) - (_K195655195679_ _mark195689_ _eid195687_))) - (let () (declare (not safe)) (_E195654195663_)))))))) + (_K195585195609_ _mark195619_ _eid195617_))) + (let () (declare (not safe)) (_E195584195593_)))))))) (define gxc#generate-runtime-temporary__% - (lambda (_top195638_) - (if _top195638_ - (let ((_ns195640_ + (lambda (_top195568_) + (if _top195568_ + (let ((_ns195570_ (##structure-ref - (let ((__tmp203151 (gx#current-expander-context))) + (let ((__tmp203081 (gx#current-expander-context))) (declare (not safe)) - (gx#core-context-top__1 __tmp203151)) + (gx#core-context-top__1 __tmp203081)) '6 gx#module-context::t '#f)) - (_phi195641_ (gx#current-expander-phi))) - (if _ns195640_ - (if (fxpositive? _phi195641_) - (let ((__tmp203157 (number->string _phi195641_)) - (__tmp203156 (gensym))) + (_phi195571_ (gx#current-expander-phi))) + (if _ns195570_ + (if (fxpositive? _phi195571_) + (let ((__tmp203087 (number->string _phi195571_)) + (__tmp203086 (gensym))) (declare (not safe)) (make-symbol__1 - _ns195640_ + _ns195570_ '"[" - __tmp203157 + __tmp203087 '"]#_" - __tmp203156 + __tmp203086 '"_")) - (let ((__tmp203155 (gensym))) + (let ((__tmp203085 (gensym))) (declare (not safe)) - (make-symbol__1 _ns195640_ '"#_" __tmp203155 '"_"))) - (if (fxpositive? _phi195641_) - (let ((__tmp203154 (number->string _phi195641_)) - (__tmp203153 (gensym))) + (make-symbol__1 _ns195570_ '"#_" __tmp203085 '"_"))) + (if (fxpositive? _phi195571_) + (let ((__tmp203084 (number->string _phi195571_)) + (__tmp203083 (gensym))) (declare (not safe)) (make-symbol__1 '"[" - __tmp203154 + __tmp203084 '"]#_" - __tmp203153 + __tmp203083 '"_")) - (let ((__tmp203152 (gensym))) + (let ((__tmp203082 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp203152 '"_"))))) - (let ((__tmp203150 (gensym))) + (make-symbol__1 '"_" __tmp203082 '"_"))))) + (let ((__tmp203080 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp203150 '"_"))))) + (make-symbol__1 '"_" __tmp203080 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_top195647_ '#f)) + (let ((_top195577_ '#f)) (declare (not safe)) - (gxc#generate-runtime-temporary__% _top195647_)))) + (gxc#generate-runtime-temporary__% _top195577_)))) (define gxc#generate-runtime-temporary - (lambda _g203159_ - (let ((_g203158_ (let () (declare (not safe)) (##length _g203159_)))) - (cond ((let () (declare (not safe)) (##fx= _g203158_ 0)) + (lambda _g203089_ + (let ((_g203088_ (let () (declare (not safe)) (##length _g203089_)))) + (cond ((let () (declare (not safe)) (##fx= _g203088_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - _g203159_)) - ((let () (declare (not safe)) (##fx= _g203158_ 1)) - (apply (lambda (_top195649_) + _g203089_)) + ((let () (declare (not safe)) (##fx= _g203088_ 1)) + (apply (lambda (_top195579_) (let () (declare (not safe)) - (gxc#generate-runtime-temporary__% _top195649_))) - _g203159_)) + (gxc#generate-runtime-temporary__% _top195579_))) + _g203089_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g203159_)))))) - (define gxc#generate-runtime-empty (lambda (_stx195635_) '(begin))) + _g203089_)))))) + (define gxc#generate-runtime-empty (lambda (_stx195565_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_stx195487_) - (letrec ((_simplify195489_ - (lambda (_body195533_) - (let _lp195535_ ((_rest195537_ _body195533_) - (_r195538_ '())) - (let* ((_rest195539195547_ _rest195537_) - (_else195541195555_ - (lambda () (reverse _r195538_))) - (_K195543195623_ - (lambda (_rest195558_ _hd195559_) - (let* ((_hd195560195576_ _hd195559_) - (_else195564195584_ + (lambda (_stx195417_) + (letrec ((_simplify195419_ + (lambda (_body195463_) + (let _lp195465_ ((_rest195467_ _body195463_) + (_r195468_ '())) + (let* ((_rest195469195477_ _rest195467_) + (_else195471195485_ + (lambda () (reverse _r195468_))) + (_K195473195553_ + (lambda (_rest195488_ _hd195489_) + (let* ((_hd195490195506_ _hd195489_) + (_else195494195514_ (lambda () - (let ((__tmp203160 + (let ((__tmp203090 (let () (declare (not safe)) - (cons _hd195559_ - _r195538_)))) + (cons _hd195489_ + _r195468_)))) (declare (not safe)) - (_lp195535_ - _rest195558_ - __tmp203160))))) - (let ((_K195572195613_ - (lambda (_exprs195611_) - (let ((__tmp203161 + (_lp195465_ + _rest195488_ + __tmp203090))))) + (let ((_K195502195543_ + (lambda (_exprs195541_) + (let ((__tmp203091 (let () (declare (not safe)) (foldr1 cons - _rest195558_ - _exprs195611_)))) + _rest195488_ + _exprs195541_)))) (declare (not safe)) - (_lp195535_ - __tmp203161 - _r195538_)))) - (_K195567195597_ + (_lp195465_ + __tmp203091 + _r195468_)))) + (_K195497195527_ (lambda () (if (let () (declare (not safe)) - (null? _rest195558_)) - (let ((__tmp203162 + (null? _rest195488_)) + (let ((__tmp203092 (let () (declare (not safe)) - (cons _hd195559_ - _r195538_)))) + (cons _hd195489_ + _r195468_)))) (declare (not safe)) - (_lp195535_ - _rest195558_ - __tmp203162)) + (_lp195465_ + _rest195488_ + __tmp203092)) (let () (declare (not safe)) - (_lp195535_ - _rest195558_ - _r195538_))))) - (_K195566195589_ + (_lp195465_ + _rest195488_ + _r195468_))))) + (_K195496195519_ (lambda () (if (let () (declare (not safe)) - (null? _rest195558_)) - (let ((__tmp203163 + (null? _rest195488_)) + (let ((__tmp203093 (let () (declare (not safe)) - (cons _hd195559_ - _r195538_)))) + (cons _hd195489_ + _r195468_)))) (declare (not safe)) - (_lp195535_ - _rest195558_ - __tmp203163)) + (_lp195465_ + _rest195488_ + __tmp203093)) (let () (declare (not safe)) - (_lp195535_ - _rest195558_ - _r195538_)))))) - (let ((_try-match195563195592_ + (_lp195465_ + _rest195488_ + _r195468_)))))) + (let ((_try-match195493195522_ (lambda () (if (let () (declare (not safe)) - (symbol? _hd195560195576_)) + (symbol? _hd195490195506_)) (let () (declare (not safe)) - (_K195566195589_)) + (_K195496195519_)) (let () (declare (not safe)) - (_else195564195584_)))))) + (_else195494195514_)))))) (if (let () (declare (not safe)) - (##pair? _hd195560195576_)) - (let ((_tl195574195618_ + (##pair? _hd195490195506_)) + (let ((_tl195504195548_ (let () (declare (not safe)) - (##cdr _hd195560195576_))) - (_hd195573195616_ + (##cdr _hd195490195506_))) + (_hd195503195546_ (let () (declare (not safe)) - (##car _hd195560195576_)))) + (##car _hd195490195506_)))) (if (let () (declare (not safe)) - (##eq? _hd195573195616_ + (##eq? _hd195503195546_ 'begin)) - (let ((_exprs195621_ - _tl195574195618_)) + (let ((_exprs195551_ + _tl195504195548_)) (declare (not safe)) - (_K195572195613_ - _exprs195621_)) + (_K195502195543_ + _exprs195551_)) (if (let () (declare (not safe)) - (##eq? _hd195573195616_ + (##eq? _hd195503195546_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl195574195618_)) - (let ((_tl195571195605_ + (##pair? _tl195504195548_)) + (let ((_tl195501195535_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl195574195618_)))) + (##cdr _tl195504195548_)))) (if (let () (declare (not safe)) - (##null? _tl195571195605_)) - (let () (declare (not safe)) (_K195567195597_)) + (##null? _tl195501195535_)) + (let () (declare (not safe)) (_K195497195527_)) (let () (declare (not safe)) - (_try-match195563195592_)))) - (let () (declare (not safe)) (_try-match195563195592_))) - (let () (declare (not safe)) (_try-match195563195592_))))) + (_try-match195493195522_)))) + (let () (declare (not safe)) (_try-match195493195522_))) + (let () (declare (not safe)) (_try-match195493195522_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_try-match195563195592_))))))))) + (_try-match195493195522_))))))))) (if (let () (declare (not safe)) - (##pair? _rest195539195547_)) - (let ((_hd195544195626_ + (##pair? _rest195469195477_)) + (let ((_hd195474195556_ (let () (declare (not safe)) - (##car _rest195539195547_))) - (_tl195545195628_ + (##car _rest195469195477_))) + (_tl195475195558_ (let () (declare (not safe)) - (##cdr _rest195539195547_)))) - (let* ((_hd195631_ _hd195544195626_) - (_rest195633_ _tl195545195628_)) + (##cdr _rest195469195477_)))) + (let* ((_hd195561_ _hd195474195556_) + (_rest195563_ _tl195475195558_)) (declare (not safe)) - (_K195543195623_ _rest195633_ _hd195631_))) + (_K195473195553_ _rest195563_ _hd195561_))) (let () (declare (not safe)) - (_else195541195555_)))))))) - (let* ((_g195491195501_ - (lambda (_g195492195498_) + (_else195471195485_)))))))) + (let* ((_g195421195431_ + (lambda (_g195422195428_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195492195498_)))) - (_g195490195530_ - (lambda (_g195492195504_) + _g195422195428_)))) + (_g195420195460_ + (lambda (_g195422195434_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195492195504_)) - (let ((_e195496195506_ + (gx#stx-pair? _g195422195434_)) + (let ((_e195426195436_ (let () (declare (not safe)) - (gx#stx-e _g195492195504_)))) - (let ((_hd195495195509_ + (gx#stx-e _g195422195434_)))) + (let ((_hd195425195439_ (let () (declare (not safe)) - (##car _e195496195506_))) - (_tl195494195511_ + (##car _e195426195436_))) + (_tl195424195441_ (let () (declare (not safe)) - (##cdr _e195496195506_)))) - ((lambda (_L195514_) - (let* ((_body195525_ - (map gxc#compile-e _L195514_)) - (_body195527_ + (##cdr _e195426195436_)))) + ((lambda (_L195444_) + (let* ((_body195455_ + (map gxc#compile-e _L195444_)) + (_body195457_ (let () (declare (not safe)) - (_simplify195489_ _body195525_)))) - (if (fx= (length _body195527_) '1) - (car _body195527_) + (_simplify195419_ _body195455_)))) + (if (fx= (length _body195457_) '1) + (car _body195457_) (let () (declare (not safe)) - (cons 'begin _body195527_))))) - _tl195494195511_))) + (cons 'begin _body195457_))))) + _tl195424195441_))) (let () (declare (not safe)) - (_g195491195501_ _g195492195504_)))))) + (_g195421195431_ _g195422195434_)))))) (declare (not safe)) - (_g195490195530_ _stx195487_))))) + (_g195420195460_ _stx195417_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_stx195449_) - (let* ((_g195451195461_ - (lambda (_g195452195458_) + (lambda (_stx195379_) + (let* ((_g195381195391_ + (lambda (_g195382195388_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195452195458_)))) - (_g195450195484_ - (lambda (_g195452195464_) + _g195382195388_)))) + (_g195380195414_ + (lambda (_g195382195394_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195452195464_)) - (let ((_e195456195466_ + (gx#stx-pair? _g195382195394_)) + (let ((_e195386195396_ (let () (declare (not safe)) - (gx#stx-e _g195452195464_)))) - (let ((_hd195455195469_ + (gx#stx-e _g195382195394_)))) + (let ((_hd195385195399_ (let () (declare (not safe)) - (##car _e195456195466_))) - (_tl195454195471_ + (##car _e195386195396_))) + (_tl195384195401_ (let () (declare (not safe)) - (##cdr _e195456195466_)))) - ((lambda (_L195474_) - (let ((__tmp203164 + (##cdr _e195386195396_)))) + ((lambda (_L195404_) + (let ((__tmp203094 (let () (declare (not safe)) - (gx#syntax->datum _L195474_)))) + (gx#syntax->datum _L195404_)))) (declare (not safe)) - (cons 'begin __tmp203164))) - _tl195454195471_))) + (cons 'begin __tmp203094))) + _tl195384195401_))) (let () (declare (not safe)) - (_g195451195461_ _g195452195464_)))))) + (_g195381195391_ _g195382195394_)))))) (declare (not safe)) - (_g195450195484_ _stx195449_)))) + (_g195380195414_ _stx195379_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_stx195214_) - (let* ((___stx201747201748_ _stx195214_) - (_g195218195270_ + (lambda (_stx195144_) + (let* ((___stx201677201678_ _stx195144_) + (_g195148195200_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx201747201748_))))) - (let ((___kont201749201750_ - (lambda (_L195431_ _L195432_) + ___stx201677201678_))))) + (let ((___kont201679201680_ + (lambda (_L195361_ _L195362_) (let () (declare (not safe)) - (gxc#compile-e__0 _L195431_)))) - (___kont201751201752_ - (lambda (_L195379_ _L195380_ _L195381_) + (gxc#compile-e__0 _L195361_)))) + (___kont201681201682_ + (lambda (_L195309_ _L195310_ _L195311_) (let () (declare (not safe)) - (gxc#compile-e__0 _L195379_)))) - (___kont201755201756_ - (lambda (_L195299_ _L195300_) - (let ((_decls195315_ (map gx#syntax->datum _L195300_))) - (let ((__tmp203167 + (gxc#compile-e__0 _L195309_)))) + (___kont201685201686_ + (lambda (_L195229_ _L195230_) + (let ((_decls195245_ (map gx#syntax->datum _L195230_))) + (let ((__tmp203097 (lambda () - (let ((__tmp203168 - (let ((__tmp203171 + (let ((__tmp203098 + (let ((__tmp203101 (let () (declare (not safe)) - (cons 'declare _decls195315_))) - (__tmp203169 - (let ((__tmp203170 + (cons 'declare _decls195245_))) + (__tmp203099 + (let ((__tmp203100 (let () (declare (not safe)) (gxc#compile-e__0 - _L195299_)))) + _L195229_)))) (declare (not safe)) - (cons __tmp203170 '())))) + (cons __tmp203100 '())))) (declare (not safe)) - (cons __tmp203171 __tmp203169)))) + (cons __tmp203101 __tmp203099)))) (declare (not safe)) - (cons 'begin __tmp203168)))) - (__tmp203165 - (let ((__tmp203166 (gxc#current-compile-decls))) + (cons 'begin __tmp203098)))) + (__tmp203095 + (let ((__tmp203096 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp203166 _decls195315_)))) + (foldr1 cons __tmp203096 _decls195245_)))) (declare (not safe)) (call-with-parameters - __tmp203167 + __tmp203097 gxc#current-compile-decls - __tmp203165)))))) - (let* ((___match201802201803_ - (lambda (_e195236195323_ - _hd195235195326_ - _tl195234195328_ - _e195239195331_ - _hd195238195334_ - _tl195237195336_ - _e195242195339_ - _hd195241195342_ - _tl195240195344_ - ___splice201753201754_ - _target195243195347_ - _tl195245195349_) - (letrec ((_loop195246195352_ - (lambda (_hd195244195355_ - _param195250195357_) + __tmp203095)))))) + (let* ((___match201732201733_ + (lambda (_e195166195253_ + _hd195165195256_ + _tl195164195258_ + _e195169195261_ + _hd195168195264_ + _tl195167195266_ + _e195172195269_ + _hd195171195272_ + _tl195170195274_ + ___splice201683201684_ + _target195173195277_ + _tl195175195279_) + (letrec ((_loop195176195282_ + (lambda (_hd195174195285_ + _param195180195287_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd195244195355_)) - (let ((_e195247195360_ + (gx#stx-pair? _hd195174195285_)) + (let ((_e195177195290_ (let () (declare (not safe)) - (gx#stx-e _hd195244195355_)))) - (let ((_lp-tl195249195365_ + (gx#stx-e _hd195174195285_)))) + (let ((_lp-tl195179195295_ (let () (declare (not safe)) - (##cdr _e195247195360_))) - (_lp-hd195248195363_ + (##cdr _e195177195290_))) + (_lp-hd195178195293_ (let () (declare (not safe)) - (##car _e195247195360_)))) - (let ((__tmp203173 + (##car _e195177195290_)))) + (let ((__tmp203103 (let () (declare (not safe)) - (cons _lp-hd195248195363_ - _param195250195357_)))) + (cons _lp-hd195178195293_ + _param195180195287_)))) (declare (not safe)) - (_loop195246195352_ - _lp-tl195249195365_ - __tmp203173)))) - (let ((_param195251195368_ - (reverse _param195250195357_))) + (_loop195176195282_ + _lp-tl195179195295_ + __tmp203103)))) + (let ((_param195181195298_ + (reverse _param195180195287_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl195237195336_)) - (let ((_e195254195371_ + _tl195167195266_)) + (let ((_e195184195301_ (let () (declare (not safe)) (gx#stx-e - _tl195237195336_)))) - (let ((_tl195252195376_ + _tl195167195266_)))) + (let ((_tl195182195306_ (let () (declare (not safe)) - (##cdr _e195254195371_))) - (_hd195253195374_ + (##cdr _e195184195301_))) + (_hd195183195304_ (let () (declare (not safe)) - (##car _e195254195371_)))) + (##car _e195184195301_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195252195376_)) - (let ((_L195379_ - _hd195253195374_) - (_L195380_ - _param195251195368_) - (_L195381_ - _hd195241195342_)) + _tl195182195306_)) + (let ((_L195309_ + _hd195183195304_) + (_L195310_ + _param195181195298_) + (_L195311_ + _hd195171195272_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L195381_)) - (let ((__tmp203172 + (gx#identifier? _L195311_)) + (let ((__tmp203102 (memq (let () (declare (not safe)) - (gx#stx-e _L195381_)) + (gx#stx-e _L195311_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp203172))) - (___kont201751201752_ _L195379_ _L195380_ _L195381_) - (___kont201755201756_ _hd195253195374_ _hd195238195334_))) - (let () (declare (not safe)) (_g195218195270_))))) + (not __tmp203102))) + (___kont201681201682_ _L195309_ _L195310_ _L195311_) + (___kont201685201686_ _hd195183195304_ _hd195168195264_))) + (let () (declare (not safe)) (_g195148195200_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g195218195270_)))))))) + (_g195148195200_)))))))) (let () (declare (not safe)) - (_loop195246195352_ _target195243195347_ '()))))) - (___match201776201777_ - (lambda (_e195224195407_ - _hd195223195410_ - _tl195222195412_ - _e195227195415_ - _hd195226195418_ - _tl195225195420_ - _e195230195423_ - _hd195229195426_ - _tl195228195428_) - (let ((_L195431_ _hd195229195426_) - (_L195432_ _hd195226195418_)) + (_loop195176195282_ _target195173195277_ '()))))) + (___match201706201707_ + (lambda (_e195154195337_ + _hd195153195340_ + _tl195152195342_ + _e195157195345_ + _hd195156195348_ + _tl195155195350_ + _e195160195353_ + _hd195159195356_ + _tl195158195358_) + (let ((_L195361_ _hd195159195356_) + (_L195362_ _hd195156195348_)) (if (let () (declare (not safe)) - (gx#identifier? _L195432_)) - (___kont201749201750_ _L195431_ _L195432_) + (gx#identifier? _L195362_)) + (___kont201679201680_ _L195361_ _L195362_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd195226195418_)) - (let ((_e195242195339_ + (gx#stx-pair? _hd195156195348_)) + (let ((_e195172195269_ (let () (declare (not safe)) - (gx#stx-e _hd195226195418_)))) - (let ((_tl195240195344_ + (gx#stx-e _hd195156195348_)))) + (let ((_tl195170195274_ (let () (declare (not safe)) - (##cdr _e195242195339_))) - (_hd195241195342_ + (##cdr _e195172195269_))) + (_hd195171195272_ (let () (declare (not safe)) - (##car _e195242195339_)))) + (##car _e195172195269_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl195240195344_)) - (let ((___splice201753201754_ + _tl195170195274_)) + (let ((___splice201683201684_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl195240195344_ + _tl195170195274_ '0)))) - (let ((_tl195245195349_ + (let ((_tl195175195279_ (let () (declare (not safe)) (##vector-ref - ___splice201753201754_ + ___splice201683201684_ '1))) - (_target195243195347_ + (_target195173195277_ (let () (declare (not safe)) (##vector-ref - ___splice201753201754_ + ___splice201683201684_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195245195349_)) - (___match201802201803_ - _e195224195407_ - _hd195223195410_ - _tl195222195412_ - _e195227195415_ - _hd195226195418_ - _tl195225195420_ - _e195242195339_ - _hd195241195342_ - _tl195240195344_ - ___splice201753201754_ - _target195243195347_ - _tl195245195349_) - (___kont201755201756_ - _hd195229195426_ - _hd195226195418_)))) - (___kont201755201756_ - _hd195229195426_ - _hd195226195418_)))) - (___kont201755201756_ - _hd195229195426_ - _hd195226195418_))))))) + _tl195175195279_)) + (___match201732201733_ + _e195154195337_ + _hd195153195340_ + _tl195152195342_ + _e195157195345_ + _hd195156195348_ + _tl195155195350_ + _e195172195269_ + _hd195171195272_ + _tl195170195274_ + ___splice201683201684_ + _target195173195277_ + _tl195175195279_) + (___kont201685201686_ + _hd195159195356_ + _hd195156195348_)))) + (___kont201685201686_ + _hd195159195356_ + _hd195156195348_)))) + (___kont201685201686_ + _hd195159195356_ + _hd195156195348_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx201747201748_)) - (let ((_e195224195407_ + (gx#stx-pair? ___stx201677201678_)) + (let ((_e195154195337_ (let () (declare (not safe)) - (gx#stx-e ___stx201747201748_)))) - (let ((_tl195222195412_ + (gx#stx-e ___stx201677201678_)))) + (let ((_tl195152195342_ (let () (declare (not safe)) - (##cdr _e195224195407_))) - (_hd195223195410_ + (##cdr _e195154195337_))) + (_hd195153195340_ (let () (declare (not safe)) - (##car _e195224195407_)))) + (##car _e195154195337_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195222195412_)) - (let ((_e195227195415_ + (gx#stx-pair? _tl195152195342_)) + (let ((_e195157195345_ (let () (declare (not safe)) - (gx#stx-e _tl195222195412_)))) - (let ((_tl195225195420_ + (gx#stx-e _tl195152195342_)))) + (let ((_tl195155195350_ (let () (declare (not safe)) - (##cdr _e195227195415_))) - (_hd195226195418_ + (##cdr _e195157195345_))) + (_hd195156195348_ (let () (declare (not safe)) - (##car _e195227195415_)))) + (##car _e195157195345_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195225195420_)) - (let ((_e195230195423_ + (gx#stx-pair? _tl195155195350_)) + (let ((_e195160195353_ (let () (declare (not safe)) - (gx#stx-e _tl195225195420_)))) - (let ((_tl195228195428_ + (gx#stx-e _tl195155195350_)))) + (let ((_tl195158195358_ (let () (declare (not safe)) - (##cdr _e195230195423_))) - (_hd195229195426_ + (##cdr _e195160195353_))) + (_hd195159195356_ (let () (declare (not safe)) - (##car _e195230195423_)))) + (##car _e195160195353_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl195228195428_)) - (___match201776201777_ - _e195224195407_ - _hd195223195410_ - _tl195222195412_ - _e195227195415_ - _hd195226195418_ - _tl195225195420_ - _e195230195423_ - _hd195229195426_ - _tl195228195428_) + (gx#stx-null? _tl195158195358_)) + (___match201706201707_ + _e195154195337_ + _hd195153195340_ + _tl195152195342_ + _e195157195345_ + _hd195156195348_ + _tl195155195350_ + _e195160195353_ + _hd195159195356_ + _tl195158195358_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd195226195418_)) - (let ((_e195242195339_ + _hd195156195348_)) + (let ((_e195172195269_ (let () (declare (not safe)) (gx#stx-e - _hd195226195418_)))) - (let ((_tl195240195344_ + _hd195156195348_)))) + (let ((_tl195170195274_ (let () (declare (not safe)) - (##cdr _e195242195339_))) - (_hd195241195342_ + (##cdr _e195172195269_))) + (_hd195171195272_ (let () (declare (not safe)) - (##car _e195242195339_)))) + (##car _e195172195269_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl195240195344_)) - (let ((___splice201753201754_ + _tl195170195274_)) + (let ((___splice201683201684_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl195240195344_ '0)))) - (let ((_tl195245195349_ + (gx#syntax-split-splice _tl195170195274_ '0)))) + (let ((_tl195175195279_ (let () (declare (not safe)) - (##vector-ref ___splice201753201754_ '1))) - (_target195243195347_ + (##vector-ref ___splice201683201684_ '1))) + (_target195173195277_ (let () (declare (not safe)) - (##vector-ref ___splice201753201754_ '0)))) + (##vector-ref ___splice201683201684_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl195245195349_)) - (___match201802201803_ - _e195224195407_ - _hd195223195410_ - _tl195222195412_ - _e195227195415_ - _hd195226195418_ - _tl195225195420_ - _e195242195339_ - _hd195241195342_ - _tl195240195344_ - ___splice201753201754_ - _target195243195347_ - _tl195245195349_) - (let () (declare (not safe)) (_g195218195270_))))) - (let () (declare (not safe)) (_g195218195270_))))) + (gx#stx-null? _tl195175195279_)) + (___match201732201733_ + _e195154195337_ + _hd195153195340_ + _tl195152195342_ + _e195157195345_ + _hd195156195348_ + _tl195155195350_ + _e195172195269_ + _hd195171195272_ + _tl195170195274_ + ___splice201683201684_ + _target195173195277_ + _tl195175195279_) + (let () (declare (not safe)) (_g195148195200_))))) + (let () (declare (not safe)) (_g195148195200_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g195218195270_)))))) + (_g195148195200_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd195226195418_)) - (let ((_e195242195339_ + (gx#stx-pair? _hd195156195348_)) + (let ((_e195172195269_ (let () (declare (not safe)) - (gx#stx-e _hd195226195418_)))) - (let ((_tl195240195344_ + (gx#stx-e _hd195156195348_)))) + (let ((_tl195170195274_ (let () (declare (not safe)) - (##cdr _e195242195339_))) - (_hd195241195342_ + (##cdr _e195172195269_))) + (_hd195171195272_ (let () (declare (not safe)) - (##car _e195242195339_)))) + (##car _e195172195269_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl195240195344_)) - (let ((___splice201753201754_ + _tl195170195274_)) + (let ((___splice201683201684_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl195240195344_ + _tl195170195274_ '0)))) - (let ((_tl195245195349_ + (let ((_tl195175195279_ (let () (declare (not safe)) (##vector-ref - ___splice201753201754_ + ___splice201683201684_ '1))) - (_target195243195347_ + (_target195173195277_ (let () (declare (not safe)) (##vector-ref - ___splice201753201754_ + ___splice201683201684_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195245195349_)) - (___match201802201803_ - _e195224195407_ - _hd195223195410_ - _tl195222195412_ - _e195227195415_ - _hd195226195418_ - _tl195225195420_ - _e195242195339_ - _hd195241195342_ - _tl195240195344_ - ___splice201753201754_ - _target195243195347_ - _tl195245195349_) + _tl195175195279_)) + (___match201732201733_ + _e195154195337_ + _hd195153195340_ + _tl195152195342_ + _e195157195345_ + _hd195156195348_ + _tl195155195350_ + _e195172195269_ + _hd195171195272_ + _tl195170195274_ + ___splice201683201684_ + _target195173195277_ + _tl195175195279_) (let () (declare (not safe)) - (_g195218195270_))))) + (_g195148195200_))))) (let () (declare (not safe)) - (_g195218195270_))))) + (_g195148195200_))))) (let () (declare (not safe)) - (_g195218195270_)))))) - (let () (declare (not safe)) (_g195218195270_))))) - (let () (declare (not safe)) (_g195218195270_)))))))) + (_g195148195200_)))))) + (let () (declare (not safe)) (_g195148195200_))))) + (let () (declare (not safe)) (_g195148195200_)))))))) (define gxc#generate-runtime-declare% - (lambda (_stx195174_) - (let* ((_g195176195186_ - (lambda (_g195177195183_) + (lambda (_stx195104_) + (let* ((_g195106195116_ + (lambda (_g195107195113_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195177195183_)))) - (_g195175195211_ - (lambda (_g195177195189_) + _g195107195113_)))) + (_g195105195141_ + (lambda (_g195107195119_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195177195189_)) - (let ((_e195181195191_ + (gx#stx-pair? _g195107195119_)) + (let ((_e195111195121_ (let () (declare (not safe)) - (gx#stx-e _g195177195189_)))) - (let ((_hd195180195194_ + (gx#stx-e _g195107195119_)))) + (let ((_hd195110195124_ (let () (declare (not safe)) - (##car _e195181195191_))) - (_tl195179195196_ + (##car _e195111195121_))) + (_tl195109195126_ (let () (declare (not safe)) - (##cdr _e195181195191_)))) - ((lambda (_L195199_) - (let ((_decls195209_ - (map gx#syntax->datum _L195199_))) + (##cdr _e195111195121_)))) + ((lambda (_L195129_) + (let ((_decls195139_ + (map gx#syntax->datum _L195129_))) (gxc#current-compile-decls - (let ((__tmp203174 + (let ((__tmp203104 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp203174 _decls195209_))) + (foldr1 cons __tmp203104 _decls195139_))) (let () (declare (not safe)) - (cons 'declare _decls195209_)))) - _tl195179195196_))) + (cons 'declare _decls195139_)))) + _tl195109195126_))) (let () (declare (not safe)) - (_g195176195186_ _g195177195189_)))))) + (_g195106195116_ _g195107195119_)))))) (declare (not safe)) - (_g195175195211_ _stx195174_)))) + (_g195105195141_ _stx195104_)))) (define gxc#generate-runtime-define-values% - (lambda (_stx194921_) - (let* ((_g194923194940_ - (lambda (_g194924194937_) + (lambda (_stx194851_) + (let* ((_g194853194870_ + (lambda (_g194854194867_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194924194937_)))) - (_g194922195171_ - (lambda (_g194924194943_) + _g194854194867_)))) + (_g194852195101_ + (lambda (_g194854194873_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194924194943_)) - (let ((_e194929194945_ + (gx#stx-pair? _g194854194873_)) + (let ((_e194859194875_ (let () (declare (not safe)) - (gx#stx-e _g194924194943_)))) - (let ((_hd194928194948_ + (gx#stx-e _g194854194873_)))) + (let ((_hd194858194878_ (let () (declare (not safe)) - (##car _e194929194945_))) - (_tl194927194950_ + (##car _e194859194875_))) + (_tl194857194880_ (let () (declare (not safe)) - (##cdr _e194929194945_)))) + (##cdr _e194859194875_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194927194950_)) - (let ((_e194932194953_ + (gx#stx-pair? _tl194857194880_)) + (let ((_e194862194883_ (let () (declare (not safe)) - (gx#stx-e _tl194927194950_)))) - (let ((_hd194931194956_ + (gx#stx-e _tl194857194880_)))) + (let ((_hd194861194886_ (let () (declare (not safe)) - (##car _e194932194953_))) - (_tl194930194958_ + (##car _e194862194883_))) + (_tl194860194888_ (let () (declare (not safe)) - (##cdr _e194932194953_)))) + (##cdr _e194862194883_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194930194958_)) - (let ((_e194935194961_ + (gx#stx-pair? _tl194860194888_)) + (let ((_e194865194891_ (let () (declare (not safe)) - (gx#stx-e _tl194930194958_)))) - (let ((_hd194934194964_ + (gx#stx-e _tl194860194888_)))) + (let ((_hd194864194894_ (let () (declare (not safe)) - (##car _e194935194961_))) - (_tl194933194966_ + (##car _e194865194891_))) + (_tl194863194896_ (let () (declare (not safe)) - (##cdr _e194935194961_)))) + (##cdr _e194865194891_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194933194966_)) - ((lambda (_L194969_ _L194970_) - (let* ((___stx201855201856_ - _L194970_) - (_g194987195001_ + _tl194863194896_)) + ((lambda (_L194899_ _L194900_) + (let* ((___stx201785201786_ + _L194900_) + (_g194917194931_ (lambda () (let () (declare @@ -4641,10605 +4641,10605 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx201855201856_))))) + ___stx201785201786_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___kont201857201858_ + (let ((___kont201787201788_ (lambda () (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L194969_)))) - (___kont201859201860_ - (lambda (_L195133_) - (let ((_eid195142_ + (gxc#compile-e__0 _L194899_)))) + (___kont201789201790_ + (lambda (_L195063_) + (let ((_eid195072_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L195133_)))) - (let ((_lambda-expr195143195145_ + (gxc#generate-runtime-binding-id _L195063_)))) + (let ((_lambda-expr195073195075_ (let () (declare (not safe)) (gxc#apply-find-lambda-expression - _L194969_)))) - (if _lambda-expr195143195145_ - (let* ((_lambda-expr195148_ - _lambda-expr195143195145_) - (__tmp203175 + _L194899_)))) + (if _lambda-expr195073195075_ + (let* ((_lambda-expr195078_ + _lambda-expr195073195075_) + (__tmp203105 (gxc#current-compile-runtime-names))) (declare (not safe)) (table-set! - __tmp203175 - _lambda-expr195148_ - _eid195142_)) + __tmp203105 + _lambda-expr195078_ + _eid195072_)) '#f)) - (let ((__tmp203176 - (let ((__tmp203177 - (let ((__tmp203178 + (let ((__tmp203106 + (let ((__tmp203107 + (let ((__tmp203108 (let () (declare (not safe)) - (gxc#compile-e__0 _L194969_)))) + (gxc#compile-e__0 _L194899_)))) (declare (not safe)) - (cons __tmp203178 '())))) + (cons __tmp203108 '())))) (declare (not safe)) - (cons _eid195142_ __tmp203177)))) + (cons _eid195072_ __tmp203107)))) (declare (not safe)) - (cons 'define __tmp203176))))) - (___kont201861201862_ + (cons 'define __tmp203106))))) + (___kont201791201792_ (lambda () - (let* ((_tmp195008_ + (let* ((_tmp194938_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_body195117_ - (let _lp195010_ ((_rest195012_ _L194970_) - (_k195013_ '0) - (_r195014_ '())) - (let* ((___stx201825201826_ _rest195012_) - (_g195019195036_ + (_body195047_ + (let _lp194940_ ((_rest194942_ _L194900_) + (_k194943_ '0) + (_r194944_ '())) + (let* ((___stx201755201756_ _rest194942_) + (_g194949194966_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx201825201826_))))) - (let ((___kont201827201828_ - (lambda (_L195104_) - (let ((__tmp203179 + ___stx201755201756_))))) + (let ((___kont201757201758_ + (lambda (_L195034_) + (let ((__tmp203109 (let () (declare (not safe)) - (fx+ _k195013_ '1)))) + (fx+ _k194943_ '1)))) (declare (not safe)) - (_lp195010_ - _L195104_ - __tmp203179 - _r195014_)))) - (___kont201829201830_ - (lambda (_L195077_ _L195078_) - (let ((__tmp203186 + (_lp194940_ + _L195034_ + __tmp203109 + _r194944_)))) + (___kont201759201760_ + (lambda (_L195007_ _L195008_) + (let ((__tmp203116 (let () (declare (not safe)) - (fx+ _k195013_ '1))) - (__tmp203180 - (let ((__tmp203181 - (let ((__tmp203182 - (let ((__tmp203185 + (fx+ _k194943_ '1))) + (__tmp203110 + (let ((__tmp203111 + (let ((__tmp203112 + (let ((__tmp203115 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L195078_))) - (__tmp203183 - (let ((__tmp203184 + (gxc#generate-runtime-binding-id _L195008_))) + (__tmp203113 + (let ((__tmp203114 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _tmp195008_ - _k195013_ - _L195077_)))) + _tmp194938_ + _k194943_ + _L195007_)))) (declare (not safe)) - (cons __tmp203184 '())))) + (cons __tmp203114 '())))) (declare (not safe)) - (cons __tmp203185 __tmp203183)))) + (cons __tmp203115 __tmp203113)))) (declare (not safe)) - (cons 'define __tmp203182)))) + (cons 'define __tmp203112)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203181 - _r195014_)))) + (cons __tmp203111 + _r194944_)))) (declare (not safe)) - (_lp195010_ - _L195077_ - __tmp203186 - __tmp203180)))) - (___kont201831201832_ - (lambda (_L195048_) - (let ((__tmp203187 - (let ((__tmp203188 - (let ((__tmp203189 - (let ((__tmp203192 + (_lp194940_ + _L195007_ + __tmp203116 + __tmp203110)))) + (___kont201761201762_ + (lambda (_L194978_) + (let ((__tmp203117 + (let ((__tmp203118 + (let ((__tmp203119 + (let ((__tmp203122 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L195048_))) - (__tmp203190 - (let ((__tmp203191 + (gxc#generate-runtime-binding-id _L194978_))) + (__tmp203120 + (let ((__tmp203121 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _tmp195008_ - _k195013_)))) + _tmp194938_ + _k194943_)))) (declare (not safe)) - (cons __tmp203191 '())))) + (cons __tmp203121 '())))) (declare (not safe)) - (cons __tmp203192 __tmp203190)))) + (cons __tmp203122 __tmp203120)))) (declare (not safe)) - (cons 'define __tmp203189)))) + (cons 'define __tmp203119)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203188 '())))) + (cons __tmp203118 '())))) (declare (not safe)) (foldl1 cons - __tmp203187 - _r195014_)))) - (___kont201833201834_ - (lambda () (reverse _r195014_)))) - (let ((_g195017195064_ + __tmp203117 + _r194944_)))) + (___kont201763201764_ + (lambda () (reverse _r194944_)))) + (let ((_g194947194994_ (lambda () - (let ((_L195048_ - ___stx201825201826_)) + (let ((_L194978_ + ___stx201755201756_)) (if (let () (declare (not safe)) (gx#identifier? - _L195048_)) - (___kont201831201832_ - _L195048_) - (___kont201833201834_)))))) + _L194978_)) + (___kont201761201762_ + _L194978_) + (___kont201763201764_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx201825201826_)) - (let ((_e195024195093_ + (gx#stx-pair? ___stx201755201756_)) + (let ((_e194954195023_ (let () (declare (not safe)) (gx#stx-e - ___stx201825201826_)))) - (let ((_tl195022195098_ + ___stx201755201756_)))) + (let ((_tl194952195028_ (let () (declare (not safe)) - (##cdr _e195024195093_))) - (_hd195023195096_ + (##cdr _e194954195023_))) + (_hd194953195026_ (let () (declare (not safe)) - (##car _e195024195093_)))) + (##car _e194954195023_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd195023195096_)) - (let ((_e195025195101_ + _hd194953195026_)) + (let ((_e194955195031_ (let () (declare (not safe)) (gx#stx-e - _hd195023195096_)))) + _hd194953195026_)))) (if (let () (declare (not safe)) - (equal? _e195025195101_ + (equal? _e194955195031_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (___kont201827201828_ _tl195022195098_) - (___kont201829201830_ _tl195022195098_ _hd195023195096_))) + (___kont201757201758_ _tl194952195028_) + (___kont201759201760_ _tl194952195028_ _hd194953195026_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont201829201830_ - _tl195022195098_ - _hd195023195096_)))) + (___kont201759201760_ + _tl194952195028_ + _hd194953195026_)))) (let () (declare (not safe)) - (_g195017195064_))))))))) - (let ((__tmp203193 - (let ((__tmp203196 - (let ((__tmp203197 - (let ((__tmp203198 - (let ((__tmp203199 + (_g194947194994_))))))))) + (let ((__tmp203123 + (let ((__tmp203126 + (let ((__tmp203127 + (let ((__tmp203128 + (let ((__tmp203129 (let () (declare (not safe)) (gxc#compile-e__0 - _L194969_)))) + _L194899_)))) (declare (not safe)) - (cons __tmp203199 '())))) + (cons __tmp203129 '())))) (declare (not safe)) - (cons _tmp195008_ - __tmp203198)))) + (cons _tmp194938_ + __tmp203128)))) (declare (not safe)) - (cons 'define __tmp203197))) - (__tmp203194 - (let ((__tmp203195 + (cons 'define __tmp203127))) + (__tmp203124 + (let ((__tmp203125 (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp195008_ - _L194970_ - _L194969_)))) + _tmp194938_ + _L194900_ + _L194899_)))) (declare (not safe)) - (cons __tmp203195 _body195117_)))) + (cons __tmp203125 _body195047_)))) (declare (not safe)) - (cons __tmp203196 __tmp203194)))) + (cons __tmp203126 __tmp203124)))) (declare (not safe)) - (cons 'begin __tmp203193)))))) + (cons 'begin __tmp203123)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx201855201856_)) - (let ((_e194991195155_ + (gx#stx-pair? ___stx201785201786_)) + (let ((_e194921195085_ (let () (declare (not safe)) - (gx#stx-e ___stx201855201856_)))) - (let ((_tl194989195160_ + (gx#stx-e ___stx201785201786_)))) + (let ((_tl194919195090_ (let () (declare (not safe)) - (##cdr _e194991195155_))) - (_hd194990195158_ + (##cdr _e194921195085_))) + (_hd194920195088_ (let () (declare (not safe)) - (##car _e194991195155_)))) + (##car _e194921195085_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd194990195158_)) - (let ((_e194992195163_ + (gx#stx-datum? _hd194920195088_)) + (let ((_e194922195093_ (let () (declare (not safe)) - (gx#stx-e _hd194990195158_)))) + (gx#stx-e _hd194920195088_)))) (if (let () (declare (not safe)) - (equal? _e194992195163_ '#f)) + (equal? _e194922195093_ '#f)) (if (let () (declare (not safe)) - (gx#stx-null? _tl194989195160_)) - (___kont201857201858_) - (___kont201861201862_)) + (gx#stx-null? _tl194919195090_)) + (___kont201787201788_) + (___kont201791201792_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl194989195160_)) - (___kont201859201860_ _hd194990195158_) - (___kont201861201862_)))) + (gx#stx-null? _tl194919195090_)) + (___kont201789201790_ _hd194920195088_) + (___kont201791201792_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194989195160_)) - (___kont201859201860_ _hd194990195158_) - (___kont201861201862_))))) - (___kont201861201862_))))) + (gx#stx-null? _tl194919195090_)) + (___kont201789201790_ _hd194920195088_) + (___kont201791201792_))))) + (___kont201791201792_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd194934194964_ - _hd194931194956_) + _hd194864194894_ + _hd194861194886_) (let () (declare (not safe)) - (_g194923194940_ - _g194924194943_))))) + (_g194853194870_ + _g194854194873_))))) (let () (declare (not safe)) - (_g194923194940_ _g194924194943_))))) + (_g194853194870_ _g194854194873_))))) (let () (declare (not safe)) - (_g194923194940_ _g194924194943_))))) + (_g194853194870_ _g194854194873_))))) (let () (declare (not safe)) - (_g194923194940_ _g194924194943_)))))) + (_g194853194870_ _g194854194873_)))))) (declare (not safe)) - (_g194922195171_ _stx194921_)))) + (_g194852195101_ _stx194851_)))) (define gxc#generate-runtime-check-values - (lambda (_vals194897_ _hd194898_ _expr194899_) - (let ((_$e194901_ + (lambda (_vals194827_ _hd194828_ _expr194829_) + (let ((_$e194831_ (let () (declare (not safe)) - (gxc#apply-count-values _expr194899_)))) - (if _$e194901_ - ((lambda (_count194904_) - (let ((_len194906_ + (gxc#apply-count-values _expr194829_)))) + (if _$e194831_ + ((lambda (_count194834_) + (let ((_len194836_ (let () (declare (not safe)) - (gx#stx-length _hd194898_))) - (_cmp194907_ + (gx#stx-length _hd194828_))) + (_cmp194837_ (if (let () (declare (not safe)) - (gx#stx-list? _hd194898_)) + (gx#stx-list? _hd194828_)) fx= fx>=))) - (if (or (fx= _len194906_ '0) - (_cmp194907_ _count194904_ _len194906_)) + (if (or (fx= _len194836_ '0) + (_cmp194837_ _count194834_ _len194836_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _expr194899_ - _hd194898_))))) - _$e194901_) - (let* ((_len194912_ + _expr194829_ + _hd194828_))))) + _$e194831_) + (let* ((_len194842_ (let () (declare (not safe)) - (gx#stx-length _hd194898_))) - (_cmp194914_ + (gx#stx-length _hd194828_))) + (_cmp194844_ (if (let () (declare (not safe)) - (gx#stx-list? _hd194898_)) + (gx#stx-list? _hd194828_)) '##fx= '##fx>=)) - (_errmsg194916_ + (_errmsg194846_ (string-append (if (let () (declare (not safe)) - (gx#stx-list? _hd194898_)) + (gx#stx-list? _hd194828_)) '"Context expects " '"Context expects at least ") - (number->string _len194912_) + (number->string _len194842_) '" values")) - (_count194918_ + (_count194848_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) - (if (and (let ((__tmp203223 + (if (and (let ((__tmp203153 (let () (declare (not safe)) - (gx#stx-list? _hd194898_)))) + (gx#stx-list? _hd194828_)))) (declare (not safe)) - (not __tmp203223)) - (fx= _len194912_ '0)) + (not __tmp203153)) + (fx= _len194842_ '0)) '#!void - (let ((__tmp203200 - (let ((__tmp203219 - (let ((__tmp203220 - (let ((__tmp203221 - (let ((__tmp203222 + (let ((__tmp203130 + (let ((__tmp203149 + (let ((__tmp203150 + (let ((__tmp203151 + (let ((__tmp203152 (let () (declare (not safe)) (gxc#generate-runtime-values-count - _vals194897_)))) + _vals194827_)))) (declare (not safe)) - (cons __tmp203222 '())))) + (cons __tmp203152 '())))) (declare (not safe)) - (cons _count194918_ - __tmp203221)))) + (cons _count194848_ + __tmp203151)))) (declare (not safe)) - (cons __tmp203220 '()))) - (__tmp203201 - (let ((__tmp203202 - (let ((__tmp203203 - (let ((__tmp203208 - (let ((__tmp203209 - (let ((__tmp203210 + (cons __tmp203150 '()))) + (__tmp203131 + (let ((__tmp203132 + (let ((__tmp203133 + (let ((__tmp203138 + (let ((__tmp203139 + (let ((__tmp203140 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203217 - (let ((__tmp203218 + (let ((__tmp203147 + (let ((__tmp203148 (let () (declare (not safe)) - (cons _len194912_ '())))) + (cons _len194842_ '())))) (declare (not safe)) - (cons _count194918_ __tmp203218)))) + (cons _count194848_ __tmp203148)))) (declare (not safe)) - (cons _cmp194914_ __tmp203217)) - (let ((__tmp203211 - (let ((__tmp203212 - (let ((__tmp203213 - (let ((__tmp203214 - (let ((__tmp203215 + (cons _cmp194844_ __tmp203147)) + (let ((__tmp203141 + (let ((__tmp203142 + (let ((__tmp203143 + (let ((__tmp203144 + (let ((__tmp203145 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203216 + (let ((__tmp203146 (let () (declare (not safe)) - (cons _len194912_ '())))) + (cons _len194842_ '())))) (declare (not safe)) - (cons _count194918_ __tmp203216)))) + (cons _count194848_ __tmp203146)))) (declare (not safe)) - (cons _cmp194914_ __tmp203215)))) + (cons _cmp194844_ __tmp203145)))) (declare (not safe)) - (cons __tmp203214 '())))) + (cons __tmp203144 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp203213)))) + __tmp203143)))) (declare (not safe)) - (cons '() __tmp203212)))) + (cons '() __tmp203142)))) (declare (not safe)) - (cons 'let __tmp203211))))) + (cons 'let __tmp203141))))) (declare (not safe)) - (cons __tmp203210 '())))) + (cons __tmp203140 '())))) (declare (not safe)) - (cons 'not __tmp203209))) - (__tmp203204 - (let ((__tmp203205 - (let ((__tmp203206 - (let ((__tmp203207 + (cons 'not __tmp203139))) + (__tmp203134 + (let ((__tmp203135 + (let ((__tmp203136 + (let ((__tmp203137 (let () (declare (not safe)) - (cons _count194918_ '())))) + (cons _count194848_ '())))) (declare (not safe)) - (cons _errmsg194916_ __tmp203207)))) + (cons _errmsg194846_ __tmp203137)))) (declare (not safe)) - (cons 'error __tmp203206)))) + (cons 'error __tmp203136)))) (declare (not safe)) - (cons __tmp203205 '())))) + (cons __tmp203135 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203208 - __tmp203204)))) + (cons __tmp203138 + __tmp203134)))) (declare (not safe)) - (cons 'if __tmp203203)))) + (cons 'if __tmp203133)))) (declare (not safe)) - (cons __tmp203202 '())))) + (cons __tmp203132 '())))) (declare (not safe)) - (cons __tmp203219 __tmp203201)))) + (cons __tmp203149 __tmp203131)))) (declare (not safe)) - (cons 'let __tmp203200)))))))) + (cons 'let __tmp203130)))))))) (define gxc#generate-runtime-values-count - (lambda (_var194892_) - (letrec ((_generate-inline194894_ + (lambda (_var194822_) + (letrec ((_generate-inline194824_ (lambda () - (let ((__tmp203224 - (let ((__tmp203229 - (let ((__tmp203230 + (let ((__tmp203154 + (let ((__tmp203159 + (let ((__tmp203160 (let () (declare (not safe)) - (cons _var194892_ '())))) + (cons _var194822_ '())))) (declare (not safe)) - (cons '##values? __tmp203230))) - (__tmp203225 - (let ((__tmp203227 - (let ((__tmp203228 + (cons '##values? __tmp203160))) + (__tmp203155 + (let ((__tmp203157 + (let ((__tmp203158 (let () (declare (not safe)) - (cons _var194892_ '())))) + (cons _var194822_ '())))) (declare (not safe)) (cons '##vector-length - __tmp203228))) - (__tmp203226 + __tmp203158))) + (__tmp203156 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp203227 __tmp203226)))) + (cons __tmp203157 __tmp203156)))) (declare (not safe)) - (cons __tmp203229 __tmp203225)))) + (cons __tmp203159 __tmp203155)))) (declare (not safe)) - (cons 'if __tmp203224))))) + (cons 'if __tmp203154))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline194894_)) - (let ((__tmp203231 - (let ((__tmp203232 - (let ((__tmp203233 - (let ((__tmp203234 + (let () (declare (not safe)) (_generate-inline194824_)) + (let ((__tmp203161 + (let ((__tmp203162 + (let ((__tmp203163 + (let ((__tmp203164 (let () (declare (not safe)) - (_generate-inline194894_)))) + (_generate-inline194824_)))) (declare (not safe)) - (cons __tmp203234 '())))) + (cons __tmp203164 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp203233)))) + (cons '(declare (not safe)) __tmp203163)))) (declare (not safe)) - (cons '() __tmp203232)))) + (cons '() __tmp203162)))) (declare (not safe)) - (cons 'let __tmp203231)))))) + (cons 'let __tmp203161)))))) (define gxc#generate-runtime-values-ref - (lambda (_var194885_ _i194886_ _rest194887_) - (letrec ((_generate-inline194889_ + (lambda (_var194815_ _i194816_ _rest194817_) + (letrec ((_generate-inline194819_ (lambda () - (if (and (fx= _i194886_ '0) - (let ((__tmp203245 + (if (and (fx= _i194816_ '0) + (let ((__tmp203175 (let () (declare (not safe)) - (gx#stx-pair? _rest194887_)))) + (gx#stx-pair? _rest194817_)))) (declare (not safe)) - (not __tmp203245))) - (let ((__tmp203237 - (let ((__tmp203243 - (let ((__tmp203244 + (not __tmp203175))) + (let ((__tmp203167 + (let ((__tmp203173 + (let ((__tmp203174 (let () (declare (not safe)) - (cons _var194885_ '())))) + (cons _var194815_ '())))) (declare (not safe)) - (cons '##values? __tmp203244))) - (__tmp203238 - (let ((__tmp203240 - (let ((__tmp203241 - (let ((__tmp203242 + (cons '##values? __tmp203174))) + (__tmp203168 + (let ((__tmp203170 + (let ((__tmp203171 + (let ((__tmp203172 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _var194885_ __tmp203242)))) + (cons _var194815_ __tmp203172)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp203241))) - (__tmp203239 + __tmp203171))) + (__tmp203169 (let () (declare (not safe)) - (cons _var194885_ '())))) + (cons _var194815_ '())))) (declare (not safe)) - (cons __tmp203240 __tmp203239)))) + (cons __tmp203170 __tmp203169)))) (declare (not safe)) - (cons __tmp203243 __tmp203238)))) + (cons __tmp203173 __tmp203168)))) (declare (not safe)) - (cons 'if __tmp203237)) - (let ((__tmp203235 - (let ((__tmp203236 + (cons 'if __tmp203167)) + (let ((__tmp203165 + (let ((__tmp203166 (let () (declare (not safe)) - (cons _i194886_ '())))) + (cons _i194816_ '())))) (declare (not safe)) - (cons _var194885_ __tmp203236)))) + (cons _var194815_ __tmp203166)))) (declare (not safe)) - (cons '##vector-ref __tmp203235)))))) + (cons '##vector-ref __tmp203165)))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline194889_)) - (let ((__tmp203246 - (let ((__tmp203247 - (let ((__tmp203248 - (let ((__tmp203249 + (let () (declare (not safe)) (_generate-inline194819_)) + (let ((__tmp203176 + (let ((__tmp203177 + (let ((__tmp203178 + (let ((__tmp203179 (let () (declare (not safe)) - (_generate-inline194889_)))) + (_generate-inline194819_)))) (declare (not safe)) - (cons __tmp203249 '())))) + (cons __tmp203179 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp203248)))) + (cons '(declare (not safe)) __tmp203178)))) (declare (not safe)) - (cons '() __tmp203247)))) + (cons '() __tmp203177)))) (declare (not safe)) - (cons 'let __tmp203246)))))) + (cons 'let __tmp203176)))))) (define gxc#generate-runtime-values->list - (lambda (_var194882_ _i194883_) - (if (fx= _i194883_ '0) + (lambda (_var194812_ _i194813_) + (if (fx= _i194813_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203297 - (let ((__tmp203304 - (let ((__tmp203305 + (let ((__tmp203227 + (let ((__tmp203234 + (let ((__tmp203235 (let () (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) - (cons '##values? __tmp203305))) - (__tmp203298 - (let ((__tmp203302 - (let ((__tmp203303 + (cons '##values? __tmp203235))) + (__tmp203228 + (let ((__tmp203232 + (let ((__tmp203233 (let () (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) - (cons '##vector->list __tmp203303))) - (__tmp203299 - (let ((__tmp203300 - (let ((__tmp203301 + (cons '##vector->list __tmp203233))) + (__tmp203229 + (let ((__tmp203230 + (let ((__tmp203231 (let () (declare (not safe)) - (cons _var194882_ + (cons _var194812_ '())))) (declare (not safe)) - (cons 'list __tmp203301)))) + (cons 'list __tmp203231)))) (declare (not safe)) - (cons __tmp203300 '())))) + (cons __tmp203230 '())))) (declare (not safe)) - (cons __tmp203302 __tmp203299)))) + (cons __tmp203232 __tmp203229)))) (declare (not safe)) - (cons __tmp203304 __tmp203298)))) + (cons __tmp203234 __tmp203228)))) (declare (not safe)) - (cons 'if __tmp203297)) - (let ((__tmp203284 - (let ((__tmp203285 - (let ((__tmp203286 - (let ((__tmp203287 - (let ((__tmp203288 - (let ((__tmp203295 - (let ((__tmp203296 + (cons 'if __tmp203227)) + (let ((__tmp203214 + (let ((__tmp203215 + (let ((__tmp203216 + (let ((__tmp203217 + (let ((__tmp203218 + (let ((__tmp203225 + (let ((__tmp203226 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) - (cons '##values? __tmp203296))) - (__tmp203289 - (let ((__tmp203293 - (let ((__tmp203294 + (cons '##values? __tmp203226))) + (__tmp203219 + (let ((__tmp203223 + (let ((__tmp203224 (let () (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) - (cons '##vector->list __tmp203294))) - (__tmp203290 - (let ((__tmp203291 - (let ((__tmp203292 + (cons '##vector->list __tmp203224))) + (__tmp203220 + (let ((__tmp203221 + (let ((__tmp203222 (let () (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) - (cons 'list __tmp203292)))) + (cons 'list __tmp203222)))) (declare (not safe)) - (cons __tmp203291 '())))) + (cons __tmp203221 '())))) (declare (not safe)) - (cons __tmp203293 __tmp203290)))) + (cons __tmp203223 __tmp203220)))) (declare (not safe)) - (cons __tmp203295 __tmp203289)))) + (cons __tmp203225 __tmp203219)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp203288)))) + (cons 'if __tmp203218)))) (declare (not safe)) - (cons __tmp203287 '())))) + (cons __tmp203217 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp203286)))) + (cons '(declare (not safe)) __tmp203216)))) (declare (not safe)) - (cons '() __tmp203285)))) + (cons '() __tmp203215)))) (declare (not safe)) - (cons 'let __tmp203284))) - (if (fx= _i194883_ '1) + (cons 'let __tmp203214))) + (if (fx= _i194813_ '1) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203275 - (let ((__tmp203282 - (let ((__tmp203283 + (let ((__tmp203205 + (let ((__tmp203212 + (let ((__tmp203213 (let () (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) - (cons '##values? __tmp203283))) - (__tmp203276 - (let ((__tmp203278 - (let ((__tmp203279 - (let ((__tmp203280 - (let ((__tmp203281 + (cons '##values? __tmp203213))) + (__tmp203206 + (let ((__tmp203208 + (let ((__tmp203209 + (let ((__tmp203210 + (let ((__tmp203211 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) - (cons '##vector->list __tmp203281)))) + (cons '##vector->list __tmp203211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203280 '())))) + (cons __tmp203210 '())))) (declare (not safe)) - (cons '##cdr __tmp203279))) - (__tmp203277 + (cons '##cdr __tmp203209))) + (__tmp203207 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp203278 __tmp203277)))) + (cons __tmp203208 __tmp203207)))) (declare (not safe)) - (cons __tmp203282 __tmp203276)))) + (cons __tmp203212 __tmp203206)))) (declare (not safe)) - (cons 'if __tmp203275)) - (let ((__tmp203262 - (let ((__tmp203263 - (let ((__tmp203264 - (let ((__tmp203265 - (let ((__tmp203266 - (let ((__tmp203273 - (let ((__tmp203274 + (cons 'if __tmp203205)) + (let ((__tmp203192 + (let ((__tmp203193 + (let ((__tmp203194 + (let ((__tmp203195 + (let ((__tmp203196 + (let ((__tmp203203 + (let ((__tmp203204 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) - (cons '##values? __tmp203274))) - (__tmp203267 - (let ((__tmp203269 - (let ((__tmp203270 - (let ((__tmp203271 - (let ((__tmp203272 + (cons '##values? __tmp203204))) + (__tmp203197 + (let ((__tmp203199 + (let ((__tmp203200 + (let ((__tmp203201 + (let ((__tmp203202 (let () (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) (cons '##vector->list - __tmp203272)))) + __tmp203202)))) (declare (not safe)) - (cons __tmp203271 '())))) + (cons __tmp203201 '())))) (declare (not safe)) - (cons '##cdr __tmp203270))) - (__tmp203268 + (cons '##cdr __tmp203200))) + (__tmp203198 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp203269 __tmp203268)))) + (cons __tmp203199 __tmp203198)))) (declare (not safe)) - (cons __tmp203273 __tmp203267)))) + (cons __tmp203203 __tmp203197)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp203266)))) + (cons 'if __tmp203196)))) (declare (not safe)) - (cons __tmp203265 '())))) + (cons __tmp203195 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp203264)))) + __tmp203194)))) (declare (not safe)) - (cons '() __tmp203263)))) + (cons '() __tmp203193)))) (declare (not safe)) - (cons 'let __tmp203262))) + (cons 'let __tmp203192))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203258 - (let ((__tmp203260 - (let ((__tmp203261 + (let ((__tmp203188 + (let ((__tmp203190 + (let ((__tmp203191 (let () (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) - (cons '##vector->list __tmp203261))) - (__tmp203259 + (cons '##vector->list __tmp203191))) + (__tmp203189 (let () (declare (not safe)) - (cons _i194883_ '())))) + (cons _i194813_ '())))) (declare (not safe)) - (cons __tmp203260 __tmp203259)))) + (cons __tmp203190 __tmp203189)))) (declare (not safe)) - (cons '##list-tail __tmp203258)) - (let ((__tmp203250 - (let ((__tmp203251 - (let ((__tmp203252 - (let ((__tmp203253 - (let ((__tmp203254 - (let ((__tmp203256 - (let ((__tmp203257 + (cons '##list-tail __tmp203188)) + (let ((__tmp203180 + (let ((__tmp203181 + (let ((__tmp203182 + (let ((__tmp203183 + (let ((__tmp203184 + (let ((__tmp203186 + (let ((__tmp203187 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var194882_ '())))) + (cons _var194812_ '())))) (declare (not safe)) - (cons '##vector->list __tmp203257))) - (__tmp203255 - (let () (declare (not safe)) (cons _i194883_ '())))) + (cons '##vector->list __tmp203187))) + (__tmp203185 + (let () (declare (not safe)) (cons _i194813_ '())))) (declare (not safe)) - (cons __tmp203256 __tmp203255)))) + (cons __tmp203186 __tmp203185)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##list-tail - __tmp203254)))) + __tmp203184)))) (declare (not safe)) - (cons __tmp203253 '())))) + (cons __tmp203183 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp203252)))) + __tmp203182)))) (declare (not safe)) - (cons '() __tmp203251)))) + (cons '() __tmp203181)))) (declare (not safe)) - (cons 'let __tmp203250))))))) + (cons 'let __tmp203180))))))) (define gxc#generate-runtime-lambda% - (lambda (_stx194815_) - (let* ((_g194817194834_ - (lambda (_g194818194831_) + (lambda (_stx194745_) + (let* ((_g194747194764_ + (lambda (_g194748194761_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194818194831_)))) - (_g194816194879_ - (lambda (_g194818194837_) + _g194748194761_)))) + (_g194746194809_ + (lambda (_g194748194767_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194818194837_)) - (let ((_e194823194839_ + (gx#stx-pair? _g194748194767_)) + (let ((_e194753194769_ (let () (declare (not safe)) - (gx#stx-e _g194818194837_)))) - (let ((_hd194822194842_ + (gx#stx-e _g194748194767_)))) + (let ((_hd194752194772_ (let () (declare (not safe)) - (##car _e194823194839_))) - (_tl194821194844_ + (##car _e194753194769_))) + (_tl194751194774_ (let () (declare (not safe)) - (##cdr _e194823194839_)))) + (##cdr _e194753194769_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194821194844_)) - (let ((_e194826194847_ + (gx#stx-pair? _tl194751194774_)) + (let ((_e194756194777_ (let () (declare (not safe)) - (gx#stx-e _tl194821194844_)))) - (let ((_hd194825194850_ + (gx#stx-e _tl194751194774_)))) + (let ((_hd194755194780_ (let () (declare (not safe)) - (##car _e194826194847_))) - (_tl194824194852_ + (##car _e194756194777_))) + (_tl194754194782_ (let () (declare (not safe)) - (##cdr _e194826194847_)))) + (##cdr _e194756194777_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194824194852_)) - (let ((_e194829194855_ + (gx#stx-pair? _tl194754194782_)) + (let ((_e194759194785_ (let () (declare (not safe)) - (gx#stx-e _tl194824194852_)))) - (let ((_hd194828194858_ + (gx#stx-e _tl194754194782_)))) + (let ((_hd194758194788_ (let () (declare (not safe)) - (##car _e194829194855_))) - (_tl194827194860_ + (##car _e194759194785_))) + (_tl194757194790_ (let () (declare (not safe)) - (##cdr _e194829194855_)))) + (##cdr _e194759194785_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194827194860_)) - ((lambda (_L194863_ _L194864_) + _tl194757194790_)) + ((lambda (_L194793_ _L194794_) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _L194864_ - _L194863_))) - _hd194828194858_ - _hd194825194850_) + _L194794_ + _L194793_))) + _hd194758194788_ + _hd194755194780_) (let () (declare (not safe)) - (_g194817194834_ - _g194818194837_))))) + (_g194747194764_ + _g194748194767_))))) (let () (declare (not safe)) - (_g194817194834_ _g194818194837_))))) + (_g194747194764_ _g194748194767_))))) (let () (declare (not safe)) - (_g194817194834_ _g194818194837_))))) + (_g194747194764_ _g194748194767_))))) (let () (declare (not safe)) - (_g194817194834_ _g194818194837_)))))) + (_g194747194764_ _g194748194767_)))))) (declare (not safe)) - (_g194816194879_ _stx194815_)))) + (_g194746194809_ _stx194745_)))) (define gxc#generate-runtime-lambda-form - (lambda (_hd194775_ _body194776_) - (let* ((_hd194778_ + (lambda (_hd194705_ _body194706_) + (let* ((_hd194708_ (let () (declare (not safe)) - (gxc#generate-runtime-lambda-head _hd194775_))) - (_body194780_ + (gxc#generate-runtime-lambda-head _hd194705_))) + (_body194710_ (let () (declare (not safe)) - (gxc#compile-e__0 _body194776_))) - (_body194812_ - (let* ((_body194781194789_ _body194780_) - (_else194783194797_ + (gxc#compile-e__0 _body194706_))) + (_body194742_ + (let* ((_body194711194719_ _body194710_) + (_else194713194727_ (lambda () (let () (declare (not safe)) - (cons _body194780_ '())))) - (_K194785194802_ - (lambda (_exprs194800_) _exprs194800_))) + (cons _body194710_ '())))) + (_K194715194732_ + (lambda (_exprs194730_) _exprs194730_))) (if (let () (declare (not safe)) - (##pair? _body194781194789_)) - (let ((_hd194786194805_ + (##pair? _body194711194719_)) + (let ((_hd194716194735_ (let () (declare (not safe)) - (##car _body194781194789_))) - (_tl194787194807_ + (##car _body194711194719_))) + (_tl194717194737_ (let () (declare (not safe)) - (##cdr _body194781194789_)))) + (##cdr _body194711194719_)))) (if (let () (declare (not safe)) - (##eq? _hd194786194805_ 'begin)) - (let ((_exprs194810_ _tl194787194807_)) + (##eq? _hd194716194735_ 'begin)) + (let ((_exprs194740_ _tl194717194737_)) (declare (not safe)) - (_K194785194802_ _exprs194810_)) + (_K194715194732_ _exprs194740_)) (let () (declare (not safe)) - (_else194783194797_)))) - (let () (declare (not safe)) (_else194783194797_)))))) - (let ((__tmp203306 + (_else194713194727_)))) + (let () (declare (not safe)) (_else194713194727_)))))) + (let ((__tmp203236 (let () (declare (not safe)) - (cons _hd194778_ _body194812_)))) + (cons _hd194708_ _body194742_)))) (declare (not safe)) - (cons 'lambda __tmp203306))))) + (cons 'lambda __tmp203236))))) (define gxc#generate-runtime-lambda-head - (lambda (_hd194773_) + (lambda (_hd194703_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _hd194773_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _hd194703_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_stx193316_) - (letrec ((_dispatch-case?193318_ - (lambda (_hd194003_ _body194004_) - (let* ((_form194006_ - (let ((__tmp203307 + (lambda (_stx193246_) + (letrec ((_dispatch-case?193248_ + (lambda (_hd193933_ _body193934_) + (let* ((_form193936_ + (let ((__tmp203237 (let () (declare (not safe)) - (cons _body194004_ '())))) + (cons _body193934_ '())))) (declare (not safe)) - (cons _hd194003_ __tmp203307))) - (___stx201887201888_ _form194006_) - (_g194011194168_ + (cons _hd193933_ __tmp203237))) + (___stx201817201818_ _form193936_) + (_g193941194098_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx201887201888_))))) - (let ((___kont201889201890_ - (lambda (_L194693_ _L194694_ _L194695_) '#t)) - (___kont201895201896_ - (lambda (_L194481_ - _L194482_ - _L194483_ - _L194484_ - _L194485_ - _L194486_) + ___stx201817201818_))))) + (let ((___kont201819201820_ + (lambda (_L194623_ _L194624_ _L194625_) '#t)) + (___kont201825201826_ + (lambda (_L194411_ + _L194412_ + _L194413_ + _L194414_ + _L194415_ + _L194416_) '#t)) - (___kont201901201902_ - (lambda (_L194276_ - _L194277_ - _L194278_ - _L194279_) + (___kont201831201832_ + (lambda (_L194206_ + _L194207_ + _L194208_ + _L194209_) '#t)) - (___kont201903201904_ (lambda () '#f))) - (let* ((___match202028202029_ - (lambda (_e194130194180_ - _hd194129194183_ - _tl194128194185_ - _e194133194188_ - _hd194132194191_ - _tl194131194193_ - _e194136194196_ - _hd194135194199_ - _tl194134194201_ - _e194139194204_ - _hd194138194207_ - _tl194137194209_ - _e194142194212_ - _hd194141194215_ - _tl194140194217_ - _e194145194220_ - _hd194144194223_ - _tl194143194225_ - _e194148194228_ - _hd194147194231_ - _tl194146194233_ - _e194151194236_ - _hd194150194239_ - _tl194149194241_ - _e194154194244_ - _hd194153194247_ - _tl194152194249_ - _e194157194252_ - _hd194156194255_ - _tl194155194257_ - _e194160194260_ - _hd194159194263_ - _tl194158194265_ - _e194163194268_ - _hd194162194271_ - _tl194161194273_) - (let ((_L194276_ _hd194162194271_) - (_L194277_ _hd194153194247_) - (_L194278_ _hd194144194223_) - (_L194279_ _hd194129194183_)) + (___kont201833201834_ (lambda () '#f))) + (let* ((___match201958201959_ + (lambda (_e194060194110_ + _hd194059194113_ + _tl194058194115_ + _e194063194118_ + _hd194062194121_ + _tl194061194123_ + _e194066194126_ + _hd194065194129_ + _tl194064194131_ + _e194069194134_ + _hd194068194137_ + _tl194067194139_ + _e194072194142_ + _hd194071194145_ + _tl194070194147_ + _e194075194150_ + _hd194074194153_ + _tl194073194155_ + _e194078194158_ + _hd194077194161_ + _tl194076194163_ + _e194081194166_ + _hd194080194169_ + _tl194079194171_ + _e194084194174_ + _hd194083194177_ + _tl194082194179_ + _e194087194182_ + _hd194086194185_ + _tl194085194187_ + _e194090194190_ + _hd194089194193_ + _tl194088194195_ + _e194093194198_ + _hd194092194201_ + _tl194091194203_) + (let ((_L194206_ _hd194092194201_) + (_L194207_ _hd194083194177_) + (_L194208_ _hd194074194153_) + (_L194209_ _hd194059194113_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L194279_)) + (gx#identifier? _L194209_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L194278_ + _L194208_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L194279_ - _L194276_)) - (let ((__tmp203308 + _L194209_ + _L194206_)) + (let ((__tmp203238 (let () (declare (not safe)) (gx#free-identifier=? - _L194277_ - _L194279_)))) + _L194207_ + _L194209_)))) (declare (not safe)) - (not __tmp203308))) - (___kont201901201902_ - _L194276_ - _L194277_ - _L194278_ - _L194279_) - (___kont201903201904_))))) - (___match202000202001_ - (lambda (_e194130194180_ - _hd194129194183_ - _tl194128194185_ - _e194133194188_ - _hd194132194191_ - _tl194131194193_ - _e194136194196_ - _hd194135194199_ - _tl194134194201_ - _e194139194204_ - _hd194138194207_ - _tl194137194209_ - _e194142194212_ - _hd194141194215_ - _tl194140194217_ - _e194145194220_ - _hd194144194223_ - _tl194143194225_ - _e194148194228_ - _hd194147194231_ - _tl194146194233_ - _e194151194236_ - _hd194150194239_ - _tl194149194241_ - _e194154194244_ - _hd194153194247_ - _tl194152194249_) + (not __tmp203238))) + (___kont201831201832_ + _L194206_ + _L194207_ + _L194208_ + _L194209_) + (___kont201833201834_))))) + (___match201930201931_ + (lambda (_e194060194110_ + _hd194059194113_ + _tl194058194115_ + _e194063194118_ + _hd194062194121_ + _tl194061194123_ + _e194066194126_ + _hd194065194129_ + _tl194064194131_ + _e194069194134_ + _hd194068194137_ + _tl194067194139_ + _e194072194142_ + _hd194071194145_ + _tl194070194147_ + _e194075194150_ + _hd194074194153_ + _tl194073194155_ + _e194078194158_ + _hd194077194161_ + _tl194076194163_ + _e194081194166_ + _hd194080194169_ + _tl194079194171_ + _e194084194174_ + _hd194083194177_ + _tl194082194179_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194146194233_)) - (let ((_e194157194252_ + (gx#stx-pair? _tl194076194163_)) + (let ((_e194087194182_ (let () (declare (not safe)) - (gx#stx-e _tl194146194233_)))) - (let ((_tl194155194257_ + (gx#stx-e _tl194076194163_)))) + (let ((_tl194085194187_ (let () (declare (not safe)) - (##cdr _e194157194252_))) - (_hd194156194255_ + (##cdr _e194087194182_))) + (_hd194086194185_ (let () (declare (not safe)) - (##car _e194157194252_)))) + (##car _e194087194182_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd194156194255_)) - (let ((_e194160194260_ + _hd194086194185_)) + (let ((_e194090194190_ (let () (declare (not safe)) (gx#stx-e - _hd194156194255_)))) - (let ((_tl194158194265_ + _hd194086194185_)))) + (let ((_tl194088194195_ (let () (declare (not safe)) - (##cdr _e194160194260_))) - (_hd194159194263_ + (##cdr _e194090194190_))) + (_hd194089194193_ (let () (declare (not safe)) - (##car _e194160194260_)))) + (##car _e194090194190_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd194159194263_)) + _hd194089194193_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd194159194263_)) + _hd194089194193_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl194158194265_)) - (let ((_e194163194268_ + (gx#stx-pair? _tl194088194195_)) + (let ((_e194093194198_ (let () (declare (not safe)) - (gx#stx-e _tl194158194265_)))) - (let ((_tl194161194273_ + (gx#stx-e _tl194088194195_)))) + (let ((_tl194091194203_ (let () (declare (not safe)) - (##cdr _e194163194268_))) - (_hd194162194271_ + (##cdr _e194093194198_))) + (_hd194092194201_ (let () (declare (not safe)) - (##car _e194163194268_)))) + (##car _e194093194198_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194161194273_)) + (gx#stx-null? _tl194091194203_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl194155194257_)) + (gx#stx-null? _tl194085194187_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl194131194193_)) - (___match202028202029_ - _e194130194180_ - _hd194129194183_ - _tl194128194185_ - _e194133194188_ - _hd194132194191_ - _tl194131194193_ - _e194136194196_ - _hd194135194199_ - _tl194134194201_ - _e194139194204_ - _hd194138194207_ - _tl194137194209_ - _e194142194212_ - _hd194141194215_ - _tl194140194217_ - _e194145194220_ - _hd194144194223_ - _tl194143194225_ - _e194148194228_ - _hd194147194231_ - _tl194146194233_ - _e194151194236_ - _hd194150194239_ - _tl194149194241_ - _e194154194244_ - _hd194153194247_ - _tl194152194249_ - _e194157194252_ - _hd194156194255_ - _tl194155194257_ - _e194160194260_ - _hd194159194263_ - _tl194158194265_ - _e194163194268_ - _hd194162194271_ - _tl194161194273_) - (___kont201903201904_)) - (___kont201903201904_)) - (___kont201903201904_)))) - (___kont201903201904_)) - (___kont201903201904_)) - (___kont201903201904_)))) + (gx#stx-null? _tl194061194123_)) + (___match201958201959_ + _e194060194110_ + _hd194059194113_ + _tl194058194115_ + _e194063194118_ + _hd194062194121_ + _tl194061194123_ + _e194066194126_ + _hd194065194129_ + _tl194064194131_ + _e194069194134_ + _hd194068194137_ + _tl194067194139_ + _e194072194142_ + _hd194071194145_ + _tl194070194147_ + _e194075194150_ + _hd194074194153_ + _tl194073194155_ + _e194078194158_ + _hd194077194161_ + _tl194076194163_ + _e194081194166_ + _hd194080194169_ + _tl194079194171_ + _e194084194174_ + _hd194083194177_ + _tl194082194179_ + _e194087194182_ + _hd194086194185_ + _tl194085194187_ + _e194090194190_ + _hd194089194193_ + _tl194088194195_ + _e194093194198_ + _hd194092194201_ + _tl194091194203_) + (___kont201833201834_)) + (___kont201833201834_)) + (___kont201833201834_)))) + (___kont201833201834_)) + (___kont201833201834_)) + (___kont201833201834_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont201903201904_)))) - (___kont201903201904_)))) - (___match201930201931_ - (lambda (_e194066194321_ - _hd194065194324_ - _tl194064194326_ - ___splice201897201898_ - _target194067194329_ - _tl194069194331_) - (letrec ((_loop194070194334_ - (lambda (_hd194068194337_ - _arg194074194339_) + (___kont201833201834_)))) + (___kont201833201834_)))) + (___match201860201861_ + (lambda (_e193996194251_ + _hd193995194254_ + _tl193994194256_ + ___splice201827201828_ + _target193997194259_ + _tl193999194261_) + (letrec ((_loop194000194264_ + (lambda (_hd193998194267_ + _arg194004194269_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd194068194337_)) - (let ((_e194071194342_ + _hd193998194267_)) + (let ((_e194001194272_ (let () (declare (not safe)) (gx#stx-e - _hd194068194337_)))) - (let ((_lp-tl194073194347_ + _hd193998194267_)))) + (let ((_lp-tl194003194277_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e194071194342_))) - (_lp-hd194072194345_ - (let () (declare (not safe)) (##car _e194071194342_)))) - (let ((__tmp203323 + (##cdr _e194001194272_))) + (_lp-hd194002194275_ + (let () (declare (not safe)) (##car _e194001194272_)))) + (let ((__tmp203253 (let () (declare (not safe)) - (cons _lp-hd194072194345_ _arg194074194339_)))) + (cons _lp-hd194002194275_ _arg194004194269_)))) (declare (not safe)) - (_loop194070194334_ _lp-tl194073194347_ __tmp203323)))) + (_loop194000194264_ _lp-tl194003194277_ __tmp203253)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg194075194350_ - (reverse _arg194074194339_))) + (let ((_arg194005194280_ + (reverse _arg194004194269_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl194064194326_)) - (let ((_e194078194353_ + _tl193994194256_)) + (let ((_e194008194283_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl194064194326_)))) - (let ((_tl194076194358_ + (gx#stx-e _tl193994194256_)))) + (let ((_tl194006194288_ (let () (declare (not safe)) - (##cdr _e194078194353_))) - (_hd194077194356_ + (##cdr _e194008194283_))) + (_hd194007194286_ (let () (declare (not safe)) - (##car _e194078194353_)))) + (##car _e194008194283_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd194077194356_)) - (let ((_e194081194361_ + (gx#stx-pair? _hd194007194286_)) + (let ((_e194011194291_ (let () (declare (not safe)) - (gx#stx-e _hd194077194356_)))) - (let ((_tl194079194366_ + (gx#stx-e _hd194007194286_)))) + (let ((_tl194009194296_ (let () (declare (not safe)) - (##cdr _e194081194361_))) - (_hd194080194364_ + (##cdr _e194011194291_))) + (_hd194010194294_ (let () (declare (not safe)) - (##car _e194081194361_)))) + (##car _e194011194291_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd194080194364_)) + (gx#identifier? _hd194010194294_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd194080194364_)) + (gx#stx-eq? '%#call _hd194010194294_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194079194366_)) - (let ((_e194084194369_ + (gx#stx-pair? _tl194009194296_)) + (let ((_e194014194299_ (let () (declare (not safe)) (gx#stx-e - _tl194079194366_)))) - (let ((_tl194082194374_ + _tl194009194296_)))) + (let ((_tl194012194304_ (let () (declare (not safe)) - (##cdr _e194084194369_))) - (_hd194083194372_ + (##cdr _e194014194299_))) + (_hd194013194302_ (let () (declare (not safe)) - (##car _e194084194369_)))) + (##car _e194014194299_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd194083194372_)) - (let ((_e194087194377_ + _hd194013194302_)) + (let ((_e194017194307_ (let () (declare (not safe)) (gx#stx-e - _hd194083194372_)))) - (let ((_tl194085194382_ + _hd194013194302_)))) + (let ((_tl194015194312_ (let () (declare (not safe)) - (##cdr _e194087194377_))) - (_hd194086194380_ + (##cdr _e194017194307_))) + (_hd194016194310_ (let () (declare (not safe)) - (##car _e194087194377_)))) + (##car _e194017194307_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd194086194380_)) + _hd194016194310_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd194086194380_)) + (gx#stx-eq? '%#ref _hd194016194310_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194085194382_)) - (let ((_e194090194385_ + (gx#stx-pair? _tl194015194312_)) + (let ((_e194020194315_ (let () (declare (not safe)) - (gx#stx-e _tl194085194382_)))) - (let ((_tl194088194390_ + (gx#stx-e _tl194015194312_)))) + (let ((_tl194018194320_ (let () (declare (not safe)) - (##cdr _e194090194385_))) - (_hd194089194388_ + (##cdr _e194020194315_))) + (_hd194019194318_ (let () (declare (not safe)) - (##car _e194090194385_)))) + (##car _e194020194315_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194088194390_)) + (gx#stx-null? _tl194018194320_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194082194374_)) - (let ((_e194093194393_ + (gx#stx-pair? _tl194012194304_)) + (let ((_e194023194323_ (let () (declare (not safe)) - (gx#stx-e _tl194082194374_)))) - (let ((_tl194091194398_ + (gx#stx-e _tl194012194304_)))) + (let ((_tl194021194328_ (let () (declare (not safe)) - (##cdr _e194093194393_))) - (_hd194092194396_ + (##cdr _e194023194323_))) + (_hd194022194326_ (let () (declare (not safe)) - (##car _e194093194393_)))) + (##car _e194023194323_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd194092194396_)) - (let ((_e194096194401_ + _hd194022194326_)) + (let ((_e194026194331_ (let () (declare (not safe)) (gx#stx-e - _hd194092194396_)))) - (let ((_tl194094194406_ + _hd194022194326_)))) + (let ((_tl194024194336_ (let () (declare (not safe)) - (##cdr _e194096194401_))) - (_hd194095194404_ + (##cdr _e194026194331_))) + (_hd194025194334_ (let () (declare (not safe)) - (##car _e194096194401_)))) + (##car _e194026194331_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd194095194404_)) + _hd194025194334_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd194095194404_)) + _hd194025194334_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl194094194406_)) - (let ((_e194099194409_ + (gx#stx-pair? _tl194024194336_)) + (let ((_e194029194339_ (let () (declare (not safe)) - (gx#stx-e _tl194094194406_)))) - (let ((_tl194097194414_ + (gx#stx-e _tl194024194336_)))) + (let ((_tl194027194344_ (let () (declare (not safe)) - (##cdr _e194099194409_))) - (_hd194098194412_ + (##cdr _e194029194339_))) + (_hd194028194342_ (let () (declare (not safe)) - (##car _e194099194409_)))) + (##car _e194029194339_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194097194414_)) + (gx#stx-null? _tl194027194344_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl194091194398_)) + (gx#stx-pair/null? _tl194021194328_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl194091194398_)) + (gx#stx-length _tl194021194328_)) '1) - (let ((___splice201899201900_ + (let ((___splice201829201830_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl194091194398_ + _tl194021194328_ '1)))) - (let ((_tl194102194419_ + (let ((_tl194032194349_ (let () (declare (not safe)) (##vector-ref - ___splice201899201900_ + ___splice201829201830_ '1))) - (_target194100194417_ + (_target194030194347_ (let () (declare (not safe)) (##vector-ref - ___splice201899201900_ + ___splice201829201830_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl194102194419_)) - (let ((_e194111194422_ + _tl194032194349_)) + (let ((_e194041194352_ (let () (declare (not safe)) (gx#stx-e - _tl194102194419_)))) - (let ((_tl194109194427_ + _tl194032194349_)))) + (let ((_tl194039194357_ (let () (declare (not safe)) - (##cdr _e194111194422_))) - (_hd194110194425_ + (##cdr _e194041194352_))) + (_hd194040194355_ (let () (declare (not safe)) - (##car _e194111194422_)))) + (##car _e194041194352_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd194110194425_)) - (let ((_e194114194430_ + _hd194040194355_)) + (let ((_e194044194360_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd194110194425_)))) - (let ((_tl194112194435_ - (let () (declare (not safe)) (##cdr _e194114194430_))) - (_hd194113194433_ - (let () (declare (not safe)) (##car _e194114194430_)))) + (gx#stx-e _hd194040194355_)))) + (let ((_tl194042194365_ + (let () (declare (not safe)) (##cdr _e194044194360_))) + (_hd194043194363_ + (let () (declare (not safe)) (##car _e194044194360_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd194113194433_)) + (gx#identifier? _hd194043194363_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd194113194433_)) + (gx#stx-eq? '%#ref _hd194043194363_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194112194435_)) - (let ((_e194117194438_ + (gx#stx-pair? _tl194042194365_)) + (let ((_e194047194368_ (let () (declare (not safe)) - (gx#stx-e _tl194112194435_)))) - (let ((_tl194115194443_ + (gx#stx-e _tl194042194365_)))) + (let ((_tl194045194373_ (let () (declare (not safe)) - (##cdr _e194117194438_))) - (_hd194116194441_ + (##cdr _e194047194368_))) + (_hd194046194371_ (let () (declare (not safe)) - (##car _e194117194438_)))) + (##car _e194047194368_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194115194443_)) + (gx#stx-null? _tl194045194373_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl194109194427_)) - (letrec ((_loop194103194446_ - (lambda (_hd194101194449_ - _xarg194107194451_) + (gx#stx-null? _tl194039194357_)) + (letrec ((_loop194033194376_ + (lambda (_hd194031194379_ + _xarg194037194381_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd194101194449_)) - (let ((_e194104194454_ + _hd194031194379_)) + (let ((_e194034194384_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd194101194449_)))) - (let ((_lp-tl194106194459_ + (gx#stx-e _hd194031194379_)))) + (let ((_lp-tl194036194389_ (let () (declare (not safe)) - (##cdr _e194104194454_))) - (_lp-hd194105194457_ + (##cdr _e194034194384_))) + (_lp-hd194035194387_ (let () (declare (not safe)) - (##car _e194104194454_)))) + (##car _e194034194384_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd194105194457_)) - (let ((_e194120194462_ + (gx#stx-pair? _lp-hd194035194387_)) + (let ((_e194050194392_ (let () (declare (not safe)) - (gx#stx-e _lp-hd194105194457_)))) - (let ((_tl194118194467_ + (gx#stx-e _lp-hd194035194387_)))) + (let ((_tl194048194397_ (let () (declare (not safe)) - (##cdr _e194120194462_))) - (_hd194119194465_ + (##cdr _e194050194392_))) + (_hd194049194395_ (let () (declare (not safe)) - (##car _e194120194462_)))) + (##car _e194050194392_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd194119194465_)) + (gx#identifier? _hd194049194395_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd194119194465_)) + (gx#stx-eq? '%#ref _hd194049194395_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194118194467_)) - (let ((_e194123194470_ + (gx#stx-pair? _tl194048194397_)) + (let ((_e194053194400_ (let () (declare (not safe)) (gx#stx-e - _tl194118194467_)))) - (let ((_tl194121194475_ + _tl194048194397_)))) + (let ((_tl194051194405_ (let () (declare (not safe)) - (##cdr _e194123194470_))) - (_hd194122194473_ + (##cdr _e194053194400_))) + (_hd194052194403_ (let () (declare (not safe)) - (##car _e194123194470_)))) + (##car _e194053194400_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194121194475_)) - (let ((__tmp203322 + _tl194051194405_)) + (let ((__tmp203252 (let () (declare (not safe)) - (cons _hd194122194473_ + (cons _hd194052194403_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg194107194451_)))) + _xarg194037194381_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop194103194446_ - _lp-tl194106194459_ - __tmp203322)) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)))) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)))) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)))) - (let ((_xarg194108194478_ (reverse _xarg194107194451_))) + (_loop194033194376_ + _lp-tl194036194389_ + __tmp203252)) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)))) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)))) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)))) + (let ((_xarg194038194408_ (reverse _xarg194037194381_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194076194358_)) - (let ((_L194481_ _hd194116194441_) - (_L194482_ _xarg194108194478_) - (_L194483_ _hd194098194412_) - (_L194484_ _hd194089194388_) - (_L194485_ _tl194069194331_) - (_L194486_ _arg194075194350_)) - (if (and (let ((__tmp203320 - (let ((__tmp203321 - (lambda (_g194529194532_ - _g194530194534_) + (gx#stx-null? _tl194006194288_)) + (let ((_L194411_ _hd194046194371_) + (_L194412_ _xarg194038194408_) + (_L194413_ _hd194028194342_) + (_L194414_ _hd194019194318_) + (_L194415_ _tl193999194261_) + (_L194416_ _arg194005194280_)) + (if (and (let ((__tmp203250 + (let ((__tmp203251 + (lambda (_g194459194462_ + _g194460194464_) (let () (declare (not safe)) - (cons _g194529194532_ - _g194530194534_))))) + (cons _g194459194462_ + _g194460194464_))))) (declare (not safe)) - (foldr1 __tmp203321 + (foldr1 __tmp203251 '() - _L194486_)))) + _L194416_)))) (declare (not safe)) - (gx#identifier-list? __tmp203320)) + (gx#identifier-list? __tmp203250)) (let () (declare (not safe)) - (gx#identifier? _L194485_)) + (gx#identifier? _L194415_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L194484_ + _L194414_ 'apply)) - (fx= (length (let ((__tmp203318 - (lambda (_g194536194539_ - _g194537194541_) + (fx= (length (let ((__tmp203248 + (lambda (_g194466194469_ + _g194467194471_) (let () (declare (not safe)) - (cons _g194536194539_ + (cons _g194466194469_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g194537194541_))))) + _g194467194471_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp203318 + (foldr1 __tmp203248 '() - _L194486_))) - (length (let ((__tmp203319 - (lambda (_g194543194546_ - _g194544194548_) + _L194416_))) + (length (let ((__tmp203249 + (lambda (_g194473194476_ + _g194474194478_) (let () (declare (not safe)) - (cons _g194543194546_ + (cons _g194473194476_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g194544194548_))))) + _g194474194478_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp203319 + (foldr1 __tmp203249 '() - _L194482_)))) - (let ((__tmp203316 - (let ((__tmp203317 - (lambda (_g194550194553_ - _g194551194555_) + _L194412_)))) + (let ((__tmp203246 + (let ((__tmp203247 + (lambda (_g194480194483_ + _g194481194485_) (let () (declare (not safe)) - (cons _g194550194553_ - _g194551194555_))))) + (cons _g194480194483_ + _g194481194485_))))) (declare (not safe)) - (foldr1 __tmp203317 + (foldr1 __tmp203247 '() - _L194486_))) - (__tmp203314 - (let ((__tmp203315 - (lambda (_g194557194560_ - _g194558194562_) + _L194416_))) + (__tmp203244 + (let ((__tmp203245 + (lambda (_g194487194490_ + _g194488194492_) (let () (declare (not safe)) - (cons _g194557194560_ - _g194558194562_))))) + (cons _g194487194490_ + _g194488194492_))))) (declare (not safe)) - (foldr1 __tmp203315 + (foldr1 __tmp203245 '() - _L194482_)))) + _L194412_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp203316 - __tmp203314)) + __tmp203246 + __tmp203244)) (let () (declare (not safe)) (gx#free-identifier=? - _L194485_ - _L194481_)) - (let ((__tmp203309 - (let ((__tmp203313 - (lambda (_g194564194566_) + _L194415_ + _L194411_)) + (let ((__tmp203239 + (let ((__tmp203243 + (lambda (_g194494194496_) (let () (declare (not safe)) (gx#free-identifier=? - _g194564194566_ - _L194483_)))) - (__tmp203310 - (let ((__tmp203312 - (lambda (_g194568194571_ + _g194494194496_ + _L194413_)))) + (__tmp203240 + (let ((__tmp203242 + (lambda (_g194498194501_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g194569194573_) + _g194499194503_) (let () (declare (not safe)) - (cons _g194568194571_ _g194569194573_)))) - (__tmp203311 - (let () (declare (not safe)) (cons _L194485_ '())))) + (cons _g194498194501_ _g194499194503_)))) + (__tmp203241 + (let () (declare (not safe)) (cons _L194415_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp203312 - __tmp203311 - _L194486_)))) + (foldr1 __tmp203242 + __tmp203241 + _L194416_)))) (declare (not safe)) - (find __tmp203313 __tmp203310)))) + (find __tmp203243 __tmp203240)))) (declare (not safe)) - (not __tmp203309))) - (___kont201895201896_ - _L194481_ - _L194482_ - _L194483_ - _L194484_ - _L194485_ - _L194486_) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_))) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_))))))) + (not __tmp203239))) + (___kont201825201826_ + _L194411_ + _L194412_ + _L194413_ + _L194414_ + _L194415_ + _L194416_) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_))) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop194103194446_ - _target194100194417_ + (_loop194033194376_ + _target194030194347_ '()))) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)))) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)))) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)))) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)))) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)))) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)))) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)) - (___match202000202001_ - _e194066194321_ - _hd194065194324_ - _tl194064194326_ - _e194078194353_ - _hd194077194356_ - _tl194076194358_ - _e194081194361_ - _hd194080194364_ - _tl194079194366_ - _e194084194369_ - _hd194083194372_ - _tl194082194374_ - _e194087194377_ - _hd194086194380_ - _tl194085194382_ - _e194090194385_ - _hd194089194388_ - _tl194088194390_ - _e194093194393_ - _hd194092194396_ - _tl194091194398_ - _e194096194401_ - _hd194095194404_ - _tl194094194406_ - _e194099194409_ - _hd194098194412_ - _tl194097194414_)) - (___kont201903201904_)))) - (___kont201903201904_)) - (___kont201903201904_)) - (___kont201903201904_)))) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)))) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)) + (___match201930201931_ + _e193996194251_ + _hd193995194254_ + _tl193994194256_ + _e194008194283_ + _hd194007194286_ + _tl194006194288_ + _e194011194291_ + _hd194010194294_ + _tl194009194296_ + _e194014194299_ + _hd194013194302_ + _tl194012194304_ + _e194017194307_ + _hd194016194310_ + _tl194015194312_ + _e194020194315_ + _hd194019194318_ + _tl194018194320_ + _e194023194323_ + _hd194022194326_ + _tl194021194328_ + _e194026194331_ + _hd194025194334_ + _tl194024194336_ + _e194029194339_ + _hd194028194342_ + _tl194027194344_)) + (___kont201833201834_)))) + (___kont201833201834_)) + (___kont201833201834_)) + (___kont201833201834_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont201903201904_)))) - (___kont201903201904_)) - (___kont201903201904_)))) - (___kont201903201904_)) - (___kont201903201904_)) - (___kont201903201904_)))) + (___kont201833201834_)))) + (___kont201833201834_)) + (___kont201833201834_)))) + (___kont201833201834_)) + (___kont201833201834_)) + (___kont201833201834_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont201903201904_)))) - (___kont201903201904_)) - (___kont201903201904_)) - (___kont201903201904_)))) - (___kont201903201904_)))) - (___kont201903201904_))))))) + (___kont201833201834_)))) + (___kont201833201834_)) + (___kont201833201834_)) + (___kont201833201834_)))) + (___kont201833201834_)))) + (___kont201833201834_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop194070194334_ - _target194067194329_ + (_loop194000194264_ + _target193997194259_ '()))))) - (___match201918201919_ - (lambda (_e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_) - (letrec ((_loop194022194594_ - (lambda (_hd194020194597_ - _arg194026194599_) + (___match201848201849_ + (lambda (_e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_) + (letrec ((_loop193952194524_ + (lambda (_hd193950194527_ + _arg193956194529_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd194020194597_)) - (let ((_e194023194602_ + _hd193950194527_)) + (let ((_e193953194532_ (let () (declare (not safe)) (gx#stx-e - _hd194020194597_)))) - (let ((_lp-tl194025194607_ + _hd193950194527_)))) + (let ((_lp-tl193955194537_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e194023194602_))) - (_lp-hd194024194605_ - (let () (declare (not safe)) (##car _e194023194602_)))) - (let ((__tmp203337 + (##cdr _e193953194532_))) + (_lp-hd193954194535_ + (let () (declare (not safe)) (##car _e193953194532_)))) + (let ((__tmp203267 (let () (declare (not safe)) - (cons _lp-hd194024194605_ _arg194026194599_)))) + (cons _lp-hd193954194535_ _arg193956194529_)))) (declare (not safe)) - (_loop194022194594_ _lp-tl194025194607_ __tmp203337)))) + (_loop193952194524_ _lp-tl193955194537_ __tmp203267)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg194027194610_ - (reverse _arg194026194599_))) + (let ((_arg193957194540_ + (reverse _arg193956194529_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl194016194586_)) - (let ((_e194030194613_ + _tl193946194516_)) + (let ((_e193960194543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl194016194586_)))) - (let ((_tl194028194618_ + (gx#stx-e _tl193946194516_)))) + (let ((_tl193958194548_ (let () (declare (not safe)) - (##cdr _e194030194613_))) - (_hd194029194616_ + (##cdr _e193960194543_))) + (_hd193959194546_ (let () (declare (not safe)) - (##car _e194030194613_)))) + (##car _e193960194543_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd194029194616_)) - (let ((_e194033194621_ + (gx#stx-pair? _hd193959194546_)) + (let ((_e193963194551_ (let () (declare (not safe)) - (gx#stx-e _hd194029194616_)))) - (let ((_tl194031194626_ + (gx#stx-e _hd193959194546_)))) + (let ((_tl193961194556_ (let () (declare (not safe)) - (##cdr _e194033194621_))) - (_hd194032194624_ + (##cdr _e193963194551_))) + (_hd193962194554_ (let () (declare (not safe)) - (##car _e194033194621_)))) + (##car _e193963194551_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd194032194624_)) + (gx#identifier? _hd193962194554_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd194032194624_)) + (gx#stx-eq? '%#call _hd193962194554_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194031194626_)) - (let ((_e194036194629_ + (gx#stx-pair? _tl193961194556_)) + (let ((_e193966194559_ (let () (declare (not safe)) (gx#stx-e - _tl194031194626_)))) - (let ((_tl194034194634_ + _tl193961194556_)))) + (let ((_tl193964194564_ (let () (declare (not safe)) - (##cdr _e194036194629_))) - (_hd194035194632_ + (##cdr _e193966194559_))) + (_hd193965194562_ (let () (declare (not safe)) - (##car _e194036194629_)))) + (##car _e193966194559_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd194035194632_)) - (let ((_e194039194637_ + _hd193965194562_)) + (let ((_e193969194567_ (let () (declare (not safe)) (gx#stx-e - _hd194035194632_)))) - (let ((_tl194037194642_ + _hd193965194562_)))) + (let ((_tl193967194572_ (let () (declare (not safe)) - (##cdr _e194039194637_))) - (_hd194038194640_ + (##cdr _e193969194567_))) + (_hd193968194570_ (let () (declare (not safe)) - (##car _e194039194637_)))) + (##car _e193969194567_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd194038194640_)) + _hd193968194570_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd194038194640_)) + (gx#stx-eq? '%#ref _hd193968194570_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194037194642_)) - (let ((_e194042194645_ + (gx#stx-pair? _tl193967194572_)) + (let ((_e193972194575_ (let () (declare (not safe)) - (gx#stx-e _tl194037194642_)))) - (let ((_tl194040194650_ + (gx#stx-e _tl193967194572_)))) + (let ((_tl193970194580_ (let () (declare (not safe)) - (##cdr _e194042194645_))) - (_hd194041194648_ + (##cdr _e193972194575_))) + (_hd193971194578_ (let () (declare (not safe)) - (##car _e194042194645_)))) + (##car _e193972194575_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194040194650_)) + (gx#stx-null? _tl193970194580_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl194034194634_)) - (let ((___splice201893201894_ + (gx#stx-pair/null? _tl193964194564_)) + (let ((___splice201823201824_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl194034194634_ + _tl193964194564_ '0)))) - (let ((_tl194045194655_ + (let ((_tl193975194585_ (let () (declare (not safe)) (##vector-ref - ___splice201893201894_ + ___splice201823201824_ '1))) - (_target194043194653_ + (_target193973194583_ (let () (declare (not safe)) (##vector-ref - ___splice201893201894_ + ___splice201823201824_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194045194655_)) - (letrec ((_loop194046194658_ - (lambda (_hd194044194661_ + _tl193975194585_)) + (letrec ((_loop193976194588_ + (lambda (_hd193974194591_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg194050194663_) + _xarg193980194593_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd194044194661_)) - (let ((_e194047194666_ + (gx#stx-pair? _hd193974194591_)) + (let ((_e193977194596_ (let () (declare (not safe)) - (gx#stx-e _hd194044194661_)))) - (let ((_lp-tl194049194671_ + (gx#stx-e _hd193974194591_)))) + (let ((_lp-tl193979194601_ (let () (declare (not safe)) - (##cdr _e194047194666_))) - (_lp-hd194048194669_ + (##cdr _e193977194596_))) + (_lp-hd193978194599_ (let () (declare (not safe)) - (##car _e194047194666_)))) + (##car _e193977194596_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd194048194669_)) - (let ((_e194054194674_ + (gx#stx-pair? _lp-hd193978194599_)) + (let ((_e193984194604_ (let () (declare (not safe)) - (gx#stx-e _lp-hd194048194669_)))) - (let ((_tl194052194679_ + (gx#stx-e _lp-hd193978194599_)))) + (let ((_tl193982194609_ (let () (declare (not safe)) - (##cdr _e194054194674_))) - (_hd194053194677_ + (##cdr _e193984194604_))) + (_hd193983194607_ (let () (declare (not safe)) - (##car _e194054194674_)))) + (##car _e193984194604_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd194053194677_)) + (gx#identifier? _hd193983194607_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd194053194677_)) + _hd193983194607_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl194052194679_)) - (let ((_e194057194682_ + _tl193982194609_)) + (let ((_e193987194612_ (let () (declare (not safe)) (gx#stx-e - _tl194052194679_)))) - (let ((_tl194055194687_ + _tl193982194609_)))) + (let ((_tl193985194617_ (let () (declare (not safe)) - (##cdr _e194057194682_))) - (_hd194056194685_ + (##cdr _e193987194612_))) + (_hd193986194615_ (let () (declare (not safe)) - (##car _e194057194682_)))) + (##car _e193987194612_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194055194687_)) - (let ((__tmp203336 + _tl193985194617_)) + (let ((__tmp203266 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd194056194685_ _xarg194050194663_)))) + (cons _hd193986194615_ _xarg193980194593_)))) (declare (not safe)) - (_loop194046194658_ _lp-tl194049194671_ __tmp203336)) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)))) + (_loop193976194588_ _lp-tl193979194601_ __tmp203266)) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)))) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)))) - (let ((_xarg194051194690_ (reverse _xarg194050194663_))) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)))) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)))) + (let ((_xarg193981194620_ (reverse _xarg193980194593_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194028194618_)) - (let ((_L194693_ _xarg194051194690_) - (_L194694_ _hd194041194648_) - (_L194695_ _arg194027194610_)) - (if (and (let ((__tmp203334 - (let ((__tmp203335 - (lambda (_g194723194726_ - _g194724194728_) + (gx#stx-null? _tl193958194548_)) + (let ((_L194623_ _xarg193981194620_) + (_L194624_ _hd193971194578_) + (_L194625_ _arg193957194540_)) + (if (and (let ((__tmp203264 + (let ((__tmp203265 + (lambda (_g194653194656_ + _g194654194658_) (let () (declare (not safe)) - (cons _g194723194726_ - _g194724194728_))))) + (cons _g194653194656_ + _g194654194658_))))) (declare (not safe)) - (foldr1 __tmp203335 + (foldr1 __tmp203265 '() - _L194695_)))) + _L194625_)))) (declare (not safe)) - (gx#identifier-list? __tmp203334)) - (fx= (length (let ((__tmp203332 - (lambda (_g194730194733_ + (gx#identifier-list? __tmp203264)) + (fx= (length (let ((__tmp203262 + (lambda (_g194660194663_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g194731194735_) + _g194661194665_) (let () (declare (not safe)) - (cons _g194730194733_ _g194731194735_))))) + (cons _g194660194663_ _g194661194665_))))) (declare (not safe)) - (foldr1 __tmp203332 '() _L194695_))) + (foldr1 __tmp203262 '() _L194625_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (length (let ((__tmp203333 - (lambda (_g194737194740_ + (length (let ((__tmp203263 + (lambda (_g194667194670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g194738194742_) + _g194668194672_) (let () (declare (not safe)) - (cons _g194737194740_ _g194738194742_))))) + (cons _g194667194670_ _g194668194672_))))) (declare (not safe)) - (foldr1 __tmp203333 '() _L194693_)))) + (foldr1 __tmp203263 '() _L194623_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp203330 - (let ((__tmp203331 - (lambda (_g194744194747_ - _g194745194749_) + (let ((__tmp203260 + (let ((__tmp203261 + (lambda (_g194674194677_ + _g194675194679_) (let () (declare (not safe)) - (cons _g194744194747_ - _g194745194749_))))) + (cons _g194674194677_ + _g194675194679_))))) (declare (not safe)) - (foldr1 __tmp203331 + (foldr1 __tmp203261 '() - _L194695_))) - (__tmp203328 - (let ((__tmp203329 - (lambda (_g194751194754_ - _g194752194756_) + _L194625_))) + (__tmp203258 + (let ((__tmp203259 + (lambda (_g194681194684_ + _g194682194686_) (let () (declare (not safe)) - (cons _g194751194754_ - _g194752194756_))))) + (cons _g194681194684_ + _g194682194686_))))) (declare (not safe)) - (foldr1 __tmp203329 + (foldr1 __tmp203259 '() - _L194693_)))) + _L194623_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp203330 - __tmp203328)) - (let ((__tmp203324 - (let ((__tmp203327 - (lambda (_g194758194760_) + __tmp203260 + __tmp203258)) + (let ((__tmp203254 + (let ((__tmp203257 + (lambda (_g194688194690_) (let () (declare (not safe)) (gx#free-identifier=? - _g194758194760_ - _L194694_)))) - (__tmp203325 - (let ((__tmp203326 - (lambda (_g194762194765_ + _g194688194690_ + _L194624_)))) + (__tmp203255 + (let ((__tmp203256 + (lambda (_g194692194695_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g194763194767_) + _g194693194697_) (let () (declare (not safe)) - (cons _g194762194765_ _g194763194767_))))) + (cons _g194692194695_ _g194693194697_))))) (declare (not safe)) - (foldr1 __tmp203326 '() _L194695_)))) + (foldr1 __tmp203256 '() _L194625_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (find __tmp203327 - __tmp203325)))) + (find __tmp203257 + __tmp203255)))) (declare (not safe)) - (not __tmp203324))) - (___kont201889201890_ - _L194693_ - _L194694_ - _L194695_) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_))) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_))))))) + (not __tmp203254))) + (___kont201819201820_ + _L194623_ + _L194624_ + _L194625_) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_))) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop194046194658_ - _target194043194653_ + (_loop193976194588_ + _target193973194583_ '()))) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)))) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)))) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)))) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)))) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)))) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)))) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)))) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)))) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_))))))) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)))) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)))) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)))) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop194022194594_ - _target194019194589_ + (_loop193952194524_ + _target193949194519_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx201887201888_)) - (let ((_e194018194581_ + (gx#stx-pair? ___stx201817201818_)) + (let ((_e193948194511_ (let () (declare (not safe)) - (gx#stx-e ___stx201887201888_)))) - (let ((_tl194016194586_ + (gx#stx-e ___stx201817201818_)))) + (let ((_tl193946194516_ (let () (declare (not safe)) - (##cdr _e194018194581_))) - (_hd194017194584_ + (##cdr _e193948194511_))) + (_hd193947194514_ (let () (declare (not safe)) - (##car _e194018194581_)))) + (##car _e193948194511_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd194017194584_)) - (let ((___splice201891201892_ + (gx#stx-pair/null? _hd193947194514_)) + (let ((___splice201821201822_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd194017194584_ + _hd193947194514_ '0)))) - (let ((_tl194021194591_ + (let ((_tl193951194521_ (let () (declare (not safe)) (##vector-ref - ___splice201891201892_ + ___splice201821201822_ '1))) - (_target194019194589_ + (_target193949194519_ (let () (declare (not safe)) (##vector-ref - ___splice201891201892_ + ___splice201821201822_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194021194591_)) - (___match201918201919_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_) - (___match201930201931_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - ___splice201891201892_ - _target194019194589_ - _tl194021194591_)))) + _tl193951194521_)) + (___match201848201849_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_) + (___match201860201861_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + ___splice201821201822_ + _target193949194519_ + _tl193951194521_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194016194586_)) - (let ((_e194133194188_ + (gx#stx-pair? _tl193946194516_)) + (let ((_e194063194118_ (let () (declare (not safe)) (gx#stx-e - _tl194016194586_)))) - (let ((_tl194131194193_ + _tl193946194516_)))) + (let ((_tl194061194123_ (let () (declare (not safe)) - (##cdr _e194133194188_))) - (_hd194132194191_ + (##cdr _e194063194118_))) + (_hd194062194121_ (let () (declare (not safe)) - (##car _e194133194188_)))) + (##car _e194063194118_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd194132194191_)) - (let ((_e194136194196_ + _hd194062194121_)) + (let ((_e194066194126_ (let () (declare (not safe)) (gx#stx-e - _hd194132194191_)))) - (let ((_tl194134194201_ + _hd194062194121_)))) + (let ((_tl194064194131_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e194136194196_))) - (_hd194135194199_ - (let () (declare (not safe)) (##car _e194136194196_)))) + (##cdr _e194066194126_))) + (_hd194065194129_ + (let () (declare (not safe)) (##car _e194066194126_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd194135194199_)) + (gx#identifier? _hd194065194129_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd194135194199_)) + (gx#stx-eq? '%#call _hd194065194129_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194134194201_)) - (let ((_e194139194204_ + (gx#stx-pair? _tl194064194131_)) + (let ((_e194069194134_ (let () (declare (not safe)) - (gx#stx-e _tl194134194201_)))) - (let ((_tl194137194209_ + (gx#stx-e _tl194064194131_)))) + (let ((_tl194067194139_ (let () (declare (not safe)) - (##cdr _e194139194204_))) - (_hd194138194207_ + (##cdr _e194069194134_))) + (_hd194068194137_ (let () (declare (not safe)) - (##car _e194139194204_)))) + (##car _e194069194134_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd194138194207_)) - (let ((_e194142194212_ + (gx#stx-pair? _hd194068194137_)) + (let ((_e194072194142_ (let () (declare (not safe)) - (gx#stx-e _hd194138194207_)))) - (let ((_tl194140194217_ + (gx#stx-e _hd194068194137_)))) + (let ((_tl194070194147_ (let () (declare (not safe)) - (##cdr _e194142194212_))) - (_hd194141194215_ + (##cdr _e194072194142_))) + (_hd194071194145_ (let () (declare (not safe)) - (##car _e194142194212_)))) + (##car _e194072194142_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd194141194215_)) + _hd194071194145_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd194141194215_)) + _hd194071194145_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl194140194217_)) - (let ((_e194145194220_ + _tl194070194147_)) + (let ((_e194075194150_ (let () (declare (not safe)) (gx#stx-e - _tl194140194217_)))) - (let ((_tl194143194225_ + _tl194070194147_)))) + (let ((_tl194073194155_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e194145194220_))) - (_hd194144194223_ - (let () (declare (not safe)) (##car _e194145194220_)))) + (##cdr _e194075194150_))) + (_hd194074194153_ + (let () (declare (not safe)) (##car _e194075194150_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194143194225_)) + (gx#stx-null? _tl194073194155_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194137194209_)) - (let ((_e194148194228_ + (gx#stx-pair? _tl194067194139_)) + (let ((_e194078194158_ (let () (declare (not safe)) - (gx#stx-e _tl194137194209_)))) - (let ((_tl194146194233_ + (gx#stx-e _tl194067194139_)))) + (let ((_tl194076194163_ (let () (declare (not safe)) - (##cdr _e194148194228_))) - (_hd194147194231_ + (##cdr _e194078194158_))) + (_hd194077194161_ (let () (declare (not safe)) - (##car _e194148194228_)))) + (##car _e194078194158_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd194147194231_)) - (let ((_e194151194236_ + (gx#stx-pair? _hd194077194161_)) + (let ((_e194081194166_ (let () (declare (not safe)) - (gx#stx-e _hd194147194231_)))) - (let ((_tl194149194241_ + (gx#stx-e _hd194077194161_)))) + (let ((_tl194079194171_ (let () (declare (not safe)) - (##cdr _e194151194236_))) - (_hd194150194239_ + (##cdr _e194081194166_))) + (_hd194080194169_ (let () (declare (not safe)) - (##car _e194151194236_)))) + (##car _e194081194166_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd194150194239_)) + (gx#identifier? _hd194080194169_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd194150194239_)) + _hd194080194169_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl194149194241_)) - (let ((_e194154194244_ + _tl194079194171_)) + (let ((_e194084194174_ (let () (declare (not safe)) (gx#stx-e - _tl194149194241_)))) - (let ((_tl194152194249_ + _tl194079194171_)))) + (let ((_tl194082194179_ (let () (declare (not safe)) - (##cdr _e194154194244_))) - (_hd194153194247_ + (##cdr _e194084194174_))) + (_hd194083194177_ (let () (declare (not safe)) - (##car _e194154194244_)))) + (##car _e194084194174_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194152194249_)) + _tl194082194179_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl194146194233_)) - (let ((_e194157194252_ + _tl194076194163_)) + (let ((_e194087194182_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl194146194233_)))) - (let ((_tl194155194257_ + (gx#stx-e _tl194076194163_)))) + (let ((_tl194085194187_ (let () (declare (not safe)) - (##cdr _e194157194252_))) - (_hd194156194255_ + (##cdr _e194087194182_))) + (_hd194086194185_ (let () (declare (not safe)) - (##car _e194157194252_)))) + (##car _e194087194182_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd194156194255_)) - (let ((_e194160194260_ + (gx#stx-pair? _hd194086194185_)) + (let ((_e194090194190_ (let () (declare (not safe)) - (gx#stx-e _hd194156194255_)))) - (let ((_tl194158194265_ + (gx#stx-e _hd194086194185_)))) + (let ((_tl194088194195_ (let () (declare (not safe)) - (##cdr _e194160194260_))) - (_hd194159194263_ + (##cdr _e194090194190_))) + (_hd194089194193_ (let () (declare (not safe)) - (##car _e194160194260_)))) + (##car _e194090194190_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd194159194263_)) + (gx#identifier? _hd194089194193_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd194159194263_)) + (gx#stx-eq? '%#ref _hd194089194193_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194158194265_)) - (let ((_e194163194268_ + (gx#stx-pair? _tl194088194195_)) + (let ((_e194093194198_ (let () (declare (not safe)) (gx#stx-e - _tl194158194265_)))) - (let ((_tl194161194273_ + _tl194088194195_)))) + (let ((_tl194091194203_ (let () (declare (not safe)) - (##cdr _e194163194268_))) - (_hd194162194271_ + (##cdr _e194093194198_))) + (_hd194092194201_ (let () (declare (not safe)) - (##car _e194163194268_)))) + (##car _e194093194198_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194161194273_)) + _tl194091194203_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl194155194257_)) + _tl194085194187_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl194131194193_)) - (___match202028202029_ - _e194018194581_ - _hd194017194584_ - _tl194016194586_ - _e194133194188_ - _hd194132194191_ - _tl194131194193_ - _e194136194196_ - _hd194135194199_ - _tl194134194201_ - _e194139194204_ - _hd194138194207_ - _tl194137194209_ - _e194142194212_ - _hd194141194215_ - _tl194140194217_ - _e194145194220_ - _hd194144194223_ - _tl194143194225_ - _e194148194228_ - _hd194147194231_ - _tl194146194233_ - _e194151194236_ - _hd194150194239_ - _tl194149194241_ - _e194154194244_ - _hd194153194247_ - _tl194152194249_ - _e194157194252_ - _hd194156194255_ - _tl194155194257_ - _e194160194260_ - _hd194159194263_ - _tl194158194265_ - _e194163194268_ - _hd194162194271_ - _tl194161194273_) - (___kont201903201904_)) - (___kont201903201904_)) - (___kont201903201904_)))) - (___kont201903201904_)) - (___kont201903201904_)) - (___kont201903201904_)))) - (___kont201903201904_)))) - (___kont201903201904_)) - (___kont201903201904_)))) + _tl194061194123_)) + (___match201958201959_ + _e193948194511_ + _hd193947194514_ + _tl193946194516_ + _e194063194118_ + _hd194062194121_ + _tl194061194123_ + _e194066194126_ + _hd194065194129_ + _tl194064194131_ + _e194069194134_ + _hd194068194137_ + _tl194067194139_ + _e194072194142_ + _hd194071194145_ + _tl194070194147_ + _e194075194150_ + _hd194074194153_ + _tl194073194155_ + _e194078194158_ + _hd194077194161_ + _tl194076194163_ + _e194081194166_ + _hd194080194169_ + _tl194079194171_ + _e194084194174_ + _hd194083194177_ + _tl194082194179_ + _e194087194182_ + _hd194086194185_ + _tl194085194187_ + _e194090194190_ + _hd194089194193_ + _tl194088194195_ + _e194093194198_ + _hd194092194201_ + _tl194091194203_) + (___kont201833201834_)) + (___kont201833201834_)) + (___kont201833201834_)))) + (___kont201833201834_)) + (___kont201833201834_)) + (___kont201833201834_)))) + (___kont201833201834_)))) + (___kont201833201834_)) + (___kont201833201834_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont201903201904_)) - (___kont201903201904_)) - (___kont201903201904_)))) - (___kont201903201904_)))) - (___kont201903201904_)) - (___kont201903201904_)))) + (___kont201833201834_)) + (___kont201833201834_)) + (___kont201833201834_)))) + (___kont201833201834_)))) + (___kont201833201834_)) + (___kont201833201834_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont201903201904_)) - (___kont201903201904_)) - (___kont201903201904_)))) - (___kont201903201904_)))) - (___kont201903201904_)) - (___kont201903201904_)) - (___kont201903201904_)))) + (___kont201833201834_)) + (___kont201833201834_)) + (___kont201833201834_)))) + (___kont201833201834_)))) + (___kont201833201834_)) + (___kont201833201834_)) + (___kont201833201834_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont201903201904_)))) - (___kont201903201904_))))) - (___kont201903201904_))))))) - (_dispatch-case-e193319_ - (lambda (_hd193467_ _body193468_) - (let* ((_form193470_ - (let ((__tmp203338 + (___kont201833201834_)))) + (___kont201833201834_))))) + (___kont201833201834_))))))) + (_dispatch-case-e193249_ + (lambda (_hd193397_ _body193398_) + (let* ((_form193400_ + (let ((__tmp203268 (let () (declare (not safe)) - (cons _body193468_ '())))) + (cons _body193398_ '())))) (declare (not safe)) - (cons _hd193467_ __tmp203338))) - (___stx202031202032_ _form193470_) - (_g193474193598_ + (cons _hd193397_ __tmp203268))) + (___stx201961201962_ _form193400_) + (_g193404193528_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202031202032_))))) - (let ((___kont202033202034_ - (lambda (_L193969_ _L193970_ _L193971_) - (let ((__tmp203339 - (let ((__tmp203341 + ___stx201961201962_))))) + (let ((___kont201963201964_ + (lambda (_L193899_ _L193900_ _L193901_) + (let ((__tmp203269 + (let ((__tmp203271 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp203340 + (__tmp203270 (let () (declare (not safe)) - (cons _L193970_ '())))) + (cons _L193900_ '())))) (declare (not safe)) - (cons __tmp203341 __tmp203340)))) + (cons __tmp203271 __tmp203270)))) (declare (not safe)) - (gxc#compile-e__0 __tmp203339)))) - (___kont202039202040_ - (lambda (_L193817_ - _L193818_ - _L193819_ - _L193820_) - (let ((__tmp203342 - (let ((__tmp203344 + (gxc#compile-e__0 __tmp203269)))) + (___kont201969201970_ + (lambda (_L193747_ + _L193748_ + _L193749_ + _L193750_) + (let ((__tmp203272 + (let ((__tmp203274 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp203343 + (__tmp203273 (let () (declare (not safe)) - (cons _L193817_ '())))) + (cons _L193747_ '())))) (declare (not safe)) - (cons __tmp203344 __tmp203343)))) + (cons __tmp203274 __tmp203273)))) (declare (not safe)) - (gxc#compile-e__0 __tmp203342)))) - (___kont202043202044_ - (lambda (_L193683_ _L193684_ _L193685_) - (let ((__tmp203345 - (let ((__tmp203347 + (gxc#compile-e__0 __tmp203272)))) + (___kont201973201974_ + (lambda (_L193613_ _L193614_ _L193615_) + (let ((__tmp203275 + (let ((__tmp203277 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp203346 + (__tmp203276 (let () (declare (not safe)) - (cons _L193683_ '())))) + (cons _L193613_ '())))) (declare (not safe)) - (cons __tmp203347 __tmp203346)))) + (cons __tmp203277 __tmp203276)))) (declare (not safe)) - (gxc#compile-e__0 __tmp203345))))) - (let* ((___match202140202141_ - (lambda (_e193566193603_ - _hd193565193606_ - _tl193564193608_ - _e193569193611_ - _hd193568193614_ - _tl193567193616_ - _e193572193619_ - _hd193571193622_ - _tl193570193624_ - _e193575193627_ - _hd193574193630_ - _tl193573193632_ - _e193578193635_ - _hd193577193638_ - _tl193576193640_ - _e193581193643_ - _hd193580193646_ - _tl193579193648_ - _e193584193651_ - _hd193583193654_ - _tl193582193656_ - _e193587193659_ - _hd193586193662_ - _tl193585193664_ - _e193590193667_ - _hd193589193670_ - _tl193588193672_) + (gxc#compile-e__0 __tmp203275))))) + (let* ((___match202070202071_ + (lambda (_e193496193533_ + _hd193495193536_ + _tl193494193538_ + _e193499193541_ + _hd193498193544_ + _tl193497193546_ + _e193502193549_ + _hd193501193552_ + _tl193500193554_ + _e193505193557_ + _hd193504193560_ + _tl193503193562_ + _e193508193565_ + _hd193507193568_ + _tl193506193570_ + _e193511193573_ + _hd193510193576_ + _tl193509193578_ + _e193514193581_ + _hd193513193584_ + _tl193512193586_ + _e193517193589_ + _hd193516193592_ + _tl193515193594_ + _e193520193597_ + _hd193519193600_ + _tl193518193602_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193582193656_)) - (let ((_e193593193675_ + (gx#stx-pair? _tl193512193586_)) + (let ((_e193523193605_ (let () (declare (not safe)) - (gx#stx-e _tl193582193656_)))) - (let ((_tl193591193680_ + (gx#stx-e _tl193512193586_)))) + (let ((_tl193521193610_ (let () (declare (not safe)) - (##cdr _e193593193675_))) - (_hd193592193678_ + (##cdr _e193523193605_))) + (_hd193522193608_ (let () (declare (not safe)) - (##car _e193593193675_)))) + (##car _e193523193605_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193591193680_)) + _tl193521193610_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl193567193616_)) - (___kont202043202044_ - _hd193589193670_ - _hd193580193646_ - _hd193565193606_) + _tl193497193546_)) + (___kont201973201974_ + _hd193519193600_ + _hd193510193576_ + _hd193495193536_) (let () (declare (not safe)) - (_g193474193598_))) + (_g193404193528_))) (let () (declare (not safe)) - (_g193474193598_))))) + (_g193404193528_))))) (let () (declare (not safe)) - (_g193474193598_))))) - (___match202070202071_ - (lambda (_e193527193721_ - _hd193526193724_ - _tl193525193726_ - ___splice202041202042_ - _target193528193729_ - _tl193530193731_) - (letrec ((_loop193531193734_ - (lambda (_hd193529193737_ - _arg193535193739_) + (_g193404193528_))))) + (___match202000202001_ + (lambda (_e193457193651_ + _hd193456193654_ + _tl193455193656_ + ___splice201971201972_ + _target193458193659_ + _tl193460193661_) + (letrec ((_loop193461193664_ + (lambda (_hd193459193667_ + _arg193465193669_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd193529193737_)) - (let ((_e193532193742_ + _hd193459193667_)) + (let ((_e193462193672_ (let () (declare (not safe)) (gx#stx-e - _hd193529193737_)))) - (let ((_lp-tl193534193747_ + _hd193459193667_)))) + (let ((_lp-tl193464193677_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e193532193742_))) - (_lp-hd193533193745_ - (let () (declare (not safe)) (##car _e193532193742_)))) - (let ((__tmp203348 + (##cdr _e193462193672_))) + (_lp-hd193463193675_ + (let () (declare (not safe)) (##car _e193462193672_)))) + (let ((__tmp203278 (let () (declare (not safe)) - (cons _lp-hd193533193745_ _arg193535193739_)))) + (cons _lp-hd193463193675_ _arg193465193669_)))) (declare (not safe)) - (_loop193531193734_ _lp-tl193534193747_ __tmp203348)))) + (_loop193461193664_ _lp-tl193464193677_ __tmp203278)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg193536193750_ - (reverse _arg193535193739_))) + (let ((_arg193466193680_ + (reverse _arg193465193669_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl193525193726_)) - (let ((_e193539193753_ + _tl193455193656_)) + (let ((_e193469193683_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl193525193726_)))) - (let ((_tl193537193758_ + (gx#stx-e _tl193455193656_)))) + (let ((_tl193467193688_ (let () (declare (not safe)) - (##cdr _e193539193753_))) - (_hd193538193756_ + (##cdr _e193469193683_))) + (_hd193468193686_ (let () (declare (not safe)) - (##car _e193539193753_)))) + (##car _e193469193683_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd193538193756_)) - (let ((_e193542193761_ + (gx#stx-pair? _hd193468193686_)) + (let ((_e193472193691_ (let () (declare (not safe)) - (gx#stx-e _hd193538193756_)))) - (let ((_tl193540193766_ + (gx#stx-e _hd193468193686_)))) + (let ((_tl193470193696_ (let () (declare (not safe)) - (##cdr _e193542193761_))) - (_hd193541193764_ + (##cdr _e193472193691_))) + (_hd193471193694_ (let () (declare (not safe)) - (##car _e193542193761_)))) + (##car _e193472193691_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd193541193764_)) + (gx#identifier? _hd193471193694_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd193541193764_)) + (gx#stx-eq? '%#call _hd193471193694_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193540193766_)) - (let ((_e193545193769_ + (gx#stx-pair? _tl193470193696_)) + (let ((_e193475193699_ (let () (declare (not safe)) (gx#stx-e - _tl193540193766_)))) - (let ((_tl193543193774_ + _tl193470193696_)))) + (let ((_tl193473193704_ (let () (declare (not safe)) - (##cdr _e193545193769_))) - (_hd193544193772_ + (##cdr _e193475193699_))) + (_hd193474193702_ (let () (declare (not safe)) - (##car _e193545193769_)))) + (##car _e193475193699_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd193544193772_)) - (let ((_e193548193777_ + _hd193474193702_)) + (let ((_e193478193707_ (let () (declare (not safe)) (gx#stx-e - _hd193544193772_)))) - (let ((_tl193546193782_ + _hd193474193702_)))) + (let ((_tl193476193712_ (let () (declare (not safe)) - (##cdr _e193548193777_))) - (_hd193547193780_ + (##cdr _e193478193707_))) + (_hd193477193710_ (let () (declare (not safe)) - (##car _e193548193777_)))) + (##car _e193478193707_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd193547193780_)) + _hd193477193710_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd193547193780_)) + (gx#stx-eq? '%#ref _hd193477193710_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193546193782_)) - (let ((_e193551193785_ + (gx#stx-pair? _tl193476193712_)) + (let ((_e193481193715_ (let () (declare (not safe)) - (gx#stx-e _tl193546193782_)))) - (let ((_tl193549193790_ + (gx#stx-e _tl193476193712_)))) + (let ((_tl193479193720_ (let () (declare (not safe)) - (##cdr _e193551193785_))) - (_hd193550193788_ + (##cdr _e193481193715_))) + (_hd193480193718_ (let () (declare (not safe)) - (##car _e193551193785_)))) + (##car _e193481193715_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193549193790_)) + (gx#stx-null? _tl193479193720_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193543193774_)) - (let ((_e193554193793_ + (gx#stx-pair? _tl193473193704_)) + (let ((_e193484193723_ (let () (declare (not safe)) - (gx#stx-e _tl193543193774_)))) - (let ((_tl193552193798_ + (gx#stx-e _tl193473193704_)))) + (let ((_tl193482193728_ (let () (declare (not safe)) - (##cdr _e193554193793_))) - (_hd193553193796_ + (##cdr _e193484193723_))) + (_hd193483193726_ (let () (declare (not safe)) - (##car _e193554193793_)))) + (##car _e193484193723_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd193553193796_)) - (let ((_e193557193801_ + _hd193483193726_)) + (let ((_e193487193731_ (let () (declare (not safe)) (gx#stx-e - _hd193553193796_)))) - (let ((_tl193555193806_ + _hd193483193726_)))) + (let ((_tl193485193736_ (let () (declare (not safe)) - (##cdr _e193557193801_))) - (_hd193556193804_ + (##cdr _e193487193731_))) + (_hd193486193734_ (let () (declare (not safe)) - (##car _e193557193801_)))) + (##car _e193487193731_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd193556193804_)) + _hd193486193734_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd193556193804_)) + _hd193486193734_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl193555193806_)) - (let ((_e193560193809_ + (gx#stx-pair? _tl193485193736_)) + (let ((_e193490193739_ (let () (declare (not safe)) - (gx#stx-e _tl193555193806_)))) - (let ((_tl193558193814_ + (gx#stx-e _tl193485193736_)))) + (let ((_tl193488193744_ (let () (declare (not safe)) - (##cdr _e193560193809_))) - (_hd193559193812_ + (##cdr _e193490193739_))) + (_hd193489193742_ (let () (declare (not safe)) - (##car _e193560193809_)))) + (##car _e193490193739_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193558193814_)) + (gx#stx-null? _tl193488193744_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl193537193758_)) - (___kont202039202040_ - _hd193559193812_ - _hd193550193788_ - _tl193530193731_ - _arg193536193750_) - (___match202140202141_ - _e193527193721_ - _hd193526193724_ - _tl193525193726_ - _e193539193753_ - _hd193538193756_ - _tl193537193758_ - _e193542193761_ - _hd193541193764_ - _tl193540193766_ - _e193545193769_ - _hd193544193772_ - _tl193543193774_ - _e193548193777_ - _hd193547193780_ - _tl193546193782_ - _e193551193785_ - _hd193550193788_ - _tl193549193790_ - _e193554193793_ - _hd193553193796_ - _tl193552193798_ - _e193557193801_ - _hd193556193804_ - _tl193555193806_ - _e193560193809_ - _hd193559193812_ - _tl193558193814_)) + (gx#stx-null? _tl193467193688_)) + (___kont201969201970_ + _hd193489193742_ + _hd193480193718_ + _tl193460193661_ + _arg193466193680_) + (___match202070202071_ + _e193457193651_ + _hd193456193654_ + _tl193455193656_ + _e193469193683_ + _hd193468193686_ + _tl193467193688_ + _e193472193691_ + _hd193471193694_ + _tl193470193696_ + _e193475193699_ + _hd193474193702_ + _tl193473193704_ + _e193478193707_ + _hd193477193710_ + _tl193476193712_ + _e193481193715_ + _hd193480193718_ + _tl193479193720_ + _e193484193723_ + _hd193483193726_ + _tl193482193728_ + _e193487193731_ + _hd193486193734_ + _tl193485193736_ + _e193490193739_ + _hd193489193742_ + _tl193488193744_)) (let () (declare (not safe)) - (_g193474193598_))))) - (let () (declare (not safe)) (_g193474193598_))) - (let () (declare (not safe)) (_g193474193598_))) - (let () (declare (not safe)) (_g193474193598_))))) + (_g193404193528_))))) + (let () (declare (not safe)) (_g193404193528_))) + (let () (declare (not safe)) (_g193404193528_))) + (let () (declare (not safe)) (_g193404193528_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g193474193598_))))) + (_g193404193528_))))) (let () (declare (not safe)) - (_g193474193598_))) + (_g193404193528_))) (let () (declare (not safe)) - (_g193474193598_))))) - (let () (declare (not safe)) (_g193474193598_))) - (let () (declare (not safe)) (_g193474193598_))) - (let () (declare (not safe)) (_g193474193598_))))) + (_g193404193528_))))) + (let () (declare (not safe)) (_g193404193528_))) + (let () (declare (not safe)) (_g193404193528_))) + (let () (declare (not safe)) (_g193404193528_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g193474193598_))))) + (_g193404193528_))))) (let () (declare (not safe)) - (_g193474193598_))) + (_g193404193528_))) (let () (declare (not safe)) - (_g193474193598_))) + (_g193404193528_))) (let () (declare (not safe)) - (_g193474193598_))))) - (let () (declare (not safe)) (_g193474193598_))))) - (let () (declare (not safe)) (_g193474193598_)))))))) + (_g193404193528_))))) + (let () (declare (not safe)) (_g193404193528_))))) + (let () (declare (not safe)) (_g193404193528_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop193531193734_ - _target193528193729_ + (_loop193461193664_ + _target193458193659_ '()))))) - (___match202058202059_ - (lambda (_e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_) - (letrec ((_loop193485193870_ - (lambda (_hd193483193873_ - _arg193489193875_) + (___match201988201989_ + (lambda (_e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_) + (letrec ((_loop193415193800_ + (lambda (_hd193413193803_ + _arg193419193805_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd193483193873_)) - (let ((_e193486193878_ + _hd193413193803_)) + (let ((_e193416193808_ (let () (declare (not safe)) (gx#stx-e - _hd193483193873_)))) - (let ((_lp-tl193488193883_ + _hd193413193803_)))) + (let ((_lp-tl193418193813_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e193486193878_))) - (_lp-hd193487193881_ - (let () (declare (not safe)) (##car _e193486193878_)))) - (let ((__tmp203350 + (##cdr _e193416193808_))) + (_lp-hd193417193811_ + (let () (declare (not safe)) (##car _e193416193808_)))) + (let ((__tmp203280 (let () (declare (not safe)) - (cons _lp-hd193487193881_ _arg193489193875_)))) + (cons _lp-hd193417193811_ _arg193419193805_)))) (declare (not safe)) - (_loop193485193870_ _lp-tl193488193883_ __tmp203350)))) + (_loop193415193800_ _lp-tl193418193813_ __tmp203280)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg193490193886_ - (reverse _arg193489193875_))) + (let ((_arg193420193816_ + (reverse _arg193419193805_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl193479193862_)) - (let ((_e193493193889_ + _tl193409193792_)) + (let ((_e193423193819_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl193479193862_)))) - (let ((_tl193491193894_ + (gx#stx-e _tl193409193792_)))) + (let ((_tl193421193824_ (let () (declare (not safe)) - (##cdr _e193493193889_))) - (_hd193492193892_ + (##cdr _e193423193819_))) + (_hd193422193822_ (let () (declare (not safe)) - (##car _e193493193889_)))) + (##car _e193423193819_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd193492193892_)) - (let ((_e193496193897_ + (gx#stx-pair? _hd193422193822_)) + (let ((_e193426193827_ (let () (declare (not safe)) - (gx#stx-e _hd193492193892_)))) - (let ((_tl193494193902_ + (gx#stx-e _hd193422193822_)))) + (let ((_tl193424193832_ (let () (declare (not safe)) - (##cdr _e193496193897_))) - (_hd193495193900_ + (##cdr _e193426193827_))) + (_hd193425193830_ (let () (declare (not safe)) - (##car _e193496193897_)))) + (##car _e193426193827_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd193495193900_)) + (gx#identifier? _hd193425193830_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd193495193900_)) + (gx#stx-eq? '%#call _hd193425193830_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193494193902_)) - (let ((_e193499193905_ + (gx#stx-pair? _tl193424193832_)) + (let ((_e193429193835_ (let () (declare (not safe)) (gx#stx-e - _tl193494193902_)))) - (let ((_tl193497193910_ + _tl193424193832_)))) + (let ((_tl193427193840_ (let () (declare (not safe)) - (##cdr _e193499193905_))) - (_hd193498193908_ + (##cdr _e193429193835_))) + (_hd193428193838_ (let () (declare (not safe)) - (##car _e193499193905_)))) + (##car _e193429193835_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd193498193908_)) - (let ((_e193502193913_ + _hd193428193838_)) + (let ((_e193432193843_ (let () (declare (not safe)) (gx#stx-e - _hd193498193908_)))) - (let ((_tl193500193918_ + _hd193428193838_)))) + (let ((_tl193430193848_ (let () (declare (not safe)) - (##cdr _e193502193913_))) - (_hd193501193916_ + (##cdr _e193432193843_))) + (_hd193431193846_ (let () (declare (not safe)) - (##car _e193502193913_)))) + (##car _e193432193843_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd193501193916_)) + _hd193431193846_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd193501193916_)) + (gx#stx-eq? '%#ref _hd193431193846_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193500193918_)) - (let ((_e193505193921_ + (gx#stx-pair? _tl193430193848_)) + (let ((_e193435193851_ (let () (declare (not safe)) - (gx#stx-e _tl193500193918_)))) - (let ((_tl193503193926_ + (gx#stx-e _tl193430193848_)))) + (let ((_tl193433193856_ (let () (declare (not safe)) - (##cdr _e193505193921_))) - (_hd193504193924_ + (##cdr _e193435193851_))) + (_hd193434193854_ (let () (declare (not safe)) - (##car _e193505193921_)))) + (##car _e193435193851_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193503193926_)) + (gx#stx-null? _tl193433193856_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl193497193910_)) - (let ((___splice202037202038_ + (gx#stx-pair/null? _tl193427193840_)) + (let ((___splice201967201968_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl193497193910_ + _tl193427193840_ '0)))) - (let ((_tl193508193931_ + (let ((_tl193438193861_ (let () (declare (not safe)) (##vector-ref - ___splice202037202038_ + ___splice201967201968_ '1))) - (_target193506193929_ + (_target193436193859_ (let () (declare (not safe)) (##vector-ref - ___splice202037202038_ + ___splice201967201968_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193508193931_)) - (letrec ((_loop193509193934_ - (lambda (_hd193507193937_ + _tl193438193861_)) + (letrec ((_loop193439193864_ + (lambda (_hd193437193867_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg193513193939_) + _xarg193443193869_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd193507193937_)) - (let ((_e193510193942_ + (gx#stx-pair? _hd193437193867_)) + (let ((_e193440193872_ (let () (declare (not safe)) - (gx#stx-e _hd193507193937_)))) - (let ((_lp-tl193512193947_ + (gx#stx-e _hd193437193867_)))) + (let ((_lp-tl193442193877_ (let () (declare (not safe)) - (##cdr _e193510193942_))) - (_lp-hd193511193945_ + (##cdr _e193440193872_))) + (_lp-hd193441193875_ (let () (declare (not safe)) - (##car _e193510193942_)))) + (##car _e193440193872_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd193511193945_)) - (let ((_e193517193950_ + (gx#stx-pair? _lp-hd193441193875_)) + (let ((_e193447193880_ (let () (declare (not safe)) - (gx#stx-e _lp-hd193511193945_)))) - (let ((_tl193515193955_ + (gx#stx-e _lp-hd193441193875_)))) + (let ((_tl193445193885_ (let () (declare (not safe)) - (##cdr _e193517193950_))) - (_hd193516193953_ + (##cdr _e193447193880_))) + (_hd193446193883_ (let () (declare (not safe)) - (##car _e193517193950_)))) + (##car _e193447193880_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd193516193953_)) + (gx#identifier? _hd193446193883_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd193516193953_)) + _hd193446193883_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl193515193955_)) - (let ((_e193520193958_ + _tl193445193885_)) + (let ((_e193450193888_ (let () (declare (not safe)) (gx#stx-e - _tl193515193955_)))) - (let ((_tl193518193963_ + _tl193445193885_)))) + (let ((_tl193448193893_ (let () (declare (not safe)) - (##cdr _e193520193958_))) - (_hd193519193961_ + (##cdr _e193450193888_))) + (_hd193449193891_ (let () (declare (not safe)) - (##car _e193520193958_)))) + (##car _e193450193888_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193518193963_)) - (let ((__tmp203349 + _tl193448193893_)) + (let ((__tmp203279 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd193519193961_ _xarg193513193939_)))) + (cons _hd193449193891_ _xarg193443193869_)))) (declare (not safe)) - (_loop193509193934_ _lp-tl193512193947_ __tmp203349)) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)))) + (_loop193439193864_ _lp-tl193442193877_ __tmp203279)) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)))) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)))) - (let ((_xarg193514193966_ (reverse _xarg193513193939_))) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)))) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)))) + (let ((_xarg193444193896_ (reverse _xarg193443193869_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193491193894_)) - (___kont202033202034_ - _xarg193514193966_ - _hd193504193924_ - _arg193490193886_) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_))))))) + (gx#stx-null? _tl193421193824_)) + (___kont201963201964_ + _xarg193444193896_ + _hd193434193854_ + _arg193420193816_) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop193509193934_ - _target193506193929_ + (_loop193439193864_ + _target193436193859_ '()))) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)))) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)))) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)))) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)))) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)))) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)))) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)))) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)))) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_))))))) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)))) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)))) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)))) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop193485193870_ - _target193482193865_ + (_loop193415193800_ + _target193412193795_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202031202032_)) - (let ((_e193481193857_ + (gx#stx-pair? ___stx201961201962_)) + (let ((_e193411193787_ (let () (declare (not safe)) - (gx#stx-e ___stx202031202032_)))) - (let ((_tl193479193862_ + (gx#stx-e ___stx201961201962_)))) + (let ((_tl193409193792_ (let () (declare (not safe)) - (##cdr _e193481193857_))) - (_hd193480193860_ + (##cdr _e193411193787_))) + (_hd193410193790_ (let () (declare (not safe)) - (##car _e193481193857_)))) + (##car _e193411193787_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd193480193860_)) - (let ((___splice202035202036_ + (gx#stx-pair/null? _hd193410193790_)) + (let ((___splice201965201966_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd193480193860_ + _hd193410193790_ '0)))) - (let ((_tl193484193867_ + (let ((_tl193414193797_ (let () (declare (not safe)) (##vector-ref - ___splice202035202036_ + ___splice201965201966_ '1))) - (_target193482193865_ + (_target193412193795_ (let () (declare (not safe)) (##vector-ref - ___splice202035202036_ + ___splice201965201966_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193484193867_)) - (___match202058202059_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_) - (___match202070202071_ - _e193481193857_ - _hd193480193860_ - _tl193479193862_ - ___splice202035202036_ - _target193482193865_ - _tl193484193867_)))) + _tl193414193797_)) + (___match201988201989_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_) + (___match202000202001_ + _e193411193787_ + _hd193410193790_ + _tl193409193792_ + ___splice201965201966_ + _target193412193795_ + _tl193414193797_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193479193862_)) - (let ((_e193569193611_ + (gx#stx-pair? _tl193409193792_)) + (let ((_e193499193541_ (let () (declare (not safe)) (gx#stx-e - _tl193479193862_)))) - (let ((_tl193567193616_ + _tl193409193792_)))) + (let ((_tl193497193546_ (let () (declare (not safe)) - (##cdr _e193569193611_))) - (_hd193568193614_ + (##cdr _e193499193541_))) + (_hd193498193544_ (let () (declare (not safe)) - (##car _e193569193611_)))) + (##car _e193499193541_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd193568193614_)) - (let ((_e193572193619_ + _hd193498193544_)) + (let ((_e193502193549_ (let () (declare (not safe)) (gx#stx-e - _hd193568193614_)))) - (let ((_tl193570193624_ + _hd193498193544_)))) + (let ((_tl193500193554_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e193572193619_))) - (_hd193571193622_ - (let () (declare (not safe)) (##car _e193572193619_)))) + (##cdr _e193502193549_))) + (_hd193501193552_ + (let () (declare (not safe)) (##car _e193502193549_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd193571193622_)) + (gx#identifier? _hd193501193552_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd193571193622_)) + (gx#stx-eq? '%#call _hd193501193552_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193570193624_)) - (let ((_e193575193627_ + (gx#stx-pair? _tl193500193554_)) + (let ((_e193505193557_ (let () (declare (not safe)) - (gx#stx-e _tl193570193624_)))) - (let ((_tl193573193632_ + (gx#stx-e _tl193500193554_)))) + (let ((_tl193503193562_ (let () (declare (not safe)) - (##cdr _e193575193627_))) - (_hd193574193630_ + (##cdr _e193505193557_))) + (_hd193504193560_ (let () (declare (not safe)) - (##car _e193575193627_)))) + (##car _e193505193557_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd193574193630_)) - (let ((_e193578193635_ + (gx#stx-pair? _hd193504193560_)) + (let ((_e193508193565_ (let () (declare (not safe)) - (gx#stx-e _hd193574193630_)))) - (let ((_tl193576193640_ + (gx#stx-e _hd193504193560_)))) + (let ((_tl193506193570_ (let () (declare (not safe)) - (##cdr _e193578193635_))) - (_hd193577193638_ + (##cdr _e193508193565_))) + (_hd193507193568_ (let () (declare (not safe)) - (##car _e193578193635_)))) + (##car _e193508193565_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd193577193638_)) + _hd193507193568_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd193577193638_)) + _hd193507193568_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl193576193640_)) - (let ((_e193581193643_ + _tl193506193570_)) + (let ((_e193511193573_ (let () (declare (not safe)) (gx#stx-e - _tl193576193640_)))) - (let ((_tl193579193648_ + _tl193506193570_)))) + (let ((_tl193509193578_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e193581193643_))) - (_hd193580193646_ - (let () (declare (not safe)) (##car _e193581193643_)))) + (##cdr _e193511193573_))) + (_hd193510193576_ + (let () (declare (not safe)) (##car _e193511193573_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193579193648_)) + (gx#stx-null? _tl193509193578_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193573193632_)) - (let ((_e193584193651_ + (gx#stx-pair? _tl193503193562_)) + (let ((_e193514193581_ (let () (declare (not safe)) - (gx#stx-e _tl193573193632_)))) - (let ((_tl193582193656_ + (gx#stx-e _tl193503193562_)))) + (let ((_tl193512193586_ (let () (declare (not safe)) - (##cdr _e193584193651_))) - (_hd193583193654_ + (##cdr _e193514193581_))) + (_hd193513193584_ (let () (declare (not safe)) - (##car _e193584193651_)))) + (##car _e193514193581_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd193583193654_)) - (let ((_e193587193659_ + (gx#stx-pair? _hd193513193584_)) + (let ((_e193517193589_ (let () (declare (not safe)) - (gx#stx-e _hd193583193654_)))) - (let ((_tl193585193664_ + (gx#stx-e _hd193513193584_)))) + (let ((_tl193515193594_ (let () (declare (not safe)) - (##cdr _e193587193659_))) - (_hd193586193662_ + (##cdr _e193517193589_))) + (_hd193516193592_ (let () (declare (not safe)) - (##car _e193587193659_)))) + (##car _e193517193589_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd193586193662_)) + (gx#identifier? _hd193516193592_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd193586193662_)) + _hd193516193592_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl193585193664_)) - (let ((_e193590193667_ + _tl193515193594_)) + (let ((_e193520193597_ (let () (declare (not safe)) (gx#stx-e - _tl193585193664_)))) - (let ((_tl193588193672_ + _tl193515193594_)))) + (let ((_tl193518193602_ (let () (declare (not safe)) - (##cdr _e193590193667_))) - (_hd193589193670_ + (##cdr _e193520193597_))) + (_hd193519193600_ (let () (declare (not safe)) - (##car _e193590193667_)))) + (##car _e193520193597_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193588193672_)) + _tl193518193602_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl193582193656_)) - (let ((_e193593193675_ + _tl193512193586_)) + (let ((_e193523193605_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl193582193656_)))) - (let ((_tl193591193680_ + (gx#stx-e _tl193512193586_)))) + (let ((_tl193521193610_ (let () (declare (not safe)) - (##cdr _e193593193675_))) - (_hd193592193678_ + (##cdr _e193523193605_))) + (_hd193522193608_ (let () (declare (not safe)) - (##car _e193593193675_)))) + (##car _e193523193605_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193591193680_)) + (gx#stx-null? _tl193521193610_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl193567193616_)) - (___kont202043202044_ - _hd193589193670_ - _hd193580193646_ - _hd193480193860_) + (gx#stx-null? _tl193497193546_)) + (___kont201973201974_ + _hd193519193600_ + _hd193510193576_ + _hd193410193790_) (let () (declare (not safe)) - (_g193474193598_))) - (let () (declare (not safe)) (_g193474193598_))))) - (let () (declare (not safe)) (_g193474193598_))) - (let () (declare (not safe)) (_g193474193598_))))) + (_g193404193528_))) + (let () (declare (not safe)) (_g193404193528_))))) + (let () (declare (not safe)) (_g193404193528_))) + (let () (declare (not safe)) (_g193404193528_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g193474193598_))) + (_g193404193528_))) (let () (declare (not safe)) - (_g193474193598_))) + (_g193404193528_))) (let () (declare (not safe)) - (_g193474193598_))))) + (_g193404193528_))))) (let () (declare (not safe)) - (_g193474193598_))))) - (let () (declare (not safe)) (_g193474193598_))) - (let () (declare (not safe)) (_g193474193598_))))) + (_g193404193528_))))) + (let () (declare (not safe)) (_g193404193528_))) + (let () (declare (not safe)) (_g193404193528_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g193474193598_))) + (_g193404193528_))) (let () (declare (not safe)) - (_g193474193598_))) + (_g193404193528_))) (let () (declare (not safe)) - (_g193474193598_))))) + (_g193404193528_))))) (let () (declare (not safe)) - (_g193474193598_))))) - (let () (declare (not safe)) (_g193474193598_))) - (let () (declare (not safe)) (_g193474193598_))) - (let () (declare (not safe)) (_g193474193598_))))) + (_g193404193528_))))) + (let () (declare (not safe)) (_g193404193528_))) + (let () (declare (not safe)) (_g193404193528_))) + (let () (declare (not safe)) (_g193404193528_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g193474193598_))))) + (_g193404193528_))))) (let () (declare (not safe)) - (_g193474193598_)))))) + (_g193404193528_)))))) (let () (declare (not safe)) - (_g193474193598_)))))))) - (_generate1193320_ - (lambda (_args193455_ - _arglen193456_ - _hd193457_ - _body193458_) - (let* ((_len193460_ + (_g193404193528_)))))))) + (_generate1193250_ + (lambda (_args193385_ + _arglen193386_ + _hd193387_ + _body193388_) + (let* ((_len193390_ (let () (declare (not safe)) - (gx#stx-length _hd193457_))) - (_condition193462_ + (gx#stx-length _hd193387_))) + (_condition193392_ (if (let () (declare (not safe)) - (gx#stx-list? _hd193457_)) + (gx#stx-list? _hd193387_)) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203365 - (let ((__tmp203366 + (let ((__tmp203295 + (let ((__tmp203296 (let () (declare (not safe)) - (cons _len193460_ '())))) + (cons _len193390_ '())))) (declare (not safe)) - (cons _arglen193456_ - __tmp203366)))) + (cons _arglen193386_ + __tmp203296)))) (declare (not safe)) - (cons '##fx= __tmp203365)) - (let ((__tmp203359 - (let ((__tmp203360 - (let ((__tmp203361 - (let ((__tmp203362 + (cons '##fx= __tmp203295)) + (let ((__tmp203289 + (let ((__tmp203290 + (let ((__tmp203291 + (let ((__tmp203292 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203363 - (let ((__tmp203364 + (let ((__tmp203293 + (let ((__tmp203294 (let () (declare (not safe)) - (cons _len193460_ '())))) + (cons _len193390_ '())))) (declare (not safe)) - (cons _arglen193456_ __tmp203364)))) + (cons _arglen193386_ __tmp203294)))) (declare (not safe)) - (cons '##fx= __tmp203363)))) + (cons '##fx= __tmp203293)))) (declare (not safe)) - (cons __tmp203362 '())))) + (cons __tmp203292 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp203361)))) + (cons '(declare (not safe)) __tmp203291)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp203360)))) + (cons '() __tmp203290)))) (declare (not safe)) - (cons 'let __tmp203359))) - (if (> _len193460_ '0) + (cons 'let __tmp203289))) + (if (> _len193390_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203357 - (let ((__tmp203358 + (let ((__tmp203287 + (let ((__tmp203288 (let () (declare (not safe)) - (cons _len193460_ + (cons _len193390_ '())))) (declare (not safe)) - (cons _arglen193456_ - __tmp203358)))) + (cons _arglen193386_ + __tmp203288)))) (declare (not safe)) - (cons '##fx>= __tmp203357)) - (let ((__tmp203351 - (let ((__tmp203352 - (let ((__tmp203353 - (let ((__tmp203354 + (cons '##fx>= __tmp203287)) + (let ((__tmp203281 + (let ((__tmp203282 + (let ((__tmp203283 + (let ((__tmp203284 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203355 - (let ((__tmp203356 + (let ((__tmp203285 + (let ((__tmp203286 (let () (declare (not safe)) - (cons _len193460_ '())))) + (cons _len193390_ '())))) (declare (not safe)) - (cons _arglen193456_ __tmp203356)))) + (cons _arglen193386_ __tmp203286)))) (declare (not safe)) - (cons '##fx>= __tmp203355)))) + (cons '##fx>= __tmp203285)))) (declare (not safe)) - (cons __tmp203354 '())))) + (cons __tmp203284 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp203353)))) + (cons '(declare (not safe)) __tmp203283)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp203352)))) + (cons '() __tmp203282)))) (declare (not safe)) - (cons 'let __tmp203351))) + (cons 'let __tmp203281))) '#t))) - (_dispatch193464_ + (_dispatch193394_ (if (let () (declare (not safe)) - (_dispatch-case?193318_ - _hd193457_ - _body193458_)) + (_dispatch-case?193248_ + _hd193387_ + _body193388_)) (let () (declare (not safe)) - (_dispatch-case-e193319_ - _hd193457_ - _body193458_)) + (_dispatch-case-e193249_ + _hd193387_ + _body193388_)) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _hd193457_ - _body193458_))))) - (let ((__tmp203367 - (let ((__tmp203368 - (let ((__tmp203369 - (let ((__tmp203370 + _hd193387_ + _body193388_))))) + (let ((__tmp203297 + (let ((__tmp203298 + (let ((__tmp203299 + (let ((__tmp203300 (let () (declare (not safe)) - (cons _args193455_ + (cons _args193385_ '())))) (declare (not safe)) - (cons _dispatch193464_ - __tmp203370)))) + (cons _dispatch193394_ + __tmp203300)))) (declare (not safe)) - (cons 'apply __tmp203369)))) + (cons 'apply __tmp203299)))) (declare (not safe)) - (cons __tmp203368 '())))) + (cons __tmp203298 '())))) (declare (not safe)) - (cons _condition193462_ __tmp203367)))))) - (let* ((_g193322193350_ - (lambda (_g193323193347_) + (cons _condition193392_ __tmp203297)))))) + (let* ((_g193252193280_ + (lambda (_g193253193277_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g193323193347_)))) - (_g193321193452_ - (lambda (_g193323193353_) + _g193253193277_)))) + (_g193251193382_ + (lambda (_g193253193283_) (if (let () (declare (not safe)) - (gx#stx-pair? _g193323193353_)) - (let ((_e193328193355_ + (gx#stx-pair? _g193253193283_)) + (let ((_e193258193285_ (let () (declare (not safe)) - (gx#stx-e _g193323193353_)))) - (let ((_hd193327193358_ + (gx#stx-e _g193253193283_)))) + (let ((_hd193257193288_ (let () (declare (not safe)) - (##car _e193328193355_))) - (_tl193326193360_ + (##car _e193258193285_))) + (_tl193256193290_ (let () (declare (not safe)) - (##cdr _e193328193355_)))) + (##cdr _e193258193285_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl193326193360_)) - (let ((_g203371_ + (gx#stx-pair/null? _tl193256193290_)) + (let ((_g203301_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl193326193360_ + _tl193256193290_ '0)))) (begin - (let ((_g203372_ + (let ((_g203302_ (let () (declare (not safe)) - (if (##values? _g203371_) - (##vector-length _g203371_) + (if (##values? _g203301_) + (##vector-length _g203301_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g203372_ 2))) + (##fx= _g203302_ 2))) (error "Context expects 2 values" - _g203372_))) - (let ((_target193329193363_ + _g203302_))) + (let ((_target193259193293_ (let () (declare (not safe)) - (##vector-ref _g203371_ 0))) - (_tl193331193365_ + (##vector-ref _g203301_ 0))) + (_tl193261193295_ (let () (declare (not safe)) - (##vector-ref _g203371_ 1)))) + (##vector-ref _g203301_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193331193365_)) - (letrec ((_loop193332193368_ - (lambda (_hd193330193371_ - _body193336193373_ - _hd193337193375_) + (gx#stx-null? _tl193261193295_)) + (letrec ((_loop193262193298_ + (lambda (_hd193260193301_ + _body193266193303_ + _hd193267193305_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd193330193371_)) - (let ((_e193333193378_ + _hd193260193301_)) + (let ((_e193263193308_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd193330193371_)))) - (let ((_lp-hd193334193381_ + (gx#stx-e _hd193260193301_)))) + (let ((_lp-hd193264193311_ (let () (declare (not safe)) - (##car _e193333193378_))) - (_lp-tl193335193383_ + (##car _e193263193308_))) + (_lp-tl193265193313_ (let () (declare (not safe)) - (##cdr _e193333193378_)))) + (##cdr _e193263193308_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd193334193381_)) - (let ((_e193342193386_ + (gx#stx-pair? _lp-hd193264193311_)) + (let ((_e193272193316_ (let () (declare (not safe)) - (gx#stx-e _lp-hd193334193381_)))) - (let ((_hd193341193389_ + (gx#stx-e _lp-hd193264193311_)))) + (let ((_hd193271193319_ (let () (declare (not safe)) - (##car _e193342193386_))) - (_tl193340193391_ + (##car _e193272193316_))) + (_tl193270193321_ (let () (declare (not safe)) - (##cdr _e193342193386_)))) + (##cdr _e193272193316_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193340193391_)) - (let ((_e193345193394_ + (gx#stx-pair? _tl193270193321_)) + (let ((_e193275193324_ (let () (declare (not safe)) - (gx#stx-e _tl193340193391_)))) - (let ((_hd193344193397_ + (gx#stx-e _tl193270193321_)))) + (let ((_hd193274193327_ (let () (declare (not safe)) - (##car _e193345193394_))) - (_tl193343193399_ + (##car _e193275193324_))) + (_tl193273193329_ (let () (declare (not safe)) - (##cdr _e193345193394_)))) + (##cdr _e193275193324_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193343193399_)) - (let ((__tmp203401 + (gx#stx-null? _tl193273193329_)) + (let ((__tmp203331 (let () (declare (not safe)) - (cons _hd193344193397_ - _body193336193373_))) - (__tmp203400 + (cons _hd193274193327_ + _body193266193303_))) + (__tmp203330 (let () (declare (not safe)) - (cons _hd193341193389_ - _hd193337193375_)))) + (cons _hd193271193319_ + _hd193267193305_)))) (declare (not safe)) - (_loop193332193368_ - _lp-tl193335193383_ - __tmp203401 - __tmp203400)) + (_loop193262193298_ + _lp-tl193265193313_ + __tmp203331 + __tmp203330)) (let () (declare (not safe)) - (_g193322193350_ - _g193323193353_))))) + (_g193252193280_ + _g193253193283_))))) (let () (declare (not safe)) - (_g193322193350_ _g193323193353_))))) + (_g193252193280_ _g193253193283_))))) (let () (declare (not safe)) - (_g193322193350_ _g193323193353_))))) - (let ((_body193338193402_ (reverse _body193336193373_)) - (_hd193339193404_ (reverse _hd193337193375_))) - ((lambda (_L193407_ _L193408_) - (let ((_args193427_ + (_g193252193280_ _g193253193283_))))) + (let ((_body193268193332_ (reverse _body193266193303_)) + (_hd193269193334_ (reverse _hd193267193305_))) + ((lambda (_L193337_ _L193338_) + (let ((_args193357_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_arglen193428_ + (_arglen193358_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_name193429_ - (let ((_$e193424_ - (let ((__tmp203373 + (_name193359_ + (let ((_$e193354_ + (let ((__tmp203303 (gxc#current-compile-runtime-names))) (declare (not safe)) (table-ref - __tmp203373 - _stx193316_ + __tmp203303 + _stx193246_ '#f)))) - (if _$e193424_ - _$e193424_ + (if _$e193354_ + _$e193354_ ''case-lambda-dispatch)))) - (let ((__tmp203374 - (let ((__tmp203375 - (let ((__tmp203376 - (let ((__tmp203377 - (let ((__tmp203390 - (let ((__tmp203391 + (let ((__tmp203304 + (let ((__tmp203305 + (let ((__tmp203306 + (let ((__tmp203307 + (let ((__tmp203320 + (let ((__tmp203321 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203392 - (let ((__tmp203393 + (let ((__tmp203322 + (let ((__tmp203323 (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203399 + (let ((__tmp203329 (let () (declare (not safe)) - (cons _args193427_ + (cons _args193357_ '())))) (declare (not safe)) - (cons '##length __tmp203399)) - (let ((__tmp203394 - (let ((__tmp203395 - (let ((__tmp203396 + (cons '##length __tmp203329)) + (let ((__tmp203324 + (let ((__tmp203325 + (let ((__tmp203326 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203397 - (let ((__tmp203398 + (let ((__tmp203327 + (let ((__tmp203328 (let () (declare (not safe)) - (cons _args193427_ '())))) + (cons _args193357_ '())))) (declare (not safe)) - (cons '##length __tmp203398)))) + (cons '##length __tmp203328)))) (declare (not safe)) - (cons __tmp203397 '())))) + (cons __tmp203327 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp203396)))) + (cons '(declare (not safe)) __tmp203326)))) (declare (not safe)) - (cons '() __tmp203395)))) + (cons '() __tmp203325)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp203394))))) + (cons 'let __tmp203324))))) (declare (not safe)) - (cons __tmp203393 '())))) + (cons __tmp203323 '())))) (declare (not safe)) - (cons _arglen193428_ __tmp203392)))) + (cons _arglen193358_ __tmp203322)))) (declare (not safe)) - (cons __tmp203391 '()))) - (__tmp203378 - (let ((__tmp203379 - (let ((__tmp203380 - (let ((__tmp203384 - (let ((__tmp203385 - (let ((__tmp203386 - (let ((__tmp203387 - (let ((__tmp203388 + (cons __tmp203321 '()))) + (__tmp203308 + (let ((__tmp203309 + (let ((__tmp203310 + (let ((__tmp203314 + (let ((__tmp203315 + (let ((__tmp203316 + (let ((__tmp203317 + (let ((__tmp203318 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203389 + (let ((__tmp203319 (let () (declare (not safe)) - (cons _args193427_ '())))) + (cons _args193357_ '())))) (declare (not safe)) - (cons _name193429_ __tmp203389)))) + (cons _name193359_ __tmp203319)))) (declare (not safe)) (cons '##raise-wrong-number-of-arguments-exception - __tmp203388)))) + __tmp203318)))) (declare (not safe)) - (cons __tmp203387 '())))) + (cons __tmp203317 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'else __tmp203386)))) + (cons 'else __tmp203316)))) (declare (not safe)) - (cons __tmp203385 '()))) - (__tmp203381 - (map (lambda (_g193430193433_ - _g193431193435_) + (cons __tmp203315 '()))) + (__tmp203311 + (map (lambda (_g193360193363_ + _g193361193365_) (let () (declare (not safe)) - (_generate1193320_ - _args193427_ - _arglen193428_ - _g193430193433_ - _g193431193435_))) - (let ((__tmp203382 - (lambda (_g193437193440_ - _g193438193442_) + (_generate1193250_ + _args193357_ + _arglen193358_ + _g193360193363_ + _g193361193365_))) + (let ((__tmp203312 + (lambda (_g193367193370_ + _g193368193372_) (let () (declare (not safe)) - (cons _g193437193440_ + (cons _g193367193370_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g193438193442_))))) + _g193368193372_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp203382 + (foldr1 __tmp203312 '() - _L193408_)) - (let ((__tmp203383 - (lambda (_g193444193447_ - _g193445193449_) + _L193338_)) + (let ((__tmp203313 + (lambda (_g193374193377_ + _g193375193379_) (let () (declare (not safe)) - (cons _g193444193447_ + (cons _g193374193377_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g193445193449_))))) + _g193375193379_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp203383 + (foldr1 __tmp203313 '() - _L193407_))))) + _L193337_))))) (declare (not safe)) - (foldr1 cons __tmp203384 __tmp203381)))) + (foldr1 cons __tmp203314 __tmp203311)))) (declare (not safe)) - (cons 'cond __tmp203380)))) + (cons 'cond __tmp203310)))) (declare (not safe)) - (cons __tmp203379 '())))) + (cons __tmp203309 '())))) (declare (not safe)) - (cons __tmp203390 __tmp203378)))) + (cons __tmp203320 __tmp203308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp203377)))) + (cons 'let __tmp203307)))) (declare (not safe)) - (cons __tmp203376 '())))) + (cons __tmp203306 '())))) (declare (not safe)) - (cons _args193427_ __tmp203375)))) + (cons _args193357_ __tmp203305)))) (declare (not safe)) - (cons 'lambda __tmp203374)))) - _body193338193402_ - _hd193339193404_)))))) + (cons 'lambda __tmp203304)))) + _body193268193332_ + _hd193269193334_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop193332193368_ - _target193329193363_ + (_loop193262193298_ + _target193259193293_ '() '()))) (let () (declare (not safe)) - (_g193322193350_ - _g193323193353_)))))) + (_g193252193280_ + _g193253193283_)))))) (let () (declare (not safe)) - (_g193322193350_ _g193323193353_))))) + (_g193252193280_ _g193253193283_))))) (let () (declare (not safe)) - (_g193322193350_ _g193323193353_)))))) + (_g193252193280_ _g193253193283_)))))) (declare (not safe)) - (_g193321193452_ _stx193316_))))) + (_g193251193382_ _stx193246_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_stx192590_ _compiled-body?192591_) - (letrec ((_generate-simple192593_ - (lambda (_hd193303_ _body193304_) - (let ((__tmp203402 - (let ((__tmp203403 + (lambda (_stx192520_ _compiled-body?192521_) + (letrec ((_generate-simple192523_ + (lambda (_hd193233_ _body193234_) + (let ((__tmp203332 + (let ((__tmp203333 (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'let - _hd193303_ - _body193304_ - _compiled-body?192591_)))) + _hd193233_ + _body193234_ + _compiled-body?192521_)))) (declare (not safe)) - (_coalesce-let*192595_ __tmp203403)))) + (_coalesce-let*192525_ __tmp203333)))) (declare (not safe)) - (_coalesce-boolean192594_ __tmp203402)))) - (_coalesce-boolean192594_ - (lambda (_code193164_) + (_coalesce-boolean192524_ __tmp203332)))) + (_coalesce-boolean192524_ + (lambda (_code193094_) (if (gxc#current-compile-boolean-context) - (let* ((_code193165193191_ _code193164_) - (_else193167193199_ (lambda () _code193164_)) - (_K193169193236_ - (lambda (_expr2193202_ - _expr1193203_ - _id193204_) - (let* ((_expr2193205193213_ _expr2193202_) - (_else193207193221_ + (let* ((_code193095193121_ _code193094_) + (_else193097193129_ (lambda () _code193094_)) + (_K193099193166_ + (lambda (_expr2193132_ + _expr1193133_ + _id193134_) + (let* ((_expr2193135193143_ _expr2193132_) + (_else193137193151_ (lambda () - (let ((__tmp203404 - (let ((__tmp203405 + (let ((__tmp203334 + (let ((__tmp203335 (let () (declare (not safe)) - (cons _expr2193202_ + (cons _expr2193132_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _expr1193203_ __tmp203405)))) + (cons _expr1193133_ __tmp203335)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'or __tmp203404)))) - (_K193209193226_ - (lambda (_exprs193224_) - (let ((__tmp203406 + (cons 'or __tmp203334)))) + (_K193139193156_ + (lambda (_exprs193154_) + (let ((__tmp203336 (let () (declare (not safe)) - (cons _expr1193203_ - _exprs193224_)))) + (cons _expr1193133_ + _exprs193154_)))) (declare (not safe)) - (cons 'or __tmp203406))))) + (cons 'or __tmp203336))))) (if (let () (declare (not safe)) - (##pair? _expr2193205193213_)) - (let ((_hd193210193229_ + (##pair? _expr2193135193143_)) + (let ((_hd193140193159_ (let () (declare (not safe)) - (##car _expr2193205193213_))) - (_tl193211193231_ + (##car _expr2193135193143_))) + (_tl193141193161_ (let () (declare (not safe)) - (##cdr _expr2193205193213_)))) + (##cdr _expr2193135193143_)))) (if (let () (declare (not safe)) - (##eq? _hd193210193229_ 'or)) - (let ((_exprs193234_ - _tl193211193231_)) + (##eq? _hd193140193159_ 'or)) + (let ((_exprs193164_ + _tl193141193161_)) (declare (not safe)) - (_K193209193226_ - _exprs193234_)) + (_K193139193156_ + _exprs193164_)) (let () (declare (not safe)) - (_else193207193221_)))) + (_else193137193151_)))) (let () (declare (not safe)) - (_else193207193221_))))))) + (_else193137193151_))))))) (if (let () (declare (not safe)) - (##pair? _code193165193191_)) - (let ((_hd193170193239_ + (##pair? _code193095193121_)) + (let ((_hd193100193169_ (let () (declare (not safe)) - (##car _code193165193191_))) - (_tl193171193241_ + (##car _code193095193121_))) + (_tl193101193171_ (let () (declare (not safe)) - (##cdr _code193165193191_)))) + (##cdr _code193095193121_)))) (if (let () (declare (not safe)) - (##eq? _hd193170193239_ 'let)) + (##eq? _hd193100193169_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl193171193241_)) - (let ((_hd193172193244_ + (##pair? _tl193101193171_)) + (let ((_hd193102193174_ (let () (declare (not safe)) - (##car _tl193171193241_))) - (_tl193173193246_ + (##car _tl193101193171_))) + (_tl193103193176_ (let () (declare (not safe)) - (##cdr _tl193171193241_)))) + (##cdr _tl193101193171_)))) (if (let () (declare (not safe)) - (##pair? _hd193172193244_)) - (let ((_hd193184193249_ + (##pair? _hd193102193174_)) + (let ((_hd193114193179_ (let () (declare (not safe)) - (##car _hd193172193244_))) - (_tl193185193251_ + (##car _hd193102193174_))) + (_tl193115193181_ (let () (declare (not safe)) - (##cdr _hd193172193244_)))) + (##cdr _hd193102193174_)))) (if (let () (declare (not safe)) - (##pair? _hd193184193249_)) - (let ((_hd193186193254_ + (##pair? _hd193114193179_)) + (let ((_hd193116193184_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd193184193249_))) - (_tl193187193256_ - (let () (declare (not safe)) (##cdr _hd193184193249_)))) - (let ((_id193259_ _hd193186193254_)) - (if (let () (declare (not safe)) (##pair? _tl193187193256_)) - (let ((_hd193188193261_ + (##car _hd193114193179_))) + (_tl193117193186_ + (let () (declare (not safe)) (##cdr _hd193114193179_)))) + (let ((_id193189_ _hd193116193184_)) + (if (let () (declare (not safe)) (##pair? _tl193117193186_)) + (let ((_hd193118193191_ (let () (declare (not safe)) - (##car _tl193187193256_))) - (_tl193189193263_ + (##car _tl193117193186_))) + (_tl193119193193_ (let () (declare (not safe)) - (##cdr _tl193187193256_)))) - (let ((_expr1193266_ _hd193188193261_)) + (##cdr _tl193117193186_)))) + (let ((_expr1193196_ _hd193118193191_)) (if (let () (declare (not safe)) - (##null? _tl193189193263_)) + (##null? _tl193119193193_)) (if (let () (declare (not safe)) - (##null? _tl193185193251_)) + (##null? _tl193115193181_)) (if (let () (declare (not safe)) - (##pair? _tl193173193246_)) - (let ((_hd193174193268_ + (##pair? _tl193103193176_)) + (let ((_hd193104193198_ (let () (declare (not safe)) - (##car _tl193173193246_))) - (_tl193175193270_ + (##car _tl193103193176_))) + (_tl193105193200_ (let () (declare (not safe)) - (##cdr _tl193173193246_)))) + (##cdr _tl193103193176_)))) (if (let () (declare (not safe)) - (##pair? _hd193174193268_)) - (let ((_hd193176193273_ + (##pair? _hd193104193198_)) + (let ((_hd193106193203_ (let () (declare (not safe)) - (##car _hd193174193268_))) - (_tl193177193275_ + (##car _hd193104193198_))) + (_tl193107193205_ (let () (declare (not safe)) - (##cdr _hd193174193268_)))) + (##cdr _hd193104193198_)))) (if (let () (declare (not safe)) - (##eq? _hd193176193273_ + (##eq? _hd193106193203_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl193177193275_)) - (let ((_hd193178193278_ + (##pair? _tl193107193205_)) + (let ((_hd193108193208_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl193177193275_))) - (_tl193179193280_ - (let () (declare (not safe)) (##cdr _tl193177193275_)))) - (if ((lambda (_g193282193284_) + (##car _tl193107193205_))) + (_tl193109193210_ + (let () (declare (not safe)) (##cdr _tl193107193205_)))) + (if ((lambda (_g193212193214_) (let () (declare (not safe)) - (eq? _g193282193284_ _id193259_))) - _hd193178193278_) + (eq? _g193212193214_ _id193189_))) + _hd193108193208_) (if (let () (declare (not safe)) - (##pair? _tl193179193280_)) - (let ((_hd193180193287_ + (##pair? _tl193109193210_)) + (let ((_hd193110193217_ (let () (declare (not safe)) - (##car _tl193179193280_))) - (_tl193181193289_ + (##car _tl193109193210_))) + (_tl193111193219_ (let () (declare (not safe)) - (##cdr _tl193179193280_)))) - (if ((lambda (_g193291193293_) + (##cdr _tl193109193210_)))) + (if ((lambda (_g193221193223_) (let () (declare (not safe)) - (eq? _g193291193293_ _id193259_))) - _hd193180193287_) + (eq? _g193221193223_ _id193189_))) + _hd193110193217_) (if (let () (declare (not safe)) - (##pair? _tl193181193289_)) - (let ((_hd193182193296_ + (##pair? _tl193111193219_)) + (let ((_hd193112193226_ (let () (declare (not safe)) - (##car _tl193181193289_))) - (_tl193183193298_ + (##car _tl193111193219_))) + (_tl193113193228_ (let () (declare (not safe)) - (##cdr _tl193181193289_)))) - (let ((_expr2193301_ _hd193182193296_)) + (##cdr _tl193111193219_)))) + (let ((_expr2193231_ _hd193112193226_)) (if (let () (declare (not safe)) - (##null? _tl193183193298_)) + (##null? _tl193113193228_)) (if (let () (declare (not safe)) - (##null? _tl193175193270_)) + (##null? _tl193105193200_)) (let () (declare (not safe)) - (_K193169193236_ - _expr2193301_ - _expr1193266_ - _id193259_)) + (_K193099193166_ + _expr2193231_ + _expr1193196_ + _id193189_)) (let () (declare (not safe)) - (_else193167193199_))) + (_else193097193129_))) (let () (declare (not safe)) - (_else193167193199_))))) + (_else193097193129_))))) (let () (declare (not safe)) - (_else193167193199_))) + (_else193097193129_))) (let () (declare (not safe)) - (_else193167193199_)))) - (let () (declare (not safe)) (_else193167193199_))) - (let () (declare (not safe)) (_else193167193199_)))) - (let () (declare (not safe)) (_else193167193199_))) + (_else193097193129_)))) + (let () (declare (not safe)) (_else193097193129_))) + (let () (declare (not safe)) (_else193097193129_)))) + (let () (declare (not safe)) (_else193097193129_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else193167193199_)))) + (_else193097193129_)))) (let () (declare (not safe)) - (_else193167193199_)))) + (_else193097193129_)))) (let () (declare (not safe)) - (_else193167193199_))) + (_else193097193129_))) (let () (declare (not safe)) - (_else193167193199_))) + (_else193097193129_))) (let () (declare (not safe)) - (_else193167193199_))))) - (let () (declare (not safe)) (_else193167193199_))))) - (let () (declare (not safe)) (_else193167193199_)))) + (_else193097193129_))))) + (let () (declare (not safe)) (_else193097193129_))))) + (let () (declare (not safe)) (_else193097193129_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else193167193199_)))) + (_else193097193129_)))) (let () (declare (not safe)) - (_else193167193199_))) + (_else193097193129_))) (let () (declare (not safe)) - (_else193167193199_)))) + (_else193097193129_)))) (let () (declare (not safe)) - (_else193167193199_)))) - _code193164_))) - (_coalesce-let*192595_ - (lambda (_code192897_) - (let* ((_code192898192962_ _code192897_) - (_else192902192970_ (lambda () _code192897_))) - (let ((_K192944193115_ - (lambda (_body193111_ _expr193112_ _id193113_) - (let ((__tmp203407 - (let ((__tmp203408 - (let ((__tmp203409 - (let ((__tmp203410 + (_else193097193129_)))) + _code193094_))) + (_coalesce-let*192525_ + (lambda (_code192827_) + (let* ((_code192828192892_ _code192827_) + (_else192832192900_ (lambda () _code192827_))) + (let ((_K192874193045_ + (lambda (_body193041_ _expr193042_ _id193043_) + (let ((__tmp203337 + (let ((__tmp203338 + (let ((__tmp203339 + (let ((__tmp203340 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr193112_ '())))) + (cons _expr193042_ '())))) (declare (not safe)) - (cons _id193113_ __tmp203410)))) + (cons _id193043_ __tmp203340)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203409 '())))) + (cons __tmp203339 '())))) (declare (not safe)) - (cons __tmp203408 _body193111_)))) + (cons __tmp203338 _body193041_)))) (declare (not safe)) - (cons 'let __tmp203407)))) - (_K192921193040_ - (lambda (_body193034_ - _expr2193035_ - _id2193036_ - _expr1193037_ - _id1193038_) - (let ((__tmp203411 - (let ((__tmp203412 - (let ((__tmp203416 - (let ((__tmp203417 + (cons 'let __tmp203337)))) + (_K192851192970_ + (lambda (_body192964_ + _expr2192965_ + _id2192966_ + _expr1192967_ + _id1192968_) + (let ((__tmp203341 + (let ((__tmp203342 + (let ((__tmp203346 + (let ((__tmp203347 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1193037_ '())))) + (cons _expr1192967_ '())))) (declare (not safe)) - (cons _id1193038_ __tmp203417))) + (cons _id1192968_ __tmp203347))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp203413 - (let ((__tmp203414 - (let ((__tmp203415 + (__tmp203343 + (let ((__tmp203344 + (let ((__tmp203345 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr2193035_ '())))) + (cons _expr2192965_ '())))) (declare (not safe)) - (cons _id2193036_ __tmp203415)))) + (cons _id2192966_ __tmp203345)))) (declare (not safe)) - (cons __tmp203414 '())))) + (cons __tmp203344 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203416 - __tmp203413)))) + (cons __tmp203346 + __tmp203343)))) (declare (not safe)) - (cons __tmp203412 _body193034_)))) + (cons __tmp203342 _body192964_)))) (declare (not safe)) - (cons 'let* __tmp203411)))) - (_K192904192979_ - (lambda (_body192974_ - _bind192975_ - _expr1192976_ - _id1192977_) - (let ((__tmp203418 - (let ((__tmp203419 - (let ((__tmp203420 - (let ((__tmp203421 + (cons 'let* __tmp203341)))) + (_K192834192909_ + (lambda (_body192904_ + _bind192905_ + _expr1192906_ + _id1192907_) + (let ((__tmp203348 + (let ((__tmp203349 + (let ((__tmp203350 + (let ((__tmp203351 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1192976_ '())))) + (cons _expr1192906_ '())))) (declare (not safe)) - (cons _id1192977_ __tmp203421)))) + (cons _id1192907_ __tmp203351)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203420 - _bind192975_)))) + (cons __tmp203350 + _bind192905_)))) (declare (not safe)) - (cons __tmp203419 _body192974_)))) + (cons __tmp203349 _body192904_)))) (declare (not safe)) - (cons 'let* __tmp203418))))) + (cons 'let* __tmp203348))))) (if (let () (declare (not safe)) - (##pair? _code192898192962_)) - (let ((_tl192946193120_ + (##pair? _code192828192892_)) + (let ((_tl192876193050_ (let () (declare (not safe)) - (##cdr _code192898192962_))) - (_hd192945193118_ + (##cdr _code192828192892_))) + (_hd192875193048_ (let () (declare (not safe)) - (##car _code192898192962_)))) + (##car _code192828192892_)))) (if (let () (declare (not safe)) - (##eq? _hd192945193118_ 'let)) + (##eq? _hd192875193048_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl192946193120_)) - (let ((_tl192948193125_ + (##pair? _tl192876193050_)) + (let ((_tl192878193055_ (let () (declare (not safe)) - (##cdr _tl192946193120_))) - (_hd192947193123_ + (##cdr _tl192876193050_))) + (_hd192877193053_ (let () (declare (not safe)) - (##car _tl192946193120_)))) + (##car _tl192876193050_)))) (if (let () (declare (not safe)) - (##pair? _hd192947193123_)) - (let ((_tl192956193130_ + (##pair? _hd192877193053_)) + (let ((_tl192886193060_ (let () (declare (not safe)) - (##cdr _hd192947193123_))) - (_hd192955193128_ + (##cdr _hd192877193053_))) + (_hd192885193058_ (let () (declare (not safe)) - (##car _hd192947193123_)))) + (##car _hd192877193053_)))) (if (let () (declare (not safe)) - (##pair? _hd192955193128_)) - (let ((_tl192958193135_ + (##pair? _hd192885193058_)) + (let ((_tl192888193065_ (let () (declare (not safe)) - (##cdr _hd192955193128_))) - (_hd192957193133_ + (##cdr _hd192885193058_))) + (_hd192887193063_ (let () (declare (not safe)) - (##car _hd192955193128_)))) + (##car _hd192885193058_)))) (if (let () (declare (not safe)) - (##pair? _tl192958193135_)) - (let ((_tl192960193142_ + (##pair? _tl192888193065_)) + (let ((_tl192890193072_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl192958193135_))) - (_hd192959193140_ + (##cdr _tl192888193065_))) + (_hd192889193070_ (let () (declare (not safe)) - (##car _tl192958193135_)))) + (##car _tl192888193065_)))) (if (let () (declare (not safe)) - (##null? _tl192960193142_)) + (##null? _tl192890193072_)) (if (let () (declare (not safe)) - (##null? _tl192956193130_)) + (##null? _tl192886193060_)) (if (let () (declare (not safe)) - (##pair? _tl192948193125_)) - (let ((_tl192950193149_ + (##pair? _tl192878193055_)) + (let ((_tl192880193079_ (let () (declare (not safe)) - (##cdr _tl192948193125_))) - (_hd192949193147_ + (##cdr _tl192878193055_))) + (_hd192879193077_ (let () (declare (not safe)) - (##car _tl192948193125_)))) + (##car _tl192878193055_)))) (if (let () (declare (not safe)) - (##pair? _hd192949193147_)) - (let ((_tl192952193154_ + (##pair? _hd192879193077_)) + (let ((_tl192882193084_ (let () (declare (not safe)) - (##cdr _hd192949193147_))) - (_hd192951193152_ + (##cdr _hd192879193077_))) + (_hd192881193082_ (let () (declare (not safe)) - (##car _hd192949193147_)))) + (##car _hd192879193077_)))) (if (let () (declare (not safe)) - (##eq? _hd192951193152_ 'let)) + (##eq? _hd192881193082_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl192952193154_)) - (let ((_tl192954193159_ + (##pair? _tl192882193084_)) + (let ((_tl192884193089_ (let () (declare (not safe)) - (##cdr _tl192952193154_))) - (_hd192953193157_ + (##cdr _tl192882193084_))) + (_hd192883193087_ (let () (declare (not safe)) - (##car _tl192952193154_)))) + (##car _tl192882193084_)))) (if (let () (declare (not safe)) - (##null? _hd192953193157_)) + (##null? _hd192883193087_)) (if (let () (declare (not safe)) - (##null? _tl192950193149_)) - (let ((_id193138_ + (##null? _tl192880193079_)) + (let ((_id193068_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd192957193133_) - (_expr193145_ _hd192959193140_) - (_body193162_ _tl192954193159_)) + _hd192887193063_) + (_expr193075_ _hd192889193070_) + (_body193092_ _tl192884193089_)) (let () (declare (not safe)) - (_K192944193115_ _body193162_ _expr193145_ _id193138_))) - (let () (declare (not safe)) (_else192902192970_))) - (if (let () (declare (not safe)) (##pair? _hd192953193157_)) - (let ((_tl192933193089_ + (_K192874193045_ _body193092_ _expr193075_ _id193068_))) + (let () (declare (not safe)) (_else192832192900_))) + (if (let () (declare (not safe)) (##pair? _hd192883193087_)) + (let ((_tl192863193019_ (let () (declare (not safe)) - (##cdr _hd192953193157_))) - (_hd192932193087_ + (##cdr _hd192883193087_))) + (_hd192862193017_ (let () (declare (not safe)) - (##car _hd192953193157_)))) + (##car _hd192883193087_)))) (if (let () (declare (not safe)) - (##pair? _hd192932193087_)) - (let ((_tl192935193094_ + (##pair? _hd192862193017_)) + (let ((_tl192865193024_ (let () (declare (not safe)) - (##cdr _hd192932193087_))) - (_hd192934193092_ + (##cdr _hd192862193017_))) + (_hd192864193022_ (let () (declare (not safe)) - (##car _hd192932193087_)))) + (##car _hd192862193017_)))) (if (let () (declare (not safe)) - (##pair? _tl192935193094_)) - (let ((_tl192937193101_ + (##pair? _tl192865193024_)) + (let ((_tl192867193031_ (let () (declare (not safe)) - (##cdr _tl192935193094_))) - (_hd192936193099_ + (##cdr _tl192865193024_))) + (_hd192866193029_ (let () (declare (not safe)) - (##car _tl192935193094_)))) + (##car _tl192865193024_)))) (if (let () (declare (not safe)) - (##null? _tl192937193101_)) + (##null? _tl192867193031_)) (if (let () (declare (not safe)) - (##null? _tl192933193089_)) + (##null? _tl192863193019_)) (if (let () (declare (not safe)) - (##null? _tl192950193149_)) - (let ((_id1193063_ - _hd192957193133_) - (_expr1193070_ - _hd192959193140_) - (_id2193097_ - _hd192934193092_) - (_expr2193104_ - _hd192936193099_) - (_body193106_ - _tl192954193159_)) + (##null? _tl192880193079_)) + (let ((_id1192993_ + _hd192887193063_) + (_expr1193000_ + _hd192889193070_) + (_id2193027_ + _hd192864193022_) + (_expr2193034_ + _hd192866193029_) + (_body193036_ + _tl192884193089_)) (let () (declare (not safe)) - (_K192921193040_ - _body193106_ - _expr2193104_ - _id2193097_ - _expr1193070_ - _id1193063_))) + (_K192851192970_ + _body193036_ + _expr2193034_ + _id2193027_ + _expr1193000_ + _id1192993_))) (let () (declare (not safe)) - (_else192902192970_))) + (_else192832192900_))) (let () (declare (not safe)) - (_else192902192970_))) + (_else192832192900_))) (let () (declare (not safe)) - (_else192902192970_)))) + (_else192832192900_)))) (let () (declare (not safe)) - (_else192902192970_)))) - (let () (declare (not safe)) (_else192902192970_)))) - (let () (declare (not safe)) (_else192902192970_))))) + (_else192832192900_)))) + (let () (declare (not safe)) (_else192832192900_)))) + (let () (declare (not safe)) (_else192832192900_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else192902192970_))) + (_else192832192900_))) (if (let () (declare (not safe)) - (##eq? _hd192951193152_ + (##eq? _hd192881193082_ 'let*)) (if (let () (declare (not safe)) - (##pair? _tl192952193154_)) - (let ((_tl192914193023_ + (##pair? _tl192882193084_)) + (let ((_tl192844192953_ (let () (declare (not safe)) - (##cdr _tl192952193154_))) - (_hd192913193021_ + (##cdr _tl192882193084_))) + (_hd192843192951_ (let () (declare (not safe)) - (##car _tl192952193154_)))) + (##car _tl192882193084_)))) (if (let () (declare (not safe)) - (##null? _tl192950193149_)) - (let ((_id1193002_ + (##null? _tl192880193079_)) + (let ((_id1192932_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd192957193133_) - (_expr1193009_ _hd192959193140_) - (_bind193026_ _hd192913193021_) - (_body193028_ _tl192914193023_)) + _hd192887193063_) + (_expr1192939_ _hd192889193070_) + (_bind192956_ _hd192843192951_) + (_body192958_ _tl192844192953_)) (let () (declare (not safe)) - (_K192904192979_ - _body193028_ - _bind193026_ - _expr1193009_ - _id1193002_))) - (let () (declare (not safe)) (_else192902192970_)))) + (_K192834192909_ + _body192958_ + _bind192956_ + _expr1192939_ + _id1192932_))) + (let () (declare (not safe)) (_else192832192900_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else192902192970_))) + (_else192832192900_))) (let () (declare (not safe)) - (_else192902192970_))))) + (_else192832192900_))))) (let () (declare (not safe)) - (_else192902192970_)))) + (_else192832192900_)))) (let () (declare (not safe)) - (_else192902192970_))) - (let () (declare (not safe)) (_else192902192970_))) - (let () (declare (not safe)) (_else192902192970_)))) - (let () (declare (not safe)) (_else192902192970_)))) + (_else192832192900_))) + (let () (declare (not safe)) (_else192832192900_))) + (let () (declare (not safe)) (_else192832192900_)))) + (let () (declare (not safe)) (_else192832192900_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else192902192970_)))) + (_else192832192900_)))) (let () (declare (not safe)) - (_else192902192970_)))) + (_else192832192900_)))) (let () (declare (not safe)) - (_else192902192970_))) + (_else192832192900_))) (let () (declare (not safe)) - (_else192902192970_)))) + (_else192832192900_)))) (let () (declare (not safe)) - (_else192902192970_))))))) - (_generate-values192596_ - (lambda (_hd192710_ _body192711_) - (let _lp192713_ ((_rest192715_ _hd192710_) - (_bind192716_ '()) - (_check192717_ '()) - (_post192718_ '())) - (let* ((___stx202342202343_ _rest192715_) - (_g192721192732_ + (_else192832192900_))))))) + (_generate-values192526_ + (lambda (_hd192640_ _body192641_) + (let _lp192643_ ((_rest192645_ _hd192640_) + (_bind192646_ '()) + (_check192647_ '()) + (_post192648_ '())) + (let* ((___stx202272202273_ _rest192645_) + (_g192651192662_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202342202343_))))) - (let ((___kont202344202345_ - (lambda (_L192759_ _L192760_) - (let* ((___stx202298202299_ _L192760_) - (_g192775192800_ + ___stx202272202273_))))) + (let ((___kont202274202275_ + (lambda (_L192689_ _L192690_) + (let* ((___stx202228202229_ _L192690_) + (_g192705192730_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202298202299_))))) - (let ((___kont202300202301_ - (lambda (_L192873_ _L192874_) - (let ((_eid192888_ + ___stx202228202229_))))) + (let ((___kont202230202231_ + (lambda (_L192803_ _L192804_) + (let ((_eid192818_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L192874_))) - (_expr192889_ + _L192804_))) + (_expr192819_ (let () (declare (not safe)) (gxc#compile-e__0 - _L192873_)))) - (let ((__tmp203422 - (let ((__tmp203423 - (let ((__tmp203424 + _L192803_)))) + (let ((__tmp203352 + (let ((__tmp203353 + (let ((__tmp203354 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr192889_ '())))) + (cons _expr192819_ '())))) (declare (not safe)) - (cons _eid192888_ __tmp203424)))) + (cons _eid192818_ __tmp203354)))) (declare (not safe)) - (cons __tmp203423 _bind192716_)))) + (cons __tmp203353 _bind192646_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp192713_ - _L192759_ - __tmp203422 - _check192717_ - _post192718_))))) - (___kont202302202303_ - (lambda (_L192821_ _L192822_) - (let* ((_vals192835_ + (_lp192643_ + _L192689_ + __tmp203352 + _check192647_ + _post192648_))))) + (___kont202232202233_ + (lambda (_L192751_ _L192752_) + (let* ((_vals192765_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values192837_ + (_check-values192767_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals192835_ - _L192822_ - _L192821_))) - (_refs192839_ + _vals192765_ + _L192752_ + _L192751_))) + (_refs192769_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals192835_ - _L192822_))) - (_expr192841_ + _vals192765_ + _L192752_))) + (_expr192771_ (let () (declare (not safe)) (gxc#compile-e__0 - _L192821_)))) - (let ((__tmp203427 - (let ((__tmp203428 - (let ((__tmp203429 + _L192751_)))) + (let ((__tmp203357 + (let ((__tmp203358 + (let ((__tmp203359 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr192841_ '())))) + (cons _expr192771_ '())))) (declare (not safe)) - (cons _vals192835_ __tmp203429)))) + (cons _vals192765_ __tmp203359)))) (declare (not safe)) - (cons __tmp203428 _bind192716_))) - (__tmp203426 + (cons __tmp203358 _bind192646_))) + (__tmp203356 (let () (declare (not safe)) - (cons _check-values192837_ _check192717_))) - (__tmp203425 - (let () (declare (not safe)) (cons _refs192839_ _post192718_)))) + (cons _check-values192767_ _check192647_))) + (__tmp203355 + (let () (declare (not safe)) (cons _refs192769_ _post192648_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp192713_ - _L192759_ - __tmp203427 - __tmp203426 - __tmp203425)))))) + (_lp192643_ + _L192689_ + __tmp203357 + __tmp203356 + __tmp203355)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx202298202299_)) - (let ((_e192781192849_ + ___stx202228202229_)) + (let ((_e192711192779_ (let () (declare (not safe)) (gx#stx-e - ___stx202298202299_)))) - (let ((_tl192779192854_ + ___stx202228202229_)))) + (let ((_tl192709192784_ (let () (declare (not safe)) - (##cdr _e192781192849_))) - (_hd192780192852_ + (##cdr _e192711192779_))) + (_hd192710192782_ (let () (declare (not safe)) - (##car _e192781192849_)))) + (##car _e192711192779_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd192780192852_)) - (let ((_e192784192857_ + _hd192710192782_)) + (let ((_e192714192787_ (let () (declare (not safe)) (gx#stx-e - _hd192780192852_)))) - (let ((_tl192782192862_ + _hd192710192782_)))) + (let ((_tl192712192792_ (let () (declare (not safe)) - (##cdr _e192784192857_))) - (_hd192783192860_ + (##cdr _e192714192787_))) + (_hd192713192790_ (let () (declare (not safe)) - (##car _e192784192857_)))) + (##car _e192714192787_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl192782192862_)) + _tl192712192792_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl192779192854_)) - (let ((_e192787192865_ + (gx#stx-pair? _tl192709192784_)) + (let ((_e192717192795_ (let () (declare (not safe)) - (gx#stx-e _tl192779192854_)))) - (let ((_tl192785192870_ + (gx#stx-e _tl192709192784_)))) + (let ((_tl192715192800_ (let () (declare (not safe)) - (##cdr _e192787192865_))) - (_hd192786192868_ + (##cdr _e192717192795_))) + (_hd192716192798_ (let () (declare (not safe)) - (##car _e192787192865_)))) + (##car _e192717192795_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl192785192870_)) - (___kont202300202301_ - _hd192786192868_ - _hd192783192860_) + (gx#stx-null? _tl192715192800_)) + (___kont202230202231_ + _hd192716192798_ + _hd192713192790_) (let () (declare (not safe)) - (_g192775192800_))))) - (let () (declare (not safe)) (_g192775192800_))) + (_g192705192730_))))) + (let () (declare (not safe)) (_g192705192730_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192779192854_)) - (let ((_e192795192813_ + (gx#stx-pair? _tl192709192784_)) + (let ((_e192725192743_ (let () (declare (not safe)) - (gx#stx-e _tl192779192854_)))) - (let ((_tl192793192818_ + (gx#stx-e _tl192709192784_)))) + (let ((_tl192723192748_ (let () (declare (not safe)) - (##cdr _e192795192813_))) - (_hd192794192816_ + (##cdr _e192725192743_))) + (_hd192724192746_ (let () (declare (not safe)) - (##car _e192795192813_)))) + (##car _e192725192743_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl192793192818_)) - (___kont202302202303_ - _hd192794192816_ - _hd192780192852_) + (gx#stx-null? _tl192723192748_)) + (___kont202232202233_ + _hd192724192746_ + _hd192710192782_) (let () (declare (not safe)) - (_g192775192800_))))) - (let () (declare (not safe)) (_g192775192800_)))))) + (_g192705192730_))))) + (let () (declare (not safe)) (_g192705192730_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl192779192854_)) - (let ((_e192795192813_ + _tl192709192784_)) + (let ((_e192725192743_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl192779192854_)))) - (let ((_tl192793192818_ - (let () (declare (not safe)) (##cdr _e192795192813_))) - (_hd192794192816_ - (let () (declare (not safe)) (##car _e192795192813_)))) + (gx#stx-e _tl192709192784_)))) + (let ((_tl192723192748_ + (let () (declare (not safe)) (##cdr _e192725192743_))) + (_hd192724192746_ + (let () (declare (not safe)) (##car _e192725192743_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl192793192818_)) - (___kont202302202303_ _hd192794192816_ _hd192780192852_) - (let () (declare (not safe)) (_g192775192800_))))) - (let () (declare (not safe)) (_g192775192800_)))))) + (gx#stx-null? _tl192723192748_)) + (___kont202232202233_ _hd192724192746_ _hd192710192782_) + (let () (declare (not safe)) (_g192705192730_))))) + (let () (declare (not safe)) (_g192705192730_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g192775192800_))))))) - (___kont202346202347_ + (_g192705192730_))))))) + (___kont202276202277_ (lambda () - (let* ((_body192739_ - (if _compiled-body?192591_ - _body192711_ + (let* ((_body192669_ + (if _compiled-body?192521_ + _body192641_ (let () (declare (not safe)) (gxc#compile-e__0 - _body192711_)))) - (_body192741_ + _body192641_)))) + (_body192671_ (let () (declare (not safe)) - (_generate-values-post192597_ - _post192718_ - _body192739_))) - (_body192743_ + (_generate-values-post192527_ + _post192648_ + _body192669_))) + (_body192673_ (let () (declare (not safe)) - (_generate-values-check192598_ - _check192717_ - _body192741_)))) - (let ((__tmp203430 - (let ((__tmp203432 - (reverse _bind192716_)) - (__tmp203431 + (_generate-values-check192528_ + _check192647_ + _body192671_)))) + (let ((__tmp203360 + (let ((__tmp203362 + (reverse _bind192646_)) + (__tmp203361 (let () (declare (not safe)) - (cons _body192743_ '())))) + (cons _body192673_ '())))) (declare (not safe)) - (cons __tmp203432 __tmp203431)))) + (cons __tmp203362 __tmp203361)))) (declare (not safe)) - (cons 'let __tmp203430)))))) + (cons 'let __tmp203360)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202342202343_)) - (let ((_e192727192751_ + (gx#stx-pair? ___stx202272202273_)) + (let ((_e192657192681_ (let () (declare (not safe)) - (gx#stx-e ___stx202342202343_)))) - (let ((_tl192725192756_ + (gx#stx-e ___stx202272202273_)))) + (let ((_tl192655192686_ (let () (declare (not safe)) - (##cdr _e192727192751_))) - (_hd192726192754_ + (##cdr _e192657192681_))) + (_hd192656192684_ (let () (declare (not safe)) - (##car _e192727192751_)))) - (___kont202344202345_ - _tl192725192756_ - _hd192726192754_))) - (___kont202346202347_))))))) - (_generate-values-post192597_ - (lambda (_post192669_ _body192670_) - (let _lp192672_ ((_rest192674_ _post192669_) - (_body192675_ _body192670_)) - (let* ((_rest192676192684_ _rest192674_) - (_else192678192692_ (lambda () _body192675_)) - (_K192680192698_ - (lambda (_rest192695_ _bind192696_) - (let ((__tmp203433 - (let ((__tmp203434 - (let ((__tmp203435 + (##car _e192657192681_)))) + (___kont202274202275_ + _tl192655192686_ + _hd192656192684_))) + (___kont202276202277_))))))) + (_generate-values-post192527_ + (lambda (_post192599_ _body192600_) + (let _lp192602_ ((_rest192604_ _post192599_) + (_body192605_ _body192600_)) + (let* ((_rest192606192614_ _rest192604_) + (_else192608192622_ (lambda () _body192605_)) + (_K192610192628_ + (lambda (_rest192625_ _bind192626_) + (let ((__tmp203363 + (let ((__tmp203364 + (let ((__tmp203365 (let () (declare (not safe)) - (cons _body192675_ + (cons _body192605_ '())))) (declare (not safe)) - (cons _bind192696_ - __tmp203435)))) + (cons _bind192626_ + __tmp203365)))) (declare (not safe)) - (cons 'let __tmp203434)))) + (cons 'let __tmp203364)))) (declare (not safe)) - (_lp192672_ _rest192695_ __tmp203433))))) + (_lp192602_ _rest192625_ __tmp203363))))) (if (let () (declare (not safe)) - (##pair? _rest192676192684_)) - (let ((_hd192681192701_ + (##pair? _rest192606192614_)) + (let ((_hd192611192631_ (let () (declare (not safe)) - (##car _rest192676192684_))) - (_tl192682192703_ + (##car _rest192606192614_))) + (_tl192612192633_ (let () (declare (not safe)) - (##cdr _rest192676192684_)))) - (let* ((_bind192706_ _hd192681192701_) - (_rest192708_ _tl192682192703_)) + (##cdr _rest192606192614_)))) + (let* ((_bind192636_ _hd192611192631_) + (_rest192638_ _tl192612192633_)) (declare (not safe)) - (_K192680192698_ _rest192708_ _bind192706_))) + (_K192610192628_ _rest192638_ _bind192636_))) (let () (declare (not safe)) - (_else192678192692_))))))) - (_generate-values-check192598_ - (lambda (_check192666_ _body192667_) - (let ((__tmp203436 - (let ((__tmp203438 + (_else192608192622_))))))) + (_generate-values-check192528_ + (lambda (_check192596_ _body192597_) + (let ((__tmp203366 + (let ((__tmp203368 (let () (declare (not safe)) - (cons _body192667_ '()))) - (__tmp203437 (reverse _check192666_))) + (cons _body192597_ '()))) + (__tmp203367 (reverse _check192596_))) (declare (not safe)) - (foldr1 cons __tmp203438 __tmp203437)))) + (foldr1 cons __tmp203368 __tmp203367)))) (declare (not safe)) - (cons 'begin __tmp203436))))) - (let* ((_g192600192617_ - (lambda (_g192601192614_) + (cons 'begin __tmp203366))))) + (let* ((_g192530192547_ + (lambda (_g192531192544_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g192601192614_)))) - (_g192599192663_ - (lambda (_g192601192620_) + _g192531192544_)))) + (_g192529192593_ + (lambda (_g192531192550_) (if (let () (declare (not safe)) - (gx#stx-pair? _g192601192620_)) - (let ((_e192606192622_ + (gx#stx-pair? _g192531192550_)) + (let ((_e192536192552_ (let () (declare (not safe)) - (gx#stx-e _g192601192620_)))) - (let ((_hd192605192625_ + (gx#stx-e _g192531192550_)))) + (let ((_hd192535192555_ (let () (declare (not safe)) - (##car _e192606192622_))) - (_tl192604192627_ + (##car _e192536192552_))) + (_tl192534192557_ (let () (declare (not safe)) - (##cdr _e192606192622_)))) + (##cdr _e192536192552_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192604192627_)) - (let ((_e192609192630_ + (gx#stx-pair? _tl192534192557_)) + (let ((_e192539192560_ (let () (declare (not safe)) - (gx#stx-e _tl192604192627_)))) - (let ((_hd192608192633_ + (gx#stx-e _tl192534192557_)))) + (let ((_hd192538192563_ (let () (declare (not safe)) - (##car _e192609192630_))) - (_tl192607192635_ + (##car _e192539192560_))) + (_tl192537192565_ (let () (declare (not safe)) - (##cdr _e192609192630_)))) + (##cdr _e192539192560_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192607192635_)) - (let ((_e192612192638_ + (gx#stx-pair? _tl192537192565_)) + (let ((_e192542192568_ (let () (declare (not safe)) (gx#stx-e - _tl192607192635_)))) - (let ((_hd192611192641_ + _tl192537192565_)))) + (let ((_hd192541192571_ (let () (declare (not safe)) - (##car _e192612192638_))) - (_tl192610192643_ + (##car _e192542192568_))) + (_tl192540192573_ (let () (declare (not safe)) - (##cdr _e192612192638_)))) + (##cdr _e192542192568_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl192610192643_)) - ((lambda (_L192646_ - _L192647_) + _tl192540192573_)) + ((lambda (_L192576_ + _L192577_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L192647_)) + _L192577_)) (let () (declare (not safe)) - (_generate-simple192593_ - _L192647_ - _L192646_)) + (_generate-simple192523_ + _L192577_ + _L192576_)) (let () (declare (not safe)) - (_generate-values192596_ - _L192647_ - _L192646_)))) - _hd192611192641_ - _hd192608192633_) + (_generate-values192526_ + _L192577_ + _L192576_)))) + _hd192541192571_ + _hd192538192563_) (let () (declare (not safe)) - (_g192600192617_ - _g192601192620_))))) + (_g192530192547_ + _g192531192550_))))) (let () (declare (not safe)) - (_g192600192617_ - _g192601192620_))))) + (_g192530192547_ + _g192531192550_))))) (let () (declare (not safe)) - (_g192600192617_ _g192601192620_))))) + (_g192530192547_ _g192531192550_))))) (let () (declare (not safe)) - (_g192600192617_ _g192601192620_)))))) + (_g192530192547_ _g192531192550_)))))) (declare (not safe)) - (_g192599192663_ _stx192590_))))) + (_g192529192593_ _stx192520_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_stx193309_) - (let ((_compiled-body?193311_ '#f)) + (lambda (_stx193239_) + (let ((_compiled-body?193241_ '#f)) (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx193309_ - _compiled-body?193311_)))) + _stx193239_ + _compiled-body?193241_)))) (define gxc#generate-runtime-let-values% - (lambda _g203440_ - (let ((_g203439_ (let () (declare (not safe)) (##length _g203440_)))) - (cond ((let () (declare (not safe)) (##fx= _g203439_ 1)) - (apply (lambda (_stx193309_) + (lambda _g203370_ + (let ((_g203369_ (let () (declare (not safe)) (##length _g203370_)))) + (cond ((let () (declare (not safe)) (##fx= _g203369_ 1)) + (apply (lambda (_stx193239_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__0 - _stx193309_))) - _g203440_)) - ((let () (declare (not safe)) (##fx= _g203439_ 2)) - (apply (lambda (_stx193313_ _compiled-body?193314_) + _stx193239_))) + _g203370_)) + ((let () (declare (not safe)) (##fx= _g203369_ 2)) + (apply (lambda (_stx193243_ _compiled-body?193244_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx193313_ - _compiled-body?193314_))) - _g203440_)) + _stx193243_ + _compiled-body?193244_))) + _g203370_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g203440_)))))) + _g203370_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_vals192484_ _hd192485_) - (let _lp192487_ ((_rest192489_ _hd192485_) - (_k192490_ '0) - (_r192491_ '())) - (let* ((___stx202356202357_ _rest192489_) - (_g192496192513_ + (lambda (_vals192414_ _hd192415_) + (let _lp192417_ ((_rest192419_ _hd192415_) + (_k192420_ '0) + (_r192421_ '())) + (let* ((___stx202286202287_ _rest192419_) + (_g192426192443_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202356202357_))))) - (let ((___kont202358202359_ - (lambda (_L192576_) - (let ((__tmp203441 + ___stx202286202287_))))) + (let ((___kont202288202289_ + (lambda (_L192506_) + (let ((__tmp203371 (let () (declare (not safe)) - (fx+ _k192490_ '1)))) + (fx+ _k192420_ '1)))) (declare (not safe)) - (_lp192487_ _L192576_ __tmp203441 _r192491_)))) - (___kont202360202361_ - (lambda (_L192549_ _L192550_) - (let ((__tmp203447 - (let () (declare (not safe)) (fx+ _k192490_ '1))) - (__tmp203442 - (let ((__tmp203443 - (let ((__tmp203446 + (_lp192417_ _L192506_ __tmp203371 _r192421_)))) + (___kont202290202291_ + (lambda (_L192479_ _L192480_) + (let ((__tmp203377 + (let () (declare (not safe)) (fx+ _k192420_ '1))) + (__tmp203372 + (let ((__tmp203373 + (let ((__tmp203376 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L192550_))) - (__tmp203444 - (let ((__tmp203445 + _L192480_))) + (__tmp203374 + (let ((__tmp203375 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _vals192484_ - _k192490_ - _L192549_)))) + _vals192414_ + _k192420_ + _L192479_)))) (declare (not safe)) - (cons __tmp203445 '())))) + (cons __tmp203375 '())))) (declare (not safe)) - (cons __tmp203446 __tmp203444)))) + (cons __tmp203376 __tmp203374)))) (declare (not safe)) - (cons __tmp203443 _r192491_)))) + (cons __tmp203373 _r192421_)))) (declare (not safe)) - (_lp192487_ _L192549_ __tmp203447 __tmp203442)))) - (___kont202362202363_ - (lambda (_L192525_) - (let ((__tmp203448 - (let ((__tmp203449 - (let ((__tmp203452 + (_lp192417_ _L192479_ __tmp203377 __tmp203372)))) + (___kont202292202293_ + (lambda (_L192455_) + (let ((__tmp203378 + (let ((__tmp203379 + (let ((__tmp203382 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L192525_))) - (__tmp203450 - (let ((__tmp203451 + _L192455_))) + (__tmp203380 + (let ((__tmp203381 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _vals192484_ - _k192490_)))) + _vals192414_ + _k192420_)))) (declare (not safe)) - (cons __tmp203451 '())))) + (cons __tmp203381 '())))) (declare (not safe)) - (cons __tmp203452 __tmp203450)))) + (cons __tmp203382 __tmp203380)))) (declare (not safe)) - (cons __tmp203449 '())))) + (cons __tmp203379 '())))) (declare (not safe)) - (foldl1 cons __tmp203448 _r192491_)))) - (___kont202364202365_ (lambda () (reverse _r192491_)))) - (let ((_g192494192536_ + (foldl1 cons __tmp203378 _r192421_)))) + (___kont202294202295_ (lambda () (reverse _r192421_)))) + (let ((_g192424192466_ (lambda () - (let ((_L192525_ ___stx202356202357_)) + (let ((_L192455_ ___stx202286202287_)) (if (let () (declare (not safe)) - (gx#identifier? _L192525_)) - (___kont202362202363_ _L192525_) - (___kont202364202365_)))))) + (gx#identifier? _L192455_)) + (___kont202292202293_ _L192455_) + (___kont202294202295_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202356202357_)) - (let ((_e192501192565_ + (gx#stx-pair? ___stx202286202287_)) + (let ((_e192431192495_ (let () (declare (not safe)) - (gx#stx-e ___stx202356202357_)))) - (let ((_tl192499192570_ + (gx#stx-e ___stx202286202287_)))) + (let ((_tl192429192500_ (let () (declare (not safe)) - (##cdr _e192501192565_))) - (_hd192500192568_ + (##cdr _e192431192495_))) + (_hd192430192498_ (let () (declare (not safe)) - (##car _e192501192565_)))) + (##car _e192431192495_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd192500192568_)) - (let ((_e192502192573_ + (gx#stx-datum? _hd192430192498_)) + (let ((_e192432192503_ (let () (declare (not safe)) - (gx#stx-e _hd192500192568_)))) + (gx#stx-e _hd192430192498_)))) (if (let () (declare (not safe)) - (equal? _e192502192573_ '#f)) - (___kont202358202359_ _tl192499192570_) - (___kont202360202361_ - _tl192499192570_ - _hd192500192568_))) - (___kont202360202361_ - _tl192499192570_ - _hd192500192568_)))) - (let () (declare (not safe)) (_g192494192536_))))))))) + (equal? _e192432192503_ '#f)) + (___kont202288202289_ _tl192429192500_) + (___kont202290202291_ + _tl192429192500_ + _hd192430192498_))) + (___kont202290202291_ + _tl192429192500_ + _hd192430192498_)))) + (let () (declare (not safe)) (_g192424192466_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_stx192166_ _compiled-body?192167_) - (letrec ((_generate-simple192169_ - (lambda (_hd192471_ _body192472_) + (lambda (_stx192096_ _compiled-body?192097_) + (letrec ((_generate-simple192099_ + (lambda (_hd192401_ _body192402_) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _hd192471_ - _body192472_ - _compiled-body?192167_)))) - (_generate-values192170_ - (lambda (_hd192250_ _body192251_) - (let _lp192253_ ((_rest192255_ _hd192250_) - (_bind192256_ '()) - (_check192257_ '()) - (_post192258_ '())) - (let* ((___stx202430202431_ _rest192255_) - (_g192261192272_ + _hd192401_ + _body192402_ + _compiled-body?192097_)))) + (_generate-values192100_ + (lambda (_hd192180_ _body192181_) + (let _lp192183_ ((_rest192185_ _hd192180_) + (_bind192186_ '()) + (_check192187_ '()) + (_post192188_ '())) + (let* ((___stx202360202361_ _rest192185_) + (_g192191192202_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202430202431_))))) - (let ((___kont202432202433_ - (lambda (_L192299_ _L192300_) - (let* ((___stx202386202387_ _L192300_) - (_g192315192340_ + ___stx202360202361_))))) + (let ((___kont202362202363_ + (lambda (_L192229_ _L192230_) + (let* ((___stx202316202317_ _L192230_) + (_g192245192270_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202386202387_))))) - (let ((___kont202388202389_ - (lambda (_L192447_ _L192448_) - (let ((_eid192462_ + ___stx202316202317_))))) + (let ((___kont202318202319_ + (lambda (_L192377_ _L192378_) + (let ((_eid192392_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L192448_))) - (_expr192463_ + _L192378_))) + (_expr192393_ (let () (declare (not safe)) (gxc#compile-e__0 - _L192447_)))) - (let ((__tmp203453 - (let ((__tmp203454 - (let ((__tmp203455 + _L192377_)))) + (let ((__tmp203383 + (let ((__tmp203384 + (let ((__tmp203385 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr192463_ '())))) + (cons _expr192393_ '())))) (declare (not safe)) - (cons _eid192462_ __tmp203455)))) + (cons _eid192392_ __tmp203385)))) (declare (not safe)) - (cons __tmp203454 _bind192256_)))) + (cons __tmp203384 _bind192186_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp192253_ - _L192299_ - __tmp203453 - _check192257_ - _post192258_))))) - (___kont202390202391_ - (lambda (_L192361_ _L192362_) - (let* ((_vals192375_ + (_lp192183_ + _L192229_ + __tmp203383 + _check192187_ + _post192188_))))) + (___kont202320202321_ + (lambda (_L192291_ _L192292_) + (let* ((_vals192305_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values192377_ + (_check-values192307_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals192375_ - _L192362_ - _L192361_))) - (_refs192379_ + _vals192305_ + _L192292_ + _L192291_))) + (_refs192309_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals192375_ - _L192362_))) - (_expr192381_ + _vals192305_ + _L192292_))) + (_expr192311_ (let () (declare (not safe)) (gxc#compile-e__0 - _L192361_)))) - (let ((__tmp203458 - (let ((__tmp203461 - (let ((__tmp203462 + _L192291_)))) + (let ((__tmp203388 + (let ((__tmp203391 + (let ((__tmp203392 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203463 + (let ((__tmp203393 (let () (declare (not safe)) - (cons _expr192381_ '())))) + (cons _expr192311_ '())))) (declare (not safe)) - (cons _vals192375_ __tmp203463)))) + (cons _vals192305_ __tmp203393)))) (declare (not safe)) - (cons __tmp203462 _bind192256_))) - (__tmp203459 - (map (lambda (_e192383192385_) - (let* ((_g192387192396_ _e192383192385_) - (_E192389192400_ + (cons __tmp203392 _bind192186_))) + (__tmp203389 + (map (lambda (_e192313192315_) + (let* ((_g192317192326_ _e192313192315_) + (_E192319192330_ (lambda () (error '"No clause matching" - _g192387192396_))) - (_K192390192405_ - (lambda (_eid192403_) - (let ((__tmp203460 + _g192317192326_))) + (_K192320192335_ + (lambda (_eid192333_) + (let ((__tmp203390 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons _eid192403_ __tmp203460))))) + (cons _eid192333_ __tmp203390))))) (if (let () (declare (not safe)) - (##pair? _g192387192396_)) - (let ((_hd192391192408_ + (##pair? _g192317192326_)) + (let ((_hd192321192338_ (let () (declare (not safe)) - (##car _g192387192396_))) - (_tl192392192410_ + (##car _g192317192326_))) + (_tl192322192340_ (let () (declare (not safe)) - (##cdr _g192387192396_)))) - (let ((_eid192413_ _hd192391192408_)) + (##cdr _g192317192326_)))) + (let ((_eid192343_ _hd192321192338_)) (if (let () (declare (not safe)) - (##pair? _tl192392192410_)) - (let ((_tl192394192415_ + (##pair? _tl192322192340_)) + (let ((_tl192324192345_ (let () (declare (not safe)) - (##cdr _tl192392192410_)))) + (##cdr _tl192322192340_)))) (if (let () (declare (not safe)) - (##null? _tl192394192415_)) + (##null? _tl192324192345_)) (let () (declare (not safe)) - (_K192390192405_ - _eid192413_)) + (_K192320192335_ + _eid192343_)) (let () (declare (not safe)) - (_E192389192400_)))) + (_E192319192330_)))) (let () (declare (not safe)) - (_E192389192400_))))) + (_E192319192330_))))) (let () (declare (not safe)) - (_E192389192400_))))) - _refs192379_))) + (_E192319192330_))))) + _refs192309_))) (declare (not safe)) - (foldl1 cons __tmp203461 __tmp203459))) - (__tmp203457 + (foldl1 cons __tmp203391 __tmp203389))) + (__tmp203387 (let () (declare (not safe)) - (cons _check-values192377_ _check192257_))) - (__tmp203456 + (cons _check-values192307_ _check192187_))) + (__tmp203386 (let () (declare (not safe)) - (foldl1 cons _refs192379_ _post192258_)))) + (foldl1 cons _refs192309_ _post192188_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp192253_ - _L192299_ - __tmp203458 - __tmp203457 - __tmp203456)))))) + (_lp192183_ + _L192229_ + __tmp203388 + __tmp203387 + __tmp203386)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx202386202387_)) - (let ((_e192321192423_ + ___stx202316202317_)) + (let ((_e192251192353_ (let () (declare (not safe)) (gx#stx-e - ___stx202386202387_)))) - (let ((_tl192319192428_ + ___stx202316202317_)))) + (let ((_tl192249192358_ (let () (declare (not safe)) - (##cdr _e192321192423_))) - (_hd192320192426_ + (##cdr _e192251192353_))) + (_hd192250192356_ (let () (declare (not safe)) - (##car _e192321192423_)))) + (##car _e192251192353_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd192320192426_)) - (let ((_e192324192431_ + _hd192250192356_)) + (let ((_e192254192361_ (let () (declare (not safe)) (gx#stx-e - _hd192320192426_)))) - (let ((_tl192322192436_ + _hd192250192356_)))) + (let ((_tl192252192366_ (let () (declare (not safe)) - (##cdr _e192324192431_))) - (_hd192323192434_ + (##cdr _e192254192361_))) + (_hd192253192364_ (let () (declare (not safe)) - (##car _e192324192431_)))) + (##car _e192254192361_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl192322192436_)) + _tl192252192366_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl192319192428_)) - (let ((_e192327192439_ + (gx#stx-pair? _tl192249192358_)) + (let ((_e192257192369_ (let () (declare (not safe)) - (gx#stx-e _tl192319192428_)))) - (let ((_tl192325192444_ + (gx#stx-e _tl192249192358_)))) + (let ((_tl192255192374_ (let () (declare (not safe)) - (##cdr _e192327192439_))) - (_hd192326192442_ + (##cdr _e192257192369_))) + (_hd192256192372_ (let () (declare (not safe)) - (##car _e192327192439_)))) + (##car _e192257192369_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl192325192444_)) - (___kont202388202389_ - _hd192326192442_ - _hd192323192434_) + (gx#stx-null? _tl192255192374_)) + (___kont202318202319_ + _hd192256192372_ + _hd192253192364_) (let () (declare (not safe)) - (_g192315192340_))))) - (let () (declare (not safe)) (_g192315192340_))) + (_g192245192270_))))) + (let () (declare (not safe)) (_g192245192270_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192319192428_)) - (let ((_e192335192353_ + (gx#stx-pair? _tl192249192358_)) + (let ((_e192265192283_ (let () (declare (not safe)) - (gx#stx-e _tl192319192428_)))) - (let ((_tl192333192358_ + (gx#stx-e _tl192249192358_)))) + (let ((_tl192263192288_ (let () (declare (not safe)) - (##cdr _e192335192353_))) - (_hd192334192356_ + (##cdr _e192265192283_))) + (_hd192264192286_ (let () (declare (not safe)) - (##car _e192335192353_)))) + (##car _e192265192283_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl192333192358_)) - (___kont202390202391_ - _hd192334192356_ - _hd192320192426_) + (gx#stx-null? _tl192263192288_)) + (___kont202320202321_ + _hd192264192286_ + _hd192250192356_) (let () (declare (not safe)) - (_g192315192340_))))) - (let () (declare (not safe)) (_g192315192340_)))))) + (_g192245192270_))))) + (let () (declare (not safe)) (_g192245192270_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl192319192428_)) - (let ((_e192335192353_ + _tl192249192358_)) + (let ((_e192265192283_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl192319192428_)))) - (let ((_tl192333192358_ - (let () (declare (not safe)) (##cdr _e192335192353_))) - (_hd192334192356_ - (let () (declare (not safe)) (##car _e192335192353_)))) + (gx#stx-e _tl192249192358_)))) + (let ((_tl192263192288_ + (let () (declare (not safe)) (##cdr _e192265192283_))) + (_hd192264192286_ + (let () (declare (not safe)) (##car _e192265192283_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl192333192358_)) - (___kont202390202391_ _hd192334192356_ _hd192320192426_) - (let () (declare (not safe)) (_g192315192340_))))) - (let () (declare (not safe)) (_g192315192340_)))))) + (gx#stx-null? _tl192263192288_)) + (___kont202320202321_ _hd192264192286_ _hd192250192356_) + (let () (declare (not safe)) (_g192245192270_))))) + (let () (declare (not safe)) (_g192245192270_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g192315192340_))))))) - (___kont202434202435_ + (_g192245192270_))))))) + (___kont202364202365_ (lambda () - (let* ((_body192279_ - (if _compiled-body?192167_ - _body192251_ + (let* ((_body192209_ + (if _compiled-body?192097_ + _body192181_ (let () (declare (not safe)) (gxc#compile-e__0 - _body192251_)))) - (_body192281_ + _body192181_)))) + (_body192211_ (let () (declare (not safe)) - (_generate-values-post192172_ - _post192258_ - _body192279_))) - (_body192283_ + (_generate-values-post192102_ + _post192188_ + _body192209_))) + (_body192213_ (let () (declare (not safe)) - (_generate-values-check192171_ - _check192257_ - _body192281_)))) - (let ((__tmp203464 - (let ((__tmp203466 - (reverse _bind192256_)) - (__tmp203465 + (_generate-values-check192101_ + _check192187_ + _body192211_)))) + (let ((__tmp203394 + (let ((__tmp203396 + (reverse _bind192186_)) + (__tmp203395 (let () (declare (not safe)) - (cons _body192283_ '())))) + (cons _body192213_ '())))) (declare (not safe)) - (cons __tmp203466 __tmp203465)))) + (cons __tmp203396 __tmp203395)))) (declare (not safe)) - (cons 'letrec __tmp203464)))))) + (cons 'letrec __tmp203394)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202430202431_)) - (let ((_e192267192291_ + (gx#stx-pair? ___stx202360202361_)) + (let ((_e192197192221_ (let () (declare (not safe)) - (gx#stx-e ___stx202430202431_)))) - (let ((_tl192265192296_ + (gx#stx-e ___stx202360202361_)))) + (let ((_tl192195192226_ (let () (declare (not safe)) - (##cdr _e192267192291_))) - (_hd192266192294_ + (##cdr _e192197192221_))) + (_hd192196192224_ (let () (declare (not safe)) - (##car _e192267192291_)))) - (___kont202432202433_ - _tl192265192296_ - _hd192266192294_))) - (___kont202434202435_))))))) - (_generate-values-check192171_ - (lambda (_check192247_ _body192248_) - (let ((__tmp203467 - (let ((__tmp203469 + (##car _e192197192221_)))) + (___kont202362202363_ + _tl192195192226_ + _hd192196192224_))) + (___kont202364202365_))))))) + (_generate-values-check192101_ + (lambda (_check192177_ _body192178_) + (let ((__tmp203397 + (let ((__tmp203399 (let () (declare (not safe)) - (cons _body192248_ '()))) - (__tmp203468 (reverse _check192247_))) + (cons _body192178_ '()))) + (__tmp203398 (reverse _check192177_))) (declare (not safe)) - (foldr1 cons __tmp203469 __tmp203468)))) + (foldr1 cons __tmp203399 __tmp203398)))) (declare (not safe)) - (cons 'begin __tmp203467)))) - (_generate-values-post192172_ - (lambda (_post192240_ _body192241_) - (let ((__tmp203470 - (let ((__tmp203472 + (cons 'begin __tmp203397)))) + (_generate-values-post192102_ + (lambda (_post192170_ _body192171_) + (let ((__tmp203400 + (let ((__tmp203402 (let () (declare (not safe)) - (cons _body192241_ '()))) - (__tmp203471 - (map (lambda (_g192242192244_) + (cons _body192171_ '()))) + (__tmp203401 + (map (lambda (_g192172192174_) (let () (declare (not safe)) - (cons 'set! _g192242192244_))) - (reverse _post192240_)))) + (cons 'set! _g192172192174_))) + (reverse _post192170_)))) (declare (not safe)) - (foldr1 cons __tmp203472 __tmp203471)))) + (foldr1 cons __tmp203402 __tmp203401)))) (declare (not safe)) - (cons 'begin __tmp203470))))) - (let* ((_g192174192191_ - (lambda (_g192175192188_) + (cons 'begin __tmp203400))))) + (let* ((_g192104192121_ + (lambda (_g192105192118_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g192175192188_)))) - (_g192173192237_ - (lambda (_g192175192194_) + _g192105192118_)))) + (_g192103192167_ + (lambda (_g192105192124_) (if (let () (declare (not safe)) - (gx#stx-pair? _g192175192194_)) - (let ((_e192180192196_ + (gx#stx-pair? _g192105192124_)) + (let ((_e192110192126_ (let () (declare (not safe)) - (gx#stx-e _g192175192194_)))) - (let ((_hd192179192199_ + (gx#stx-e _g192105192124_)))) + (let ((_hd192109192129_ (let () (declare (not safe)) - (##car _e192180192196_))) - (_tl192178192201_ + (##car _e192110192126_))) + (_tl192108192131_ (let () (declare (not safe)) - (##cdr _e192180192196_)))) + (##cdr _e192110192126_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192178192201_)) - (let ((_e192183192204_ + (gx#stx-pair? _tl192108192131_)) + (let ((_e192113192134_ (let () (declare (not safe)) - (gx#stx-e _tl192178192201_)))) - (let ((_hd192182192207_ + (gx#stx-e _tl192108192131_)))) + (let ((_hd192112192137_ (let () (declare (not safe)) - (##car _e192183192204_))) - (_tl192181192209_ + (##car _e192113192134_))) + (_tl192111192139_ (let () (declare (not safe)) - (##cdr _e192183192204_)))) + (##cdr _e192113192134_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192181192209_)) - (let ((_e192186192212_ + (gx#stx-pair? _tl192111192139_)) + (let ((_e192116192142_ (let () (declare (not safe)) (gx#stx-e - _tl192181192209_)))) - (let ((_hd192185192215_ + _tl192111192139_)))) + (let ((_hd192115192145_ (let () (declare (not safe)) - (##car _e192186192212_))) - (_tl192184192217_ + (##car _e192116192142_))) + (_tl192114192147_ (let () (declare (not safe)) - (##cdr _e192186192212_)))) + (##cdr _e192116192142_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl192184192217_)) - ((lambda (_L192220_ - _L192221_) + _tl192114192147_)) + ((lambda (_L192150_ + _L192151_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L192221_)) + _L192151_)) (let () (declare (not safe)) - (_generate-simple192169_ - _L192221_ - _L192220_)) + (_generate-simple192099_ + _L192151_ + _L192150_)) (let () (declare (not safe)) - (_generate-values192170_ - _L192221_ - _L192220_)))) - _hd192185192215_ - _hd192182192207_) + (_generate-values192100_ + _L192151_ + _L192150_)))) + _hd192115192145_ + _hd192112192137_) (let () (declare (not safe)) - (_g192174192191_ - _g192175192194_))))) + (_g192104192121_ + _g192105192124_))))) (let () (declare (not safe)) - (_g192174192191_ - _g192175192194_))))) + (_g192104192121_ + _g192105192124_))))) (let () (declare (not safe)) - (_g192174192191_ _g192175192194_))))) + (_g192104192121_ _g192105192124_))))) (let () (declare (not safe)) - (_g192174192191_ _g192175192194_)))))) + (_g192104192121_ _g192105192124_)))))) (declare (not safe)) - (_g192173192237_ _stx192166_))))) + (_g192103192167_ _stx192096_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_stx192477_) - (let ((_compiled-body?192479_ '#f)) + (lambda (_stx192407_) + (let ((_compiled-body?192409_ '#f)) (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx192477_ - _compiled-body?192479_)))) + _stx192407_ + _compiled-body?192409_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g203474_ - (let ((_g203473_ (let () (declare (not safe)) (##length _g203474_)))) - (cond ((let () (declare (not safe)) (##fx= _g203473_ 1)) - (apply (lambda (_stx192477_) + (lambda _g203404_ + (let ((_g203403_ (let () (declare (not safe)) (##length _g203404_)))) + (cond ((let () (declare (not safe)) (##fx= _g203403_ 1)) + (apply (lambda (_stx192407_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__0 - _stx192477_))) - _g203474_)) - ((let () (declare (not safe)) (##fx= _g203473_ 2)) - (apply (lambda (_stx192481_ _compiled-body?192482_) + _stx192407_))) + _g203404_)) + ((let () (declare (not safe)) (##fx= _g203403_ 2)) + (apply (lambda (_stx192411_ _compiled-body?192412_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx192481_ - _compiled-body?192482_))) - _g203474_)) + _stx192411_ + _compiled-body?192412_))) + _g203404_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g203474_)))))) + _g203404_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_stx191748_) - (letrec ((_generate-values191750_ - (lambda (_hd191993_ _body191994_) - (let _lp191996_ ((_rest191998_ _hd191993_) - (_bind191999_ '())) - (let* ((_rest192000192008_ _rest191998_) - (_else192002192019_ + (lambda (_stx191678_) + (letrec ((_generate-values191680_ + (lambda (_hd191923_ _body191924_) + (let _lp191926_ ((_rest191928_ _hd191923_) + (_bind191929_ '())) + (let* ((_rest191930191938_ _rest191928_) + (_else191932191949_ (lambda () - (let ((_bind192016_ (reverse _bind191999_)) - (_body192017_ + (let ((_bind191946_ (reverse _bind191929_)) + (_body191947_ (let () (declare (not safe)) - (gxc#compile-e__0 _body191994_)))) - (let ((__tmp203475 - (let ((__tmp203476 + (gxc#compile-e__0 _body191924_)))) + (let ((__tmp203405 + (let ((__tmp203406 (let () (declare (not safe)) - (cons _body192017_ '())))) + (cons _body191947_ '())))) (declare (not safe)) - (cons _bind192016_ __tmp203476)))) + (cons _bind191946_ __tmp203406)))) (declare (not safe)) - (cons 'letrec* __tmp203475))))) - (_K192004192153_ - (lambda (_rest192022_ _hd-bind192023_) - (let* ((___stx202444202445_ _hd-bind192023_) - (_g192026192051_ + (cons 'letrec* __tmp203405))))) + (_K191934192083_ + (lambda (_rest191952_ _hd-bind191953_) + (let* ((___stx202374202375_ _hd-bind191953_) + (_g191956191981_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202444202445_))))) - (let ((___kont202446202447_ - (lambda (_L192132_ _L192133_) - (let ((_eid192147_ + ___stx202374202375_))))) + (let ((___kont202376202377_ + (lambda (_L192062_ _L192063_) + (let ((_eid192077_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L192133_))) - (_expr192148_ + _L192063_))) + (_expr192078_ (let () (declare (not safe)) (gxc#compile-e__0 - _L192132_)))) - (let ((__tmp203477 - (let ((__tmp203478 - (let ((__tmp203479 + _L192062_)))) + (let ((__tmp203407 + (let ((__tmp203408 + (let ((__tmp203409 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr192148_ '())))) + (cons _expr192078_ '())))) (declare (not safe)) - (cons _eid192147_ __tmp203479)))) + (cons _eid192077_ __tmp203409)))) (declare (not safe)) - (cons __tmp203478 _bind191999_)))) + (cons __tmp203408 _bind191929_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp191996_ - _rest192022_ - __tmp203477))))) - (___kont202448202449_ - (lambda (_L192072_ _L192073_) - (let* ((_vals192092_ + (_lp191926_ + _rest191952_ + __tmp203407))))) + (___kont202378202379_ + (lambda (_L192002_ _L192003_) + (let* ((_vals192022_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_tmp192094_ + (_tmp192024_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values192096_ + (_check-values192026_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp192094_ - _L192073_ - _L192072_))) - (_refs192098_ + _tmp192024_ + _L192003_ + _L192002_))) + (_refs192028_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals192092_ - _L192073_))) - (_expr192100_ + _vals192022_ + _L192003_))) + (_expr192030_ (let () (declare (not safe)) (gxc#compile-e__0 - _L192072_)))) - (let ((__tmp203480 - (let ((__tmp203481 - (let ((__tmp203482 + _L192002_)))) + (let ((__tmp203410 + (let ((__tmp203411 + (let ((__tmp203412 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203483 - (let ((__tmp203484 - (let ((__tmp203485 - (let ((__tmp203488 - (let ((__tmp203489 - (let ((__tmp203490 + (let ((__tmp203413 + (let ((__tmp203414 + (let ((__tmp203415 + (let ((__tmp203418 + (let ((__tmp203419 + (let ((__tmp203420 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr192100_ '())))) + (cons _expr192030_ '())))) (declare (not safe)) - (cons _tmp192094_ __tmp203490)))) + (cons _tmp192024_ __tmp203420)))) (declare (not safe)) - (cons __tmp203489 '()))) - (__tmp203486 - (let ((__tmp203487 - (let () (declare (not safe)) (cons _tmp192094_ '())))) + (cons __tmp203419 '()))) + (__tmp203416 + (let ((__tmp203417 + (let () (declare (not safe)) (cons _tmp192024_ '())))) (declare (not safe)) - (cons _check-values192096_ __tmp203487)))) + (cons _check-values192026_ __tmp203417)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203488 - __tmp203486)))) + (cons __tmp203418 + __tmp203416)))) (declare (not safe)) - (cons 'let __tmp203485)))) + (cons 'let __tmp203415)))) (declare (not safe)) - (cons __tmp203484 '())))) + (cons __tmp203414 '())))) (declare (not safe)) - (cons _vals192092_ __tmp203483)))) + (cons _vals192022_ __tmp203413)))) (declare (not safe)) - (cons __tmp203482 _bind191999_)))) + (cons __tmp203412 _bind191929_)))) (declare (not safe)) - (foldl1 cons __tmp203481 _refs192098_)))) + (foldl1 cons __tmp203411 _refs192028_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp191996_ - _rest192022_ - __tmp203480)))))) + (_lp191926_ + _rest191952_ + __tmp203410)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202444202445_)) - (let ((_e192032192108_ + (gx#stx-pair? ___stx202374202375_)) + (let ((_e191962192038_ (let () (declare (not safe)) (gx#stx-e - ___stx202444202445_)))) - (let ((_tl192030192113_ + ___stx202374202375_)))) + (let ((_tl191960192043_ (let () (declare (not safe)) - (##cdr _e192032192108_))) - (_hd192031192111_ + (##cdr _e191962192038_))) + (_hd191961192041_ (let () (declare (not safe)) - (##car _e192032192108_)))) + (##car _e191962192038_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd192031192111_)) - (let ((_e192035192116_ + _hd191961192041_)) + (let ((_e191965192046_ (let () (declare (not safe)) (gx#stx-e - _hd192031192111_)))) - (let ((_tl192033192121_ + _hd191961192041_)))) + (let ((_tl191963192051_ (let () (declare (not safe)) - (##cdr _e192035192116_))) - (_hd192034192119_ + (##cdr _e191965192046_))) + (_hd191964192049_ (let () (declare (not safe)) - (##car _e192035192116_)))) + (##car _e191965192046_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl192033192121_)) + _tl191963192051_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl192030192113_)) - (let ((_e192038192124_ + (gx#stx-pair? _tl191960192043_)) + (let ((_e191968192054_ (let () (declare (not safe)) - (gx#stx-e _tl192030192113_)))) - (let ((_tl192036192129_ + (gx#stx-e _tl191960192043_)))) + (let ((_tl191966192059_ (let () (declare (not safe)) - (##cdr _e192038192124_))) - (_hd192037192127_ + (##cdr _e191968192054_))) + (_hd191967192057_ (let () (declare (not safe)) - (##car _e192038192124_)))) + (##car _e191968192054_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl192036192129_)) - (___kont202446202447_ - _hd192037192127_ - _hd192034192119_) + (gx#stx-null? _tl191966192059_)) + (___kont202376202377_ + _hd191967192057_ + _hd191964192049_) (let () (declare (not safe)) - (_g192026192051_))))) - (let () (declare (not safe)) (_g192026192051_))) + (_g191956191981_))))) + (let () (declare (not safe)) (_g191956191981_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192030192113_)) - (let ((_e192046192064_ + (gx#stx-pair? _tl191960192043_)) + (let ((_e191976191994_ (let () (declare (not safe)) - (gx#stx-e _tl192030192113_)))) - (let ((_tl192044192069_ + (gx#stx-e _tl191960192043_)))) + (let ((_tl191974191999_ (let () (declare (not safe)) - (##cdr _e192046192064_))) - (_hd192045192067_ + (##cdr _e191976191994_))) + (_hd191975191997_ (let () (declare (not safe)) - (##car _e192046192064_)))) + (##car _e191976191994_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl192044192069_)) - (___kont202448202449_ - _hd192045192067_ - _hd192031192111_) + (gx#stx-null? _tl191974191999_)) + (___kont202378202379_ + _hd191975191997_ + _hd191961192041_) (let () (declare (not safe)) - (_g192026192051_))))) - (let () (declare (not safe)) (_g192026192051_)))))) + (_g191956191981_))))) + (let () (declare (not safe)) (_g191956191981_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl192030192113_)) - (let ((_e192046192064_ + _tl191960192043_)) + (let ((_e191976191994_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl192030192113_)))) - (let ((_tl192044192069_ - (let () (declare (not safe)) (##cdr _e192046192064_))) - (_hd192045192067_ - (let () (declare (not safe)) (##car _e192046192064_)))) + (gx#stx-e _tl191960192043_)))) + (let ((_tl191974191999_ + (let () (declare (not safe)) (##cdr _e191976191994_))) + (_hd191975191997_ + (let () (declare (not safe)) (##car _e191976191994_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl192044192069_)) - (___kont202448202449_ _hd192045192067_ _hd192031192111_) - (let () (declare (not safe)) (_g192026192051_))))) - (let () (declare (not safe)) (_g192026192051_)))))) + (gx#stx-null? _tl191974191999_)) + (___kont202378202379_ _hd191975191997_ _hd191961192041_) + (let () (declare (not safe)) (_g191956191981_))))) + (let () (declare (not safe)) (_g191956191981_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g192026192051_)))))))) + (_g191956191981_)))))))) (if (let () (declare (not safe)) - (##pair? _rest192000192008_)) - (let ((_hd192005192156_ + (##pair? _rest191930191938_)) + (let ((_hd191935192086_ (let () (declare (not safe)) - (##car _rest192000192008_))) - (_tl192006192158_ + (##car _rest191930191938_))) + (_tl191936192088_ (let () (declare (not safe)) - (##cdr _rest192000192008_)))) - (let* ((_hd-bind192161_ _hd192005192156_) - (_rest192163_ _tl192006192158_)) + (##cdr _rest191930191938_)))) + (let* ((_hd-bind192091_ _hd191935192086_) + (_rest192093_ _tl191936192088_)) (declare (not safe)) - (_K192004192153_ - _rest192163_ - _hd-bind192161_))) + (_K191934192083_ + _rest192093_ + _hd-bind192091_))) (let () (declare (not safe)) - (_else192002192019_))))))) - (_generate-letrec?191751_ - (lambda (_hd191883_) - (let _lp191885_ ((_rest191887_ _hd191883_)) - (let* ((_rest191888191896_ _rest191887_) - (_else191890191904_ (lambda () '#t)) - (_K191892191981_ - (lambda (_rest191907_ _hd-bind191908_) - (let* ((_g191910191927_ - (lambda (_g191911191924_) + (_else191932191949_))))))) + (_generate-letrec?191681_ + (lambda (_hd191813_) + (let _lp191815_ ((_rest191817_ _hd191813_)) + (let* ((_rest191818191826_ _rest191817_) + (_else191820191834_ (lambda () '#t)) + (_K191822191911_ + (lambda (_rest191837_ _hd-bind191838_) + (let* ((_g191840191857_ + (lambda (_g191841191854_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g191911191924_)))) - (_g191909191978_ - (lambda (_g191911191930_) + _g191841191854_)))) + (_g191839191908_ + (lambda (_g191841191860_) (if (let () (declare (not safe)) (gx#stx-pair? - _g191911191930_)) - (let ((_e191916191932_ + _g191841191860_)) + (let ((_e191846191862_ (let () (declare (not safe)) (gx#stx-e - _g191911191930_)))) - (let ((_hd191915191935_ + _g191841191860_)))) + (let ((_hd191845191865_ (let () (declare (not safe)) - (##car _e191916191932_))) - (_tl191914191937_ + (##car _e191846191862_))) + (_tl191844191867_ (let () (declare (not safe)) - (##cdr _e191916191932_)))) + (##cdr _e191846191862_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd191915191935_)) - (let ((_e191919191940_ + _hd191845191865_)) + (let ((_e191849191870_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd191915191935_)))) - (let ((_hd191918191943_ - (let () (declare (not safe)) (##car _e191919191940_))) - (_tl191917191945_ + (gx#stx-e _hd191845191865_)))) + (let ((_hd191848191873_ + (let () (declare (not safe)) (##car _e191849191870_))) + (_tl191847191875_ (let () (declare (not safe)) - (##cdr _e191919191940_)))) + (##cdr _e191849191870_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191917191945_)) + (gx#stx-null? _tl191847191875_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191914191937_)) - (let ((_e191922191948_ + (gx#stx-pair? _tl191844191867_)) + (let ((_e191852191878_ (let () (declare (not safe)) - (gx#stx-e _tl191914191937_)))) - (let ((_hd191921191951_ + (gx#stx-e _tl191844191867_)))) + (let ((_hd191851191881_ (let () (declare (not safe)) - (##car _e191922191948_))) - (_tl191920191953_ + (##car _e191852191878_))) + (_tl191850191883_ (let () (declare (not safe)) - (##cdr _e191922191948_)))) + (##cdr _e191852191878_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191920191953_)) - ((lambda (_L191956_ _L191957_) + (gx#stx-null? _tl191850191883_)) + ((lambda (_L191886_ _L191887_) (if (let () (declare (not safe)) - (_is-lambda-expr?191752_ - _L191956_)) + (_is-lambda-expr?191682_ + _L191886_)) (let () (declare (not safe)) - (_lp191885_ _rest191907_)) + (_lp191815_ _rest191837_)) '#f)) - _hd191921191951_ - _hd191918191943_) + _hd191851191881_ + _hd191848191873_) (let () (declare (not safe)) - (_g191910191927_ _g191911191930_))))) + (_g191840191857_ _g191841191860_))))) (let () (declare (not safe)) - (_g191910191927_ _g191911191930_))) + (_g191840191857_ _g191841191860_))) (let () (declare (not safe)) - (_g191910191927_ _g191911191930_))))) + (_g191840191857_ _g191841191860_))))) (let () (declare (not safe)) - (_g191910191927_ _g191911191930_))))) + (_g191840191857_ _g191841191860_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g191910191927_ - _g191911191930_)))))) + (_g191840191857_ + _g191841191860_)))))) (declare (not safe)) - (_g191909191978_ _hd-bind191908_))))) + (_g191839191908_ _hd-bind191838_))))) (if (let () (declare (not safe)) - (##pair? _rest191888191896_)) - (let ((_hd191893191984_ + (##pair? _rest191818191826_)) + (let ((_hd191823191914_ (let () (declare (not safe)) - (##car _rest191888191896_))) - (_tl191894191986_ + (##car _rest191818191826_))) + (_tl191824191916_ (let () (declare (not safe)) - (##cdr _rest191888191896_)))) - (let* ((_hd-bind191989_ _hd191893191984_) - (_rest191991_ _tl191894191986_)) + (##cdr _rest191818191826_)))) + (let* ((_hd-bind191919_ _hd191823191914_) + (_rest191921_ _tl191824191916_)) (declare (not safe)) - (_K191892191981_ - _rest191991_ - _hd-bind191989_))) + (_K191822191911_ + _rest191921_ + _hd-bind191919_))) (let () (declare (not safe)) - (_else191890191904_))))))) - (_is-lambda-expr?191752_ - (lambda (_expr191820_) - (let* ((___stx202488202489_ _expr191820_) - (_g191823191837_ + (_else191820191834_))))))) + (_is-lambda-expr?191682_ + (lambda (_expr191750_) + (let* ((___stx202418202419_ _expr191750_) + (_g191753191767_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202488202489_))))) - (let ((___kont202490202491_ - (lambda (_L191865_ _L191866_) '#t)) - (___kont202492202493_ (lambda () '#f))) + ___stx202418202419_))))) + (let ((___kont202420202421_ + (lambda (_L191795_ _L191796_) '#t)) + (___kont202422202423_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202488202489_)) - (let ((_e191829191849_ + (gx#stx-pair? ___stx202418202419_)) + (let ((_e191759191779_ (let () (declare (not safe)) - (gx#stx-e ___stx202488202489_)))) - (let ((_tl191827191854_ + (gx#stx-e ___stx202418202419_)))) + (let ((_tl191757191784_ (let () (declare (not safe)) - (##cdr _e191829191849_))) - (_hd191828191852_ + (##cdr _e191759191779_))) + (_hd191758191782_ (let () (declare (not safe)) - (##car _e191829191849_)))) + (##car _e191759191779_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd191828191852_)) + (gx#identifier? _hd191758191782_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd191828191852_)) + _hd191758191782_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl191827191854_)) - (let ((_e191832191857_ + _tl191757191784_)) + (let ((_e191762191787_ (let () (declare (not safe)) (gx#stx-e - _tl191827191854_)))) - (let ((_tl191830191862_ + _tl191757191784_)))) + (let ((_tl191760191792_ (let () (declare (not safe)) - (##cdr _e191832191857_))) - (_hd191831191860_ + (##cdr _e191762191787_))) + (_hd191761191790_ (let () (declare (not safe)) - (##car _e191832191857_)))) - (___kont202490202491_ - _tl191830191862_ - _hd191831191860_))) - (___kont202492202493_)) - (___kont202492202493_)) - (___kont202492202493_)))) - (___kont202492202493_))))))) - (let* ((_g191754191771_ - (lambda (_g191755191768_) + (##car _e191762191787_)))) + (___kont202420202421_ + _tl191760191792_ + _hd191761191790_))) + (___kont202422202423_)) + (___kont202422202423_)) + (___kont202422202423_)))) + (___kont202422202423_))))))) + (let* ((_g191684191701_ + (lambda (_g191685191698_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g191755191768_)))) - (_g191753191817_ - (lambda (_g191755191774_) + _g191685191698_)))) + (_g191683191747_ + (lambda (_g191685191704_) (if (let () (declare (not safe)) - (gx#stx-pair? _g191755191774_)) - (let ((_e191760191776_ + (gx#stx-pair? _g191685191704_)) + (let ((_e191690191706_ (let () (declare (not safe)) - (gx#stx-e _g191755191774_)))) - (let ((_hd191759191779_ + (gx#stx-e _g191685191704_)))) + (let ((_hd191689191709_ (let () (declare (not safe)) - (##car _e191760191776_))) - (_tl191758191781_ + (##car _e191690191706_))) + (_tl191688191711_ (let () (declare (not safe)) - (##cdr _e191760191776_)))) + (##cdr _e191690191706_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191758191781_)) - (let ((_e191763191784_ + (gx#stx-pair? _tl191688191711_)) + (let ((_e191693191714_ (let () (declare (not safe)) - (gx#stx-e _tl191758191781_)))) - (let ((_hd191762191787_ + (gx#stx-e _tl191688191711_)))) + (let ((_hd191692191717_ (let () (declare (not safe)) - (##car _e191763191784_))) - (_tl191761191789_ + (##car _e191693191714_))) + (_tl191691191719_ (let () (declare (not safe)) - (##cdr _e191763191784_)))) + (##cdr _e191693191714_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191761191789_)) - (let ((_e191766191792_ + (gx#stx-pair? _tl191691191719_)) + (let ((_e191696191722_ (let () (declare (not safe)) (gx#stx-e - _tl191761191789_)))) - (let ((_hd191765191795_ + _tl191691191719_)))) + (let ((_hd191695191725_ (let () (declare (not safe)) - (##car _e191766191792_))) - (_tl191764191797_ + (##car _e191696191722_))) + (_tl191694191727_ (let () (declare (not safe)) - (##cdr _e191766191792_)))) + (##cdr _e191696191722_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl191764191797_)) - ((lambda (_L191800_ - _L191801_) + _tl191694191727_)) + ((lambda (_L191730_ + _L191731_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L191801_)) + _L191731_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate-letrec?191751_ _L191801_)) + (_generate-letrec?191681_ _L191731_)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _L191801_ - _L191800_ + _L191731_ + _L191730_ '#f)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec* - _L191801_ - _L191800_ + _L191731_ + _L191730_ '#f))) (let () (declare (not safe)) - (_generate-values191750_ _L191801_ _L191800_)))) + (_generate-values191680_ _L191731_ _L191730_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd191765191795_ - _hd191762191787_) + _hd191695191725_ + _hd191692191717_) (let () (declare (not safe)) - (_g191754191771_ - _g191755191774_))))) + (_g191684191701_ + _g191685191704_))))) (let () (declare (not safe)) - (_g191754191771_ - _g191755191774_))))) + (_g191684191701_ + _g191685191704_))))) (let () (declare (not safe)) - (_g191754191771_ _g191755191774_))))) + (_g191684191701_ _g191685191704_))))) (let () (declare (not safe)) - (_g191754191771_ _g191755191774_)))))) + (_g191684191701_ _g191685191704_)))))) (declare (not safe)) - (_g191753191817_ _stx191748_))))) + (_g191683191747_ _stx191678_))))) (define gxc#generate-runtime-simple-let? - (lambda (_hd191685_) - (let _lp191687_ ((_rest191689_ _hd191685_)) - (let* ((_rest191690191706_ _rest191689_) - (_else191693191714_ (lambda () '#f))) - (let ((_K191696191727_ - (lambda (_rest191725_) + (lambda (_hd191615_) + (let _lp191617_ ((_rest191619_ _hd191615_)) + (let* ((_rest191620191636_ _rest191619_) + (_else191623191644_ (lambda () '#f))) + (let ((_K191626191657_ + (lambda (_rest191655_) (let () (declare (not safe)) - (_lp191687_ _rest191725_)))) - (_K191695191719_ (lambda () '#t))) - (let ((_try-match191692191722_ + (_lp191617_ _rest191655_)))) + (_K191625191649_ (lambda () '#t))) + (let ((_try-match191622191652_ (lambda () (if (let () (declare (not safe)) - (##null? _rest191690191706_)) - (let () (declare (not safe)) (_K191695191719_)) + (##null? _rest191620191636_)) + (let () (declare (not safe)) (_K191625191649_)) (let () (declare (not safe)) - (_else191693191714_)))))) + (_else191623191644_)))))) (if (let () (declare (not safe)) - (##pair? _rest191690191706_)) - (let ((_tl191698191732_ + (##pair? _rest191620191636_)) + (let ((_tl191628191662_ (let () (declare (not safe)) - (##cdr _rest191690191706_))) - (_hd191697191730_ + (##cdr _rest191620191636_))) + (_hd191627191660_ (let () (declare (not safe)) - (##car _rest191690191706_)))) + (##car _rest191620191636_)))) (if (let () (declare (not safe)) - (##pair? _hd191697191730_)) - (let ((_tl191700191737_ + (##pair? _hd191627191660_)) + (let ((_tl191630191667_ (let () (declare (not safe)) - (##cdr _hd191697191730_))) - (_hd191699191735_ + (##cdr _hd191627191660_))) + (_hd191629191665_ (let () (declare (not safe)) - (##car _hd191697191730_)))) + (##car _hd191627191660_)))) (if (let () (declare (not safe)) - (##pair? _hd191699191735_)) - (let ((_tl191704191740_ + (##pair? _hd191629191665_)) + (let ((_tl191634191670_ (let () (declare (not safe)) - (##cdr _hd191699191735_)))) + (##cdr _hd191629191665_)))) (if (let () (declare (not safe)) - (##null? _tl191704191740_)) + (##null? _tl191634191670_)) (if (let () (declare (not safe)) - (##pair? _tl191700191737_)) - (let ((_tl191702191743_ + (##pair? _tl191630191667_)) + (let ((_tl191632191673_ (let () (declare (not safe)) - (##cdr _tl191700191737_)))) + (##cdr _tl191630191667_)))) (if (let () (declare (not safe)) - (##null? _tl191702191743_)) - (let ((_rest191746_ - _tl191698191732_)) + (##null? _tl191632191673_)) + (let ((_rest191676_ + _tl191628191662_)) (declare (not safe)) - (_lp191687_ _rest191746_)) + (_lp191617_ _rest191676_)) (let () (declare (not safe)) - (_else191693191714_)))) + (_else191623191644_)))) (let () (declare (not safe)) - (_else191693191714_))) + (_else191623191644_))) (let () (declare (not safe)) - (_else191693191714_)))) + (_else191623191644_)))) (let () (declare (not safe)) - (_else191693191714_)))) + (_else191623191644_)))) (let () (declare (not safe)) - (_else191693191714_)))) + (_else191623191644_)))) (let () (declare (not safe)) - (_try-match191692191722_))))))))) + (_try-match191622191652_))))))))) (define gxc#generate-runtime-simple-let - (lambda (_form191597_ _hd191598_ _body191599_ _compiled-body?191600_) - (letrec ((_generate1191602_ - (lambda (_bind191641_) - (let* ((_bind191642191653_ _bind191641_) - (_E191644191657_ + (lambda (_form191527_ _hd191528_ _body191529_ _compiled-body?191530_) + (letrec ((_generate1191532_ + (lambda (_bind191571_) + (let* ((_bind191572191583_ _bind191571_) + (_E191574191587_ (lambda () (error '"No clause matching" - _bind191642191653_))) - (_K191645191663_ - (lambda (_expr191660_ _id191661_) - (let ((__tmp203493 + _bind191572191583_))) + (_K191575191593_ + (lambda (_expr191590_ _id191591_) + (let ((__tmp203423 (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _id191661_))) - (__tmp203491 - (let ((__tmp203492 + _id191591_))) + (__tmp203421 + (let ((__tmp203422 (let () (declare (not safe)) (gxc#compile-e__0 - _expr191660_)))) + _expr191590_)))) (declare (not safe)) - (cons __tmp203492 '())))) + (cons __tmp203422 '())))) (declare (not safe)) - (cons __tmp203493 __tmp203491))))) + (cons __tmp203423 __tmp203421))))) (if (let () (declare (not safe)) - (##pair? _bind191642191653_)) - (let ((_hd191646191666_ + (##pair? _bind191572191583_)) + (let ((_hd191576191596_ (let () (declare (not safe)) - (##car _bind191642191653_))) - (_tl191647191668_ + (##car _bind191572191583_))) + (_tl191577191598_ (let () (declare (not safe)) - (##cdr _bind191642191653_)))) + (##cdr _bind191572191583_)))) (if (let () (declare (not safe)) - (##pair? _hd191646191666_)) - (let ((_hd191650191671_ + (##pair? _hd191576191596_)) + (let ((_hd191580191601_ (let () (declare (not safe)) - (##car _hd191646191666_))) - (_tl191651191673_ + (##car _hd191576191596_))) + (_tl191581191603_ (let () (declare (not safe)) - (##cdr _hd191646191666_)))) - (let ((_id191676_ _hd191650191671_)) + (##cdr _hd191576191596_)))) + (let ((_id191606_ _hd191580191601_)) (if (let () (declare (not safe)) - (##null? _tl191651191673_)) + (##null? _tl191581191603_)) (if (let () (declare (not safe)) - (##pair? _tl191647191668_)) - (let ((_hd191648191678_ + (##pair? _tl191577191598_)) + (let ((_hd191578191608_ (let () (declare (not safe)) - (##car _tl191647191668_))) - (_tl191649191680_ + (##car _tl191577191598_))) + (_tl191579191610_ (let () (declare (not safe)) - (##cdr _tl191647191668_)))) - (let ((_expr191683_ - _hd191648191678_)) + (##cdr _tl191577191598_)))) + (let ((_expr191613_ + _hd191578191608_)) (if (let () (declare (not safe)) - (##null? _tl191649191680_)) + (##null? _tl191579191610_)) (let () (declare (not safe)) - (_K191645191663_ - _expr191683_ - _id191676_)) + (_K191575191593_ + _expr191613_ + _id191606_)) (let () (declare (not safe)) - (_E191644191657_))))) + (_E191574191587_))))) (let () (declare (not safe)) - (_E191644191657_))) + (_E191574191587_))) (let () (declare (not safe)) - (_E191644191657_))))) + (_E191574191587_))))) (let () (declare (not safe)) - (_E191644191657_)))) + (_E191574191587_)))) (let () (declare (not safe)) - (_E191644191657_))))))) - (let* ((_bind191604_ (map _generate1191602_ _hd191598_)) - (_body191606_ - (if _compiled-body?191600_ - _body191599_ + (_E191574191587_))))))) + (let* ((_bind191534_ (map _generate1191532_ _hd191528_)) + (_body191536_ + (if _compiled-body?191530_ + _body191529_ (let () (declare (not safe)) - (gxc#compile-e__0 _body191599_)))) - (_body191638_ - (let* ((_body191607191615_ _body191606_) - (_else191609191623_ + (gxc#compile-e__0 _body191529_)))) + (_body191568_ + (let* ((_body191537191545_ _body191536_) + (_else191539191553_ (lambda () (let () (declare (not safe)) - (cons _body191606_ '())))) - (_K191611191628_ - (lambda (_exprs191626_) _exprs191626_))) + (cons _body191536_ '())))) + (_K191541191558_ + (lambda (_exprs191556_) _exprs191556_))) (if (let () (declare (not safe)) - (##pair? _body191607191615_)) - (let ((_hd191612191631_ + (##pair? _body191537191545_)) + (let ((_hd191542191561_ (let () (declare (not safe)) - (##car _body191607191615_))) - (_tl191613191633_ + (##car _body191537191545_))) + (_tl191543191563_ (let () (declare (not safe)) - (##cdr _body191607191615_)))) + (##cdr _body191537191545_)))) (if (let () (declare (not safe)) - (##eq? _hd191612191631_ 'begin)) - (let ((_exprs191636_ _tl191613191633_)) + (##eq? _hd191542191561_ 'begin)) + (let ((_exprs191566_ _tl191543191563_)) (declare (not safe)) - (_K191611191628_ _exprs191636_)) + (_K191541191558_ _exprs191566_)) (let () (declare (not safe)) - (_else191609191623_)))) + (_else191539191553_)))) (let () (declare (not safe)) - (_else191609191623_)))))) - (let ((__tmp203494 + (_else191539191553_)))))) + (let ((__tmp203424 (let () (declare (not safe)) - (cons _bind191604_ _body191638_)))) + (cons _bind191534_ _body191568_)))) (declare (not safe)) - (cons _form191597_ __tmp203494)))))) + (cons _form191527_ __tmp203424)))))) (define gxc#generate-runtime-quote% - (lambda (_stx191505_) - (letrec ((_generate1191507_ - (lambda (_datum191559_) + (lambda (_stx191435_) + (letrec ((_generate1191437_ + (lambda (_datum191489_) (if (or (let () (declare (not safe)) - (null? _datum191559_)) - (interned-symbol? _datum191559_) + (null? _datum191489_)) + (interned-symbol? _datum191489_) (let () (declare (not safe)) - (gx#self-quoting? _datum191559_)) + (gx#self-quoting? _datum191489_)) (let () (declare (not safe)) - (eof-object? _datum191559_))) - _datum191559_ - (if (uninterned-symbol? _datum191559_) + (eof-object? _datum191489_))) + _datum191489_ + (if (uninterned-symbol? _datum191489_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _datum191559_ + _datum191489_ '#t)) (if (let () (declare (not safe)) - (pair? _datum191559_)) - (let ((__tmp203499 - (let ((__tmp203500 - (car _datum191559_))) + (pair? _datum191489_)) + (let ((__tmp203429 + (let ((__tmp203430 + (car _datum191489_))) (declare (not safe)) - (_generate1191507_ __tmp203500))) - (__tmp203497 - (let ((__tmp203498 - (cdr _datum191559_))) + (_generate1191437_ __tmp203430))) + (__tmp203427 + (let ((__tmp203428 + (cdr _datum191489_))) (declare (not safe)) - (_generate1191507_ __tmp203498)))) + (_generate1191437_ __tmp203428)))) (declare (not safe)) - (cons __tmp203499 __tmp203497)) + (cons __tmp203429 __tmp203427)) (if (let () (declare (not safe)) - (box? _datum191559_)) - (let ((__tmp203495 - (let ((__tmp203496 - (unbox _datum191559_))) + (box? _datum191489_)) + (let ((__tmp203425 + (let ((__tmp203426 + (unbox _datum191489_))) (declare (not safe)) - (_generate1191507_ - __tmp203496)))) + (_generate1191437_ + __tmp203426)))) (declare (not safe)) - (box __tmp203495)) + (box __tmp203425)) (if (let () (declare (not safe)) - (vector? _datum191559_)) + (vector? _datum191489_)) (vector-map - _generate1191507_ - _datum191559_) - (if (or (s8vector? _datum191559_) + _generate1191437_ + _datum191489_) + (if (or (s8vector? _datum191489_) (let () (declare (not safe)) - (u8vector? _datum191559_)) - (s16vector? _datum191559_) - (u16vector? _datum191559_) - (s32vector? _datum191559_) - (u32vector? _datum191559_) - (s64vector? _datum191559_) - (u64vector? _datum191559_) - (f32vector? _datum191559_) - (f64vector? _datum191559_)) - _datum191559_ + (u8vector? _datum191489_)) + (s16vector? _datum191489_) + (u16vector? _datum191489_) + (s32vector? _datum191489_) + (u32vector? _datum191489_) + (s64vector? _datum191489_) + (u64vector? _datum191489_) + (f32vector? _datum191489_) + (f64vector? _datum191489_)) + _datum191489_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _stx191505_))))))))))) - (let* ((_g191509191522_ - (lambda (_g191510191519_) + _stx191435_))))))))))) + (let* ((_g191439191452_ + (lambda (_g191440191449_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g191510191519_)))) - (_g191508191556_ - (lambda (_g191510191525_) + _g191440191449_)))) + (_g191438191486_ + (lambda (_g191440191455_) (if (let () (declare (not safe)) - (gx#stx-pair? _g191510191525_)) - (let ((_e191514191527_ + (gx#stx-pair? _g191440191455_)) + (let ((_e191444191457_ (let () (declare (not safe)) - (gx#stx-e _g191510191525_)))) - (let ((_hd191513191530_ + (gx#stx-e _g191440191455_)))) + (let ((_hd191443191460_ (let () (declare (not safe)) - (##car _e191514191527_))) - (_tl191512191532_ + (##car _e191444191457_))) + (_tl191442191462_ (let () (declare (not safe)) - (##cdr _e191514191527_)))) + (##cdr _e191444191457_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191512191532_)) - (let ((_e191517191535_ + (gx#stx-pair? _tl191442191462_)) + (let ((_e191447191465_ (let () (declare (not safe)) - (gx#stx-e _tl191512191532_)))) - (let ((_hd191516191538_ + (gx#stx-e _tl191442191462_)))) + (let ((_hd191446191468_ (let () (declare (not safe)) - (##car _e191517191535_))) - (_tl191515191540_ + (##car _e191447191465_))) + (_tl191445191470_ (let () (declare (not safe)) - (##cdr _e191517191535_)))) + (##cdr _e191447191465_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191515191540_)) - ((lambda (_L191543_) - (let ((__tmp203501 - (let ((__tmp203502 - (let ((__tmp203503 + (gx#stx-null? _tl191445191470_)) + ((lambda (_L191473_) + (let ((__tmp203431 + (let ((__tmp203432 + (let ((__tmp203433 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L191543_)))) + (let () (declare (not safe)) (gx#stx-e _L191473_)))) (declare (not safe)) - (_generate1191507_ __tmp203503)))) + (_generate1191437_ __tmp203433)))) (declare (not safe)) - (cons __tmp203502 '())))) + (cons __tmp203432 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'quote __tmp203501))) - _hd191516191538_) + (cons 'quote __tmp203431))) + _hd191446191468_) (let () (declare (not safe)) - (_g191509191522_ - _g191510191525_))))) + (_g191439191452_ + _g191440191455_))))) (let () (declare (not safe)) - (_g191509191522_ _g191510191525_))))) + (_g191439191452_ _g191440191455_))))) (let () (declare (not safe)) - (_g191509191522_ _g191510191525_)))))) + (_g191439191452_ _g191440191455_)))))) (declare (not safe)) - (_g191508191556_ _stx191505_))))) + (_g191438191486_ _stx191435_))))) (define gxc#generate-runtime-call% - (lambda (_stx191023_) - (letrec ((_compile-call191025_ - (lambda (_rator191249_ _rands191250_) - (let ((_rator191252_ + (lambda (_stx190953_) + (letrec ((_compile-call190955_ + (lambda (_rator191179_ _rands191180_) + (let ((_rator191182_ (let () (declare (not safe)) - (gxc#compile-e__0 _rator191249_))) - (_rands191253_ (map gxc#compile-e _rands191250_))) - (let* ((___stx202535202536_ _rator191252_) - (_g191256191308_ + (gxc#compile-e__0 _rator191179_))) + (_rands191183_ (map gxc#compile-e _rands191180_))) + (let* ((___stx202465202466_ _rator191182_) + (_g191186191238_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202535202536_))))) - (let ((___kont202537202538_ - (lambda (_L191432_ - _L191433_ - _L191434_ - _L191435_) - (if (fx= (length _rands191253_) - (length (let ((__tmp203508 - (lambda (_g191471191474_ + ___stx202465202466_))))) + (let ((___kont202467202468_ + (lambda (_L191362_ + _L191363_ + _L191364_ + _L191365_) + (if (fx= (length _rands191183_) + (length (let ((__tmp203438 + (lambda (_g191401191404_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g191472191476_) + _g191402191406_) (let () (declare (not safe)) - (cons _g191471191474_ _g191472191476_))))) + (cons _g191401191404_ _g191402191406_))))) (declare (not safe)) - (foldr1 __tmp203508 '() _L191434_)))) + (foldr1 __tmp203438 '() _L191364_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_id191479_ _L191435_) - (_args191488_ - (let ((__tmp203504 - (lambda (_g191480191483_ - _g191481191485_) + (let* ((_id191409_ _L191365_) + (_args191418_ + (let ((__tmp203434 + (lambda (_g191410191413_ + _g191411191415_) (let () (declare (not safe)) - (cons _g191480191483_ - _g191481191485_))))) + (cons _g191410191413_ + _g191411191415_))))) (declare (not safe)) - (foldr1 __tmp203504 + (foldr1 __tmp203434 '() - _L191434_))) - (_body191497_ - (let ((__tmp203505 - (lambda (_g191489191492_ - _g191490191494_) + _L191364_))) + (_body191427_ + (let ((__tmp203435 + (lambda (_g191419191422_ + _g191420191424_) (let () (declare (not safe)) - (cons _g191489191492_ - _g191490191494_))))) + (cons _g191419191422_ + _g191420191424_))))) (declare (not safe)) - (foldr1 __tmp203505 + (foldr1 __tmp203435 '() - _L191433_))) - (_init191499_ + _L191363_))) + (_init191429_ (map list - _args191488_ - _rands191253_))) - (let ((__tmp203506 - (let ((__tmp203507 + _args191418_ + _rands191183_))) + (let ((__tmp203436 + (let ((__tmp203437 (let () (declare (not safe)) - (cons _init191499_ - _body191497_)))) + (cons _init191429_ + _body191427_)))) (declare (not safe)) - (cons _id191479_ - __tmp203507)))) + (cons _id191409_ + __tmp203437)))) (declare (not safe)) - (cons 'let __tmp203506))) + (cons 'let __tmp203436))) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _stx191023_))))) - (___kont202543202544_ + _stx190953_))))) + (___kont202473202474_ (lambda () (let () (declare (not safe)) - (cons _rator191252_ _rands191253_))))) - (let ((___match202602202603_ - (lambda (_e191264191320_ - _hd191263191323_ - _tl191262191325_ - _e191267191328_ - _hd191266191331_ - _tl191265191333_ - _e191270191336_ - _hd191269191339_ - _tl191268191341_ - _e191273191344_ - _hd191272191347_ - _tl191271191349_ - _e191276191352_ - _hd191275191355_ - _tl191274191357_ - _e191279191360_ - _hd191278191363_ - _tl191277191365_ - _e191282191368_ - _hd191281191371_ - _tl191280191373_ - ___splice202539202540_ - _target191283191376_ - _tl191285191378_) - (letrec ((_loop191286191381_ - (lambda (_hd191284191384_ - _arg191290191386_) + (cons _rator191182_ _rands191183_))))) + (let ((___match202532202533_ + (lambda (_e191194191250_ + _hd191193191253_ + _tl191192191255_ + _e191197191258_ + _hd191196191261_ + _tl191195191263_ + _e191200191266_ + _hd191199191269_ + _tl191198191271_ + _e191203191274_ + _hd191202191277_ + _tl191201191279_ + _e191206191282_ + _hd191205191285_ + _tl191204191287_ + _e191209191290_ + _hd191208191293_ + _tl191207191295_ + _e191212191298_ + _hd191211191301_ + _tl191210191303_ + ___splice202469202470_ + _target191213191306_ + _tl191215191308_) + (letrec ((_loop191216191311_ + (lambda (_hd191214191314_ + _arg191220191316_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd191284191384_)) - (let ((_e191287191389_ + _hd191214191314_)) + (let ((_e191217191319_ (let () (declare (not safe)) (gx#stx-e - _hd191284191384_)))) - (let ((_lp-tl191289191394_ + _hd191214191314_)))) + (let ((_lp-tl191219191324_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e191287191389_))) - (_lp-hd191288191392_ - (let () (declare (not safe)) (##car _e191287191389_)))) - (let ((__tmp203510 + (##cdr _e191217191319_))) + (_lp-hd191218191322_ + (let () (declare (not safe)) (##car _e191217191319_)))) + (let ((__tmp203440 (let () (declare (not safe)) - (cons _lp-hd191288191392_ _arg191290191386_)))) + (cons _lp-hd191218191322_ _arg191220191316_)))) (declare (not safe)) - (_loop191286191381_ _lp-tl191289191394_ __tmp203510)))) + (_loop191216191311_ _lp-tl191219191324_ __tmp203440)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg191291191397_ - (reverse _arg191290191386_))) + (let ((_arg191221191327_ + (reverse _arg191220191316_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl191280191373_)) - (let ((___splice202541202542_ + _tl191210191303_)) + (let ((___splice202471202472_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _tl191280191373_ '0)))) - (let ((_tl191294191402_ + (gx#syntax-split-splice _tl191210191303_ '0)))) + (let ((_tl191224191332_ (let () (declare (not safe)) - (##vector-ref ___splice202541202542_ '1))) - (_target191292191400_ + (##vector-ref ___splice202471202472_ '1))) + (_target191222191330_ (let () (declare (not safe)) - (##vector-ref ___splice202541202542_ '0)))) + (##vector-ref ___splice202471202472_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191294191402_)) - (letrec ((_loop191295191405_ - (lambda (_hd191293191408_ - _body191299191410_) + (gx#stx-null? _tl191224191332_)) + (letrec ((_loop191225191335_ + (lambda (_hd191223191338_ + _body191229191340_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd191293191408_)) - (let ((_e191296191413_ + (gx#stx-pair? _hd191223191338_)) + (let ((_e191226191343_ (let () (declare (not safe)) (gx#stx-e - _hd191293191408_)))) - (let ((_lp-tl191298191418_ + _hd191223191338_)))) + (let ((_lp-tl191228191348_ (let () (declare (not safe)) - (##cdr _e191296191413_))) - (_lp-hd191297191416_ + (##cdr _e191226191343_))) + (_lp-hd191227191346_ (let () (declare (not safe)) - (##car _e191296191413_)))) - (let ((__tmp203509 + (##car _e191226191343_)))) + (let ((__tmp203439 (let () (declare (not safe)) - (cons _lp-hd191297191416_ - _body191299191410_)))) + (cons _lp-hd191227191346_ + _body191229191340_)))) (declare (not safe)) - (_loop191295191405_ - _lp-tl191298191418_ - __tmp203509)))) - (let ((_body191300191421_ - (reverse _body191299191410_))) + (_loop191225191335_ + _lp-tl191228191348_ + __tmp203439)))) + (let ((_body191230191351_ + (reverse _body191229191340_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl191274191357_)) + _tl191204191287_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl191268191341_)) + _tl191198191271_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl191265191333_)) - (let ((_e191303191424_ + _tl191195191263_)) + (let ((_e191233191354_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl191265191333_)))) - (let ((_tl191301191429_ + (gx#stx-e _tl191195191263_)))) + (let ((_tl191231191359_ (let () (declare (not safe)) - (##cdr _e191303191424_))) - (_hd191302191427_ + (##cdr _e191233191354_))) + (_hd191232191357_ (let () (declare (not safe)) - (##car _e191303191424_)))) + (##car _e191233191354_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191301191429_)) - (let ((_L191432_ _hd191302191427_) - (_L191433_ _body191300191421_) - (_L191434_ _arg191291191397_) - (_L191435_ _hd191272191347_)) + (gx#stx-null? _tl191231191359_)) + (let ((_L191362_ _hd191232191357_) + (_L191363_ _body191230191351_) + (_L191364_ _arg191221191327_) + (_L191365_ _hd191202191277_)) (if (let () (declare (not safe)) - (eq? _L191435_ _L191432_)) - (___kont202537202538_ - _L191432_ - _L191433_ - _L191434_ - _L191435_) - (___kont202543202544_))) - (___kont202543202544_)))) - (___kont202543202544_)) + (eq? _L191365_ _L191362_)) + (___kont202467202468_ + _L191362_ + _L191363_ + _L191364_ + _L191365_) + (___kont202473202474_))) + (___kont202473202474_)))) + (___kont202473202474_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202543202544_)) - (___kont202543202544_))))))) + (___kont202473202474_)) + (___kont202473202474_))))))) (let () (declare (not safe)) - (_loop191295191405_ _target191292191400_ '()))) - (___kont202543202544_)))) - (___kont202543202544_))))))) + (_loop191225191335_ _target191222191330_ '()))) + (___kont202473202474_)))) + (___kont202473202474_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop191286191381_ - _target191283191376_ + (_loop191216191311_ + _target191213191306_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202535202536_)) - (let ((_e191264191320_ + (gx#stx-pair? ___stx202465202466_)) + (let ((_e191194191250_ (let () (declare (not safe)) - (gx#stx-e ___stx202535202536_)))) - (let ((_tl191262191325_ + (gx#stx-e ___stx202465202466_)))) + (let ((_tl191192191255_ (let () (declare (not safe)) - (##cdr _e191264191320_))) - (_hd191263191323_ + (##cdr _e191194191250_))) + (_hd191193191253_ (let () (declare (not safe)) - (##car _e191264191320_)))) + (##car _e191194191250_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd191263191323_)) + (gx#identifier? _hd191193191253_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _hd191263191323_)) + _hd191193191253_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl191262191325_)) - (let ((_e191267191328_ + _tl191192191255_)) + (let ((_e191197191258_ (let () (declare (not safe)) (gx#stx-e - _tl191262191325_)))) - (let ((_tl191265191333_ + _tl191192191255_)))) + (let ((_tl191195191263_ (let () (declare (not safe)) - (##cdr _e191267191328_))) - (_hd191266191331_ + (##cdr _e191197191258_))) + (_hd191196191261_ (let () (declare (not safe)) - (##car _e191267191328_)))) + (##car _e191197191258_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd191266191331_)) - (let ((_e191270191336_ + _hd191196191261_)) + (let ((_e191200191266_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd191266191331_)))) - (let ((_tl191268191341_ + (gx#stx-e _hd191196191261_)))) + (let ((_tl191198191271_ (let () (declare (not safe)) - (##cdr _e191270191336_))) - (_hd191269191339_ + (##cdr _e191200191266_))) + (_hd191199191269_ (let () (declare (not safe)) - (##car _e191270191336_)))) + (##car _e191200191266_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd191269191339_)) - (let ((_e191273191344_ + (gx#stx-pair? _hd191199191269_)) + (let ((_e191203191274_ (let () (declare (not safe)) - (gx#stx-e _hd191269191339_)))) - (let ((_tl191271191349_ + (gx#stx-e _hd191199191269_)))) + (let ((_tl191201191279_ (let () (declare (not safe)) - (##cdr _e191273191344_))) - (_hd191272191347_ + (##cdr _e191203191274_))) + (_hd191202191277_ (let () (declare (not safe)) - (##car _e191273191344_)))) + (##car _e191203191274_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191271191349_)) - (let ((_e191276191352_ + (gx#stx-pair? _tl191201191279_)) + (let ((_e191206191282_ (let () (declare (not safe)) - (gx#stx-e _tl191271191349_)))) - (let ((_tl191274191357_ + (gx#stx-e _tl191201191279_)))) + (let ((_tl191204191287_ (let () (declare (not safe)) - (##cdr _e191276191352_))) - (_hd191275191355_ + (##cdr _e191206191282_))) + (_hd191205191285_ (let () (declare (not safe)) - (##car _e191276191352_)))) + (##car _e191206191282_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd191275191355_)) - (let ((_e191279191360_ + (gx#stx-pair? _hd191205191285_)) + (let ((_e191209191290_ (let () (declare (not safe)) (gx#stx-e - _hd191275191355_)))) - (let ((_tl191277191365_ + _hd191205191285_)))) + (let ((_tl191207191295_ (let () (declare (not safe)) - (##cdr _e191279191360_))) - (_hd191278191363_ + (##cdr _e191209191290_))) + (_hd191208191293_ (let () (declare (not safe)) - (##car _e191279191360_)))) + (##car _e191209191290_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd191278191363_)) + _hd191208191293_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _hd191278191363_)) + _hd191208191293_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl191277191365_)) - (let ((_e191282191368_ + _tl191207191295_)) + (let ((_e191212191298_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl191277191365_)))) - (let ((_tl191280191373_ + (gx#stx-e _tl191207191295_)))) + (let ((_tl191210191303_ (let () (declare (not safe)) - (##cdr _e191282191368_))) - (_hd191281191371_ + (##cdr _e191212191298_))) + (_hd191211191301_ (let () (declare (not safe)) - (##car _e191282191368_)))) + (##car _e191212191298_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd191281191371_)) - (let ((___splice202539202540_ + (gx#stx-pair/null? _hd191211191301_)) + (let ((___splice202469202470_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd191281191371_ + _hd191211191301_ '0)))) - (let ((_tl191285191378_ + (let ((_tl191215191308_ (let () (declare (not safe)) - (##vector-ref ___splice202539202540_ '1))) - (_target191283191376_ + (##vector-ref ___splice202469202470_ '1))) + (_target191213191306_ (let () (declare (not safe)) (##vector-ref - ___splice202539202540_ + ___splice202469202470_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191285191378_)) - (___match202602202603_ - _e191264191320_ - _hd191263191323_ - _tl191262191325_ - _e191267191328_ - _hd191266191331_ - _tl191265191333_ - _e191270191336_ - _hd191269191339_ - _tl191268191341_ - _e191273191344_ - _hd191272191347_ - _tl191271191349_ - _e191276191352_ - _hd191275191355_ - _tl191274191357_ - _e191279191360_ - _hd191278191363_ - _tl191277191365_ - _e191282191368_ - _hd191281191371_ - _tl191280191373_ - ___splice202539202540_ - _target191283191376_ - _tl191285191378_) - (___kont202543202544_)))) - (___kont202543202544_)))) - (___kont202543202544_)) - (___kont202543202544_)) + (gx#stx-null? _tl191215191308_)) + (___match202532202533_ + _e191194191250_ + _hd191193191253_ + _tl191192191255_ + _e191197191258_ + _hd191196191261_ + _tl191195191263_ + _e191200191266_ + _hd191199191269_ + _tl191198191271_ + _e191203191274_ + _hd191202191277_ + _tl191201191279_ + _e191206191282_ + _hd191205191285_ + _tl191204191287_ + _e191209191290_ + _hd191208191293_ + _tl191207191295_ + _e191212191298_ + _hd191211191301_ + _tl191210191303_ + ___splice202469202470_ + _target191213191306_ + _tl191215191308_) + (___kont202473202474_)))) + (___kont202473202474_)))) + (___kont202473202474_)) + (___kont202473202474_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202543202544_)))) - (___kont202543202544_)))) - (___kont202543202544_)))) - (___kont202543202544_)))) - (___kont202543202544_)))) + (___kont202473202474_)))) + (___kont202473202474_)))) + (___kont202473202474_)))) + (___kont202473202474_)))) + (___kont202473202474_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202543202544_)) - (___kont202543202544_)) - (___kont202543202544_)))) - (___kont202543202544_))))))))) - (let* ((_g191027191041_ - (lambda (_g191028191038_) + (___kont202473202474_)) + (___kont202473202474_)) + (___kont202473202474_)))) + (___kont202473202474_))))))))) + (let* ((_g190957190971_ + (lambda (_g190958190968_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g191028191038_)))) - (_g191026191246_ - (lambda (_g191028191044_) + _g190958190968_)))) + (_g190956191176_ + (lambda (_g190958190974_) (if (let () (declare (not safe)) - (gx#stx-pair? _g191028191044_)) - (let ((_e191033191046_ + (gx#stx-pair? _g190958190974_)) + (let ((_e190963190976_ (let () (declare (not safe)) - (gx#stx-e _g191028191044_)))) - (let ((_hd191032191049_ + (gx#stx-e _g190958190974_)))) + (let ((_hd190962190979_ (let () (declare (not safe)) - (##car _e191033191046_))) - (_tl191031191051_ + (##car _e190963190976_))) + (_tl190961190981_ (let () (declare (not safe)) - (##cdr _e191033191046_)))) + (##cdr _e190963190976_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191031191051_)) - (let ((_e191036191054_ + (gx#stx-pair? _tl190961190981_)) + (let ((_e190966190984_ (let () (declare (not safe)) - (gx#stx-e _tl191031191051_)))) - (let ((_hd191035191057_ + (gx#stx-e _tl190961190981_)))) + (let ((_hd190965190987_ (let () (declare (not safe)) - (##car _e191036191054_))) - (_tl191034191059_ + (##car _e190966190984_))) + (_tl190964190989_ (let () (declare (not safe)) - (##cdr _e191036191054_)))) - ((lambda (_L191062_ _L191063_) + (##cdr _e190966190984_)))) + ((lambda (_L190992_ _L190993_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (_compile-call191025_ - _L191063_ - _L191062_)) - (let* ((___stx202651202652_ - _L191063_) - (_g191078191090_ + (_compile-call190955_ + _L190993_ + _L190992_)) + (let* ((___stx202581202582_ + _L190993_) + (_g191008191020_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202651202652_))))) - (let ((___kont202653202654_ + ___stx202581202582_))))) + (let ((___kont202583202584_ (lambda () - (let ((_f191120_ + (let ((_f191050_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _L191063_)))) - (if (let ((__tmp203525 (symbol->string _f191120_))) + (gxc#compile-e__0 _L190993_)))) + (if (let ((__tmp203455 (symbol->string _f191050_))) (declare (not safe)) - (string-prefix? '"##" __tmp203525)) - (let _lp191122_ ((_rest191125_ (reverse _L191062_)) - (_bind191127_ '()) - (_args191128_ '())) - (let* ((_rest191129191137_ _rest191125_) - (_else191131191145_ + (string-prefix? '"##" __tmp203455)) + (let _lp191052_ ((_rest191055_ (reverse _L190992_)) + (_bind191057_ '()) + (_args191058_ '())) + (let* ((_rest191059191067_ _rest191055_) + (_else191061191075_ (lambda () - (let ((__tmp203511 - (let ((__tmp203512 - (let ((__tmp203513 - (let ((__tmp203514 + (let ((__tmp203441 + (let ((__tmp203442 + (let ((__tmp203443 + (let ((__tmp203444 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _f191120_ _args191128_)))) + (cons _f191050_ _args191058_)))) (declare (not safe)) - (cons __tmp203514 '())))) + (cons __tmp203444 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp203513)))) + __tmp203443)))) (declare (not safe)) - (cons _bind191127_ __tmp203512)))) + (cons _bind191057_ __tmp203442)))) (declare (not safe)) - (cons 'let __tmp203511)))) - (_K191133191231_ - (lambda (_rest191148_ _e191149_) - (let* ((___stx202605202606_ _e191149_) - (_g191154191172_ + (cons 'let __tmp203441)))) + (_K191063191161_ + (lambda (_rest191078_ _e191079_) + (let* ((___stx202535202536_ _e191079_) + (_g191084191102_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202605202606_))))) - (let ((___kont202607202608_ + ___stx202535202536_))))) + (let ((___kont202537202538_ (lambda () - (let ((__tmp203515 - (let ((__tmp203516 + (let ((__tmp203445 + (let ((__tmp203446 (let () (declare (not safe)) (gxc#compile-e__0 - _e191149_)))) + _e191079_)))) (declare (not safe)) - (cons __tmp203516 - _args191128_)))) + (cons __tmp203446 + _args191058_)))) (declare (not safe)) - (_lp191122_ - _rest191148_ - _bind191127_ - __tmp203515)))) - (___kont202609202610_ + (_lp191052_ + _rest191078_ + _bind191057_ + __tmp203445)))) + (___kont202539202540_ (lambda () - (let ((__tmp203517 - (let ((__tmp203518 + (let ((__tmp203447 + (let ((__tmp203448 (let () (declare (not safe)) (gxc#compile-e__0 - _e191149_)))) + _e191079_)))) (declare (not safe)) - (cons __tmp203518 - _args191128_)))) + (cons __tmp203448 + _args191058_)))) (declare (not safe)) - (_lp191122_ - _rest191148_ - _bind191127_ - __tmp203517)))) - (___kont202611202612_ + (_lp191052_ + _rest191078_ + _bind191057_ + __tmp203447)))) + (___kont202541202542_ (lambda () - (let ((_tmp191179_ - (let ((__tmp203519 + (let ((_tmp191109_ + (let ((__tmp203449 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp203519)))) - (let ((__tmp203521 - (let ((__tmp203522 - (let ((__tmp203523 + __tmp203449)))) + (let ((__tmp203451 + (let ((__tmp203452 + (let ((__tmp203453 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203524 + (let ((__tmp203454 (let () (declare (not safe)) - (gxc#compile-e__0 _e191149_)))) + (gxc#compile-e__0 _e191079_)))) (declare (not safe)) - (cons __tmp203524 '())))) + (cons __tmp203454 '())))) (declare (not safe)) - (cons _tmp191179_ __tmp203523)))) + (cons _tmp191109_ __tmp203453)))) (declare (not safe)) - (cons __tmp203522 _bind191127_))) + (cons __tmp203452 _bind191057_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp203520 + (__tmp203450 (let () (declare (not safe)) - (cons _tmp191179_ - _args191128_)))) + (cons _tmp191109_ + _args191058_)))) (declare (not safe)) - (_lp191122_ - _rest191148_ - __tmp203521 - __tmp203520)))))) + (_lp191052_ + _rest191078_ + __tmp203451 + __tmp203450)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202605202606_)) - (let ((_e191158191210_ + (gx#stx-pair? ___stx202535202536_)) + (let ((_e191088191140_ (let () (declare (not safe)) (gx#stx-e - ___stx202605202606_)))) - (let ((_tl191156191215_ + ___stx202535202536_)))) + (let ((_tl191086191145_ (let () (declare (not safe)) - (##cdr _e191158191210_))) - (_hd191157191213_ + (##cdr _e191088191140_))) + (_hd191087191143_ (let () (declare (not safe)) - (##car _e191158191210_)))) + (##car _e191088191140_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd191157191213_)) + _hd191087191143_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd191157191213_)) + _hd191087191143_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl191156191215_)) - (let ((_e191161191218_ + _tl191086191145_)) + (let ((_e191091191148_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl191156191215_)))) - (let ((_tl191159191223_ + (gx#stx-e _tl191086191145_)))) + (let ((_tl191089191153_ (let () (declare (not safe)) - (##cdr _e191161191218_))) - (_hd191160191221_ + (##cdr _e191091191148_))) + (_hd191090191151_ (let () (declare (not safe)) - (##car _e191161191218_)))) + (##car _e191091191148_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191159191223_)) - (___kont202607202608_) - (___kont202611202612_)))) - (___kont202611202612_)) + (gx#stx-null? _tl191089191153_)) + (___kont202537202538_) + (___kont202541202542_)))) + (___kont202541202542_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd191157191213_)) + (gx#stx-eq? '%#quote _hd191087191143_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191156191215_)) - (let ((_e191167191195_ + (gx#stx-pair? _tl191086191145_)) + (let ((_e191097191125_ (let () (declare (not safe)) - (gx#stx-e _tl191156191215_)))) - (let ((_tl191165191200_ + (gx#stx-e _tl191086191145_)))) + (let ((_tl191095191130_ (let () (declare (not safe)) - (##cdr _e191167191195_))) - (_hd191166191198_ + (##cdr _e191097191125_))) + (_hd191096191128_ (let () (declare (not safe)) - (##car _e191167191195_)))) + (##car _e191097191125_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191165191200_)) - (___kont202609202610_) - (___kont202611202612_)))) - (___kont202611202612_)) - (___kont202611202612_))) + (gx#stx-null? _tl191095191130_)) + (___kont202539202540_) + (___kont202541202542_)))) + (___kont202541202542_)) + (___kont202541202542_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202611202612_)))) - (___kont202611202612_))))))) + (___kont202541202542_)))) + (___kont202541202542_))))))) (if (let () (declare (not safe)) - (##pair? _rest191129191137_)) - (let ((_hd191134191234_ + (##pair? _rest191059191067_)) + (let ((_hd191064191164_ (let () (declare (not safe)) - (##car _rest191129191137_))) - (_tl191135191236_ + (##car _rest191059191067_))) + (_tl191065191166_ (let () (declare (not safe)) - (##cdr _rest191129191137_)))) - (let* ((_e191239_ _hd191134191234_) - (_rest191241_ _tl191135191236_)) + (##cdr _rest191059191067_)))) + (let* ((_e191169_ _hd191064191164_) + (_rest191171_ _tl191065191166_)) (declare (not safe)) - (_K191133191231_ _rest191241_ _e191239_))) + (_K191063191161_ _rest191171_ _e191169_))) (let () (declare (not safe)) - (_else191131191145_))))) + (_else191061191075_))))) (let () (declare (not safe)) - (_compile-call191025_ _L191063_ _L191062_)))))) + (_compile-call190955_ _L190993_ _L190992_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202655202656_ + (___kont202585202586_ (lambda () (let () (declare (not safe)) - (_compile-call191025_ - _L191063_ - _L191062_))))) + (_compile-call190955_ + _L190993_ + _L190992_))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx202651202652_)) - (let ((_e191082191102_ + ___stx202581202582_)) + (let ((_e191012191032_ (let () (declare (not safe)) (gx#stx-e - ___stx202651202652_)))) - (let ((_tl191080191107_ + ___stx202581202582_)))) + (let ((_tl191010191037_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e191082191102_))) - (_hd191081191105_ - (let () (declare (not safe)) (##car _e191082191102_)))) + (##cdr _e191012191032_))) + (_hd191011191035_ + (let () (declare (not safe)) (##car _e191012191032_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd191081191105_)) + (gx#identifier? _hd191011191035_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd191081191105_)) + (gx#stx-eq? '%#ref _hd191011191035_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191080191107_)) - (let ((_e191085191110_ + (gx#stx-pair? _tl191010191037_)) + (let ((_e191015191040_ (let () (declare (not safe)) - (gx#stx-e _tl191080191107_)))) - (let ((_tl191083191115_ + (gx#stx-e _tl191010191037_)))) + (let ((_tl191013191045_ (let () (declare (not safe)) - (##cdr _e191085191110_))) - (_hd191084191113_ + (##cdr _e191015191040_))) + (_hd191014191043_ (let () (declare (not safe)) - (##car _e191085191110_)))) + (##car _e191015191040_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191083191115_)) - (___kont202653202654_) - (___kont202655202656_)))) - (___kont202655202656_)) - (___kont202655202656_)) - (___kont202655202656_)))) + (gx#stx-null? _tl191013191045_)) + (___kont202583202584_) + (___kont202585202586_)))) + (___kont202585202586_)) + (___kont202585202586_)) + (___kont202585202586_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202655202656_)))))) - _tl191034191059_ - _hd191035191057_))) + (___kont202585202586_)))))) + _tl190964190989_ + _hd190965190987_))) (let () (declare (not safe)) - (_g191027191041_ _g191028191044_))))) + (_g190957190971_ _g190958190974_))))) (let () (declare (not safe)) - (_g191027191041_ _g191028191044_)))))) + (_g190957190971_ _g190958190974_)))))) (declare (not safe)) - (_g191026191246_ _stx191023_))))) + (_g190956191176_ _stx190953_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_stx190811_) - (let* ((___stx202723202724_ _stx190811_) - (_g190814190834_ + (lambda (_stx190741_) + (let* ((___stx202653202654_ _stx190741_) + (_g190744190764_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202723202724_))))) - (let ((___kont202725202726_ - (lambda (_L190878_ _L190879_) + ___stx202653202654_))))) + (let ((___kont202655202656_ + (lambda (_L190808_ _L190809_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx190811_)) - (let ((_f190897_ - (let ((__tmp203526 - (let ((__tmp203528 + (gxc#generate-runtime-call% _stx190741_)) + (let ((_f190827_ + (let ((__tmp203456 + (let ((__tmp203458 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp203527 + (__tmp203457 (let () (declare (not safe)) - (cons _L190879_ '())))) + (cons _L190809_ '())))) (declare (not safe)) - (cons __tmp203528 __tmp203527)))) + (cons __tmp203458 __tmp203457)))) (declare (not safe)) - (gxc#compile-e__0 __tmp203526)))) - (let _lp190899_ ((_rest190902_ (reverse _L190878_)) - (_bind190904_ '()) - (_args190905_ '())) - (let* ((_rest190906190914_ _rest190902_) - (_else190908190922_ + (gxc#compile-e__0 __tmp203456)))) + (let _lp190829_ ((_rest190832_ (reverse _L190808_)) + (_bind190834_ '()) + (_args190835_ '())) + (let* ((_rest190836190844_ _rest190832_) + (_else190838190852_ (lambda () - (let ((__tmp203529 - (let ((__tmp203530 - (let ((__tmp203531 - (let ((__tmp203532 + (let ((__tmp203459 + (let ((__tmp203460 + (let ((__tmp203461 + (let ((__tmp203462 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _f190897_ _args190905_)))) + (cons _f190827_ _args190835_)))) (declare (not safe)) - (cons __tmp203532 '())))) + (cons __tmp203462 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp203531)))) + (cons '(declare (not safe)) __tmp203461)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind190904_ - __tmp203530)))) + (cons _bind190834_ + __tmp203460)))) (declare (not safe)) - (cons 'let __tmp203529)))) - (_K190910191008_ - (lambda (_rest190925_ _e190926_) - (let* ((___stx202677202678_ _e190926_) - (_g190931190949_ + (cons 'let __tmp203459)))) + (_K190840190938_ + (lambda (_rest190855_ _e190856_) + (let* ((___stx202607202608_ _e190856_) + (_g190861190879_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202677202678_))))) - (let ((___kont202679202680_ + ___stx202607202608_))))) + (let ((___kont202609202610_ (lambda () - (let ((__tmp203533 - (let ((__tmp203534 + (let ((__tmp203463 + (let ((__tmp203464 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e190926_)))) + (gxc#compile-e__0 _e190856_)))) (declare (not safe)) - (cons __tmp203534 _args190905_)))) + (cons __tmp203464 _args190835_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp190899_ - _rest190925_ - _bind190904_ - __tmp203533)))) - (___kont202681202682_ + (_lp190829_ + _rest190855_ + _bind190834_ + __tmp203463)))) + (___kont202611202612_ (lambda () - (let ((__tmp203535 - (let ((__tmp203536 + (let ((__tmp203465 + (let ((__tmp203466 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e190926_)))) + (gxc#compile-e__0 _e190856_)))) (declare (not safe)) - (cons __tmp203536 _args190905_)))) + (cons __tmp203466 _args190835_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp190899_ - _rest190925_ - _bind190904_ - __tmp203535)))) - (___kont202683202684_ + (_lp190829_ + _rest190855_ + _bind190834_ + __tmp203465)))) + (___kont202613202614_ (lambda () - (let ((_tmp190956_ - (let ((__tmp203537 + (let ((_tmp190886_ + (let ((__tmp203467 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp203537)))) - (let ((__tmp203539 - (let ((__tmp203540 + __tmp203467)))) + (let ((__tmp203469 + (let ((__tmp203470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203541 - (let ((__tmp203542 + (let ((__tmp203471 + (let ((__tmp203472 (let () (declare (not safe)) - (gxc#compile-e__0 _e190926_)))) + (gxc#compile-e__0 _e190856_)))) (declare (not safe)) - (cons __tmp203542 '())))) + (cons __tmp203472 '())))) (declare (not safe)) - (cons _tmp190956_ __tmp203541)))) + (cons _tmp190886_ __tmp203471)))) (declare (not safe)) - (cons __tmp203540 _bind190904_))) - (__tmp203538 + (cons __tmp203470 _bind190834_))) + (__tmp203468 (let () (declare (not safe)) - (cons _tmp190956_ _args190905_)))) + (cons _tmp190886_ _args190835_)))) (declare (not safe)) - (_lp190899_ _rest190925_ __tmp203539 __tmp203538)))))) + (_lp190829_ _rest190855_ __tmp203469 __tmp203468)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx202677202678_)) - (let ((_e190935190987_ + ___stx202607202608_)) + (let ((_e190865190917_ (let () (declare (not safe)) (gx#stx-e - ___stx202677202678_)))) - (let ((_tl190933190992_ + ___stx202607202608_)))) + (let ((_tl190863190922_ (let () (declare (not safe)) - (##cdr _e190935190987_))) - (_hd190934190990_ + (##cdr _e190865190917_))) + (_hd190864190920_ (let () (declare (not safe)) - (##car _e190935190987_)))) + (##car _e190865190917_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd190934190990_)) + _hd190864190920_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd190934190990_)) + _hd190864190920_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl190933190992_)) - (let ((_e190938190995_ + (gx#stx-pair? _tl190863190922_)) + (let ((_e190868190925_ (let () (declare (not safe)) - (gx#stx-e _tl190933190992_)))) - (let ((_tl190936191000_ + (gx#stx-e _tl190863190922_)))) + (let ((_tl190866190930_ (let () (declare (not safe)) - (##cdr _e190938190995_))) - (_hd190937190998_ + (##cdr _e190868190925_))) + (_hd190867190928_ (let () (declare (not safe)) - (##car _e190938190995_)))) + (##car _e190868190925_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl190936191000_)) - (___kont202679202680_) - (___kont202683202684_)))) - (___kont202683202684_)) + (gx#stx-null? _tl190866190930_)) + (___kont202609202610_) + (___kont202613202614_)))) + (___kont202613202614_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd190934190990_)) + (gx#stx-eq? '%#quote _hd190864190920_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190933190992_)) - (let ((_e190944190972_ + (gx#stx-pair? _tl190863190922_)) + (let ((_e190874190902_ (let () (declare (not safe)) - (gx#stx-e _tl190933190992_)))) - (let ((_tl190942190977_ + (gx#stx-e _tl190863190922_)))) + (let ((_tl190872190907_ (let () (declare (not safe)) - (##cdr _e190944190972_))) - (_hd190943190975_ + (##cdr _e190874190902_))) + (_hd190873190905_ (let () (declare (not safe)) - (##car _e190944190972_)))) + (##car _e190874190902_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl190942190977_)) - (___kont202681202682_) - (___kont202683202684_)))) - (___kont202683202684_)) - (___kont202683202684_))) - (___kont202683202684_)))) + (gx#stx-null? _tl190872190907_)) + (___kont202611202612_) + (___kont202613202614_)))) + (___kont202613202614_)) + (___kont202613202614_))) + (___kont202613202614_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202683202684_))))))) + (___kont202613202614_))))))) (if (let () (declare (not safe)) - (##pair? _rest190906190914_)) - (let ((_hd190911191011_ + (##pair? _rest190836190844_)) + (let ((_hd190841190941_ (let () (declare (not safe)) - (##car _rest190906190914_))) - (_tl190912191013_ + (##car _rest190836190844_))) + (_tl190842190943_ (let () (declare (not safe)) - (##cdr _rest190906190914_)))) - (let* ((_e191016_ _hd190911191011_) - (_rest191018_ _tl190912191013_)) + (##cdr _rest190836190844_)))) + (let* ((_e190946_ _hd190841190941_) + (_rest190948_ _tl190842190943_)) (declare (not safe)) - (_K190910191008_ - _rest191018_ - _e191016_))) + (_K190840190938_ + _rest190948_ + _e190946_))) (let () (declare (not safe)) - (_else190908190922_))))))))) - (___kont202727202728_ + (_else190838190852_))))))))) + (___kont202657202658_ (lambda () (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx190811_))))) + (gxc#generate-runtime-call% _stx190741_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202723202724_)) - (let ((_e190820190846_ + (gx#stx-pair? ___stx202653202654_)) + (let ((_e190750190776_ (let () (declare (not safe)) - (gx#stx-e ___stx202723202724_)))) - (let ((_tl190818190851_ + (gx#stx-e ___stx202653202654_)))) + (let ((_tl190748190781_ (let () (declare (not safe)) - (##cdr _e190820190846_))) - (_hd190819190849_ + (##cdr _e190750190776_))) + (_hd190749190779_ (let () (declare (not safe)) - (##car _e190820190846_)))) + (##car _e190750190776_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190818190851_)) - (let ((_e190823190854_ + (gx#stx-pair? _tl190748190781_)) + (let ((_e190753190784_ (let () (declare (not safe)) - (gx#stx-e _tl190818190851_)))) - (let ((_tl190821190859_ + (gx#stx-e _tl190748190781_)))) + (let ((_tl190751190789_ (let () (declare (not safe)) - (##cdr _e190823190854_))) - (_hd190822190857_ + (##cdr _e190753190784_))) + (_hd190752190787_ (let () (declare (not safe)) - (##car _e190823190854_)))) + (##car _e190753190784_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd190822190857_)) - (let ((_e190826190862_ + (gx#stx-pair? _hd190752190787_)) + (let ((_e190756190792_ (let () (declare (not safe)) - (gx#stx-e _hd190822190857_)))) - (let ((_tl190824190867_ + (gx#stx-e _hd190752190787_)))) + (let ((_tl190754190797_ (let () (declare (not safe)) - (##cdr _e190826190862_))) - (_hd190825190865_ + (##cdr _e190756190792_))) + (_hd190755190795_ (let () (declare (not safe)) - (##car _e190826190862_)))) + (##car _e190756190792_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd190825190865_)) + (gx#identifier? _hd190755190795_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd190825190865_)) + _hd190755190795_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl190824190867_)) - (let ((_e190829190870_ + _tl190754190797_)) + (let ((_e190759190800_ (let () (declare (not safe)) (gx#stx-e - _tl190824190867_)))) - (let ((_tl190827190875_ + _tl190754190797_)))) + (let ((_tl190757190805_ (let () (declare (not safe)) - (##cdr _e190829190870_))) - (_hd190828190873_ + (##cdr _e190759190800_))) + (_hd190758190803_ (let () (declare (not safe)) - (##car _e190829190870_)))) + (##car _e190759190800_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl190827190875_)) - (___kont202725202726_ - _tl190821190859_ - _hd190828190873_) - (___kont202727202728_)))) - (___kont202727202728_)) - (___kont202727202728_)) - (___kont202727202728_)))) - (___kont202727202728_)))) - (___kont202727202728_)))) - (___kont202727202728_)))))) + _tl190757190805_)) + (___kont202655202656_ + _tl190751190789_ + _hd190758190803_) + (___kont202657202658_)))) + (___kont202657202658_)) + (___kont202657202658_)) + (___kont202657202658_)))) + (___kont202657202658_)))) + (___kont202657202658_)))) + (___kont202657202658_)))))) (define gxc#generate-runtime-if% - (lambda (_stx190624_) - (letrec ((_simplify190626_ - (lambda (_code190711_) - (let* ((_code190712190730_ _code190711_) - (_else190714190738_ (lambda () _code190711_)) - (_K190716190774_ - (lambda (_expr190741_ _test190742_) - (let* ((_expr190743190751_ _expr190741_) - (_else190745190759_ + (lambda (_stx190554_) + (letrec ((_simplify190556_ + (lambda (_code190641_) + (let* ((_code190642190660_ _code190641_) + (_else190644190668_ (lambda () _code190641_)) + (_K190646190704_ + (lambda (_expr190671_ _test190672_) + (let* ((_expr190673190681_ _expr190671_) + (_else190675190689_ (lambda () - (let ((__tmp203543 - (let ((__tmp203544 + (let ((__tmp203473 + (let ((__tmp203474 (let () (declare (not safe)) - (cons _expr190741_ + (cons _expr190671_ '())))) (declare (not safe)) - (cons _test190742_ - __tmp203544)))) + (cons _test190672_ + __tmp203474)))) (declare (not safe)) - (cons 'and __tmp203543)))) - (_K190747190764_ - (lambda (_exprs190762_) - (let ((__tmp203545 + (cons 'and __tmp203473)))) + (_K190677190694_ + (lambda (_exprs190692_) + (let ((__tmp203475 (let () (declare (not safe)) - (cons _test190742_ - _exprs190762_)))) + (cons _test190672_ + _exprs190692_)))) (declare (not safe)) - (cons 'and __tmp203545))))) + (cons 'and __tmp203475))))) (if (let () (declare (not safe)) - (##pair? _expr190743190751_)) - (let ((_hd190748190767_ + (##pair? _expr190673190681_)) + (let ((_hd190678190697_ (let () (declare (not safe)) - (##car _expr190743190751_))) - (_tl190749190769_ + (##car _expr190673190681_))) + (_tl190679190699_ (let () (declare (not safe)) - (##cdr _expr190743190751_)))) + (##cdr _expr190673190681_)))) (if (let () (declare (not safe)) - (##eq? _hd190748190767_ 'and)) - (let ((_exprs190772_ - _tl190749190769_)) + (##eq? _hd190678190697_ 'and)) + (let ((_exprs190702_ + _tl190679190699_)) (declare (not safe)) - (_K190747190764_ _exprs190772_)) + (_K190677190694_ _exprs190702_)) (let () (declare (not safe)) - (_else190745190759_)))) + (_else190675190689_)))) (let () (declare (not safe)) - (_else190745190759_))))))) + (_else190675190689_))))))) (if (let () (declare (not safe)) - (##pair? _code190712190730_)) - (let ((_hd190717190777_ + (##pair? _code190642190660_)) + (let ((_hd190647190707_ (let () (declare (not safe)) - (##car _code190712190730_))) - (_tl190718190779_ + (##car _code190642190660_))) + (_tl190648190709_ (let () (declare (not safe)) - (##cdr _code190712190730_)))) + (##cdr _code190642190660_)))) (if (let () (declare (not safe)) - (##eq? _hd190717190777_ 'if)) + (##eq? _hd190647190707_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl190718190779_)) - (let ((_hd190719190782_ + (##pair? _tl190648190709_)) + (let ((_hd190649190712_ (let () (declare (not safe)) - (##car _tl190718190779_))) - (_tl190720190784_ + (##car _tl190648190709_))) + (_tl190650190714_ (let () (declare (not safe)) - (##cdr _tl190718190779_)))) - (let ((_test190787_ _hd190719190782_)) + (##cdr _tl190648190709_)))) + (let ((_test190717_ _hd190649190712_)) (if (let () (declare (not safe)) - (##pair? _tl190720190784_)) - (let ((_hd190721190789_ + (##pair? _tl190650190714_)) + (let ((_hd190651190719_ (let () (declare (not safe)) - (##car _tl190720190784_))) - (_tl190722190791_ + (##car _tl190650190714_))) + (_tl190652190721_ (let () (declare (not safe)) - (##cdr _tl190720190784_)))) - (let ((_expr190794_ - _hd190721190789_)) + (##cdr _tl190650190714_)))) + (let ((_expr190724_ + _hd190651190719_)) (if (let () (declare (not safe)) - (##pair? _tl190722190791_)) - (let ((_hd190723190796_ + (##pair? _tl190652190721_)) + (let ((_hd190653190726_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl190722190791_))) - (_tl190724190798_ - (let () (declare (not safe)) (##cdr _tl190722190791_)))) - (if (let () (declare (not safe)) (##pair? _hd190723190796_)) - (let ((_hd190725190801_ + (##car _tl190652190721_))) + (_tl190654190728_ + (let () (declare (not safe)) (##cdr _tl190652190721_)))) + (if (let () (declare (not safe)) (##pair? _hd190653190726_)) + (let ((_hd190655190731_ (let () (declare (not safe)) - (##car _hd190723190796_))) - (_tl190726190803_ + (##car _hd190653190726_))) + (_tl190656190733_ (let () (declare (not safe)) - (##cdr _hd190723190796_)))) + (##cdr _hd190653190726_)))) (if (let () (declare (not safe)) - (##eq? _hd190725190801_ 'quote)) + (##eq? _hd190655190731_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl190726190803_)) - (let ((_hd190727190806_ + (##pair? _tl190656190733_)) + (let ((_hd190657190736_ (let () (declare (not safe)) - (##car _tl190726190803_))) - (_tl190728190808_ + (##car _tl190656190733_))) + (_tl190658190738_ (let () (declare (not safe)) - (##cdr _tl190726190803_)))) + (##cdr _tl190656190733_)))) (if (let () (declare (not safe)) - (##eq? _hd190727190806_ '#f)) + (##eq? _hd190657190736_ '#f)) (if (let () (declare (not safe)) - (##null? _tl190728190808_)) + (##null? _tl190658190738_)) (if (let () (declare (not safe)) - (##null? _tl190724190798_)) + (##null? _tl190654190728_)) (let () (declare (not safe)) - (_K190716190774_ - _expr190794_ - _test190787_)) + (_K190646190704_ + _expr190724_ + _test190717_)) (let () (declare (not safe)) - (_else190714190738_))) + (_else190644190668_))) (let () (declare (not safe)) - (_else190714190738_))) + (_else190644190668_))) (let () (declare (not safe)) - (_else190714190738_)))) + (_else190644190668_)))) (let () (declare (not safe)) - (_else190714190738_))) - (let () (declare (not safe)) (_else190714190738_)))) - (let () (declare (not safe)) (_else190714190738_)))) - (let () (declare (not safe)) (_else190714190738_))))) + (_else190644190668_))) + (let () (declare (not safe)) (_else190644190668_)))) + (let () (declare (not safe)) (_else190644190668_)))) + (let () (declare (not safe)) (_else190644190668_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else190714190738_))))) + (_else190644190668_))))) (let () (declare (not safe)) - (_else190714190738_))) + (_else190644190668_))) (let () (declare (not safe)) - (_else190714190738_)))) + (_else190644190668_)))) (let () (declare (not safe)) - (_else190714190738_))))))) - (let* ((_g190628190649_ - (lambda (_g190629190646_) + (_else190644190668_))))))) + (let* ((_g190558190579_ + (lambda (_g190559190576_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g190629190646_)))) - (_g190627190708_ - (lambda (_g190629190652_) + _g190559190576_)))) + (_g190557190638_ + (lambda (_g190559190582_) (if (let () (declare (not safe)) - (gx#stx-pair? _g190629190652_)) - (let ((_e190635190654_ + (gx#stx-pair? _g190559190582_)) + (let ((_e190565190584_ (let () (declare (not safe)) - (gx#stx-e _g190629190652_)))) - (let ((_hd190634190657_ + (gx#stx-e _g190559190582_)))) + (let ((_hd190564190587_ (let () (declare (not safe)) - (##car _e190635190654_))) - (_tl190633190659_ + (##car _e190565190584_))) + (_tl190563190589_ (let () (declare (not safe)) - (##cdr _e190635190654_)))) + (##cdr _e190565190584_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190633190659_)) - (let ((_e190638190662_ + (gx#stx-pair? _tl190563190589_)) + (let ((_e190568190592_ (let () (declare (not safe)) - (gx#stx-e _tl190633190659_)))) - (let ((_hd190637190665_ + (gx#stx-e _tl190563190589_)))) + (let ((_hd190567190595_ (let () (declare (not safe)) - (##car _e190638190662_))) - (_tl190636190667_ + (##car _e190568190592_))) + (_tl190566190597_ (let () (declare (not safe)) - (##cdr _e190638190662_)))) + (##cdr _e190568190592_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190636190667_)) - (let ((_e190641190670_ + (gx#stx-pair? _tl190566190597_)) + (let ((_e190571190600_ (let () (declare (not safe)) (gx#stx-e - _tl190636190667_)))) - (let ((_hd190640190673_ + _tl190566190597_)))) + (let ((_hd190570190603_ (let () (declare (not safe)) - (##car _e190641190670_))) - (_tl190639190675_ + (##car _e190571190600_))) + (_tl190569190605_ (let () (declare (not safe)) - (##cdr _e190641190670_)))) + (##cdr _e190571190600_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl190639190675_)) - (let ((_e190644190678_ + _tl190569190605_)) + (let ((_e190574190608_ (let () (declare (not safe)) (gx#stx-e - _tl190639190675_)))) - (let ((_hd190643190681_ + _tl190569190605_)))) + (let ((_hd190573190611_ (let () (declare (not safe)) - (##car _e190644190678_))) - (_tl190642190683_ + (##car _e190574190608_))) + (_tl190572190613_ (let () (declare (not safe)) - (##cdr _e190644190678_)))) + (##cdr _e190574190608_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl190642190683_)) - ((lambda (_L190686_ + _tl190572190613_)) + ((lambda (_L190616_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L190687_ - _L190688_) + _L190617_ + _L190618_) (if (gxc#current-compile-boolean-context) - (let ((__tmp203553 - (let ((__tmp203554 - (let ((__tmp203559 + (let ((__tmp203483 + (let ((__tmp203484 + (let ((__tmp203489 (let () (declare (not safe)) - (gxc#compile-e__0 _L190688_))) - (__tmp203555 - (let ((__tmp203558 + (gxc#compile-e__0 _L190618_))) + (__tmp203485 + (let ((__tmp203488 (let () (declare (not safe)) (gxc#compile-e__0 - _L190687_))) - (__tmp203556 - (let ((__tmp203557 + _L190617_))) + (__tmp203486 + (let ((__tmp203487 (let () (declare (not safe)) (gxc#compile-e__0 - _L190686_)))) + _L190616_)))) (declare (not safe)) - (cons __tmp203557 + (cons __tmp203487 '())))) (declare (not safe)) - (cons __tmp203558 - __tmp203556)))) + (cons __tmp203488 + __tmp203486)))) (declare (not safe)) - (cons __tmp203559 __tmp203555)))) + (cons __tmp203489 __tmp203485)))) (declare (not safe)) - (cons 'if __tmp203554)))) + (cons 'if __tmp203484)))) (declare (not safe)) - (_simplify190626_ __tmp203553)) - (let ((__tmp203546 - (let ((__tmp203551 - (let ((__tmp203552 + (_simplify190556_ __tmp203483)) + (let ((__tmp203476 + (let ((__tmp203481 + (let ((__tmp203482 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L190688_))))) + _L190618_))))) (declare (not safe)) (call-with-parameters - __tmp203552 + __tmp203482 gxc#current-compile-boolean-context '#t))) - (__tmp203547 - (let ((__tmp203550 + (__tmp203477 + (let ((__tmp203480 (let () (declare (not safe)) - (gxc#compile-e__0 _L190687_))) - (__tmp203548 - (let ((__tmp203549 + (gxc#compile-e__0 _L190617_))) + (__tmp203478 + (let ((__tmp203479 (let () (declare (not safe)) (gxc#compile-e__0 - _L190686_)))) + _L190616_)))) (declare (not safe)) - (cons __tmp203549 '())))) + (cons __tmp203479 '())))) (declare (not safe)) - (cons __tmp203550 __tmp203548)))) + (cons __tmp203480 __tmp203478)))) (declare (not safe)) - (cons __tmp203551 __tmp203547)))) + (cons __tmp203481 __tmp203477)))) (declare (not safe)) - (cons 'if __tmp203546)))) - _hd190643190681_ - _hd190640190673_ - _hd190637190665_) + (cons 'if __tmp203476)))) + _hd190573190611_ + _hd190570190603_ + _hd190567190595_) (let () (declare (not safe)) - (_g190628190649_ _g190629190652_))))) + (_g190558190579_ _g190559190582_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g190628190649_ - _g190629190652_))))) + (_g190558190579_ + _g190559190582_))))) (let () (declare (not safe)) - (_g190628190649_ - _g190629190652_))))) + (_g190558190579_ + _g190559190582_))))) (let () (declare (not safe)) - (_g190628190649_ _g190629190652_))))) + (_g190558190579_ _g190559190582_))))) (let () (declare (not safe)) - (_g190628190649_ _g190629190652_)))))) + (_g190558190579_ _g190559190582_)))))) (declare (not safe)) - (_g190627190708_ _stx190624_))))) + (_g190557190638_ _stx190554_))))) (define gxc#generate-runtime-ref% - (lambda (_stx190573_) - (let* ((_g190575190588_ - (lambda (_g190576190585_) + (lambda (_stx190503_) + (let* ((_g190505190518_ + (lambda (_g190506190515_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g190576190585_)))) - (_g190574190621_ - (lambda (_g190576190591_) + _g190506190515_)))) + (_g190504190551_ + (lambda (_g190506190521_) (if (let () (declare (not safe)) - (gx#stx-pair? _g190576190591_)) - (let ((_e190580190593_ + (gx#stx-pair? _g190506190521_)) + (let ((_e190510190523_ (let () (declare (not safe)) - (gx#stx-e _g190576190591_)))) - (let ((_hd190579190596_ + (gx#stx-e _g190506190521_)))) + (let ((_hd190509190526_ (let () (declare (not safe)) - (##car _e190580190593_))) - (_tl190578190598_ + (##car _e190510190523_))) + (_tl190508190528_ (let () (declare (not safe)) - (##cdr _e190580190593_)))) + (##cdr _e190510190523_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190578190598_)) - (let ((_e190583190601_ + (gx#stx-pair? _tl190508190528_)) + (let ((_e190513190531_ (let () (declare (not safe)) - (gx#stx-e _tl190578190598_)))) - (let ((_hd190582190604_ + (gx#stx-e _tl190508190528_)))) + (let ((_hd190512190534_ (let () (declare (not safe)) - (##car _e190583190601_))) - (_tl190581190606_ + (##car _e190513190531_))) + (_tl190511190536_ (let () (declare (not safe)) - (##cdr _e190583190601_)))) + (##cdr _e190513190531_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl190581190606_)) - ((lambda (_L190609_) + (gx#stx-null? _tl190511190536_)) + ((lambda (_L190539_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L190609_))) - _hd190582190604_) + _L190539_))) + _hd190512190534_) (let () (declare (not safe)) - (_g190575190588_ _g190576190591_))))) + (_g190505190518_ _g190506190521_))))) (let () (declare (not safe)) - (_g190575190588_ _g190576190591_))))) + (_g190505190518_ _g190506190521_))))) (let () (declare (not safe)) - (_g190575190588_ _g190576190591_)))))) + (_g190505190518_ _g190506190521_)))))) (declare (not safe)) - (_g190574190621_ _stx190573_)))) + (_g190504190551_ _stx190503_)))) (define gxc#generate-runtime-setq% - (lambda (_stx190506_) - (let* ((_g190508190525_ - (lambda (_g190509190522_) + (lambda (_stx190436_) + (let* ((_g190438190455_ + (lambda (_g190439190452_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g190509190522_)))) - (_g190507190570_ - (lambda (_g190509190528_) + _g190439190452_)))) + (_g190437190500_ + (lambda (_g190439190458_) (if (let () (declare (not safe)) - (gx#stx-pair? _g190509190528_)) - (let ((_e190514190530_ + (gx#stx-pair? _g190439190458_)) + (let ((_e190444190460_ (let () (declare (not safe)) - (gx#stx-e _g190509190528_)))) - (let ((_hd190513190533_ + (gx#stx-e _g190439190458_)))) + (let ((_hd190443190463_ (let () (declare (not safe)) - (##car _e190514190530_))) - (_tl190512190535_ + (##car _e190444190460_))) + (_tl190442190465_ (let () (declare (not safe)) - (##cdr _e190514190530_)))) + (##cdr _e190444190460_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190512190535_)) - (let ((_e190517190538_ + (gx#stx-pair? _tl190442190465_)) + (let ((_e190447190468_ (let () (declare (not safe)) - (gx#stx-e _tl190512190535_)))) - (let ((_hd190516190541_ + (gx#stx-e _tl190442190465_)))) + (let ((_hd190446190471_ (let () (declare (not safe)) - (##car _e190517190538_))) - (_tl190515190543_ + (##car _e190447190468_))) + (_tl190445190473_ (let () (declare (not safe)) - (##cdr _e190517190538_)))) + (##cdr _e190447190468_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190515190543_)) - (let ((_e190520190546_ + (gx#stx-pair? _tl190445190473_)) + (let ((_e190450190476_ (let () (declare (not safe)) - (gx#stx-e _tl190515190543_)))) - (let ((_hd190519190549_ + (gx#stx-e _tl190445190473_)))) + (let ((_hd190449190479_ (let () (declare (not safe)) - (##car _e190520190546_))) - (_tl190518190551_ + (##car _e190450190476_))) + (_tl190448190481_ (let () (declare (not safe)) - (##cdr _e190520190546_)))) + (##cdr _e190450190476_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl190518190551_)) - ((lambda (_L190554_ _L190555_) - (let ((__tmp203560 - (let ((__tmp203563 + _tl190448190481_)) + ((lambda (_L190484_ _L190485_) + (let ((__tmp203490 + (let ((__tmp203493 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L190555_))) - (__tmp203561 - (let ((__tmp203562 + (gxc#generate-runtime-binding-id _L190485_))) + (__tmp203491 + (let ((__tmp203492 (let () (declare (not safe)) - (gxc#compile-e__0 _L190554_)))) + (gxc#compile-e__0 _L190484_)))) (declare (not safe)) - (cons __tmp203562 '())))) + (cons __tmp203492 '())))) (declare (not safe)) - (cons __tmp203563 __tmp203561)))) + (cons __tmp203493 __tmp203491)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp203560))) - _hd190519190549_ - _hd190516190541_) + (cons 'set! __tmp203490))) + _hd190449190479_ + _hd190446190471_) (let () (declare (not safe)) - (_g190508190525_ - _g190509190528_))))) + (_g190438190455_ + _g190439190458_))))) (let () (declare (not safe)) - (_g190508190525_ _g190509190528_))))) + (_g190438190455_ _g190439190458_))))) (let () (declare (not safe)) - (_g190508190525_ _g190509190528_))))) + (_g190438190455_ _g190439190458_))))) (let () (declare (not safe)) - (_g190508190525_ _g190509190528_)))))) + (_g190438190455_ _g190439190458_)))))) (declare (not safe)) - (_g190507190570_ _stx190506_)))) + (_g190437190500_ _stx190436_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_stx190318_) - (let* ((_g190320190337_ - (lambda (_g190321190334_) + (lambda (_stx190248_) + (let* ((_g190250190267_ + (lambda (_g190251190264_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g190321190334_)))) - (_g190319190503_ - (lambda (_g190321190340_) + _g190251190264_)))) + (_g190249190433_ + (lambda (_g190251190270_) (if (let () (declare (not safe)) - (gx#stx-pair? _g190321190340_)) - (let ((_e190326190342_ + (gx#stx-pair? _g190251190270_)) + (let ((_e190256190272_ (let () (declare (not safe)) - (gx#stx-e _g190321190340_)))) - (let ((_hd190325190345_ + (gx#stx-e _g190251190270_)))) + (let ((_hd190255190275_ (let () (declare (not safe)) - (##car _e190326190342_))) - (_tl190324190347_ + (##car _e190256190272_))) + (_tl190254190277_ (let () (declare (not safe)) - (##cdr _e190326190342_)))) + (##cdr _e190256190272_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190324190347_)) - (let ((_e190329190350_ + (gx#stx-pair? _tl190254190277_)) + (let ((_e190259190280_ (let () (declare (not safe)) - (gx#stx-e _tl190324190347_)))) - (let ((_hd190328190353_ + (gx#stx-e _tl190254190277_)))) + (let ((_hd190258190283_ (let () (declare (not safe)) - (##car _e190329190350_))) - (_tl190327190355_ + (##car _e190259190280_))) + (_tl190257190285_ (let () (declare (not safe)) - (##cdr _e190329190350_)))) + (##cdr _e190259190280_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190327190355_)) - (let ((_e190332190358_ + (gx#stx-pair? _tl190257190285_)) + (let ((_e190262190288_ (let () (declare (not safe)) - (gx#stx-e _tl190327190355_)))) - (let ((_hd190331190361_ + (gx#stx-e _tl190257190285_)))) + (let ((_hd190261190291_ (let () (declare (not safe)) - (##car _e190332190358_))) - (_tl190330190363_ + (##car _e190262190288_))) + (_tl190260190293_ (let () (declare (not safe)) - (##cdr _e190332190358_)))) + (##cdr _e190262190288_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl190330190363_)) - ((lambda (_L190366_ _L190367_) + _tl190260190293_)) + ((lambda (_L190296_ _L190297_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203579 - (let ((__tmp203582 + (let ((__tmp203509 + (let ((__tmp203512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L190366_))) - (__tmp203580 - (let ((__tmp203581 + (gxc#compile-e__0 _L190296_))) + (__tmp203510 + (let ((__tmp203511 (let () (declare (not safe)) - (gxc#compile-e__0 _L190367_)))) + (gxc#compile-e__0 _L190297_)))) (declare (not safe)) - (cons __tmp203581 '())))) + (cons __tmp203511 '())))) (declare (not safe)) - (cons __tmp203582 __tmp203580)))) + (cons __tmp203512 __tmp203510)))) (declare (not safe)) - (cons '##structure-instance-of? __tmp203579)) - (let _lp190382_ ((_rest190385_ - (let ((__tmp203578 + (cons '##structure-instance-of? __tmp203509)) + (let _lp190312_ ((_rest190315_ + (let ((__tmp203508 (let () (declare (not safe)) - (cons _L190366_ '())))) + (cons _L190296_ '())))) (declare (not safe)) - (cons _L190367_ __tmp203578))) - (_bind190387_ '()) - (_args190388_ '())) - (let* ((_rest190389190397_ _rest190385_) - (_else190391190405_ + (cons _L190297_ __tmp203508))) + (_bind190317_ '()) + (_args190318_ '())) + (let* ((_rest190319190327_ _rest190315_) + (_else190321190335_ (lambda () - (let ((__tmp203564 - (let ((__tmp203565 - (let ((__tmp203566 - (let ((__tmp203567 + (let ((__tmp203494 + (let ((__tmp203495 + (let ((__tmp203496 + (let ((__tmp203497 (let () (declare (not safe)) (cons '##structure-instance-of? - _args190388_)))) + _args190318_)))) (declare (not safe)) - (cons __tmp203567 '())))) + (cons __tmp203497 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp203566)))) + __tmp203496)))) (declare (not safe)) - (cons _bind190387_ __tmp203565)))) + (cons _bind190317_ __tmp203495)))) (declare (not safe)) - (cons 'let __tmp203564)))) - (_K190393190491_ - (lambda (_rest190408_ _e190409_) - (let* ((___stx202761202762_ _e190409_) - (_g190414190432_ + (cons 'let __tmp203494)))) + (_K190323190421_ + (lambda (_rest190338_ _e190339_) + (let* ((___stx202691202692_ _e190339_) + (_g190344190362_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202761202762_))))) - (let ((___kont202763202764_ + ___stx202691202692_))))) + (let ((___kont202693202694_ (lambda () - (let ((__tmp203568 - (let ((__tmp203569 + (let ((__tmp203498 + (let ((__tmp203499 (let () (declare (not safe)) (gxc#compile-e__0 - _e190409_)))) + _e190339_)))) (declare (not safe)) - (cons __tmp203569 - _args190388_)))) + (cons __tmp203499 + _args190318_)))) (declare (not safe)) - (_lp190382_ - _rest190408_ - _bind190387_ - __tmp203568)))) - (___kont202765202766_ + (_lp190312_ + _rest190338_ + _bind190317_ + __tmp203498)))) + (___kont202695202696_ (lambda () - (let ((__tmp203570 - (let ((__tmp203571 + (let ((__tmp203500 + (let ((__tmp203501 (let () (declare (not safe)) (gxc#compile-e__0 - _e190409_)))) + _e190339_)))) (declare (not safe)) - (cons __tmp203571 - _args190388_)))) + (cons __tmp203501 + _args190318_)))) (declare (not safe)) - (_lp190382_ - _rest190408_ - _bind190387_ - __tmp203570)))) - (___kont202767202768_ + (_lp190312_ + _rest190338_ + _bind190317_ + __tmp203500)))) + (___kont202697202698_ (lambda () - (let ((_tmp190439_ - (let ((__tmp203572 + (let ((_tmp190369_ + (let ((__tmp203502 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp203572)))) - (let ((__tmp203574 - (let ((__tmp203575 - (let ((__tmp203576 - (let ((__tmp203577 + (make-symbol__0 __tmp203502)))) + (let ((__tmp203504 + (let ((__tmp203505 + (let ((__tmp203506 + (let ((__tmp203507 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e190409_)))) + (gxc#compile-e__0 _e190339_)))) (declare (not safe)) - (cons __tmp203577 '())))) + (cons __tmp203507 '())))) (declare (not safe)) - (cons _tmp190439_ __tmp203576)))) + (cons _tmp190369_ __tmp203506)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203575 - _bind190387_))) - (__tmp203573 + (cons __tmp203505 + _bind190317_))) + (__tmp203503 (let () (declare (not safe)) - (cons _tmp190439_ - _args190388_)))) + (cons _tmp190369_ + _args190318_)))) (declare (not safe)) - (_lp190382_ - _rest190408_ - __tmp203574 - __tmp203573)))))) + (_lp190312_ + _rest190338_ + __tmp203504 + __tmp203503)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202761202762_)) - (let ((_e190418190470_ + (gx#stx-pair? ___stx202691202692_)) + (let ((_e190348190400_ (let () (declare (not safe)) - (gx#stx-e ___stx202761202762_)))) - (let ((_tl190416190475_ + (gx#stx-e ___stx202691202692_)))) + (let ((_tl190346190405_ (let () (declare (not safe)) - (##cdr _e190418190470_))) - (_hd190417190473_ + (##cdr _e190348190400_))) + (_hd190347190403_ (let () (declare (not safe)) - (##car _e190418190470_)))) + (##car _e190348190400_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd190417190473_)) + (gx#identifier? _hd190347190403_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd190417190473_)) + _hd190347190403_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl190416190475_)) - (let ((_e190421190478_ + _tl190346190405_)) + (let ((_e190351190408_ (let () (declare (not safe)) (gx#stx-e - _tl190416190475_)))) - (let ((_tl190419190483_ + _tl190346190405_)))) + (let ((_tl190349190413_ (let () (declare (not safe)) - (##cdr _e190421190478_))) - (_hd190420190481_ + (##cdr _e190351190408_))) + (_hd190350190411_ (let () (declare (not safe)) - (##car _e190421190478_)))) + (##car _e190351190408_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl190419190483_)) - (___kont202763202764_) - (___kont202767202768_)))) - (___kont202767202768_)) + _tl190349190413_)) + (___kont202693202694_) + (___kont202697202698_)))) + (___kont202697202698_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd190417190473_)) + _hd190347190403_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl190416190475_)) - (let ((_e190427190455_ + _tl190346190405_)) + (let ((_e190357190385_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl190416190475_)))) - (let ((_tl190425190460_ - (let () (declare (not safe)) (##cdr _e190427190455_))) - (_hd190426190458_ - (let () (declare (not safe)) (##car _e190427190455_)))) + (gx#stx-e _tl190346190405_)))) + (let ((_tl190355190390_ + (let () (declare (not safe)) (##cdr _e190357190385_))) + (_hd190356190388_ + (let () (declare (not safe)) (##car _e190357190385_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl190425190460_)) - (___kont202765202766_) - (___kont202767202768_)))) - (___kont202767202768_)) + (gx#stx-null? _tl190355190390_)) + (___kont202695202696_) + (___kont202697202698_)))) + (___kont202697202698_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202767202768_))) - (___kont202767202768_)))) - (___kont202767202768_))))))) + (___kont202697202698_))) + (___kont202697202698_)))) + (___kont202697202698_))))))) (if (let () (declare (not safe)) - (##pair? _rest190389190397_)) - (let ((_hd190394190494_ + (##pair? _rest190319190327_)) + (let ((_hd190324190424_ (let () (declare (not safe)) - (##car _rest190389190397_))) - (_tl190395190496_ + (##car _rest190319190327_))) + (_tl190325190426_ (let () (declare (not safe)) - (##cdr _rest190389190397_)))) - (let* ((_e190499_ _hd190394190494_) - (_rest190501_ _tl190395190496_)) + (##cdr _rest190319190327_)))) + (let* ((_e190429_ _hd190324190424_) + (_rest190431_ _tl190325190426_)) (declare (not safe)) - (_K190393190491_ _rest190501_ _e190499_))) - (let () (declare (not safe)) (_else190391190405_))))))) + (_K190323190421_ _rest190431_ _e190429_))) + (let () (declare (not safe)) (_else190321190335_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd190331190361_ - _hd190328190353_) + _hd190261190291_ + _hd190258190283_) (let () (declare (not safe)) - (_g190320190337_ - _g190321190340_))))) + (_g190250190267_ + _g190251190270_))))) (let () (declare (not safe)) - (_g190320190337_ _g190321190340_))))) + (_g190250190267_ _g190251190270_))))) (let () (declare (not safe)) - (_g190320190337_ _g190321190340_))))) + (_g190250190267_ _g190251190270_))))) (let () (declare (not safe)) - (_g190320190337_ _g190321190340_)))))) + (_g190250190267_ _g190251190270_)))))) (declare (not safe)) - (_g190319190503_ _stx190318_)))) + (_g190249190433_ _stx190248_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_stx190130_) - (let* ((_g190132190149_ - (lambda (_g190133190146_) + (lambda (_stx190060_) + (let* ((_g190062190079_ + (lambda (_g190063190076_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g190133190146_)))) - (_g190131190315_ - (lambda (_g190133190152_) + _g190063190076_)))) + (_g190061190245_ + (lambda (_g190063190082_) (if (let () (declare (not safe)) - (gx#stx-pair? _g190133190152_)) - (let ((_e190138190154_ + (gx#stx-pair? _g190063190082_)) + (let ((_e190068190084_ (let () (declare (not safe)) - (gx#stx-e _g190133190152_)))) - (let ((_hd190137190157_ + (gx#stx-e _g190063190082_)))) + (let ((_hd190067190087_ (let () (declare (not safe)) - (##car _e190138190154_))) - (_tl190136190159_ + (##car _e190068190084_))) + (_tl190066190089_ (let () (declare (not safe)) - (##cdr _e190138190154_)))) + (##cdr _e190068190084_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190136190159_)) - (let ((_e190141190162_ + (gx#stx-pair? _tl190066190089_)) + (let ((_e190071190092_ (let () (declare (not safe)) - (gx#stx-e _tl190136190159_)))) - (let ((_hd190140190165_ + (gx#stx-e _tl190066190089_)))) + (let ((_hd190070190095_ (let () (declare (not safe)) - (##car _e190141190162_))) - (_tl190139190167_ + (##car _e190071190092_))) + (_tl190069190097_ (let () (declare (not safe)) - (##cdr _e190141190162_)))) + (##cdr _e190071190092_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190139190167_)) - (let ((_e190144190170_ + (gx#stx-pair? _tl190069190097_)) + (let ((_e190074190100_ (let () (declare (not safe)) - (gx#stx-e _tl190139190167_)))) - (let ((_hd190143190173_ + (gx#stx-e _tl190069190097_)))) + (let ((_hd190073190103_ (let () (declare (not safe)) - (##car _e190144190170_))) - (_tl190142190175_ + (##car _e190074190100_))) + (_tl190072190105_ (let () (declare (not safe)) - (##cdr _e190144190170_)))) + (##cdr _e190074190100_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl190142190175_)) - ((lambda (_L190178_ _L190179_) + _tl190072190105_)) + ((lambda (_L190108_ _L190109_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203598 - (let ((__tmp203601 + (let ((__tmp203528 + (let ((__tmp203531 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L190178_))) - (__tmp203599 - (let ((__tmp203600 + (gxc#compile-e__0 _L190108_))) + (__tmp203529 + (let ((__tmp203530 (let () (declare (not safe)) - (gxc#compile-e__0 _L190179_)))) + (gxc#compile-e__0 _L190109_)))) (declare (not safe)) - (cons __tmp203600 '())))) + (cons __tmp203530 '())))) (declare (not safe)) - (cons __tmp203601 __tmp203599)))) + (cons __tmp203531 __tmp203529)))) (declare (not safe)) - (cons '##structure-direct-instance-of? __tmp203598)) - (let _lp190194_ ((_rest190197_ - (let ((__tmp203597 + (cons '##structure-direct-instance-of? __tmp203528)) + (let _lp190124_ ((_rest190127_ + (let ((__tmp203527 (let () (declare (not safe)) - (cons _L190178_ '())))) + (cons _L190108_ '())))) (declare (not safe)) - (cons _L190179_ __tmp203597))) - (_bind190199_ '()) - (_args190200_ '())) - (let* ((_rest190201190209_ _rest190197_) - (_else190203190217_ + (cons _L190109_ __tmp203527))) + (_bind190129_ '()) + (_args190130_ '())) + (let* ((_rest190131190139_ _rest190127_) + (_else190133190147_ (lambda () - (let ((__tmp203583 - (let ((__tmp203584 - (let ((__tmp203585 - (let ((__tmp203586 + (let ((__tmp203513 + (let ((__tmp203514 + (let ((__tmp203515 + (let ((__tmp203516 (let () (declare (not safe)) (cons '##structure-direct-instance-of? - _args190200_)))) + _args190130_)))) (declare (not safe)) - (cons __tmp203586 '())))) + (cons __tmp203516 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp203585)))) + __tmp203515)))) (declare (not safe)) - (cons _bind190199_ __tmp203584)))) + (cons _bind190129_ __tmp203514)))) (declare (not safe)) - (cons 'let __tmp203583)))) - (_K190205190303_ - (lambda (_rest190220_ _e190221_) - (let* ((___stx202807202808_ _e190221_) - (_g190226190244_ + (cons 'let __tmp203513)))) + (_K190135190233_ + (lambda (_rest190150_ _e190151_) + (let* ((___stx202737202738_ _e190151_) + (_g190156190174_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202807202808_))))) - (let ((___kont202809202810_ + ___stx202737202738_))))) + (let ((___kont202739202740_ (lambda () - (let ((__tmp203587 - (let ((__tmp203588 + (let ((__tmp203517 + (let ((__tmp203518 (let () (declare (not safe)) (gxc#compile-e__0 - _e190221_)))) + _e190151_)))) (declare (not safe)) - (cons __tmp203588 - _args190200_)))) + (cons __tmp203518 + _args190130_)))) (declare (not safe)) - (_lp190194_ - _rest190220_ - _bind190199_ - __tmp203587)))) - (___kont202811202812_ + (_lp190124_ + _rest190150_ + _bind190129_ + __tmp203517)))) + (___kont202741202742_ (lambda () - (let ((__tmp203589 - (let ((__tmp203590 + (let ((__tmp203519 + (let ((__tmp203520 (let () (declare (not safe)) (gxc#compile-e__0 - _e190221_)))) + _e190151_)))) (declare (not safe)) - (cons __tmp203590 - _args190200_)))) + (cons __tmp203520 + _args190130_)))) (declare (not safe)) - (_lp190194_ - _rest190220_ - _bind190199_ - __tmp203589)))) - (___kont202813202814_ + (_lp190124_ + _rest190150_ + _bind190129_ + __tmp203519)))) + (___kont202743202744_ (lambda () - (let ((_tmp190251_ - (let ((__tmp203591 + (let ((_tmp190181_ + (let ((__tmp203521 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp203591)))) - (let ((__tmp203593 - (let ((__tmp203594 - (let ((__tmp203595 - (let ((__tmp203596 + (make-symbol__0 __tmp203521)))) + (let ((__tmp203523 + (let ((__tmp203524 + (let ((__tmp203525 + (let ((__tmp203526 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e190221_)))) + (gxc#compile-e__0 _e190151_)))) (declare (not safe)) - (cons __tmp203596 '())))) + (cons __tmp203526 '())))) (declare (not safe)) - (cons _tmp190251_ __tmp203595)))) + (cons _tmp190181_ __tmp203525)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203594 - _bind190199_))) - (__tmp203592 + (cons __tmp203524 + _bind190129_))) + (__tmp203522 (let () (declare (not safe)) - (cons _tmp190251_ - _args190200_)))) + (cons _tmp190181_ + _args190130_)))) (declare (not safe)) - (_lp190194_ - _rest190220_ - __tmp203593 - __tmp203592)))))) + (_lp190124_ + _rest190150_ + __tmp203523 + __tmp203522)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202807202808_)) - (let ((_e190230190282_ + (gx#stx-pair? ___stx202737202738_)) + (let ((_e190160190212_ (let () (declare (not safe)) - (gx#stx-e ___stx202807202808_)))) - (let ((_tl190228190287_ + (gx#stx-e ___stx202737202738_)))) + (let ((_tl190158190217_ (let () (declare (not safe)) - (##cdr _e190230190282_))) - (_hd190229190285_ + (##cdr _e190160190212_))) + (_hd190159190215_ (let () (declare (not safe)) - (##car _e190230190282_)))) + (##car _e190160190212_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd190229190285_)) + (gx#identifier? _hd190159190215_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd190229190285_)) + _hd190159190215_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl190228190287_)) - (let ((_e190233190290_ + _tl190158190217_)) + (let ((_e190163190220_ (let () (declare (not safe)) (gx#stx-e - _tl190228190287_)))) - (let ((_tl190231190295_ + _tl190158190217_)))) + (let ((_tl190161190225_ (let () (declare (not safe)) - (##cdr _e190233190290_))) - (_hd190232190293_ + (##cdr _e190163190220_))) + (_hd190162190223_ (let () (declare (not safe)) - (##car _e190233190290_)))) + (##car _e190163190220_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl190231190295_)) - (___kont202809202810_) - (___kont202813202814_)))) - (___kont202813202814_)) + _tl190161190225_)) + (___kont202739202740_) + (___kont202743202744_)))) + (___kont202743202744_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd190229190285_)) + _hd190159190215_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl190228190287_)) - (let ((_e190239190267_ + _tl190158190217_)) + (let ((_e190169190197_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl190228190287_)))) - (let ((_tl190237190272_ - (let () (declare (not safe)) (##cdr _e190239190267_))) - (_hd190238190270_ - (let () (declare (not safe)) (##car _e190239190267_)))) + (gx#stx-e _tl190158190217_)))) + (let ((_tl190167190202_ + (let () (declare (not safe)) (##cdr _e190169190197_))) + (_hd190168190200_ + (let () (declare (not safe)) (##car _e190169190197_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl190237190272_)) - (___kont202811202812_) - (___kont202813202814_)))) - (___kont202813202814_)) + (gx#stx-null? _tl190167190202_)) + (___kont202741202742_) + (___kont202743202744_)))) + (___kont202743202744_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202813202814_))) - (___kont202813202814_)))) - (___kont202813202814_))))))) + (___kont202743202744_))) + (___kont202743202744_)))) + (___kont202743202744_))))))) (if (let () (declare (not safe)) - (##pair? _rest190201190209_)) - (let ((_hd190206190306_ + (##pair? _rest190131190139_)) + (let ((_hd190136190236_ (let () (declare (not safe)) - (##car _rest190201190209_))) - (_tl190207190308_ + (##car _rest190131190139_))) + (_tl190137190238_ (let () (declare (not safe)) - (##cdr _rest190201190209_)))) - (let* ((_e190311_ _hd190206190306_) - (_rest190313_ _tl190207190308_)) + (##cdr _rest190131190139_)))) + (let* ((_e190241_ _hd190136190236_) + (_rest190243_ _tl190137190238_)) (declare (not safe)) - (_K190205190303_ _rest190313_ _e190311_))) - (let () (declare (not safe)) (_else190203190217_))))))) + (_K190135190233_ _rest190243_ _e190241_))) + (let () (declare (not safe)) (_else190133190147_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd190143190173_ - _hd190140190165_) + _hd190073190103_ + _hd190070190095_) (let () (declare (not safe)) - (_g190132190149_ - _g190133190152_))))) + (_g190062190079_ + _g190063190082_))))) (let () (declare (not safe)) - (_g190132190149_ _g190133190152_))))) + (_g190062190079_ _g190063190082_))))) (let () (declare (not safe)) - (_g190132190149_ _g190133190152_))))) + (_g190062190079_ _g190063190082_))))) (let () (declare (not safe)) - (_g190132190149_ _g190133190152_)))))) + (_g190062190079_ _g190063190082_)))))) (declare (not safe)) - (_g190131190315_ _stx190130_)))) + (_g190061190245_ _stx190060_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_stx190047_) - (let* ((_g190049190070_ - (lambda (_g190050190067_) + (lambda (_stx189977_) + (let* ((_g189979190000_ + (lambda (_g189980189997_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g190050190067_)))) - (_g190048190127_ - (lambda (_g190050190073_) + _g189980189997_)))) + (_g189978190057_ + (lambda (_g189980190003_) (if (let () (declare (not safe)) - (gx#stx-pair? _g190050190073_)) - (let ((_e190056190075_ + (gx#stx-pair? _g189980190003_)) + (let ((_e189986190005_ (let () (declare (not safe)) - (gx#stx-e _g190050190073_)))) - (let ((_hd190055190078_ + (gx#stx-e _g189980190003_)))) + (let ((_hd189985190008_ (let () (declare (not safe)) - (##car _e190056190075_))) - (_tl190054190080_ + (##car _e189986190005_))) + (_tl189984190010_ (let () (declare (not safe)) - (##cdr _e190056190075_)))) + (##cdr _e189986190005_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190054190080_)) - (let ((_e190059190083_ + (gx#stx-pair? _tl189984190010_)) + (let ((_e189989190013_ (let () (declare (not safe)) - (gx#stx-e _tl190054190080_)))) - (let ((_hd190058190086_ + (gx#stx-e _tl189984190010_)))) + (let ((_hd189988190016_ (let () (declare (not safe)) - (##car _e190059190083_))) - (_tl190057190088_ + (##car _e189989190013_))) + (_tl189987190018_ (let () (declare (not safe)) - (##cdr _e190059190083_)))) + (##cdr _e189989190013_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190057190088_)) - (let ((_e190062190091_ + (gx#stx-pair? _tl189987190018_)) + (let ((_e189992190021_ (let () (declare (not safe)) - (gx#stx-e _tl190057190088_)))) - (let ((_hd190061190094_ + (gx#stx-e _tl189987190018_)))) + (let ((_hd189991190024_ (let () (declare (not safe)) - (##car _e190062190091_))) - (_tl190060190096_ + (##car _e189992190021_))) + (_tl189990190026_ (let () (declare (not safe)) - (##cdr _e190062190091_)))) + (##cdr _e189992190021_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl190060190096_)) - (let ((_e190065190099_ + _tl189990190026_)) + (let ((_e189995190029_ (let () (declare (not safe)) (gx#stx-e - _tl190060190096_)))) - (let ((_hd190064190102_ + _tl189990190026_)))) + (let ((_hd189994190032_ (let () (declare (not safe)) - (##car _e190065190099_))) - (_tl190063190104_ + (##car _e189995190029_))) + (_tl189993190034_ (let () (declare (not safe)) - (##cdr _e190065190099_)))) + (##cdr _e189995190029_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl190063190104_)) - ((lambda (_L190107_ + _tl189993190034_)) + ((lambda (_L190037_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L190108_ - _L190109_) - (let ((__tmp203602 - (let ((__tmp203608 + _L190038_ + _L190039_) + (let ((__tmp203532 + (let ((__tmp203538 (let () (declare (not safe)) - (gxc#compile-e__0 _L190107_))) - (__tmp203603 - (let ((__tmp203607 + (gxc#compile-e__0 _L190037_))) + (__tmp203533 + (let ((__tmp203537 (let () (declare (not safe)) - (gxc#compile-e__0 _L190108_))) - (__tmp203604 - (let ((__tmp203606 + (gxc#compile-e__0 _L190038_))) + (__tmp203534 + (let ((__tmp203536 (let () (declare (not safe)) - (gxc#compile-e__0 _L190109_))) - (__tmp203605 + (gxc#compile-e__0 _L190039_))) + (__tmp203535 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp203606 __tmp203605)))) + (cons __tmp203536 __tmp203535)))) (declare (not safe)) - (cons __tmp203607 __tmp203604)))) + (cons __tmp203537 __tmp203534)))) (declare (not safe)) - (cons __tmp203608 __tmp203603)))) + (cons __tmp203538 __tmp203533)))) (declare (not safe)) - (cons '##structure-ref __tmp203602))) - _hd190064190102_ - _hd190061190094_ - _hd190058190086_) + (cons '##structure-ref __tmp203532))) + _hd189994190032_ + _hd189991190024_ + _hd189988190016_) (let () (declare (not safe)) - (_g190049190070_ _g190050190073_))))) + (_g189979190000_ _g189980190003_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g190049190070_ - _g190050190073_))))) + (_g189979190000_ + _g189980190003_))))) (let () (declare (not safe)) - (_g190049190070_ _g190050190073_))))) + (_g189979190000_ _g189980190003_))))) (let () (declare (not safe)) - (_g190049190070_ _g190050190073_))))) + (_g189979190000_ _g189980190003_))))) (let () (declare (not safe)) - (_g190049190070_ _g190050190073_)))))) + (_g189979190000_ _g189980190003_)))))) (declare (not safe)) - (_g190048190127_ _stx190047_)))) + (_g189978190057_ _stx189977_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_stx189948_) - (let* ((_g189950189975_ - (lambda (_g189951189972_) + (lambda (_stx189878_) + (let* ((_g189880189905_ + (lambda (_g189881189902_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g189951189972_)))) - (_g189949190044_ - (lambda (_g189951189978_) + _g189881189902_)))) + (_g189879189974_ + (lambda (_g189881189908_) (if (let () (declare (not safe)) - (gx#stx-pair? _g189951189978_)) - (let ((_e189958189980_ + (gx#stx-pair? _g189881189908_)) + (let ((_e189888189910_ (let () (declare (not safe)) - (gx#stx-e _g189951189978_)))) - (let ((_hd189957189983_ + (gx#stx-e _g189881189908_)))) + (let ((_hd189887189913_ (let () (declare (not safe)) - (##car _e189958189980_))) - (_tl189956189985_ + (##car _e189888189910_))) + (_tl189886189915_ (let () (declare (not safe)) - (##cdr _e189958189980_)))) + (##cdr _e189888189910_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189956189985_)) - (let ((_e189961189988_ + (gx#stx-pair? _tl189886189915_)) + (let ((_e189891189918_ (let () (declare (not safe)) - (gx#stx-e _tl189956189985_)))) - (let ((_hd189960189991_ + (gx#stx-e _tl189886189915_)))) + (let ((_hd189890189921_ (let () (declare (not safe)) - (##car _e189961189988_))) - (_tl189959189993_ + (##car _e189891189918_))) + (_tl189889189923_ (let () (declare (not safe)) - (##cdr _e189961189988_)))) + (##cdr _e189891189918_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189959189993_)) - (let ((_e189964189996_ + (gx#stx-pair? _tl189889189923_)) + (let ((_e189894189926_ (let () (declare (not safe)) - (gx#stx-e _tl189959189993_)))) - (let ((_hd189963189999_ + (gx#stx-e _tl189889189923_)))) + (let ((_hd189893189929_ (let () (declare (not safe)) - (##car _e189964189996_))) - (_tl189962190001_ + (##car _e189894189926_))) + (_tl189892189931_ (let () (declare (not safe)) - (##cdr _e189964189996_)))) + (##cdr _e189894189926_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl189962190001_)) - (let ((_e189967190004_ + _tl189892189931_)) + (let ((_e189897189934_ (let () (declare (not safe)) (gx#stx-e - _tl189962190001_)))) - (let ((_hd189966190007_ + _tl189892189931_)))) + (let ((_hd189896189937_ (let () (declare (not safe)) - (##car _e189967190004_))) - (_tl189965190009_ + (##car _e189897189934_))) + (_tl189895189939_ (let () (declare (not safe)) - (##cdr _e189967190004_)))) + (##cdr _e189897189934_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl189965190009_)) - (let ((_e189970190012_ + _tl189895189939_)) + (let ((_e189900189942_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl189965190009_)))) - (let ((_hd189969190015_ - (let () (declare (not safe)) (##car _e189970190012_))) - (_tl189968190017_ + (gx#stx-e _tl189895189939_)))) + (let ((_hd189899189945_ + (let () (declare (not safe)) (##car _e189900189942_))) + (_tl189898189947_ (let () (declare (not safe)) - (##cdr _e189970190012_)))) + (##cdr _e189900189942_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl189968190017_)) - ((lambda (_L190020_ _L190021_ _L190022_ _L190023_) - (let ((__tmp203609 - (let ((__tmp203617 + (gx#stx-null? _tl189898189947_)) + ((lambda (_L189950_ _L189951_ _L189952_ _L189953_) + (let ((__tmp203539 + (let ((__tmp203547 (let () (declare (not safe)) - (gxc#compile-e__0 _L190021_))) - (__tmp203610 - (let ((__tmp203616 + (gxc#compile-e__0 _L189951_))) + (__tmp203540 + (let ((__tmp203546 (let () (declare (not safe)) (gxc#compile-e__0 - _L190020_))) - (__tmp203611 - (let ((__tmp203615 + _L189950_))) + (__tmp203541 + (let ((__tmp203545 (let () (declare (not safe)) (gxc#compile-e__0 - _L190022_))) - (__tmp203612 - (let ((__tmp203614 + _L189952_))) + (__tmp203542 + (let ((__tmp203544 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L190023_))) - (__tmp203613 + (gxc#compile-e__0 _L189953_))) + (__tmp203543 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp203614 __tmp203613)))) + (cons __tmp203544 __tmp203543)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203615 - __tmp203612)))) + (cons __tmp203545 + __tmp203542)))) (declare (not safe)) - (cons __tmp203616 __tmp203611)))) + (cons __tmp203546 __tmp203541)))) (declare (not safe)) - (cons __tmp203617 __tmp203610)))) + (cons __tmp203547 __tmp203540)))) (declare (not safe)) - (cons '##structure-set! __tmp203609))) - _hd189969190015_ - _hd189966190007_ - _hd189963189999_ - _hd189960189991_) + (cons '##structure-set! __tmp203539))) + _hd189899189945_ + _hd189896189937_ + _hd189893189929_ + _hd189890189921_) (let () (declare (not safe)) - (_g189950189975_ _g189951189978_))))) + (_g189880189905_ _g189881189908_))))) (let () (declare (not safe)) - (_g189950189975_ _g189951189978_))))) + (_g189880189905_ _g189881189908_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g189950189975_ - _g189951189978_))))) + (_g189880189905_ + _g189881189908_))))) (let () (declare (not safe)) - (_g189950189975_ _g189951189978_))))) + (_g189880189905_ _g189881189908_))))) (let () (declare (not safe)) - (_g189950189975_ _g189951189978_))))) + (_g189880189905_ _g189881189908_))))) (let () (declare (not safe)) - (_g189950189975_ _g189951189978_)))))) + (_g189880189905_ _g189881189908_)))))) (declare (not safe)) - (_g189949190044_ _stx189948_)))) + (_g189879189974_ _stx189878_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_stx189865_) - (let* ((_g189867189888_ - (lambda (_g189868189885_) + (lambda (_stx189795_) + (let* ((_g189797189818_ + (lambda (_g189798189815_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g189868189885_)))) - (_g189866189945_ - (lambda (_g189868189891_) + _g189798189815_)))) + (_g189796189875_ + (lambda (_g189798189821_) (if (let () (declare (not safe)) - (gx#stx-pair? _g189868189891_)) - (let ((_e189874189893_ + (gx#stx-pair? _g189798189821_)) + (let ((_e189804189823_ (let () (declare (not safe)) - (gx#stx-e _g189868189891_)))) - (let ((_hd189873189896_ + (gx#stx-e _g189798189821_)))) + (let ((_hd189803189826_ (let () (declare (not safe)) - (##car _e189874189893_))) - (_tl189872189898_ + (##car _e189804189823_))) + (_tl189802189828_ (let () (declare (not safe)) - (##cdr _e189874189893_)))) + (##cdr _e189804189823_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189872189898_)) - (let ((_e189877189901_ + (gx#stx-pair? _tl189802189828_)) + (let ((_e189807189831_ (let () (declare (not safe)) - (gx#stx-e _tl189872189898_)))) - (let ((_hd189876189904_ + (gx#stx-e _tl189802189828_)))) + (let ((_hd189806189834_ (let () (declare (not safe)) - (##car _e189877189901_))) - (_tl189875189906_ + (##car _e189807189831_))) + (_tl189805189836_ (let () (declare (not safe)) - (##cdr _e189877189901_)))) + (##cdr _e189807189831_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189875189906_)) - (let ((_e189880189909_ + (gx#stx-pair? _tl189805189836_)) + (let ((_e189810189839_ (let () (declare (not safe)) - (gx#stx-e _tl189875189906_)))) - (let ((_hd189879189912_ + (gx#stx-e _tl189805189836_)))) + (let ((_hd189809189842_ (let () (declare (not safe)) - (##car _e189880189909_))) - (_tl189878189914_ + (##car _e189810189839_))) + (_tl189808189844_ (let () (declare (not safe)) - (##cdr _e189880189909_)))) + (##cdr _e189810189839_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl189878189914_)) - (let ((_e189883189917_ + _tl189808189844_)) + (let ((_e189813189847_ (let () (declare (not safe)) (gx#stx-e - _tl189878189914_)))) - (let ((_hd189882189920_ + _tl189808189844_)))) + (let ((_hd189812189850_ (let () (declare (not safe)) - (##car _e189883189917_))) - (_tl189881189922_ + (##car _e189813189847_))) + (_tl189811189852_ (let () (declare (not safe)) - (##cdr _e189883189917_)))) + (##cdr _e189813189847_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl189881189922_)) - ((lambda (_L189925_ + _tl189811189852_)) + ((lambda (_L189855_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L189926_ - _L189927_) - (let ((__tmp203618 - (let ((__tmp203624 + _L189856_ + _L189857_) + (let ((__tmp203548 + (let ((__tmp203554 (let () (declare (not safe)) - (gxc#compile-e__0 _L189925_))) - (__tmp203619 - (let ((__tmp203623 + (gxc#compile-e__0 _L189855_))) + (__tmp203549 + (let ((__tmp203553 (let () (declare (not safe)) - (gxc#compile-e__0 _L189926_))) - (__tmp203620 - (let ((__tmp203622 + (gxc#compile-e__0 _L189856_))) + (__tmp203550 + (let ((__tmp203552 (let () (declare (not safe)) - (gxc#compile-e__0 _L189927_))) - (__tmp203621 + (gxc#compile-e__0 _L189857_))) + (__tmp203551 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp203622 __tmp203621)))) + (cons __tmp203552 __tmp203551)))) (declare (not safe)) - (cons __tmp203623 __tmp203620)))) + (cons __tmp203553 __tmp203550)))) (declare (not safe)) - (cons __tmp203624 __tmp203619)))) + (cons __tmp203554 __tmp203549)))) (declare (not safe)) - (cons '##direct-structure-ref __tmp203618))) - _hd189882189920_ - _hd189879189912_ - _hd189876189904_) + (cons '##direct-structure-ref __tmp203548))) + _hd189812189850_ + _hd189809189842_ + _hd189806189834_) (let () (declare (not safe)) - (_g189867189888_ _g189868189891_))))) + (_g189797189818_ _g189798189821_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g189867189888_ - _g189868189891_))))) + (_g189797189818_ + _g189798189821_))))) (let () (declare (not safe)) - (_g189867189888_ _g189868189891_))))) + (_g189797189818_ _g189798189821_))))) (let () (declare (not safe)) - (_g189867189888_ _g189868189891_))))) + (_g189797189818_ _g189798189821_))))) (let () (declare (not safe)) - (_g189867189888_ _g189868189891_)))))) + (_g189797189818_ _g189798189821_)))))) (declare (not safe)) - (_g189866189945_ _stx189865_)))) + (_g189796189875_ _stx189795_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_stx189766_) - (let* ((_g189768189793_ - (lambda (_g189769189790_) + (lambda (_stx189696_) + (let* ((_g189698189723_ + (lambda (_g189699189720_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g189769189790_)))) - (_g189767189862_ - (lambda (_g189769189796_) + _g189699189720_)))) + (_g189697189792_ + (lambda (_g189699189726_) (if (let () (declare (not safe)) - (gx#stx-pair? _g189769189796_)) - (let ((_e189776189798_ + (gx#stx-pair? _g189699189726_)) + (let ((_e189706189728_ (let () (declare (not safe)) - (gx#stx-e _g189769189796_)))) - (let ((_hd189775189801_ + (gx#stx-e _g189699189726_)))) + (let ((_hd189705189731_ (let () (declare (not safe)) - (##car _e189776189798_))) - (_tl189774189803_ + (##car _e189706189728_))) + (_tl189704189733_ (let () (declare (not safe)) - (##cdr _e189776189798_)))) + (##cdr _e189706189728_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189774189803_)) - (let ((_e189779189806_ + (gx#stx-pair? _tl189704189733_)) + (let ((_e189709189736_ (let () (declare (not safe)) - (gx#stx-e _tl189774189803_)))) - (let ((_hd189778189809_ + (gx#stx-e _tl189704189733_)))) + (let ((_hd189708189739_ (let () (declare (not safe)) - (##car _e189779189806_))) - (_tl189777189811_ + (##car _e189709189736_))) + (_tl189707189741_ (let () (declare (not safe)) - (##cdr _e189779189806_)))) + (##cdr _e189709189736_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189777189811_)) - (let ((_e189782189814_ + (gx#stx-pair? _tl189707189741_)) + (let ((_e189712189744_ (let () (declare (not safe)) - (gx#stx-e _tl189777189811_)))) - (let ((_hd189781189817_ + (gx#stx-e _tl189707189741_)))) + (let ((_hd189711189747_ (let () (declare (not safe)) - (##car _e189782189814_))) - (_tl189780189819_ + (##car _e189712189744_))) + (_tl189710189749_ (let () (declare (not safe)) - (##cdr _e189782189814_)))) + (##cdr _e189712189744_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl189780189819_)) - (let ((_e189785189822_ + _tl189710189749_)) + (let ((_e189715189752_ (let () (declare (not safe)) (gx#stx-e - _tl189780189819_)))) - (let ((_hd189784189825_ + _tl189710189749_)))) + (let ((_hd189714189755_ (let () (declare (not safe)) - (##car _e189785189822_))) - (_tl189783189827_ + (##car _e189715189752_))) + (_tl189713189757_ (let () (declare (not safe)) - (##cdr _e189785189822_)))) + (##cdr _e189715189752_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl189783189827_)) - (let ((_e189788189830_ + _tl189713189757_)) + (let ((_e189718189760_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl189783189827_)))) - (let ((_hd189787189833_ - (let () (declare (not safe)) (##car _e189788189830_))) - (_tl189786189835_ + (gx#stx-e _tl189713189757_)))) + (let ((_hd189717189763_ + (let () (declare (not safe)) (##car _e189718189760_))) + (_tl189716189765_ (let () (declare (not safe)) - (##cdr _e189788189830_)))) + (##cdr _e189718189760_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl189786189835_)) - ((lambda (_L189838_ _L189839_ _L189840_ _L189841_) - (let ((__tmp203625 - (let ((__tmp203633 + (gx#stx-null? _tl189716189765_)) + ((lambda (_L189768_ _L189769_ _L189770_ _L189771_) + (let ((__tmp203555 + (let ((__tmp203563 (let () (declare (not safe)) - (gxc#compile-e__0 _L189839_))) - (__tmp203626 - (let ((__tmp203632 + (gxc#compile-e__0 _L189769_))) + (__tmp203556 + (let ((__tmp203562 (let () (declare (not safe)) (gxc#compile-e__0 - _L189838_))) - (__tmp203627 - (let ((__tmp203631 + _L189768_))) + (__tmp203557 + (let ((__tmp203561 (let () (declare (not safe)) (gxc#compile-e__0 - _L189840_))) - (__tmp203628 - (let ((__tmp203630 + _L189770_))) + (__tmp203558 + (let ((__tmp203560 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L189841_))) - (__tmp203629 + (gxc#compile-e__0 _L189771_))) + (__tmp203559 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp203630 __tmp203629)))) + (cons __tmp203560 __tmp203559)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203631 - __tmp203628)))) + (cons __tmp203561 + __tmp203558)))) (declare (not safe)) - (cons __tmp203632 __tmp203627)))) + (cons __tmp203562 __tmp203557)))) (declare (not safe)) - (cons __tmp203633 __tmp203626)))) + (cons __tmp203563 __tmp203556)))) (declare (not safe)) - (cons '##direct-structure-set! __tmp203625))) - _hd189787189833_ - _hd189784189825_ - _hd189781189817_ - _hd189778189809_) + (cons '##direct-structure-set! __tmp203555))) + _hd189717189763_ + _hd189714189755_ + _hd189711189747_ + _hd189708189739_) (let () (declare (not safe)) - (_g189768189793_ _g189769189796_))))) + (_g189698189723_ _g189699189726_))))) (let () (declare (not safe)) - (_g189768189793_ _g189769189796_))))) + (_g189698189723_ _g189699189726_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g189768189793_ - _g189769189796_))))) + (_g189698189723_ + _g189699189726_))))) (let () (declare (not safe)) - (_g189768189793_ _g189769189796_))))) + (_g189698189723_ _g189699189726_))))) (let () (declare (not safe)) - (_g189768189793_ _g189769189796_))))) + (_g189698189723_ _g189699189726_))))) (let () (declare (not safe)) - (_g189768189793_ _g189769189796_)))))) + (_g189698189723_ _g189699189726_)))))) (declare (not safe)) - (_g189767189862_ _stx189766_)))) + (_g189697189792_ _stx189696_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_stx189562_) - (let* ((_g189564189585_ - (lambda (_g189565189582_) + (lambda (_stx189492_) + (let* ((_g189494189515_ + (lambda (_g189495189512_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g189565189582_)))) - (_g189563189763_ - (lambda (_g189565189588_) + _g189495189512_)))) + (_g189493189693_ + (lambda (_g189495189518_) (if (let () (declare (not safe)) - (gx#stx-pair? _g189565189588_)) - (let ((_e189571189590_ + (gx#stx-pair? _g189495189518_)) + (let ((_e189501189520_ (let () (declare (not safe)) - (gx#stx-e _g189565189588_)))) - (let ((_hd189570189593_ + (gx#stx-e _g189495189518_)))) + (let ((_hd189500189523_ (let () (declare (not safe)) - (##car _e189571189590_))) - (_tl189569189595_ + (##car _e189501189520_))) + (_tl189499189525_ (let () (declare (not safe)) - (##cdr _e189571189590_)))) + (##cdr _e189501189520_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189569189595_)) - (let ((_e189574189598_ + (gx#stx-pair? _tl189499189525_)) + (let ((_e189504189528_ (let () (declare (not safe)) - (gx#stx-e _tl189569189595_)))) - (let ((_hd189573189601_ + (gx#stx-e _tl189499189525_)))) + (let ((_hd189503189531_ (let () (declare (not safe)) - (##car _e189574189598_))) - (_tl189572189603_ + (##car _e189504189528_))) + (_tl189502189533_ (let () (declare (not safe)) - (##cdr _e189574189598_)))) + (##cdr _e189504189528_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189572189603_)) - (let ((_e189577189606_ + (gx#stx-pair? _tl189502189533_)) + (let ((_e189507189536_ (let () (declare (not safe)) - (gx#stx-e _tl189572189603_)))) - (let ((_hd189576189609_ + (gx#stx-e _tl189502189533_)))) + (let ((_hd189506189539_ (let () (declare (not safe)) - (##car _e189577189606_))) - (_tl189575189611_ + (##car _e189507189536_))) + (_tl189505189541_ (let () (declare (not safe)) - (##cdr _e189577189606_)))) + (##cdr _e189507189536_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl189575189611_)) - (let ((_e189580189614_ + _tl189505189541_)) + (let ((_e189510189544_ (let () (declare (not safe)) (gx#stx-e - _tl189575189611_)))) - (let ((_hd189579189617_ + _tl189505189541_)))) + (let ((_hd189509189547_ (let () (declare (not safe)) - (##car _e189580189614_))) - (_tl189578189619_ + (##car _e189510189544_))) + (_tl189508189549_ (let () (declare (not safe)) - (##cdr _e189580189614_)))) + (##cdr _e189510189544_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl189578189619_)) - ((lambda (_L189622_ + _tl189508189549_)) + ((lambda (_L189552_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L189623_ - _L189624_) + _L189553_ + _L189554_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203652 - (let ((__tmp203658 + (let ((__tmp203582 + (let ((__tmp203588 (let () (declare (not safe)) - (gxc#compile-e__0 _L189622_))) - (__tmp203653 - (let ((__tmp203657 + (gxc#compile-e__0 _L189552_))) + (__tmp203583 + (let ((__tmp203587 (let () (declare (not safe)) - (gxc#compile-e__0 _L189623_))) - (__tmp203654 - (let ((__tmp203656 + (gxc#compile-e__0 _L189553_))) + (__tmp203584 + (let ((__tmp203586 (let () (declare (not safe)) (gxc#compile-e__0 - _L189624_))) - (__tmp203655 + _L189554_))) + (__tmp203585 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp203656 __tmp203655)))) + (cons __tmp203586 __tmp203585)))) (declare (not safe)) - (cons __tmp203657 __tmp203654)))) + (cons __tmp203587 __tmp203584)))) (declare (not safe)) - (cons __tmp203658 __tmp203653)))) + (cons __tmp203588 __tmp203583)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp203652)) - (let _lp189642_ ((_rest189645_ - (let ((__tmp203650 - (let ((__tmp203651 + (cons '##unchecked-structure-ref __tmp203582)) + (let _lp189572_ ((_rest189575_ + (let ((__tmp203580 + (let ((__tmp203581 (let () (declare (not safe)) - (cons _L189622_ + (cons _L189552_ '())))) (declare (not safe)) - (cons _L189623_ - __tmp203651)))) + (cons _L189553_ + __tmp203581)))) (declare (not safe)) - (cons _L189624_ __tmp203650))) - (_bind189647_ '()) - (_args189648_ '())) - (let* ((_rest189649189657_ _rest189645_) - (_else189651189665_ + (cons _L189554_ __tmp203580))) + (_bind189577_ '()) + (_args189578_ '())) + (let* ((_rest189579189587_ _rest189575_) + (_else189581189595_ (lambda () - (let ((__tmp203634 - (let ((__tmp203635 - (let ((__tmp203636 - (let ((__tmp203637 - (let ((__tmp203638 + (let ((__tmp203564 + (let ((__tmp203565 + (let ((__tmp203566 + (let ((__tmp203567 + (let ((__tmp203568 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203639 + (let ((__tmp203569 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (foldr1 cons __tmp203639 _args189648_)))) + (foldr1 cons __tmp203569 _args189578_)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp203638)))) + (cons '##unchecked-structure-ref __tmp203568)))) (declare (not safe)) - (cons __tmp203637 '())))) + (cons __tmp203567 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp203636)))) + __tmp203566)))) (declare (not safe)) - (cons _bind189647_ __tmp203635)))) + (cons _bind189577_ __tmp203565)))) (declare (not safe)) - (cons 'let __tmp203634)))) - (_K189653189751_ - (lambda (_rest189668_ _e189669_) - (let* ((___stx202853202854_ _e189669_) - (_g189674189692_ + (cons 'let __tmp203564)))) + (_K189583189681_ + (lambda (_rest189598_ _e189599_) + (let* ((___stx202783202784_ _e189599_) + (_g189604189622_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202853202854_))))) - (let ((___kont202855202856_ + ___stx202783202784_))))) + (let ((___kont202785202786_ (lambda () - (let ((__tmp203640 - (let ((__tmp203641 + (let ((__tmp203570 + (let ((__tmp203571 (let () (declare (not safe)) (gxc#compile-e__0 - _e189669_)))) + _e189599_)))) (declare (not safe)) - (cons __tmp203641 - _args189648_)))) + (cons __tmp203571 + _args189578_)))) (declare (not safe)) - (_lp189642_ - _rest189668_ - _bind189647_ - __tmp203640)))) - (___kont202857202858_ + (_lp189572_ + _rest189598_ + _bind189577_ + __tmp203570)))) + (___kont202787202788_ (lambda () - (let ((__tmp203642 - (let ((__tmp203643 + (let ((__tmp203572 + (let ((__tmp203573 (let () (declare (not safe)) (gxc#compile-e__0 - _e189669_)))) + _e189599_)))) (declare (not safe)) - (cons __tmp203643 - _args189648_)))) + (cons __tmp203573 + _args189578_)))) (declare (not safe)) - (_lp189642_ - _rest189668_ - _bind189647_ - __tmp203642)))) - (___kont202859202860_ + (_lp189572_ + _rest189598_ + _bind189577_ + __tmp203572)))) + (___kont202789202790_ (lambda () - (let ((_tmp189699_ - (let ((__tmp203644 + (let ((_tmp189629_ + (let ((__tmp203574 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp203644)))) - (let ((__tmp203646 - (let ((__tmp203647 - (let ((__tmp203648 + __tmp203574)))) + (let ((__tmp203576 + (let ((__tmp203577 + (let ((__tmp203578 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203649 + (let ((__tmp203579 (let () (declare (not safe)) - (gxc#compile-e__0 _e189669_)))) + (gxc#compile-e__0 _e189599_)))) (declare (not safe)) - (cons __tmp203649 '())))) + (cons __tmp203579 '())))) (declare (not safe)) - (cons _tmp189699_ __tmp203648)))) + (cons _tmp189629_ __tmp203578)))) (declare (not safe)) - (cons __tmp203647 _bind189647_))) - (__tmp203645 - (let () (declare (not safe)) (cons _tmp189699_ _args189648_)))) + (cons __tmp203577 _bind189577_))) + (__tmp203575 + (let () (declare (not safe)) (cons _tmp189629_ _args189578_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp189642_ - _rest189668_ - __tmp203646 - __tmp203645)))))) + (_lp189572_ + _rest189598_ + __tmp203576 + __tmp203575)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx202853202854_)) - (let ((_e189678189730_ + ___stx202783202784_)) + (let ((_e189608189660_ (let () (declare (not safe)) (gx#stx-e - ___stx202853202854_)))) - (let ((_tl189676189735_ + ___stx202783202784_)))) + (let ((_tl189606189665_ (let () (declare (not safe)) - (##cdr _e189678189730_))) - (_hd189677189733_ + (##cdr _e189608189660_))) + (_hd189607189663_ (let () (declare (not safe)) - (##car _e189678189730_)))) + (##car _e189608189660_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd189677189733_)) + _hd189607189663_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd189677189733_)) + _hd189607189663_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl189676189735_)) - (let ((_e189681189738_ + _tl189606189665_)) + (let ((_e189611189668_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl189676189735_)))) - (let ((_tl189679189743_ + (gx#stx-e _tl189606189665_)))) + (let ((_tl189609189673_ (let () (declare (not safe)) - (##cdr _e189681189738_))) - (_hd189680189741_ + (##cdr _e189611189668_))) + (_hd189610189671_ (let () (declare (not safe)) - (##car _e189681189738_)))) + (##car _e189611189668_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl189679189743_)) - (___kont202855202856_) - (___kont202859202860_)))) - (___kont202859202860_)) + (gx#stx-null? _tl189609189673_)) + (___kont202785202786_) + (___kont202789202790_)))) + (___kont202789202790_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd189677189733_)) + (gx#stx-eq? '%#quote _hd189607189663_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189676189735_)) - (let ((_e189687189715_ + (gx#stx-pair? _tl189606189665_)) + (let ((_e189617189645_ (let () (declare (not safe)) - (gx#stx-e _tl189676189735_)))) - (let ((_tl189685189720_ + (gx#stx-e _tl189606189665_)))) + (let ((_tl189615189650_ (let () (declare (not safe)) - (##cdr _e189687189715_))) - (_hd189686189718_ + (##cdr _e189617189645_))) + (_hd189616189648_ (let () (declare (not safe)) - (##car _e189687189715_)))) + (##car _e189617189645_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl189685189720_)) - (___kont202857202858_) - (___kont202859202860_)))) - (___kont202859202860_)) - (___kont202859202860_))) + (gx#stx-null? _tl189615189650_)) + (___kont202787202788_) + (___kont202789202790_)))) + (___kont202789202790_)) + (___kont202789202790_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202859202860_)))) - (___kont202859202860_))))))) + (___kont202789202790_)))) + (___kont202789202790_))))))) (if (let () (declare (not safe)) - (##pair? _rest189649189657_)) - (let ((_hd189654189754_ + (##pair? _rest189579189587_)) + (let ((_hd189584189684_ (let () (declare (not safe)) - (##car _rest189649189657_))) - (_tl189655189756_ + (##car _rest189579189587_))) + (_tl189585189686_ (let () (declare (not safe)) - (##cdr _rest189649189657_)))) - (let* ((_e189759_ _hd189654189754_) - (_rest189761_ _tl189655189756_)) + (##cdr _rest189579189587_)))) + (let* ((_e189689_ _hd189584189684_) + (_rest189691_ _tl189585189686_)) (declare (not safe)) - (_K189653189751_ _rest189761_ _e189759_))) + (_K189583189681_ _rest189691_ _e189689_))) (let () (declare (not safe)) - (_else189651189665_))))))) - _hd189579189617_ - _hd189576189609_ - _hd189573189601_) + (_else189581189595_))))))) + _hd189509189547_ + _hd189506189539_ + _hd189503189531_) (let () (declare (not safe)) - (_g189564189585_ _g189565189588_))))) + (_g189494189515_ _g189495189518_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g189564189585_ - _g189565189588_))))) + (_g189494189515_ + _g189495189518_))))) (let () (declare (not safe)) - (_g189564189585_ _g189565189588_))))) + (_g189494189515_ _g189495189518_))))) (let () (declare (not safe)) - (_g189564189585_ _g189565189588_))))) + (_g189494189515_ _g189495189518_))))) (let () (declare (not safe)) - (_g189564189585_ _g189565189588_)))))) + (_g189494189515_ _g189495189518_)))))) (declare (not safe)) - (_g189563189763_ _stx189562_)))) + (_g189493189693_ _stx189492_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_stx189342_) - (let* ((_g189344189369_ - (lambda (_g189345189366_) + (lambda (_stx189272_) + (let* ((_g189274189299_ + (lambda (_g189275189296_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g189345189366_)))) - (_g189343189559_ - (lambda (_g189345189372_) + _g189275189296_)))) + (_g189273189489_ + (lambda (_g189275189302_) (if (let () (declare (not safe)) - (gx#stx-pair? _g189345189372_)) - (let ((_e189352189374_ + (gx#stx-pair? _g189275189302_)) + (let ((_e189282189304_ (let () (declare (not safe)) - (gx#stx-e _g189345189372_)))) - (let ((_hd189351189377_ + (gx#stx-e _g189275189302_)))) + (let ((_hd189281189307_ (let () (declare (not safe)) - (##car _e189352189374_))) - (_tl189350189379_ + (##car _e189282189304_))) + (_tl189280189309_ (let () (declare (not safe)) - (##cdr _e189352189374_)))) + (##cdr _e189282189304_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189350189379_)) - (let ((_e189355189382_ + (gx#stx-pair? _tl189280189309_)) + (let ((_e189285189312_ (let () (declare (not safe)) - (gx#stx-e _tl189350189379_)))) - (let ((_hd189354189385_ + (gx#stx-e _tl189280189309_)))) + (let ((_hd189284189315_ (let () (declare (not safe)) - (##car _e189355189382_))) - (_tl189353189387_ + (##car _e189285189312_))) + (_tl189283189317_ (let () (declare (not safe)) - (##cdr _e189355189382_)))) + (##cdr _e189285189312_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189353189387_)) - (let ((_e189358189390_ + (gx#stx-pair? _tl189283189317_)) + (let ((_e189288189320_ (let () (declare (not safe)) - (gx#stx-e _tl189353189387_)))) - (let ((_hd189357189393_ + (gx#stx-e _tl189283189317_)))) + (let ((_hd189287189323_ (let () (declare (not safe)) - (##car _e189358189390_))) - (_tl189356189395_ + (##car _e189288189320_))) + (_tl189286189325_ (let () (declare (not safe)) - (##cdr _e189358189390_)))) + (##cdr _e189288189320_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl189356189395_)) - (let ((_e189361189398_ + _tl189286189325_)) + (let ((_e189291189328_ (let () (declare (not safe)) (gx#stx-e - _tl189356189395_)))) - (let ((_hd189360189401_ + _tl189286189325_)))) + (let ((_hd189290189331_ (let () (declare (not safe)) - (##car _e189361189398_))) - (_tl189359189403_ + (##car _e189291189328_))) + (_tl189289189333_ (let () (declare (not safe)) - (##cdr _e189361189398_)))) + (##cdr _e189291189328_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl189359189403_)) - (let ((_e189364189406_ + _tl189289189333_)) + (let ((_e189294189336_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl189359189403_)))) - (let ((_hd189363189409_ - (let () (declare (not safe)) (##car _e189364189406_))) - (_tl189362189411_ + (gx#stx-e _tl189289189333_)))) + (let ((_hd189293189339_ + (let () (declare (not safe)) (##car _e189294189336_))) + (_tl189292189341_ (let () (declare (not safe)) - (##cdr _e189364189406_)))) + (##cdr _e189294189336_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl189362189411_)) - ((lambda (_L189414_ _L189415_ _L189416_ _L189417_) + (gx#stx-null? _tl189292189341_)) + ((lambda (_L189344_ _L189345_ _L189346_ _L189347_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp203678 - (let ((__tmp203686 + (let ((__tmp203608 + (let ((__tmp203616 (let () (declare (not safe)) - (gxc#compile-e__0 _L189415_))) - (__tmp203679 - (let ((__tmp203685 + (gxc#compile-e__0 _L189345_))) + (__tmp203609 + (let ((__tmp203615 (let () (declare (not safe)) (gxc#compile-e__0 - _L189414_))) - (__tmp203680 - (let ((__tmp203684 + _L189344_))) + (__tmp203610 + (let ((__tmp203614 (let () (declare (not safe)) (gxc#compile-e__0 - _L189416_))) - (__tmp203681 - (let ((__tmp203683 + _L189346_))) + (__tmp203611 + (let ((__tmp203613 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L189417_))) - (__tmp203682 + (gxc#compile-e__0 _L189347_))) + (__tmp203612 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp203683 __tmp203682)))) + (cons __tmp203613 __tmp203612)))) (declare (not safe)) - (cons __tmp203684 __tmp203681)))) + (cons __tmp203614 __tmp203611)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203685 - __tmp203680)))) + (cons __tmp203615 + __tmp203610)))) (declare (not safe)) - (cons __tmp203686 __tmp203679)))) + (cons __tmp203616 __tmp203609)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp203678)) - (let _lp189438_ ((_rest189441_ - (let ((__tmp203675 - (let ((__tmp203676 - (let ((__tmp203677 + __tmp203608)) + (let _lp189368_ ((_rest189371_ + (let ((__tmp203605 + (let ((__tmp203606 + (let ((__tmp203607 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L189415_ '())))) + (cons _L189345_ '())))) (declare (not safe)) - (cons _L189414_ __tmp203677)))) + (cons _L189344_ __tmp203607)))) (declare (not safe)) - (cons _L189416_ __tmp203676)))) + (cons _L189346_ __tmp203606)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L189417_ - __tmp203675))) - (_bind189443_ '()) - (_args189444_ '())) - (let* ((_rest189445189453_ _rest189441_) - (_else189447189461_ + (cons _L189347_ + __tmp203605))) + (_bind189373_ '()) + (_args189374_ '())) + (let* ((_rest189375189383_ _rest189371_) + (_else189377189391_ (lambda () - (let ((__tmp203659 - (let ((__tmp203660 - (let ((__tmp203661 - (let ((__tmp203662 + (let ((__tmp203589 + (let ((__tmp203590 + (let ((__tmp203591 + (let ((__tmp203592 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203663 - (let ((__tmp203664 + (let ((__tmp203593 + (let ((__tmp203594 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) (foldr1 cons - __tmp203664 - _args189444_)))) + __tmp203594 + _args189374_)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp203663)))) + __tmp203593)))) (declare (not safe)) - (cons __tmp203662 '())))) + (cons __tmp203592 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp203661)))) + (cons '(declare (not safe)) __tmp203591)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind189443_ - __tmp203660)))) + (cons _bind189373_ + __tmp203590)))) (declare (not safe)) - (cons 'let __tmp203659)))) - (_K189449189547_ - (lambda (_rest189464_ _e189465_) - (let* ((___stx202899202900_ - _e189465_) - (_g189470189488_ + (cons 'let __tmp203589)))) + (_K189379189477_ + (lambda (_rest189394_ _e189395_) + (let* ((___stx202829202830_ + _e189395_) + (_g189400189418_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202899202900_))))) - (let ((___kont202901202902_ + ___stx202829202830_))))) + (let ((___kont202831202832_ (lambda () - (let ((__tmp203665 - (let ((__tmp203666 + (let ((__tmp203595 + (let ((__tmp203596 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e189465_)))) + (gxc#compile-e__0 _e189395_)))) (declare (not safe)) - (cons __tmp203666 _args189444_)))) + (cons __tmp203596 _args189374_)))) (declare (not safe)) - (_lp189438_ _rest189464_ _bind189443_ __tmp203665)))) + (_lp189368_ _rest189394_ _bind189373_ __tmp203595)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202903202904_ + (___kont202833202834_ (lambda () - (let ((__tmp203667 - (let ((__tmp203668 + (let ((__tmp203597 + (let ((__tmp203598 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e189465_)))) + (gxc#compile-e__0 _e189395_)))) (declare (not safe)) - (cons __tmp203668 _args189444_)))) + (cons __tmp203598 _args189374_)))) (declare (not safe)) - (_lp189438_ _rest189464_ _bind189443_ __tmp203667)))) + (_lp189368_ _rest189394_ _bind189373_ __tmp203597)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202905202906_ + (___kont202835202836_ (lambda () - (let ((_tmp189495_ - (let ((__tmp203669 + (let ((_tmp189425_ + (let ((__tmp203599 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp203669)))) - (let ((__tmp203671 - (let ((__tmp203672 - (let ((__tmp203673 - (let ((__tmp203674 + (make-symbol__0 __tmp203599)))) + (let ((__tmp203601 + (let ((__tmp203602 + (let ((__tmp203603 + (let ((__tmp203604 (let () (declare (not safe)) - (gxc#compile-e__0 _e189465_)))) + (gxc#compile-e__0 _e189395_)))) (declare (not safe)) - (cons __tmp203674 '())))) + (cons __tmp203604 '())))) (declare (not safe)) - (cons _tmp189495_ __tmp203673)))) + (cons _tmp189425_ __tmp203603)))) (declare (not safe)) - (cons __tmp203672 _bind189443_))) - (__tmp203670 + (cons __tmp203602 _bind189373_))) + (__tmp203600 (let () (declare (not safe)) - (cons _tmp189495_ _args189444_)))) + (cons _tmp189425_ _args189374_)))) (declare (not safe)) - (_lp189438_ _rest189464_ __tmp203671 __tmp203670)))))) + (_lp189368_ _rest189394_ __tmp203601 __tmp203600)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx202899202900_)) - (let ((_e189474189526_ + ___stx202829202830_)) + (let ((_e189404189456_ (let () (declare (not safe)) (gx#stx-e - ___stx202899202900_)))) - (let ((_tl189472189531_ + ___stx202829202830_)))) + (let ((_tl189402189461_ (let () (declare (not safe)) - (##cdr _e189474189526_))) - (_hd189473189529_ + (##cdr _e189404189456_))) + (_hd189403189459_ (let () (declare (not safe)) - (##car _e189474189526_)))) + (##car _e189404189456_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd189473189529_)) + _hd189403189459_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-eq? '%#ref _hd189473189529_)) + (gx#stx-eq? '%#ref _hd189403189459_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189472189531_)) - (let ((_e189477189534_ + (gx#stx-pair? _tl189402189461_)) + (let ((_e189407189464_ (let () (declare (not safe)) - (gx#stx-e _tl189472189531_)))) - (let ((_tl189475189539_ + (gx#stx-e _tl189402189461_)))) + (let ((_tl189405189469_ (let () (declare (not safe)) - (##cdr _e189477189534_))) - (_hd189476189537_ + (##cdr _e189407189464_))) + (_hd189406189467_ (let () (declare (not safe)) - (##car _e189477189534_)))) + (##car _e189407189464_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl189475189539_)) - (___kont202901202902_) - (___kont202905202906_)))) - (___kont202905202906_)) + (gx#stx-null? _tl189405189469_)) + (___kont202831202832_) + (___kont202835202836_)))) + (___kont202835202836_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd189473189529_)) + (gx#stx-eq? '%#quote _hd189403189459_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189472189531_)) - (let ((_e189483189511_ + (gx#stx-pair? _tl189402189461_)) + (let ((_e189413189441_ (let () (declare (not safe)) - (gx#stx-e _tl189472189531_)))) - (let ((_tl189481189516_ + (gx#stx-e _tl189402189461_)))) + (let ((_tl189411189446_ (let () (declare (not safe)) - (##cdr _e189483189511_))) - (_hd189482189514_ + (##cdr _e189413189441_))) + (_hd189412189444_ (let () (declare (not safe)) - (##car _e189483189511_)))) + (##car _e189413189441_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl189481189516_)) - (___kont202903202904_) - (___kont202905202906_)))) - (___kont202905202906_)) - (___kont202905202906_))) - (___kont202905202906_)))) + (gx#stx-null? _tl189411189446_)) + (___kont202833202834_) + (___kont202835202836_)))) + (___kont202835202836_)) + (___kont202835202836_))) + (___kont202835202836_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont202905202906_))))))) + (___kont202835202836_))))))) (if (let () (declare (not safe)) - (##pair? _rest189445189453_)) - (let ((_hd189450189550_ + (##pair? _rest189375189383_)) + (let ((_hd189380189480_ (let () (declare (not safe)) - (##car _rest189445189453_))) - (_tl189451189552_ + (##car _rest189375189383_))) + (_tl189381189482_ (let () (declare (not safe)) - (##cdr _rest189445189453_)))) - (let* ((_e189555_ _hd189450189550_) - (_rest189557_ - _tl189451189552_)) + (##cdr _rest189375189383_)))) + (let* ((_e189485_ _hd189380189480_) + (_rest189487_ + _tl189381189482_)) (declare (not safe)) - (_K189449189547_ - _rest189557_ - _e189555_))) + (_K189379189477_ + _rest189487_ + _e189485_))) (let () (declare (not safe)) - (_else189447189461_))))))) - _hd189363189409_ - _hd189360189401_ - _hd189357189393_ - _hd189354189385_) + (_else189377189391_))))))) + _hd189293189339_ + _hd189290189331_ + _hd189287189323_ + _hd189284189315_) (let () (declare (not safe)) - (_g189344189369_ _g189345189372_))))) + (_g189274189299_ _g189275189302_))))) (let () (declare (not safe)) - (_g189344189369_ _g189345189372_))))) + (_g189274189299_ _g189275189302_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g189344189369_ - _g189345189372_))))) + (_g189274189299_ + _g189275189302_))))) (let () (declare (not safe)) - (_g189344189369_ _g189345189372_))))) + (_g189274189299_ _g189275189302_))))) (let () (declare (not safe)) - (_g189344189369_ _g189345189372_))))) + (_g189274189299_ _g189275189302_))))) (let () (declare (not safe)) - (_g189344189369_ _g189345189372_)))))) + (_g189274189299_ _g189275189302_)))))) (declare (not safe)) - (_g189343189559_ _stx189342_)))) + (_g189273189489_ _stx189272_)))) (define gxc#generate-runtime-loader-import% - (lambda (_stx189196_) - (letrec ((_import-set-template189198_ - (lambda (_in189294_ _phi189295_) - (let ((_iphi189297_ - (fx+ _phi189295_ + (lambda (_stx189126_) + (letrec ((_import-set-template189128_ + (lambda (_in189224_ _phi189225_) + (let ((_iphi189227_ + (fx+ _phi189225_ (##direct-structure-ref - _in189294_ + _in189224_ '2 gx#import-set::t '#f))) - (_imports189298_ + (_imports189228_ (##structure-ref (##direct-structure-ref - _in189294_ + _in189224_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp189300_ ((_rest189302_ _imports189298_) - (_r189303_ '())) - (let* ((_rest189304189312_ _rest189302_) - (_else189306189320_ (lambda () _r189303_)) - (_K189308189330_ - (lambda (_rest189323_ _in189324_) + (let _lp189230_ ((_rest189232_ _imports189228_) + (_r189233_ '())) + (let* ((_rest189234189242_ _rest189232_) + (_else189236189250_ (lambda () _r189233_)) + (_K189238189260_ + (lambda (_rest189253_ _in189254_) (if (let () (declare (not safe)) (##structure-instance-of? - _in189324_ + _in189254_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi189297_)) - (let ((__tmp203693 + (fxzero? _iphi189227_)) + (let ((__tmp203623 (let () (declare (not safe)) - (cons _in189324_ - _r189303_)))) + (cons _in189254_ + _r189233_)))) (declare (not safe)) - (_lp189300_ - _rest189323_ - __tmp203693)) + (_lp189230_ + _rest189253_ + __tmp203623)) (let () (declare (not safe)) - (_lp189300_ - _rest189323_ - _r189303_))) + (_lp189230_ + _rest189253_ + _r189233_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in189324_ + _in189254_ 'gx#module-import::t)) - (let ((_iphi189326_ - (fx+ _phi189295_ + (let ((_iphi189256_ + (fx+ _phi189225_ (##direct-structure-ref - _in189324_ + _in189254_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi189326_)) - (let ((__tmp203691 - (let ((__tmp203692 + (fxzero? _iphi189256_)) + (let ((__tmp203621 + (let ((__tmp203622 (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in189324_ + _in189254_ '1 gx#module-import::t '#f) @@ -15247,195 +15247,195 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp203692 _r189303_)))) + (cons __tmp203622 _r189233_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp189300_ - _rest189323_ - __tmp203691)) + (_lp189230_ + _rest189253_ + __tmp203621)) (let () (declare (not safe)) - (_lp189300_ - _rest189323_ - _r189303_)))) + (_lp189230_ + _rest189253_ + _r189233_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in189324_ + _in189254_ 'gx#import-set::t)) - (let ((_xphi189328_ - (fx+ _iphi189297_ + (let ((_xphi189258_ + (fx+ _iphi189227_ (##direct-structure-ref - _in189324_ + _in189254_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi189328_)) - (let ((__tmp203689 - (let ((__tmp203690 + (fxzero? _xphi189258_)) + (let ((__tmp203619 + (let ((__tmp203620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in189324_ + _in189254_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp203690 _r189303_)))) + (cons __tmp203620 _r189233_)))) (declare (not safe)) - (_lp189300_ _rest189323_ __tmp203689)) - (if (fxpositive? _xphi189328_) - (let ((__tmp203687 - (let ((__tmp203688 + (_lp189230_ _rest189253_ __tmp203619)) + (if (fxpositive? _xphi189258_) + (let ((__tmp203617 + (let ((__tmp203618 (let () (declare (not safe)) - (_import-set-template189198_ - _in189324_ - _iphi189297_)))) + (_import-set-template189128_ + _in189254_ + _iphi189227_)))) (declare (not safe)) - (foldl1 cons _r189303_ __tmp203688)))) + (foldl1 cons _r189233_ __tmp203618)))) (declare (not safe)) - (_lp189300_ _rest189323_ __tmp203687)) + (_lp189230_ _rest189253_ __tmp203617)) (let () (declare (not safe)) - (_lp189300_ _rest189323_ _r189303_))))) + (_lp189230_ _rest189253_ _r189233_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp189300_ - _rest189323_ - _r189303_)))))))) + (_lp189230_ + _rest189253_ + _r189233_)))))))) (if (let () (declare (not safe)) - (##pair? _rest189304189312_)) - (let ((_hd189309189333_ + (##pair? _rest189234189242_)) + (let ((_hd189239189263_ (let () (declare (not safe)) - (##car _rest189304189312_))) - (_tl189310189335_ + (##car _rest189234189242_))) + (_tl189240189265_ (let () (declare (not safe)) - (##cdr _rest189304189312_)))) - (let* ((_in189338_ _hd189309189333_) - (_rest189340_ _tl189310189335_)) + (##cdr _rest189234189242_)))) + (let* ((_in189268_ _hd189239189263_) + (_rest189270_ _tl189240189265_)) (declare (not safe)) - (_K189308189330_ _rest189340_ _in189338_))) + (_K189238189260_ _rest189270_ _in189268_))) (let () (declare (not safe)) - (_else189306189320_))))))))) - (let* ((_g189200189210_ - (lambda (_g189201189207_) + (_else189236189250_))))))))) + (let* ((_g189130189140_ + (lambda (_g189131189137_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g189201189207_)))) - (_g189199189291_ - (lambda (_g189201189213_) + _g189131189137_)))) + (_g189129189221_ + (lambda (_g189131189143_) (if (let () (declare (not safe)) - (gx#stx-pair? _g189201189213_)) - (let ((_e189205189215_ + (gx#stx-pair? _g189131189143_)) + (let ((_e189135189145_ (let () (declare (not safe)) - (gx#stx-e _g189201189213_)))) - (let ((_hd189204189218_ + (gx#stx-e _g189131189143_)))) + (let ((_hd189134189148_ (let () (declare (not safe)) - (##car _e189205189215_))) - (_tl189203189220_ + (##car _e189135189145_))) + (_tl189133189150_ (let () (declare (not safe)) - (##cdr _e189205189215_)))) - ((lambda (_L189223_) - (let ((_ht189234_ + (##cdr _e189135189145_)))) + ((lambda (_L189153_) + (let ((_ht189164_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let _lp189236_ ((_rest189238_ _L189223_) - (_loads189239_ '())) - (letrec ((_K189241_ - (lambda (_ctx189284_ - _rest189285_) - (let ((_id189287_ + (let _lp189166_ ((_rest189168_ _L189153_) + (_loads189169_ '())) + (letrec ((_K189171_ + (lambda (_ctx189214_ + _rest189215_) + (let ((_id189217_ (##structure-ref - _ctx189284_ + _ctx189214_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (table-ref - _ht189234_ - _id189287_ + _ht189164_ + _id189217_ '#f)) (let () (declare (not safe)) - (_lp189236_ - _rest189285_ - _loads189239_)) - (let ((_rt189289_ + (_lp189166_ + _rest189215_ + _loads189169_)) + (let ((_rt189219_ (string-append (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#module-id->path-string _id189287_)) + (gxc#module-id->path-string _id189217_)) '"__rt"))) (let () (declare (not safe)) - (table-set! _ht189234_ _id189287_ _rt189289_)) - (let ((__tmp203694 + (table-set! _ht189164_ _id189217_ _rt189219_)) + (let ((__tmp203624 (let () (declare (not safe)) - (cons _rt189289_ _loads189239_)))) + (cons _rt189219_ _loads189169_)))) (declare (not safe)) - (_lp189236_ _rest189285_ __tmp203694)))))))) + (_lp189166_ _rest189215_ __tmp203624)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest189242189250_ _rest189238_) - (_else189244189262_ + (let* ((_rest189172189180_ _rest189168_) + (_else189174189192_ (lambda () - (let ((__tmp203695 - (map (lambda (_g189257189259_) + (let ((__tmp203625 + (map (lambda (_g189187189189_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g189257189259_)) - (reverse _loads189239_)))) + _g189187189189_)) + (reverse _loads189169_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'begin __tmp203695)))) - (_K189246189272_ - (lambda (_rest189265_ - _in189266_) + (cons 'begin __tmp203625)))) + (_K189176189202_ + (lambda (_rest189195_ + _in189196_) (if (let () (declare (not safe)) (##structure-instance-of? - _in189266_ + _in189196_ 'gx#module-context::t)) (let () (declare (not safe)) - (_K189241_ - _in189266_ - _rest189265_)) + (_K189171_ + _in189196_ + _rest189195_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in189266_ + _in189196_ 'gx#module-import::t)) - (if (let ((__tmp203699 + (if (let ((__tmp203629 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in189266_ + _in189196_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp203699)) - (let ((__tmp203698 + (fxzero? __tmp203629)) + (let ((__tmp203628 (##direct-structure-ref (##direct-structure-ref - _in189266_ + _in189196_ '1 gx#module-import::t '#f) @@ -15443,555 +15443,555 @@ gx#module-export::t '#f))) (declare (not safe)) - (_K189241_ __tmp203698 _rest189265_)) + (_K189171_ __tmp203628 _rest189195_)) (let () (declare (not safe)) - (_lp189236_ _rest189265_ _loads189239_))) + (_lp189166_ _rest189195_ _loads189169_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in189266_ + _in189196_ 'gx#import-set::t)) - (let ((_phi189268_ + (let ((_phi189198_ (##direct-structure-ref - _in189266_ + _in189196_ '2 gx#import-set::t '#f))) - (if (let () (declare (not safe)) (fxzero? _phi189268_)) - (let ((__tmp203697 + (if (let () (declare (not safe)) (fxzero? _phi189198_)) + (let ((__tmp203627 (##direct-structure-ref - _in189266_ + _in189196_ '1 gx#import-set::t '#f))) (declare (not safe)) - (_K189241_ __tmp203697 _rest189265_)) - (if (fxpositive? _phi189268_) - (let* ((_deps189270_ + (_K189171_ __tmp203627 _rest189195_)) + (if (fxpositive? _phi189198_) + (let* ((_deps189200_ (let () (declare (not safe)) - (_import-set-template189198_ - _in189266_ + (_import-set-template189128_ + _in189196_ '0))) - (__tmp203696 + (__tmp203626 (let () (declare (not safe)) (foldl1 cons - _rest189265_ - _deps189270_)))) + _rest189195_ + _deps189200_)))) (declare (not safe)) - (_lp189236_ __tmp203696 _loads189239_)) + (_lp189166_ __tmp203626 _loads189169_)) (let () (declare (not safe)) - (_lp189236_ _rest189265_ _loads189239_))))) + (_lp189166_ _rest189195_ _loads189169_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _stx189196_ - _in189266_)))))))) + _stx189126_ + _in189196_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest189242189250_)) - (let ((_hd189247189275_ + (##pair? _rest189172189180_)) + (let ((_hd189177189205_ (let () (declare (not safe)) - (##car _rest189242189250_))) - (_tl189248189277_ + (##car _rest189172189180_))) + (_tl189178189207_ (let () (declare (not safe)) - (##cdr _rest189242189250_)))) - (let* ((_in189280_ - _hd189247189275_) - (_rest189282_ - _tl189248189277_)) + (##cdr _rest189172189180_)))) + (let* ((_in189210_ + _hd189177189205_) + (_rest189212_ + _tl189178189207_)) (declare (not safe)) - (_K189246189272_ - _rest189282_ - _in189280_))) + (_K189176189202_ + _rest189212_ + _in189210_))) (let () (declare (not safe)) - (_else189244189262_)))))))) - _tl189203189220_))) + (_else189174189192_)))))))) + _tl189133189150_))) (let () (declare (not safe)) - (_g189200189210_ _g189201189213_)))))) + (_g189130189140_ _g189131189143_)))))) (declare (not safe)) - (_g189199189291_ _stx189196_))))) + (_g189129189221_ _stx189126_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_stx189012_) - (letrec ((_add-lift!189014_ - (lambda (_expr189194_) + (lambda (_stx188942_) + (letrec ((_add-lift!188944_ + (lambda (_expr189124_) (set-box! (gxc#current-compile-lift) - (let ((__tmp203700 (unbox (gxc#current-compile-lift)))) + (let ((__tmp203630 (unbox (gxc#current-compile-lift)))) (declare (not safe)) - (cons _expr189194_ __tmp203700))))) - (_generate-syntax-quote189015_ - (lambda (_id189191_ _marks189192_) - (let ((__tmp203701 - (let ((__tmp203702 - (let ((__tmp203706 - (let ((__tmp203707 + (cons _expr189124_ __tmp203630))))) + (_generate-syntax-quote188945_ + (lambda (_id189121_ _marks189122_) + (let ((__tmp203631 + (let ((__tmp203632 + (let ((__tmp203636 + (let ((__tmp203637 (let () (declare (not safe)) - (cons _id189191_ '())))) + (cons _id189121_ '())))) (declare (not safe)) - (cons 'quote __tmp203707))) - (__tmp203703 - (let ((__tmp203704 - (let ((__tmp203705 + (cons 'quote __tmp203637))) + (__tmp203633 + (let ((__tmp203634 + (let ((__tmp203635 (let () (declare (not safe)) - (cons _marks189192_ + (cons _marks189122_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(gx#current-expander-context) - __tmp203705)))) + __tmp203635)))) (declare (not safe)) - (cons '#f __tmp203704)))) + (cons '#f __tmp203634)))) (declare (not safe)) - (cons __tmp203706 __tmp203703)))) + (cons __tmp203636 __tmp203633)))) (declare (not safe)) - (cons 'gx#syntax-quote::t __tmp203702)))) + (cons 'gx#syntax-quote::t __tmp203632)))) (declare (not safe)) - (cons '##structure __tmp203701)))) - (_generate-simple189016_ - (lambda (_stxq189186_) - (let ((_gid189188_ + (cons '##structure __tmp203631)))) + (_generate-simple188946_ + (lambda (_stxq189116_) + (let ((_gid189118_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid189189_ + (_qid189119_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq189186_)))) - (let ((__tmp203708 - (let ((__tmp203709 - (let ((__tmp203710 - (let ((__tmp203711 + _stxq189116_)))) + (let ((__tmp203638 + (let ((__tmp203639 + (let ((__tmp203640 + (let ((__tmp203641 (let () (declare (not safe)) - (_generate-syntax-quote189015_ - _qid189189_ + (_generate-syntax-quote188945_ + _qid189119_ ''())))) (declare (not safe)) - (cons __tmp203711 '())))) + (cons __tmp203641 '())))) (declare (not safe)) - (cons _gid189188_ __tmp203710)))) + (cons _gid189118_ __tmp203640)))) (declare (not safe)) - (cons 'define __tmp203709)))) + (cons 'define __tmp203639)))) (declare (not safe)) - (_add-lift!189014_ __tmp203708)) - (let ((__tmp203712 (gxc#current-compile-identifiers))) + (_add-lift!188944_ __tmp203638)) + (let ((__tmp203642 (gxc#current-compile-identifiers))) (declare (not safe)) - (table-set! __tmp203712 _stxq189186_ _gid189188_)) - _gid189188_))) - (_generate-serialized189017_ - (lambda (_stxq189176_ _marks189177_) - (let* ((_mark-refs189179_ - (map _generate-mark189018_ _marks189177_)) - (_gid189181_ + (table-set! __tmp203642 _stxq189116_ _gid189118_)) + _gid189118_))) + (_generate-serialized188947_ + (lambda (_stxq189106_ _marks189107_) + (let* ((_mark-refs189109_ + (map _generate-mark188948_ _marks189107_)) + (_gid189111_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid189183_ + (_qid189113_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq189176_)))) - (let ((__tmp203713 - (let ((__tmp203714 - (let ((__tmp203715 - (let ((__tmp203716 - (let ((__tmp203717 + _stxq189106_)))) + (let ((__tmp203643 + (let ((__tmp203644 + (let ((__tmp203645 + (let ((__tmp203646 + (let ((__tmp203647 (let () (declare (not safe)) (cons 'list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mark-refs189179_)))) + _mark-refs189109_)))) (declare (not safe)) - (_generate-syntax-quote189015_ _qid189183_ __tmp203717)))) + (_generate-syntax-quote188945_ _qid189113_ __tmp203647)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203716 '())))) + (cons __tmp203646 '())))) (declare (not safe)) - (cons _gid189181_ __tmp203715)))) + (cons _gid189111_ __tmp203645)))) (declare (not safe)) - (cons 'define __tmp203714)))) + (cons 'define __tmp203644)))) (declare (not safe)) - (_add-lift!189014_ __tmp203713)) - (let ((__tmp203718 (gxc#current-compile-identifiers))) + (_add-lift!188944_ __tmp203643)) + (let ((__tmp203648 (gxc#current-compile-identifiers))) (declare (not safe)) - (table-set! __tmp203718 _stxq189176_ _gid189181_)) - _gid189181_))) - (_generate-mark189018_ - (lambda (_mark189162_) - (let ((_$e189164_ - (let ((__tmp203719 (gxc#current-compile-marks))) + (table-set! __tmp203648 _stxq189106_ _gid189111_)) + _gid189111_))) + (_generate-mark188948_ + (lambda (_mark189092_) + (let ((_$e189094_ + (let ((__tmp203649 (gxc#current-compile-marks))) (declare (not safe)) - (table-ref __tmp203719 _mark189162_ '#f)))) - (if _$e189164_ - (values _$e189164_) - (let* ((_gid189167_ + (table-ref __tmp203649 _mark189092_ '#f)))) + (if _$e189094_ + (values _$e189094_) + (let* ((_gid189097_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_repr189169_ + (_repr189099_ (let () (declare (not safe)) - (_serialize-mark189019_ _mark189162_))) - (_ctx189171_ - (let ((__tmp203720 + (_serialize-mark188949_ _mark189092_))) + (_ctx189101_ + (let ((__tmp203650 (##structure-ref - _mark189162_ + _mark189092_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp203720))) - (_ctx-ref189173_ - (if (let ((__tmp203725 + (gx#core-context-top__1 __tmp203650))) + (_ctx-ref189103_ + (if (let ((__tmp203655 (gx#current-expander-context))) (declare (not safe)) - (eq? _ctx189171_ __tmp203725)) + (eq? _ctx189101_ __tmp203655)) '(gx#current-expander-context) - (let ((__tmp203721 - (let ((__tmp203722 - (let ((__tmp203723 - (let ((__tmp203724 + (let ((__tmp203651 + (let ((__tmp203652 + (let ((__tmp203653 + (let ((__tmp203654 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_context-ref189020_ _ctx189171_)))) + (_context-ref188950_ _ctx189101_)))) (declare (not safe)) - (cons __tmp203724 '())))) + (cons __tmp203654 '())))) (declare (not safe)) - (cons 'quote __tmp203723)))) + (cons 'quote __tmp203653)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203722 '())))) + (cons __tmp203652 '())))) (declare (not safe)) (cons 'gx#import-module - __tmp203721))))) - (let ((__tmp203726 (gxc#current-compile-marks))) + __tmp203651))))) + (let ((__tmp203656 (gxc#current-compile-marks))) (declare (not safe)) (table-set! - __tmp203726 - _mark189162_ - _gid189167_)) - (let ((__tmp203727 - (let ((__tmp203728 - (let ((__tmp203729 - (let ((__tmp203730 - (let ((__tmp203731 + __tmp203656 + _mark189092_ + _gid189097_)) + (let ((__tmp203657 + (let ((__tmp203658 + (let ((__tmp203659 + (let ((__tmp203660 + (let ((__tmp203661 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203733 - (let ((__tmp203734 + (let ((__tmp203663 + (let ((__tmp203664 (let () (declare (not safe)) - (cons _repr189169_ '())))) + (cons _repr189099_ '())))) (declare (not safe)) - (cons 'quote __tmp203734))) - (__tmp203732 + (cons 'quote __tmp203664))) + (__tmp203662 (let () (declare (not safe)) - (cons _ctx-ref189173_ '())))) + (cons _ctx-ref189103_ '())))) (declare (not safe)) - (cons __tmp203733 __tmp203732)))) + (cons __tmp203663 __tmp203662)))) (declare (not safe)) - (cons 'gx#core-deserialize-mark __tmp203731)))) + (cons 'gx#core-deserialize-mark __tmp203661)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203730 '())))) + (cons __tmp203660 '())))) (declare (not safe)) - (cons _gid189167_ __tmp203729)))) + (cons _gid189097_ __tmp203659)))) (declare (not safe)) - (cons 'define __tmp203728)))) + (cons 'define __tmp203658)))) (declare (not safe)) - (_add-lift!189014_ __tmp203727)) - _gid189167_))))) - (_serialize-mark189019_ - (lambda (_mark189109_) - (letrec ((_quote-e189111_ - (lambda (_sym189160_) - (if (interned-symbol? _sym189160_) - _sym189160_ + (_add-lift!188944_ __tmp203657)) + _gid189097_))))) + (_serialize-mark188949_ + (lambda (_mark189039_) + (letrec ((_quote-e189041_ + (lambda (_sym189090_) + (if (interned-symbol? _sym189090_) + _sym189090_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym189160_)))))) - (let* ((_mark189112189121_ _mark189109_) - (_E189114189125_ + _sym189090_)))))) + (let* ((_mark189042189051_ _mark189039_) + (_E189044189055_ (lambda () (error '"No clause matching" - _mark189112189121_))) - (_K189115189137_ - (lambda (_trace189128_ - _phi189129_ - _ctx189130_ - _subst189131_) - (let* ((_subs189133_ - (if _subst189131_ + _mark189042189051_))) + (_K189045189067_ + (lambda (_trace189058_ + _phi189059_ + _ctx189060_ + _subst189061_) + (let* ((_subs189063_ + (if _subst189061_ (let () (declare (not safe)) - (table->list _subst189131_)) + (table->list _subst189061_)) '())) - (__tmp203735 - (map (lambda (_pair189135_) - (let ((__tmp203738 - (let ((__tmp203739 - (car _pair189135_))) + (__tmp203665 + (map (lambda (_pair189065_) + (let ((__tmp203668 + (let ((__tmp203669 + (car _pair189065_))) (declare (not safe)) - (_quote-e189111_ - __tmp203739))) - (__tmp203736 - (let ((__tmp203737 - (cdr _pair189135_))) + (_quote-e189041_ + __tmp203669))) + (__tmp203666 + (let ((__tmp203667 + (cdr _pair189065_))) (declare (not safe)) - (_quote-e189111_ - __tmp203737)))) + (_quote-e189041_ + __tmp203667)))) (declare (not safe)) - (cons __tmp203738 - __tmp203736))) - _subs189133_))) + (cons __tmp203668 + __tmp203666))) + _subs189063_))) (declare (not safe)) - (cons _phi189129_ __tmp203735))))) + (cons _phi189059_ __tmp203665))))) (if (let () (declare (not safe)) (##structure-instance-of? - _mark189112189121_ + _mark189042189051_ 'gx#expander-mark::t)) - (let* ((_e189116189140_ + (let* ((_e189046189070_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark189112189121_ + _mark189042189051_ '1 gx#expander-mark::t '#f))) - (_subst189143_ _e189116189140_) - (_e189117189145_ + (_subst189073_ _e189046189070_) + (_e189047189075_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark189112189121_ + _mark189042189051_ '2 gx#expander-mark::t '#f))) - (_ctx189148_ _e189117189145_) - (_e189118189150_ + (_ctx189078_ _e189047189075_) + (_e189048189080_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark189112189121_ + _mark189042189051_ '3 gx#expander-mark::t '#f))) - (_phi189153_ _e189118189150_) - (_e189119189155_ + (_phi189083_ _e189048189080_) + (_e189049189085_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark189112189121_ + _mark189042189051_ '4 gx#expander-mark::t '#f))) - (_trace189158_ _e189119189155_)) + (_trace189088_ _e189049189085_)) (declare (not safe)) - (_K189115189137_ - _trace189158_ - _phi189153_ - _ctx189148_ - _subst189143_)) + (_K189045189067_ + _trace189088_ + _phi189083_ + _ctx189078_ + _subst189073_)) (let () (declare (not safe)) - (_E189114189125_))))))) - (_context-ref189020_ - (lambda (_ctx189096_) - (if (let ((__tmp203747 + (_E189044189055_))))))) + (_context-ref188950_ + (lambda (_ctx189026_) + (if (let ((__tmp203677 (##structure-ref - _ctx189096_ + _ctx189026_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp203747 + __tmp203677 'gx#module-context::t)) - (let ((_ctx-ref189098_ + (let ((_ctx-ref189028_ (let () (declare (not safe)) - (_context-ref-nested189022_ _ctx189096_))) - (_ctx-origin189099_ + (_context-ref-nested188952_ _ctx189026_))) + (_ctx-origin189029_ (let () (declare (not safe)) - (_context-ref-origin189021_ _ctx189096_))) - (_origin189100_ - (let ((__tmp203741 + (_context-ref-origin188951_ _ctx189026_))) + (_origin189030_ + (let ((__tmp203671 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-origin189021_ __tmp203741)))) + (_context-ref-origin188951_ __tmp203671)))) (if (let () (declare (not safe)) - (eq? _origin189100_ _ctx-origin189099_)) - (let ((_ref189102_ - (let ((__tmp203742 + (eq? _origin189030_ _ctx-origin189029_)) + (let ((_ref189032_ + (let ((__tmp203672 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-nested189022_ - __tmp203742)))) - (let _lp189104_ ((_ref189106_ - (cdr _ref189102_)) - (_ctx-ref189107_ - (cdr _ctx-ref189098_))) + (_context-ref-nested188952_ + __tmp203672)))) + (let _lp189034_ ((_ref189036_ + (cdr _ref189032_)) + (_ctx-ref189037_ + (cdr _ctx-ref189028_))) (if (and (let () (declare (not safe)) - (pair? _ref189106_)) - (let ((__tmp203746 - (car _ref189106_)) - (__tmp203745 - (car _ctx-ref189107_))) + (pair? _ref189036_)) + (let ((__tmp203676 + (car _ref189036_)) + (__tmp203675 + (car _ctx-ref189037_))) (declare (not safe)) - (eq? __tmp203746 __tmp203745))) - (let ((__tmp203744 (cdr _ref189106_)) - (__tmp203743 - (cdr _ctx-ref189107_))) + (eq? __tmp203676 __tmp203675))) + (let ((__tmp203674 (cdr _ref189036_)) + (__tmp203673 + (cdr _ctx-ref189037_))) (declare (not safe)) - (_lp189104_ __tmp203744 __tmp203743)) + (_lp189034_ __tmp203674 __tmp203673)) (let () (declare (not safe)) - (cons '#f _ctx-ref189107_))))) - _ctx-ref189098_)) - (let ((__tmp203740 + (cons '#f _ctx-ref189037_))))) + _ctx-ref189028_)) + (let ((__tmp203670 (##structure-ref - _ctx189096_ + _ctx189026_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp203740))))) - (_context-ref-origin189021_ - (lambda (_ctx189088_) - (let _lp189090_ ((_ctx189092_ _ctx189088_)) - (let ((_super189094_ + (make-symbol__1 '":" __tmp203670))))) + (_context-ref-origin188951_ + (lambda (_ctx189018_) + (let _lp189020_ ((_ctx189022_ _ctx189018_)) + (let ((_super189024_ (##structure-ref - _ctx189092_ + _ctx189022_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super189094_ + _super189024_ 'gx#module-context::t)) (let () (declare (not safe)) - (_lp189090_ _super189094_)) - _ctx189092_))))) - (_context-ref-nested189022_ - (lambda (_ctx189079_) - (let _lp189081_ ((_ctx189083_ _ctx189079_) - (_r189084_ '())) - (let ((_super189086_ + (_lp189020_ _super189024_)) + _ctx189022_))))) + (_context-ref-nested188952_ + (lambda (_ctx189009_) + (let _lp189011_ ((_ctx189013_ _ctx189009_) + (_r189014_ '())) + (let ((_super189016_ (##structure-ref - _ctx189083_ + _ctx189013_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super189086_ + _super189016_ 'gx#module-context::t)) - (let ((__tmp203750 - (let ((__tmp203751 + (let ((__tmp203680 + (let ((__tmp203681 (car (##structure-ref - _ctx189083_ + _ctx189013_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp203751 _r189084_)))) + (cons __tmp203681 _r189014_)))) (declare (not safe)) - (_lp189081_ _super189086_ __tmp203750)) - (let ((__tmp203748 - (let ((__tmp203749 + (_lp189011_ _super189016_ __tmp203680)) + (let ((__tmp203678 + (let ((__tmp203679 (##structure-ref - _ctx189083_ + _ctx189013_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp203749)))) + (make-symbol__1 '":" __tmp203679)))) (declare (not safe)) - (cons __tmp203748 _r189084_)))))))) - (let* ((_g189024189037_ - (lambda (_g189025189034_) + (cons __tmp203678 _r189014_)))))))) + (let* ((_g188954188967_ + (lambda (_g188955188964_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g189025189034_)))) - (_g189023189076_ - (lambda (_g189025189040_) + _g188955188964_)))) + (_g188953189006_ + (lambda (_g188955188970_) (if (let () (declare (not safe)) - (gx#stx-pair? _g189025189040_)) - (let ((_e189029189042_ + (gx#stx-pair? _g188955188970_)) + (let ((_e188959188972_ (let () (declare (not safe)) - (gx#stx-e _g189025189040_)))) - (let ((_hd189028189045_ + (gx#stx-e _g188955188970_)))) + (let ((_hd188958188975_ (let () (declare (not safe)) - (##car _e189029189042_))) - (_tl189027189047_ + (##car _e188959188972_))) + (_tl188957188977_ (let () (declare (not safe)) - (##cdr _e189029189042_)))) + (##cdr _e188959188972_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189027189047_)) - (let ((_e189032189050_ + (gx#stx-pair? _tl188957188977_)) + (let ((_e188962188980_ (let () (declare (not safe)) - (gx#stx-e _tl189027189047_)))) - (let ((_hd189031189053_ + (gx#stx-e _tl188957188977_)))) + (let ((_hd188961188983_ (let () (declare (not safe)) - (##car _e189032189050_))) - (_tl189030189055_ + (##car _e188962188980_))) + (_tl188960188985_ (let () (declare (not safe)) - (##cdr _e189032189050_)))) + (##cdr _e188962188980_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl189030189055_)) - ((lambda (_L189058_) + (gx#stx-null? _tl188960188985_)) + ((lambda (_L188988_) (if (let () (declare (not safe)) - (gx#identifier? _L189058_)) - (let ((_$e189071_ - (let ((__tmp203752 + (gx#identifier? _L188988_)) + (let ((_$e189001_ + (let ((__tmp203682 (gxc#current-compile-identifiers))) (declare (not safe)) (table-ref - __tmp203752 - _L189058_ + __tmp203682 + _L188988_ '#f)))) - (if _$e189071_ - (values _$e189071_) - (let ((_marks189074_ + (if _$e189001_ + (values _$e189001_) + (let ((_marks189004_ (##direct-structure-ref - _L189058_ + _L188988_ '4 gx#syntax-quote::t '#f))) @@ -15999,2106 +15999,2106 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _marks189074_)) + (null? _marks189004_)) (let () (declare (not safe)) - (_generate-simple189016_ _L189058_)) + (_generate-simple188946_ _L188988_)) (let () (declare (not safe)) - (_generate-serialized189017_ - _L189058_ - _marks189074_)))))) + (_generate-serialized188947_ + _L188988_ + _marks189004_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _L189058_)))) - _hd189031189053_) + _L188988_)))) + _hd188961188983_) (let () (declare (not safe)) - (_g189024189037_ - _g189025189040_))))) + (_g188954188967_ + _g188955188970_))))) (let () (declare (not safe)) - (_g189024189037_ _g189025189040_))))) + (_g188954188967_ _g188955188970_))))) (let () (declare (not safe)) - (_g189024189037_ _g189025189040_)))))) + (_g188954188967_ _g188955188970_)))))) (declare (not safe)) - (_g189023189076_ _stx189012_))))) + (_g188953189006_ _stx188942_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_stx188945_) - (let* ((_g188947188964_ - (lambda (_g188948188961_) + (lambda (_stx188875_) + (let* ((_g188877188894_ + (lambda (_g188878188891_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g188948188961_)))) - (_g188946189009_ - (lambda (_g188948188967_) + _g188878188891_)))) + (_g188876188939_ + (lambda (_g188878188897_) (if (let () (declare (not safe)) - (gx#stx-pair? _g188948188967_)) - (let ((_e188953188969_ + (gx#stx-pair? _g188878188897_)) + (let ((_e188883188899_ (let () (declare (not safe)) - (gx#stx-e _g188948188967_)))) - (let ((_hd188952188972_ + (gx#stx-e _g188878188897_)))) + (let ((_hd188882188902_ (let () (declare (not safe)) - (##car _e188953188969_))) - (_tl188951188974_ + (##car _e188883188899_))) + (_tl188881188904_ (let () (declare (not safe)) - (##cdr _e188953188969_)))) + (##cdr _e188883188899_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl188951188974_)) - (let ((_e188956188977_ + (gx#stx-pair? _tl188881188904_)) + (let ((_e188886188907_ (let () (declare (not safe)) - (gx#stx-e _tl188951188974_)))) - (let ((_hd188955188980_ + (gx#stx-e _tl188881188904_)))) + (let ((_hd188885188910_ (let () (declare (not safe)) - (##car _e188956188977_))) - (_tl188954188982_ + (##car _e188886188907_))) + (_tl188884188912_ (let () (declare (not safe)) - (##cdr _e188956188977_)))) + (##cdr _e188886188907_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl188954188982_)) - (let ((_e188959188985_ + (gx#stx-pair? _tl188884188912_)) + (let ((_e188889188915_ (let () (declare (not safe)) - (gx#stx-e _tl188954188982_)))) - (let ((_hd188958188988_ + (gx#stx-e _tl188884188912_)))) + (let ((_hd188888188918_ (let () (declare (not safe)) - (##car _e188959188985_))) - (_tl188957188990_ + (##car _e188889188915_))) + (_tl188887188920_ (let () (declare (not safe)) - (##cdr _e188959188985_)))) + (##cdr _e188889188915_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl188957188990_)) - ((lambda (_L188993_ _L188994_) - (let ((__tmp203753 - (let ((__tmp203756 + _tl188887188920_)) + ((lambda (_L188923_ _L188924_) + (let ((__tmp203683 + (let ((__tmp203686 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L188994_))) - (__tmp203754 - (let ((__tmp203755 + (let () (declare (not safe)) (gx#stx-e _L188924_))) + (__tmp203684 + (let ((__tmp203685 (let () (declare (not safe)) - (gxc#compile-e__0 _L188993_)))) + (gxc#compile-e__0 _L188923_)))) (declare (not safe)) - (cons __tmp203755 '())))) + (cons __tmp203685 '())))) (declare (not safe)) - (cons __tmp203756 __tmp203754)))) + (cons __tmp203686 __tmp203684)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'define - __tmp203753))) - _hd188958188988_ - _hd188955188980_) + __tmp203683))) + _hd188888188918_ + _hd188885188910_) (let () (declare (not safe)) - (_g188947188964_ - _g188948188967_))))) + (_g188877188894_ + _g188878188897_))))) (let () (declare (not safe)) - (_g188947188964_ _g188948188967_))))) + (_g188877188894_ _g188878188897_))))) (let () (declare (not safe)) - (_g188947188964_ _g188948188967_))))) + (_g188877188894_ _g188878188897_))))) (let () (declare (not safe)) - (_g188947188964_ _g188948188967_)))))) + (_g188877188894_ _g188878188897_)))))) (declare (not safe)) - (_g188946189009_ _stx188945_)))) + (_g188876188939_ _stx188875_)))) (define gxc#generate-meta-begin% - (lambda (_stx188894_ _state188895_) - (let* ((_g188897188907_ - (lambda (_g188898188904_) + (lambda (_stx188824_ _state188825_) + (let* ((_g188827188837_ + (lambda (_g188828188834_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g188898188904_)))) - (_g188896188942_ - (lambda (_g188898188910_) + _g188828188834_)))) + (_g188826188872_ + (lambda (_g188828188840_) (if (let () (declare (not safe)) - (gx#stx-pair? _g188898188910_)) - (let ((_e188902188912_ + (gx#stx-pair? _g188828188840_)) + (let ((_e188832188842_ (let () (declare (not safe)) - (gx#stx-e _g188898188910_)))) - (let ((_hd188901188915_ + (gx#stx-e _g188828188840_)))) + (let ((_hd188831188845_ (let () (declare (not safe)) - (##car _e188902188912_))) - (_tl188900188917_ + (##car _e188832188842_))) + (_tl188830188847_ (let () (declare (not safe)) - (##cdr _e188902188912_)))) - ((lambda (_L188920_) - (let* ((_c-body188934_ - (map (lambda (_g188929188931_) + (##cdr _e188832188842_)))) + ((lambda (_L188850_) + (let* ((_c-body188864_ + (map (lambda (_g188859188861_) (let () (declare (not safe)) (gxc#compile-e__1 - _g188929188931_ - _state188895_))) - _L188920_)) - (_c-body188939_ - (let ((__tmp203757 - (lambda (_$obj188936_) - (let ((__tmp203758 + _g188859188861_ + _state188825_))) + _L188850_)) + (_c-body188869_ + (let ((__tmp203687 + (lambda (_$obj188866_) + (let ((__tmp203688 (let () (declare (not safe)) - (eq? _$obj188936_ + (eq? _$obj188866_ '#!void)))) (declare (not safe)) - (not __tmp203758))))) + (not __tmp203688))))) (declare (not safe)) - (filter __tmp203757 _c-body188934_)))) + (filter __tmp203687 _c-body188864_)))) (let () (declare (not safe)) - (cons '%#begin _c-body188939_)))) - _tl188900188917_))) + (cons '%#begin _c-body188869_)))) + _tl188830188847_))) (let () (declare (not safe)) - (_g188897188907_ _g188898188910_)))))) + (_g188827188837_ _g188828188840_)))))) (declare (not safe)) - (_g188896188942_ _stx188894_)))) + (_g188826188872_ _stx188824_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_stx188802_ _state188803_) - (let* ((_g188805188815_ - (lambda (_g188806188812_) + (lambda (_stx188732_ _state188733_) + (let* ((_g188735188745_ + (lambda (_g188736188742_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g188806188812_)))) - (_g188804188891_ - (lambda (_g188806188818_) + _g188736188742_)))) + (_g188734188821_ + (lambda (_g188736188748_) (if (let () (declare (not safe)) - (gx#stx-pair? _g188806188818_)) - (let ((_e188810188820_ + (gx#stx-pair? _g188736188748_)) + (let ((_e188740188750_ (let () (declare (not safe)) - (gx#stx-e _g188806188818_)))) - (let ((_hd188809188823_ + (gx#stx-e _g188736188748_)))) + (let ((_hd188739188753_ (let () (declare (not safe)) - (##car _e188810188820_))) - (_tl188808188825_ + (##car _e188740188750_))) + (_tl188738188755_ (let () (declare (not safe)) - (##cdr _e188810188820_)))) - ((lambda (_L188828_) - (let* ((_phi188838_ - (let ((__tmp203759 + (##cdr _e188740188750_)))) + ((lambda (_L188758_) + (let* ((_phi188768_ + (let ((__tmp203689 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp203759 '1))) - (_block188840_ + (fx+ __tmp203689 '1))) + (_block188770_ (let () (declare (not safe)) (gxc#meta-state-begin-phi! - _state188803_ - _phi188838_))) - (_compiled188843_ - (let ((__tmp203760 + _state188733_ + _phi188768_))) + (_compiled188773_ + (let ((__tmp203690 (lambda () - (let ((__tmp203761 - (let ((__tmp203762 + (let ((__tmp203691 + (let ((__tmp203692 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)))) (declare (not safe)) - (cons __tmp203762 _L188828_)))) + (cons __tmp203692 _L188758_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#apply-generate-meta-phi - __tmp203761 - _state188803_))))) + __tmp203691 + _state188733_))))) (declare (not safe)) (call-with-parameters - __tmp203760 + __tmp203690 gx#current-expander-phi - _phi188838_)))) - (let* ((_g188846188856_ - (lambda (_g188847188853_) + _phi188768_)))) + (let* ((_g188776188786_ + (lambda (_g188777188783_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g188847188853_)))) - (_g188845188888_ - (lambda (_g188847188859_) + _g188777188783_)))) + (_g188775188818_ + (lambda (_g188777188789_) (if (let () (declare (not safe)) (gx#stx-pair? - _g188847188859_)) - (let ((_e188851188861_ + _g188777188789_)) + (let ((_e188781188791_ (let () (declare (not safe)) (gx#stx-e - _g188847188859_)))) - (let ((_hd188850188864_ + _g188777188789_)))) + (let ((_hd188780188794_ (let () (declare (not safe)) - (##car _e188851188861_))) - (_tl188849188866_ + (##car _e188781188791_))) + (_tl188779188796_ (let () (declare (not safe)) - (##cdr _e188851188861_)))) + (##cdr _e188781188791_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd188850188864_)) + _hd188780188794_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _hd188850188864_)) - ((lambda (_L188869_) - (let ((_c-body188886_ + _hd188780188794_)) + ((lambda (_L188799_) + (let ((_c-body188816_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203763 - (lambda (_$obj188883_) - (let ((__tmp203764 + (let ((__tmp203693 + (lambda (_$obj188813_) + (let ((__tmp203694 (let () (declare (not safe)) - (eq? _$obj188883_ '#!void)))) + (eq? _$obj188813_ '#!void)))) (declare (not safe)) - (not __tmp203764))))) + (not __tmp203694))))) (declare (not safe)) - (filter __tmp203763 _L188869_)))) - (if _block188840_ - (let ((__tmp203765 - (let ((__tmp203766 - (let ((__tmp203767 - (let ((__tmp203771 - (let ((__tmp203772 + (filter __tmp203693 _L188799_)))) + (if _block188770_ + (let ((__tmp203695 + (let ((__tmp203696 + (let ((__tmp203697 + (let ((__tmp203701 + (let ((__tmp203702 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp203772))) - (__tmp203768 - (let ((__tmp203769 - (let ((__tmp203770 + (cons '%#ref __tmp203702))) + (__tmp203698 + (let ((__tmp203699 + (let ((__tmp203700 (let () (declare (not safe)) - (cons _block188840_ '())))) + (cons _block188770_ '())))) (declare (not safe)) - (cons '%#quote __tmp203770)))) + (cons '%#quote __tmp203700)))) (declare (not safe)) - (cons __tmp203769 '())))) + (cons __tmp203699 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203771 - __tmp203768)))) + (cons __tmp203701 + __tmp203698)))) (declare (not safe)) - (cons '%#call __tmp203767)))) + (cons '%#call __tmp203697)))) (declare (not safe)) - (cons __tmp203766 _c-body188886_)))) + (cons __tmp203696 _c-body188816_)))) (declare (not safe)) - (cons '%#begin-syntax __tmp203765)) + (cons '%#begin-syntax __tmp203695)) (if (let () (declare (not safe)) - (null? _c-body188886_)) + (null? _c-body188816_)) '#!void (let () (declare (not safe)) - (cons '%#begin-syntax _c-body188886_)))))) - _tl188849188866_) + (cons '%#begin-syntax _c-body188816_)))))) + _tl188779188796_) (let () (declare (not safe)) - (_g188846188856_ _g188847188859_))) + (_g188776188786_ _g188777188789_))) (let () (declare (not safe)) - (_g188846188856_ _g188847188859_))))) + (_g188776188786_ _g188777188789_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g188846188856_ - _g188847188859_)))))) + (_g188776188786_ + _g188777188789_)))))) (declare (not safe)) - (_g188845188888_ _compiled188843_)))) - _tl188808188825_))) + (_g188775188818_ _compiled188773_)))) + _tl188738188755_))) (let () (declare (not safe)) - (_g188805188815_ _g188806188818_)))))) + (_g188735188745_ _g188736188748_)))))) (declare (not safe)) - (_g188804188891_ _stx188802_)))) + (_g188734188821_ _stx188732_)))) (define gxc#generate-meta-module% - (lambda (_stx188733_ _state188734_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state188734_)) - (let* ((_g188736188750_ - (lambda (_g188737188747_) + (lambda (_stx188663_ _state188664_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state188664_)) + (let* ((_g188666188680_ + (lambda (_g188667188677_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g188737188747_)))) - (_g188735188799_ - (lambda (_g188737188753_) + _g188667188677_)))) + (_g188665188729_ + (lambda (_g188667188683_) (if (let () (declare (not safe)) - (gx#stx-pair? _g188737188753_)) - (let ((_e188742188755_ + (gx#stx-pair? _g188667188683_)) + (let ((_e188672188685_ (let () (declare (not safe)) - (gx#stx-e _g188737188753_)))) - (let ((_hd188741188758_ + (gx#stx-e _g188667188683_)))) + (let ((_hd188671188688_ (let () (declare (not safe)) - (##car _e188742188755_))) - (_tl188740188760_ + (##car _e188672188685_))) + (_tl188670188690_ (let () (declare (not safe)) - (##cdr _e188742188755_)))) + (##cdr _e188672188685_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl188740188760_)) - (let ((_e188745188763_ + (gx#stx-pair? _tl188670188690_)) + (let ((_e188675188693_ (let () (declare (not safe)) - (gx#stx-e _tl188740188760_)))) - (let ((_hd188744188766_ + (gx#stx-e _tl188670188690_)))) + (let ((_hd188674188696_ (let () (declare (not safe)) - (##car _e188745188763_))) - (_tl188743188768_ + (##car _e188675188693_))) + (_tl188673188698_ (let () (declare (not safe)) - (##cdr _e188745188763_)))) - ((lambda (_L188771_ _L188772_) - (let ((_key188785_ + (##cdr _e188675188693_)))) + ((lambda (_L188701_ _L188702_) + (let ((_key188715_ (let () (declare (not safe)) (gx#core-identifier-key - _L188772_)))) - (if (interned-symbol? _key188785_) + _L188702_)))) + (if (interned-symbol? _key188715_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _stx188733_ - _L188772_ - _key188785_))) - (let* ((_ctx188787_ + _stx188663_ + _L188702_ + _key188715_))) + (let* ((_ctx188717_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L188772_))) - (_code188790_ - (let ((__tmp203773 + _L188702_))) + (_code188720_ + (let ((__tmp203703 (lambda () - (let ((__tmp203774 + (let ((__tmp203704 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _ctx188787_ + _ctx188717_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#compile-e__1 __tmp203774 _state188734_))))) + (gxc#compile-e__1 __tmp203704 _state188664_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp203773 + __tmp203703 gx#current-expander-context - _ctx188787_))) - (_rt188792_ - (let ((__tmp203775 + _ctx188717_))) + (_rt188722_ + (let ((__tmp203705 (gxc#current-compile-runtime-sections))) (declare (not safe)) (table-ref - __tmp203775 - _ctx188787_ + __tmp203705 + _ctx188717_ '#f))) - (_loader188794_ - (if _rt188792_ - (let ((__tmp203776 - (let ((__tmp203777 + (_loader188724_ + (if _rt188722_ + (let ((__tmp203706 + (let ((__tmp203707 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203781 - (let ((__tmp203782 + (let ((__tmp203711 + (let ((__tmp203712 (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp203782))) - (__tmp203778 - (let ((__tmp203779 - (let ((__tmp203780 + (cons '%#ref __tmp203712))) + (__tmp203708 + (let ((__tmp203709 + (let ((__tmp203710 (let () (declare (not safe)) - (cons _rt188792_ '())))) + (cons _rt188722_ '())))) (declare (not safe)) - (cons '%#quote __tmp203780)))) + (cons '%#quote __tmp203710)))) (declare (not safe)) - (cons __tmp203779 '())))) + (cons __tmp203709 '())))) (declare (not safe)) - (cons __tmp203781 __tmp203778)))) + (cons __tmp203711 __tmp203708)))) (declare (not safe)) - (cons '%#call __tmp203777)))) + (cons '%#call __tmp203707)))) (declare (not safe)) - (cons __tmp203776 '())) + (cons __tmp203706 '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_modid188796_ + (_modid188726_ (let () (declare (not safe)) - (gx#stx-e _L188772_)))) + (gx#stx-e _L188702_)))) (let () (declare (not safe)) (gxc#meta-state-end-phi! - _state188734_)) - (let ((__tmp203783 - (let ((__tmp203784 + _state188664_)) + (let ((__tmp203713 + (let ((__tmp203714 (let () (declare (not safe)) - (cons _code188790_ + (cons _code188720_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _loader188794_)))) + _loader188724_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _modid188796_ - __tmp203784)))) + (cons _modid188726_ + __tmp203714)))) (declare (not safe)) - (cons '%#module __tmp203783))))) - _tl188743188768_ - _hd188744188766_))) + (cons '%#module __tmp203713))))) + _tl188673188698_ + _hd188674188696_))) (let () (declare (not safe)) - (_g188736188750_ _g188737188753_))))) + (_g188666188680_ _g188667188683_))))) (let () (declare (not safe)) - (_g188736188750_ _g188737188753_)))))) + (_g188666188680_ _g188667188683_)))))) (declare (not safe)) - (_g188735188799_ _stx188733_)))) + (_g188665188729_ _stx188663_)))) (define gxc#generate-meta-import-path - (lambda (_ctx188723_ _context-chain188724_) - (let _lp188726_ ((_ctx188728_ _ctx188723_) (_path188729_ '())) - (let ((_super188731_ - (##structure-ref _ctx188728_ '3 gx#phi-context::t '#f))) - (if (memq _super188731_ _context-chain188724_) - (let ((__tmp203789 - (let ((__tmp203790 + (lambda (_ctx188653_ _context-chain188654_) + (let _lp188656_ ((_ctx188658_ _ctx188653_) (_path188659_ '())) + (let ((_super188661_ + (##structure-ref _ctx188658_ '3 gx#phi-context::t '#f))) + (if (memq _super188661_ _context-chain188654_) + (let ((__tmp203719 + (let ((__tmp203720 (car (##structure-ref - _ctx188728_ + _ctx188658_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp203790 _path188729_)))) + (cons __tmp203720 _path188659_)))) (declare (not safe)) - (cons '#f __tmp203789)) + (cons '#f __tmp203719)) (if (let () (declare (not safe)) (##structure-instance-of? - _super188731_ + _super188661_ 'gx#module-context::t)) - (let ((__tmp203787 - (let ((__tmp203788 + (let ((__tmp203717 + (let ((__tmp203718 (car (##structure-ref - _ctx188728_ + _ctx188658_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp203788 _path188729_)))) + (cons __tmp203718 _path188659_)))) (declare (not safe)) - (_lp188726_ _super188731_ __tmp203787)) - (let ((__tmp203785 - (let ((__tmp203786 + (_lp188656_ _super188661_ __tmp203717)) + (let ((__tmp203715 + (let ((__tmp203716 (##structure-ref - _ctx188728_ + _ctx188658_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp203786)))) + (make-symbol__1 '":" __tmp203716)))) (declare (not safe)) - (cons __tmp203785 _path188729_)))))))) + (cons __tmp203715 _path188659_)))))))) (define gxc#current-context-chain (lambda () - (let _lp188718_ ((_ctx188720_ (gx#current-expander-context)) - (_r188721_ '())) + (let _lp188648_ ((_ctx188650_ (gx#current-expander-context)) + (_r188651_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _ctx188720_ 'gx#module-context::t)) - (let ((__tmp203792 - (##structure-ref _ctx188720_ '3 gx#phi-context::t '#f)) - (__tmp203791 + (##structure-instance-of? _ctx188650_ 'gx#module-context::t)) + (let ((__tmp203722 + (##structure-ref _ctx188650_ '3 gx#phi-context::t '#f)) + (__tmp203721 (let () (declare (not safe)) - (cons _ctx188720_ _r188721_)))) + (cons _ctx188650_ _r188651_)))) (declare (not safe)) - (_lp188718_ __tmp203792 __tmp203791)) - _r188721_)))) + (_lp188648_ __tmp203722 __tmp203721)) + _r188651_)))) (define gxc#generate-meta-import% - (lambda (_stx188487_ _state188488_) - (letrec* ((_context-chain188490_ + (lambda (_stx188417_ _state188418_) + (letrec* ((_context-chain188420_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-spec188491_ - (lambda (_in188654_) - (let* ((_in188655188667_ _in188654_) - (_E188657188671_ + (_make-import-spec188421_ + (lambda (_in188584_) + (let* ((_in188585188597_ _in188584_) + (_E188587188601_ (lambda () (error '"No clause matching" - _in188655188667_))) - (_K188658188681_ - (lambda (_phi188674_ - _name188675_ - _src-name188676_ - _src-phi188677_ - _src-key188678_ - _src-ctx188679_) - (let ((__tmp203793 - (let ((__tmp203797 + _in188585188597_))) + (_K188588188611_ + (lambda (_phi188604_ + _name188605_ + _src-name188606_ + _src-phi188607_ + _src-key188608_ + _src-ctx188609_) + (let ((__tmp203723 + (let ((__tmp203727 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name188675_))) - (__tmp203794 - (let ((__tmp203795 - (let ((__tmp203796 + _name188605_))) + (__tmp203724 + (let ((__tmp203725 + (let ((__tmp203726 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#generate-runtime-identifier-key - _src-name188676_)))) + _src-name188606_)))) (declare (not safe)) - (cons __tmp203796 '())))) + (cons __tmp203726 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _src-phi188677_ - __tmp203795)))) + (cons _src-phi188607_ + __tmp203725)))) (declare (not safe)) - (cons __tmp203797 __tmp203794)))) + (cons __tmp203727 __tmp203724)))) (declare (not safe)) - (cons _phi188674_ __tmp203793))))) + (cons _phi188604_ __tmp203723))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in188655188667_ + _in188585188597_ 'gx#module-import::t)) - (let ((_e188659188684_ + (let ((_e188589188614_ (let () (declare (not safe)) (##unchecked-structure-ref - _in188655188667_ + _in188585188597_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e188659188684_ + _e188589188614_ 'gx#module-export::t)) - (let* ((_e188662188687_ + (let* ((_e188592188617_ (let () (declare (not safe)) (##unchecked-structure-ref - _e188659188684_ + _e188589188614_ '1 gx#module-export::t '#f))) - (_src-ctx188690_ _e188662188687_) - (_e188663188692_ + (_src-ctx188620_ _e188592188617_) + (_e188593188622_ (let () (declare (not safe)) (##unchecked-structure-ref - _e188659188684_ + _e188589188614_ '2 gx#module-export::t '#f))) - (_src-key188695_ _e188663188692_) - (_e188664188697_ + (_src-key188625_ _e188593188622_) + (_e188594188627_ (let () (declare (not safe)) (##unchecked-structure-ref - _e188659188684_ + _e188589188614_ '3 gx#module-export::t '#f))) - (_src-phi188700_ _e188664188697_) - (_e188665188702_ + (_src-phi188630_ _e188594188627_) + (_e188595188632_ (let () (declare (not safe)) (##unchecked-structure-ref - _e188659188684_ + _e188589188614_ '4 gx#module-export::t '#f))) - (_src-name188705_ _e188665188702_) - (_e188660188707_ + (_src-name188635_ _e188595188632_) + (_e188590188637_ (let () (declare (not safe)) (##unchecked-structure-ref - _in188655188667_ + _in188585188597_ '2 gx#module-import::t '#f))) - (_name188710_ _e188660188707_) - (_e188661188712_ + (_name188640_ _e188590188637_) + (_e188591188642_ (let () (declare (not safe)) (##unchecked-structure-ref - _in188655188667_ + _in188585188597_ '3 gx#module-import::t '#f))) - (_phi188715_ _e188661188712_)) + (_phi188645_ _e188591188642_)) (declare (not safe)) - (_K188658188681_ - _phi188715_ - _name188710_ - _src-name188705_ - _src-phi188700_ - _src-key188695_ - _src-ctx188690_)) + (_K188588188611_ + _phi188645_ + _name188640_ + _src-name188635_ + _src-phi188630_ + _src-key188625_ + _src-ctx188620_)) (let () (declare (not safe)) - (_E188657188671_)))) + (_E188587188601_)))) (let () (declare (not safe)) - (_E188657188671_)))))) - (_make-import-path188492_ - (lambda (_ctx188652_) + (_E188587188601_)))))) + (_make-import-path188422_ + (lambda (_ctx188582_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx188652_ - _context-chain188490_)))) - (_make-import-spec-in188493_ - (lambda (_ctx188649_ _in188650_) - (let ((__tmp203798 - (let ((__tmp203800 + _ctx188582_ + _context-chain188420_)))) + (_make-import-spec-in188423_ + (lambda (_ctx188579_ _in188580_) + (let ((__tmp203728 + (let ((__tmp203730 (let () (declare (not safe)) - (_make-import-path188492_ _ctx188649_))) - (__tmp203799 (reverse _in188650_))) + (_make-import-path188422_ _ctx188579_))) + (__tmp203729 (reverse _in188580_))) (declare (not safe)) - (cons __tmp203800 __tmp203799)))) + (cons __tmp203730 __tmp203729)))) (declare (not safe)) - (cons 'spec: __tmp203798))))) + (cons 'spec: __tmp203728))))) (let () (declare (not safe)) - (gxc#meta-state-end-phi! _state188488_)) - (let* ((_g188495188505_ - (lambda (_g188496188502_) + (gxc#meta-state-end-phi! _state188418_)) + (let* ((_g188425188435_ + (lambda (_g188426188432_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g188496188502_)))) - (_g188494188646_ - (lambda (_g188496188508_) + _g188426188432_)))) + (_g188424188576_ + (lambda (_g188426188438_) (if (let () (declare (not safe)) - (gx#stx-pair? _g188496188508_)) - (let ((_e188500188510_ + (gx#stx-pair? _g188426188438_)) + (let ((_e188430188440_ (let () (declare (not safe)) - (gx#stx-e _g188496188508_)))) - (let ((_hd188499188513_ + (gx#stx-e _g188426188438_)))) + (let ((_hd188429188443_ (let () (declare (not safe)) - (##car _e188500188510_))) - (_tl188498188515_ + (##car _e188430188440_))) + (_tl188428188445_ (let () (declare (not safe)) - (##cdr _e188500188510_)))) - ((lambda (_L188518_) - (let _lp188529_ ((_rest188531_ _L188518_) - (_current-src188532_ '#f) - (_current-in188533_ '()) - (_r188534_ '())) - (let* ((_rest188535188543_ _rest188531_) - (_else188537188553_ + (##cdr _e188430188440_)))) + ((lambda (_L188448_) + (let _lp188459_ ((_rest188461_ _L188448_) + (_current-src188462_ '#f) + (_current-in188463_ '()) + (_r188464_ '())) + (let* ((_rest188465188473_ _rest188461_) + (_else188467188483_ (lambda () - (let* ((_r188551_ - (if _current-src188532_ - (let ((__tmp203801 + (let* ((_r188481_ + (if _current-src188462_ + (let ((__tmp203731 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_make-import-spec-in188493_ - _current-src188532_ - _current-in188533_)))) + (_make-import-spec-in188423_ + _current-src188462_ + _current-in188463_)))) (declare (not safe)) - (cons __tmp203801 _r188534_)) - _r188534_)) + (cons __tmp203731 _r188464_)) + _r188464_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp203802 - (reverse _r188551_))) + (__tmp203732 + (reverse _r188481_))) (declare (not safe)) - (cons '%#import __tmp203802)))) - (_K188539188634_ - (lambda (_rest188556_ _in188557_) + (cons '%#import __tmp203732)))) + (_K188469188564_ + (lambda (_rest188486_ _in188487_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in188557_ + _in188487_ 'gx#module-import::t)) - (let* ((_in188558188565_ - _in188557_) - (_E188560188569_ + (let* ((_in188488188495_ + _in188487_) + (_E188490188499_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in188558188565_))) - (_K188561188574_ - (lambda (_src-ctx188572_) + _in188488188495_))) + (_K188491188504_ + (lambda (_src-ctx188502_) (if (let () (declare (not safe)) - (eq? _current-src188532_ _src-ctx188572_)) - (let ((__tmp203818 - (let ((__tmp203819 + (eq? _current-src188462_ _src-ctx188502_)) + (let ((__tmp203748 + (let ((__tmp203749 (let () (declare (not safe)) - (_make-import-spec188491_ _in188557_)))) + (_make-import-spec188421_ _in188487_)))) (declare (not safe)) - (cons __tmp203819 _current-in188533_)))) + (cons __tmp203749 _current-in188463_)))) (declare (not safe)) - (_lp188529_ - _rest188556_ - _current-src188532_ - __tmp203818 - _r188534_)) - (if _current-src188532_ - (let ((__tmp203816 - (let ((__tmp203817 + (_lp188459_ + _rest188486_ + _current-src188462_ + __tmp203748 + _r188464_)) + (if _current-src188462_ + (let ((__tmp203746 + (let ((__tmp203747 (let () (declare (not safe)) - (_make-import-spec188491_ - _in188557_)))) + (_make-import-spec188421_ + _in188487_)))) (declare (not safe)) - (cons __tmp203817 '()))) - (__tmp203814 - (let ((__tmp203815 + (cons __tmp203747 '()))) + (__tmp203744 + (let ((__tmp203745 (let () (declare (not safe)) - (_make-import-spec-in188493_ - _current-src188532_ - _current-in188533_)))) + (_make-import-spec-in188423_ + _current-src188462_ + _current-in188463_)))) (declare (not safe)) - (cons __tmp203815 _r188534_)))) + (cons __tmp203745 _r188464_)))) (declare (not safe)) - (_lp188529_ - _rest188556_ - _src-ctx188572_ - __tmp203816 - __tmp203814)) - (let ((__tmp203812 - (let ((__tmp203813 + (_lp188459_ + _rest188486_ + _src-ctx188502_ + __tmp203746 + __tmp203744)) + (let ((__tmp203742 + (let ((__tmp203743 (let () (declare (not safe)) - (_make-import-spec188491_ - _in188557_)))) + (_make-import-spec188421_ + _in188487_)))) (declare (not safe)) - (cons __tmp203813 '())))) + (cons __tmp203743 '())))) (declare (not safe)) - (_lp188529_ - _rest188556_ - _src-ctx188572_ - __tmp203812 - _r188534_))))))) + (_lp188459_ + _rest188486_ + _src-ctx188502_ + __tmp203742 + _r188464_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in188558188565_ + _in188488188495_ 'gx#module-import::t)) - (let ((_e188562188577_ + (let ((_e188492188507_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _in188558188565_ + _in188488188495_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e188562188577_ + _e188492188507_ 'gx#module-export::t)) - (let* ((_e188563188580_ + (let* ((_e188493188510_ (let () (declare (not safe)) (##unchecked-structure-ref - _e188562188577_ + _e188492188507_ '1 gx#module-export::t '#f))) - (_src-ctx188583_ _e188563188580_)) + (_src-ctx188513_ _e188493188510_)) (declare (not safe)) - (_K188561188574_ _src-ctx188583_)) - (let () (declare (not safe)) (_E188560188569_)))) - (let () (declare (not safe)) (_E188560188569_)))) + (_K188491188504_ _src-ctx188513_)) + (let () (declare (not safe)) (_E188490188499_)))) + (let () (declare (not safe)) (_E188490188499_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in188557_ + _in188487_ 'gx#import-set::t)) - (let* ((_phi188585_ + (let* ((_phi188515_ (##direct-structure-ref - _in188557_ + _in188487_ '2 gx#import-set::t '#f)) - (_src188587_ + (_src188517_ (##direct-structure-ref - _in188557_ + _in188487_ '1 gx#import-set::t '#f)) - (_src-in188627_ - (let* ((_g188588188597_ + (_src-in188557_ + (let* ((_g188518188527_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_make-import-path188492_ _src188587_))) - (_E188591188601_ + (_make-import-path188422_ _src188517_))) + (_E188521188531_ (lambda () - (error '"No clause matching" _g188588188597_)))) - (let ((_K188593188617_ - (lambda (_path188615_) _path188615_)) - (_K188592188607_ - (lambda (_path188605_) + (error '"No clause matching" _g188518188527_)))) + (let ((_K188523188547_ + (lambda (_path188545_) _path188545_)) + (_K188522188537_ + (lambda (_path188535_) (let () (declare (not safe)) - (cons 'in: _path188605_))))) + (cons 'in: _path188535_))))) (if (let () (declare (not safe)) - (##pair? _g188588188597_)) - (let ((_tl188595188622_ + (##pair? _g188518188527_)) + (let ((_tl188525188552_ (let () (declare (not safe)) - (##cdr _g188588188597_))) - (_hd188594188620_ + (##cdr _g188518188527_))) + (_hd188524188550_ (let () (declare (not safe)) - (##car _g188588188597_)))) + (##car _g188518188527_)))) (if (let () (declare (not safe)) - (##null? _tl188595188622_)) - (let ((_path188625_ _hd188594188620_)) + (##null? _tl188525188552_)) + (let ((_path188555_ _hd188524188550_)) (declare (not safe)) - (_K188593188617_ _path188625_)) - (let ((_path188610_ _g188588188597_)) + (_K188523188547_ _path188555_)) + (let ((_path188540_ _g188518188527_)) (declare (not safe)) - (_K188592188607_ _path188610_)))) - (let ((_path188610_ _g188588188597_)) + (_K188522188537_ _path188540_)))) + (let ((_path188540_ _g188518188527_)) (declare (not safe)) - (_K188592188607_ _path188610_)))))) - (_r188629_ - (if _current-src188532_ - (let ((__tmp203807 + (_K188522188537_ _path188540_)))))) + (_r188559_ + (if _current-src188462_ + (let ((__tmp203737 (let () (declare (not safe)) - (_make-import-spec-in188493_ - _current-src188532_ - _current-in188533_)))) + (_make-import-spec-in188423_ + _current-src188462_ + _current-in188463_)))) (declare (not safe)) - (cons __tmp203807 _r188534_)) - _r188534_))) - (let ((__tmp203808 - (let ((__tmp203809 + (cons __tmp203737 _r188464_)) + _r188464_))) + (let ((__tmp203738 + (let ((__tmp203739 (if (let () (declare (not safe)) - (fxzero? _phi188585_)) - _src-in188627_ - (let ((__tmp203810 - (let ((__tmp203811 + (fxzero? _phi188515_)) + _src-in188557_ + (let ((__tmp203740 + (let ((__tmp203741 (let () (declare (not safe)) - (cons _src-in188627_ '())))) + (cons _src-in188557_ '())))) (declare (not safe)) - (cons _phi188585_ __tmp203811)))) + (cons _phi188515_ __tmp203741)))) (declare (not safe)) - (cons 'phi: __tmp203810))))) + (cons 'phi: __tmp203740))))) (declare (not safe)) - (cons __tmp203809 _r188629_)))) + (cons __tmp203739 _r188559_)))) (declare (not safe)) - (_lp188529_ _rest188556_ '#f '() __tmp203808))) + (_lp188459_ _rest188486_ '#f '() __tmp203738))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _in188557_ + _in188487_ 'gx#module-context::t)) - (let* ((_r188632_ + (let* ((_r188562_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _current-src188532_ - (let ((__tmp203803 + (if _current-src188462_ + (let ((__tmp203733 (let () (declare (not safe)) - (_make-import-spec-in188493_ - _current-src188532_ - _current-in188533_)))) + (_make-import-spec-in188423_ + _current-src188462_ + _current-in188463_)))) (declare (not safe)) - (cons __tmp203803 _r188534_)) - _r188534_)) - (__tmp203804 - (let ((__tmp203805 - (let ((__tmp203806 + (cons __tmp203733 _r188464_)) + _r188464_)) + (__tmp203734 + (let ((__tmp203735 + (let ((__tmp203736 (let () (declare (not safe)) - (_make-import-path188492_ - _in188557_)))) + (_make-import-path188422_ + _in188487_)))) (declare (not safe)) - (cons 'runtime: __tmp203806)))) + (cons 'runtime: __tmp203736)))) (declare (not safe)) - (cons __tmp203805 _r188632_)))) + (cons __tmp203735 _r188562_)))) (declare (not safe)) - (_lp188529_ _rest188556_ '#f '() __tmp203804)) + (_lp188459_ _rest188486_ '#f '() __tmp203734)) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest188535188543_)) - (let ((_hd188540188637_ + (##pair? _rest188465188473_)) + (let ((_hd188470188567_ (let () (declare (not safe)) - (##car _rest188535188543_))) - (_tl188541188639_ + (##car _rest188465188473_))) + (_tl188471188569_ (let () (declare (not safe)) - (##cdr _rest188535188543_)))) - (let* ((_in188642_ _hd188540188637_) - (_rest188644_ - _tl188541188639_)) + (##cdr _rest188465188473_)))) + (let* ((_in188572_ _hd188470188567_) + (_rest188574_ + _tl188471188569_)) (declare (not safe)) - (_K188539188634_ - _rest188644_ - _in188642_))) + (_K188469188564_ + _rest188574_ + _in188572_))) (let () (declare (not safe)) - (_else188537188553_)))))) - _tl188498188515_))) + (_else188467188483_)))))) + _tl188428188445_))) (let () (declare (not safe)) - (_g188495188505_ _g188496188508_)))))) + (_g188425188435_ _g188426188438_)))))) (declare (not safe)) - (_g188494188646_ _stx188487_))))) + (_g188424188576_ _stx188417_))))) (define gxc#generate-meta-export% - (lambda (_stx188297_ _state188298_) - (letrec* ((_context-chain188300_ + (lambda (_stx188227_ _state188228_) + (letrec* ((_context-chain188230_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-path188301_ - (lambda (_ctx188485_) + (_make-import-path188231_ + (lambda (_ctx188415_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx188485_ - _context-chain188300_))))) - (let* ((_g188303188313_ - (lambda (_g188304188310_) + _ctx188415_ + _context-chain188230_))))) + (let* ((_g188233188243_ + (lambda (_g188234188240_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g188304188310_)))) - (_g188302188482_ - (lambda (_g188304188316_) + _g188234188240_)))) + (_g188232188412_ + (lambda (_g188234188246_) (if (let () (declare (not safe)) - (gx#stx-pair? _g188304188316_)) - (let ((_e188308188318_ + (gx#stx-pair? _g188234188246_)) + (let ((_e188238188248_ (let () (declare (not safe)) - (gx#stx-e _g188304188316_)))) - (let ((_hd188307188321_ + (gx#stx-e _g188234188246_)))) + (let ((_hd188237188251_ (let () (declare (not safe)) - (##car _e188308188318_))) - (_tl188306188323_ + (##car _e188238188248_))) + (_tl188236188253_ (let () (declare (not safe)) - (##cdr _e188308188318_)))) - ((lambda (_L188326_) - (let _lp188337_ ((_rest188339_ _L188326_) - (_r188340_ '())) - (let* ((_rest188341188349_ _rest188339_) - (_else188343188357_ + (##cdr _e188238188248_)))) + ((lambda (_L188256_) + (let _lp188267_ ((_rest188269_ _L188256_) + (_r188270_ '())) + (let* ((_rest188271188279_ _rest188269_) + (_else188273188287_ (lambda () - (let ((__tmp203820 - (reverse _r188340_))) + (let ((__tmp203750 + (reverse _r188270_))) (declare (not safe)) - (cons '%#export __tmp203820)))) - (_K188345188470_ - (lambda (_rest188360_ _out188361_) - (let* ((_out188362188375_ - _out188361_) - (_E188365188379_ + (cons '%#export __tmp203750)))) + (_K188275188400_ + (lambda (_rest188290_ _out188291_) + (let* ((_out188292188305_ + _out188291_) + (_E188295188309_ (lambda () (error '"No clause matching" - _out188362188375_)))) - (let ((_K188369188449_ - (lambda (_name188445_ - _phi188446_ - _key188447_) - (let ((__tmp203821 - (let ((__tmp203822 + _out188292188305_)))) + (let ((_K188299188379_ + (lambda (_name188375_ + _phi188376_ + _key188377_) + (let ((__tmp203751 + (let ((__tmp203752 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203823 - (let ((__tmp203824 - (let ((__tmp203827 + (let ((__tmp203753 + (let ((__tmp203754 + (let ((__tmp203757 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _key188447_))) - (__tmp203825 - (let ((__tmp203826 + _key188377_))) + (__tmp203755 + (let ((__tmp203756 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name188445_)))) + _name188375_)))) (declare (not safe)) - (cons __tmp203826 '())))) + (cons __tmp203756 '())))) (declare (not safe)) - (cons __tmp203827 __tmp203825)))) + (cons __tmp203757 __tmp203755)))) (declare (not safe)) - (cons _phi188446_ __tmp203824)))) + (cons _phi188376_ __tmp203754)))) (declare (not safe)) - (cons 'spec: __tmp203823)))) + (cons 'spec: __tmp203753)))) (declare (not safe)) - (cons __tmp203822 _r188340_)))) + (cons __tmp203752 _r188270_)))) (declare (not safe)) - (_lp188337_ _rest188360_ __tmp203821)))) + (_lp188267_ _rest188290_ __tmp203751)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K188366188429_ - (lambda (_phi188383_ - _src188384_) - (let* ((_out188424_ - (if _src188384_ + (_K188296188359_ + (lambda (_phi188313_ + _src188314_) + (let* ((_out188354_ + (if _src188314_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203828 - (let ((__tmp203829 - (let* ((_g188385188394_ + (let ((__tmp203758 + (let ((__tmp203759 + (let* ((_g188315188324_ (let () (declare (not safe)) - (_make-import-path188301_ - _src188384_))) - (_E188388188398_ + (_make-import-path188231_ + _src188314_))) + (_E188318188328_ (lambda () (error '"No clause matching" - _g188385188394_)))) - (let ((_K188390188414_ - (lambda (_path188412_) - _path188412_)) - (_K188389188404_ - (lambda (_path188402_) + _g188315188324_)))) + (let ((_K188320188344_ + (lambda (_path188342_) + _path188342_)) + (_K188319188334_ + (lambda (_path188332_) (let () (declare (not safe)) (cons 'in: - _path188402_))))) + _path188332_))))) (if (let () (declare (not safe)) - (##pair? _g188385188394_)) - (let ((_tl188392188419_ + (##pair? _g188315188324_)) + (let ((_tl188322188349_ (let () (declare (not safe)) - (##cdr _g188385188394_))) - (_hd188391188417_ + (##cdr _g188315188324_))) + (_hd188321188347_ (let () (declare (not safe)) - (##car _g188385188394_)))) + (##car _g188315188324_)))) (if (let () (declare (not safe)) - (##null? _tl188392188419_)) - (let ((_path188422_ - _hd188391188417_)) + (##null? _tl188322188349_)) + (let ((_path188352_ + _hd188321188347_)) (declare (not safe)) - (_K188390188414_ - _path188422_)) - (let ((_path188407_ - _g188385188394_)) + (_K188320188344_ + _path188352_)) + (let ((_path188337_ + _g188315188324_)) (declare (not safe)) - (_K188389188404_ - _path188407_)))) - (let ((_path188407_ - _g188385188394_)) + (_K188319188334_ + _path188337_)))) + (let ((_path188337_ + _g188315188324_)) (declare (not safe)) - (_K188389188404_ - _path188407_))))))) + (_K188319188334_ + _path188337_))))))) (declare (not safe)) - (cons __tmp203829 '())))) + (cons __tmp203759 '())))) (declare (not safe)) - (cons 'import: __tmp203828)) + (cons 'import: __tmp203758)) '#t)) - (_out188426_ - (if (let () (declare (not safe)) (fxzero? _phi188383_)) - _out188424_ - (let ((__tmp203830 - (let ((__tmp203831 + (_out188356_ + (if (let () (declare (not safe)) (fxzero? _phi188313_)) + _out188354_ + (let ((__tmp203760 + (let ((__tmp203761 (let () (declare (not safe)) - (cons _out188424_ '())))) + (cons _out188354_ '())))) (declare (not safe)) - (cons _phi188383_ __tmp203831)))) + (cons _phi188313_ __tmp203761)))) (declare (not safe)) - (cons 'phi: __tmp203830))))) - (let ((__tmp203832 + (cons 'phi: __tmp203760))))) + (let ((__tmp203762 (let () (declare (not safe)) - (cons _out188426_ _r188340_)))) + (cons _out188356_ _r188270_)))) (declare (not safe)) - (_lp188337_ _rest188360_ __tmp203832)))))) + (_lp188267_ _rest188290_ __tmp203762)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match188364188442_ + (let ((_try-match188294188372_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - _out188362188375_ + _out188292188305_ 'gx#export-set::t)) - (let* ((_e188367188432_ + (let* ((_e188297188362_ (let () (declare (not safe)) (##unchecked-structure-ref - _out188362188375_ + _out188292188305_ '1 gx#export-set::t '#f))) - (_e188368188437_ + (_e188298188367_ (let () (declare (not safe)) (##unchecked-structure-ref - _out188362188375_ + _out188292188305_ '2 gx#export-set::t '#f)))) - (let ((_src188435_ _e188367188432_) - (_phi188440_ _e188368188437_)) + (let ((_src188365_ _e188297188362_) + (_phi188370_ _e188298188367_)) (let () (declare (not safe)) - (_K188366188429_ _phi188440_ _src188435_)))) - (let () (declare (not safe)) (_E188365188379_)))))) + (_K188296188359_ _phi188370_ _src188365_)))) + (let () (declare (not safe)) (_E188295188309_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out188362188375_ + _out188292188305_ 'gx#module-export::t)) - (let* ((_e188370188452_ + (let* ((_e188300188382_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _out188362188375_ + _out188292188305_ '1 gx#module-export::t '#f))) - (_e188371188455_ + (_e188301188385_ (let () (declare (not safe)) (##unchecked-structure-ref - _out188362188375_ + _out188292188305_ '2 gx#module-export::t '#f))) - (_e188372188460_ + (_e188302188390_ (let () (declare (not safe)) (##unchecked-structure-ref - _out188362188375_ + _out188292188305_ '3 gx#module-export::t '#f))) - (_e188373188465_ + (_e188303188395_ (let () (declare (not safe)) (##unchecked-structure-ref - _out188362188375_ + _out188292188305_ '4 gx#module-export::t '#f)))) - (let ((_key188458_ _e188371188455_) - (_phi188463_ _e188372188460_) - (_name188468_ _e188373188465_)) + (let ((_key188388_ _e188301188385_) + (_phi188393_ _e188302188390_) + (_name188398_ _e188303188395_)) (let () (declare (not safe)) - (_K188369188449_ _name188468_ _phi188463_ _key188458_)))) - (let () (declare (not safe)) (_try-match188364188442_))))))))) + (_K188299188379_ _name188398_ _phi188393_ _key188388_)))) + (let () (declare (not safe)) (_try-match188294188372_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest188341188349_)) - (let ((_hd188346188473_ + (##pair? _rest188271188279_)) + (let ((_hd188276188403_ (let () (declare (not safe)) - (##car _rest188341188349_))) - (_tl188347188475_ + (##car _rest188271188279_))) + (_tl188277188405_ (let () (declare (not safe)) - (##cdr _rest188341188349_)))) - (let* ((_out188478_ - _hd188346188473_) - (_rest188480_ - _tl188347188475_)) + (##cdr _rest188271188279_)))) + (let* ((_out188408_ + _hd188276188403_) + (_rest188410_ + _tl188277188405_)) (declare (not safe)) - (_K188345188470_ - _rest188480_ - _out188478_))) + (_K188275188400_ + _rest188410_ + _out188408_))) (let () (declare (not safe)) - (_else188343188357_)))))) - _tl188306188323_))) + (_else188273188287_)))))) + _tl188236188253_))) (let () (declare (not safe)) - (_g188303188313_ _g188304188316_)))))) + (_g188233188243_ _g188234188246_)))))) (declare (not safe)) - (_g188302188482_ _stx188297_))))) + (_g188232188412_ _stx188227_))))) (define gxc#generate-meta-provide% - (lambda (_stx188258_ _state188259_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state188259_)) - (let* ((_g188261188271_ - (lambda (_g188262188268_) + (lambda (_stx188188_ _state188189_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state188189_)) + (let* ((_g188191188201_ + (lambda (_g188192188198_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g188262188268_)))) - (_g188260188294_ - (lambda (_g188262188274_) + _g188192188198_)))) + (_g188190188224_ + (lambda (_g188192188204_) (if (let () (declare (not safe)) - (gx#stx-pair? _g188262188274_)) - (let ((_e188266188276_ + (gx#stx-pair? _g188192188204_)) + (let ((_e188196188206_ (let () (declare (not safe)) - (gx#stx-e _g188262188274_)))) - (let ((_hd188265188279_ + (gx#stx-e _g188192188204_)))) + (let ((_hd188195188209_ (let () (declare (not safe)) - (##car _e188266188276_))) - (_tl188264188281_ + (##car _e188196188206_))) + (_tl188194188211_ (let () (declare (not safe)) - (##cdr _e188266188276_)))) - ((lambda (_L188284_) - (let ((__tmp203833 + (##cdr _e188196188206_)))) + ((lambda (_L188214_) + (let ((__tmp203763 (map gxc#generate-runtime-identifier - _L188284_))) + _L188214_))) (declare (not safe)) - (cons '%#provide __tmp203833))) - _tl188264188281_))) + (cons '%#provide __tmp203763))) + _tl188194188211_))) (let () (declare (not safe)) - (_g188261188271_ _g188262188274_)))))) + (_g188191188201_ _g188192188204_)))))) (declare (not safe)) - (_g188260188294_ _stx188258_)))) + (_g188190188224_ _stx188188_)))) (define gxc#generate-meta-extern% - (lambda (_stx188129_ _state188130_) - (letrec ((_generate1188132_ - (lambda (_id188253_ _eid188254_) - (let ((_eid188256_ + (lambda (_stx188059_ _state188060_) + (letrec ((_generate1188062_ + (lambda (_id188183_ _eid188184_) + (let ((_eid188186_ (let () (declare (not safe)) - (gx#stx-e _eid188254_)))) - (if (interned-symbol? _eid188256_) + (gx#stx-e _eid188184_)))) + (if (interned-symbol? _eid188186_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _stx188129_ - _eid188256_))) - (let ((__tmp203835 + _stx188059_ + _eid188186_))) + (let ((__tmp203765 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id188253_))) - (__tmp203834 + (gxc#generate-runtime-identifier _id188183_))) + (__tmp203764 (let () (declare (not safe)) - (cons _eid188256_ '())))) + (cons _eid188186_ '())))) (declare (not safe)) - (cons __tmp203835 __tmp203834)))))) - (let* ((_g188134188162_ - (lambda (_g188135188159_) + (cons __tmp203765 __tmp203764)))))) + (let* ((_g188064188092_ + (lambda (_g188065188089_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g188135188159_)))) - (_g188133188250_ - (lambda (_g188135188165_) + _g188065188089_)))) + (_g188063188180_ + (lambda (_g188065188095_) (if (let () (declare (not safe)) - (gx#stx-pair? _g188135188165_)) - (let ((_e188140188167_ + (gx#stx-pair? _g188065188095_)) + (let ((_e188070188097_ (let () (declare (not safe)) - (gx#stx-e _g188135188165_)))) - (let ((_hd188139188170_ + (gx#stx-e _g188065188095_)))) + (let ((_hd188069188100_ (let () (declare (not safe)) - (##car _e188140188167_))) - (_tl188138188172_ + (##car _e188070188097_))) + (_tl188068188102_ (let () (declare (not safe)) - (##cdr _e188140188167_)))) + (##cdr _e188070188097_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl188138188172_)) - (let ((_g203836_ + (gx#stx-pair/null? _tl188068188102_)) + (let ((_g203766_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl188138188172_ + _tl188068188102_ '0)))) (begin - (let ((_g203837_ + (let ((_g203767_ (let () (declare (not safe)) - (if (##values? _g203836_) - (##vector-length _g203836_) + (if (##values? _g203766_) + (##vector-length _g203766_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g203837_ 2))) + (##fx= _g203767_ 2))) (error "Context expects 2 values" - _g203837_))) - (let ((_target188141188175_ + _g203767_))) + (let ((_target188071188105_ (let () (declare (not safe)) - (##vector-ref _g203836_ 0))) - (_tl188143188177_ + (##vector-ref _g203766_ 0))) + (_tl188073188107_ (let () (declare (not safe)) - (##vector-ref _g203836_ 1)))) + (##vector-ref _g203766_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl188143188177_)) - (letrec ((_loop188144188180_ - (lambda (_hd188142188183_ - _eid188148188185_ - _id188149188187_) + (gx#stx-null? _tl188073188107_)) + (letrec ((_loop188074188110_ + (lambda (_hd188072188113_ + _eid188078188115_ + _id188079188117_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd188142188183_)) - (let ((_e188145188190_ + _hd188072188113_)) + (let ((_e188075188120_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd188142188183_)))) - (let ((_lp-hd188146188193_ + (gx#stx-e _hd188072188113_)))) + (let ((_lp-hd188076188123_ (let () (declare (not safe)) - (##car _e188145188190_))) - (_lp-tl188147188195_ + (##car _e188075188120_))) + (_lp-tl188077188125_ (let () (declare (not safe)) - (##cdr _e188145188190_)))) + (##cdr _e188075188120_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd188146188193_)) - (let ((_e188154188198_ + (gx#stx-pair? _lp-hd188076188123_)) + (let ((_e188084188128_ (let () (declare (not safe)) - (gx#stx-e _lp-hd188146188193_)))) - (let ((_hd188153188201_ + (gx#stx-e _lp-hd188076188123_)))) + (let ((_hd188083188131_ (let () (declare (not safe)) - (##car _e188154188198_))) - (_tl188152188203_ + (##car _e188084188128_))) + (_tl188082188133_ (let () (declare (not safe)) - (##cdr _e188154188198_)))) + (##cdr _e188084188128_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl188152188203_)) - (let ((_e188157188206_ + (gx#stx-pair? _tl188082188133_)) + (let ((_e188087188136_ (let () (declare (not safe)) - (gx#stx-e _tl188152188203_)))) - (let ((_hd188156188209_ + (gx#stx-e _tl188082188133_)))) + (let ((_hd188086188139_ (let () (declare (not safe)) - (##car _e188157188206_))) - (_tl188155188211_ + (##car _e188087188136_))) + (_tl188085188141_ (let () (declare (not safe)) - (##cdr _e188157188206_)))) + (##cdr _e188087188136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl188155188211_)) - (let ((__tmp203842 + (gx#stx-null? _tl188085188141_)) + (let ((__tmp203772 (let () (declare (not safe)) - (cons _hd188156188209_ - _eid188148188185_))) - (__tmp203841 + (cons _hd188086188139_ + _eid188078188115_))) + (__tmp203771 (let () (declare (not safe)) - (cons _hd188153188201_ - _id188149188187_)))) + (cons _hd188083188131_ + _id188079188117_)))) (declare (not safe)) - (_loop188144188180_ - _lp-tl188147188195_ - __tmp203842 - __tmp203841)) + (_loop188074188110_ + _lp-tl188077188125_ + __tmp203772 + __tmp203771)) (let () (declare (not safe)) - (_g188134188162_ - _g188135188165_))))) + (_g188064188092_ + _g188065188095_))))) (let () (declare (not safe)) - (_g188134188162_ _g188135188165_))))) + (_g188064188092_ _g188065188095_))))) (let () (declare (not safe)) - (_g188134188162_ _g188135188165_))))) - (let ((_eid188150188214_ (reverse _eid188148188185_)) - (_id188151188216_ (reverse _id188149188187_))) - ((lambda (_L188219_ _L188220_) - (let ((__tmp203838 - (map _generate1188132_ - (let ((__tmp203839 - (lambda (_g188235188238_ - _g188236188240_) + (_g188064188092_ _g188065188095_))))) + (let ((_eid188080188144_ (reverse _eid188078188115_)) + (_id188081188146_ (reverse _id188079188117_))) + ((lambda (_L188149_ _L188150_) + (let ((__tmp203768 + (map _generate1188062_ + (let ((__tmp203769 + (lambda (_g188165188168_ + _g188166188170_) (let () (declare (not safe)) - (cons _g188235188238_ - _g188236188240_))))) + (cons _g188165188168_ + _g188166188170_))))) (declare (not safe)) - (foldr1 __tmp203839 '() _L188220_)) - (let ((__tmp203840 - (lambda (_g188242188245_ - _g188243188247_) + (foldr1 __tmp203769 '() _L188150_)) + (let ((__tmp203770 + (lambda (_g188172188175_ + _g188173188177_) (let () (declare (not safe)) - (cons _g188242188245_ - _g188243188247_))))) + (cons _g188172188175_ + _g188173188177_))))) (declare (not safe)) - (foldr1 __tmp203840 '() _L188219_))))) + (foldr1 __tmp203770 '() _L188149_))))) (declare (not safe)) - (cons '%#extern __tmp203838))) - _eid188150188214_ - _id188151188216_)))))) + (cons '%#extern __tmp203768))) + _eid188080188144_ + _id188081188146_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop188144188180_ - _target188141188175_ + (_loop188074188110_ + _target188071188105_ '() '()))) (let () (declare (not safe)) - (_g188134188162_ - _g188135188165_)))))) + (_g188064188092_ + _g188065188095_)))))) (let () (declare (not safe)) - (_g188134188162_ _g188135188165_))))) + (_g188064188092_ _g188065188095_))))) (let () (declare (not safe)) - (_g188134188162_ _g188135188165_)))))) + (_g188064188092_ _g188065188095_)))))) (declare (not safe)) - (_g188133188250_ _stx188129_))))) + (_g188063188180_ _stx188059_))))) (define gxc#generate-meta-define-values% - (lambda (_stx187919_ _state187920_) - (letrec ((_generate1187922_ - (lambda (_id188124_) - (let ((_eid188126_ + (lambda (_stx187849_ _state187850_) + (letrec ((_generate1187852_ + (lambda (_id188054_) + (let ((_eid188056_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id188124_))) - (_ident188127_ + (gxc#generate-runtime-binding-id _id188054_))) + (_ident188057_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id188124_)))) - (let ((__tmp203843 - (let ((__tmp203844 + (gxc#generate-runtime-identifier _id188054_)))) + (let ((__tmp203773 + (let ((__tmp203774 (let () (declare (not safe)) - (cons _eid188126_ '())))) + (cons _eid188056_ '())))) (declare (not safe)) - (cons _ident188127_ __tmp203844)))) + (cons _ident188057_ __tmp203774)))) (declare (not safe)) - (cons '%#define-runtime __tmp203843))))) - (_generate*187923_ - (lambda (_all188092_) - (let* ((_all188093188101_ _all188092_) - (_else188095188109_ + (cons '%#define-runtime __tmp203773))))) + (_generate*187853_ + (lambda (_all188022_) + (let* ((_all188023188031_ _all188022_) + (_else188025188039_ (lambda () (let () (declare (not safe)) - (cons '%#begin _all188092_)))) - (_K188097188114_ - (lambda (_one188112_) _one188112_))) + (cons '%#begin _all188022_)))) + (_K188027188044_ + (lambda (_one188042_) _one188042_))) (if (let () (declare (not safe)) - (##pair? _all188093188101_)) - (let ((_hd188098188117_ + (##pair? _all188023188031_)) + (let ((_hd188028188047_ (let () (declare (not safe)) - (##car _all188093188101_))) - (_tl188099188119_ + (##car _all188023188031_))) + (_tl188029188049_ (let () (declare (not safe)) - (##cdr _all188093188101_)))) - (let ((_one188122_ _hd188098188117_)) + (##cdr _all188023188031_)))) + (let ((_one188052_ _hd188028188047_)) (if (let () (declare (not safe)) - (##null? _tl188099188119_)) + (##null? _tl188029188049_)) (let () (declare (not safe)) - (_K188097188114_ _one188122_)) + (_K188027188044_ _one188052_)) (let () (declare (not safe)) - (_else188095188109_))))) + (_else188025188039_))))) (let () (declare (not safe)) - (_else188095188109_))))))) - (let* ((_g187925187942_ - (lambda (_g187926187939_) + (_else188025188039_))))))) + (let* ((_g187855187872_ + (lambda (_g187856187869_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187926187939_)))) - (_g187924188089_ - (lambda (_g187926187945_) + _g187856187869_)))) + (_g187854188019_ + (lambda (_g187856187875_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187926187945_)) - (let ((_e187931187947_ + (gx#stx-pair? _g187856187875_)) + (let ((_e187861187877_ (let () (declare (not safe)) - (gx#stx-e _g187926187945_)))) - (let ((_hd187930187950_ + (gx#stx-e _g187856187875_)))) + (let ((_hd187860187880_ (let () (declare (not safe)) - (##car _e187931187947_))) - (_tl187929187952_ + (##car _e187861187877_))) + (_tl187859187882_ (let () (declare (not safe)) - (##cdr _e187931187947_)))) + (##cdr _e187861187877_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187929187952_)) - (let ((_e187934187955_ + (gx#stx-pair? _tl187859187882_)) + (let ((_e187864187885_ (let () (declare (not safe)) - (gx#stx-e _tl187929187952_)))) - (let ((_hd187933187958_ + (gx#stx-e _tl187859187882_)))) + (let ((_hd187863187888_ (let () (declare (not safe)) - (##car _e187934187955_))) - (_tl187932187960_ + (##car _e187864187885_))) + (_tl187862187890_ (let () (declare (not safe)) - (##cdr _e187934187955_)))) + (##cdr _e187864187885_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187932187960_)) - (let ((_e187937187963_ + (gx#stx-pair? _tl187862187890_)) + (let ((_e187867187893_ (let () (declare (not safe)) (gx#stx-e - _tl187932187960_)))) - (let ((_hd187936187966_ + _tl187862187890_)))) + (let ((_hd187866187896_ (let () (declare (not safe)) - (##car _e187937187963_))) - (_tl187935187968_ + (##car _e187867187893_))) + (_tl187865187898_ (let () (declare (not safe)) - (##cdr _e187937187963_)))) + (##cdr _e187867187893_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl187935187968_)) - ((lambda (_L187971_ - _L187972_) - (let _lp187988_ ((_rest187990_ + _tl187865187898_)) + ((lambda (_L187901_ + _L187902_) + (let _lp187918_ ((_rest187920_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L187972_) - (_r187991_ '())) - (let* ((___stx202976202977_ _rest187990_) - (_g187996188013_ + _L187902_) + (_r187921_ '())) + (let* ((___stx202906202907_ _rest187920_) + (_g187926187943_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx202976202977_))))) - (let ((___kont202978202979_ - (lambda (_L188076_) + ___stx202906202907_))))) + (let ((___kont202908202909_ + (lambda (_L188006_) (let () (declare (not safe)) - (_lp187988_ _L188076_ _r187991_)))) - (___kont202980202981_ - (lambda (_L188049_ _L188050_) - (let ((__tmp203845 - (let ((__tmp203846 + (_lp187918_ _L188006_ _r187921_)))) + (___kont202910202911_ + (lambda (_L187979_ _L187980_) + (let ((__tmp203775 + (let ((__tmp203776 (let () (declare (not safe)) - (_generate1187922_ _L188050_)))) + (_generate1187852_ _L187980_)))) (declare (not safe)) - (cons __tmp203846 _r187991_)))) + (cons __tmp203776 _r187921_)))) (declare (not safe)) - (_lp187988_ _L188049_ __tmp203845)))) - (___kont202982202983_ - (lambda (_L188025_) - (let ((__tmp203847 - (let ((__tmp203848 - (let ((__tmp203849 + (_lp187918_ _L187979_ __tmp203775)))) + (___kont202912202913_ + (lambda (_L187955_) + (let ((__tmp203777 + (let ((__tmp203778 + (let ((__tmp203779 (let () (declare (not safe)) - (_generate1187922_ - _L188025_)))) + (_generate1187852_ + _L187955_)))) (declare (not safe)) - (cons __tmp203849 '())))) + (cons __tmp203779 '())))) (declare (not safe)) - (foldl1 cons __tmp203848 _r187991_)))) + (foldl1 cons __tmp203778 _r187921_)))) (declare (not safe)) - (_generate*187923_ __tmp203847)))) - (___kont202984202985_ + (_generate*187853_ __tmp203777)))) + (___kont202914202915_ (lambda () - (let ((__tmp203850 (reverse _r187991_))) + (let ((__tmp203780 (reverse _r187921_))) (declare (not safe)) - (_generate*187923_ __tmp203850))))) - (let ((_g187994188036_ + (_generate*187853_ __tmp203780))))) + (let ((_g187924187966_ (lambda () - (let ((_L188025_ ___stx202976202977_)) + (let ((_L187955_ ___stx202906202907_)) (if (let () (declare (not safe)) - (gx#identifier? _L188025_)) - (___kont202982202983_ _L188025_) - (___kont202984202985_)))))) + (gx#identifier? _L187955_)) + (___kont202912202913_ _L187955_) + (___kont202914202915_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx202976202977_)) - (let ((_e188001188065_ + (gx#stx-pair? ___stx202906202907_)) + (let ((_e187931187995_ (let () (declare (not safe)) - (gx#stx-e ___stx202976202977_)))) - (let ((_tl187999188070_ + (gx#stx-e ___stx202906202907_)))) + (let ((_tl187929188000_ (let () (declare (not safe)) - (##cdr _e188001188065_))) - (_hd188000188068_ + (##cdr _e187931187995_))) + (_hd187930187998_ (let () (declare (not safe)) - (##car _e188001188065_)))) + (##car _e187931187995_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd188000188068_)) - (let ((_e188002188073_ + (gx#stx-datum? _hd187930187998_)) + (let ((_e187932188003_ (let () (declare (not safe)) - (gx#stx-e _hd188000188068_)))) + (gx#stx-e _hd187930187998_)))) (if (let () (declare (not safe)) - (equal? _e188002188073_ '#f)) - (___kont202978202979_ _tl187999188070_) - (___kont202980202981_ - _tl187999188070_ - _hd188000188068_))) - (___kont202980202981_ - _tl187999188070_ - _hd188000188068_)))) - (let () (declare (not safe)) (_g187994188036_)))))))) + (equal? _e187932188003_ '#f)) + (___kont202908202909_ _tl187929188000_) + (___kont202910202911_ + _tl187929188000_ + _hd187930187998_))) + (___kont202910202911_ + _tl187929188000_ + _hd187930187998_)))) + (let () (declare (not safe)) (_g187924187966_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd187936187966_ - _hd187933187958_) + _hd187866187896_ + _hd187863187888_) (let () (declare (not safe)) - (_g187925187942_ - _g187926187945_))))) + (_g187855187872_ + _g187856187875_))))) (let () (declare (not safe)) - (_g187925187942_ - _g187926187945_))))) + (_g187855187872_ + _g187856187875_))))) (let () (declare (not safe)) - (_g187925187942_ _g187926187945_))))) + (_g187855187872_ _g187856187875_))))) (let () (declare (not safe)) - (_g187925187942_ _g187926187945_)))))) + (_g187855187872_ _g187856187875_)))))) (declare (not safe)) - (_g187924188089_ _stx187919_))))) + (_g187854188019_ _stx187849_))))) (define gxc#generate-meta-define-syntax% - (lambda (_stx187816_ _state187817_) - (let* ((_g187819187836_ - (lambda (_g187820187833_) + (lambda (_stx187746_ _state187747_) + (let* ((_g187749187766_ + (lambda (_g187750187763_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187820187833_)))) - (_g187818187916_ - (lambda (_g187820187839_) + _g187750187763_)))) + (_g187748187846_ + (lambda (_g187750187769_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187820187839_)) - (let ((_e187825187841_ + (gx#stx-pair? _g187750187769_)) + (let ((_e187755187771_ (let () (declare (not safe)) - (gx#stx-e _g187820187839_)))) - (let ((_hd187824187844_ + (gx#stx-e _g187750187769_)))) + (let ((_hd187754187774_ (let () (declare (not safe)) - (##car _e187825187841_))) - (_tl187823187846_ + (##car _e187755187771_))) + (_tl187753187776_ (let () (declare (not safe)) - (##cdr _e187825187841_)))) + (##cdr _e187755187771_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187823187846_)) - (let ((_e187828187849_ + (gx#stx-pair? _tl187753187776_)) + (let ((_e187758187779_ (let () (declare (not safe)) - (gx#stx-e _tl187823187846_)))) - (let ((_hd187827187852_ + (gx#stx-e _tl187753187776_)))) + (let ((_hd187757187782_ (let () (declare (not safe)) - (##car _e187828187849_))) - (_tl187826187854_ + (##car _e187758187779_))) + (_tl187756187784_ (let () (declare (not safe)) - (##cdr _e187828187849_)))) + (##cdr _e187758187779_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187826187854_)) - (let ((_e187831187857_ + (gx#stx-pair? _tl187756187784_)) + (let ((_e187761187787_ (let () (declare (not safe)) - (gx#stx-e _tl187826187854_)))) - (let ((_hd187830187860_ + (gx#stx-e _tl187756187784_)))) + (let ((_hd187760187790_ (let () (declare (not safe)) - (##car _e187831187857_))) - (_tl187829187862_ + (##car _e187761187787_))) + (_tl187759187792_ (let () (declare (not safe)) - (##cdr _e187831187857_)))) + (##cdr _e187761187787_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl187829187862_)) - ((lambda (_L187865_ _L187866_) - (let* ((_eid187881_ + _tl187759187792_)) + ((lambda (_L187795_ _L187796_) + (let* ((_eid187811_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L187866_))) - (_phi187883_ - (let ((__tmp203851 + _L187796_))) + (_phi187813_ + (let ((__tmp203781 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp203851 '1))) - (_block187885_ + (fx+ __tmp203781 '1))) + (_block187815_ (let () (declare (not safe)) - (gxc#meta-state-begin-phi! _state187817_ _phi187883_)))) + (gxc#meta-state-begin-phi! _state187747_ _phi187813_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_g187888187895_ - (lambda (_g187889187892_) + (let* ((_g187818187825_ + (lambda (_g187819187822_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187889187892_)))) - (_g187887187913_ - (lambda (_g187889187898_) - ((lambda (_L187900_) + _g187819187822_)))) + (_g187817187843_ + (lambda (_g187819187828_) + ((lambda (_L187830_) (let () - (let ((__tmp203852 - (let ((__tmp203855 + (let ((__tmp203782 + (let ((__tmp203785 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime))) - (__tmp203853 - (let ((__tmp203854 + (__tmp203783 + (let ((__tmp203784 (let () (declare (not safe)) - (cons _L187865_ '())))) + (cons _L187795_ '())))) (declare (not safe)) - (cons _L187900_ __tmp203854)))) + (cons _L187830_ __tmp203784)))) (declare (not safe)) - (cons __tmp203855 __tmp203853)))) + (cons __tmp203785 __tmp203783)))) (declare (not safe)) (gxc#meta-state-add-phi! - _state187817_ - _phi187883_ - __tmp203852)))) - _g187889187898_)))) + _state187747_ + _phi187813_ + __tmp203782)))) + _g187819187828_)))) (declare (not safe)) - (_g187887187913_ _eid187881_)) + (_g187817187843_ _eid187811_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _block187885_ - (let ((__tmp203859 - (let ((__tmp203865 + (if _block187815_ + (let ((__tmp203789 + (let ((__tmp203795 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203866 - (let ((__tmp203867 - (let ((__tmp203868 - (let ((__tmp203872 - (let ((__tmp203873 + (let ((__tmp203796 + (let ((__tmp203797 + (let ((__tmp203798 + (let ((__tmp203802 + (let ((__tmp203803 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp203873))) - (__tmp203869 - (let ((__tmp203870 - (let ((__tmp203871 + (cons '%#ref __tmp203803))) + (__tmp203799 + (let ((__tmp203800 + (let ((__tmp203801 (let () (declare (not safe)) - (cons _block187885_ '())))) + (cons _block187815_ '())))) (declare (not safe)) - (cons '%#quote __tmp203871)))) + (cons '%#quote __tmp203801)))) (declare (not safe)) - (cons __tmp203870 '())))) + (cons __tmp203800 '())))) (declare (not safe)) - (cons __tmp203872 __tmp203869)))) + (cons __tmp203802 __tmp203799)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp203868)))) + (cons '%#call __tmp203798)))) (declare (not safe)) - (cons __tmp203867 '())))) + (cons __tmp203797 '())))) (declare (not safe)) - (cons '%#begin-syntax __tmp203866))) - (__tmp203860 - (let ((__tmp203861 - (let ((__tmp203862 - (let ((__tmp203864 + (cons '%#begin-syntax __tmp203796))) + (__tmp203790 + (let ((__tmp203791 + (let ((__tmp203792 + (let ((__tmp203794 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L187866_))) - (__tmp203863 + _L187796_))) + (__tmp203793 (let () (declare (not safe)) - (cons _eid187881_ '())))) + (cons _eid187811_ '())))) (declare (not safe)) - (cons __tmp203864 - __tmp203863)))) + (cons __tmp203794 + __tmp203793)))) (declare (not safe)) - (cons '%#define-syntax __tmp203862)))) + (cons '%#define-syntax __tmp203792)))) (declare (not safe)) - (cons __tmp203861 '())))) + (cons __tmp203791 '())))) (declare (not safe)) - (cons __tmp203865 __tmp203860)))) + (cons __tmp203795 __tmp203790)))) (declare (not safe)) - (cons '%#begin __tmp203859)) - (let ((__tmp203856 - (let ((__tmp203858 + (cons '%#begin __tmp203789)) + (let ((__tmp203786 + (let ((__tmp203788 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L187866_))) - (__tmp203857 + (gxc#generate-runtime-identifier _L187796_))) + (__tmp203787 (let () (declare (not safe)) - (cons _eid187881_ '())))) + (cons _eid187811_ '())))) (declare (not safe)) - (cons __tmp203858 __tmp203857)))) + (cons __tmp203788 __tmp203787)))) (declare (not safe)) - (cons '%#define-syntax __tmp203856))))) + (cons '%#define-syntax __tmp203786))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd187830187860_ - _hd187827187852_) + _hd187760187790_ + _hd187757187782_) (let () (declare (not safe)) - (_g187819187836_ - _g187820187839_))))) + (_g187749187766_ + _g187750187769_))))) (let () (declare (not safe)) - (_g187819187836_ _g187820187839_))))) + (_g187749187766_ _g187750187769_))))) (let () (declare (not safe)) - (_g187819187836_ _g187820187839_))))) + (_g187749187766_ _g187750187769_))))) (let () (declare (not safe)) - (_g187819187836_ _g187820187839_)))))) + (_g187749187766_ _g187750187769_)))))) (declare (not safe)) - (_g187818187916_ _stx187816_)))) + (_g187748187846_ _stx187746_)))) (define gxc#generate-meta-define-alias% - (lambda (_stx187748_ _state187749_) - (let* ((_g187751187768_ - (lambda (_g187752187765_) + (lambda (_stx187678_ _state187679_) + (let* ((_g187681187698_ + (lambda (_g187682187695_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187752187765_)))) - (_g187750187813_ - (lambda (_g187752187771_) + _g187682187695_)))) + (_g187680187743_ + (lambda (_g187682187701_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187752187771_)) - (let ((_e187757187773_ + (gx#stx-pair? _g187682187701_)) + (let ((_e187687187703_ (let () (declare (not safe)) - (gx#stx-e _g187752187771_)))) - (let ((_hd187756187776_ + (gx#stx-e _g187682187701_)))) + (let ((_hd187686187706_ (let () (declare (not safe)) - (##car _e187757187773_))) - (_tl187755187778_ + (##car _e187687187703_))) + (_tl187685187708_ (let () (declare (not safe)) - (##cdr _e187757187773_)))) + (##cdr _e187687187703_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187755187778_)) - (let ((_e187760187781_ + (gx#stx-pair? _tl187685187708_)) + (let ((_e187690187711_ (let () (declare (not safe)) - (gx#stx-e _tl187755187778_)))) - (let ((_hd187759187784_ + (gx#stx-e _tl187685187708_)))) + (let ((_hd187689187714_ (let () (declare (not safe)) - (##car _e187760187781_))) - (_tl187758187786_ + (##car _e187690187711_))) + (_tl187688187716_ (let () (declare (not safe)) - (##cdr _e187760187781_)))) + (##cdr _e187690187711_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187758187786_)) - (let ((_e187763187789_ + (gx#stx-pair? _tl187688187716_)) + (let ((_e187693187719_ (let () (declare (not safe)) - (gx#stx-e _tl187758187786_)))) - (let ((_hd187762187792_ + (gx#stx-e _tl187688187716_)))) + (let ((_hd187692187722_ (let () (declare (not safe)) - (##car _e187763187789_))) - (_tl187761187794_ + (##car _e187693187719_))) + (_tl187691187724_ (let () (declare (not safe)) - (##cdr _e187763187789_)))) + (##cdr _e187693187719_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl187761187794_)) - ((lambda (_L187797_ _L187798_) - (let ((__tmp203874 - (let ((__tmp203877 + _tl187691187724_)) + ((lambda (_L187727_ _L187728_) + (let ((__tmp203804 + (let ((__tmp203807 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L187798_))) - (__tmp203875 - (let ((__tmp203876 + (gxc#generate-runtime-identifier _L187728_))) + (__tmp203805 + (let ((__tmp203806 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L187797_)))) + _L187727_)))) (declare (not safe)) - (cons __tmp203876 '())))) + (cons __tmp203806 '())))) (declare (not safe)) - (cons __tmp203877 __tmp203875)))) + (cons __tmp203807 __tmp203805)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#define-alias - __tmp203874))) - _hd187762187792_ - _hd187759187784_) + __tmp203804))) + _hd187692187722_ + _hd187689187714_) (let () (declare (not safe)) - (_g187751187768_ - _g187752187771_))))) + (_g187681187698_ + _g187682187701_))))) (let () (declare (not safe)) - (_g187751187768_ _g187752187771_))))) + (_g187681187698_ _g187682187701_))))) (let () (declare (not safe)) - (_g187751187768_ _g187752187771_))))) + (_g187681187698_ _g187682187701_))))) (let () (declare (not safe)) - (_g187751187768_ _g187752187771_)))))) + (_g187681187698_ _g187682187701_)))))) (declare (not safe)) - (_g187750187813_ _stx187748_)))) + (_g187680187743_ _stx187678_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_stx187745_ _state187746_) - (let ((__tmp203878 (gx#current-expander-phi))) + (lambda (_stx187675_ _state187676_) + (let ((__tmp203808 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state187746_ __tmp203878 _stx187745_)) + (gxc#meta-state-add-phi! _state187676_ __tmp203808 _stx187675_)) (let () (declare (not safe)) - (gxc#generate-meta-define-values% _stx187745_ _state187746_)))) + (gxc#generate-meta-define-values% _stx187675_ _state187676_)))) (define gxc#generate-meta-phi-expr - (lambda (_stx187742_ _state187743_) - (let ((__tmp203879 (gx#current-expander-phi))) + (lambda (_stx187672_ _state187673_) + (let ((__tmp203809 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state187743_ __tmp203879 _stx187742_)) + (gxc#meta-state-add-phi! _state187673_ __tmp203809 _stx187672_)) '#!void)) (define gxc#meta-state::t - (let ((__tmp203880 - (let ((__tmp203881 + (let ((__tmp203810 + (let ((__tmp203811 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp203881 '())))) + (cons __tmp203811 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#meta-state::t 'meta-state '#f '(src n open blocks) - __tmp203880 + __tmp203810 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (make-struct-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _$args187739_ - (apply make-struct-instance gxc#meta-state::t _$args187739_))) + (lambda _$args187669_ + (apply make-struct-instance gxc#meta-state::t _$args187669_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -18164,99 +18164,99 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_self187736_ _ctx187737_) - (if (let ((__tmp203889 + (lambda (_self187666_ _ctx187667_) + (if (let ((__tmp203819 (let () (declare (not safe)) - (##structure-length _self187736_)))) + (##structure-length _self187666_)))) (declare (not safe)) - (##fx< '4 __tmp203889)) + (##fx< '4 __tmp203819)) (begin - (let ((__tmp203883 - (let ((__tmp203884 + (let ((__tmp203813 + (let ((__tmp203814 (##structure-ref - _ctx187737_ + _ctx187667_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp203884))) - (__tmp203882 + (gxc#module-id->path-string __tmp203814))) + (__tmp203812 (let () (declare (not safe)) - (##structure-type _self187736_)))) + (##structure-type _self187666_)))) (declare (not safe)) (##unchecked-structure-set! - _self187736_ - __tmp203883 + _self187666_ + __tmp203813 '1 - __tmp203882 + __tmp203812 '#f)) - (let ((__tmp203885 + (let ((__tmp203815 (let () (declare (not safe)) - (##structure-type _self187736_)))) + (##structure-type _self187666_)))) (declare (not safe)) (##unchecked-structure-set! - _self187736_ + _self187666_ '1 '2 - __tmp203885 + __tmp203815 '#f)) - (let ((__tmp203887 + (let ((__tmp203817 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp203886 + (__tmp203816 (let () (declare (not safe)) - (##structure-type _self187736_)))) + (##structure-type _self187666_)))) (declare (not safe)) (##unchecked-structure-set! - _self187736_ - __tmp203887 + _self187666_ + __tmp203817 '3 - __tmp203886 + __tmp203816 '#f)) - (let ((__tmp203888 + (let ((__tmp203818 (let () (declare (not safe)) - (##structure-type _self187736_)))) + (##structure-type _self187666_)))) (declare (not safe)) (##unchecked-structure-set! - _self187736_ + _self187666_ '() '4 - __tmp203888 + __tmp203818 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self187736_ + _self187666_ '4 (let () (declare (not safe)) - (##vector-length _self187736_)))))) + (##vector-length _self187666_)))))) (let () (declare (not safe)) (bind-method! gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp203890 - (let ((__tmp203891 + (let ((__tmp203820 + (let ((__tmp203821 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp203891 '())))) + (cons __tmp203821 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#meta-state-block::t 'meta-state-block '#f '(ctx phi n code) - __tmp203890 + __tmp203820 '#f))) (define gxc#meta-state-block? (let () (declare (not safe)) (make-struct-predicate gxc#meta-state-block::t))) (define gxc#make-meta-state-block - (lambda _$args187611_ - (apply make-struct-instance gxc#meta-state-block::t _$args187611_))) + (lambda _$args187541_ + (apply make-struct-instance gxc#meta-state-block::t _$args187541_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -18322,1263 +18322,1263 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_state187570_ _phi187571_) - (let* ((_state187572187580_ _state187570_) - (_E187574187584_ + (lambda (_state187500_ _phi187501_) + (let* ((_state187502187510_ _state187500_) + (_E187504187514_ (lambda () - (error '"No clause matching" _state187572187580_))) - (_K187575187593_ - (lambda (_open187587_ _n187588_ _src187589_) + (error '"No clause matching" _state187502187510_))) + (_K187505187523_ + (lambda (_open187517_ _n187518_ _src187519_) (if (let () (declare (not safe)) - (table-ref _open187587_ _phi187571_ '#f)) + (table-ref _open187517_ _phi187501_ '#f)) '#f - (let ((_block-ref187591_ + (let ((_block-ref187521_ (string-append - _src187589_ + _src187519_ '"__" - (number->string _n187588_)))) + (number->string _n187518_)))) (##structure-set! - _state187570_ - (let () (declare (not safe)) (fx+ _n187588_ '1)) + _state187500_ + (let () (declare (not safe)) (fx+ _n187518_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp203892 - (let ((__tmp203893 + (let ((__tmp203822 + (let ((__tmp203823 (gx#current-expander-context))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp203893 - _phi187571_ - _n187588_ + __tmp203823 + _phi187501_ + _n187518_ '())))) (declare (not safe)) - (table-set! _open187587_ _phi187571_ __tmp203892)) - _block-ref187591_))))) + (table-set! _open187517_ _phi187501_ __tmp203822)) + _block-ref187521_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _state187572187580_ + _state187502187510_ 'gxc#meta-state::t)) - (let* ((_e187576187596_ + (let* ((_e187506187526_ (let () (declare (not safe)) (##unchecked-structure-ref - _state187572187580_ + _state187502187510_ '1 gxc#meta-state::t '#f))) - (_src187599_ _e187576187596_) - (_e187577187601_ + (_src187529_ _e187506187526_) + (_e187507187531_ (let () (declare (not safe)) (##unchecked-structure-ref - _state187572187580_ + _state187502187510_ '2 gxc#meta-state::t '#f))) - (_n187604_ _e187577187601_) - (_e187578187606_ + (_n187534_ _e187507187531_) + (_e187508187536_ (let () (declare (not safe)) (##unchecked-structure-ref - _state187572187580_ + _state187502187510_ '3 gxc#meta-state::t '#f))) - (_open187609_ _e187578187606_)) + (_open187539_ _e187508187536_)) (declare (not safe)) - (_K187575187593_ _open187609_ _n187604_ _src187599_)) - (let () (declare (not safe)) (_E187574187584_)))))) + (_K187505187523_ _open187539_ _n187534_ _src187529_)) + (let () (declare (not safe)) (_E187504187514_)))))) (define gxc#meta-state-add-phi! - (lambda (_state187564_ _phi187565_ _stx187566_) - (let ((_block187568_ - (let ((__tmp203894 + (lambda (_state187494_ _phi187495_ _stx187496_) + (let ((_block187498_ + (let ((__tmp203824 (##structure-ref - _state187564_ + _state187494_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (table-ref __tmp203894 _phi187565_ '#f)))) + (table-ref __tmp203824 _phi187495_ '#f)))) (##structure-set! - _block187568_ - (let ((__tmp203895 + _block187498_ + (let ((__tmp203825 (##structure-ref - _block187568_ + _block187498_ '4 gxc#meta-state-block::t '#f))) (declare (not safe)) - (cons _stx187566_ __tmp203895)) + (cons _stx187496_ __tmp203825)) '4 gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_state187559_) + (lambda (_state187489_) (##structure-set! - _state187559_ - (let ((__tmp203898 - (lambda (_g203899_ _block187561_ _r187562_) + _state187489_ + (let ((__tmp203828 + (lambda (_g203829_ _block187491_ _r187492_) (let () (declare (not safe)) - (cons _block187561_ _r187562_)))) - (__tmp203897 - (##structure-ref _state187559_ '4 gxc#meta-state::t '#f)) - (__tmp203896 - (##structure-ref _state187559_ '3 gxc#meta-state::t '#f))) + (cons _block187491_ _r187492_)))) + (__tmp203827 + (##structure-ref _state187489_ '4 gxc#meta-state::t '#f)) + (__tmp203826 + (##structure-ref _state187489_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp203898 __tmp203897 __tmp203896)) + (hash-fold __tmp203828 __tmp203827 __tmp203826)) '4 gxc#meta-state::t '#f) (##structure-set! - _state187559_ + _state187489_ (let () (declare (not safe)) (make-table 'test: eq?)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_state187511_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state187511_)) - (let ((__tmp203901 - (lambda (_block187513_ _r187514_) - (let* ((_block187515187524_ _block187513_) - (_E187517187528_ + (lambda (_state187441_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state187441_)) + (let ((__tmp203831 + (lambda (_block187443_ _r187444_) + (let* ((_block187445187454_ _block187443_) + (_E187447187458_ (lambda () (error '"No clause matching" - _block187515187524_))) - (_K187518187536_ - (lambda (_code187531_ - _n187532_ - _phi187533_ - _ctx187534_) + _block187445187454_))) + (_K187448187466_ + (lambda (_code187461_ + _n187462_ + _phi187463_ + _ctx187464_) (if (let () (declare (not safe)) - (null? _code187531_)) - _r187514_ - (let ((__tmp203902 - (let ((__tmp203903 - (let ((__tmp203904 - (let ((__tmp203905 - (let ((__tmp203906 + (null? _code187461_)) + _r187444_ + (let ((__tmp203832 + (let ((__tmp203833 + (let ((__tmp203834 + (let ((__tmp203835 + (let ((__tmp203836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203907 (reverse _code187531_))) + (let ((__tmp203837 (reverse _code187461_))) (declare (not safe)) - (cons '%#begin __tmp203907)))) + (cons '%#begin __tmp203837)))) (declare (not safe)) - (cons __tmp203906 '())))) + (cons __tmp203836 '())))) (declare (not safe)) - (cons _n187532_ __tmp203905)))) + (cons _n187462_ __tmp203835)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _phi187533_ - __tmp203904)))) + (cons _phi187463_ + __tmp203834)))) (declare (not safe)) - (cons _ctx187534_ __tmp203903)))) + (cons _ctx187464_ __tmp203833)))) (declare (not safe)) - (cons __tmp203902 _r187514_)))))) + (cons __tmp203832 _r187444_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _block187515187524_ + _block187445187454_ 'gxc#meta-state-block::t)) - (let* ((_e187519187539_ + (let* ((_e187449187469_ (let () (declare (not safe)) (##unchecked-structure-ref - _block187515187524_ + _block187445187454_ '1 gxc#meta-state-block::t '#f))) - (_ctx187542_ _e187519187539_) - (_e187520187544_ + (_ctx187472_ _e187449187469_) + (_e187450187474_ (let () (declare (not safe)) (##unchecked-structure-ref - _block187515187524_ + _block187445187454_ '2 gxc#meta-state-block::t '#f))) - (_phi187547_ _e187520187544_) - (_e187521187549_ + (_phi187477_ _e187450187474_) + (_e187451187479_ (let () (declare (not safe)) (##unchecked-structure-ref - _block187515187524_ + _block187445187454_ '3 gxc#meta-state-block::t '#f))) - (_n187552_ _e187521187549_) - (_e187522187554_ + (_n187482_ _e187451187479_) + (_e187452187484_ (let () (declare (not safe)) (##unchecked-structure-ref - _block187515187524_ + _block187445187454_ '4 gxc#meta-state-block::t '#f))) - (_code187557_ _e187522187554_)) + (_code187487_ _e187452187484_)) (declare (not safe)) - (_K187518187536_ - _code187557_ - _n187552_ - _phi187547_ - _ctx187542_)) - (let () (declare (not safe)) (_E187517187528_)))))) - (__tmp203900 - (##structure-ref _state187511_ '4 gxc#meta-state::t '#f))) + (_K187448187466_ + _code187487_ + _n187482_ + _phi187477_ + _ctx187472_)) + (let () (declare (not safe)) (_E187447187458_)))))) + (__tmp203830 + (##structure-ref _state187441_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (foldl1 __tmp203901 '() __tmp203900)))) + (foldl1 __tmp203831 '() __tmp203830)))) (define gxc#collect-expression-refs - (lambda (_stx187507_) - (let ((_ht187509_ + (lambda (_stx187437_) + (let ((_ht187439_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (gxc#apply-collect-expression-refs _stx187507_ _ht187509_)) - _ht187509_))) + (gxc#apply-collect-expression-refs _stx187437_ _ht187439_)) + _ht187439_))) (define gxc#collect-refs-ref% - (lambda (_stx187450_ _ht187451_) - (let* ((_g187453187466_ - (lambda (_g187454187463_) + (lambda (_stx187380_ _ht187381_) + (let* ((_g187383187396_ + (lambda (_g187384187393_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187454187463_)))) - (_g187452187504_ - (lambda (_g187454187469_) + _g187384187393_)))) + (_g187382187434_ + (lambda (_g187384187399_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187454187469_)) - (let ((_e187458187471_ + (gx#stx-pair? _g187384187399_)) + (let ((_e187388187401_ (let () (declare (not safe)) - (gx#stx-e _g187454187469_)))) - (let ((_hd187457187474_ + (gx#stx-e _g187384187399_)))) + (let ((_hd187387187404_ (let () (declare (not safe)) - (##car _e187458187471_))) - (_tl187456187476_ + (##car _e187388187401_))) + (_tl187386187406_ (let () (declare (not safe)) - (##cdr _e187458187471_)))) + (##cdr _e187388187401_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187456187476_)) - (let ((_e187461187479_ + (gx#stx-pair? _tl187386187406_)) + (let ((_e187391187409_ (let () (declare (not safe)) - (gx#stx-e _tl187456187476_)))) - (let ((_hd187460187482_ + (gx#stx-e _tl187386187406_)))) + (let ((_hd187390187412_ (let () (declare (not safe)) - (##car _e187461187479_))) - (_tl187459187484_ + (##car _e187391187409_))) + (_tl187389187414_ (let () (declare (not safe)) - (##cdr _e187461187479_)))) + (##cdr _e187391187409_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl187459187484_)) - ((lambda (_L187487_) - (let* ((_bind187499_ + (gx#stx-null? _tl187389187414_)) + ((lambda (_L187417_) + (let* ((_bind187429_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L187487_))) - (_eid187501_ - (if _bind187499_ + _L187417_))) + (_eid187431_ + (if _bind187429_ (##structure-ref - _bind187499_ + _bind187429_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _L187487_))))) + _L187417_))))) (let () (declare (not safe)) (table-set! - _ht187451_ - _eid187501_ - _eid187501_)))) - _hd187460187482_) + _ht187381_ + _eid187431_ + _eid187431_)))) + _hd187390187412_) (let () (declare (not safe)) - (_g187453187466_ _g187454187469_))))) + (_g187383187396_ _g187384187399_))))) (let () (declare (not safe)) - (_g187453187466_ _g187454187469_))))) + (_g187383187396_ _g187384187399_))))) (let () (declare (not safe)) - (_g187453187466_ _g187454187469_)))))) + (_g187383187396_ _g187384187399_)))))) (declare (not safe)) - (_g187452187504_ _stx187450_)))) + (_g187382187434_ _stx187380_)))) (define gxc#collect-refs-setq% - (lambda (_stx187377_ _ht187378_) - (let* ((_g187380187397_ - (lambda (_g187381187394_) + (lambda (_stx187307_ _ht187308_) + (let* ((_g187310187327_ + (lambda (_g187311187324_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187381187394_)))) - (_g187379187447_ - (lambda (_g187381187400_) + _g187311187324_)))) + (_g187309187377_ + (lambda (_g187311187330_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187381187400_)) - (let ((_e187386187402_ + (gx#stx-pair? _g187311187330_)) + (let ((_e187316187332_ (let () (declare (not safe)) - (gx#stx-e _g187381187400_)))) - (let ((_hd187385187405_ + (gx#stx-e _g187311187330_)))) + (let ((_hd187315187335_ (let () (declare (not safe)) - (##car _e187386187402_))) - (_tl187384187407_ + (##car _e187316187332_))) + (_tl187314187337_ (let () (declare (not safe)) - (##cdr _e187386187402_)))) + (##cdr _e187316187332_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187384187407_)) - (let ((_e187389187410_ + (gx#stx-pair? _tl187314187337_)) + (let ((_e187319187340_ (let () (declare (not safe)) - (gx#stx-e _tl187384187407_)))) - (let ((_hd187388187413_ + (gx#stx-e _tl187314187337_)))) + (let ((_hd187318187343_ (let () (declare (not safe)) - (##car _e187389187410_))) - (_tl187387187415_ + (##car _e187319187340_))) + (_tl187317187345_ (let () (declare (not safe)) - (##cdr _e187389187410_)))) + (##cdr _e187319187340_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187387187415_)) - (let ((_e187392187418_ + (gx#stx-pair? _tl187317187345_)) + (let ((_e187322187348_ (let () (declare (not safe)) - (gx#stx-e _tl187387187415_)))) - (let ((_hd187391187421_ + (gx#stx-e _tl187317187345_)))) + (let ((_hd187321187351_ (let () (declare (not safe)) - (##car _e187392187418_))) - (_tl187390187423_ + (##car _e187322187348_))) + (_tl187320187353_ (let () (declare (not safe)) - (##cdr _e187392187418_)))) + (##cdr _e187322187348_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl187390187423_)) - ((lambda (_L187426_ _L187427_) - (let* ((_bind187442_ + _tl187320187353_)) + ((lambda (_L187356_ _L187357_) + (let* ((_bind187372_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L187427_))) - (_eid187444_ - (if _bind187442_ + _L187357_))) + (_eid187374_ + (if _bind187372_ (##structure-ref - _bind187442_ + _bind187372_ '1 gx#binding::t '#f) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L187427_))))) + (gx#stx-e _L187357_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (table-set! - _ht187378_ - _eid187444_ - _eid187444_)) + _ht187308_ + _eid187374_ + _eid187374_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L187426_ - _ht187378_)))) - _hd187391187421_ - _hd187388187413_) + _L187356_ + _ht187308_)))) + _hd187321187351_ + _hd187318187343_) (let () (declare (not safe)) - (_g187380187397_ - _g187381187400_))))) + (_g187310187327_ + _g187311187330_))))) (let () (declare (not safe)) - (_g187380187397_ _g187381187400_))))) + (_g187310187327_ _g187311187330_))))) (let () (declare (not safe)) - (_g187380187397_ _g187381187400_))))) + (_g187310187327_ _g187311187330_))))) (let () (declare (not safe)) - (_g187380187397_ _g187381187400_)))))) + (_g187310187327_ _g187311187330_)))))) (declare (not safe)) - (_g187379187447_ _stx187377_)))) + (_g187309187377_ _stx187307_)))) (define gxc#find-runtime-begin% - (lambda (_stx187339_) - (let* ((_g187341187351_ - (lambda (_g187342187348_) + (lambda (_stx187269_) + (let* ((_g187271187281_ + (lambda (_g187272187278_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187342187348_)))) - (_g187340187374_ - (lambda (_g187342187354_) + _g187272187278_)))) + (_g187270187304_ + (lambda (_g187272187284_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187342187354_)) - (let ((_e187346187356_ + (gx#stx-pair? _g187272187284_)) + (let ((_e187276187286_ (let () (declare (not safe)) - (gx#stx-e _g187342187354_)))) - (let ((_hd187345187359_ + (gx#stx-e _g187272187284_)))) + (let ((_hd187275187289_ (let () (declare (not safe)) - (##car _e187346187356_))) - (_tl187344187361_ + (##car _e187276187286_))) + (_tl187274187291_ (let () (declare (not safe)) - (##cdr _e187346187356_)))) - ((lambda (_L187364_) + (##cdr _e187276187286_)))) + ((lambda (_L187294_) (let () (declare (not safe)) - (ormap1 gxc#compile-e _L187364_))) - _tl187344187361_))) + (ormap1 gxc#compile-e _L187294_))) + _tl187274187291_))) (let () (declare (not safe)) - (_g187341187351_ _g187342187354_)))))) + (_g187271187281_ _g187272187284_)))))) (declare (not safe)) - (_g187340187374_ _stx187339_)))) + (_g187270187304_ _stx187269_)))) (define gxc#find-lambda-expression-begin% - (lambda (_stx187301_) - (let* ((_g187303187313_ - (lambda (_g187304187310_) + (lambda (_stx187231_) + (let* ((_g187233187243_ + (lambda (_g187234187240_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187304187310_)))) - (_g187302187336_ - (lambda (_g187304187316_) + _g187234187240_)))) + (_g187232187266_ + (lambda (_g187234187246_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187304187316_)) - (let ((_e187308187318_ + (gx#stx-pair? _g187234187246_)) + (let ((_e187238187248_ (let () (declare (not safe)) - (gx#stx-e _g187304187316_)))) - (let ((_hd187307187321_ + (gx#stx-e _g187234187246_)))) + (let ((_hd187237187251_ (let () (declare (not safe)) - (##car _e187308187318_))) - (_tl187306187323_ + (##car _e187238187248_))) + (_tl187236187253_ (let () (declare (not safe)) - (##cdr _e187308187318_)))) - ((lambda (_L187326_) - (let ((__tmp203908 + (##cdr _e187238187248_)))) + ((lambda (_L187256_) + (let ((__tmp203838 (let () (declare (not safe)) - (last _L187326_)))) + (last _L187256_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp203908))) - _tl187306187323_))) + (gxc#compile-e__0 __tmp203838))) + _tl187236187253_))) (let () (declare (not safe)) - (_g187303187313_ _g187304187316_)))))) + (_g187233187243_ _g187234187246_)))))) (declare (not safe)) - (_g187302187336_ _stx187301_)))) + (_g187232187266_ _stx187231_)))) (define gxc#find-lambda-expression-begin-annotation% - (lambda (_stx187234_) - (let* ((_g187236187253_ - (lambda (_g187237187250_) + (lambda (_stx187164_) + (let* ((_g187166187183_ + (lambda (_g187167187180_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187237187250_)))) - (_g187235187298_ - (lambda (_g187237187256_) + _g187167187180_)))) + (_g187165187228_ + (lambda (_g187167187186_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187237187256_)) - (let ((_e187242187258_ + (gx#stx-pair? _g187167187186_)) + (let ((_e187172187188_ (let () (declare (not safe)) - (gx#stx-e _g187237187256_)))) - (let ((_hd187241187261_ + (gx#stx-e _g187167187186_)))) + (let ((_hd187171187191_ (let () (declare (not safe)) - (##car _e187242187258_))) - (_tl187240187263_ + (##car _e187172187188_))) + (_tl187170187193_ (let () (declare (not safe)) - (##cdr _e187242187258_)))) + (##cdr _e187172187188_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187240187263_)) - (let ((_e187245187266_ + (gx#stx-pair? _tl187170187193_)) + (let ((_e187175187196_ (let () (declare (not safe)) - (gx#stx-e _tl187240187263_)))) - (let ((_hd187244187269_ + (gx#stx-e _tl187170187193_)))) + (let ((_hd187174187199_ (let () (declare (not safe)) - (##car _e187245187266_))) - (_tl187243187271_ + (##car _e187175187196_))) + (_tl187173187201_ (let () (declare (not safe)) - (##cdr _e187245187266_)))) + (##cdr _e187175187196_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187243187271_)) - (let ((_e187248187274_ + (gx#stx-pair? _tl187173187201_)) + (let ((_e187178187204_ (let () (declare (not safe)) - (gx#stx-e _tl187243187271_)))) - (let ((_hd187247187277_ + (gx#stx-e _tl187173187201_)))) + (let ((_hd187177187207_ (let () (declare (not safe)) - (##car _e187248187274_))) - (_tl187246187279_ + (##car _e187178187204_))) + (_tl187176187209_ (let () (declare (not safe)) - (##cdr _e187248187274_)))) + (##cdr _e187178187204_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl187246187279_)) - ((lambda (_L187282_ _L187283_) + _tl187176187209_)) + ((lambda (_L187212_ _L187213_) (let () (declare (not safe)) (gxc#compile-e__0 - _L187282_))) - _hd187247187277_ - _hd187244187269_) + _L187212_))) + _hd187177187207_ + _hd187174187199_) (let () (declare (not safe)) - (_g187236187253_ - _g187237187256_))))) + (_g187166187183_ + _g187167187186_))))) (let () (declare (not safe)) - (_g187236187253_ _g187237187256_))))) + (_g187166187183_ _g187167187186_))))) (let () (declare (not safe)) - (_g187236187253_ _g187237187256_))))) + (_g187166187183_ _g187167187186_))))) (let () (declare (not safe)) - (_g187236187253_ _g187237187256_)))))) + (_g187166187183_ _g187167187186_)))))) (declare (not safe)) - (_g187235187298_ _stx187234_)))) + (_g187165187228_ _stx187164_)))) (define gxc#find-lambda-expression-let-values% - (lambda (_stx187167_) - (let* ((_g187169187186_ - (lambda (_g187170187183_) + (lambda (_stx187097_) + (let* ((_g187099187116_ + (lambda (_g187100187113_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187170187183_)))) - (_g187168187231_ - (lambda (_g187170187189_) + _g187100187113_)))) + (_g187098187161_ + (lambda (_g187100187119_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187170187189_)) - (let ((_e187175187191_ + (gx#stx-pair? _g187100187119_)) + (let ((_e187105187121_ (let () (declare (not safe)) - (gx#stx-e _g187170187189_)))) - (let ((_hd187174187194_ + (gx#stx-e _g187100187119_)))) + (let ((_hd187104187124_ (let () (declare (not safe)) - (##car _e187175187191_))) - (_tl187173187196_ + (##car _e187105187121_))) + (_tl187103187126_ (let () (declare (not safe)) - (##cdr _e187175187191_)))) + (##cdr _e187105187121_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187173187196_)) - (let ((_e187178187199_ + (gx#stx-pair? _tl187103187126_)) + (let ((_e187108187129_ (let () (declare (not safe)) - (gx#stx-e _tl187173187196_)))) - (let ((_hd187177187202_ + (gx#stx-e _tl187103187126_)))) + (let ((_hd187107187132_ (let () (declare (not safe)) - (##car _e187178187199_))) - (_tl187176187204_ + (##car _e187108187129_))) + (_tl187106187134_ (let () (declare (not safe)) - (##cdr _e187178187199_)))) + (##cdr _e187108187129_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187176187204_)) - (let ((_e187181187207_ + (gx#stx-pair? _tl187106187134_)) + (let ((_e187111187137_ (let () (declare (not safe)) - (gx#stx-e _tl187176187204_)))) - (let ((_hd187180187210_ + (gx#stx-e _tl187106187134_)))) + (let ((_hd187110187140_ (let () (declare (not safe)) - (##car _e187181187207_))) - (_tl187179187212_ + (##car _e187111187137_))) + (_tl187109187142_ (let () (declare (not safe)) - (##cdr _e187181187207_)))) + (##cdr _e187111187137_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl187179187212_)) - ((lambda (_L187215_ _L187216_) + _tl187109187142_)) + ((lambda (_L187145_ _L187146_) (let () (declare (not safe)) (gxc#compile-e__0 - _L187215_))) - _hd187180187210_ - _hd187177187202_) + _L187145_))) + _hd187110187140_ + _hd187107187132_) (let () (declare (not safe)) - (_g187169187186_ - _g187170187189_))))) + (_g187099187116_ + _g187100187119_))))) (let () (declare (not safe)) - (_g187169187186_ _g187170187189_))))) + (_g187099187116_ _g187100187119_))))) (let () (declare (not safe)) - (_g187169187186_ _g187170187189_))))) + (_g187099187116_ _g187100187119_))))) (let () (declare (not safe)) - (_g187169187186_ _g187170187189_)))))) + (_g187099187116_ _g187100187119_)))))) (declare (not safe)) - (_g187168187231_ _stx187167_)))) - (define gxc#count-values-single% (lambda (_stx187165_) '1)) + (_g187098187161_ _stx187097_)))) + (define gxc#count-values-single% (lambda (_stx187095_) '1)) (define gxc#count-values-begin% - (lambda (_stx187083_) - (let* ((_g187085187104_ - (lambda (_g187086187101_) + (lambda (_stx187013_) + (let* ((_g187015187034_ + (lambda (_g187016187031_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187086187101_)))) - (_g187084187162_ - (lambda (_g187086187107_) + _g187016187031_)))) + (_g187014187092_ + (lambda (_g187016187037_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187086187107_)) - (let ((_e187090187109_ + (gx#stx-pair? _g187016187037_)) + (let ((_e187020187039_ (let () (declare (not safe)) - (gx#stx-e _g187086187107_)))) - (let ((_hd187089187112_ + (gx#stx-e _g187016187037_)))) + (let ((_hd187019187042_ (let () (declare (not safe)) - (##car _e187090187109_))) - (_tl187088187114_ + (##car _e187020187039_))) + (_tl187018187044_ (let () (declare (not safe)) - (##cdr _e187090187109_)))) + (##cdr _e187020187039_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl187088187114_)) - (let ((_g203909_ + (gx#stx-pair/null? _tl187018187044_)) + (let ((_g203839_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl187088187114_ + _tl187018187044_ '0)))) (begin - (let ((_g203910_ + (let ((_g203840_ (let () (declare (not safe)) - (if (##values? _g203909_) - (##vector-length _g203909_) + (if (##values? _g203839_) + (##vector-length _g203839_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g203910_ 2))) + (##fx= _g203840_ 2))) (error "Context expects 2 values" - _g203910_))) - (let ((_target187091187117_ + _g203840_))) + (let ((_target187021187047_ (let () (declare (not safe)) - (##vector-ref _g203909_ 0))) - (_tl187093187119_ + (##vector-ref _g203839_ 0))) + (_tl187023187049_ (let () (declare (not safe)) - (##vector-ref _g203909_ 1)))) + (##vector-ref _g203839_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl187093187119_)) - (letrec ((_loop187094187122_ - (lambda (_hd187092187125_ - _expr187098187127_) + (gx#stx-null? _tl187023187049_)) + (letrec ((_loop187024187052_ + (lambda (_hd187022187055_ + _expr187028187057_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd187092187125_)) - (let ((_e187095187130_ + _hd187022187055_)) + (let ((_e187025187060_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd187092187125_)))) - (let ((_lp-hd187096187133_ + (gx#stx-e _hd187022187055_)))) + (let ((_lp-hd187026187063_ (let () (declare (not safe)) - (##car _e187095187130_))) - (_lp-tl187097187135_ + (##car _e187025187060_))) + (_lp-tl187027187065_ (let () (declare (not safe)) - (##cdr _e187095187130_)))) - (let ((__tmp203914 + (##cdr _e187025187060_)))) + (let ((__tmp203844 (let () (declare (not safe)) - (cons _lp-hd187096187133_ _expr187098187127_)))) + (cons _lp-hd187026187063_ _expr187028187057_)))) (declare (not safe)) - (_loop187094187122_ _lp-tl187097187135_ __tmp203914)))) - (let ((_expr187099187138_ (reverse _expr187098187127_))) - ((lambda (_L187141_) - (let ((__tmp203911 - (let ((__tmp203912 - (let ((__tmp203913 - (lambda (_g187154187157_ - _g187155187159_) + (_loop187024187052_ _lp-tl187027187065_ __tmp203844)))) + (let ((_expr187029187068_ (reverse _expr187028187057_))) + ((lambda (_L187071_) + (let ((__tmp203841 + (let ((__tmp203842 + (let ((__tmp203843 + (lambda (_g187084187087_ + _g187085187089_) (let () (declare (not safe)) - (cons _g187154187157_ - _g187155187159_))))) + (cons _g187084187087_ + _g187085187089_))))) (declare (not safe)) - (foldr1 __tmp203913 '() _L187141_)))) + (foldr1 __tmp203843 '() _L187071_)))) (declare (not safe)) - (last __tmp203912)))) + (last __tmp203842)))) (declare (not safe)) - (gxc#compile-e__0 __tmp203911))) - _expr187099187138_)))))) + (gxc#compile-e__0 __tmp203841))) + _expr187029187068_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop187094187122_ - _target187091187117_ + (_loop187024187052_ + _target187021187047_ '()))) (let () (declare (not safe)) - (_g187085187104_ - _g187086187107_)))))) + (_g187015187034_ + _g187016187037_)))))) (let () (declare (not safe)) - (_g187085187104_ _g187086187107_))))) + (_g187015187034_ _g187016187037_))))) (let () (declare (not safe)) - (_g187085187104_ _g187086187107_)))))) + (_g187015187034_ _g187016187037_)))))) (declare (not safe)) - (_g187084187162_ _stx187083_)))) + (_g187014187092_ _stx187013_)))) (define gxc#count-values-begin-annotation% - (lambda (_stx187016_) - (let* ((_g187018187035_ - (lambda (_g187019187032_) + (lambda (_stx186946_) + (let* ((_g186948186965_ + (lambda (_g186949186962_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187019187032_)))) - (_g187017187080_ - (lambda (_g187019187038_) + _g186949186962_)))) + (_g186947187010_ + (lambda (_g186949186968_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187019187038_)) - (let ((_e187024187040_ + (gx#stx-pair? _g186949186968_)) + (let ((_e186954186970_ (let () (declare (not safe)) - (gx#stx-e _g187019187038_)))) - (let ((_hd187023187043_ + (gx#stx-e _g186949186968_)))) + (let ((_hd186953186973_ (let () (declare (not safe)) - (##car _e187024187040_))) - (_tl187022187045_ + (##car _e186954186970_))) + (_tl186952186975_ (let () (declare (not safe)) - (##cdr _e187024187040_)))) + (##cdr _e186954186970_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187022187045_)) - (let ((_e187027187048_ + (gx#stx-pair? _tl186952186975_)) + (let ((_e186957186978_ (let () (declare (not safe)) - (gx#stx-e _tl187022187045_)))) - (let ((_hd187026187051_ + (gx#stx-e _tl186952186975_)))) + (let ((_hd186956186981_ (let () (declare (not safe)) - (##car _e187027187048_))) - (_tl187025187053_ + (##car _e186957186978_))) + (_tl186955186983_ (let () (declare (not safe)) - (##cdr _e187027187048_)))) + (##cdr _e186957186978_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187025187053_)) - (let ((_e187030187056_ + (gx#stx-pair? _tl186955186983_)) + (let ((_e186960186986_ (let () (declare (not safe)) - (gx#stx-e _tl187025187053_)))) - (let ((_hd187029187059_ + (gx#stx-e _tl186955186983_)))) + (let ((_hd186959186989_ (let () (declare (not safe)) - (##car _e187030187056_))) - (_tl187028187061_ + (##car _e186960186986_))) + (_tl186958186991_ (let () (declare (not safe)) - (##cdr _e187030187056_)))) + (##cdr _e186960186986_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl187028187061_)) - ((lambda (_L187064_ _L187065_) + _tl186958186991_)) + ((lambda (_L186994_ _L186995_) (let () (declare (not safe)) (gxc#compile-e__0 - _L187064_))) - _hd187029187059_ - _hd187026187051_) + _L186994_))) + _hd186959186989_ + _hd186956186981_) (let () (declare (not safe)) - (_g187018187035_ - _g187019187038_))))) + (_g186948186965_ + _g186949186968_))))) (let () (declare (not safe)) - (_g187018187035_ _g187019187038_))))) + (_g186948186965_ _g186949186968_))))) (let () (declare (not safe)) - (_g187018187035_ _g187019187038_))))) + (_g186948186965_ _g186949186968_))))) (let () (declare (not safe)) - (_g187018187035_ _g187019187038_)))))) + (_g186948186965_ _g186949186968_)))))) (declare (not safe)) - (_g187017187080_ _stx187016_)))) + (_g186947187010_ _stx186946_)))) (define gxc#count-values-let-values% - (lambda (_stx186949_) - (let* ((_g186951186968_ - (lambda (_g186952186965_) + (lambda (_stx186879_) + (let* ((_g186881186898_ + (lambda (_g186882186895_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g186952186965_)))) - (_g186950187013_ - (lambda (_g186952186971_) + _g186882186895_)))) + (_g186880186943_ + (lambda (_g186882186901_) (if (let () (declare (not safe)) - (gx#stx-pair? _g186952186971_)) - (let ((_e186957186973_ + (gx#stx-pair? _g186882186901_)) + (let ((_e186887186903_ (let () (declare (not safe)) - (gx#stx-e _g186952186971_)))) - (let ((_hd186956186976_ + (gx#stx-e _g186882186901_)))) + (let ((_hd186886186906_ (let () (declare (not safe)) - (##car _e186957186973_))) - (_tl186955186978_ + (##car _e186887186903_))) + (_tl186885186908_ (let () (declare (not safe)) - (##cdr _e186957186973_)))) + (##cdr _e186887186903_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186955186978_)) - (let ((_e186960186981_ + (gx#stx-pair? _tl186885186908_)) + (let ((_e186890186911_ (let () (declare (not safe)) - (gx#stx-e _tl186955186978_)))) - (let ((_hd186959186984_ + (gx#stx-e _tl186885186908_)))) + (let ((_hd186889186914_ (let () (declare (not safe)) - (##car _e186960186981_))) - (_tl186958186986_ + (##car _e186890186911_))) + (_tl186888186916_ (let () (declare (not safe)) - (##cdr _e186960186981_)))) + (##cdr _e186890186911_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186958186986_)) - (let ((_e186963186989_ + (gx#stx-pair? _tl186888186916_)) + (let ((_e186893186919_ (let () (declare (not safe)) - (gx#stx-e _tl186958186986_)))) - (let ((_hd186962186992_ + (gx#stx-e _tl186888186916_)))) + (let ((_hd186892186922_ (let () (declare (not safe)) - (##car _e186963186989_))) - (_tl186961186994_ + (##car _e186893186919_))) + (_tl186891186924_ (let () (declare (not safe)) - (##cdr _e186963186989_)))) + (##cdr _e186893186919_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl186961186994_)) - ((lambda (_L186997_ _L186998_) + _tl186891186924_)) + ((lambda (_L186927_ _L186928_) (let () (declare (not safe)) (gxc#compile-e__0 - _L186997_))) - _hd186962186992_ - _hd186959186984_) + _L186927_))) + _hd186892186922_ + _hd186889186914_) (let () (declare (not safe)) - (_g186951186968_ - _g186952186971_))))) + (_g186881186898_ + _g186882186901_))))) (let () (declare (not safe)) - (_g186951186968_ _g186952186971_))))) + (_g186881186898_ _g186882186901_))))) (let () (declare (not safe)) - (_g186951186968_ _g186952186971_))))) + (_g186881186898_ _g186882186901_))))) (let () (declare (not safe)) - (_g186951186968_ _g186952186971_)))))) + (_g186881186898_ _g186882186901_)))))) (declare (not safe)) - (_g186950187013_ _stx186949_)))) + (_g186880186943_ _stx186879_)))) (define gxc#count-values-call% - (lambda (_stx186816_) - (let* ((___stx203006203007_ _stx186816_) - (_g186819186848_ + (lambda (_stx186746_) + (let* ((___stx202936202937_ _stx186746_) + (_g186749186778_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx203006203007_))))) - (let ((___kont203008203009_ - (lambda (_L186916_ _L186917_) - (length (let ((__tmp203915 - (lambda (_g186938186941_ _g186939186943_) + ___stx202936202937_))))) + (let ((___kont202938202939_ + (lambda (_L186846_ _L186847_) + (length (let ((__tmp203845 + (lambda (_g186868186871_ _g186869186873_) (let () (declare (not safe)) - (cons _g186938186941_ - _g186939186943_))))) + (cons _g186868186871_ + _g186869186873_))))) (declare (not safe)) - (foldr1 __tmp203915 '() _L186916_))))) - (___kont203012203013_ (lambda () '#f))) - (let ((___match203051203052_ - (lambda (_e186825186860_ - _hd186824186863_ - _tl186823186865_ - _e186828186868_ - _hd186827186871_ - _tl186826186873_ - _e186831186876_ - _hd186830186879_ - _tl186829186881_ - _e186834186884_ - _hd186833186887_ - _tl186832186889_ - ___splice203010203011_ - _target186835186892_ - _tl186837186894_) - (letrec ((_loop186838186897_ - (lambda (_hd186836186900_ _rand186842186902_) + (foldr1 __tmp203845 '() _L186846_))))) + (___kont202942202943_ (lambda () '#f))) + (let ((___match202981202982_ + (lambda (_e186755186790_ + _hd186754186793_ + _tl186753186795_ + _e186758186798_ + _hd186757186801_ + _tl186756186803_ + _e186761186806_ + _hd186760186809_ + _tl186759186811_ + _e186764186814_ + _hd186763186817_ + _tl186762186819_ + ___splice202940202941_ + _target186765186822_ + _tl186767186824_) + (letrec ((_loop186768186827_ + (lambda (_hd186766186830_ _rand186772186832_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd186836186900_)) - (let ((_e186839186905_ + (gx#stx-pair? _hd186766186830_)) + (let ((_e186769186835_ (let () (declare (not safe)) - (gx#stx-e _hd186836186900_)))) - (let ((_lp-tl186841186910_ + (gx#stx-e _hd186766186830_)))) + (let ((_lp-tl186771186840_ (let () (declare (not safe)) - (##cdr _e186839186905_))) - (_lp-hd186840186908_ + (##cdr _e186769186835_))) + (_lp-hd186770186838_ (let () (declare (not safe)) - (##car _e186839186905_)))) - (let ((__tmp203916 + (##car _e186769186835_)))) + (let ((__tmp203846 (let () (declare (not safe)) - (cons _lp-hd186840186908_ - _rand186842186902_)))) + (cons _lp-hd186770186838_ + _rand186772186832_)))) (declare (not safe)) - (_loop186838186897_ - _lp-tl186841186910_ - __tmp203916)))) - (let ((_rand186843186913_ - (reverse _rand186842186902_))) - (let ((_L186916_ _rand186843186913_) - (_L186917_ _hd186833186887_)) + (_loop186768186827_ + _lp-tl186771186840_ + __tmp203846)))) + (let ((_rand186773186843_ + (reverse _rand186772186832_))) + (let ((_L186846_ _rand186773186843_) + (_L186847_ _hd186763186817_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L186917_ + _L186847_ 'values)) - (___kont203008203009_ - _L186916_ - _L186917_) - (___kont203012203013_)))))))) + (___kont202938202939_ + _L186846_ + _L186847_) + (___kont202942202943_)))))))) (let () (declare (not safe)) - (_loop186838186897_ _target186835186892_ '())))))) + (_loop186768186827_ _target186765186822_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx203006203007_)) - (let ((_e186825186860_ + (gx#stx-pair? ___stx202936202937_)) + (let ((_e186755186790_ (let () (declare (not safe)) - (gx#stx-e ___stx203006203007_)))) - (let ((_tl186823186865_ + (gx#stx-e ___stx202936202937_)))) + (let ((_tl186753186795_ (let () (declare (not safe)) - (##cdr _e186825186860_))) - (_hd186824186863_ + (##cdr _e186755186790_))) + (_hd186754186793_ (let () (declare (not safe)) - (##car _e186825186860_)))) + (##car _e186755186790_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186823186865_)) - (let ((_e186828186868_ + (gx#stx-pair? _tl186753186795_)) + (let ((_e186758186798_ (let () (declare (not safe)) - (gx#stx-e _tl186823186865_)))) - (let ((_tl186826186873_ + (gx#stx-e _tl186753186795_)))) + (let ((_tl186756186803_ (let () (declare (not safe)) - (##cdr _e186828186868_))) - (_hd186827186871_ + (##cdr _e186758186798_))) + (_hd186757186801_ (let () (declare (not safe)) - (##car _e186828186868_)))) + (##car _e186758186798_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd186827186871_)) - (let ((_e186831186876_ + (gx#stx-pair? _hd186757186801_)) + (let ((_e186761186806_ (let () (declare (not safe)) - (gx#stx-e _hd186827186871_)))) - (let ((_tl186829186881_ + (gx#stx-e _hd186757186801_)))) + (let ((_tl186759186811_ (let () (declare (not safe)) - (##cdr _e186831186876_))) - (_hd186830186879_ + (##cdr _e186761186806_))) + (_hd186760186809_ (let () (declare (not safe)) - (##car _e186831186876_)))) + (##car _e186761186806_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd186830186879_)) + _hd186760186809_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd186830186879_)) + _hd186760186809_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl186829186881_)) - (let ((_e186834186884_ + _tl186759186811_)) + (let ((_e186764186814_ (let () (declare (not safe)) (gx#stx-e - _tl186829186881_)))) - (let ((_tl186832186889_ + _tl186759186811_)))) + (let ((_tl186762186819_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e186834186884_))) - (_hd186833186887_ - (let () (declare (not safe)) (##car _e186834186884_)))) + (##cdr _e186764186814_))) + (_hd186763186817_ + (let () (declare (not safe)) (##car _e186764186814_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl186832186889_)) + (gx#stx-null? _tl186762186819_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl186826186873_)) - (let ((___splice203010203011_ + (gx#stx-pair/null? _tl186756186803_)) + (let ((___splice202940202941_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl186826186873_ + _tl186756186803_ '0)))) - (let ((_tl186837186894_ + (let ((_tl186767186824_ (let () (declare (not safe)) - (##vector-ref ___splice203010203011_ '1))) - (_target186835186892_ + (##vector-ref ___splice202940202941_ '1))) + (_target186765186822_ (let () (declare (not safe)) - (##vector-ref ___splice203010203011_ '0)))) + (##vector-ref ___splice202940202941_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl186837186894_)) - (___match203051203052_ - _e186825186860_ - _hd186824186863_ - _tl186823186865_ - _e186828186868_ - _hd186827186871_ - _tl186826186873_ - _e186831186876_ - _hd186830186879_ - _tl186829186881_ - _e186834186884_ - _hd186833186887_ - _tl186832186889_ - ___splice203010203011_ - _target186835186892_ - _tl186837186894_) - (___kont203012203013_)))) - (___kont203012203013_)) - (___kont203012203013_)))) + (gx#stx-null? _tl186767186824_)) + (___match202981202982_ + _e186755186790_ + _hd186754186793_ + _tl186753186795_ + _e186758186798_ + _hd186757186801_ + _tl186756186803_ + _e186761186806_ + _hd186760186809_ + _tl186759186811_ + _e186764186814_ + _hd186763186817_ + _tl186762186819_ + ___splice202940202941_ + _target186765186822_ + _tl186767186824_) + (___kont202942202943_)))) + (___kont202942202943_)) + (___kont202942202943_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont203012203013_)) - (___kont203012203013_)) - (___kont203012203013_)))) - (___kont203012203013_)))) - (___kont203012203013_)))) - (___kont203012203013_))))))) + (___kont202942202943_)) + (___kont202942202943_)) + (___kont202942202943_)))) + (___kont202942202943_)))) + (___kont202942202943_)))) + (___kont202942202943_))))))) (define gxc#count-values-if% - (lambda (_stx186720_) - (let* ((_g186722186743_ - (lambda (_g186723186740_) + (lambda (_stx186650_) + (let* ((_g186652186673_ + (lambda (_g186653186670_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g186723186740_)))) - (_g186721186813_ - (lambda (_g186723186746_) + _g186653186670_)))) + (_g186651186743_ + (lambda (_g186653186676_) (if (let () (declare (not safe)) - (gx#stx-pair? _g186723186746_)) - (let ((_e186729186748_ + (gx#stx-pair? _g186653186676_)) + (let ((_e186659186678_ (let () (declare (not safe)) - (gx#stx-e _g186723186746_)))) - (let ((_hd186728186751_ + (gx#stx-e _g186653186676_)))) + (let ((_hd186658186681_ (let () (declare (not safe)) - (##car _e186729186748_))) - (_tl186727186753_ + (##car _e186659186678_))) + (_tl186657186683_ (let () (declare (not safe)) - (##cdr _e186729186748_)))) + (##cdr _e186659186678_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186727186753_)) - (let ((_e186732186756_ + (gx#stx-pair? _tl186657186683_)) + (let ((_e186662186686_ (let () (declare (not safe)) - (gx#stx-e _tl186727186753_)))) - (let ((_hd186731186759_ + (gx#stx-e _tl186657186683_)))) + (let ((_hd186661186689_ (let () (declare (not safe)) - (##car _e186732186756_))) - (_tl186730186761_ + (##car _e186662186686_))) + (_tl186660186691_ (let () (declare (not safe)) - (##cdr _e186732186756_)))) + (##cdr _e186662186686_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186730186761_)) - (let ((_e186735186764_ + (gx#stx-pair? _tl186660186691_)) + (let ((_e186665186694_ (let () (declare (not safe)) - (gx#stx-e _tl186730186761_)))) - (let ((_hd186734186767_ + (gx#stx-e _tl186660186691_)))) + (let ((_hd186664186697_ (let () (declare (not safe)) - (##car _e186735186764_))) - (_tl186733186769_ + (##car _e186665186694_))) + (_tl186663186699_ (let () (declare (not safe)) - (##cdr _e186735186764_)))) + (##cdr _e186665186694_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl186733186769_)) - (let ((_e186738186772_ + _tl186663186699_)) + (let ((_e186668186702_ (let () (declare (not safe)) (gx#stx-e - _tl186733186769_)))) - (let ((_hd186737186775_ + _tl186663186699_)))) + (let ((_hd186667186705_ (let () (declare (not safe)) - (##car _e186738186772_))) - (_tl186736186777_ + (##car _e186668186702_))) + (_tl186666186707_ (let () (declare (not safe)) - (##cdr _e186738186772_)))) + (##cdr _e186668186702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl186736186777_)) - ((lambda (_L186780_ + _tl186666186707_)) + ((lambda (_L186710_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L186781_ - _L186782_) - (let ((_c1186799186801_ + _L186711_ + _L186712_) + (let ((_c1186729186731_ (let () (declare (not safe)) - (gxc#compile-e__0 _L186781_)))) - (if _c1186799186801_ - (let* ((_c1186804_ _c1186799186801_) - (_c2186805186807_ + (gxc#compile-e__0 _L186711_)))) + (if _c1186729186731_ + (let* ((_c1186734_ _c1186729186731_) + (_c2186735186737_ (let () (declare (not safe)) - (gxc#compile-e__0 _L186780_)))) - (if _c2186805186807_ - (let ((_c2186810_ _c2186805186807_)) - (if (fx= _c1186804_ _c2186810_) - _c1186804_ + (gxc#compile-e__0 _L186710_)))) + (if _c2186735186737_ + (let ((_c2186740_ _c2186735186737_)) + (if (fx= _c1186734_ _c2186740_) + _c1186734_ '#f)) '#f)) '#f))) - _hd186737186775_ - _hd186734186767_ - _hd186731186759_) + _hd186667186705_ + _hd186664186697_ + _hd186661186689_) (let () (declare (not safe)) - (_g186722186743_ _g186723186746_))))) + (_g186652186673_ _g186653186676_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g186722186743_ - _g186723186746_))))) + (_g186652186673_ + _g186653186676_))))) (let () (declare (not safe)) - (_g186722186743_ _g186723186746_))))) + (_g186652186673_ _g186653186676_))))) (let () (declare (not safe)) - (_g186722186743_ _g186723186746_))))) + (_g186652186673_ _g186653186676_))))) (let () (declare (not safe)) - (_g186722186743_ _g186723186746_)))))) + (_g186652186673_ _g186653186676_)))))) (declare (not safe)) - (_g186721186813_ _stx186720_))))))) + (_g186651186743_ _stx186650_))))))) diff --git a/src/bootstrap/gerbil/compiler/compile__1.scm b/src/bootstrap/gerbil/compiler/compile__1.scm index 1bf467849..6312cdc85 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]#_g204292_| + (define |gxc[1]#_g204222_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204294_| + (define |gxc[1]#_g204224_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204296_| + (define |gxc[1]#_g204226_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204303_| + (define |gxc[1]#_g204233_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204306_| + (define |gxc[1]#_g204236_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204309_| + (define |gxc[1]#_g204239_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204312_| + (define |gxc[1]#_g204242_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204319_| + (define |gxc[1]#_g204249_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204322_| + (define |gxc[1]#_g204252_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204325_| + (define |gxc[1]#_g204255_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204328_| + (define |gxc[1]#_g204258_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204335_| + (define |gxc[1]#_g204265_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204338_| + (define |gxc[1]#_g204268_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204341_| + (define |gxc[1]#_g204271_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204344_| + (define |gxc[1]#_g204274_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204351_| + (define |gxc[1]#_g204281_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204354_| + (define |gxc[1]#_g204284_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204357_| + (define |gxc[1]#_g204287_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204360_| + (define |gxc[1]#_g204290_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204362_| + (define |gxc[1]#_g204292_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204364_| + (define |gxc[1]#_g204294_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204366_| + (define |gxc[1]#_g204296_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204373_| + (define |gxc[1]#_g204303_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204376_| + (define |gxc[1]#_g204306_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204379_| + (define |gxc[1]#_g204309_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204382_| + (define |gxc[1]#_g204312_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204389_| + (define |gxc[1]#_g204319_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204392_| + (define |gxc[1]#_g204322_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204395_| + (define |gxc[1]#_g204325_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204398_| + (define |gxc[1]#_g204328_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204405_| + (define |gxc[1]#_g204335_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204408_| + (define |gxc[1]#_g204338_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204411_| + (define |gxc[1]#_g204341_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204414_| + (define |gxc[1]#_g204344_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204421_| + (define |gxc[1]#_g204351_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204424_| + (define |gxc[1]#_g204354_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204427_| + (define |gxc[1]#_g204357_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g204430_| + (define |gxc[1]#_g204360_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! @@ -268,105 +268,105 @@ '())) (begin (define |gxc[:0:]#do-compile-e| - (lambda (_$stx185880_) - (let* ((_g185884185906_ - (lambda (_g185885185902_) + (lambda (_$stx185810_) + (let* ((_g185814185836_ + (lambda (_g185815185832_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g185885185902_)))) - (_g185883185976_ - (lambda (_g185885185910_) + _g185815185832_)))) + (_g185813185906_ + (lambda (_g185815185840_) (if (let () (declare (not safe)) - (gx#stx-pair? _g185885185910_)) - (let ((_e185891185913_ + (gx#stx-pair? _g185815185840_)) + (let ((_e185821185843_ (let () (declare (not safe)) - (gx#syntax-e _g185885185910_)))) - (let ((_hd185890185917_ + (gx#syntax-e _g185815185840_)))) + (let ((_hd185820185847_ (let () (declare (not safe)) - (##car _e185891185913_))) - (_tl185889185920_ + (##car _e185821185843_))) + (_tl185819185850_ (let () (declare (not safe)) - (##cdr _e185891185913_)))) + (##cdr _e185821185843_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl185889185920_)) - (let ((_e185894185923_ + (gx#stx-pair? _tl185819185850_)) + (let ((_e185824185853_ (let () (declare (not safe)) - (gx#syntax-e _tl185889185920_)))) - (let ((_hd185893185927_ + (gx#syntax-e _tl185819185850_)))) + (let ((_hd185823185857_ (let () (declare (not safe)) - (##car _e185894185923_))) - (_tl185892185930_ + (##car _e185824185853_))) + (_tl185822185860_ (let () (declare (not safe)) - (##cdr _e185894185923_)))) + (##cdr _e185824185853_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl185892185930_)) - (let ((_e185897185933_ + (gx#stx-pair? _tl185822185860_)) + (let ((_e185827185863_ (let () (declare (not safe)) (gx#syntax-e - _tl185892185930_)))) - (let ((_hd185896185937_ + _tl185822185860_)))) + (let ((_hd185826185867_ (let () (declare (not safe)) - (##car _e185897185933_))) - (_tl185895185940_ + (##car _e185827185863_))) + (_tl185825185870_ (let () (declare (not safe)) - (##cdr _e185897185933_)))) + (##cdr _e185827185863_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl185895185940_)) - (let ((_e185900185943_ + _tl185825185870_)) + (let ((_e185830185873_ (let () (declare (not safe)) (gx#syntax-e - _tl185895185940_)))) - (let ((_hd185899185947_ + _tl185825185870_)))) + (let ((_hd185829185877_ (let () (declare (not safe)) - (##car _e185900185943_))) - (_tl185898185950_ + (##car _e185830185873_))) + (_tl185828185880_ (let () (declare (not safe)) - (##cdr _e185900185943_)))) + (##cdr _e185830185873_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl185898185950_)) - ((lambda (_L185953_ - _L185955_ - _L185956_) - (let ((__tmp203971 + _tl185828185880_)) + ((lambda (_L185883_ + _L185885_ + _L185886_) + (let ((__tmp203901 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp203917 - (let ((__tmp203918 - (let ((__tmp203919 - (let ((__tmp203933 - (let ((__tmp203968 - (let ((__tmp203970 + (__tmp203847 + (let ((__tmp203848 + (let ((__tmp203849 + (let ((__tmp203863 + (let ((__tmp203898 + (let ((__tmp203900 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd))) - (__tmp203969 + (__tmp203899 (let () (declare (not safe)) @@ -374,1254 +374,1254 @@ '#f '_)))) (declare (not safe)) - (cons __tmp203970 - __tmp203969))) - (__tmp203934 - (let ((__tmp203935 - (let ((__tmp203967 + (cons __tmp203900 + __tmp203899))) + (__tmp203864 + (let ((__tmp203865 + (let ((__tmp203897 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond))) - (__tmp203936 - (let ((__tmp203937 - (let ((__tmp203954 - (let ((__tmp203966 + (__tmp203866 + (let ((__tmp203867 + (let ((__tmp203884 + (let ((__tmp203896 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-get))) - (__tmp203955 - (let ((__tmp203964 - (let ((__tmp203965 + (__tmp203885 + (let ((__tmp203894 + (let ((__tmp203895 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods)))) (declare (not safe)) - (cons __tmp203965 '()))) + (cons __tmp203895 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp203956 - (let ((__tmp203957 - (let ((__tmp203963 + (__tmp203886 + (let ((__tmp203887 + (let ((__tmp203893 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx-e))) - (__tmp203958 - (let ((__tmp203959 - (let ((__tmp203962 + (__tmp203888 + (let ((__tmp203889 + (let ((__tmp203892 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp203960 - (let ((__tmp203961 + (__tmp203890 + (let ((__tmp203891 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp203961 '())))) + (cons __tmp203891 '())))) (declare (not safe)) - (cons __tmp203962 __tmp203960)))) + (cons __tmp203892 __tmp203890)))) (declare (not safe)) - (cons __tmp203959 '())))) + (cons __tmp203889 '())))) (declare (not safe)) - (cons __tmp203963 __tmp203958)))) + (cons __tmp203893 __tmp203888)))) (declare (not safe)) - (cons __tmp203957 '())))) + (cons __tmp203887 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203964 - __tmp203956)))) + (cons __tmp203894 + __tmp203886)))) (declare (not safe)) - (cons __tmp203966 __tmp203955))) - (__tmp203938 - (let ((__tmp203953 + (cons __tmp203896 __tmp203885))) + (__tmp203868 + (let ((__tmp203883 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '=>))) - (__tmp203939 - (let ((__tmp203940 - (let ((__tmp203952 + (__tmp203869 + (let ((__tmp203870 + (let ((__tmp203882 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp203941 - (let ((__tmp203951 - (let () (declare (not safe)) (cons _L185955_ '()))) - (__tmp203942 - (let ((__tmp203944 - (let ((__tmp203950 + (__tmp203871 + (let ((__tmp203881 + (let () (declare (not safe)) (cons _L185885_ '()))) + (__tmp203872 + (let ((__tmp203874 + (let ((__tmp203880 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp203945 - (let ((__tmp203946 - (let ((__tmp203949 + (__tmp203875 + (let ((__tmp203876 + (let ((__tmp203879 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp203947 - (let ((__tmp203948 + (__tmp203877 + (let ((__tmp203878 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp203948 '())))) + (cons __tmp203878 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203949 - __tmp203947)))) + (cons __tmp203879 + __tmp203877)))) (declare (not safe)) - (cons __tmp203946 '())))) + (cons __tmp203876 '())))) (declare (not safe)) - (cons __tmp203950 __tmp203945))) - (__tmp203943 + (cons __tmp203880 __tmp203875))) + (__tmp203873 (let () (declare (not safe)) - (cons _L185953_ '())))) + (cons _L185883_ '())))) (declare (not safe)) - (cons __tmp203944 __tmp203943)))) + (cons __tmp203874 __tmp203873)))) (declare (not safe)) - (cons __tmp203951 __tmp203942)))) + (cons __tmp203881 __tmp203872)))) (declare (not safe)) - (cons __tmp203952 __tmp203941)))) + (cons __tmp203882 __tmp203871)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203940 '())))) + (cons __tmp203870 '())))) (declare (not safe)) - (cons __tmp203953 __tmp203939)))) + (cons __tmp203883 __tmp203869)))) (declare (not safe)) - (cons __tmp203954 __tmp203938)))) + (cons __tmp203884 __tmp203868)))) (declare (not safe)) - (cons __tmp203937 '())))) + (cons __tmp203867 '())))) (declare (not safe)) - (cons __tmp203967 __tmp203936)))) + (cons __tmp203897 __tmp203866)))) (declare (not safe)) - (cons __tmp203935 '())))) + (cons __tmp203865 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203968 __tmp203934))) - (__tmp203920 - (let ((__tmp203921 - (let ((__tmp203932 + (cons __tmp203898 __tmp203864))) + (__tmp203850 + (let ((__tmp203851 + (let ((__tmp203862 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp203922 - (let ((__tmp203923 + (__tmp203852 + (let ((__tmp203853 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp203931 + (let ((__tmp203861 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'raise-compile-error))) - (__tmp203924 - (let ((__tmp203925 - (let ((__tmp203926 - (let ((__tmp203927 - (let ((__tmp203930 + (__tmp203854 + (let ((__tmp203855 + (let ((__tmp203856 + (let ((__tmp203857 + (let ((__tmp203860 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp203928 - (let ((__tmp203929 + (__tmp203858 + (let ((__tmp203859 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp203929 '())))) + (cons __tmp203859 '())))) (declare (not safe)) - (cons __tmp203930 __tmp203928)))) + (cons __tmp203860 __tmp203858)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203927 '())))) + (cons __tmp203857 '())))) (declare (not safe)) - (cons _L185956_ __tmp203926)))) + (cons _L185886_ __tmp203856)))) (declare (not safe)) (cons '"Cannot compile; missing method" - __tmp203925)))) + __tmp203855)))) (declare (not safe)) - (cons __tmp203931 __tmp203924)))) + (cons __tmp203861 __tmp203854)))) (declare (not safe)) - (cons __tmp203923 '())))) + (cons __tmp203853 '())))) (declare (not safe)) - (cons __tmp203932 __tmp203922)))) + (cons __tmp203862 __tmp203852)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203921 '())))) + (cons __tmp203851 '())))) (declare (not safe)) - (cons __tmp203933 __tmp203920)))) + (cons __tmp203863 __tmp203850)))) (declare (not safe)) - (cons '() __tmp203919)))) + (cons '() __tmp203849)))) (declare (not safe)) - (cons _L185956_ __tmp203918)))) + (cons _L185886_ __tmp203848)))) (declare (not safe)) - (cons __tmp203971 __tmp203917))) - _hd185899185947_ - _hd185896185937_ - _hd185893185927_) - (_g185884185906_ _g185885185910_)))) + (cons __tmp203901 __tmp203847))) + _hd185829185877_ + _hd185826185867_ + _hd185823185857_) + (_g185814185836_ _g185815185840_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g185884185906_ - _g185885185910_)))) - (_g185884185906_ _g185885185910_)))) - (_g185884185906_ _g185885185910_)))) - (_g185884185906_ _g185885185910_))))) - (_g185883185976_ _$stx185880_)))) + (_g185814185836_ + _g185815185840_)))) + (_g185814185836_ _g185815185840_)))) + (_g185814185836_ _g185815185840_)))) + (_g185814185836_ _g185815185840_))))) + (_g185813185906_ _$stx185810_)))) (define |gxc[:0:]#defcompile-method| - (lambda (_$stx185980_) - (let* ((___stx201630201631_ _$stx185980_) - (_g185986186066_ + (lambda (_$stx185910_) + (let* ((___stx201560201561_ _$stx185910_) + (_g185916185996_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx201630201631_))))) - (let ((___kont201633201634_ - (lambda (_L186362_ _L186364_ _L186365_ _L186366_) - (let ((__tmp203972 - (let ((__tmp203973 - (let ((__tmp203974 + ___stx201560201561_))))) + (let ((___kont201563201564_ + (lambda (_L186292_ _L186294_ _L186295_ _L186296_) + (let ((__tmp203902 + (let ((__tmp203903 + (let ((__tmp203904 (let () (declare (not safe)) - (cons _L186364_ '())))) + (cons _L186294_ '())))) (declare (not safe)) - (cons __tmp203974 _L186362_)))) + (cons __tmp203904 _L186292_)))) (declare (not safe)) - (cons _L186365_ __tmp203973)))) + (cons _L186295_ __tmp203903)))) (declare (not safe)) - (cons _L186366_ __tmp203972)))) - (___kont201635201636_ - (lambda (_L186274_ _L186276_ _L186277_ _L186278_) - (let ((__tmp204011 + (cons _L186296_ __tmp203902)))) + (___kont201565201566_ + (lambda (_L186204_ _L186206_ _L186207_ _L186208_) + (let ((__tmp203941 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp203975 - (let ((__tmp203976 - (let ((__tmp203977 - (let ((__tmp204010 + (__tmp203905 + (let ((__tmp203906 + (let ((__tmp203907 + (let ((__tmp203940 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp203978 - (let ((__tmp203979 - (let ((__tmp204009 + (__tmp203908 + (let ((__tmp203909 + (let ((__tmp203939 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp203980 - (let ((__tmp204004 - (let ((__tmp204008 + (__tmp203910 + (let ((__tmp203934 + (let ((__tmp203938 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp204005 - (let ((__tmp204006 - (let ((__tmp204007 + (__tmp203935 + (let ((__tmp203936 + (let ((__tmp203937 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-hash-table-eq)))) (declare (not safe)) - (cons __tmp204007 '())))) + (cons __tmp203937 '())))) (declare (not safe)) - (cons __tmp204006 '())))) + (cons __tmp203936 '())))) (declare (not safe)) - (cons __tmp204008 __tmp204005))) - (__tmp203981 - (let ((__tmp203995 - (lambda (_g186305186311_ _g186306186314_) - (let ((__tmp203996 - (let ((__tmp204003 + (cons __tmp203938 __tmp203935))) + (__tmp203911 + (let ((__tmp203925 + (lambda (_g186235186241_ _g186236186244_) + (let ((__tmp203926 + (let ((__tmp203933 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-copy!))) - (__tmp203997 - (let ((__tmp204002 + (__tmp203927 + (let ((__tmp203932 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp203998 - (let ((__tmp203999 + (__tmp203928 + (let ((__tmp203929 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp204001 + (let ((__tmp203931 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp204000 + (__tmp203930 (let () (declare (not safe)) - (cons _g186305186311_ '())))) + (cons _g186235186241_ '())))) (declare (not safe)) - (cons __tmp204001 __tmp204000)))) + (cons __tmp203931 __tmp203930)))) (declare (not safe)) - (cons __tmp203999 '())))) + (cons __tmp203929 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204002 - __tmp203998)))) + (cons __tmp203932 + __tmp203928)))) (declare (not safe)) - (cons __tmp204003 __tmp203997)))) + (cons __tmp203933 __tmp203927)))) (declare (not safe)) - (cons __tmp203996 _g186306186314_)))) - (__tmp203982 + (cons __tmp203926 _g186236186244_)))) + (__tmp203912 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L186274_ - _L186276_)) - (let ((__tmp203985 - (lambda (_g186307186317_ - _g186308186320_ - _g186309186322_) - (let ((__tmp203986 - (let ((__tmp203994 + _L186204_ + _L186206_)) + (let ((__tmp203915 + (lambda (_g186237186247_ + _g186238186250_ + _g186239186252_) + (let ((__tmp203916 + (let ((__tmp203924 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp203987 - (let ((__tmp203993 + (__tmp203917 + (let ((__tmp203923 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp203988 - (let ((__tmp203990 - (let ((__tmp203992 + (__tmp203918 + (let ((__tmp203920 + (let ((__tmp203922 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp203991 + (__tmp203921 (let () (declare (not safe)) - (cons _g186308186320_ '())))) + (cons _g186238186250_ '())))) (declare (not safe)) - (cons __tmp203992 __tmp203991))) - (__tmp203989 + (cons __tmp203922 __tmp203921))) + (__tmp203919 (let () (declare (not safe)) - (cons _g186307186317_ '())))) + (cons _g186237186247_ '())))) (declare (not safe)) - (cons __tmp203990 __tmp203989)))) + (cons __tmp203920 __tmp203919)))) (declare (not safe)) - (cons __tmp203993 __tmp203988)))) + (cons __tmp203923 __tmp203918)))) (declare (not safe)) - (cons __tmp203994 __tmp203987)))) + (cons __tmp203924 __tmp203917)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203986 - _g186309186322_)))) - (__tmp203983 - (let ((__tmp203984 + (cons __tmp203916 + _g186239186252_)))) + (__tmp203913 + (let ((__tmp203914 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl)))) (declare (not safe)) - (cons __tmp203984 '())))) + (cons __tmp203914 '())))) (declare (not safe)) - (foldr2 __tmp203985 - __tmp203983 - _L186274_ - _L186276_))))) + (foldr2 __tmp203915 + __tmp203913 + _L186204_ + _L186206_))))) (declare (not safe)) - (foldr1 __tmp203995 __tmp203982 _L186277_)))) + (foldr1 __tmp203925 __tmp203912 _L186207_)))) (declare (not safe)) - (cons __tmp204004 __tmp203981)))) + (cons __tmp203934 __tmp203911)))) (declare (not safe)) - (cons __tmp204009 __tmp203980)))) + (cons __tmp203939 __tmp203910)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp203979 '())))) + (cons __tmp203909 '())))) (declare (not safe)) - (cons __tmp204010 __tmp203978)))) + (cons __tmp203940 __tmp203908)))) (declare (not safe)) - (cons __tmp203977 '())))) + (cons __tmp203907 '())))) (declare (not safe)) - (cons _L186278_ __tmp203976)))) + (cons _L186208_ __tmp203906)))) (declare (not safe)) - (cons __tmp204011 __tmp203975)))) - (___kont201641201642_ - (lambda (_L186113_ _L186115_ _L186116_ _L186117_ _L186118_) - (let ((__tmp204051 + (cons __tmp203941 __tmp203905)))) + (___kont201571201572_ + (lambda (_L186043_ _L186045_ _L186046_ _L186047_ _L186048_) + (let ((__tmp203981 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp204012 - (let ((__tmp204047 - (let ((__tmp204048 - (let ((__tmp204049 - (let ((__tmp204050 + (__tmp203942 + (let ((__tmp203977 + (let ((__tmp203978 + (let ((__tmp203979 + (let ((__tmp203980 (let () (declare (not safe)) - (cons _L186116_ - _L186115_)))) + (cons _L186046_ + _L186045_)))) (declare (not safe)) - (cons __tmp204050 - _L186113_)))) + (cons __tmp203980 + _L186043_)))) (declare (not safe)) - (cons '#f __tmp204049)))) + (cons '#f __tmp203979)))) (declare (not safe)) - (cons _L186118_ __tmp204048))) - (__tmp204013 - (let ((__tmp204014 - (let ((__tmp204046 + (cons _L186048_ __tmp203978))) + (__tmp203943 + (let ((__tmp203944 + (let ((__tmp203976 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp204015 - (let ((__tmp204042 - (let ((__tmp204043 - (let ((__tmp204045 + (__tmp203945 + (let ((__tmp203972 + (let ((__tmp203973 + (let ((__tmp203975 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp204044 + (__tmp203974 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp204045 __tmp204044)))) + (cons __tmp203975 __tmp203974)))) (declare (not safe)) - (cons _L186117_ __tmp204043))) + (cons _L186047_ __tmp203973))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp204016 - (let ((__tmp204017 - (let ((__tmp204041 + (__tmp203946 + (let ((__tmp203947 + (let ((__tmp203971 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'parameterize))) - (__tmp204018 - (let ((__tmp204034 - (let ((__tmp204035 - (let ((__tmp204040 + (__tmp203948 + (let ((__tmp203964 + (let ((__tmp203965 + (let ((__tmp203970 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods))) - (__tmp204036 - (let ((__tmp204037 - (let ((__tmp204039 + (__tmp203966 + (let ((__tmp203967 + (let ((__tmp203969 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp204038 - (let () (declare (not safe)) (cons _L186116_ '())))) + (__tmp203968 + (let () (declare (not safe)) (cons _L186046_ '())))) (declare (not safe)) - (cons __tmp204039 __tmp204038)))) + (cons __tmp203969 __tmp203968)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204037 '())))) + (cons __tmp203967 '())))) (declare (not safe)) - (cons __tmp204040 __tmp204036)))) + (cons __tmp203970 __tmp203966)))) (declare (not safe)) - (cons __tmp204035 '()))) - (__tmp204019 - (let ((__tmp204027 - (let ((__tmp204033 + (cons __tmp203965 '()))) + (__tmp203949 + (let ((__tmp203957 + (let ((__tmp203963 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp204028 - (let ((__tmp204029 - (let ((__tmp204032 + (__tmp203958 + (let ((__tmp203959 + (let ((__tmp203962 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp204030 - (let ((__tmp204031 + (__tmp203960 + (let ((__tmp203961 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp204031 '())))) + (cons __tmp203961 '())))) (declare (not safe)) - (cons __tmp204032 __tmp204030)))) + (cons __tmp203962 __tmp203960)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204029 '())))) + (cons __tmp203959 '())))) (declare (not safe)) - (cons __tmp204033 __tmp204028))) - (__tmp204020 - (let ((__tmp204021 - (let ((__tmp204026 + (cons __tmp203963 __tmp203958))) + (__tmp203950 + (let ((__tmp203951 + (let ((__tmp203956 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'do-apply-compile-e))) - (__tmp204022 - (let ((__tmp204025 + (__tmp203952 + (let ((__tmp203955 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp204023 - (let ((__tmp204024 + (__tmp203953 + (let ((__tmp203954 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp204024 '())))) + (cons __tmp203954 '())))) (declare (not safe)) - (cons __tmp204025 __tmp204023)))) + (cons __tmp203955 __tmp203953)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204026 - __tmp204022)))) + (cons __tmp203956 + __tmp203952)))) (declare (not safe)) - (cons __tmp204021 '())))) + (cons __tmp203951 '())))) (declare (not safe)) - (cons __tmp204027 __tmp204020)))) + (cons __tmp203957 __tmp203950)))) (declare (not safe)) - (cons __tmp204034 __tmp204019)))) + (cons __tmp203964 __tmp203949)))) (declare (not safe)) - (cons __tmp204041 __tmp204018)))) + (cons __tmp203971 __tmp203948)))) (declare (not safe)) - (cons __tmp204017 '())))) + (cons __tmp203947 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204042 - __tmp204016)))) + (cons __tmp203972 + __tmp203946)))) (declare (not safe)) - (cons __tmp204046 __tmp204015)))) + (cons __tmp203976 __tmp203945)))) (declare (not safe)) - (cons __tmp204014 '())))) + (cons __tmp203944 '())))) (declare (not safe)) - (cons __tmp204047 __tmp204013)))) + (cons __tmp203977 __tmp203943)))) (declare (not safe)) - (cons __tmp204051 __tmp204012))))) - (let* ((___match201723201724_ - (lambda (_e186051186073_ - _hd186050186077_ - _tl186049186080_ - _e186054186083_ - _hd186053186087_ - _tl186052186090_ - _e186057186093_ - _hd186056186097_ - _tl186055186100_ - _e186060186103_ - _hd186059186107_ - _tl186058186110_) - (let ((_L186113_ _tl186055186100_) - (_L186115_ _tl186058186110_) - (_L186116_ _hd186059186107_) - (_L186117_ _hd186053186087_) - (_L186118_ _hd186050186077_)) + (cons __tmp203981 __tmp203942))))) + (let* ((___match201653201654_ + (lambda (_e185981186003_ + _hd185980186007_ + _tl185979186010_ + _e185984186013_ + _hd185983186017_ + _tl185982186020_ + _e185987186023_ + _hd185986186027_ + _tl185985186030_ + _e185990186033_ + _hd185989186037_ + _tl185988186040_) + (let ((_L186043_ _tl185985186030_) + (_L186045_ _tl185988186040_) + (_L186046_ _hd185989186037_) + (_L186047_ _hd185983186017_) + (_L186048_ _hd185980186007_)) (if (let () (declare (not safe)) - (gx#identifier? _L186117_)) - (___kont201641201642_ - _L186113_ - _L186115_ - _L186116_ - _L186117_ - _L186118_) - (let () (declare (not safe)) (_g185986186066_)))))) - (___match201699201700_ - (lambda (_e186007186146_ - _hd186006186150_ - _tl186005186153_ - _e186010186156_ - _hd186009186160_ - _tl186008186163_ - _e186011186166_ - _e186014186170_ - _hd186013186174_ - _tl186012186177_ - _e186017186180_ - _hd186016186184_ - _tl186015186187_ - ___splice201637201638_ - _target186018186190_ - _tl186020186193_) - (letrec ((_loop186021186196_ - (lambda (_hd186019186200_ _super186025186203_) + (gx#identifier? _L186047_)) + (___kont201571201572_ + _L186043_ + _L186045_ + _L186046_ + _L186047_ + _L186048_) + (let () (declare (not safe)) (_g185916185996_)))))) + (___match201629201630_ + (lambda (_e185937186076_ + _hd185936186080_ + _tl185935186083_ + _e185940186086_ + _hd185939186090_ + _tl185938186093_ + _e185941186096_ + _e185944186100_ + _hd185943186104_ + _tl185942186107_ + _e185947186110_ + _hd185946186114_ + _tl185945186117_ + ___splice201567201568_ + _target185948186120_ + _tl185950186123_) + (letrec ((_loop185951186126_ + (lambda (_hd185949186130_ _super185955186133_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd186019186200_)) - (let ((_e186022186206_ + (gx#stx-pair? _hd185949186130_)) + (let ((_e185952186136_ (let () (declare (not safe)) (gx#syntax-e - _hd186019186200_)))) - (let ((_lp-tl186024186213_ + _hd185949186130_)))) + (let ((_lp-tl185954186143_ (let () (declare (not safe)) - (##cdr _e186022186206_))) - (_lp-hd186023186210_ + (##cdr _e185952186136_))) + (_lp-hd185953186140_ (let () (declare (not safe)) - (##car _e186022186206_)))) - (_loop186021186196_ - _lp-tl186024186213_ + (##car _e185952186136_)))) + (_loop185951186126_ + _lp-tl185954186143_ (let () (declare (not safe)) - (cons _lp-hd186023186210_ - _super186025186203_))))) - (let ((_super186026186216_ - (reverse _super186025186203_))) + (cons _lp-hd185953186140_ + _super185955186133_))))) + (let ((_super185956186146_ + (reverse _super185955186133_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl186012186177_)) - (let ((___splice201639201640_ + _tl185942186107_)) + (let ((___splice201569201570_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl186012186177_ + _tl185942186107_ '0)))) - (let ((_tl186029186223_ + (let ((_tl185959186153_ (let () (declare (not safe)) (##vector-ref - ___splice201639201640_ + ___splice201569201570_ '1))) - (_target186027186220_ + (_target185957186150_ (let () (declare (not safe)) (##vector-ref - ___splice201639201640_ + ___splice201569201570_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl186029186223_)) - (letrec ((_loop186030186226_ - (lambda (_hd186028186230_ + _tl185959186153_)) + (letrec ((_loop185960186156_ + (lambda (_hd185958186160_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _method186034186233_ - _symbol186035186235_) + _method185964186163_ + _symbol185965186165_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd186028186230_)) - (let ((_e186031186238_ + (gx#stx-pair? _hd185958186160_)) + (let ((_e185961186168_ (let () (declare (not safe)) - (gx#syntax-e _hd186028186230_)))) - (let ((_lp-tl186033186245_ + (gx#syntax-e _hd185958186160_)))) + (let ((_lp-tl185963186175_ (let () (declare (not safe)) - (##cdr _e186031186238_))) - (_lp-hd186032186242_ + (##cdr _e185961186168_))) + (_lp-hd185962186172_ (let () (declare (not safe)) - (##car _e186031186238_)))) + (##car _e185961186168_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd186032186242_)) - (let ((_e186040186248_ + (gx#stx-pair? _lp-hd185962186172_)) + (let ((_e185970186178_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd186032186242_)))) - (let ((_tl186038186255_ + _lp-hd185962186172_)))) + (let ((_tl185968186185_ (let () (declare (not safe)) - (##cdr _e186040186248_))) - (_hd186039186252_ + (##cdr _e185970186178_))) + (_hd185969186182_ (let () (declare (not safe)) - (##car _e186040186248_)))) + (##car _e185970186178_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186038186255_)) - (let ((_e186043186258_ + (gx#stx-pair? _tl185968186185_)) + (let ((_e185973186188_ (let () (declare (not safe)) (gx#syntax-e - _tl186038186255_)))) - (let ((_tl186041186265_ + _tl185968186185_)))) + (let ((_tl185971186195_ (let () (declare (not safe)) - (##cdr _e186043186258_))) - (_hd186042186262_ + (##cdr _e185973186188_))) + (_hd185972186192_ (let () (declare (not safe)) - (##car _e186043186258_)))) + (##car _e185973186188_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl186041186265_)) - (_loop186030186226_ - _lp-tl186033186245_ + _tl185971186195_)) + (_loop185960186156_ + _lp-tl185963186175_ (let () (declare (not safe)) - (cons _hd186042186262_ - _method186034186233_)) + (cons _hd185972186192_ + _method185964186163_)) (let () (declare (not safe)) - (cons _hd186039186252_ - _symbol186035186235_))) - (___match201723201724_ - _e186007186146_ - _hd186006186150_ - _tl186005186153_ - _e186010186156_ - _hd186009186160_ - _tl186008186163_ - _e186014186170_ - _hd186013186174_ - _tl186012186177_ - _e186017186180_ - _hd186016186184_ - _tl186015186187_)))) - (___match201723201724_ - _e186007186146_ - _hd186006186150_ - _tl186005186153_ - _e186010186156_ - _hd186009186160_ - _tl186008186163_ - _e186014186170_ - _hd186013186174_ - _tl186012186177_ - _e186017186180_ - _hd186016186184_ - _tl186015186187_)))) - (___match201723201724_ - _e186007186146_ - _hd186006186150_ - _tl186005186153_ - _e186010186156_ - _hd186009186160_ - _tl186008186163_ - _e186014186170_ - _hd186013186174_ - _tl186012186177_ - _e186017186180_ - _hd186016186184_ - _tl186015186187_)))) - (let ((_symbol186037186271_ - (reverse _symbol186035186235_)) - (_method186036186268_ - (reverse _method186034186233_))) - (___kont201635201636_ - _method186036186268_ - _symbol186037186271_ - _super186026186216_ - _hd186016186184_)))))) - (_loop186030186226_ _target186027186220_ '() '())) + (cons _hd185969186182_ + _symbol185965186165_))) + (___match201653201654_ + _e185937186076_ + _hd185936186080_ + _tl185935186083_ + _e185940186086_ + _hd185939186090_ + _tl185938186093_ + _e185944186100_ + _hd185943186104_ + _tl185942186107_ + _e185947186110_ + _hd185946186114_ + _tl185945186117_)))) + (___match201653201654_ + _e185937186076_ + _hd185936186080_ + _tl185935186083_ + _e185940186086_ + _hd185939186090_ + _tl185938186093_ + _e185944186100_ + _hd185943186104_ + _tl185942186107_ + _e185947186110_ + _hd185946186114_ + _tl185945186117_)))) + (___match201653201654_ + _e185937186076_ + _hd185936186080_ + _tl185935186083_ + _e185940186086_ + _hd185939186090_ + _tl185938186093_ + _e185944186100_ + _hd185943186104_ + _tl185942186107_ + _e185947186110_ + _hd185946186114_ + _tl185945186117_)))) + (let ((_symbol185967186201_ + (reverse _symbol185965186165_)) + (_method185966186198_ + (reverse _method185964186163_))) + (___kont201565201566_ + _method185966186198_ + _symbol185967186201_ + _super185956186146_ + _hd185946186114_)))))) + (_loop185960186156_ _target185957186150_ '() '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match201723201724_ - _e186007186146_ - _hd186006186150_ - _tl186005186153_ - _e186010186156_ - _hd186009186160_ - _tl186008186163_ - _e186014186170_ - _hd186013186174_ - _tl186012186177_ - _e186017186180_ - _hd186016186184_ - _tl186015186187_)))) - (___match201723201724_ - _e186007186146_ - _hd186006186150_ - _tl186005186153_ - _e186010186156_ - _hd186009186160_ - _tl186008186163_ - _e186014186170_ - _hd186013186174_ - _tl186012186177_ - _e186017186180_ - _hd186016186184_ - _tl186015186187_))))))) - (_loop186021186196_ _target186018186190_ '())))) - (___match201661201662_ - (lambda (_e185994186332_ - _hd185993186336_ - _tl185992186339_ - _e185997186342_ - _hd185996186346_ - _tl185995186349_ - _e186000186352_ - _hd185999186356_ - _tl185998186359_) - (let ((_L186362_ _tl185998186359_) - (_L186364_ _hd185999186356_) - (_L186365_ _hd185996186346_) - (_L186366_ _hd185993186336_)) + (___match201653201654_ + _e185937186076_ + _hd185936186080_ + _tl185935186083_ + _e185940186086_ + _hd185939186090_ + _tl185938186093_ + _e185944186100_ + _hd185943186104_ + _tl185942186107_ + _e185947186110_ + _hd185946186114_ + _tl185945186117_)))) + (___match201653201654_ + _e185937186076_ + _hd185936186080_ + _tl185935186083_ + _e185940186086_ + _hd185939186090_ + _tl185938186093_ + _e185944186100_ + _hd185943186104_ + _tl185942186107_ + _e185947186110_ + _hd185946186114_ + _tl185945186117_))))))) + (_loop185951186126_ _target185948186120_ '())))) + (___match201591201592_ + (lambda (_e185924186262_ + _hd185923186266_ + _tl185922186269_ + _e185927186272_ + _hd185926186276_ + _tl185925186279_ + _e185930186282_ + _hd185929186286_ + _tl185928186289_) + (let ((_L186292_ _tl185928186289_) + (_L186294_ _hd185929186286_) + (_L186295_ _hd185926186276_) + (_L186296_ _hd185923186266_)) (if (let () (declare (not safe)) - (gx#identifier? _L186364_)) - (___kont201633201634_ - _L186362_ - _L186364_ - _L186365_ - _L186366_) + (gx#identifier? _L186294_)) + (___kont201563201564_ + _L186292_ + _L186294_ + _L186295_ + _L186296_) (if (let () (declare (not safe)) - (gx#stx-datum? _hd185996186346_)) - (let ((_e186011186166_ + (gx#stx-datum? _hd185926186276_)) + (let ((_e185941186096_ (let () (declare (not safe)) - (gx#stx-e _hd185996186346_)))) + (gx#stx-e _hd185926186276_)))) (if (let () (declare (not safe)) - (equal? _e186011186166_ '#f)) + (equal? _e185941186096_ '#f)) (if (let () (declare (not safe)) - (gx#stx-pair? _hd185999186356_)) - (let ((_e186017186180_ + (gx#stx-pair? _hd185929186286_)) + (let ((_e185947186110_ (let () (declare (not safe)) (gx#syntax-e - _hd185999186356_)))) - (let ((_tl186015186187_ + _hd185929186286_)))) + (let ((_tl185945186117_ (let () (declare (not safe)) - (##cdr _e186017186180_))) - (_hd186016186184_ + (##cdr _e185947186110_))) + (_hd185946186114_ (let () (declare (not safe)) - (##car _e186017186180_)))) + (##car _e185947186110_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl186015186187_)) - (let ((___splice201637201638_ + _tl185945186117_)) + (let ((___splice201567201568_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl186015186187_ + _tl185945186117_ '0)))) - (let ((_tl186020186193_ + (let ((_tl185950186123_ (let () (declare (not safe)) (##vector-ref - ___splice201637201638_ + ___splice201567201568_ '1))) - (_target186018186190_ + (_target185948186120_ (let () (declare (not safe)) (##vector-ref - ___splice201637201638_ + ___splice201567201568_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl186020186193_)) - (___match201699201700_ - _e185994186332_ - _hd185993186336_ - _tl185992186339_ - _e185997186342_ - _hd185996186346_ - _tl185995186349_ - _e186011186166_ - _e186000186352_ - _hd185999186356_ - _tl185998186359_ - _e186017186180_ - _hd186016186184_ - _tl186015186187_ - ___splice201637201638_ - _target186018186190_ - _tl186020186193_) - (___match201723201724_ - _e185994186332_ - _hd185993186336_ - _tl185992186339_ - _e185997186342_ - _hd185996186346_ - _tl185995186349_ - _e186000186352_ - _hd185999186356_ - _tl185998186359_ - _e186017186180_ - _hd186016186184_ - _tl186015186187_)))) - (___match201723201724_ - _e185994186332_ - _hd185993186336_ - _tl185992186339_ - _e185997186342_ - _hd185996186346_ - _tl185995186349_ - _e186000186352_ - _hd185999186356_ - _tl185998186359_ - _e186017186180_ - _hd186016186184_ - _tl186015186187_)))) + _tl185950186123_)) + (___match201629201630_ + _e185924186262_ + _hd185923186266_ + _tl185922186269_ + _e185927186272_ + _hd185926186276_ + _tl185925186279_ + _e185941186096_ + _e185930186282_ + _hd185929186286_ + _tl185928186289_ + _e185947186110_ + _hd185946186114_ + _tl185945186117_ + ___splice201567201568_ + _target185948186120_ + _tl185950186123_) + (___match201653201654_ + _e185924186262_ + _hd185923186266_ + _tl185922186269_ + _e185927186272_ + _hd185926186276_ + _tl185925186279_ + _e185930186282_ + _hd185929186286_ + _tl185928186289_ + _e185947186110_ + _hd185946186114_ + _tl185945186117_)))) + (___match201653201654_ + _e185924186262_ + _hd185923186266_ + _tl185922186269_ + _e185927186272_ + _hd185926186276_ + _tl185925186279_ + _e185930186282_ + _hd185929186286_ + _tl185928186289_ + _e185947186110_ + _hd185946186114_ + _tl185945186117_)))) (let () (declare (not safe)) - (_g185986186066_))) + (_g185916185996_))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd185999186356_)) - (let ((_e186060186103_ + (gx#stx-pair? _hd185929186286_)) + (let ((_e185990186033_ (let () (declare (not safe)) (gx#syntax-e - _hd185999186356_)))) - (let ((_tl186058186110_ + _hd185929186286_)))) + (let ((_tl185988186040_ (let () (declare (not safe)) - (##cdr _e186060186103_))) - (_hd186059186107_ + (##cdr _e185990186033_))) + (_hd185989186037_ (let () (declare (not safe)) - (##car _e186060186103_)))) - (___match201723201724_ - _e185994186332_ - _hd185993186336_ - _tl185992186339_ - _e185997186342_ - _hd185996186346_ - _tl185995186349_ - _e186000186352_ - _hd185999186356_ - _tl185998186359_ - _e186060186103_ - _hd186059186107_ - _tl186058186110_))) + (##car _e185990186033_)))) + (___match201653201654_ + _e185924186262_ + _hd185923186266_ + _tl185922186269_ + _e185927186272_ + _hd185926186276_ + _tl185925186279_ + _e185930186282_ + _hd185929186286_ + _tl185928186289_ + _e185990186033_ + _hd185989186037_ + _tl185988186040_))) (let () (declare (not safe)) - (_g185986186066_))))) + (_g185916185996_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd185999186356_)) - (let ((_e186060186103_ + (gx#stx-pair? _hd185929186286_)) + (let ((_e185990186033_ (let () (declare (not safe)) - (gx#syntax-e _hd185999186356_)))) - (let ((_tl186058186110_ + (gx#syntax-e _hd185929186286_)))) + (let ((_tl185988186040_ (let () (declare (not safe)) - (##cdr _e186060186103_))) - (_hd186059186107_ + (##cdr _e185990186033_))) + (_hd185989186037_ (let () (declare (not safe)) - (##car _e186060186103_)))) - (___match201723201724_ - _e185994186332_ - _hd185993186336_ - _tl185992186339_ - _e185997186342_ - _hd185996186346_ - _tl185995186349_ - _e186000186352_ - _hd185999186356_ - _tl185998186359_ - _e186060186103_ - _hd186059186107_ - _tl186058186110_))) + (##car _e185990186033_)))) + (___match201653201654_ + _e185924186262_ + _hd185923186266_ + _tl185922186269_ + _e185927186272_ + _hd185926186276_ + _tl185925186279_ + _e185930186282_ + _hd185929186286_ + _tl185928186289_ + _e185990186033_ + _hd185989186037_ + _tl185988186040_))) (let () (declare (not safe)) - (_g185986186066_))))))))) + (_g185916185996_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx201630201631_)) - (let ((_e185994186332_ + (gx#stx-pair? ___stx201560201561_)) + (let ((_e185924186262_ (let () (declare (not safe)) - (gx#syntax-e ___stx201630201631_)))) - (let ((_tl185992186339_ + (gx#syntax-e ___stx201560201561_)))) + (let ((_tl185922186269_ (let () (declare (not safe)) - (##cdr _e185994186332_))) - (_hd185993186336_ + (##cdr _e185924186262_))) + (_hd185923186266_ (let () (declare (not safe)) - (##car _e185994186332_)))) + (##car _e185924186262_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl185992186339_)) - (let ((_e185997186342_ + (gx#stx-pair? _tl185922186269_)) + (let ((_e185927186272_ (let () (declare (not safe)) - (gx#syntax-e _tl185992186339_)))) - (let ((_tl185995186349_ + (gx#syntax-e _tl185922186269_)))) + (let ((_tl185925186279_ (let () (declare (not safe)) - (##cdr _e185997186342_))) - (_hd185996186346_ + (##cdr _e185927186272_))) + (_hd185926186276_ (let () (declare (not safe)) - (##car _e185997186342_)))) + (##car _e185927186272_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl185995186349_)) - (let ((_e186000186352_ + (gx#stx-pair? _tl185925186279_)) + (let ((_e185930186282_ (let () (declare (not safe)) - (gx#syntax-e _tl185995186349_)))) - (let ((_tl185998186359_ + (gx#syntax-e _tl185925186279_)))) + (let ((_tl185928186289_ (let () (declare (not safe)) - (##cdr _e186000186352_))) - (_hd185999186356_ + (##cdr _e185930186282_))) + (_hd185929186286_ (let () (declare (not safe)) - (##car _e186000186352_)))) - (___match201661201662_ - _e185994186332_ - _hd185993186336_ - _tl185992186339_ - _e185997186342_ - _hd185996186346_ - _tl185995186349_ - _e186000186352_ - _hd185999186356_ - _tl185998186359_))) + (##car _e185930186282_)))) + (___match201591201592_ + _e185924186262_ + _hd185923186266_ + _tl185922186269_ + _e185927186272_ + _hd185926186276_ + _tl185925186279_ + _e185930186282_ + _hd185929186286_ + _tl185928186289_))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd185996186346_)) - (let ((_e186011186166_ + (gx#stx-datum? _hd185926186276_)) + (let ((_e185941186096_ (let () (declare (not safe)) - (gx#stx-e _hd185996186346_)))) + (gx#stx-e _hd185926186276_)))) (declare (not safe)) - (_g185986186066_)) + (_g185916185996_)) (let () (declare (not safe)) - (_g185986186066_)))))) - (let () (declare (not safe)) (_g185986186066_))))) - (let () (declare (not safe)) (_g185986186066_)))))))) + (_g185916185996_)))))) + (let () (declare (not safe)) (_g185916185996_))))) + (let () (declare (not safe)) (_g185916185996_)))))))) (define |gxc[:0:]#do-apply-compile-e| - (lambda (_$stx186389_) - (let* ((_g186393186411_ - (lambda (_g186394186407_) + (lambda (_$stx186319_) + (let* ((_g186323186341_ + (lambda (_g186324186337_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g186394186407_)))) - (_g186392186466_ - (lambda (_g186394186415_) + _g186324186337_)))) + (_g186322186396_ + (lambda (_g186324186345_) (if (let () (declare (not safe)) - (gx#stx-pair? _g186394186415_)) - (let ((_e186399186418_ + (gx#stx-pair? _g186324186345_)) + (let ((_e186329186348_ (let () (declare (not safe)) - (gx#syntax-e _g186394186415_)))) - (let ((_hd186398186422_ + (gx#syntax-e _g186324186345_)))) + (let ((_hd186328186352_ (let () (declare (not safe)) - (##car _e186399186418_))) - (_tl186397186425_ + (##car _e186329186348_))) + (_tl186327186355_ (let () (declare (not safe)) - (##cdr _e186399186418_)))) + (##cdr _e186329186348_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186397186425_)) - (let ((_e186402186428_ + (gx#stx-pair? _tl186327186355_)) + (let ((_e186332186358_ (let () (declare (not safe)) - (gx#syntax-e _tl186397186425_)))) - (let ((_hd186401186432_ + (gx#syntax-e _tl186327186355_)))) + (let ((_hd186331186362_ (let () (declare (not safe)) - (##car _e186402186428_))) - (_tl186400186435_ + (##car _e186332186358_))) + (_tl186330186365_ (let () (declare (not safe)) - (##cdr _e186402186428_)))) + (##cdr _e186332186358_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186400186435_)) - (let ((_e186405186438_ + (gx#stx-pair? _tl186330186365_)) + (let ((_e186335186368_ (let () (declare (not safe)) (gx#syntax-e - _tl186400186435_)))) - (let ((_hd186404186442_ + _tl186330186365_)))) + (let ((_hd186334186372_ (let () (declare (not safe)) - (##car _e186405186438_))) - (_tl186403186445_ + (##car _e186335186368_))) + (_tl186333186375_ (let () (declare (not safe)) - (##cdr _e186405186438_)))) + (##cdr _e186335186368_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl186403186445_)) - ((lambda (_L186448_ _L186450_) - (let ((__tmp204140 + _tl186333186375_)) + ((lambda (_L186378_ _L186380_) + (let ((__tmp204070 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp204052 - (let ((__tmp204137 - (let ((__tmp204139 + (__tmp203982 + (let ((__tmp204067 + (let ((__tmp204069 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp204138 + (__tmp204068 (let () (declare (not safe)) - (cons _L186448_ '())))) + (cons _L186378_ '())))) (declare (not safe)) - (cons __tmp204139 __tmp204138))) - (__tmp204053 - (let ((__tmp204134 - (let ((__tmp204136 + (cons __tmp204069 __tmp204068))) + (__tmp203983 + (let ((__tmp204064 + (let ((__tmp204066 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp204135 + (__tmp204065 (let () (declare (not safe)) - (cons _L186450_ '())))) + (cons _L186380_ '())))) (declare (not safe)) - (cons __tmp204136 __tmp204135))) - (__tmp204054 - (let ((__tmp204055 - (let ((__tmp204133 + (cons __tmp204066 __tmp204065))) + (__tmp203984 + (let ((__tmp203985 + (let ((__tmp204063 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp204056 - (let ((__tmp204119 - (let ((__tmp204127 - (let ((__tmp204132 + (__tmp203986 + (let ((__tmp204049 + (let ((__tmp204057 + (let ((__tmp204062 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp204128 - (let ((__tmp204129 - (let ((__tmp204131 + (__tmp204058 + (let ((__tmp204059 + (let ((__tmp204061 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp204130 + (__tmp204060 (let () (declare (not safe)) - (cons _L186448_ '())))) + (cons _L186378_ '())))) (declare (not safe)) - (cons __tmp204131 __tmp204130)))) + (cons __tmp204061 __tmp204060)))) (declare (not safe)) - (cons __tmp204129 '())))) + (cons __tmp204059 '())))) (declare (not safe)) - (cons __tmp204132 __tmp204128))) - (__tmp204120 - (let ((__tmp204121 - (let ((__tmp204126 + (cons __tmp204062 __tmp204058))) + (__tmp204050 + (let ((__tmp204051 + (let ((__tmp204056 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp204122 - (let ((__tmp204123 - (let ((__tmp204125 + (__tmp204052 + (let ((__tmp204053 + (let ((__tmp204055 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp204124 + (__tmp204054 (let () (declare (not safe)) - (cons _L186448_ '())))) + (cons _L186378_ '())))) (declare (not safe)) - (cons __tmp204125 __tmp204124)))) + (cons __tmp204055 __tmp204054)))) (declare (not safe)) - (cons __tmp204123 '())))) + (cons __tmp204053 '())))) (declare (not safe)) - (cons __tmp204126 __tmp204122)))) + (cons __tmp204056 __tmp204052)))) (declare (not safe)) - (cons __tmp204121 '())))) + (cons __tmp204051 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204127 - __tmp204120))) - (__tmp204057 - (let ((__tmp204058 - (let ((__tmp204118 + (cons __tmp204057 + __tmp204050))) + (__tmp203987 + (let ((__tmp203988 + (let ((__tmp204048 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp204059 - (let ((__tmp204114 - (let ((__tmp204117 + (__tmp203989 + (let ((__tmp204044 + (let ((__tmp204047 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp204115 - (let ((__tmp204116 + (__tmp204045 + (let ((__tmp204046 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp204116 '())))) + (cons __tmp204046 '())))) (declare (not safe)) - (cons __tmp204117 __tmp204115))) - (__tmp204060 - (let ((__tmp204109 - (let ((__tmp204113 + (cons __tmp204047 __tmp204045))) + (__tmp203990 + (let ((__tmp204039 + (let ((__tmp204043 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp204110 - (let ((__tmp204111 - (let ((__tmp204112 + (__tmp204040 + (let ((__tmp204041 + (let ((__tmp204042 (let () (declare (not safe)) @@ -1629,578 +1629,578 @@ '#f 'arg1)))) (declare (not safe)) - (cons __tmp204112 + (cons __tmp204042 '())))) (declare (not safe)) - (cons _L186450_ __tmp204111)))) + (cons _L186380_ __tmp204041)))) (declare (not safe)) - (cons __tmp204113 __tmp204110))) - (__tmp204061 - (let ((__tmp204062 - (let ((__tmp204108 + (cons __tmp204043 __tmp204040))) + (__tmp203991 + (let ((__tmp203992 + (let ((__tmp204038 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp204063 - (let ((__tmp204092 - (let ((__tmp204101 + (__tmp203993 + (let ((__tmp204022 + (let ((__tmp204031 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp204107 + (let ((__tmp204037 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp204102 - (let ((__tmp204103 - (let ((__tmp204106 + (__tmp204032 + (let ((__tmp204033 + (let ((__tmp204036 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp204104 - (let ((__tmp204105 + (__tmp204034 + (let ((__tmp204035 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp204105 '())))) + (cons __tmp204035 '())))) (declare (not safe)) - (cons __tmp204106 __tmp204104)))) + (cons __tmp204036 __tmp204034)))) (declare (not safe)) - (cons __tmp204103 '())))) + (cons __tmp204033 '())))) (declare (not safe)) - (cons __tmp204107 __tmp204102))) - (__tmp204093 - (let ((__tmp204094 - (let ((__tmp204100 + (cons __tmp204037 __tmp204032))) + (__tmp204023 + (let ((__tmp204024 + (let ((__tmp204030 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp204095 - (let ((__tmp204096 - (let ((__tmp204099 + (__tmp204025 + (let ((__tmp204026 + (let ((__tmp204029 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp204097 - (let ((__tmp204098 + (__tmp204027 + (let ((__tmp204028 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp204098 '())))) + (cons __tmp204028 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204099 - __tmp204097)))) + (cons __tmp204029 + __tmp204027)))) (declare (not safe)) - (cons __tmp204096 '())))) + (cons __tmp204026 '())))) (declare (not safe)) - (cons __tmp204100 __tmp204095)))) + (cons __tmp204030 __tmp204025)))) (declare (not safe)) - (cons __tmp204094 '())))) + (cons __tmp204024 '())))) (declare (not safe)) - (cons __tmp204101 __tmp204093))) - (__tmp204064 - (let ((__tmp204065 - (let ((__tmp204091 + (cons __tmp204031 __tmp204023))) + (__tmp203994 + (let ((__tmp203995 + (let ((__tmp204021 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp204066 - (let ((__tmp204087 - (let ((__tmp204090 + (__tmp203996 + (let ((__tmp204017 + (let ((__tmp204020 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp204088 - (let ((__tmp204089 + (__tmp204018 + (let ((__tmp204019 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp204089 '())))) + (cons __tmp204019 '())))) (declare (not safe)) - (cons __tmp204090 __tmp204088))) - (__tmp204067 - (let ((__tmp204080 - (let ((__tmp204086 + (cons __tmp204020 __tmp204018))) + (__tmp203997 + (let ((__tmp204010 + (let ((__tmp204016 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp204081 - (let ((__tmp204082 - (let ((__tmp204085 + (__tmp204011 + (let ((__tmp204012 + (let ((__tmp204015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp204083 - (let ((__tmp204084 + (__tmp204013 + (let ((__tmp204014 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2)))) (declare (not safe)) - (cons __tmp204084 '())))) + (cons __tmp204014 '())))) (declare (not safe)) - (cons __tmp204085 __tmp204083)))) + (cons __tmp204015 __tmp204013)))) (declare (not safe)) - (cons _L186450_ __tmp204082)))) + (cons _L186380_ __tmp204012)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204086 - __tmp204081))) - (__tmp204068 - (let ((__tmp204069 - (let ((__tmp204079 + (cons __tmp204016 + __tmp204011))) + (__tmp203998 + (let ((__tmp203999 + (let ((__tmp204009 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'apply))) - (__tmp204070 - (let ((__tmp204078 + (__tmp204000 + (let ((__tmp204008 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp204071 - (let ((__tmp204072 - (let ((__tmp204077 + (__tmp204001 + (let ((__tmp204002 + (let ((__tmp204007 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp204073 - (let ((__tmp204076 + (__tmp204003 + (let ((__tmp204006 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp204074 - (let ((__tmp204075 + (__tmp204004 + (let ((__tmp204005 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp204075 '())))) + (cons __tmp204005 '())))) (declare (not safe)) - (cons __tmp204076 __tmp204074)))) + (cons __tmp204006 __tmp204004)))) (declare (not safe)) - (cons __tmp204077 __tmp204073)))) + (cons __tmp204007 __tmp204003)))) (declare (not safe)) - (cons _L186450_ __tmp204072)))) + (cons _L186380_ __tmp204002)))) (declare (not safe)) - (cons __tmp204078 __tmp204071)))) + (cons __tmp204008 __tmp204001)))) (declare (not safe)) - (cons __tmp204079 __tmp204070)))) + (cons __tmp204009 __tmp204000)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204069 '())))) + (cons __tmp203999 '())))) (declare (not safe)) - (cons __tmp204080 __tmp204068)))) + (cons __tmp204010 __tmp203998)))) (declare (not safe)) - (cons __tmp204087 __tmp204067)))) + (cons __tmp204017 __tmp203997)))) (declare (not safe)) - (cons __tmp204091 __tmp204066)))) + (cons __tmp204021 __tmp203996)))) (declare (not safe)) - (cons __tmp204065 '())))) + (cons __tmp203995 '())))) (declare (not safe)) - (cons __tmp204092 __tmp204064)))) + (cons __tmp204022 __tmp203994)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204108 - __tmp204063)))) + (cons __tmp204038 + __tmp203993)))) (declare (not safe)) - (cons __tmp204062 '())))) + (cons __tmp203992 '())))) (declare (not safe)) - (cons __tmp204109 __tmp204061)))) + (cons __tmp204039 __tmp203991)))) (declare (not safe)) - (cons __tmp204114 __tmp204060)))) + (cons __tmp204044 __tmp203990)))) (declare (not safe)) - (cons __tmp204118 __tmp204059)))) + (cons __tmp204048 __tmp203989)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204058 '())))) + (cons __tmp203988 '())))) (declare (not safe)) - (cons __tmp204119 __tmp204057)))) + (cons __tmp204049 __tmp203987)))) (declare (not safe)) - (cons __tmp204133 __tmp204056)))) + (cons __tmp204063 __tmp203986)))) (declare (not safe)) - (cons __tmp204055 '())))) + (cons __tmp203985 '())))) (declare (not safe)) - (cons __tmp204134 __tmp204054)))) + (cons __tmp204064 __tmp203984)))) (declare (not safe)) - (cons __tmp204137 __tmp204053)))) + (cons __tmp204067 __tmp203983)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204140 - __tmp204052))) - _hd186404186442_ - _hd186401186432_) - (_g186393186411_ - _g186394186415_)))) - (_g186393186411_ _g186394186415_)))) - (_g186393186411_ _g186394186415_)))) - (_g186393186411_ _g186394186415_))))) - (_g186392186466_ _$stx186389_)))) + (cons __tmp204070 + __tmp203982))) + _hd186334186372_ + _hd186331186362_) + (_g186323186341_ + _g186324186345_)))) + (_g186323186341_ _g186324186345_)))) + (_g186323186341_ _g186324186345_)))) + (_g186323186341_ _g186324186345_))))) + (_g186322186396_ _$stx186319_)))) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_$stx186470_) - (let* ((_g186474186509_ - (lambda (_g186475186505_) + (lambda (_$stx186400_) + (let* ((_g186404186439_ + (lambda (_g186405186435_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g186475186505_)))) - (_g186473186634_ - (lambda (_g186475186513_) + _g186405186435_)))) + (_g186403186564_ + (lambda (_g186405186443_) (if (let () (declare (not safe)) - (gx#stx-pair? _g186475186513_)) - (let ((_e186482186516_ + (gx#stx-pair? _g186405186443_)) + (let ((_e186412186446_ (let () (declare (not safe)) - (gx#syntax-e _g186475186513_)))) - (let ((_hd186481186520_ + (gx#syntax-e _g186405186443_)))) + (let ((_hd186411186450_ (let () (declare (not safe)) - (##car _e186482186516_))) - (_tl186480186523_ + (##car _e186412186446_))) + (_tl186410186453_ (let () (declare (not safe)) - (##cdr _e186482186516_)))) + (##cdr _e186412186446_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186480186523_)) - (let ((_e186485186526_ + (gx#stx-pair? _tl186410186453_)) + (let ((_e186415186456_ (let () (declare (not safe)) - (gx#syntax-e _tl186480186523_)))) - (let ((_hd186484186530_ + (gx#syntax-e _tl186410186453_)))) + (let ((_hd186414186460_ (let () (declare (not safe)) - (##car _e186485186526_))) - (_tl186483186533_ + (##car _e186415186456_))) + (_tl186413186463_ (let () (declare (not safe)) - (##cdr _e186485186526_)))) + (##cdr _e186415186456_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd186484186530_)) - (let ((_e186488186536_ + (gx#stx-pair? _hd186414186460_)) + (let ((_e186418186466_ (let () (declare (not safe)) (gx#syntax-e - _hd186484186530_)))) - (let ((_hd186487186540_ + _hd186414186460_)))) + (let ((_hd186417186470_ (let () (declare (not safe)) - (##car _e186488186536_))) - (_tl186486186543_ + (##car _e186418186466_))) + (_tl186416186473_ (let () (declare (not safe)) - (##cdr _e186488186536_)))) + (##cdr _e186418186466_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl186486186543_)) - (let ((_e186491186546_ + _tl186416186473_)) + (let ((_e186421186476_ (let () (declare (not safe)) (gx#syntax-e - _tl186486186543_)))) - (let ((_hd186490186550_ + _tl186416186473_)))) + (let ((_hd186420186480_ (let () (declare (not safe)) - (##car _e186491186546_))) - (_tl186489186553_ + (##car _e186421186476_))) + (_tl186419186483_ (let () (declare (not safe)) - (##cdr _e186491186546_)))) + (##cdr _e186421186476_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl186489186553_)) - (let ((_e186494186556_ + _tl186419186483_)) + (let ((_e186424186486_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _tl186489186553_)))) - (let ((_hd186493186560_ - (let () (declare (not safe)) (##car _e186494186556_))) - (_tl186492186563_ - (let () (declare (not safe)) (##cdr _e186494186556_)))) + (gx#syntax-e _tl186419186483_)))) + (let ((_hd186423186490_ + (let () (declare (not safe)) (##car _e186424186486_))) + (_tl186422186493_ + (let () (declare (not safe)) (##cdr _e186424186486_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl186492186563_)) + (gx#stx-null? _tl186422186493_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl186483186533_)) - (let ((_g204141_ + (gx#stx-pair/null? _tl186413186463_)) + (let ((_g204071_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl186483186533_ + _tl186413186463_ '0)))) (begin - (let ((_g204142_ + (let ((_g204072_ (let () (declare (not safe)) - (if (##values? _g204141_) - (##vector-length _g204141_) + (if (##values? _g204071_) + (##vector-length _g204071_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g204142_ 2))) + (##fx= _g204072_ 2))) (error "Context expects 2 values" - _g204142_))) - (let ((_target186495186566_ + _g204072_))) + (let ((_target186425186496_ (let () (declare (not safe)) - (##vector-ref _g204141_ 0))) - (_tl186497186569_ + (##vector-ref _g204071_ 0))) + (_tl186427186499_ (let () (declare (not safe)) - (##vector-ref _g204141_ 1)))) + (##vector-ref _g204071_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl186497186569_)) - (letrec ((_loop186498186572_ - (lambda (_hd186496186576_ - _body186502186579_) + (gx#stx-null? _tl186427186499_)) + (letrec ((_loop186428186502_ + (lambda (_hd186426186506_ + _body186432186509_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd186496186576_)) - (let ((_e186499186582_ + _hd186426186506_)) + (let ((_e186429186512_ (let () (declare (not safe)) (gx#syntax-e - _hd186496186576_)))) - (let ((_lp-hd186500186586_ + _hd186426186506_)))) + (let ((_lp-hd186430186516_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e186499186582_))) - (_lp-tl186501186589_ - (let () (declare (not safe)) (##cdr _e186499186582_)))) - (_loop186498186572_ - _lp-tl186501186589_ + (##car _e186429186512_))) + (_lp-tl186431186519_ + (let () (declare (not safe)) (##cdr _e186429186512_)))) + (_loop186428186502_ + _lp-tl186431186519_ (let () (declare (not safe)) - (cons _lp-hd186500186586_ _body186502186579_))))) + (cons _lp-hd186430186516_ _body186432186509_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body186503186592_ - (reverse _body186502186579_))) - ((lambda (_L186596_ - _L186598_ - _L186599_ - _L186600_) - (let ((__tmp204274 + (let ((_body186433186522_ + (reverse _body186432186509_))) + ((lambda (_L186526_ + _L186528_ + _L186529_ + _L186530_) + (let ((__tmp204204 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp204143 - (let ((__tmp204273 + (__tmp204073 + (let ((__tmp204203 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp204144 - (let ((__tmp204259 - (let ((__tmp204270 - (let ((__tmp204272 + (__tmp204074 + (let ((__tmp204189 + (let ((__tmp204200 + (let ((__tmp204202 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp204271 + (__tmp204201 (let () (declare (not safe)) - (cons _L186598_ '())))) + (cons _L186528_ '())))) (declare (not safe)) - (cons __tmp204272 __tmp204271))) - (__tmp204260 - (let ((__tmp204266 - (let ((__tmp204267 - (let ((__tmp204268 + (cons __tmp204202 __tmp204201))) + (__tmp204190 + (let ((__tmp204196 + (let ((__tmp204197 + (let ((__tmp204198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp204269 + (let ((__tmp204199 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp204269 '())))) + (cons __tmp204199 '())))) (declare (not safe)) - (cons __tmp204268 '())))) + (cons __tmp204198 '())))) (declare (not safe)) - (cons _L186600_ __tmp204267))) + (cons _L186530_ __tmp204197))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp204261 - (let ((__tmp204262 - (let ((__tmp204263 + (__tmp204191 + (let ((__tmp204192 + (let ((__tmp204193 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp204264 - (let ((__tmp204265 + (let ((__tmp204194 + (let ((__tmp204195 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp204265 '())))) + (cons __tmp204195 '())))) (declare (not safe)) - (cons __tmp204264 '())))) + (cons __tmp204194 '())))) (declare (not safe)) - (cons _L186599_ __tmp204263)))) + (cons _L186529_ __tmp204193)))) (declare (not safe)) - (cons __tmp204262 '())))) + (cons __tmp204192 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204266 - __tmp204261)))) + (cons __tmp204196 + __tmp204191)))) (declare (not safe)) - (cons __tmp204270 __tmp204260))) - (__tmp204145 - (let ((__tmp204146 - (let ((__tmp204258 + (cons __tmp204200 __tmp204190))) + (__tmp204075 + (let ((__tmp204076 + (let ((__tmp204188 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'match))) - (__tmp204147 - (let ((__tmp204257 + (__tmp204077 + (let ((__tmp204187 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp204148 - (let ((__tmp204154 + (__tmp204078 + (let ((__tmp204084 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp204252 - (let ((__tmp204256 + (let ((__tmp204182 + (let ((__tmp204186 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp204253 - (let ((__tmp204255 + (__tmp204183 + (let ((__tmp204185 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp204254 + (__tmp204184 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp204255 __tmp204254)))) + (cons __tmp204185 __tmp204184)))) (declare (not safe)) - (cons __tmp204256 __tmp204253))) - (__tmp204155 - (let ((__tmp204156 - (let ((__tmp204251 + (cons __tmp204186 __tmp204183))) + (__tmp204085 + (let ((__tmp204086 + (let ((__tmp204181 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp204157 - (let ((__tmp204250 + (__tmp204087 + (let ((__tmp204180 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp204158 - (let ((__tmp204246 - (let ((__tmp204249 + (__tmp204088 + (let ((__tmp204176 + (let ((__tmp204179 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp204247 - (let ((__tmp204248 + (__tmp204177 + (let ((__tmp204178 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)))) (declare (not safe)) - (cons __tmp204248 '())))) + (cons __tmp204178 '())))) (declare (not safe)) - (cons __tmp204249 __tmp204247))) - (__tmp204159 - (let ((__tmp204226 - (let ((__tmp204242 - (let ((__tmp204245 + (cons __tmp204179 __tmp204177))) + (__tmp204089 + (let ((__tmp204156 + (let ((__tmp204172 + (let ((__tmp204175 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp204243 - (let ((__tmp204244 + (__tmp204173 + (let ((__tmp204174 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp204244 '())))) + (cons __tmp204174 '())))) (declare (not safe)) - (cons __tmp204245 __tmp204243))) - (__tmp204227 - (let ((__tmp204228 - (let ((__tmp204241 + (cons __tmp204175 __tmp204173))) + (__tmp204157 + (let ((__tmp204158 + (let ((__tmp204171 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp204229 - (let ((__tmp204240 + (__tmp204159 + (let ((__tmp204170 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp204230 - (let ((__tmp204231 - (let ((__tmp204232 + (__tmp204160 + (let ((__tmp204161 + (let ((__tmp204162 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp204239 + (let ((__tmp204169 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp204233 - (let ((__tmp204235 - (let ((__tmp204238 + (__tmp204163 + (let ((__tmp204165 + (let ((__tmp204168 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp204236 - (let ((__tmp204237 + (__tmp204166 + (let ((__tmp204167 (let () (declare (not safe)) @@ -2208,462 +2208,462 @@ '#f 'e)))) (declare (not safe)) - (cons __tmp204237 '())))) + (cons __tmp204167 '())))) (declare (not safe)) - (cons __tmp204238 __tmp204236))) - (__tmp204234 + (cons __tmp204168 __tmp204166))) + (__tmp204164 (let () (declare (not safe)) - (cons _L186599_ '())))) + (cons _L186529_ '())))) (declare (not safe)) - (cons __tmp204235 __tmp204234)))) + (cons __tmp204165 __tmp204164)))) (declare (not safe)) - (cons __tmp204239 __tmp204233)))) + (cons __tmp204169 __tmp204163)))) (declare (not safe)) - (cons __tmp204232 '())))) + (cons __tmp204162 '())))) (declare (not safe)) - (cons _L186600_ __tmp204231)))) + (cons _L186530_ __tmp204161)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204240 - __tmp204230)))) + (cons __tmp204170 + __tmp204160)))) (declare (not safe)) - (cons __tmp204241 __tmp204229)))) + (cons __tmp204171 __tmp204159)))) (declare (not safe)) - (cons __tmp204228 '())))) + (cons __tmp204158 '())))) (declare (not safe)) - (cons __tmp204242 __tmp204227))) - (__tmp204160 - (let ((__tmp204206 - (let ((__tmp204222 - (let ((__tmp204225 + (cons __tmp204172 __tmp204157))) + (__tmp204090 + (let ((__tmp204136 + (let ((__tmp204152 + (let ((__tmp204155 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp204223 - (let ((__tmp204224 + (__tmp204153 + (let ((__tmp204154 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp204224 '())))) + (cons __tmp204154 '())))) (declare (not safe)) - (cons __tmp204225 __tmp204223))) - (__tmp204207 - (let ((__tmp204208 - (let ((__tmp204221 + (cons __tmp204155 __tmp204153))) + (__tmp204137 + (let ((__tmp204138 + (let ((__tmp204151 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp204209 - (let ((__tmp204220 + (__tmp204139 + (let ((__tmp204150 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp204210 - (let ((__tmp204211 - (let ((__tmp204212 - (let ((__tmp204219 + (__tmp204140 + (let ((__tmp204141 + (let ((__tmp204142 + (let ((__tmp204149 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp204213 - (let ((__tmp204215 - (let ((__tmp204218 + (__tmp204143 + (let ((__tmp204145 + (let ((__tmp204148 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp204216 - (let ((__tmp204217 + (__tmp204146 + (let ((__tmp204147 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp204217 '())))) + (cons __tmp204147 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204218 - __tmp204216))) - (__tmp204214 + (cons __tmp204148 + __tmp204146))) + (__tmp204144 (let () (declare (not safe)) - (cons _L186599_ '())))) + (cons _L186529_ '())))) (declare (not safe)) - (cons __tmp204215 __tmp204214)))) + (cons __tmp204145 __tmp204144)))) (declare (not safe)) - (cons __tmp204219 __tmp204213)))) + (cons __tmp204149 __tmp204143)))) (declare (not safe)) - (cons __tmp204212 '())))) + (cons __tmp204142 '())))) (declare (not safe)) - (cons _L186600_ __tmp204211)))) + (cons _L186530_ __tmp204141)))) (declare (not safe)) - (cons __tmp204220 __tmp204210)))) + (cons __tmp204150 __tmp204140)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204221 - __tmp204209)))) + (cons __tmp204151 + __tmp204139)))) (declare (not safe)) - (cons __tmp204208 '())))) + (cons __tmp204138 '())))) (declare (not safe)) - (cons __tmp204222 __tmp204207))) - (__tmp204161 - (let ((__tmp204162 - (let ((__tmp204205 + (cons __tmp204152 __tmp204137))) + (__tmp204091 + (let ((__tmp204092 + (let ((__tmp204135 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_))) - (__tmp204163 - (let ((__tmp204164 - (let ((__tmp204204 + (__tmp204093 + (let ((__tmp204094 + (let ((__tmp204134 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp204165 - (let ((__tmp204191 - (let ((__tmp204203 + (__tmp204095 + (let ((__tmp204121 + (let ((__tmp204133 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp204192 - (let ((__tmp204193 - (let ((__tmp204202 + (__tmp204122 + (let ((__tmp204123 + (let ((__tmp204132 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-symbol))) - (__tmp204194 - (let ((__tmp204195 - (let ((__tmp204201 + (__tmp204124 + (let ((__tmp204125 + (let ((__tmp204131 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gensym))) - (__tmp204196 - (let ((__tmp204197 - (let ((__tmp204200 + (__tmp204126 + (let ((__tmp204127 + (let ((__tmp204130 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp204198 - (let ((__tmp204199 + (__tmp204128 + (let ((__tmp204129 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '__tmp)))) (declare (not safe)) - (cons __tmp204199 '())))) + (cons __tmp204129 '())))) (declare (not safe)) - (cons __tmp204200 __tmp204198)))) + (cons __tmp204130 __tmp204128)))) (declare (not safe)) - (cons __tmp204197 '())))) + (cons __tmp204127 '())))) (declare (not safe)) - (cons __tmp204201 __tmp204196)))) + (cons __tmp204131 __tmp204126)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204195 '())))) + (cons __tmp204125 '())))) (declare (not safe)) - (cons __tmp204202 __tmp204194)))) + (cons __tmp204132 __tmp204124)))) (declare (not safe)) - (cons __tmp204193 '())))) + (cons __tmp204123 '())))) (declare (not safe)) - (cons __tmp204203 __tmp204192))) - (__tmp204166 - (let ((__tmp204167 - (let ((__tmp204190 + (cons __tmp204133 __tmp204122))) + (__tmp204096 + (let ((__tmp204097 + (let ((__tmp204120 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp204168 - (let ((__tmp204189 + (__tmp204098 + (let ((__tmp204119 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp204169 - (let ((__tmp204176 - (let ((__tmp204188 + (__tmp204099 + (let ((__tmp204106 + (let ((__tmp204118 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp204177 - (let ((__tmp204179 - (let ((__tmp204187 + (__tmp204107 + (let ((__tmp204109 + (let ((__tmp204117 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp204180 - (let ((__tmp204186 + (__tmp204110 + (let ((__tmp204116 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp204181 - (let ((__tmp204182 - (let ((__tmp204185 + (__tmp204111 + (let ((__tmp204112 + (let ((__tmp204115 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp204183 - (let ((__tmp204184 + (__tmp204113 + (let ((__tmp204114 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp204184 '())))) + (cons __tmp204114 '())))) (declare (not safe)) - (cons __tmp204185 __tmp204183)))) + (cons __tmp204115 __tmp204113)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204182 '())))) + (cons __tmp204112 '())))) (declare (not safe)) - (cons __tmp204186 __tmp204181)))) + (cons __tmp204116 __tmp204111)))) (declare (not safe)) - (cons __tmp204187 __tmp204180))) - (__tmp204178 + (cons __tmp204117 __tmp204110))) + (__tmp204108 (let () (declare (not safe)) - (cons _L186600_ '())))) + (cons _L186530_ '())))) (declare (not safe)) - (cons __tmp204179 __tmp204178)))) + (cons __tmp204109 __tmp204108)))) (declare (not safe)) - (cons __tmp204188 __tmp204177))) - (__tmp204170 - (let ((__tmp204171 - (let ((__tmp204175 + (cons __tmp204118 __tmp204107))) + (__tmp204100 + (let ((__tmp204101 + (let ((__tmp204105 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp204172 - (let ((__tmp204174 + (__tmp204102 + (let ((__tmp204104 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp204173 + (__tmp204103 (let () (declare (not safe)) - (cons _L186599_ '())))) + (cons _L186529_ '())))) (declare (not safe)) - (cons __tmp204174 __tmp204173)))) + (cons __tmp204104 __tmp204103)))) (declare (not safe)) - (cons __tmp204175 __tmp204172)))) + (cons __tmp204105 __tmp204102)))) (declare (not safe)) - (cons __tmp204171 '())))) + (cons __tmp204101 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204176 - __tmp204170)))) + (cons __tmp204106 + __tmp204100)))) (declare (not safe)) - (cons __tmp204189 __tmp204169)))) + (cons __tmp204119 __tmp204099)))) (declare (not safe)) - (cons __tmp204190 __tmp204168)))) + (cons __tmp204120 __tmp204098)))) (declare (not safe)) - (cons __tmp204167 '())))) + (cons __tmp204097 '())))) (declare (not safe)) - (cons __tmp204191 __tmp204166)))) + (cons __tmp204121 __tmp204096)))) (declare (not safe)) - (cons __tmp204204 __tmp204165)))) + (cons __tmp204134 __tmp204095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204164 '())))) + (cons __tmp204094 '())))) (declare (not safe)) - (cons __tmp204205 __tmp204163)))) + (cons __tmp204135 __tmp204093)))) (declare (not safe)) - (cons __tmp204162 '())))) + (cons __tmp204092 '())))) (declare (not safe)) - (cons __tmp204206 __tmp204161)))) + (cons __tmp204136 __tmp204091)))) (declare (not safe)) - (cons __tmp204226 __tmp204160)))) + (cons __tmp204156 __tmp204090)))) (declare (not safe)) - (cons __tmp204246 __tmp204159)))) + (cons __tmp204176 __tmp204089)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204250 - __tmp204158)))) + (cons __tmp204180 + __tmp204088)))) (declare (not safe)) - (cons __tmp204251 __tmp204157)))) + (cons __tmp204181 __tmp204087)))) (declare (not safe)) - (cons __tmp204156 '())))) + (cons __tmp204086 '())))) (declare (not safe)) - (cons __tmp204252 __tmp204155))) - (__tmp204149 - (let ((__tmp204150 - (let ((__tmp204153 + (cons __tmp204182 __tmp204085))) + (__tmp204079 + (let ((__tmp204080 + (let ((__tmp204083 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp204151 - (let ((__tmp204152 - (lambda (_g186625186628_ - _g186626186631_) + (__tmp204081 + (let ((__tmp204082 + (lambda (_g186555186558_ + _g186556186561_) (let () (declare (not safe)) - (cons _g186625186628_ - _g186626186631_))))) + (cons _g186555186558_ + _g186556186561_))))) (declare (not safe)) - (foldr1 __tmp204152 '() _L186596_)))) + (foldr1 __tmp204082 '() _L186526_)))) (declare (not safe)) - (cons __tmp204153 __tmp204151)))) + (cons __tmp204083 __tmp204081)))) (declare (not safe)) - (cons __tmp204150 '())))) + (cons __tmp204080 '())))) (declare (not safe)) - (cons __tmp204154 __tmp204149)))) + (cons __tmp204084 __tmp204079)))) (declare (not safe)) - (cons __tmp204257 __tmp204148)))) + (cons __tmp204187 __tmp204078)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204258 - __tmp204147)))) + (cons __tmp204188 + __tmp204077)))) (declare (not safe)) - (cons __tmp204146 '())))) + (cons __tmp204076 '())))) (declare (not safe)) - (cons __tmp204259 __tmp204145)))) + (cons __tmp204189 __tmp204075)))) (declare (not safe)) - (cons __tmp204273 __tmp204144)))) + (cons __tmp204203 __tmp204074)))) (declare (not safe)) - (cons __tmp204274 __tmp204143))) - _body186503186592_ - _hd186493186560_ - _hd186490186550_ - _hd186487186540_)))))) + (cons __tmp204204 __tmp204073))) + _body186433186522_ + _hd186423186490_ + _hd186420186480_ + _hd186417186470_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop186498186572_ - _target186495186566_ + (_loop186428186502_ + _target186425186496_ '())) - (_g186474186509_ _g186475186513_))))) - (_g186474186509_ _g186475186513_)) - (_g186474186509_ _g186475186513_)))) - (_g186474186509_ _g186475186513_)))) + (_g186404186439_ _g186405186443_))))) + (_g186404186439_ _g186405186443_)) + (_g186404186439_ _g186405186443_)))) + (_g186404186439_ _g186405186443_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g186474186509_ - _g186475186513_)))) - (_g186474186509_ _g186475186513_)))) - (_g186474186509_ _g186475186513_)))) - (_g186474186509_ _g186475186513_))))) - (_g186473186634_ _$stx186470_)))) + (_g186404186439_ + _g186405186443_)))) + (_g186404186439_ _g186405186443_)))) + (_g186404186439_ _g186405186443_)))) + (_g186404186439_ _g186405186443_))))) + (_g186403186564_ _$stx186400_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_$stx186639_) - (let* ((_g186643186661_ - (lambda (_g186644186657_) + (lambda (_$stx186569_) + (let* ((_g186573186591_ + (lambda (_g186574186587_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g186644186657_)))) - (_g186642186716_ - (lambda (_g186644186665_) + _g186574186587_)))) + (_g186572186646_ + (lambda (_g186574186595_) (if (let () (declare (not safe)) - (gx#stx-pair? _g186644186665_)) - (let ((_e186649186668_ + (gx#stx-pair? _g186574186595_)) + (let ((_e186579186598_ (let () (declare (not safe)) - (gx#syntax-e _g186644186665_)))) - (let ((_hd186648186672_ + (gx#syntax-e _g186574186595_)))) + (let ((_hd186578186602_ (let () (declare (not safe)) - (##car _e186649186668_))) - (_tl186647186675_ + (##car _e186579186598_))) + (_tl186577186605_ (let () (declare (not safe)) - (##cdr _e186649186668_)))) + (##cdr _e186579186598_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186647186675_)) - (let ((_e186652186678_ + (gx#stx-pair? _tl186577186605_)) + (let ((_e186582186608_ (let () (declare (not safe)) - (gx#syntax-e _tl186647186675_)))) - (let ((_hd186651186682_ + (gx#syntax-e _tl186577186605_)))) + (let ((_hd186581186612_ (let () (declare (not safe)) - (##car _e186652186678_))) - (_tl186650186685_ + (##car _e186582186608_))) + (_tl186580186615_ (let () (declare (not safe)) - (##cdr _e186652186678_)))) + (##cdr _e186582186608_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl186650186685_)) - (let ((_e186655186688_ + (gx#stx-pair? _tl186580186615_)) + (let ((_e186585186618_ (let () (declare (not safe)) (gx#syntax-e - _tl186650186685_)))) - (let ((_hd186654186692_ + _tl186580186615_)))) + (let ((_hd186584186622_ (let () (declare (not safe)) - (##car _e186655186688_))) - (_tl186653186695_ + (##car _e186585186618_))) + (_tl186583186625_ (let () (declare (not safe)) - (##cdr _e186655186688_)))) + (##cdr _e186585186618_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl186653186695_)) - ((lambda (_L186698_ _L186700_) - (let ((__tmp204290 + _tl186583186625_)) + ((lambda (_L186628_ _L186630_) + (let ((__tmp204220 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond-expand))) - (__tmp204275 - (let ((__tmp204287 - (let ((__tmp204289 + (__tmp204205 + (let ((__tmp204217 + (let ((__tmp204219 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives))) - (__tmp204288 + (__tmp204218 (let () (declare (not safe)) - (cons _L186700_ '())))) + (cons _L186630_ '())))) (declare (not safe)) - (cons __tmp204289 __tmp204288))) - (__tmp204276 - (let ((__tmp204277 - (let ((__tmp204286 + (cons __tmp204219 __tmp204218))) + (__tmp204206 + (let ((__tmp204207 + (let ((__tmp204216 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp204278 - (let ((__tmp204279 - (let ((__tmp204285 + (__tmp204208 + (let ((__tmp204209 + (let ((__tmp204215 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp204280 - (let ((__tmp204283 - (let ((__tmp204284 + (__tmp204210 + (let ((__tmp204213 + (let ((__tmp204214 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2671,45 +2671,45 @@ '#f 'current-compile-decls-unsafe?)))) (declare (not safe)) - (cons __tmp204284 '()))) - (__tmp204281 - (let ((__tmp204282 - (let () (declare (not safe)) (cons _L186698_ '())))) + (cons __tmp204214 '()))) + (__tmp204211 + (let ((__tmp204212 + (let () (declare (not safe)) (cons _L186628_ '())))) (declare (not safe)) - (cons _L186700_ __tmp204282)))) + (cons _L186630_ __tmp204212)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204283 - __tmp204281)))) + (cons __tmp204213 + __tmp204211)))) (declare (not safe)) - (cons __tmp204285 __tmp204280)))) + (cons __tmp204215 __tmp204210)))) (declare (not safe)) - (cons __tmp204279 '())))) + (cons __tmp204209 '())))) (declare (not safe)) - (cons __tmp204286 __tmp204278)))) + (cons __tmp204216 __tmp204208)))) (declare (not safe)) - (cons __tmp204277 '())))) + (cons __tmp204207 '())))) (declare (not safe)) - (cons __tmp204287 __tmp204276)))) + (cons __tmp204217 __tmp204206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp204290 - __tmp204275))) - _hd186654186692_ - _hd186651186682_) - (_g186643186661_ - _g186644186665_)))) - (_g186643186661_ _g186644186665_)))) - (_g186643186661_ _g186644186665_)))) - (_g186643186661_ _g186644186665_))))) - (_g186642186716_ _$stx186639_)))) + (cons __tmp204220 + __tmp204205))) + _hd186584186622_ + _hd186581186612_) + (_g186573186591_ + _g186574186595_)))) + (_g186573186591_ _g186574186595_)))) + (_g186573186591_ _g186574186595_)))) + (_g186573186591_ _g186574186595_))))) + (_g186572186646_ _$stx186569_)))) (define |gxc[:0:]#meta-state| - (let ((__obj203053 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj202983 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj203053 + __obj202983 'gxc#meta-state::t '1 gerbil/core$$#class-type-info::t @@ -2717,7 +2717,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203053 + __obj202983 'meta-state '2 gerbil/core$$#class-type-info::t @@ -2725,7 +2725,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203053 + __obj202983 '(src n open blocks) '4 gerbil/core$$#class-type-info::t @@ -2733,7 +2733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203053 + __obj202983 '() '3 gerbil/core$$#class-type-info::t @@ -2741,7 +2741,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203053 + __obj202983 '#t '5 gerbil/core$$#class-type-info::t @@ -2749,7 +2749,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203053 + __obj202983 '#f '6 gerbil/core$$#class-type-info::t @@ -2757,187 +2757,187 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203053 + __obj202983 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204291 |gxc[1]#_g204292_|)) + (let ((__tmp204221 |gxc[1]#_g204222_|)) (declare (not safe)) (##unchecked-structure-set! - __obj203053 - __tmp204291 + __obj202983 + __tmp204221 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204293 |gxc[1]#_g204294_|)) + (let ((__tmp204223 |gxc[1]#_g204224_|)) (declare (not safe)) (##unchecked-structure-set! - __obj203053 - __tmp204293 + __obj202983 + __tmp204223 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204295 |gxc[1]#_g204296_|)) + (let ((__tmp204225 |gxc[1]#_g204226_|)) (declare (not safe)) (##unchecked-structure-set! - __obj203053 - __tmp204295 + __obj202983 + __tmp204225 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204297 - (let ((__tmp204310 - (let ((__tmp204311 |gxc[1]#_g204312_|)) + (let ((__tmp204227 + (let ((__tmp204240 + (let ((__tmp204241 |gxc[1]#_g204242_|)) (declare (not safe)) - (cons 'src __tmp204311))) - (__tmp204298 - (let ((__tmp204307 - (let ((__tmp204308 |gxc[1]#_g204309_|)) + (cons 'src __tmp204241))) + (__tmp204228 + (let ((__tmp204237 + (let ((__tmp204238 |gxc[1]#_g204239_|)) (declare (not safe)) - (cons 'n __tmp204308))) - (__tmp204299 - (let ((__tmp204304 - (let ((__tmp204305 |gxc[1]#_g204306_|)) + (cons 'n __tmp204238))) + (__tmp204229 + (let ((__tmp204234 + (let ((__tmp204235 |gxc[1]#_g204236_|)) (declare (not safe)) - (cons 'open __tmp204305))) - (__tmp204300 - (let ((__tmp204301 - (let ((__tmp204302 - |gxc[1]#_g204303_|)) + (cons 'open __tmp204235))) + (__tmp204230 + (let ((__tmp204231 + (let ((__tmp204232 + |gxc[1]#_g204233_|)) (declare (not safe)) - (cons 'blocks __tmp204302)))) + (cons 'blocks __tmp204232)))) (declare (not safe)) - (cons __tmp204301 '())))) + (cons __tmp204231 '())))) (declare (not safe)) - (cons __tmp204304 __tmp204300)))) + (cons __tmp204234 __tmp204230)))) (declare (not safe)) - (cons __tmp204307 __tmp204299)))) + (cons __tmp204237 __tmp204229)))) (declare (not safe)) - (cons __tmp204310 __tmp204298)))) + (cons __tmp204240 __tmp204228)))) (declare (not safe)) (##unchecked-structure-set! - __obj203053 - __tmp204297 + __obj202983 + __tmp204227 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204313 - (let ((__tmp204326 - (let ((__tmp204327 |gxc[1]#_g204328_|)) + (let ((__tmp204243 + (let ((__tmp204256 + (let ((__tmp204257 |gxc[1]#_g204258_|)) (declare (not safe)) - (cons 'src __tmp204327))) - (__tmp204314 - (let ((__tmp204323 - (let ((__tmp204324 |gxc[1]#_g204325_|)) + (cons 'src __tmp204257))) + (__tmp204244 + (let ((__tmp204253 + (let ((__tmp204254 |gxc[1]#_g204255_|)) (declare (not safe)) - (cons 'n __tmp204324))) - (__tmp204315 - (let ((__tmp204320 - (let ((__tmp204321 |gxc[1]#_g204322_|)) + (cons 'n __tmp204254))) + (__tmp204245 + (let ((__tmp204250 + (let ((__tmp204251 |gxc[1]#_g204252_|)) (declare (not safe)) - (cons 'open __tmp204321))) - (__tmp204316 - (let ((__tmp204317 - (let ((__tmp204318 - |gxc[1]#_g204319_|)) + (cons 'open __tmp204251))) + (__tmp204246 + (let ((__tmp204247 + (let ((__tmp204248 + |gxc[1]#_g204249_|)) (declare (not safe)) - (cons 'blocks __tmp204318)))) + (cons 'blocks __tmp204248)))) (declare (not safe)) - (cons __tmp204317 '())))) + (cons __tmp204247 '())))) (declare (not safe)) - (cons __tmp204320 __tmp204316)))) + (cons __tmp204250 __tmp204246)))) (declare (not safe)) - (cons __tmp204323 __tmp204315)))) + (cons __tmp204253 __tmp204245)))) (declare (not safe)) - (cons __tmp204326 __tmp204314)))) + (cons __tmp204256 __tmp204244)))) (declare (not safe)) (##unchecked-structure-set! - __obj203053 - __tmp204313 + __obj202983 + __tmp204243 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204329 - (let ((__tmp204342 - (let ((__tmp204343 |gxc[1]#_g204344_|)) + (let ((__tmp204259 + (let ((__tmp204272 + (let ((__tmp204273 |gxc[1]#_g204274_|)) (declare (not safe)) - (cons 'src __tmp204343))) - (__tmp204330 - (let ((__tmp204339 - (let ((__tmp204340 |gxc[1]#_g204341_|)) + (cons 'src __tmp204273))) + (__tmp204260 + (let ((__tmp204269 + (let ((__tmp204270 |gxc[1]#_g204271_|)) (declare (not safe)) - (cons 'n __tmp204340))) - (__tmp204331 - (let ((__tmp204336 - (let ((__tmp204337 |gxc[1]#_g204338_|)) + (cons 'n __tmp204270))) + (__tmp204261 + (let ((__tmp204266 + (let ((__tmp204267 |gxc[1]#_g204268_|)) (declare (not safe)) - (cons 'open __tmp204337))) - (__tmp204332 - (let ((__tmp204333 - (let ((__tmp204334 - |gxc[1]#_g204335_|)) + (cons 'open __tmp204267))) + (__tmp204262 + (let ((__tmp204263 + (let ((__tmp204264 + |gxc[1]#_g204265_|)) (declare (not safe)) - (cons 'blocks __tmp204334)))) + (cons 'blocks __tmp204264)))) (declare (not safe)) - (cons __tmp204333 '())))) + (cons __tmp204263 '())))) (declare (not safe)) - (cons __tmp204336 __tmp204332)))) + (cons __tmp204266 __tmp204262)))) (declare (not safe)) - (cons __tmp204339 __tmp204331)))) + (cons __tmp204269 __tmp204261)))) (declare (not safe)) - (cons __tmp204342 __tmp204330)))) + (cons __tmp204272 __tmp204260)))) (declare (not safe)) (##unchecked-structure-set! - __obj203053 - __tmp204329 + __obj202983 + __tmp204259 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204345 - (let ((__tmp204358 - (let ((__tmp204359 |gxc[1]#_g204360_|)) + (let ((__tmp204275 + (let ((__tmp204288 + (let ((__tmp204289 |gxc[1]#_g204290_|)) (declare (not safe)) - (cons 'src __tmp204359))) - (__tmp204346 - (let ((__tmp204355 - (let ((__tmp204356 |gxc[1]#_g204357_|)) + (cons 'src __tmp204289))) + (__tmp204276 + (let ((__tmp204285 + (let ((__tmp204286 |gxc[1]#_g204287_|)) (declare (not safe)) - (cons 'n __tmp204356))) - (__tmp204347 - (let ((__tmp204352 - (let ((__tmp204353 |gxc[1]#_g204354_|)) + (cons 'n __tmp204286))) + (__tmp204277 + (let ((__tmp204282 + (let ((__tmp204283 |gxc[1]#_g204284_|)) (declare (not safe)) - (cons 'open __tmp204353))) - (__tmp204348 - (let ((__tmp204349 - (let ((__tmp204350 - |gxc[1]#_g204351_|)) + (cons 'open __tmp204283))) + (__tmp204278 + (let ((__tmp204279 + (let ((__tmp204280 + |gxc[1]#_g204281_|)) (declare (not safe)) - (cons 'blocks __tmp204350)))) + (cons 'blocks __tmp204280)))) (declare (not safe)) - (cons __tmp204349 '())))) + (cons __tmp204279 '())))) (declare (not safe)) - (cons __tmp204352 __tmp204348)))) + (cons __tmp204282 __tmp204278)))) (declare (not safe)) - (cons __tmp204355 __tmp204347)))) + (cons __tmp204285 __tmp204277)))) (declare (not safe)) - (cons __tmp204358 __tmp204346)))) + (cons __tmp204288 __tmp204276)))) (declare (not safe)) (##unchecked-structure-set! - __obj203053 - __tmp204345 + __obj202983 + __tmp204275 '14 gerbil/core$$#class-type-info::t '#f)) - __obj203053)) + __obj202983)) (define |gxc[:0:]#meta-state-block| - (let ((__obj203054 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj202984 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj203054 + __obj202984 'gxc#meta-state-block::t '1 gerbil/core$$#class-type-info::t @@ -2945,7 +2945,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203054 + __obj202984 'meta-state-block '2 gerbil/core$$#class-type-info::t @@ -2953,7 +2953,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203054 + __obj202984 '(ctx phi n code) '4 gerbil/core$$#class-type-info::t @@ -2961,7 +2961,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203054 + __obj202984 '() '3 gerbil/core$$#class-type-info::t @@ -2969,7 +2969,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203054 + __obj202984 '#t '5 gerbil/core$$#class-type-info::t @@ -2977,7 +2977,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203054 + __obj202984 '#f '6 gerbil/core$$#class-type-info::t @@ -2985,177 +2985,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj203054 + __obj202984 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204361 |gxc[1]#_g204362_|)) + (let ((__tmp204291 |gxc[1]#_g204292_|)) (declare (not safe)) (##unchecked-structure-set! - __obj203054 - __tmp204361 + __obj202984 + __tmp204291 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204363 |gxc[1]#_g204364_|)) + (let ((__tmp204293 |gxc[1]#_g204294_|)) (declare (not safe)) (##unchecked-structure-set! - __obj203054 - __tmp204363 + __obj202984 + __tmp204293 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204365 |gxc[1]#_g204366_|)) + (let ((__tmp204295 |gxc[1]#_g204296_|)) (declare (not safe)) (##unchecked-structure-set! - __obj203054 - __tmp204365 + __obj202984 + __tmp204295 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204367 - (let ((__tmp204380 - (let ((__tmp204381 |gxc[1]#_g204382_|)) + (let ((__tmp204297 + (let ((__tmp204310 + (let ((__tmp204311 |gxc[1]#_g204312_|)) (declare (not safe)) - (cons 'ctx __tmp204381))) - (__tmp204368 - (let ((__tmp204377 - (let ((__tmp204378 |gxc[1]#_g204379_|)) + (cons 'ctx __tmp204311))) + (__tmp204298 + (let ((__tmp204307 + (let ((__tmp204308 |gxc[1]#_g204309_|)) (declare (not safe)) - (cons 'phi __tmp204378))) - (__tmp204369 - (let ((__tmp204374 - (let ((__tmp204375 |gxc[1]#_g204376_|)) + (cons 'phi __tmp204308))) + (__tmp204299 + (let ((__tmp204304 + (let ((__tmp204305 |gxc[1]#_g204306_|)) (declare (not safe)) - (cons 'n __tmp204375))) - (__tmp204370 - (let ((__tmp204371 - (let ((__tmp204372 - |gxc[1]#_g204373_|)) + (cons 'n __tmp204305))) + (__tmp204300 + (let ((__tmp204301 + (let ((__tmp204302 + |gxc[1]#_g204303_|)) (declare (not safe)) - (cons 'code __tmp204372)))) + (cons 'code __tmp204302)))) (declare (not safe)) - (cons __tmp204371 '())))) + (cons __tmp204301 '())))) (declare (not safe)) - (cons __tmp204374 __tmp204370)))) + (cons __tmp204304 __tmp204300)))) (declare (not safe)) - (cons __tmp204377 __tmp204369)))) + (cons __tmp204307 __tmp204299)))) (declare (not safe)) - (cons __tmp204380 __tmp204368)))) + (cons __tmp204310 __tmp204298)))) (declare (not safe)) (##unchecked-structure-set! - __obj203054 - __tmp204367 + __obj202984 + __tmp204297 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204383 - (let ((__tmp204396 - (let ((__tmp204397 |gxc[1]#_g204398_|)) + (let ((__tmp204313 + (let ((__tmp204326 + (let ((__tmp204327 |gxc[1]#_g204328_|)) (declare (not safe)) - (cons 'ctx __tmp204397))) - (__tmp204384 - (let ((__tmp204393 - (let ((__tmp204394 |gxc[1]#_g204395_|)) + (cons 'ctx __tmp204327))) + (__tmp204314 + (let ((__tmp204323 + (let ((__tmp204324 |gxc[1]#_g204325_|)) (declare (not safe)) - (cons 'phi __tmp204394))) - (__tmp204385 - (let ((__tmp204390 - (let ((__tmp204391 |gxc[1]#_g204392_|)) + (cons 'phi __tmp204324))) + (__tmp204315 + (let ((__tmp204320 + (let ((__tmp204321 |gxc[1]#_g204322_|)) (declare (not safe)) - (cons 'n __tmp204391))) - (__tmp204386 - (let ((__tmp204387 - (let ((__tmp204388 - |gxc[1]#_g204389_|)) + (cons 'n __tmp204321))) + (__tmp204316 + (let ((__tmp204317 + (let ((__tmp204318 + |gxc[1]#_g204319_|)) (declare (not safe)) - (cons 'code __tmp204388)))) + (cons 'code __tmp204318)))) (declare (not safe)) - (cons __tmp204387 '())))) + (cons __tmp204317 '())))) (declare (not safe)) - (cons __tmp204390 __tmp204386)))) + (cons __tmp204320 __tmp204316)))) (declare (not safe)) - (cons __tmp204393 __tmp204385)))) + (cons __tmp204323 __tmp204315)))) (declare (not safe)) - (cons __tmp204396 __tmp204384)))) + (cons __tmp204326 __tmp204314)))) (declare (not safe)) (##unchecked-structure-set! - __obj203054 - __tmp204383 + __obj202984 + __tmp204313 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204399 - (let ((__tmp204412 - (let ((__tmp204413 |gxc[1]#_g204414_|)) + (let ((__tmp204329 + (let ((__tmp204342 + (let ((__tmp204343 |gxc[1]#_g204344_|)) (declare (not safe)) - (cons 'ctx __tmp204413))) - (__tmp204400 - (let ((__tmp204409 - (let ((__tmp204410 |gxc[1]#_g204411_|)) + (cons 'ctx __tmp204343))) + (__tmp204330 + (let ((__tmp204339 + (let ((__tmp204340 |gxc[1]#_g204341_|)) (declare (not safe)) - (cons 'phi __tmp204410))) - (__tmp204401 - (let ((__tmp204406 - (let ((__tmp204407 |gxc[1]#_g204408_|)) + (cons 'phi __tmp204340))) + (__tmp204331 + (let ((__tmp204336 + (let ((__tmp204337 |gxc[1]#_g204338_|)) (declare (not safe)) - (cons 'n __tmp204407))) - (__tmp204402 - (let ((__tmp204403 - (let ((__tmp204404 - |gxc[1]#_g204405_|)) + (cons 'n __tmp204337))) + (__tmp204332 + (let ((__tmp204333 + (let ((__tmp204334 + |gxc[1]#_g204335_|)) (declare (not safe)) - (cons 'code __tmp204404)))) + (cons 'code __tmp204334)))) (declare (not safe)) - (cons __tmp204403 '())))) + (cons __tmp204333 '())))) (declare (not safe)) - (cons __tmp204406 __tmp204402)))) + (cons __tmp204336 __tmp204332)))) (declare (not safe)) - (cons __tmp204409 __tmp204401)))) + (cons __tmp204339 __tmp204331)))) (declare (not safe)) - (cons __tmp204412 __tmp204400)))) + (cons __tmp204342 __tmp204330)))) (declare (not safe)) (##unchecked-structure-set! - __obj203054 - __tmp204399 + __obj202984 + __tmp204329 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp204415 - (let ((__tmp204428 - (let ((__tmp204429 |gxc[1]#_g204430_|)) + (let ((__tmp204345 + (let ((__tmp204358 + (let ((__tmp204359 |gxc[1]#_g204360_|)) (declare (not safe)) - (cons 'ctx __tmp204429))) - (__tmp204416 - (let ((__tmp204425 - (let ((__tmp204426 |gxc[1]#_g204427_|)) + (cons 'ctx __tmp204359))) + (__tmp204346 + (let ((__tmp204355 + (let ((__tmp204356 |gxc[1]#_g204357_|)) (declare (not safe)) - (cons 'phi __tmp204426))) - (__tmp204417 - (let ((__tmp204422 - (let ((__tmp204423 |gxc[1]#_g204424_|)) + (cons 'phi __tmp204356))) + (__tmp204347 + (let ((__tmp204352 + (let ((__tmp204353 |gxc[1]#_g204354_|)) (declare (not safe)) - (cons 'n __tmp204423))) - (__tmp204418 - (let ((__tmp204419 - (let ((__tmp204420 - |gxc[1]#_g204421_|)) + (cons 'n __tmp204353))) + (__tmp204348 + (let ((__tmp204349 + (let ((__tmp204350 + |gxc[1]#_g204351_|)) (declare (not safe)) - (cons 'code __tmp204420)))) + (cons 'code __tmp204350)))) (declare (not safe)) - (cons __tmp204419 '())))) + (cons __tmp204349 '())))) (declare (not safe)) - (cons __tmp204422 __tmp204418)))) + (cons __tmp204352 __tmp204348)))) (declare (not safe)) - (cons __tmp204425 __tmp204417)))) + (cons __tmp204355 __tmp204347)))) (declare (not safe)) - (cons __tmp204428 __tmp204416)))) + (cons __tmp204358 __tmp204346)))) (declare (not safe)) (##unchecked-structure-set! - __obj203054 - __tmp204415 + __obj202984 + __tmp204345 '14 gerbil/core$$#class-type-info::t '#f)) - __obj203054)))) + __obj202984)))) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index f71a50f7d..357011413 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 1707423046) + (define gerbil/compiler/driver::timestamp 1707565666) (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 (_path279655_ _fun279656_) + (lambda (_path279585_ _fun279586_) (with-output-to-file - (let ((__tmp283943 + (let ((__tmp283873 (let () (declare (not safe)) - (cons _path279655_ gxc#scheme-file-settings)))) + (cons _path279585_ gxc#scheme-file-settings)))) (declare (not safe)) - (cons 'path: __tmp283943)) - _fun279656_))) + (cons 'path: __tmp283873)) + _fun279586_))) (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-libdir279650_) - (string-append '"-Wl,-rpath=" _gerbil-libdir279650_))) + (lambda (_gerbil-libdir279580_) + (string-append '"-Wl,-rpath=" _gerbil-libdir279580_))) (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 (_dir279648_) (delete-file-or-directory _dir279648_ '#t))) + (lambda (_dir279578_) (delete-file-or-directory _dir279578_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath279622_ _opts279623_) - (if (let () (declare (not safe)) (string? _srcpath279622_)) + (lambda (_srcpath279552_ _opts279553_) + (if (let () (declare (not safe)) (string? _srcpath279552_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath279622_))) - (let ((_outdir279625_ - (let () (declare (not safe)) (pgetq 'output-dir: _opts279623_))) - (_invoke-gsc?279626_ - (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts279623_))) - (_gsc-options279627_ + _srcpath279552_))) + (let ((_outdir279555_ + (let () (declare (not safe)) (pgetq 'output-dir: _opts279553_))) + (_invoke-gsc?279556_ + (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts279553_))) + (_gsc-options279557_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts279623_))) - (_keep-scm?279628_ - (let () (declare (not safe)) (pgetq 'keep-scm: _opts279623_))) - (_verbosity279629_ - (let () (declare (not safe)) (pgetq 'verbose: _opts279623_))) - (_optimize279630_ - (let () (declare (not safe)) (pgetq 'optimize: _opts279623_))) - (_debug279631_ - (let () (declare (not safe)) (pgetq 'debug: _opts279623_))) - (_gen-ssxi279632_ + (pgetq 'gsc-options: _opts279553_))) + (_keep-scm?279558_ + (let () (declare (not safe)) (pgetq 'keep-scm: _opts279553_))) + (_verbosity279559_ + (let () (declare (not safe)) (pgetq 'verbose: _opts279553_))) + (_optimize279560_ + (let () (declare (not safe)) (pgetq 'optimize: _opts279553_))) + (_debug279561_ + (let () (declare (not safe)) (pgetq 'debug: _opts279553_))) + (_gen-ssxi279562_ (let () (declare (not safe)) - (pgetq 'generate-ssxi: _opts279623_)))) - (if _outdir279625_ - (let ((__tmp283944 + (pgetq 'generate-ssxi: _opts279553_)))) + (if _outdir279555_ + (let ((__tmp283874 (lambda () (let () (declare (not safe)) - (create-directory* _outdir279625_))))) + (create-directory* _outdir279555_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp283944)) + (with-lock gxc#+driver-mutex+ __tmp283874)) '#!void) - (if _optimize279630_ - (let ((__tmp283945 + (if _optimize279560_ + (let ((__tmp283875 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp283945)) + (with-lock gxc#+driver-mutex+ __tmp283875)) '#!void) - (let ((__tmp283949 + (let ((__tmp283879 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _srcpath279622_)) - (let ((__tmp283950 - (let ((__tmp283951 + (gxc#verbose '"compile " _srcpath279552_)) + (let ((__tmp283880 + (let ((__tmp283881 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath279622_))))) + (gx#import-module__0 _srcpath279552_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp283951)))) + (with-lock gxc#+driver-mutex+ __tmp283881)))) (declare (not safe)) - (gxc#compile-top-module __tmp283950)))) - (__tmp283948 + (gxc#compile-top-module __tmp283880)))) + (__tmp283878 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp283946 - (let ((__tmp283947 + (__tmp283876 + (let ((__tmp283877 (let () (declare (not safe)) - (cons _srcpath279622_ '())))) + (cons _srcpath279552_ '())))) (declare (not safe)) - (cons 'compile-module __tmp283947)))) + (cons 'compile-module __tmp283877)))) (declare (not safe)) (call-with-parameters - __tmp283949 + __tmp283879 gxc#current-compile-output-dir - _outdir279625_ + _outdir279555_ gxc#current-compile-invoke-gsc - _invoke-gsc?279626_ + _invoke-gsc?279556_ gxc#current-compile-gsc-options - _gsc-options279627_ + _gsc-options279557_ gxc#current-compile-keep-scm - _keep-scm?279628_ + _keep-scm?279558_ gxc#current-compile-verbose - _verbosity279629_ + _verbosity279559_ gxc#current-compile-optimize - _optimize279630_ + _optimize279560_ gxc#current-compile-debug - _debug279631_ + _debug279561_ gxc#current-compile-generate-ssxi - _gen-ssxi279632_ + _gen-ssxi279562_ gxc#current-compile-timestamp - __tmp283948 + __tmp283878 gxc#current-compile-context - __tmp283946 + __tmp283876 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath279641_) - (let ((_opts279643_ '())) + (lambda (_srcpath279571_) + (let ((_opts279573_ '())) (declare (not safe)) - (gxc#compile-module__% _srcpath279641_ _opts279643_)))) + (gxc#compile-module__% _srcpath279571_ _opts279573_)))) (define gxc#compile-module - (lambda _g283953_ - (let ((_g283952_ (let () (declare (not safe)) (##length _g283953_)))) - (cond ((let () (declare (not safe)) (##fx= _g283952_ 1)) - (apply (lambda (_srcpath279641_) + (lambda _g283883_ + (let ((_g283882_ (let () (declare (not safe)) (##length _g283883_)))) + (cond ((let () (declare (not safe)) (##fx= _g283882_ 1)) + (apply (lambda (_srcpath279571_) (let () (declare (not safe)) - (gxc#compile-module__0 _srcpath279641_))) - _g283953_)) - ((let () (declare (not safe)) (##fx= _g283952_ 2)) - (apply (lambda (_srcpath279645_ _opts279646_) + (gxc#compile-module__0 _srcpath279571_))) + _g283883_)) + ((let () (declare (not safe)) (##fx= _g283882_ 2)) + (apply (lambda (_srcpath279575_ _opts279576_) (let () (declare (not safe)) (gxc#compile-module__% - _srcpath279645_ - _opts279646_))) - _g283953_)) + _srcpath279575_ + _opts279576_))) + _g283883_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g283953_)))))) + _g283883_)))))) (define gxc#compile-exe__% - (lambda (_srcpath279598_ _opts279599_) - (if (let () (declare (not safe)) (string? _srcpath279598_)) + (lambda (_srcpath279528_ _opts279529_) + (if (let () (declare (not safe)) (string? _srcpath279528_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath279598_))) - (let ((_outdir279601_ - (let () (declare (not safe)) (pgetq 'output-dir: _opts279599_))) - (_invoke-gsc?279602_ - (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts279599_))) - (_gsc-options279603_ + _srcpath279528_))) + (let ((_outdir279531_ + (let () (declare (not safe)) (pgetq 'output-dir: _opts279529_))) + (_invoke-gsc?279532_ + (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts279529_))) + (_gsc-options279533_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts279599_))) - (_keep-scm?279604_ - (let () (declare (not safe)) (pgetq 'keep-scm: _opts279599_))) - (_verbosity279605_ - (let () (declare (not safe)) (pgetq 'verbose: _opts279599_))) - (_debug279606_ - (let () (declare (not safe)) (pgetq 'debug: _opts279599_)))) - (if _outdir279601_ - (let ((__tmp283954 + (pgetq 'gsc-options: _opts279529_))) + (_keep-scm?279534_ + (let () (declare (not safe)) (pgetq 'keep-scm: _opts279529_))) + (_verbosity279535_ + (let () (declare (not safe)) (pgetq 'verbose: _opts279529_))) + (_debug279536_ + (let () (declare (not safe)) (pgetq 'debug: _opts279529_)))) + (if _outdir279531_ + (let ((__tmp283884 (lambda () (let () (declare (not safe)) - (create-directory* _outdir279601_))))) + (create-directory* _outdir279531_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp283954)) + (with-lock gxc#+driver-mutex+ __tmp283884)) '#!void) - (let ((__tmp283958 + (let ((__tmp283888 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _srcpath279598_)) - (let ((__tmp283959 - (let ((__tmp283960 + (gxc#verbose '"compile exe " _srcpath279528_)) + (let ((__tmp283889 + (let ((__tmp283890 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath279598_))))) + (gx#import-module__0 _srcpath279528_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp283960)))) + (with-lock gxc#+driver-mutex+ __tmp283890)))) (declare (not safe)) (gxc#compile-executable-module - __tmp283959 - _opts279599_)))) - (__tmp283957 + __tmp283889 + _opts279529_)))) + (__tmp283887 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp283955 - (let ((__tmp283956 + (__tmp283885 + (let ((__tmp283886 (let () (declare (not safe)) - (cons _srcpath279598_ '())))) + (cons _srcpath279528_ '())))) (declare (not safe)) - (cons 'compile-exe __tmp283956)))) + (cons 'compile-exe __tmp283886)))) (declare (not safe)) (call-with-parameters - __tmp283958 + __tmp283888 gxc#current-compile-output-dir - _outdir279601_ + _outdir279531_ gxc#current-compile-invoke-gsc - _invoke-gsc?279602_ + _invoke-gsc?279532_ gxc#current-compile-gsc-options - _gsc-options279603_ + _gsc-options279533_ gxc#current-compile-keep-scm - _keep-scm?279604_ + _keep-scm?279534_ gxc#current-compile-verbose - _verbosity279605_ + _verbosity279535_ gxc#current-compile-debug - _debug279606_ + _debug279536_ gxc#current-compile-timestamp - __tmp283957 + __tmp283887 gxc#current-compile-context - __tmp283955 + __tmp283885 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath279614_) - (let ((_opts279616_ '())) + (lambda (_srcpath279544_) + (let ((_opts279546_ '())) (declare (not safe)) - (gxc#compile-exe__% _srcpath279614_ _opts279616_)))) + (gxc#compile-exe__% _srcpath279544_ _opts279546_)))) (define gxc#compile-exe - (lambda _g283962_ - (let ((_g283961_ (let () (declare (not safe)) (##length _g283962_)))) - (cond ((let () (declare (not safe)) (##fx= _g283961_ 1)) - (apply (lambda (_srcpath279614_) + (lambda _g283892_ + (let ((_g283891_ (let () (declare (not safe)) (##length _g283892_)))) + (cond ((let () (declare (not safe)) (##fx= _g283891_ 1)) + (apply (lambda (_srcpath279544_) (let () (declare (not safe)) - (gxc#compile-exe__0 _srcpath279614_))) - _g283962_)) - ((let () (declare (not safe)) (##fx= _g283961_ 2)) - (apply (lambda (_srcpath279618_ _opts279619_) + (gxc#compile-exe__0 _srcpath279544_))) + _g283892_)) + ((let () (declare (not safe)) (##fx= _g283891_ 2)) + (apply (lambda (_srcpath279548_ _opts279549_) (let () (declare (not safe)) - (gxc#compile-exe__% _srcpath279618_ _opts279619_))) - _g283962_)) + (gxc#compile-exe__% _srcpath279548_ _opts279549_))) + _g283892_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g283962_)))))) + _g283892_)))))) (define gxc#compile-executable-module - (lambda (_ctx279594_ _opts279595_) + (lambda (_ctx279524_ _opts279525_) (if (let () (declare (not safe)) - (pgetq 'full-program-optimization: _opts279595_)) + (pgetq 'full-program-optimization: _opts279525_)) (let () (declare (not safe)) (gxc#compile-executable-module/full-program-optimization - _ctx279594_ - _opts279595_)) + _ctx279524_ + _opts279525_)) (let () (declare (not safe)) (gxc#compile-executable-module/separate - _ctx279594_ - _opts279595_))))) + _ctx279524_ + _opts279525_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx279477_ _opts279478_) - (letrec ((_generate-stub279480_ - (lambda (_builtin-modules279590_) - (let ((_mod-main279592_ + (lambda (_ctx279407_ _opts279408_) + (letrec ((_generate-stub279410_ + (lambda (_builtin-modules279520_) + (let ((_mod-main279522_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx279477_ 'main)))) - (write (let ((__tmp283963 - (let ((__tmp283964 - (let ((__tmp283965 - (let ((__tmp283966 - (let ((__tmp283968 - (let ((__tmp283969 + (gxc#find-runtime-symbol _ctx279407_ 'main)))) + (write (let ((__tmp283893 + (let ((__tmp283894 + (let ((__tmp283895 + (let ((__tmp283896 + (let ((__tmp283898 + (let ((__tmp283899 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _builtin-modules279590_ '())))) + (cons _builtin-modules279520_ '())))) (declare (not safe)) - (cons 'quote __tmp283969))) - (__tmp283967 + (cons 'quote __tmp283899))) + (__tmp283897 (let () (declare (not safe)) (cons 'libgerbil-builtin-modules '())))) (declare (not safe)) - (cons __tmp283968 __tmp283967)))) + (cons __tmp283898 __tmp283897)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'append - __tmp283966)))) + __tmp283896)))) (declare (not safe)) - (cons __tmp283965 '())))) + (cons __tmp283895 '())))) (declare (not safe)) - (cons 'builtin-modules __tmp283964)))) + (cons 'builtin-modules __tmp283894)))) (declare (not safe)) - (cons 'define __tmp283963))) - (write (let ((__tmp283970 - (let ((__tmp284009 + (cons 'define __tmp283893))) + (write (let ((__tmp283900 + (let ((__tmp283939 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp283971 - (let ((__tmp283972 - (let ((__tmp283973 - (let ((__tmp283997 - (let ((__tmp283998 + (__tmp283901 + (let ((__tmp283902 + (let ((__tmp283903 + (let ((__tmp283927 + (let ((__tmp283928 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283999 - (let ((__tmp284007 - (let ((__tmp284008 + (let ((__tmp283929 + (let ((__tmp283937 + (let ((__tmp283938 (let () (declare (not safe)) (cons 'builtin-modules '())))) (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp284008))) - (__tmp284000 - (let ((__tmp284001 - (let ((__tmp284002 - (let ((__tmp284003 + __tmp283938))) + (__tmp283930 + (let ((__tmp283931 + (let ((__tmp283932 + (let ((__tmp283933 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284004 - (let ((__tmp284005 - (let ((__tmp284006 + (let ((__tmp283934 + (let ((__tmp283935 + (let ((__tmp283936 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp284006 '())))) + (cons __tmp283936 '())))) (declare (not safe)) - (cons 'cdr __tmp284005)))) + (cons 'cdr __tmp283935)))) (declare (not safe)) - (cons __tmp284004 '())))) + (cons __tmp283934 '())))) (declare (not safe)) - (cons _mod-main279592_ __tmp284003)))) + (cons _mod-main279522_ __tmp283933)))) (declare (not safe)) - (cons 'apply __tmp284002)))) + (cons 'apply __tmp283932)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284001 '())))) + (cons __tmp283931 '())))) (declare (not safe)) - (cons __tmp284007 __tmp284000)))) + (cons __tmp283937 __tmp283930)))) (declare (not safe)) - (cons '() __tmp283999)))) + (cons '() __tmp283929)))) (declare (not safe)) - (cons 'lambda __tmp283998))) - (__tmp283974 - (let ((__tmp283975 - (let ((__tmp283976 - (let ((__tmp283977 - (let ((__tmp283988 - (let ((__tmp283989 - (let ((__tmp283990 + (cons 'lambda __tmp283928))) + (__tmp283904 + (let ((__tmp283905 + (let ((__tmp283906 + (let ((__tmp283907 + (let ((__tmp283918 + (let ((__tmp283919 + (let ((__tmp283920 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283991 - (let ((__tmp283992 - (let ((__tmp283993 - (let ((__tmp283994 - (let ((__tmp283995 - (let ((__tmp283996 + (let ((__tmp283921 + (let ((__tmp283922 + (let ((__tmp283923 + (let ((__tmp283924 + (let ((__tmp283925 + (let ((__tmp283926 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'current-output-port '())))) (declare (not safe)) - (cons __tmp283996 '())))) + (cons __tmp283926 '())))) (declare (not safe)) - (cons 'force-output __tmp283995)))) + (cons 'force-output __tmp283925)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283994 '())))) + (cons __tmp283924 '())))) (declare (not safe)) - (cons '() __tmp283993)))) + (cons '() __tmp283923)))) (declare (not safe)) - (cons 'lambda __tmp283992)))) + (cons 'lambda __tmp283922)))) (declare (not safe)) - (cons __tmp283991 '())))) + (cons __tmp283921 '())))) (declare (not safe)) - (cons 'void __tmp283990)))) + (cons 'void __tmp283920)))) (declare (not safe)) - (cons 'with-catch __tmp283989))) + (cons 'with-catch __tmp283919))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp283978 - (let ((__tmp283979 - (let ((__tmp283980 + (__tmp283908 + (let ((__tmp283909 + (let ((__tmp283910 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283981 - (let ((__tmp283982 - (let ((__tmp283983 - (let ((__tmp283984 - (let ((__tmp283985 - (let ((__tmp283986 + (let ((__tmp283911 + (let ((__tmp283912 + (let ((__tmp283913 + (let ((__tmp283914 + (let ((__tmp283915 + (let ((__tmp283916 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283987 + (let ((__tmp283917 (let () (declare (not safe)) (cons 'current-error-port '())))) (declare (not safe)) - (cons __tmp283987 '())))) + (cons __tmp283917 '())))) (declare (not safe)) - (cons 'force-output __tmp283986)))) + (cons 'force-output __tmp283916)))) (declare (not safe)) - (cons __tmp283985 '())))) + (cons __tmp283915 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp283984)))) + (cons '() __tmp283914)))) (declare (not safe)) - (cons 'lambda __tmp283983)))) + (cons 'lambda __tmp283913)))) (declare (not safe)) - (cons __tmp283982 '())))) + (cons __tmp283912 '())))) (declare (not safe)) - (cons 'void __tmp283981)))) + (cons 'void __tmp283911)))) (declare (not safe)) - (cons 'with-catch __tmp283980)))) + (cons 'with-catch __tmp283910)))) (declare (not safe)) - (cons __tmp283979 '())))) + (cons __tmp283909 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283988 - __tmp283978)))) + (cons __tmp283918 + __tmp283908)))) (declare (not safe)) - (cons '() __tmp283977)))) + (cons '() __tmp283907)))) (declare (not safe)) - (cons 'lambda __tmp283976)))) + (cons 'lambda __tmp283906)))) (declare (not safe)) - (cons __tmp283975 '())))) + (cons __tmp283905 '())))) (declare (not safe)) - (cons __tmp283997 __tmp283974)))) + (cons __tmp283927 __tmp283904)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'with-unwind-protect - __tmp283973)))) + __tmp283903)))) (declare (not safe)) - (cons __tmp283972 '())))) + (cons __tmp283902 '())))) (declare (not safe)) - (cons __tmp284009 __tmp283971)))) + (cons __tmp283939 __tmp283901)))) (declare (not safe)) - (cons 'define __tmp283970))) + (cons 'define __tmp283900))) (write '(gerbil-main)) (newline)))) - (_get-libgerbil-ld-opts279481_ - (lambda (_libgerbil279588_) + (_get-libgerbil-ld-opts279411_ + (lambda (_libgerbil279518_) (call-with-input-file - (string-append _libgerbil279588_ '".ldd") + (string-append _libgerbil279518_ '".ldd") read))) - (_replace-extension279482_ - (lambda (_path279585_ _ext279586_) + (_replace-extension279412_ + (lambda (_path279515_ _ext279516_) (string-append - (path-strip-extension _path279585_) - _ext279586_))) - (_not-exclude-module?279483_ - (lambda (_ctx279581_) - (let ((_id-str279583_ + (path-strip-extension _path279515_) + _ext279516_))) + (_not-exclude-module?279413_ + (lambda (_ctx279511_) + (let ((_id-str279513_ (symbol->string (##structure-ref - _ctx279581_ + _ctx279511_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp284011 + (if (let ((__tmp283941 (let () (declare (not safe)) (string-prefix? '"gerbil/" - _id-str279583_)))) + _id-str279513_)))) (declare (not safe)) - (not __tmp284011)) - (let ((__tmp284010 + (not __tmp283941)) + (let ((__tmp283940 (let () (declare (not safe)) - (string-prefix? '"std/" _id-str279583_)))) + (string-prefix? '"std/" _id-str279513_)))) (declare (not safe)) - (not __tmp284010)) + (not __tmp283940)) '#f)))) - (_not-file-empty?279484_ - (lambda (_path279579_) - (let ((__tmp284012 + (_not-file-empty?279414_ + (lambda (_path279509_) + (let ((__tmp283942 (let () (declare (not safe)) - (gxc#file-empty? _path279579_)))) + (gxc#file-empty? _path279509_)))) (declare (not safe)) - (not __tmp284012)))) - (_compile-stub279485_ - (lambda (_output-scm279492_ _output-bin279493_) - (let* ((_gerbil-home279495_ + (not __tmp283942)))) + (_compile-stub279415_ + (lambda (_output-scm279422_ _output-bin279423_) + (let* ((_gerbil-home279425_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir279497_ - (path-expand '"lib" _gerbil-home279495_)) - (_gerbil-staticdir279499_ - (path-expand '"static" _gerbil-libdir279497_)) - (_gxlink279501_ + (_gerbil-libdir279427_ + (path-expand '"lib" _gerbil-home279425_)) + (_gerbil-staticdir279429_ + (path-expand '"static" _gerbil-libdir279427_)) + (_gxlink279431_ (path-expand '"libgerbil-link" - _gerbil-libdir279497_)) - (_tmp279503_ + _gerbil-libdir279427_)) + (_tmp279433_ (path-expand (string-append '"gxc." @@ -553,349 +553,349 @@ (declare (not safe)) (gxc#compile-timestamp-nanos)))) '"/tmp")) - (_tmp-path279507_ - (lambda (_f279505_) + (_tmp-path279437_ + (lambda (_f279435_) (path-expand - (path-strip-directory _f279505_) - _tmp279503_))) - (_deps279509_ + (path-strip-directory _f279435_) + _tmp279433_))) + (_deps279439_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx279477_))) - (_deps279511_ + (gxc#find-runtime-module-deps _ctx279407_))) + (_deps279441_ (let () (declare (not safe)) - (filter _not-exclude-module?279483_ - _deps279509_))) - (_src-deps-scm279513_ - (map gxc#find-static-module-file _deps279511_)) - (_src-deps-scm279515_ + (filter _not-exclude-module?279413_ + _deps279439_))) + (_src-deps-scm279443_ + (map gxc#find-static-module-file _deps279441_)) + (_src-deps-scm279445_ (let () (declare (not safe)) - (filter _not-file-empty?279484_ - _src-deps-scm279513_))) - (_src-deps-scm279517_ - (map path-expand _src-deps-scm279515_)) - (_deps-scm279519_ - (map _tmp-path279507_ _src-deps-scm279517_)) - (_deps-c279525_ - (map (lambda (_g279520279522_) + (filter _not-file-empty?279414_ + _src-deps-scm279443_))) + (_src-deps-scm279447_ + (map path-expand _src-deps-scm279445_)) + (_deps-scm279449_ + (map _tmp-path279437_ _src-deps-scm279447_)) + (_deps-c279455_ + (map (lambda (_g279450279452_) (let () (declare (not safe)) - (_replace-extension279482_ - _g279520279522_ + (_replace-extension279412_ + _g279450279452_ '".c"))) - _deps-scm279519_)) - (_deps-o279531_ - (map (lambda (_g279526279528_) + _deps-scm279449_)) + (_deps-o279461_ + (map (lambda (_g279456279458_) (let () (declare (not safe)) - (_replace-extension279482_ - _g279526279528_ + (_replace-extension279412_ + _g279456279458_ '".o"))) - _deps-scm279519_)) - (_src-bin-scm279533_ + _deps-scm279449_)) + (_src-bin-scm279463_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx279477_))) - (_src-bin-scm279535_ - (path-expand _src-bin-scm279533_)) - (_bin-scm279537_ + (gxc#find-static-module-file _ctx279407_))) + (_src-bin-scm279465_ + (path-expand _src-bin-scm279463_)) + (_bin-scm279467_ (let () (declare (not safe)) - (_tmp-path279507_ _src-bin-scm279535_))) - (_bin-c279539_ + (_tmp-path279437_ _src-bin-scm279465_))) + (_bin-c279469_ (let () (declare (not safe)) - (_replace-extension279482_ - _bin-scm279537_ + (_replace-extension279412_ + _bin-scm279467_ '".c"))) - (_bin-o279541_ + (_bin-o279471_ (let () (declare (not safe)) - (_replace-extension279482_ - _bin-scm279537_ + (_replace-extension279412_ + _bin-scm279467_ '".o"))) - (_output-bin279543_ - (path-expand _output-bin279493_)) - (_output-scm279545_ - (path-expand _output-scm279492_)) - (_output-c279547_ + (_output-bin279473_ + (path-expand _output-bin279423_)) + (_output-scm279475_ + (path-expand _output-scm279422_)) + (_output-c279477_ (let () (declare (not safe)) - (_replace-extension279482_ - _output-scm279545_ + (_replace-extension279412_ + _output-scm279475_ '".c"))) - (_output-o279549_ + (_output-o279479_ (let () (declare (not safe)) - (_replace-extension279482_ - _output-scm279545_ + (_replace-extension279412_ + _output-scm279475_ '".o"))) - (_output_-c279551_ + (_output_-c279481_ (let () (declare (not safe)) - (_replace-extension279482_ - _output-scm279545_ + (_replace-extension279412_ + _output-scm279475_ '"_.c"))) - (_output_-o279553_ + (_output_-o279483_ (let () (declare (not safe)) - (_replace-extension279482_ - _output-scm279545_ + (_replace-extension279412_ + _output-scm279475_ '"_.o"))) - (_gsc-link-opts279555_ + (_gsc-link-opts279485_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts279557_ + (_gsc-cc-opts279487_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts279559_ + (_gsc-static-opts279489_ (let () (declare (not safe)) (gxc#gsc-static-include-options - _gerbil-staticdir279499_))) - (_output-ld-opts279561_ + _gerbil-staticdir279429_))) + (_output-ld-opts279491_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_libgerbil.a279563_ - (path-expand '"libgerbil.a" _gerbil-libdir279497_)) - (_libgerbil.so279565_ + (_libgerbil.a279493_ + (path-expand '"libgerbil.a" _gerbil-libdir279427_)) + (_libgerbil.so279495_ (path-expand '"libgerbil.so" - _gerbil-libdir279497_)) - (_libgerbil-ld-opts279567_ - (if (file-exists? _libgerbil.so279565_) + _gerbil-libdir279427_)) + (_libgerbil-ld-opts279497_ + (if (file-exists? _libgerbil.so279495_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts279481_ - _libgerbil.so279565_)) - (if (file-exists? _libgerbil.a279563_) + (_get-libgerbil-ld-opts279411_ + _libgerbil.so279495_)) + (if (file-exists? _libgerbil.a279493_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts279481_ - _libgerbil.a279563_)) + (_get-libgerbil-ld-opts279411_ + _libgerbil.a279493_)) (let () (declare (not safe)) (gxc#raise-compile-error '"libgerbil does not exist" - _libgerbil.a279563_ - _libgerbil.so279565_))))) - (_rpath279569_ + _libgerbil.a279493_ + _libgerbil.so279495_))))) + (_rpath279499_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir279497_))) - (_builtin-modules279573_ - (map (lambda (_mod279571_) + (gxc#gerbil-rpath _gerbil-libdir279427_))) + (_builtin-modules279503_ + (map (lambda (_mod279501_) (symbol->string (##structure-ref - _mod279571_ + _mod279501_ '1 gx#expander-context::t '#f))) (let () (declare (not safe)) - (cons _ctx279477_ _deps279511_))))) - (let ((__tmp284013 + (cons _ctx279407_ _deps279441_))))) + (let ((__tmp283943 (lambda () - (let ((__tmp284014 - (path-directory _output-bin279543_))) + (let ((__tmp283944 + (path-directory _output-bin279473_))) (declare (not safe)) - (create-directory* __tmp284014))))) + (create-directory* __tmp283944))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp284013)) - (let ((__tmp284015 + (with-lock gxc#+driver-mutex+ __tmp283943)) + (let ((__tmp283945 (lambda () (let () (declare (not safe)) - (_generate-stub279480_ - _builtin-modules279573_))))) + (_generate-stub279410_ + _builtin-modules279503_))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm279545_ - __tmp284015)) + _output-scm279475_ + __tmp283945)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp284016 - (lambda () (create-directory _tmp279503_)))) + (let ((__tmp283946 + (lambda () (create-directory _tmp279433_)))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp284016)) + (with-lock gxc#+driver-mutex+ __tmp283946)) (for-each copy-file - _src-deps-scm279517_ - _deps-scm279519_) - (copy-file _src-bin-scm279535_ _bin-scm279537_) - (let ((__tmp284024 + _src-deps-scm279447_ + _deps-scm279449_) + (copy-file _src-bin-scm279465_ _bin-scm279467_) + (let ((__tmp283954 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp284017 - (let ((__tmp284018 - (let ((__tmp284019 - (let ((__tmp284020 - (let ((__tmp284021 - (let ((__tmp284022 + (__tmp283947 + (let ((__tmp283948 + (let ((__tmp283949 + (let ((__tmp283950 + (let ((__tmp283951 + (let ((__tmp283952 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284023 + (let ((__tmp283953 (let () (declare (not safe)) - (cons _output-scm279545_ '())))) + (cons _output-scm279475_ '())))) (declare (not safe)) - (cons _bin-scm279537_ __tmp284023)))) + (cons _bin-scm279467_ __tmp283953)))) (declare (not safe)) - (foldr1 cons __tmp284022 _deps-scm279519_)))) + (foldr1 cons __tmp283952 _deps-scm279449_)))) (declare (not safe)) - (foldr1 cons __tmp284021 _gsc-link-opts279555_)))) + (foldr1 cons __tmp283951 _gsc-link-opts279485_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _gxlink279501_ - __tmp284020)))) + (cons _gxlink279431_ + __tmp283950)))) (declare (not safe)) - (cons '"-l" __tmp284019)))) + (cons '"-l" __tmp283949)))) (declare (not safe)) - (cons '"-link" __tmp284018)))) + (cons '"-link" __tmp283948)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp284024 - __tmp284017)) - (let ((__tmp284032 + __tmp283954 + __tmp283947)) + (let ((__tmp283962 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp284025 - (let ((__tmp284026 - (let ((__tmp284027 - (let ((__tmp284028 - (let ((__tmp284029 - (let ((__tmp284030 + (__tmp283955 + (let ((__tmp283956 + (let ((__tmp283957 + (let ((__tmp283958 + (let ((__tmp283959 + (let ((__tmp283960 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284031 + (let ((__tmp283961 (let () (declare (not safe)) - (cons _output_-c279551_ '())))) + (cons _output_-c279481_ '())))) (declare (not safe)) - (cons _output-c279547_ __tmp284031)))) + (cons _output-c279477_ __tmp283961)))) (declare (not safe)) - (cons _bin-c279539_ __tmp284030)))) + (cons _bin-c279469_ __tmp283960)))) (declare (not safe)) - (foldr1 cons __tmp284029 _deps-c279525_)))) + (foldr1 cons __tmp283959 _deps-c279455_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp284028 - _gsc-static-opts279559_)))) + __tmp283958 + _gsc-static-opts279489_)))) (declare (not safe)) (foldr1 cons - __tmp284027 - _gsc-cc-opts279557_)))) + __tmp283957 + _gsc-cc-opts279487_)))) (declare (not safe)) - (cons '"-obj" __tmp284026)))) + (cons '"-obj" __tmp283956)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp284032 - __tmp284025)) - (let ((__tmp284045 + __tmp283962 + __tmp283955)) + (let ((__tmp283975 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp284033 - (let ((__tmp284034 - (let ((__tmp284035 - (let ((__tmp284036 - (let ((__tmp284037 - (let ((__tmp284038 + (__tmp283963 + (let ((__tmp283964 + (let ((__tmp283965 + (let ((__tmp283966 + (let ((__tmp283967 + (let ((__tmp283968 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284039 - (let ((__tmp284040 - (let ((__tmp284041 - (let ((__tmp284042 - (let ((__tmp284043 + (let ((__tmp283969 + (let ((__tmp283970 + (let ((__tmp283971 + (let ((__tmp283972 + (let ((__tmp283973 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284044 + (let ((__tmp283974 (let () (declare (not safe)) (cons '"-lgambit" - _libgerbil-ld-opts279567_)))) + _libgerbil-ld-opts279497_)))) (declare (not safe)) - (cons '"-lgerbil" __tmp284044)))) + (cons '"-lgerbil" __tmp283974)))) (declare (not safe)) - (cons _gerbil-libdir279497_ __tmp284043)))) + (cons _gerbil-libdir279427_ __tmp283973)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"-L" - __tmp284042)))) + __tmp283972)))) (declare (not safe)) - (cons _rpath279569_ - __tmp284041)))) + (cons _rpath279499_ + __tmp283971)))) (declare (not safe)) (foldr1 cons - __tmp284040 - _output-ld-opts279561_)))) + __tmp283970 + _output-ld-opts279491_)))) (declare (not safe)) - (cons _output_-o279553_ __tmp284039)))) + (cons _output_-o279483_ __tmp283969)))) (declare (not safe)) - (cons _output-o279549_ __tmp284038)))) + (cons _output-o279479_ __tmp283968)))) (declare (not safe)) - (cons _bin-o279541_ __tmp284037)))) + (cons _bin-o279471_ __tmp283967)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp284036 - _deps-o279531_)))) + __tmp283966 + _deps-o279461_)))) (declare (not safe)) - (cons _output-bin279543_ - __tmp284035)))) + (cons _output-bin279473_ + __tmp283965)))) (declare (not safe)) - (cons '"-o" __tmp284034)))) + (cons '"-o" __tmp283964)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp284045 - __tmp284033)) + __tmp283975 + __tmp283963)) (for-each delete-file - (let ((__tmp284046 - (let ((__tmp284047 - (let ((__tmp284048 + (let ((__tmp283976 + (let ((__tmp283977 + (let ((__tmp283978 (let () (declare (not safe)) - (cons _output_-o279553_ + (cons _output_-o279483_ '())))) (declare (not safe)) - (cons _output-o279549_ - __tmp284048)))) + (cons _output-o279479_ + __tmp283978)))) (declare (not safe)) - (cons _output_-c279551_ __tmp284047)))) + (cons _output_-c279481_ __tmp283977)))) (declare (not safe)) - (cons _output-c279547_ __tmp284046))) + (cons _output-c279477_ __tmp283976))) (let () (declare (not safe)) - (gxc#delete-directory* _tmp279503_))) + (gxc#delete-directory* _tmp279433_))) '#!void))))) - (let* ((_output-bin279487_ + (let* ((_output-bin279417_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx279477_ _opts279478_))) - (_output-scm279489_ - (string-append _output-bin279487_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx279407_ _opts279408_))) + (_output-scm279419_ + (string-append _output-bin279417_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub279485_ _output-scm279489_ _output-bin279487_)) + (_compile-stub279415_ _output-scm279419_ _output-bin279417_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm279489_)))))) + (delete-file _output-scm279419_)))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx279302_ _opts279303_) - (letrec ((_reset-declare279305_ + (lambda (_ctx279232_ _opts279233_) + (letrec ((_reset-declare279235_ (lambda () '(declare (gambit-scheme) @@ -917,661 +917,661 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub279306_ - (lambda (_deps279468_) - (let ((_mod-main279470_ + (_generate-stub279236_ + (lambda (_deps279398_) + (let ((_mod-main279400_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx279302_ 'main))) - (_reset-decl279471_ + (gxc#find-runtime-symbol _ctx279232_ 'main))) + (_reset-decl279401_ (let () (declare (not safe)) - (_reset-declare279305_))) - (_user-decl279472_ + (_reset-declare279235_))) + (_user-decl279402_ (let () (declare (not safe)) - (_user-declare279307_)))) + (_user-declare279237_)))) (for-each - (lambda (_dep279474_) + (lambda (_dep279404_) (write '(##namespace (""))) (newline) - (write _reset-decl279471_) + (write _reset-decl279401_) (newline) - (if _user-decl279472_ - (begin (write _user-decl279472_) (newline)) + (if _user-decl279402_ + (begin (write _user-decl279402_) (newline)) '#!void) - (write (let ((__tmp284049 + (write (let ((__tmp283979 (let () (declare (not safe)) - (cons _dep279474_ '())))) + (cons _dep279404_ '())))) (declare (not safe)) - (cons 'include __tmp284049))) + (cons 'include __tmp283979))) (newline)) - _deps279468_) - (write (let ((__tmp284050 - (let ((__tmp284063 + _deps279398_) + (write (let ((__tmp283980 + (let ((__tmp283993 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp284051 - (let ((__tmp284059 - (let ((__tmp284060 - (let ((__tmp284061 - (let ((__tmp284062 + (__tmp283981 + (let ((__tmp283989 + (let ((__tmp283990 + (let ((__tmp283991 + (let ((__tmp283992 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons 'quote __tmp284062)))) + (cons 'quote __tmp283992)))) (declare (not safe)) - (cons __tmp284061 '())))) + (cons __tmp283991 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp284060))) - (__tmp284052 - (let ((__tmp284053 - (let ((__tmp284054 - (let ((__tmp284055 + __tmp283990))) + (__tmp283982 + (let ((__tmp283983 + (let ((__tmp283984 + (let ((__tmp283985 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284056 - (let ((__tmp284057 - (let ((__tmp284058 + (let ((__tmp283986 + (let ((__tmp283987 + (let ((__tmp283988 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp284058 '())))) + (cons __tmp283988 '())))) (declare (not safe)) - (cons 'cdr __tmp284057)))) + (cons 'cdr __tmp283987)))) (declare (not safe)) - (cons __tmp284056 '())))) + (cons __tmp283986 '())))) (declare (not safe)) - (cons _mod-main279470_ __tmp284055)))) + (cons _mod-main279400_ __tmp283985)))) (declare (not safe)) - (cons 'apply __tmp284054)))) + (cons 'apply __tmp283984)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284053 '())))) + (cons __tmp283983 '())))) (declare (not safe)) - (cons __tmp284059 __tmp284052)))) + (cons __tmp283989 __tmp283982)))) (declare (not safe)) - (cons __tmp284063 __tmp284051)))) + (cons __tmp283993 __tmp283981)))) (declare (not safe)) - (cons 'define __tmp284050))) + (cons 'define __tmp283980))) (write '(gerbil-main)) (newline)))) - (_user-declare279307_ + (_user-declare279237_ (lambda () - (let* ((_gsc-opts279373_ + (let* ((_gsc-opts279303_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts279303_))) - (_gsc-prelude279375_ - (if _gsc-opts279373_ - (member '"-prelude" _gsc-opts279373_) + (pgetq 'gsc-options: _opts279233_))) + (_gsc-prelude279305_ + (if _gsc-opts279303_ + (member '"-prelude" _gsc-opts279303_) '#f)) - (_gsc-prelude279377_ - (if _gsc-prelude279375_ + (_gsc-prelude279307_ + (if _gsc-prelude279305_ (read (open-input-string - (cadr _gsc-prelude279375_))) + (cadr _gsc-prelude279305_))) '#f))) - (let _lp279380_ ((_rest279382_ + (let _lp279310_ ((_rest279312_ (let () (declare (not safe)) - (cons _gsc-prelude279377_ '()))) - (_user-decls279383_ '())) - (let* ((_rest279384279392_ _rest279382_) - (_else279386279400_ + (cons _gsc-prelude279307_ '()))) + (_user-decls279313_ '())) + (let* ((_rest279314279322_ _rest279312_) + (_else279316279330_ (lambda () (if (let () (declare (not safe)) - (null? _user-decls279383_)) + (null? _user-decls279313_)) '#f - (let ((__tmp284064 - (reverse _user-decls279383_))) + (let ((__tmp283994 + (reverse _user-decls279313_))) (declare (not safe)) - (cons 'declare __tmp284064))))) - (_K279388279456_ - (lambda (_rest279403_ _expr279404_) - (let* ((_expr279405279417_ _expr279404_) - (_else279408279425_ + (cons 'declare __tmp283994))))) + (_K279318279386_ + (lambda (_rest279333_ _expr279334_) + (let* ((_expr279335279347_ _expr279334_) + (_else279338279355_ (lambda () (let () (declare (not safe)) - (_lp279380_ - _rest279403_ - _user-decls279383_))))) - (let ((_K279413279446_ - (lambda (_decls279444_) - (let ((__tmp284065 + (_lp279310_ + _rest279333_ + _user-decls279313_))))) + (let ((_K279343279376_ + (lambda (_decls279374_) + (let ((__tmp283995 (let () (declare (not safe)) (foldl1 cons - _user-decls279383_ - _decls279444_)))) + _user-decls279313_ + _decls279374_)))) (declare (not safe)) - (_lp279380_ - _rest279403_ - __tmp284065)))) - (_K279410279431_ - (lambda (_exprs279429_) - (let ((__tmp284066 - (append _exprs279429_ - _rest279403_))) + (_lp279310_ + _rest279333_ + __tmp283995)))) + (_K279340279361_ + (lambda (_exprs279359_) + (let ((__tmp283996 + (append _exprs279359_ + _rest279333_))) (declare (not safe)) - (_lp279380_ - __tmp284066 - _user-decls279383_))))) + (_lp279310_ + __tmp283996 + _user-decls279313_))))) (if (let () (declare (not safe)) - (##pair? _expr279405279417_)) - (let ((_tl279415279451_ + (##pair? _expr279335279347_)) + (let ((_tl279345279381_ (let () (declare (not safe)) - (##cdr _expr279405279417_))) - (_hd279414279449_ + (##cdr _expr279335279347_))) + (_hd279344279379_ (let () (declare (not safe)) - (##car _expr279405279417_)))) + (##car _expr279335279347_)))) (if (let () (declare (not safe)) - (##eq? _hd279414279449_ + (##eq? _hd279344279379_ 'declare)) - (let ((_decls279454_ - _tl279415279451_)) + (let ((_decls279384_ + _tl279345279381_)) (declare (not safe)) - (_K279413279446_ - _decls279454_)) + (_K279343279376_ + _decls279384_)) (if (let () (declare (not safe)) - (##eq? _hd279414279449_ + (##eq? _hd279344279379_ 'begin)) - (let ((_exprs279439_ - _tl279415279451_)) + (let ((_exprs279369_ + _tl279345279381_)) (declare (not safe)) - (_K279410279431_ - _exprs279439_)) + (_K279340279361_ + _exprs279369_)) (let () (declare (not safe)) - (_else279408279425_))))) + (_else279338279355_))))) (let () (declare (not safe)) - (_else279408279425_)))))))) + (_else279338279355_)))))))) (if (let () (declare (not safe)) - (##pair? _rest279384279392_)) - (let ((_hd279389279459_ + (##pair? _rest279314279322_)) + (let ((_hd279319279389_ (let () (declare (not safe)) - (##car _rest279384279392_))) - (_tl279390279461_ + (##car _rest279314279322_))) + (_tl279320279391_ (let () (declare (not safe)) - (##cdr _rest279384279392_)))) - (let* ((_expr279464_ _hd279389279459_) - (_rest279466_ _tl279390279461_)) + (##cdr _rest279314279322_)))) + (let* ((_expr279394_ _hd279319279389_) + (_rest279396_ _tl279320279391_)) (declare (not safe)) - (_K279388279456_ _rest279466_ _expr279464_))) + (_K279318279386_ _rest279396_ _expr279394_))) (let () (declare (not safe)) - (_else279386279400_)))))))) - (_compile-stub279308_ - (lambda (_output-scm279315_ _output-bin279316_) - (let* ((_gerbil-home279318_ + (_else279316279330_)))))))) + (_compile-stub279238_ + (lambda (_output-scm279245_ _output-bin279246_) + (let* ((_gerbil-home279248_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir279320_ - (path-expand '"lib" _gerbil-home279318_)) - (_runtime279322_ + (_gerbil-libdir279250_ + (path-expand '"lib" _gerbil-home279248_)) + (_runtime279252_ (map gxc#find-static-module-file gxc#gerbil-runtime-modules)) - (_gambit-sharp279324_ + (_gambit-sharp279254_ (path-expand '"lib/_gambit#.scm" - _gerbil-home279318_)) - (_include-gambit-sharp279326_ + _gerbil-home279248_)) + (_include-gambit-sharp279256_ (string-append '"(include \"" - _gambit-sharp279324_ + _gambit-sharp279254_ '"\")")) - (_bin-scm279328_ + (_bin-scm279258_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx279302_))) - (_deps279330_ + (gxc#find-static-module-file _ctx279232_))) + (_deps279260_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx279302_))) - (_deps279332_ - (map gxc#find-static-module-file _deps279330_)) - (_deps279337_ - (let ((__tmp284067 - (lambda (_$obj279334_) - (let ((__tmp284068 + (gxc#find-runtime-module-deps _ctx279232_))) + (_deps279262_ + (map gxc#find-static-module-file _deps279260_)) + (_deps279267_ + (let ((__tmp283997 + (lambda (_$obj279264_) + (let ((__tmp283998 (let () (declare (not safe)) - (gxc#file-empty? _$obj279334_)))) + (gxc#file-empty? _$obj279264_)))) (declare (not safe)) - (not __tmp284068))))) + (not __tmp283998))))) (declare (not safe)) - (filter __tmp284067 _deps279332_))) - (_deps279341_ - (let ((__tmp284069 - (lambda (_f279339_) - (let ((__tmp284070 - (member _f279339_ - _runtime279322_))) + (filter __tmp283997 _deps279262_))) + (_deps279271_ + (let ((__tmp283999 + (lambda (_f279269_) + (let ((__tmp284000 + (member _f279269_ + _runtime279252_))) (declare (not safe)) - (not __tmp284070))))) + (not __tmp284000))))) (declare (not safe)) - (filter __tmp284069 _deps279337_))) - (_output-base279343_ + (filter __tmp283999 _deps279267_))) + (_output-base279273_ (string-append - (path-strip-extension _output-scm279315_))) - (_output-c279345_ - (string-append _output-base279343_ '".c")) - (_output-o279347_ - (string-append _output-base279343_ '".o")) - (_output-c_279349_ - (string-append _output-base279343_ '"_.c")) - (_output-o_279351_ - (string-append _output-base279343_ '"_.o")) - (_gsc-link-opts279353_ + (path-strip-extension _output-scm279245_))) + (_output-c279275_ + (string-append _output-base279273_ '".c")) + (_output-o279277_ + (string-append _output-base279273_ '".o")) + (_output-c_279279_ + (string-append _output-base279273_ '"_.c")) + (_output-o_279281_ + (string-append _output-base279273_ '"_.o")) + (_gsc-link-opts279283_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts279355_ + (_gsc-cc-opts279285_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts279357_ - (let ((__tmp284071 + (_gsc-static-opts279287_ + (let ((__tmp284001 (path-expand '"static" - _gerbil-libdir279320_))) + _gerbil-libdir279250_))) (declare (not safe)) - (gxc#gsc-static-include-options __tmp284071))) - (_output-ld-opts279359_ + (gxc#gsc-static-include-options __tmp284001))) + (_output-ld-opts279289_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_gsc-gx-macros279361_ + (_gsc-gx-macros279291_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) - (let ((__tmp284073 - (let ((__tmp284074 - (let ((__tmp284075 + (let ((__tmp284003 + (let ((__tmp284004 + (let ((__tmp284005 (let () (declare (not safe)) - (cons _include-gambit-sharp279326_ + (cons _include-gambit-sharp279256_ '())))) (declare (not safe)) - (cons '"-e" __tmp284075)))) + (cons '"-e" __tmp284005)))) (declare (not safe)) (cons '"(define-cond-expand-feature|enable-smp|)" - __tmp284074)))) + __tmp284004)))) (declare (not safe)) - (cons '"-e" __tmp284073)) - (let ((__tmp284072 + (cons '"-e" __tmp284003)) + (let ((__tmp284002 (let () (declare (not safe)) - (cons _include-gambit-sharp279326_ + (cons _include-gambit-sharp279256_ '())))) (declare (not safe)) - (cons '"-e" __tmp284072)))) - (_gsc-link-opts279363_ - (append _gsc-link-opts279353_ - _gsc-gx-macros279361_)) - (_rpath279365_ + (cons '"-e" __tmp284002)))) + (_gsc-link-opts279293_ + (append _gsc-link-opts279283_ + _gsc-gx-macros279291_)) + (_rpath279295_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir279320_))) - (_default-ld-options279367_ - (let ((__tmp284076 + (gxc#gerbil-rpath _gerbil-libdir279250_))) + (_default-ld-options279297_ + (let ((__tmp284006 (let () (declare (not safe)) (cons '"-lm" '())))) (declare (not safe)) - (cons '"-ldl" __tmp284076)))) - (let ((__tmp284077 + (cons '"-ldl" __tmp284006)))) + (let ((__tmp284007 (lambda () - (let ((__tmp284078 - (path-directory _output-bin279316_))) + (let ((__tmp284008 + (path-directory _output-bin279246_))) (declare (not safe)) - (create-directory* __tmp284078))))) + (create-directory* __tmp284008))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp284077)) - (let ((__tmp284079 + (with-lock gxc#+driver-mutex+ __tmp284007)) + (let ((__tmp284009 (lambda () - (let ((__tmp284080 - (let ((__tmp284081 - (let ((__tmp284082 + (let ((__tmp284010 + (let ((__tmp284011 + (let ((__tmp284012 (let () (declare (not safe)) - (cons _bin-scm279328_ + (cons _bin-scm279258_ '())))) (declare (not safe)) (foldr1 cons - __tmp284082 - _deps279341_)))) + __tmp284012 + _deps279271_)))) (declare (not safe)) (foldr1 cons - __tmp284081 - _runtime279322_)))) + __tmp284011 + _runtime279252_)))) (declare (not safe)) - (_generate-stub279306_ __tmp284080))))) + (_generate-stub279236_ __tmp284010))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm279315_ - __tmp284079)) + _output-scm279245_ + __tmp284009)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp284088 + (let ((__tmp284018 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp284083 - (let ((__tmp284084 - (let ((__tmp284085 - (let ((__tmp284086 - (let ((__tmp284087 + (__tmp284013 + (let ((__tmp284014 + (let ((__tmp284015 + (let ((__tmp284016 + (let ((__tmp284017 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-scm279315_ '())))) + (cons _output-scm279245_ '())))) (declare (not safe)) - (foldr1 cons __tmp284087 _gsc-link-opts279363_)))) + (foldr1 cons __tmp284017 _gsc-link-opts279293_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-c_279349_ - __tmp284086)))) + (cons _output-c_279279_ + __tmp284016)))) (declare (not safe)) - (cons '"-o" __tmp284085)))) + (cons '"-o" __tmp284015)))) (declare (not safe)) - (cons '"-link" __tmp284084)))) + (cons '"-link" __tmp284014)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp284088 - __tmp284083)) - (let ((__tmp284094 + __tmp284018 + __tmp284013)) + (let ((__tmp284024 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp284089 - (let ((__tmp284090 - (let ((__tmp284091 - (let ((__tmp284092 - (let ((__tmp284093 + (__tmp284019 + (let ((__tmp284020 + (let ((__tmp284021 + (let ((__tmp284022 + (let ((__tmp284023 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-c_279349_ '())))) + (cons _output-c_279279_ '())))) (declare (not safe)) - (cons _output-c279345_ __tmp284093)))) + (cons _output-c279275_ __tmp284023)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp284092 - _gsc-static-opts279357_)))) + __tmp284022 + _gsc-static-opts279287_)))) (declare (not safe)) (foldr1 cons - __tmp284091 - _gsc-cc-opts279355_)))) + __tmp284021 + _gsc-cc-opts279285_)))) (declare (not safe)) - (cons '"-obj" __tmp284090)))) + (cons '"-obj" __tmp284020)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp284094 - __tmp284089)) - (let ((__tmp284104 + __tmp284024 + __tmp284019)) + (let ((__tmp284034 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp284095 - (let ((__tmp284096 - (let ((__tmp284097 - (let ((__tmp284098 - (let ((__tmp284099 - (let ((__tmp284100 + (__tmp284025 + (let ((__tmp284026 + (let ((__tmp284027 + (let ((__tmp284028 + (let ((__tmp284029 + (let ((__tmp284030 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284101 - (let ((__tmp284102 - (let ((__tmp284103 + (let ((__tmp284031 + (let ((__tmp284032 + (let ((__tmp284033 (let () (declare (not safe)) (cons '"-lgambit" - _default-ld-options279367_)))) + _default-ld-options279297_)))) (declare (not safe)) - (cons _gerbil-libdir279320_ - __tmp284103)))) + (cons _gerbil-libdir279250_ + __tmp284033)))) (declare (not safe)) - (cons '"-L" __tmp284102)))) + (cons '"-L" __tmp284032)))) (declare (not safe)) - (cons _rpath279365_ __tmp284101)))) + (cons _rpath279295_ __tmp284031)))) (declare (not safe)) - (foldr1 cons __tmp284100 _output-ld-opts279359_)))) + (foldr1 cons __tmp284030 _output-ld-opts279289_)))) (declare (not safe)) - (cons _output-o_279351_ __tmp284099)))) + (cons _output-o_279281_ __tmp284029)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-o279347_ - __tmp284098)))) + (cons _output-o279277_ + __tmp284028)))) (declare (not safe)) - (cons _output-bin279316_ - __tmp284097)))) + (cons _output-bin279246_ + __tmp284027)))) (declare (not safe)) - (cons '"-o" __tmp284096)))) + (cons '"-o" __tmp284026)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp284104 - __tmp284095))) + __tmp284034 + __tmp284025))) '#!void))))) - (let* ((_output-bin279310_ + (let* ((_output-bin279240_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx279302_ _opts279303_))) - (_output-scm279312_ - (string-append _output-bin279310_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx279232_ _opts279233_))) + (_output-scm279242_ + (string-append _output-bin279240_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub279308_ _output-scm279312_ _output-bin279310_)) + (_compile-stub279238_ _output-scm279242_ _output-bin279240_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm279312_)))))) + (delete-file _output-scm279242_)))))) (define gxc#find-export-binding - (lambda (_ctx279252_ _id279253_) - (let ((_$e279299_ - (let ((__tmp284106 - (lambda (_e279254279256_) - (let* ((_g279258279268_ _e279254279256_) - (_else279260279276_ (lambda () '#f)) - (_K279262279280_ (lambda () '#t))) + (lambda (_ctx279182_ _id279183_) + (let ((_$e279229_ + (let ((__tmp284036 + (lambda (_e279184279186_) + (let* ((_g279188279198_ _e279184279186_) + (_else279190279206_ (lambda () '#f)) + (_K279192279210_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _g279258279268_ + _g279188279198_ 'gx#module-export::t)) - (let* ((_e279263279283_ + (let* ((_e279193279213_ (let () (declare (not safe)) (##unchecked-structure-ref - _g279258279268_ + _g279188279198_ '1 gx#module-export::t '#f))) - (_e279264279286_ + (_e279194279216_ (let () (declare (not safe)) (##unchecked-structure-ref - _g279258279268_ + _g279188279198_ '2 gx#module-export::t '#f))) - (_e279265279289_ + (_e279195279219_ (let () (declare (not safe)) (##unchecked-structure-ref - _g279258279268_ + _g279188279198_ '3 gx#module-export::t '#f)))) (if (let () (declare (not safe)) - (##eq? _e279265279289_ '0)) - (let ((_e279266279292_ + (##eq? _e279195279219_ '0)) + (let ((_e279196279222_ (let () (declare (not safe)) (##unchecked-structure-ref - _g279258279268_ + _g279188279198_ '4 gx#module-export::t '#f)))) - (if ((lambda (_g279294279296_) + (if ((lambda (_g279224279226_) (let () (declare (not safe)) - (eq? _g279294279296_ - _id279253_))) - _e279266279292_) + (eq? _g279224279226_ + _id279183_))) + _e279196279222_) (let () (declare (not safe)) - (_K279262279280_)) + (_K279192279210_)) (let () (declare (not safe)) - (_else279260279276_)))) + (_else279190279206_)))) (let () (declare (not safe)) - (_else279260279276_)))) + (_else279190279206_)))) (let () (declare (not safe)) - (_else279260279276_)))))) - (__tmp284105 + (_else279190279206_)))))) + (__tmp284035 (##structure-ref - _ctx279252_ + _ctx279182_ '9 gx#module-context::t '#f))) (declare (not safe)) - (find __tmp284106 __tmp284105)))) - (if _$e279299_ + (find __tmp284036 __tmp284035)))) + (if _$e279229_ (let () (declare (not safe)) - (gx#core-resolve-module-export _$e279299_)) + (gx#core-resolve-module-export _$e279229_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx279244_ _id279245_) - (let ((_$e279247_ + (lambda (_ctx279174_ _id279175_) + (let ((_$e279177_ (let () (declare (not safe)) - (gxc#find-export-binding _ctx279244_ _id279245_)))) - (if _$e279247_ - ((lambda (_bind279250_) + (gxc#find-export-binding _ctx279174_ _id279175_)))) + (if _$e279177_ + ((lambda (_bind279180_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind279250_ + _bind279180_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _id279245_))) - (##structure-ref _bind279250_ '1 gx#binding::t '#f)) - _$e279247_) - (let ((__tmp284107 + _id279175_))) + (##structure-ref _bind279180_ '1 gx#binding::t '#f)) + _$e279177_) + (let ((__tmp284037 (##structure-ref - _ctx279244_ + _ctx279174_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp284107 - _id279245_)))))) + __tmp284037 + _id279175_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx279131_) - (letrec* ((_ht279133_ + (lambda (_ctx279061_) + (letrec* ((_ht279063_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_import-set-template279134_ - (lambda (_in279196_ _phi279197_) - (let ((_iphi279199_ - (fx+ _phi279197_ + (_import-set-template279064_ + (lambda (_in279126_ _phi279127_) + (let ((_iphi279129_ + (fx+ _phi279127_ (##direct-structure-ref - _in279196_ + _in279126_ '2 gx#import-set::t '#f))) - (_imports279200_ + (_imports279130_ (##structure-ref (##direct-structure-ref - _in279196_ + _in279126_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp279202_ ((_rest279204_ _imports279200_) - (_r279205_ '())) - (let* ((_rest279206279214_ _rest279204_) - (_else279208279222_ (lambda () _r279205_)) - (_K279210279232_ - (lambda (_rest279225_ _in279226_) + (let _lp279132_ ((_rest279134_ _imports279130_) + (_r279135_ '())) + (let* ((_rest279136279144_ _rest279134_) + (_else279138279152_ (lambda () _r279135_)) + (_K279140279162_ + (lambda (_rest279155_ _in279156_) (if (let () (declare (not safe)) (##structure-instance-of? - _in279226_ + _in279156_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi279199_)) - (let ((__tmp284114 + (fxzero? _iphi279129_)) + (let ((__tmp284044 (let () (declare (not safe)) - (cons _in279226_ - _r279205_)))) + (cons _in279156_ + _r279135_)))) (declare (not safe)) - (_lp279202_ - _rest279225_ - __tmp284114)) + (_lp279132_ + _rest279155_ + __tmp284044)) (let () (declare (not safe)) - (_lp279202_ - _rest279225_ - _r279205_))) + (_lp279132_ + _rest279155_ + _r279135_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in279226_ + _in279156_ 'gx#module-import::t)) - (let ((_iphi279228_ - (fx+ _phi279197_ + (let ((_iphi279158_ + (fx+ _phi279127_ (##direct-structure-ref - _in279226_ + _in279156_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi279228_)) - (let ((__tmp284112 - (let ((__tmp284113 + (fxzero? _iphi279158_)) + (let ((__tmp284042 + (let ((__tmp284043 (##direct-structure-ref (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in279226_ + _in279156_ '1 gx#module-import::t '#f) @@ -1579,889 +1579,889 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp284113 _r279205_)))) + (cons __tmp284043 _r279135_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp279202_ - _rest279225_ - __tmp284112)) + (_lp279132_ + _rest279155_ + __tmp284042)) (let () (declare (not safe)) - (_lp279202_ - _rest279225_ - _r279205_)))) + (_lp279132_ + _rest279155_ + _r279135_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in279226_ + _in279156_ 'gx#import-set::t)) - (let ((_xphi279230_ - (fx+ _iphi279199_ + (let ((_xphi279160_ + (fx+ _iphi279129_ (##direct-structure-ref - _in279226_ + _in279156_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi279230_)) - (let ((__tmp284110 - (let ((__tmp284111 + (fxzero? _xphi279160_)) + (let ((__tmp284040 + (let ((__tmp284041 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in279226_ + _in279156_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp284111 _r279205_)))) + (cons __tmp284041 _r279135_)))) (declare (not safe)) - (_lp279202_ _rest279225_ __tmp284110)) + (_lp279132_ _rest279155_ __tmp284040)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi279230_) - (let ((__tmp284108 - (let ((__tmp284109 + _xphi279160_) + (let ((__tmp284038 + (let ((__tmp284039 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template279134_ - _in279226_ - _iphi279199_)))) + (_import-set-template279064_ + _in279156_ + _iphi279129_)))) (declare (not safe)) - (foldl1 cons _r279205_ __tmp284109)))) + (foldl1 cons _r279135_ __tmp284039)))) (declare (not safe)) - (_lp279202_ _rest279225_ __tmp284108)) + (_lp279132_ _rest279155_ __tmp284038)) (let () (declare (not safe)) - (_lp279202_ _rest279225_ _r279205_))))) + (_lp279132_ _rest279155_ _r279135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp279202_ - _rest279225_ - _r279205_)))))))) + (_lp279132_ + _rest279155_ + _r279135_)))))))) (if (let () (declare (not safe)) - (##pair? _rest279206279214_)) - (let ((_hd279211279235_ + (##pair? _rest279136279144_)) + (let ((_hd279141279165_ (let () (declare (not safe)) - (##car _rest279206279214_))) - (_tl279212279237_ + (##car _rest279136279144_))) + (_tl279142279167_ (let () (declare (not safe)) - (##cdr _rest279206279214_)))) - (let* ((_in279240_ _hd279211279235_) - (_rest279242_ _tl279212279237_)) + (##cdr _rest279136279144_)))) + (let* ((_in279170_ _hd279141279165_) + (_rest279172_ _tl279142279167_)) (declare (not safe)) - (_K279210279232_ _rest279242_ _in279240_))) + (_K279140279162_ _rest279172_ _in279170_))) (let () (declare (not safe)) - (_else279208279222_)))))))) - (_find-deps279135_ - (lambda (_rest279142_ _deps279143_) - (let* ((_rest279144279152_ _rest279142_) - (_else279146279160_ (lambda () _deps279143_)) - (_K279148279184_ - (lambda (_rest279163_ _hd279164_) + (_else279138279152_)))))))) + (_find-deps279065_ + (lambda (_rest279072_ _deps279073_) + (let* ((_rest279074279082_ _rest279072_) + (_else279076279090_ (lambda () _deps279073_)) + (_K279078279114_ + (lambda (_rest279093_ _hd279094_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd279164_ + _hd279094_ 'gx#module-context::t)) - (let ((_id279166_ + (let ((_id279096_ (##structure-ref - _hd279164_ + _hd279094_ '1 gx#expander-context::t '#f)) - (_imports279167_ + (_imports279097_ (##structure-ref - _hd279164_ + _hd279094_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) (table-ref - _ht279133_ - _id279166_ + _ht279063_ + _id279096_ '#f)) (let () (declare (not safe)) - (_find-deps279135_ - _rest279163_ - _deps279143_)) - (let ((_$e279169_ + (_find-deps279065_ + _rest279093_ + _deps279073_)) + (let ((_$e279099_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd279164_)))) - (if _$e279169_ - ((lambda (_pre279172_) - (let ((_xdeps279174_ - (let ((__tmp284127 + _hd279094_)))) + (if _$e279099_ + ((lambda (_pre279102_) + (let ((_xdeps279104_ + (let ((__tmp284057 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _pre279172_ _imports279167_)))) + (cons _pre279102_ _imports279097_)))) (declare (not safe)) - (_find-deps279135_ __tmp284127 _deps279143_)))) + (_find-deps279065_ __tmp284057 _deps279073_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (table-set! - _ht279133_ - _id279166_ - _hd279164_)) - (let ((__tmp284128 + _ht279063_ + _id279096_ + _hd279094_)) + (let ((__tmp284058 (let () (declare (not safe)) - (cons _hd279164_ + (cons _hd279094_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps279174_)))) + _xdeps279104_)))) (declare (not safe)) - (_find-deps279135_ _rest279163_ __tmp284128)))) + (_find-deps279065_ _rest279093_ __tmp284058)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e279169_) - (let ((_xdeps279176_ + _$e279099_) + (let ((_xdeps279106_ (let () (declare (not safe)) - (_find-deps279135_ - _imports279167_ - _deps279143_)))) + (_find-deps279065_ + _imports279097_ + _deps279073_)))) (let () (declare (not safe)) (table-set! - _ht279133_ - _id279166_ - _hd279164_)) - (let ((__tmp284126 + _ht279063_ + _id279096_ + _hd279094_)) + (let ((__tmp284056 (let () (declare (not safe)) - (cons _hd279164_ - _xdeps279176_)))) + (cons _hd279094_ + _xdeps279106_)))) (declare (not safe)) - (_find-deps279135_ - _rest279163_ - __tmp284126))))))) + (_find-deps279065_ + _rest279093_ + __tmp284056))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd279164_ + _hd279094_ 'gx#prelude-context::t)) - (let ((_id279178_ + (let ((_id279108_ (##structure-ref - _hd279164_ + _hd279094_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (table-ref - _ht279133_ - _id279178_ + _ht279063_ + _id279108_ '#f)) (let () (declare (not safe)) - (_find-deps279135_ - _rest279163_ - _deps279143_)) - (let ((_xdeps279180_ - (let ((__tmp284124 + (_find-deps279065_ + _rest279093_ + _deps279073_)) + (let ((_xdeps279110_ + (let ((__tmp284054 (##structure-ref - _hd279164_ + _hd279094_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_find-deps279135_ - __tmp284124 - _deps279143_)))) + (_find-deps279065_ + __tmp284054 + _deps279073_)))) (if (let () (declare (not safe)) (table-ref - _ht279133_ - _id279178_ + _ht279063_ + _id279108_ '#f)) (let () (declare (not safe)) - (_find-deps279135_ - _rest279163_ - _xdeps279180_)) + (_find-deps279065_ + _rest279093_ + _xdeps279110_)) (begin (let () (declare (not safe)) (table-set! - _ht279133_ - _id279178_ - _hd279164_)) - (let ((__tmp284125 + _ht279063_ + _id279108_ + _hd279094_)) + (let ((__tmp284055 (let () (declare (not safe)) - (cons _hd279164_ + (cons _hd279094_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps279180_)))) + _xdeps279110_)))) (declare (not safe)) - (_find-deps279135_ _rest279163_ __tmp284125))))))) + (_find-deps279065_ _rest279093_ __tmp284055))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd279164_ + _hd279094_ 'gx#module-import::t)) - (if (let ((__tmp284123 + (if (let ((__tmp284053 (##direct-structure-ref - _hd279164_ + _hd279094_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp284123)) - (let ((__tmp284121 - (let ((__tmp284122 + (fxzero? __tmp284053)) + (let ((__tmp284051 + (let ((__tmp284052 (##direct-structure-ref - _hd279164_ + _hd279094_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp284122 - _rest279163_)))) + (cons __tmp284052 + _rest279093_)))) (declare (not safe)) - (_find-deps279135_ - __tmp284121 - _deps279143_)) + (_find-deps279065_ + __tmp284051 + _deps279073_)) (let () (declare (not safe)) - (_find-deps279135_ - _rest279163_ - _deps279143_))) + (_find-deps279065_ + _rest279093_ + _deps279073_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd279164_ + _hd279094_ 'gx#module-export::t)) - (let ((__tmp284119 - (let ((__tmp284120 + (let ((__tmp284049 + (let ((__tmp284050 (##direct-structure-ref - _hd279164_ + _hd279094_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp284120 - _rest279163_)))) + (cons __tmp284050 + _rest279093_)))) (declare (not safe)) - (_find-deps279135_ - __tmp284119 - _deps279143_)) + (_find-deps279065_ + __tmp284049 + _deps279073_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd279164_ + _hd279094_ 'gx#import-set::t)) - (if (let ((__tmp284118 + (if (let ((__tmp284048 (##direct-structure-ref - _hd279164_ + _hd279094_ '2 gx#import-set::t '#f))) (declare (not safe)) - (fxzero? __tmp284118)) - (let ((__tmp284116 - (let ((__tmp284117 + (fxzero? __tmp284048)) + (let ((__tmp284046 + (let ((__tmp284047 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _hd279164_ + _hd279094_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp284117 _rest279163_)))) + (cons __tmp284047 _rest279093_)))) (declare (not safe)) - (_find-deps279135_ __tmp284116 _deps279143_)) + (_find-deps279065_ __tmp284046 _deps279073_)) (if (fxpositive? (##direct-structure-ref - _hd279164_ + _hd279094_ '2 gx#import-set::t '#f)) - (let* ((_xdeps279182_ + (let* ((_xdeps279112_ (let () (declare (not safe)) - (_import-set-template279134_ _hd279164_ '0))) - (__tmp284115 + (_import-set-template279064_ _hd279094_ '0))) + (__tmp284045 (let () (declare (not safe)) - (foldl1 cons _rest279163_ _xdeps279182_)))) + (foldl1 cons _rest279093_ _xdeps279112_)))) (declare (not safe)) - (_find-deps279135_ __tmp284115 _deps279143_)) + (_find-deps279065_ __tmp284045 _deps279073_)) (let () (declare (not safe)) - (_find-deps279135_ _rest279163_ _deps279143_)))) + (_find-deps279065_ _rest279093_ _deps279073_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Unexpected module import" - _hd279164_))))))))) + _hd279094_))))))))) (if (let () (declare (not safe)) - (##pair? _rest279144279152_)) - (let ((_hd279149279187_ + (##pair? _rest279074279082_)) + (let ((_hd279079279117_ (let () (declare (not safe)) - (##car _rest279144279152_))) - (_tl279150279189_ + (##car _rest279074279082_))) + (_tl279080279119_ (let () (declare (not safe)) - (##cdr _rest279144279152_)))) - (let* ((_hd279192_ _hd279149279187_) - (_rest279194_ _tl279150279189_)) + (##cdr _rest279074279082_)))) + (let* ((_hd279122_ _hd279079279117_) + (_rest279124_ _tl279080279119_)) (declare (not safe)) - (_K279148279184_ _rest279194_ _hd279192_))) + (_K279078279114_ _rest279124_ _hd279122_))) (let () (declare (not safe)) - (_else279146279160_))))))) - (reverse (let ((__tmp284129 - (let ((__tmp284130 - (let ((_$e279137_ + (_else279076279090_))))))) + (reverse (let ((__tmp284059 + (let ((__tmp284060 + (let ((_$e279067_ (let () (declare (not safe)) (gx#core-context-prelude__% - _ctx279131_)))) - (if _$e279137_ - ((lambda (_pre279140_) - (let ((__tmp284131 + _ctx279061_)))) + (if _$e279067_ + ((lambda (_pre279070_) + (let ((__tmp284061 (##structure-ref - _ctx279131_ + _ctx279061_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre279140_ __tmp284131))) - _$e279137_) + (cons _pre279070_ __tmp284061))) + _$e279067_) (##structure-ref - _ctx279131_ + _ctx279061_ '8 gx#module-context::t '#f))))) (declare (not safe)) - (_find-deps279135_ __tmp284130 '())))) + (_find-deps279065_ __tmp284060 '())))) (declare (not safe)) - (filter gx#expander-context-id __tmp284129)))))) + (filter gx#expander-context-id __tmp284059)))))) (define gxc#find-static-module-file - (lambda (_ctx279062_) - (let* ((_context-id279064_ + (lambda (_ctx278992_) + (let* ((_context-id278994_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx279062_ + _ctx278992_ 'gx#module-context::t)) - (##structure-ref _ctx279062_ '1 gx#expander-context::t '#f) - (string->symbol _ctx279062_))) - (_scm279066_ + (##structure-ref _ctx278992_ '1 gx#expander-context::t '#f) + (string->symbol _ctx278992_))) + (_scm278996_ (string-append (let () (declare (not safe)) - (gxc#static-module-name _context-id279064_)) + (gxc#static-module-name _context-id278994_)) '".scm")) - (_dirs279068_ (gx#current-expander-module-library-path)) - (_dirs279074_ - (let ((_user-libpath279070_ (getenv '"GERBIL_PATH" '#f))) - (if _user-libpath279070_ - (let ((_user-libpath279072_ - (path-expand '"lib" _user-libpath279070_))) - (if (member _user-libpath279072_ _dirs279068_) - _dirs279068_ + (_dirs278998_ (gx#current-expander-module-library-path)) + (_dirs279004_ + (let ((_user-libpath279000_ (getenv '"GERBIL_PATH" '#f))) + (if _user-libpath279000_ + (let ((_user-libpath279002_ + (path-expand '"lib" _user-libpath279000_))) + (if (member _user-libpath279002_ _dirs278998_) + _dirs278998_ (let () (declare (not safe)) - (cons _user-libpath279072_ _dirs279068_)))) - _dirs279068_))) - (_dirs279083_ - (let ((_$e279076_ (gxc#current-compile-output-dir))) - (if _$e279076_ - ((lambda (_g279078279080_) + (cons _user-libpath279002_ _dirs278998_)))) + _dirs278998_))) + (_dirs279013_ + (let ((_$e279006_ (gxc#current-compile-output-dir))) + (if _$e279006_ + ((lambda (_g279008279010_) (let () (declare (not safe)) - (cons _g279078279080_ _dirs279074_))) - _$e279076_) - _dirs279074_))) - (_dirs279089_ - (map (lambda (_g279084279086_) - (path-expand '"static" _g279084279086_)) - _dirs279083_))) - (let _lp279092_ ((_rest279094_ _dirs279089_)) - (let* ((_rest279095279103_ _rest279094_) - (_else279097279111_ + (cons _g279008279010_ _dirs279004_))) + _$e279006_) + _dirs279004_))) + (_dirs279019_ + (map (lambda (_g279014279016_) + (path-expand '"static" _g279014279016_)) + _dirs279013_))) + (let _lp279022_ ((_rest279024_ _dirs279019_)) + (let* ((_rest279025279033_ _rest279024_) + (_else279027279041_ (lambda () - (let ((__tmp284132 + (let ((__tmp284062 (##structure-ref - _ctx279062_ + _ctx278992_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp284132 - _scm279066_)))) - (_K279099279119_ - (lambda (_rest279114_ _dir279115_) - (let ((_path279117_ - (path-expand _scm279066_ _dir279115_))) - (if (file-exists? _path279117_) - _path279117_ + __tmp284062 + _scm278996_)))) + (_K279029279049_ + (lambda (_rest279044_ _dir279045_) + (let ((_path279047_ + (path-expand _scm278996_ _dir279045_))) + (if (file-exists? _path279047_) + _path279047_ (let () (declare (not safe)) - (_lp279092_ _rest279114_))))))) - (if (let () (declare (not safe)) (##pair? _rest279095279103_)) - (let ((_hd279100279122_ + (_lp279022_ _rest279044_))))))) + (if (let () (declare (not safe)) (##pair? _rest279025279033_)) + (let ((_hd279030279052_ (let () (declare (not safe)) - (##car _rest279095279103_))) - (_tl279101279124_ + (##car _rest279025279033_))) + (_tl279031279054_ (let () (declare (not safe)) - (##cdr _rest279095279103_)))) - (let* ((_dir279127_ _hd279100279122_) - (_rest279129_ _tl279101279124_)) + (##cdr _rest279025279033_)))) + (let* ((_dir279057_ _hd279030279052_) + (_rest279059_ _tl279031279054_)) (declare (not safe)) - (_K279099279119_ _rest279129_ _dir279127_))) - (let () (declare (not safe)) (_else279097279111_)))))))) + (_K279029279049_ _rest279059_ _dir279057_))) + (let () (declare (not safe)) (_else279027279041_)))))))) (define gxc#file-empty? - (lambda (_path279060_) - (let ((__tmp284133 (file-info-size (file-info _path279060_ '#t)))) + (lambda (_path278990_) + (let ((__tmp284063 (file-info-size (file-info _path278990_ '#t)))) (declare (not safe)) - (zero? __tmp284133)))) + (zero? __tmp284063)))) (define gxc#compile-top-module - (lambda (_ctx279049_) - (let ((__tmp284137 + (lambda (_ctx278979_) + (let ((__tmp284067 (lambda () - (let ((__tmp284138 + (let ((__tmp284068 (##structure-ref - _ctx279049_ + _ctx278979_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp284138)) + (gxc#verbose '"compile " __tmp284068)) (if (gxc#current-compile-optimize) - (let ((__tmp284139 + (let ((__tmp284069 (lambda () (let () (declare (not safe)) - (gxc#optimize! _ctx279049_))))) + (gxc#optimize! _ctx278979_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp284139)) + (with-lock gxc#+driver-mutex+ __tmp284069)) '#!void) (let () (declare (not safe)) - (gxc#collect-bindings _ctx279049_)) - (if (let ((__tmp284142 + (gxc#collect-bindings _ctx278979_)) + (if (let ((__tmp284072 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx279049_)))) + (gxc#lift-nested-modules _ctx278979_)))) (declare (not safe)) - (null? __tmp284142)) - (let* ((_thr1279054_ - (let ((__tmp284140 + (null? __tmp284072)) + (let* ((_thr1278984_ + (let ((__tmp284070 (lambda () (let () (declare (not safe)) (gxc#compile-runtime-code - _ctx279049_))))) + _ctx278979_))))) (declare (not safe)) - (spawn __tmp284140))) - (_thr2279057_ - (let ((__tmp284141 + (spawn __tmp284070))) + (_thr2278987_ + (let ((__tmp284071 (lambda () (let () (declare (not safe)) - (gxc#compile-meta-code _ctx279049_))))) + (gxc#compile-meta-code _ctx278979_))))) (declare (not safe)) - (spawn __tmp284141)))) - (let () (declare (not safe)) (gxc#join! _thr1279054_)) - (let () (declare (not safe)) (gxc#join! _thr2279057_))) + (spawn __tmp284071)))) + (let () (declare (not safe)) (gxc#join! _thr1278984_)) + (let () (declare (not safe)) (gxc#join! _thr2278987_))) (begin (let () (declare (not safe)) - (gxc#compile-runtime-code _ctx279049_)) + (gxc#compile-runtime-code _ctx278979_)) (let () (declare (not safe)) - (gxc#compile-meta-code _ctx279049_)))) + (gxc#compile-meta-code _ctx278979_)))) (if (and (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi)) (let () (declare (not safe)) - (gxc#compile-ssxi-code _ctx279049_)) + (gxc#compile-ssxi-code _ctx278979_)) '#!void))) - (__tmp284136 - (let ((__obj283941 (make-object* gxc#symbol-table::t '3))) - (gxc#symbol-table:::init! __obj283941) - __obj283941)) - (__tmp284135 + (__tmp284066 + (let ((__obj283871 (make-object gxc#symbol-table::t '3))) + (gxc#symbol-table:::init! __obj283871) + __obj283871)) + (__tmp284065 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp284134 (let () (declare (not safe)) (make-table)))) + (__tmp284064 (let () (declare (not safe)) (make-table)))) (declare (not safe)) (call-with-parameters - __tmp284137 + __tmp284067 gx#current-expander-context - _ctx279049_ + _ctx278979_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp284136 + __tmp284066 gxc#current-compile-runtime-sections - __tmp284135 + __tmp284065 gxc#current-compile-runtime-names - __tmp284134)))) + __tmp284064)))) (define gxc#collect-bindings - (lambda (_ctx279047_) - (let ((__tmp284143 - (##structure-ref _ctx279047_ '11 gx#module-context::t '#f))) + (lambda (_ctx278977_) + (let ((__tmp284073 + (##structure-ref _ctx278977_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp284143)))) + (gxc#apply-collect-bindings __tmp284073)))) (define gxc#compile-runtime-code - (lambda (_ctx278993_) - (letrec ((_compile1278995_ - (lambda (_ctx279036_) - (let* ((_code279038_ + (lambda (_ctx278923_) + (letrec ((_compile1278925_ + (lambda (_ctx278966_) + (let* ((_code278968_ (##structure-ref - _ctx279036_ + _ctx278966_ '11 gx#module-context::t '#f)) - (_rt279042_ + (_rt278972_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _code279038_)) - (let ((_idstr279040_ - (let ((__tmp284144 + (gxc#apply-find-runtime-code _code278968_)) + (let ((_idstr278970_ + (let ((__tmp284074 (##structure-ref - _ctx279036_ + _ctx278966_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp284144)))) - (string-append _idstr279040_ '"__0")) + __tmp284074)))) + (string-append _idstr278970_ '"__0")) '#f))) - (if _rt279042_ + (if _rt278972_ (begin - (let ((__tmp284145 + (let ((__tmp284075 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-set! __tmp284145 _ctx279036_ _rt279042_)) + (table-set! __tmp284075 _ctx278966_ _rt278972_)) (let () (declare (not safe)) - (_generate-runtime-code278997_ - _ctx279036_ - _code279038_))) - (let ((_path279045_ + (_generate-runtime-code278927_ + _ctx278966_ + _code278968_))) + (let ((_path278975_ (let () (declare (not safe)) (gxc#compile-static-output-file - _ctx279036_)))) + _ctx278966_)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path279045_ + _path278975_ void))) (let () (declare (not safe)) - (_generate-loader-code278998_ - _ctx279036_ - _code279038_ - _rt279042_))))) - (_context-timestamp278996_ - (lambda (_ctx279034_) + (_generate-loader-code278928_ + _ctx278966_ + _code278968_ + _rt278972_))))) + (_context-timestamp278926_ + (lambda (_ctx278964_) (string->symbol (string-append (symbol->string (##structure-ref - _ctx279034_ + _ctx278964_ '1 gx#expander-context::t '#f)) '"::timestamp")))) - (_generate-runtime-code278997_ - (lambda (_ctx279016_ _code279017_) - (let* ((_lifts279019_ + (_generate-runtime-code278927_ + (lambda (_ctx278946_ _code278947_) + (let* ((_lifts278949_ (let () (declare (not safe)) (box '()))) - (_runtime-code279022_ - (let ((__tmp284148 + (_runtime-code278952_ + (let ((__tmp284078 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _code279017_)))) - (__tmp284147 + _code278947_)))) + (__tmp284077 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp284146 + (__tmp284076 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp284148 + __tmp284078 gx#current-expander-context - _ctx279016_ + _ctx278946_ gx#current-expander-phi '0 gxc#current-compile-lift - _lifts279019_ + _lifts278949_ gxc#current-compile-marks - __tmp284147 + __tmp284077 gxc#current-compile-identifiers - __tmp284146))) - (_runtime-code279024_ - (if (let ((__tmp284152 (unbox _lifts279019_))) + __tmp284076))) + (_runtime-code278954_ + (if (let ((__tmp284082 (unbox _lifts278949_))) (declare (not safe)) - (null? __tmp284152)) - _runtime-code279022_ - (let ((__tmp284149 - (let ((__tmp284151 + (null? __tmp284082)) + _runtime-code278952_ + (let ((__tmp284079 + (let ((__tmp284081 (let () (declare (not safe)) - (cons _runtime-code279022_ + (cons _runtime-code278952_ '()))) - (__tmp284150 - (reverse (unbox _lifts279019_)))) + (__tmp284080 + (reverse (unbox _lifts278949_)))) (declare (not safe)) (foldr1 cons - __tmp284151 - __tmp284150)))) + __tmp284081 + __tmp284080)))) (declare (not safe)) - (cons 'begin __tmp284149)))) - (_runtime-code279026_ - (let ((__tmp284153 - (let ((__tmp284155 - (let ((__tmp284156 - (let ((__tmp284159 + (cons 'begin __tmp284079)))) + (_runtime-code278956_ + (let ((__tmp284083 + (let ((__tmp284085 + (let ((__tmp284086 + (let ((__tmp284089 (let () (declare (not safe)) - (_context-timestamp278996_ - _ctx279016_))) - (__tmp284157 - (let ((__tmp284158 + (_context-timestamp278926_ + _ctx278946_))) + (__tmp284087 + (let ((__tmp284088 (gxc#current-compile-timestamp))) (declare (not safe)) - (cons __tmp284158 + (cons __tmp284088 '())))) (declare (not safe)) - (cons __tmp284159 - __tmp284157)))) + (cons __tmp284089 + __tmp284087)))) (declare (not safe)) - (cons 'define __tmp284156))) - (__tmp284154 + (cons 'define __tmp284086))) + (__tmp284084 (let () (declare (not safe)) - (cons _runtime-code279024_ '())))) + (cons _runtime-code278954_ '())))) (declare (not safe)) - (cons __tmp284155 __tmp284154)))) + (cons __tmp284085 __tmp284084)))) (declare (not safe)) - (cons 'begin __tmp284153))) - (_scm0279028_ + (cons 'begin __tmp284083))) + (_scm0278958_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx279016_ + _ctx278946_ '0 '".scm")))) - (let ((_scms279031_ + (let ((_scms278961_ (let () (declare (not safe)) - (gxc#compile-static-output-file _ctx279016_)))) - (let ((__tmp284160 + (gxc#compile-static-output-file _ctx278946_)))) + (let ((__tmp284090 (lambda () (let () (declare (not safe)) (gxc#compile-scm-file__0 - _scm0279028_ - _runtime-code279026_))))) + _scm0278958_ + _runtime-code278956_))))) (declare (not safe)) (call-with-parameters - __tmp284160 + __tmp284090 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _scms279031_) - (delete-file _scms279031_) + (if (file-exists? _scms278961_) + (delete-file _scms278961_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _scm0279028_ + _scm0278958_ '" => " - _scms279031_)) - (copy-file _scm0279028_ _scms279031_) + _scms278961_)) + (copy-file _scm0278958_ _scms278961_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm0279028_)))))) - (_generate-loader-code278998_ - (lambda (_ctx279005_ _code279006_ _rt279007_) - (let* ((_loader-code279010_ - (let ((__tmp284161 + (delete-file _scm0278958_)))))) + (_generate-loader-code278928_ + (lambda (_ctx278935_ _code278936_ _rt278937_) + (let* ((_loader-code278940_ + (let ((__tmp284091 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _code279006_))))) + _code278936_))))) (declare (not safe)) (call-with-parameters - __tmp284161 + __tmp284091 gx#current-expander-context - _ctx279005_))) - (_loader-code279012_ - (if _rt279007_ - (let ((__tmp284162 - (let ((__tmp284163 - (let ((__tmp284164 - (let ((__tmp284165 + _ctx278935_))) + (_loader-code278942_ + (if _rt278937_ + (let ((__tmp284092 + (let ((__tmp284093 + (let ((__tmp284094 + (let ((__tmp284095 (let () (declare (not safe)) - (cons _rt279007_ + (cons _rt278937_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons 'load-module __tmp284165)))) + (cons 'load-module __tmp284095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284164 '())))) + (cons __tmp284094 '())))) (declare (not safe)) - (cons _loader-code279010_ - __tmp284163)))) + (cons _loader-code278940_ + __tmp284093)))) (declare (not safe)) - (cons 'begin __tmp284162)) - _loader-code279010_))) - (let ((__tmp284166 + (cons 'begin __tmp284092)) + _loader-code278940_))) + (let ((__tmp284096 (lambda () - (let ((__tmp284167 + (let ((__tmp284097 (let () (declare (not safe)) (gxc#compile-output-file - _ctx279005_ + _ctx278935_ 'rt '".scm")))) (declare (not safe)) (gxc#compile-scm-file__0 - __tmp284167 - _loader-code279012_))))) + __tmp284097 + _loader-code278942_))))) (declare (not safe)) (call-with-parameters - __tmp284166 + __tmp284096 gxc#current-compile-gsc-options '#f)))))) - (let ((_all-modules279000_ - (let ((__tmp284168 + (let ((_all-modules278930_ + (let ((__tmp284098 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx278993_)))) + (gxc#lift-nested-modules _ctx278923_)))) (declare (not safe)) - (cons _ctx278993_ __tmp284168)))) + (cons _ctx278923_ __tmp284098)))) (for-each - (lambda (_ctx279002_) - (let ((__tmp284169 + (lambda (_ctx278932_) + (let ((__tmp284099 (lambda () (let () (declare (not safe)) - (_compile1278995_ _ctx279002_))))) + (_compile1278925_ _ctx278932_))))) (declare (not safe)) (call-with-parameters - __tmp284169 + __tmp284099 gxc#current-compile-decls '()))) - _all-modules279000_))))) + _all-modules278930_))))) (define gxc#compile-meta-code - (lambda (_ctx278890_) - (letrec ((_compile-ssi278892_ - (lambda (_code278963_) - (let* ((_path278965_ + (lambda (_ctx278820_) + (letrec ((_compile-ssi278822_ + (lambda (_code278893_) + (let* ((_path278895_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx278890_ + _ctx278820_ '#f '".ssi"))) - (_prelude278976_ - (let* ((_super278967_ + (_prelude278906_ + (let* ((_super278897_ (##structure-ref - _ctx278890_ + _ctx278820_ '3 gx#phi-context::t '#f)) - (_$e278969_ + (_$e278899_ (##structure-ref - _super278967_ + _super278897_ '1 gx#expander-context::t '#f))) - (if _$e278969_ - ((lambda (_g278971278973_) + (if _$e278899_ + ((lambda (_g278901278903_) (let () (declare (not safe)) - (make-symbol__1 '":" _g278971278973_))) - _$e278969_) + (make-symbol__1 '":" _g278901278903_))) + _$e278899_) ':))) - (_ns278978_ + (_ns278908_ (##structure-ref - _ctx278890_ + _ctx278820_ '6 gx#module-context::t '#f)) - (_idstr278980_ + (_idstr278910_ (symbol->string (##structure-ref - _ctx278890_ + _ctx278820_ '1 gx#expander-context::t '#f))) - (_pkg278987_ - (let ((_$e278982_ + (_pkg278917_ + (let ((_$e278912_ (let () (declare (not safe)) - (string-rindex _idstr278980_ '#\/)))) - (if _$e278982_ - ((lambda (_x278985_) + (string-rindex _idstr278910_ '#\/)))) + (if _$e278912_ + ((lambda (_x278915_) (string->symbol - (substring _idstr278980_ '0 _x278985_))) - _$e278982_) + (substring _idstr278910_ '0 _x278915_))) + _$e278912_) '#f))) - (_rt278989_ - (let ((__tmp284170 + (_rt278919_ + (let ((__tmp284100 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-ref __tmp284170 _ctx278890_ '#f)))) + (table-ref __tmp284100 _ctx278820_ '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _path278965_)) - (let ((__tmp284171 + (gxc#verbose '"compile " _path278895_)) + (let ((__tmp284101 (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _prelude278976_)) - (if _pkg278987_ + (displayln '"prelude:" '" " _prelude278906_)) + (if _pkg278917_ (let () (declare (not safe)) - (displayln '"package:" '" " _pkg278987_)) + (displayln '"package:" '" " _pkg278917_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _ns278978_)) + (displayln '"namespace:" '" " _ns278908_)) (newline) - (pretty-print _code278963_) - (if _rt278989_ + (pretty-print _code278893_) + (if _rt278919_ (pretty-print - (let ((__tmp284172 - (let ((__tmp284176 - (let ((__tmp284177 + (let ((__tmp284102 + (let ((__tmp284106 + (let ((__tmp284107 (let () (declare (not safe)) (cons 'load-module @@ -2469,1084 +2469,1084 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp284177))) - (__tmp284173 - (let ((__tmp284174 - (let ((__tmp284175 + (cons '%#ref __tmp284107))) + (__tmp284103 + (let ((__tmp284104 + (let ((__tmp284105 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _rt278989_ '())))) + (cons _rt278919_ '())))) (declare (not safe)) - (cons '%#quote __tmp284175)))) + (cons '%#quote __tmp284105)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284174 '())))) + (cons __tmp284104 '())))) (declare (not safe)) - (cons __tmp284176 __tmp284173)))) + (cons __tmp284106 __tmp284103)))) (declare (not safe)) - (cons '%#call __tmp284172))) + (cons '%#call __tmp284102))) '#!void)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path278965_ - __tmp284171))))) - (_compile-phi278893_ - (lambda (_part278903_) - (let* ((_part278904278917_ _part278903_) - (_E278906278921_ + _path278895_ + __tmp284101))))) + (_compile-phi278823_ + (lambda (_part278833_) + (let* ((_part278834278847_ _part278833_) + (_E278836278851_ (lambda () (error '"No clause matching" - _part278904278917_))) - (_K278907278932_ - (lambda (_code278924_ - _n278925_ - _phi278926_ - _phi-ctx278927_) - (let* ((_code278930_ - (let ((__tmp284178 + _part278834278847_))) + (_K278837278862_ + (lambda (_code278854_ + _n278855_ + _phi278856_ + _phi-ctx278857_) + (let* ((_code278860_ + (let ((__tmp284108 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-phi - _code278924_))))) + _code278854_))))) (declare (not safe)) (call-with-parameters - __tmp284178 + __tmp284108 gx#current-expander-context - _phi-ctx278927_ + _phi-ctx278857_ gx#current-expander-phi - _phi278926_))) - (__tmp284179 + _phi278856_))) + (__tmp284109 (let () (declare (not safe)) (gxc#compile-output-file - _ctx278890_ - _n278925_ + _ctx278820_ + _n278855_ '".scm")))) (declare (not safe)) (gxc#compile-scm-file__% - __tmp284179 - _code278930_ + __tmp284109 + _code278860_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part278904278917_)) - (let ((_hd278908278935_ + (##pair? _part278834278847_)) + (let ((_hd278838278865_ (let () (declare (not safe)) - (##car _part278904278917_))) - (_tl278909278937_ + (##car _part278834278847_))) + (_tl278839278867_ (let () (declare (not safe)) - (##cdr _part278904278917_)))) - (let ((_phi-ctx278940_ _hd278908278935_)) + (##cdr _part278834278847_)))) + (let ((_phi-ctx278870_ _hd278838278865_)) (if (let () (declare (not safe)) - (##pair? _tl278909278937_)) - (let ((_hd278910278942_ + (##pair? _tl278839278867_)) + (let ((_hd278840278872_ (let () (declare (not safe)) - (##car _tl278909278937_))) - (_tl278911278944_ + (##car _tl278839278867_))) + (_tl278841278874_ (let () (declare (not safe)) - (##cdr _tl278909278937_)))) - (let ((_phi278947_ _hd278910278942_)) + (##cdr _tl278839278867_)))) + (let ((_phi278877_ _hd278840278872_)) (if (let () (declare (not safe)) - (##pair? _tl278911278944_)) - (let ((_hd278912278949_ + (##pair? _tl278841278874_)) + (let ((_hd278842278879_ (let () (declare (not safe)) - (##car _tl278911278944_))) - (_tl278913278951_ + (##car _tl278841278874_))) + (_tl278843278881_ (let () (declare (not safe)) - (##cdr _tl278911278944_)))) - (let ((_n278954_ _hd278912278949_)) + (##cdr _tl278841278874_)))) + (let ((_n278884_ _hd278842278879_)) (if (let () (declare (not safe)) - (##pair? _tl278913278951_)) - (let ((_hd278914278956_ + (##pair? _tl278843278881_)) + (let ((_hd278844278886_ (let () (declare (not safe)) - (##car _tl278913278951_))) - (_tl278915278958_ + (##car _tl278843278881_))) + (_tl278845278888_ (let () (declare (not safe)) - (##cdr _tl278913278951_)))) - (let ((_code278961_ - _hd278914278956_)) + (##cdr _tl278843278881_)))) + (let ((_code278891_ + _hd278844278886_)) (if (let () (declare (not safe)) - (##null? _tl278915278958_)) + (##null? _tl278845278888_)) (let () (declare (not safe)) - (_K278907278932_ - _code278961_ - _n278954_ - _phi278947_ - _phi-ctx278940_)) + (_K278837278862_ + _code278891_ + _n278884_ + _phi278877_ + _phi-ctx278870_)) (let () (declare (not safe)) - (_E278906278921_))))) + (_E278836278851_))))) (let () (declare (not safe)) - (_E278906278921_))))) + (_E278836278851_))))) (let () (declare (not safe)) - (_E278906278921_))))) + (_E278836278851_))))) (let () (declare (not safe)) - (_E278906278921_))))) - (let () (declare (not safe)) (_E278906278921_))))))) - (let ((_g284180_ + (_E278836278851_))))) + (let () (declare (not safe)) (_E278836278851_))))))) + (let ((_g284110_ (let () (declare (not safe)) - (gxc#generate-meta-code _ctx278890_)))) + (gxc#generate-meta-code _ctx278820_)))) (begin - (let ((_g284181_ + (let ((_g284111_ (let () (declare (not safe)) - (if (##values? _g284180_) - (##vector-length _g284180_) + (if (##values? _g284110_) + (##vector-length _g284110_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g284181_ 2))) - (error "Context expects 2 values" _g284181_))) - (let ((_ssi-code278895_ - (let () (declare (not safe)) (##vector-ref _g284180_ 0))) - (_phi-code278896_ - (let () (declare (not safe)) (##vector-ref _g284180_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g284111_ 2))) + (error "Context expects 2 values" _g284111_))) + (let ((_ssi-code278825_ + (let () (declare (not safe)) (##vector-ref _g284110_ 0))) + (_phi-code278826_ + (let () (declare (not safe)) (##vector-ref _g284110_ 1)))) (begin (let () (declare (not safe)) - (_compile-ssi278892_ _ssi-code278895_)) - (let ((_threads278901_ - (map (lambda (_code278898_) - (let ((__tmp284182 + (_compile-ssi278822_ _ssi-code278825_)) + (let ((_threads278831_ + (map (lambda (_code278828_) + (let ((__tmp284112 (lambda () (let () (declare (not safe)) - (_compile-phi278893_ - _code278898_))))) + (_compile-phi278823_ + _code278828_))))) (declare (not safe)) - (spawn __tmp284182))) - _phi-code278896_))) - (for-each gxc#join! _threads278901_))))))))) + (spawn __tmp284112))) + _phi-code278826_))) + (for-each gxc#join! _threads278831_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx278873_) - (let* ((_path278875_ + (lambda (_ctx278803_) + (let* ((_path278805_ (let () (declare (not safe)) - (gxc#compile-output-file _ctx278873_ '#f '".ssxi.ss"))) - (_code278877_ - (let ((__tmp284183 + (gxc#compile-output-file _ctx278803_ '#f '".ssxi.ss"))) + (_code278807_ + (let ((__tmp284113 (##structure-ref - _ctx278873_ + _ctx278803_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp284183))) - (_idstr278879_ + (gxc#apply-generate-ssxi __tmp284113))) + (_idstr278809_ (symbol->string - (##structure-ref _ctx278873_ '1 gx#expander-context::t '#f))) - (_pkg278886_ - (let ((_$e278881_ + (##structure-ref _ctx278803_ '1 gx#expander-context::t '#f))) + (_pkg278816_ + (let ((_$e278811_ (let () (declare (not safe)) - (string-rindex _idstr278879_ '#\/)))) - (if _$e278881_ - ((lambda (_x278884_) + (string-rindex _idstr278809_ '#\/)))) + (if _$e278811_ + ((lambda (_x278814_) (string->symbol - (substring _idstr278879_ '0 _x278884_))) - _$e278881_) + (substring _idstr278809_ '0 _x278814_))) + _$e278811_) '#f)))) - (let () (declare (not safe)) (gxc#verbose '"compile " _path278875_)) - (let ((__tmp284184 + (let () (declare (not safe)) (gxc#verbose '"compile " _path278805_)) + (let ((__tmp284114 (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _pkg278886_ + (if _pkg278816_ (let () (declare (not safe)) - (displayln '"package: " _pkg278886_)) + (displayln '"package: " _pkg278816_)) '#!void) (newline) - (pretty-print _code278877_)))) + (pretty-print _code278807_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path278875_ __tmp284184))))) + (gxc#with-output-to-scheme-file _path278805_ __tmp284114))))) (define gxc#generate-meta-code - (lambda (_ctx278866_) - (let* ((_state278868_ - (let ((__obj283942 (make-object* gxc#meta-state::t '5))) - (gxc#meta-state:::init! __obj283942 _ctx278866_) - __obj283942)) - (_ssi-code278870_ - (let ((__tmp284185 + (lambda (_ctx278796_) + (let* ((_state278798_ + (let ((__obj283872 (make-object gxc#meta-state::t '5))) + (gxc#meta-state:::init! __obj283872 _ctx278796_) + __obj283872)) + (_ssi-code278800_ + (let ((__tmp284115 (##structure-ref - _ctx278866_ + _ctx278796_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-meta __tmp284185 _state278868_)))) - (values _ssi-code278870_ + (gxc#apply-generate-meta __tmp284115 _state278798_)))) + (values _ssi-code278800_ (let () (declare (not safe)) - (gxc#meta-state-end! _state278868_)))))) + (gxc#meta-state-end! _state278798_)))))) (define gxc#generate-runtime-phi - (lambda (_stx278859_) - (let ((_lifts278861_ (let () (declare (not safe)) (box '())))) - (let ((__tmp284188 + (lambda (_stx278789_) + (let ((_lifts278791_ (let () (declare (not safe)) (box '())))) + (let ((__tmp284118 (lambda () - (let ((_code278864_ + (let ((_code278794_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _stx278859_)))) - (if (let ((__tmp284192 (unbox _lifts278861_))) + (gxc#apply-generate-runtime-phi _stx278789_)))) + (if (let ((__tmp284122 (unbox _lifts278791_))) (declare (not safe)) - (null? __tmp284192)) - _code278864_ - (let ((__tmp284189 - (let ((__tmp284191 + (null? __tmp284122)) + _code278794_ + (let ((__tmp284119 + (let ((__tmp284121 (let () (declare (not safe)) - (cons _code278864_ '()))) - (__tmp284190 - (reverse (unbox _lifts278861_)))) + (cons _code278794_ '()))) + (__tmp284120 + (reverse (unbox _lifts278791_)))) (declare (not safe)) - (foldr1 cons __tmp284191 __tmp284190)))) + (foldr1 cons __tmp284121 __tmp284120)))) (declare (not safe)) - (cons 'begin __tmp284189)))))) - (__tmp284187 + (cons 'begin __tmp284119)))))) + (__tmp284117 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp284186 + (__tmp284116 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp284188 + __tmp284118 gxc#current-compile-lift - _lifts278861_ + _lifts278791_ gxc#current-compile-marks - __tmp284187 + __tmp284117 gxc#current-compile-identifiers - __tmp284186))))) + __tmp284116))))) (define gxc#lift-nested-modules - (lambda (_ctx278855_) - (let ((_modules278857_ (let () (declare (not safe)) (box '())))) - (let ((__tmp284193 - (##structure-ref _ctx278855_ '11 gx#module-context::t '#f))) + (lambda (_ctx278785_) + (let ((_modules278787_ (let () (declare (not safe)) (box '())))) + (let ((__tmp284123 + (##structure-ref _ctx278785_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules __tmp284193 _modules278857_)) - (reverse (unbox _modules278857_))))) + (gxc#apply-lift-modules __tmp284123 _modules278787_)) + (reverse (unbox _modules278787_))))) (define gxc#compile-scm-file__% - (lambda (_path278838_ _code278839_ _phi?278840_) - (let () (declare (not safe)) (gxc#verbose '"compile " _path278838_)) - (let ((__tmp284194 + (lambda (_path278768_ _code278769_ _phi?278770_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path278768_)) + (let ((__tmp284124 (lambda () (pretty-print - (let ((__tmp284195 - (let ((__tmp284202 + (let ((__tmp284125 + (let ((__tmp284132 (let () (declare (not safe)) (cons 'block '()))) - (__tmp284196 - (let ((__tmp284201 + (__tmp284126 + (let ((__tmp284131 (let () (declare (not safe)) (cons 'standard-bindings '()))) - (__tmp284197 - (let ((__tmp284200 + (__tmp284127 + (let ((__tmp284130 (let () (declare (not safe)) (cons 'extended-bindings '()))) - (__tmp284198 - (let ((__tmp284199 - (if _phi?278840_ + (__tmp284128 + (let ((__tmp284129 + (if _phi?278770_ '((inlining-limit 200)) '()))) (declare (not safe)) (foldr1 cons '() - __tmp284199)))) + __tmp284129)))) (declare (not safe)) - (cons __tmp284200 __tmp284198)))) + (cons __tmp284130 __tmp284128)))) (declare (not safe)) - (cons __tmp284201 __tmp284197)))) + (cons __tmp284131 __tmp284127)))) (declare (not safe)) - (cons __tmp284202 __tmp284196)))) + (cons __tmp284132 __tmp284126)))) (declare (not safe)) - (cons 'declare __tmp284195))) - (pretty-print _code278839_)))) + (cons 'declare __tmp284125))) + (pretty-print _code278769_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path278838_ __tmp284194)) + (gxc#with-output-to-scheme-file _path278768_ __tmp284124)) (if (gxc#current-compile-invoke-gsc) (let () (declare (not safe)) - (gxc#gsc-compile-file _path278838_ _phi?278840_)) + (gxc#gsc-compile-file _path278768_ _phi?278770_)) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _path278838_)))) + (delete-file _path278768_)))) (define gxc#compile-scm-file__0 - (lambda (_path278846_ _code278847_) - (let ((_phi?278849_ '#f)) + (lambda (_path278776_ _code278777_) + (let ((_phi?278779_ '#f)) (declare (not safe)) - (gxc#compile-scm-file__% _path278846_ _code278847_ _phi?278849_)))) + (gxc#compile-scm-file__% _path278776_ _code278777_ _phi?278779_)))) (define gxc#compile-scm-file - (lambda _g284204_ - (let ((_g284203_ (let () (declare (not safe)) (##length _g284204_)))) - (cond ((let () (declare (not safe)) (##fx= _g284203_ 2)) - (apply (lambda (_path278846_ _code278847_) + (lambda _g284134_ + (let ((_g284133_ (let () (declare (not safe)) (##length _g284134_)))) + (cond ((let () (declare (not safe)) (##fx= _g284133_ 2)) + (apply (lambda (_path278776_ _code278777_) (let () (declare (not safe)) (gxc#compile-scm-file__0 - _path278846_ - _code278847_))) - _g284204_)) - ((let () (declare (not safe)) (##fx= _g284203_ 3)) - (apply (lambda (_path278851_ _code278852_ _phi?278853_) + _path278776_ + _code278777_))) + _g284134_)) + ((let () (declare (not safe)) (##fx= _g284133_ 3)) + (apply (lambda (_path278781_ _code278782_ _phi?278783_) (let () (declare (not safe)) (gxc#compile-scm-file__% - _path278851_ - _code278852_ - _phi?278853_))) - _g284204_)) + _path278781_ + _code278782_ + _phi?278783_))) + _g284134_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g284204_)))))) + _g284134_)))))) (define gxc#gsc-link-options__% - (lambda (_phi?278739_) - (let _lp278741_ ((_rest278743_ (gxc#current-compile-gsc-options)) - (_opts278744_ '())) - (let* ((_rest278745278765_ _rest278743_) - (_else278749278773_ + (lambda (_phi?278669_) + (let _lp278671_ ((_rest278673_ (gxc#current-compile-gsc-options)) + (_opts278674_ '())) + (let* ((_rest278675278695_ _rest278673_) + (_else278679278703_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?278739_)) + (if (and (let () (declare (not safe)) (not _phi?278669_)) (gxc#current-compile-debug)) - (let ((__tmp284205 - (let ((__tmp284206 (reverse _opts278744_))) + (let ((__tmp284135 + (let ((__tmp284136 (reverse _opts278674_))) (declare (not safe)) - (cons '"-track-scheme" __tmp284206)))) + (cons '"-track-scheme" __tmp284136)))) (declare (not safe)) - (cons '"-debug-source" __tmp284205)) - (reverse _opts278744_))))) - (let ((_K278759278816_ - (lambda (_rest278814_) + (cons '"-debug-source" __tmp284135)) + (reverse _opts278674_))))) + (let ((_K278689278746_ + (lambda (_rest278744_) (let () (declare (not safe)) - (_lp278741_ _rest278814_ _opts278744_)))) - (_K278754278798_ - (lambda (_rest278796_) + (_lp278671_ _rest278744_ _opts278674_)))) + (_K278684278728_ + (lambda (_rest278726_) (let () (declare (not safe)) - (_lp278741_ _rest278796_ _opts278744_)))) - (_K278751278780_ - (lambda (_rest278777_ _opt278778_) - (let ((__tmp284207 + (_lp278671_ _rest278726_ _opts278674_)))) + (_K278681278710_ + (lambda (_rest278707_ _opt278708_) + (let ((__tmp284137 (let () (declare (not safe)) - (cons _opt278778_ _opts278744_)))) + (cons _opt278708_ _opts278674_)))) (declare (not safe)) - (_lp278741_ _rest278777_ __tmp284207))))) - (if (let () (declare (not safe)) (##pair? _rest278745278765_)) - (let ((_tl278761278821_ + (_lp278671_ _rest278707_ __tmp284137))))) + (if (let () (declare (not safe)) (##pair? _rest278675278695_)) + (let ((_tl278691278751_ (let () (declare (not safe)) - (##cdr _rest278745278765_))) - (_hd278760278819_ + (##cdr _rest278675278695_))) + (_hd278690278749_ (let () (declare (not safe)) - (##car _rest278745278765_)))) + (##car _rest278675278695_)))) (if (let () (declare (not safe)) - (equal? _hd278760278819_ '"-cc-options")) + (equal? _hd278690278749_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl278761278821_)) - (let* ((_tl278763278824_ + (##pair? _tl278691278751_)) + (let* ((_tl278693278754_ (let () (declare (not safe)) - (##cdr _tl278761278821_))) - (_rest278827_ _tl278763278824_)) + (##cdr _tl278691278751_))) + (_rest278757_ _tl278693278754_)) (declare (not safe)) - (_K278759278816_ _rest278827_)) - (let ((_opt278788_ _hd278760278819_) - (_rest278790_ _tl278761278821_)) + (_K278689278746_ _rest278757_)) + (let ((_opt278718_ _hd278690278749_) + (_rest278720_ _tl278691278751_)) (let () (declare (not safe)) - (_K278751278780_ _rest278790_ _opt278788_)))) + (_K278681278710_ _rest278720_ _opt278718_)))) (if (let () (declare (not safe)) - (equal? _hd278760278819_ '"-ld-options")) + (equal? _hd278690278749_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl278761278821_)) - (let* ((_tl278758278806_ + (##pair? _tl278691278751_)) + (let* ((_tl278688278736_ (let () (declare (not safe)) - (##cdr _tl278761278821_))) - (_rest278809_ _tl278758278806_)) + (##cdr _tl278691278751_))) + (_rest278739_ _tl278688278736_)) (declare (not safe)) - (_K278754278798_ _rest278809_)) - (let ((_opt278788_ _hd278760278819_) - (_rest278790_ _tl278761278821_)) + (_K278684278728_ _rest278739_)) + (let ((_opt278718_ _hd278690278749_) + (_rest278720_ _tl278691278751_)) (let () (declare (not safe)) - (_K278751278780_ - _rest278790_ - _opt278788_)))) - (let ((_opt278788_ _hd278760278819_) - (_rest278790_ _tl278761278821_)) + (_K278681278710_ + _rest278720_ + _opt278718_)))) + (let ((_opt278718_ _hd278690278749_) + (_rest278720_ _tl278691278751_)) (let () (declare (not safe)) - (_K278751278780_ _rest278790_ _opt278788_)))))) - (let () (declare (not safe)) (_else278749278773_)))))))) + (_K278681278710_ _rest278720_ _opt278718_)))))) + (let () (declare (not safe)) (_else278679278703_)))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_phi?278833_ '#f)) + (let ((_phi?278763_ '#f)) (declare (not safe)) - (gxc#gsc-link-options__% _phi?278833_)))) + (gxc#gsc-link-options__% _phi?278763_)))) (define gxc#gsc-link-options - (lambda _g284209_ - (let ((_g284208_ (let () (declare (not safe)) (##length _g284209_)))) - (cond ((let () (declare (not safe)) (##fx= _g284208_ 0)) + (lambda _g284139_ + (let ((_g284138_ (let () (declare (not safe)) (##length _g284139_)))) + (cond ((let () (declare (not safe)) (##fx= _g284138_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-link-options__0))) - _g284209_)) - ((let () (declare (not safe)) (##fx= _g284208_ 1)) - (apply (lambda (_phi?278835_) + _g284139_)) + ((let () (declare (not safe)) (##fx= _g284138_ 1)) + (apply (lambda (_phi?278765_) (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?278835_))) - _g284209_)) + (gxc#gsc-link-options__% _phi?278765_))) + _g284139_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g284209_)))))) + _g284139_)))))) (define gxc#gsc-cc-options__% - (lambda (_phi?278640_) - (let _lp278642_ ((_rest278644_ (gxc#current-compile-gsc-options)) - (_opts278645_ '())) - (let* ((_rest278646278666_ _rest278644_) - (_else278650278674_ + (lambda (_phi?278570_) + (let _lp278572_ ((_rest278574_ (gxc#current-compile-gsc-options)) + (_opts278575_ '())) + (let* ((_rest278576278596_ _rest278574_) + (_else278580278604_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?278640_)) + (if (and (let () (declare (not safe)) (not _phi?278570_)) (gxc#current-compile-debug)) - (let ((__tmp284210 - (let ((__tmp284211 (reverse _opts278645_))) + (let ((__tmp284140 + (let ((__tmp284141 (reverse _opts278575_))) (declare (not safe)) - (cons '"-g" __tmp284211)))) + (cons '"-g" __tmp284141)))) (declare (not safe)) - (cons '"-cc-options" __tmp284210)) - (reverse _opts278645_))))) - (let ((_K278660278713_ - (lambda (_rest278710_ _opt278711_) - (let ((__tmp284212 - (let ((__tmp284213 + (cons '"-cc-options" __tmp284140)) + (reverse _opts278575_))))) + (let ((_K278590278643_ + (lambda (_rest278640_ _opt278641_) + (let ((__tmp284142 + (let ((__tmp284143 (let () (declare (not safe)) - (cons '"-cc-options" _opts278645_)))) + (cons '"-cc-options" _opts278575_)))) (declare (not safe)) - (cons _opt278711_ __tmp284213)))) + (cons _opt278641_ __tmp284143)))) (declare (not safe)) - (_lp278642_ _rest278710_ __tmp284212)))) - (_K278655278694_ - (lambda (_rest278692_) + (_lp278572_ _rest278640_ __tmp284142)))) + (_K278585278624_ + (lambda (_rest278622_) (let () (declare (not safe)) - (_lp278642_ _rest278692_ _opts278645_)))) - (_K278652278680_ - (lambda (_rest278678_) + (_lp278572_ _rest278622_ _opts278575_)))) + (_K278582278610_ + (lambda (_rest278608_) (let () (declare (not safe)) - (_lp278642_ _rest278678_ _opts278645_))))) - (if (let () (declare (not safe)) (##pair? _rest278646278666_)) - (let ((_tl278662278718_ + (_lp278572_ _rest278608_ _opts278575_))))) + (if (let () (declare (not safe)) (##pair? _rest278576278596_)) + (let ((_tl278592278648_ (let () (declare (not safe)) - (##cdr _rest278646278666_))) - (_hd278661278716_ + (##cdr _rest278576278596_))) + (_hd278591278646_ (let () (declare (not safe)) - (##car _rest278646278666_)))) + (##car _rest278576278596_)))) (if (let () (declare (not safe)) - (equal? _hd278661278716_ '"-cc-options")) + (equal? _hd278591278646_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl278662278718_)) - (let ((_tl278664278723_ + (##pair? _tl278592278648_)) + (let ((_tl278594278653_ (let () (declare (not safe)) - (##cdr _tl278662278718_))) - (_hd278663278721_ + (##cdr _tl278592278648_))) + (_hd278593278651_ (let () (declare (not safe)) - (##car _tl278662278718_)))) - (let ((_opt278726_ _hd278663278721_) - (_rest278728_ _tl278664278723_)) + (##car _tl278592278648_)))) + (let ((_opt278656_ _hd278593278651_) + (_rest278658_ _tl278594278653_)) (let () (declare (not safe)) - (_K278660278713_ _rest278728_ _opt278726_)))) - (let ((_rest278686_ _tl278662278718_)) + (_K278590278643_ _rest278658_ _opt278656_)))) + (let ((_rest278616_ _tl278592278648_)) (declare (not safe)) - (_K278652278680_ _rest278686_))) + (_K278582278610_ _rest278616_))) (if (let () (declare (not safe)) - (equal? _hd278661278716_ '"-ld-options")) + (equal? _hd278591278646_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl278662278718_)) - (let* ((_tl278659278702_ + (##pair? _tl278592278648_)) + (let* ((_tl278589278632_ (let () (declare (not safe)) - (##cdr _tl278662278718_))) - (_rest278705_ _tl278659278702_)) + (##cdr _tl278592278648_))) + (_rest278635_ _tl278589278632_)) (declare (not safe)) - (_K278655278694_ _rest278705_)) - (let ((_rest278686_ _tl278662278718_)) + (_K278585278624_ _rest278635_)) + (let ((_rest278616_ _tl278592278648_)) (declare (not safe)) - (_K278652278680_ _rest278686_))) - (let ((_rest278686_ _tl278662278718_)) + (_K278582278610_ _rest278616_))) + (let ((_rest278616_ _tl278592278648_)) (declare (not safe)) - (_K278652278680_ _rest278686_))))) - (let () (declare (not safe)) (_else278650278674_)))))))) + (_K278582278610_ _rest278616_))))) + (let () (declare (not safe)) (_else278580278604_)))))))) (define gxc#gsc-cc-options__0 (lambda () - (let ((_phi?278734_ '#f)) + (let ((_phi?278664_ '#f)) (declare (not safe)) - (gxc#gsc-cc-options__% _phi?278734_)))) + (gxc#gsc-cc-options__% _phi?278664_)))) (define gxc#gsc-cc-options - (lambda _g284215_ - (let ((_g284214_ (let () (declare (not safe)) (##length _g284215_)))) - (cond ((let () (declare (not safe)) (##fx= _g284214_ 0)) + (lambda _g284145_ + (let ((_g284144_ (let () (declare (not safe)) (##length _g284145_)))) + (cond ((let () (declare (not safe)) (##fx= _g284144_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - _g284215_)) - ((let () (declare (not safe)) (##fx= _g284214_ 1)) - (apply (lambda (_phi?278736_) + _g284145_)) + ((let () (declare (not safe)) (##fx= _g284144_ 1)) + (apply (lambda (_phi?278666_) (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?278736_))) - _g284215_)) + (gxc#gsc-cc-options__% _phi?278666_))) + _g284145_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options - _g284215_)))))) + _g284145_)))))) (define gxc#gsc-static-include-options - (lambda (_staticdir278635_) - (let* ((_user-staticdir278637_ + (lambda (_staticdir278565_) + (let* ((_user-staticdir278567_ (path-expand (path-expand '"lib/static" (let () (declare (not safe)) (gerbil-path))))) - (__tmp284216 - (let ((__tmp284217 + (__tmp284146 + (let ((__tmp284147 (string-append '"-I " - _staticdir278635_ + _staticdir278565_ '" -I " - _user-staticdir278637_))) + _user-staticdir278567_))) (declare (not safe)) - (cons __tmp284217 '())))) + (cons __tmp284147 '())))) (declare (not safe)) - (cons '"-cc-options" __tmp284216)))) + (cons '"-cc-options" __tmp284146)))) (define gxc#gcc-ld-options (lambda () - (let _lp278547_ ((_rest278549_ (gxc#current-compile-gsc-options)) - (_opts278550_ '())) - (let* ((_rest278551278571_ _rest278549_) - (_else278555278579_ (lambda () _opts278550_))) - (let ((_K278565278622_ - (lambda (_rest278620_) + (let _lp278477_ ((_rest278479_ (gxc#current-compile-gsc-options)) + (_opts278480_ '())) + (let* ((_rest278481278501_ _rest278479_) + (_else278485278509_ (lambda () _opts278480_))) + (let ((_K278495278552_ + (lambda (_rest278550_) (let () (declare (not safe)) - (_lp278547_ _rest278620_ _opts278550_)))) - (_K278560278600_ - (lambda (_rest278597_ _opt278598_) - (let ((__tmp284218 - (append _opts278550_ - (let ((__tmp284219 + (_lp278477_ _rest278550_ _opts278480_)))) + (_K278490278530_ + (lambda (_rest278527_ _opt278528_) + (let ((__tmp284148 + (append _opts278480_ + (let ((__tmp284149 (let () (declare (not safe)) (string-split - _opt278598_ + _opt278528_ '#\space)))) (declare (not safe)) (filter gxc#not-string-empty? - __tmp284219))))) + __tmp284149))))) (declare (not safe)) - (_lp278547_ _rest278597_ __tmp284218)))) - (_K278557278585_ - (lambda (_rest278583_) + (_lp278477_ _rest278527_ __tmp284148)))) + (_K278487278515_ + (lambda (_rest278513_) (let () (declare (not safe)) - (_lp278547_ _rest278583_ _opts278550_))))) - (if (let () (declare (not safe)) (##pair? _rest278551278571_)) - (let ((_tl278567278627_ + (_lp278477_ _rest278513_ _opts278480_))))) + (if (let () (declare (not safe)) (##pair? _rest278481278501_)) + (let ((_tl278497278557_ (let () (declare (not safe)) - (##cdr _rest278551278571_))) - (_hd278566278625_ + (##cdr _rest278481278501_))) + (_hd278496278555_ (let () (declare (not safe)) - (##car _rest278551278571_)))) + (##car _rest278481278501_)))) (if (let () (declare (not safe)) - (equal? _hd278566278625_ '"-cc-options")) + (equal? _hd278496278555_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl278567278627_)) - (let* ((_tl278569278630_ + (##pair? _tl278497278557_)) + (let* ((_tl278499278560_ (let () (declare (not safe)) - (##cdr _tl278567278627_))) - (_rest278633_ _tl278569278630_)) + (##cdr _tl278497278557_))) + (_rest278563_ _tl278499278560_)) (declare (not safe)) - (_K278565278622_ _rest278633_)) - (let ((_rest278591_ _tl278567278627_)) + (_K278495278552_ _rest278563_)) + (let ((_rest278521_ _tl278497278557_)) (declare (not safe)) - (_K278557278585_ _rest278591_))) + (_K278487278515_ _rest278521_))) (if (let () (declare (not safe)) - (equal? _hd278566278625_ '"-ld-options")) + (equal? _hd278496278555_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl278567278627_)) - (let ((_tl278564278610_ + (##pair? _tl278497278557_)) + (let ((_tl278494278540_ (let () (declare (not safe)) - (##cdr _tl278567278627_))) - (_hd278563278608_ + (##cdr _tl278497278557_))) + (_hd278493278538_ (let () (declare (not safe)) - (##car _tl278567278627_)))) - (let ((_opt278613_ _hd278563278608_) - (_rest278615_ _tl278564278610_)) + (##car _tl278497278557_)))) + (let ((_opt278543_ _hd278493278538_) + (_rest278545_ _tl278494278540_)) (let () (declare (not safe)) - (_K278560278600_ - _rest278615_ - _opt278613_)))) - (let ((_rest278591_ _tl278567278627_)) + (_K278490278530_ + _rest278545_ + _opt278543_)))) + (let ((_rest278521_ _tl278497278557_)) (declare (not safe)) - (_K278557278585_ _rest278591_))) - (let ((_rest278591_ _tl278567278627_)) + (_K278487278515_ _rest278521_))) + (let ((_rest278521_ _tl278497278557_)) (declare (not safe)) - (_K278557278585_ _rest278591_))))) - (let () (declare (not safe)) (_else278555278579_)))))))) + (_K278487278515_ _rest278521_))))) + (let () (declare (not safe)) (_else278485278509_)))))))) (define gxc#not-string-empty? - (lambda (_str278544_) - (let ((__tmp284220 - (let () (declare (not safe)) (string-empty? _str278544_)))) + (lambda (_str278474_) + (let ((__tmp284150 + (let () (declare (not safe)) (string-empty? _str278474_)))) (declare (not safe)) - (not __tmp284220)))) + (not __tmp284150)))) (define gxc#gsc-compile-file - (lambda (_path278512_ _phi?278513_) - (letrec ((_gsc-link-path278515_ - (lambda (_base-path278536_) - (let _lp278538_ ((_n278540_ '1)) - (let ((_path278542_ + (lambda (_path278442_ _phi?278443_) + (letrec ((_gsc-link-path278445_ + (lambda (_base-path278466_) + (let _lp278468_ ((_n278470_ '1)) + (let ((_path278472_ (string-append - _base-path278536_ + _base-path278466_ '".o" - (number->string _n278540_)))) - (if (file-exists? _path278542_) - (let ((__tmp284221 + (number->string _n278470_)))) + (if (file-exists? _path278472_) + (let ((__tmp284151 (let () (declare (not safe)) - (+ _n278540_ '1)))) + (+ _n278470_ '1)))) (declare (not safe)) - (_lp278538_ __tmp284221)) - _path278542_)))))) - (let* ((_base-path278517_ (path-strip-extension _path278512_)) - (_path-c278519_ (string-append _base-path278517_ '".c")) - (_path-o278521_ (string-append _base-path278517_ '".o")) - (_link-path278523_ + (_lp278468_ __tmp284151)) + _path278472_)))))) + (let* ((_base-path278447_ (path-strip-extension _path278442_)) + (_path-c278449_ (string-append _base-path278447_ '".c")) + (_path-o278451_ (string-append _base-path278447_ '".o")) + (_link-path278453_ (let () (declare (not safe)) - (_gsc-link-path278515_ _base-path278517_))) - (_link-path-c278525_ (string-append _link-path278523_ '".c")) - (_link-path-o278527_ (string-append _link-path278523_ '".o")) - (_gsc-link-opts278529_ + (_gsc-link-path278445_ _base-path278447_))) + (_link-path-c278455_ (string-append _link-path278453_ '".c")) + (_link-path-o278457_ (string-append _link-path278453_ '".o")) + (_gsc-link-opts278459_ (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?278513_))) - (_gsc-cc-opts278531_ + (gxc#gsc-link-options__% _phi?278443_))) + (_gsc-cc-opts278461_ (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?278513_))) - (_gcc-ld-opts278533_ + (gxc#gsc-cc-options__% _phi?278443_))) + (_gcc-ld-opts278463_ (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp284228 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp284222 - (let ((__tmp284223 - (let ((__tmp284224 - (let ((__tmp284225 - (let ((__tmp284226 - (let ((__tmp284227 + (let ((__tmp284158 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp284152 + (let ((__tmp284153 + (let ((__tmp284154 + (let ((__tmp284155 + (let ((__tmp284156 + (let ((__tmp284157 (let () (declare (not safe)) - (cons _path278512_ + (cons _path278442_ '())))) (declare (not safe)) (foldr1 cons - __tmp284227 - _gsc-link-opts278529_)))) + __tmp284157 + _gsc-link-opts278459_)))) (declare (not safe)) - (cons _link-path-c278525_ - __tmp284226)))) + (cons _link-path-c278455_ + __tmp284156)))) (declare (not safe)) - (cons '"-o" __tmp284225)))) + (cons '"-o" __tmp284155)))) (declare (not safe)) - (cons '"-flat" __tmp284224)))) + (cons '"-flat" __tmp284154)))) (declare (not safe)) - (cons '"-link" __tmp284223)))) + (cons '"-link" __tmp284153)))) (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp284228 __tmp284222)) - (let ((__tmp284235 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp284229 - (let ((__tmp284230 - (let ((__tmp284231 - (let ((__tmp284232 - (let ((__tmp284233 - (let ((__tmp284234 + (gxc#invoke__% '#f '#t absent-value __tmp284158 __tmp284152)) + (let ((__tmp284165 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp284159 + (let ((__tmp284160 + (let ((__tmp284161 + (let ((__tmp284162 + (let ((__tmp284163 + (let ((__tmp284164 (let () (declare (not safe)) - (cons _link-path-c278525_ + (cons _link-path-c278455_ '())))) (declare (not safe)) - (cons _path-c278519_ - __tmp284234)))) + (cons _path-c278449_ + __tmp284164)))) (declare (not safe)) (foldr1 cons - __tmp284233 - _gsc-cc-opts278531_)))) + __tmp284163 + _gsc-cc-opts278461_)))) (declare (not safe)) - (cons '"-D___DYNAMIC" __tmp284232)))) + (cons '"-D___DYNAMIC" __tmp284162)))) (declare (not safe)) - (cons '"-cc-options" __tmp284231)))) + (cons '"-cc-options" __tmp284161)))) (declare (not safe)) - (cons '"-obj" __tmp284230)))) + (cons '"-obj" __tmp284160)))) (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp284235 __tmp284229)) - (let ((__tmp284241 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp284236 - (let ((__tmp284237 - (let ((__tmp284238 - (let ((__tmp284239 - (let ((__tmp284240 + (gxc#invoke__% '#f '#t absent-value __tmp284165 __tmp284159)) + (let ((__tmp284171 (let () (declare (not safe)) (gxc#gerbil-gcc))) + (__tmp284166 + (let ((__tmp284167 + (let ((__tmp284168 + (let ((__tmp284169 + (let ((__tmp284170 (let () (declare (not safe)) - (cons _link-path-o278527_ - _gcc-ld-opts278533_)))) + (cons _link-path-o278457_ + _gcc-ld-opts278463_)))) (declare (not safe)) - (cons _path-o278521_ __tmp284240)))) + (cons _path-o278451_ __tmp284170)))) (declare (not safe)) - (cons _link-path278523_ __tmp284239)))) + (cons _link-path278453_ __tmp284169)))) (declare (not safe)) - (cons '"-o" __tmp284238)))) + (cons '"-o" __tmp284168)))) (declare (not safe)) - (cons '"-shared" __tmp284237)))) + (cons '"-shared" __tmp284167)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp284241 - __tmp284236)) + __tmp284171 + __tmp284166)) (for-each delete-file - (let ((__tmp284242 - (let ((__tmp284243 - (let ((__tmp284244 + (let ((__tmp284172 + (let ((__tmp284173 + (let ((__tmp284174 (let () (declare (not safe)) - (cons _link-path-o278527_ '())))) + (cons _link-path-o278457_ '())))) (declare (not safe)) - (cons _link-path-c278525_ __tmp284244)))) + (cons _link-path-c278455_ __tmp284174)))) (declare (not safe)) - (cons _path-o278521_ __tmp284243)))) + (cons _path-o278451_ __tmp284173)))) (declare (not safe)) - (cons _path-c278519_ __tmp284242))))))) + (cons _path-c278449_ __tmp284172))))))) (define gxc#compile-output-file - (lambda (_ctx278483_ _n278484_ _ext278485_) - (letrec ((_module-relative-path278487_ - (lambda (_ctx278510_) + (lambda (_ctx278413_ _n278414_ _ext278415_) + (letrec ((_module-relative-path278417_ + (lambda (_ctx278440_) (path-strip-directory - (let ((__tmp284245 + (let ((__tmp284175 (##structure-ref - _ctx278510_ + _ctx278440_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp284245))))) - (_module-source-directory278488_ - (lambda (_ctx278506_) + (gxc#module-id->path-string __tmp284175))))) + (_module-source-directory278418_ + (lambda (_ctx278436_) (path-directory - (let ((_mpath278508_ + (let ((_mpath278438_ (##structure-ref - _ctx278506_ + _ctx278436_ '7 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (string? _mpath278508_)) - _mpath278508_ + (string? _mpath278438_)) + _mpath278438_ (let () (declare (not safe)) - (last _mpath278508_))))))) - (_section-string278489_ - (lambda (_n278504_) - (if (let () (declare (not safe)) (number? _n278504_)) - (number->string _n278504_) - (if (let () (declare (not safe)) (symbol? _n278504_)) - (symbol->string _n278504_) + (last _mpath278438_))))))) + (_section-string278419_ + (lambda (_n278434_) + (if (let () (declare (not safe)) (number? _n278434_)) + (number->string _n278434_) + (if (let () (declare (not safe)) (symbol? _n278434_)) + (symbol->string _n278434_) (if (let () (declare (not safe)) - (string? _n278504_)) - _n278504_ + (string? _n278434_)) + _n278434_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _n278504_))))))) - (_file-name278490_ - (lambda (_path278502_) - (if _n278484_ + _n278434_))))))) + (_file-name278420_ + (lambda (_path278432_) + (if _n278414_ (string-append - _path278502_ + _path278432_ '"__" (let () (declare (not safe)) - (_section-string278489_ _n278484_)) - _ext278485_) - (string-append _path278502_ _ext278485_)))) - (_file-path278491_ + (_section-string278419_ _n278414_)) + _ext278415_) + (string-append _path278432_ _ext278415_)))) + (_file-path278421_ (lambda () - (let ((_$e278497_ (gxc#current-compile-output-dir))) - (if _$e278497_ - ((lambda (_outdir278500_) + (let ((_$e278427_ (gxc#current-compile-output-dir))) + (if _$e278427_ + ((lambda (_outdir278430_) (path-expand - (let ((__tmp284247 - (let ((__tmp284248 + (let ((__tmp284177 + (let ((__tmp284178 (##structure-ref - _ctx278483_ + _ctx278413_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp284248)))) + __tmp284178)))) (declare (not safe)) - (_file-name278490_ __tmp284247)) - _outdir278500_)) - _$e278497_) + (_file-name278420_ __tmp284177)) + _outdir278430_)) + _$e278427_) (path-expand - (let ((__tmp284246 + (let ((__tmp284176 (let () (declare (not safe)) - (_module-relative-path278487_ - _ctx278483_)))) + (_module-relative-path278417_ + _ctx278413_)))) (declare (not safe)) - (_file-name278490_ __tmp284246)) + (_file-name278420_ __tmp284176)) (let () (declare (not safe)) - (_module-source-directory278488_ - _ctx278483_)))))))) - (let ((_path278493_ - (let () (declare (not safe)) (_file-path278491_)))) - (let ((__tmp284249 + (_module-source-directory278418_ + _ctx278413_)))))))) + (let ((_path278423_ + (let () (declare (not safe)) (_file-path278421_)))) + (let ((__tmp284179 (lambda () - (let ((__tmp284250 (path-directory _path278493_))) + (let ((__tmp284180 (path-directory _path278423_))) (declare (not safe)) - (create-directory* __tmp284250))))) + (create-directory* __tmp284180))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp284249)) - _path278493_)))) + (with-lock gxc#+driver-mutex+ __tmp284179)) + _path278423_)))) (define gxc#compile-static-output-file - (lambda (_ctx278465_) - (letrec ((_file-name278467_ - (lambda (_id278481_) + (lambda (_ctx278395_) + (letrec ((_file-name278397_ + (lambda (_id278411_) (string-append (let () (declare (not safe)) - (gxc#static-module-name _id278481_)) + (gxc#static-module-name _id278411_)) '".scm"))) - (_file-path278468_ + (_file-path278398_ (lambda () - (let* ((_file278474_ - (let ((__tmp284251 + (let* ((_file278404_ + (let ((__tmp284181 (##structure-ref - _ctx278465_ + _ctx278395_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (_file-name278467_ __tmp284251))) - (_$e278476_ (gxc#current-compile-output-dir))) - (if _$e278476_ - ((lambda (_outdir278479_) + (_file-name278397_ __tmp284181))) + (_$e278406_ (gxc#current-compile-output-dir))) + (if _$e278406_ + ((lambda (_outdir278409_) (path-expand - _file278474_ - (path-expand '"static" _outdir278479_))) - _$e278476_) - (path-expand _file278474_ '"static")))))) - (let ((_path278470_ - (let () (declare (not safe)) (_file-path278468_)))) - (let ((__tmp284252 + _file278404_ + (path-expand '"static" _outdir278409_))) + _$e278406_) + (path-expand _file278404_ '"static")))))) + (let ((_path278400_ + (let () (declare (not safe)) (_file-path278398_)))) + (let ((__tmp284182 (lambda () - (let ((__tmp284253 (path-directory _path278470_))) + (let ((__tmp284183 (path-directory _path278400_))) (declare (not safe)) - (create-directory* __tmp284253))))) + (create-directory* __tmp284183))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp284252)) - _path278470_)))) + (with-lock gxc#+driver-mutex+ __tmp284182)) + _path278400_)))) (define gxc#compile-exe-output-file - (lambda (_ctx278459_ _opts278460_) - (let ((_$e278462_ + (lambda (_ctx278389_ _opts278390_) + (let ((_$e278392_ (let () (declare (not safe)) - (pgetq 'output-file: _opts278460_)))) - (if _$e278462_ - (values _$e278462_) + (pgetq 'output-file: _opts278390_)))) + (if _$e278392_ + (values _$e278392_) (path-strip-directory (symbol->string (##structure-ref - _ctx278459_ + _ctx278389_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_idstr278452_) - (if (let () (declare (not safe)) (string? _idstr278452_)) - (let* ((_str278454_ + (lambda (_idstr278382_) + (if (let () (declare (not safe)) (string? _idstr278382_)) + (let* ((_str278384_ (let () (declare (not safe)) - (gxc#module-id->path-string _idstr278452_))) - (_strs278456_ + (gxc#module-id->path-string _idstr278382_))) + (_strs278386_ (let () (declare (not safe)) - (string-split _str278454_ '#\/)))) - (let () (declare (not safe)) (string-join _strs278456_ '"__"))) - (if (let () (declare (not safe)) (symbol? _idstr278452_)) - (let ((__tmp284254 (symbol->string _idstr278452_))) + (string-split _str278384_ '#\/)))) + (let () (declare (not safe)) (string-join _strs278386_ '"__"))) + (if (let () (declare (not safe)) (symbol? _idstr278382_)) + (let ((__tmp284184 (symbol->string _idstr278382_))) (declare (not safe)) - (gxc#static-module-name __tmp284254)) - (error '"Bad module id" _idstr278452_))))) + (gxc#static-module-name __tmp284184)) + (error '"Bad module id" _idstr278382_))))) (define gxc#invoke__% - (lambda (_g284255_ - _stdout-redirection278416278420_ - _stderr-redirection278417278422_ - _program278424_ - _args278425_) - (let* ((_stdout-redirection278427_ + (lambda (_g284185_ + _stdout-redirection278346278350_ + _stderr-redirection278347278352_ + _program278354_ + _args278355_) + (let* ((_stdout-redirection278357_ (if (let () (declare (not safe)) - (eq? _stdout-redirection278416278420_ absent-value)) + (eq? _stdout-redirection278346278350_ absent-value)) '#f - _stdout-redirection278416278420_)) - (_stderr-redirection278429_ + _stdout-redirection278346278350_)) + (_stderr-redirection278359_ (if (let () (declare (not safe)) - (eq? _stderr-redirection278417278422_ absent-value)) + (eq? _stderr-redirection278347278352_ absent-value)) '#f - _stderr-redirection278417278422_))) - (let ((__tmp284256 + _stderr-redirection278347278352_))) + (let ((__tmp284186 (let () (declare (not safe)) - (cons _program278424_ _args278425_)))) + (cons _program278354_ _args278355_)))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp284256)) - (let ((_proc278431_ + (gxc#verbose '"invoke " __tmp284186)) + (let ((_proc278361_ (open-process - (let ((__tmp284257 - (let ((__tmp284258 - (let ((__tmp284259 - (let ((__tmp284260 - (let ((__tmp284261 - (let ((__tmp284262 - (let ((__tmp284263 + (let ((__tmp284187 + (let ((__tmp284188 + (let ((__tmp284189 + (let ((__tmp284190 + (let ((__tmp284191 + (let ((__tmp284192 + (let ((__tmp284193 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _stderr-redirection278429_ '())))) + (cons _stderr-redirection278359_ '())))) (declare (not safe)) - (cons 'stderr-redirection: __tmp284263)))) + (cons 'stderr-redirection: __tmp284193)))) (declare (not safe)) - (cons _stdout-redirection278427_ __tmp284262)))) + (cons _stdout-redirection278357_ __tmp284192)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'stdout-redirection: - __tmp284261)))) + __tmp284191)))) (declare (not safe)) - (cons _args278425_ __tmp284260)))) + (cons _args278355_ __tmp284190)))) (declare (not safe)) - (cons 'arguments: __tmp284259)))) + (cons 'arguments: __tmp284189)))) (declare (not safe)) - (cons _program278424_ __tmp284258)))) + (cons _program278354_ __tmp284188)))) (declare (not safe)) - (cons 'path: __tmp284257))))) - (if (or _stdout-redirection278427_ _stderr-redirection278429_) - (read-line _proc278431_ '#f) + (cons 'path: __tmp284187))))) + (if (or _stdout-redirection278357_ _stderr-redirection278359_) + (read-line _proc278361_ '#f) '#!void) - (let ((_status278436_ (process-status _proc278431_))) - (close-port _proc278431_) - (if (let () (declare (not safe)) (zero? _status278436_)) + (let ((_status278366_ (process-status _proc278361_))) + (close-port _proc278361_) + (if (let () (declare (not safe)) (zero? _status278366_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - _program278424_)))))))) + _program278354_)))))))) (define gxc#invoke__@ - (lambda (_keys278415278441_ . _args278443_) + (lambda (_keys278345278371_ . _args278373_) (apply gxc#invoke__% - _keys278415278441_ + _keys278345278371_ (let () (declare (not safe)) (table-ref - _keys278415278441_ + _keys278345278371_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (table-ref - _keys278415278441_ + _keys278345278371_ 'stderr-redirection: absent-value)) - _args278443_))) + _args278373_))) (define gxc#invoke - (lambda _args278418278449_ + (lambda _args278348278379_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _args278418278449_))) + _args278348278379_))) (define gxc#join! - (lambda (_thread278409_) - (let ((__tmp284265 - (lambda (_exn278411_) - (if (uncaught-exception? _exn278411_) - (raise (uncaught-exception-reason _exn278411_)) - (raise _exn278411_)))) - (__tmp284264 (lambda () (thread-join! _thread278409_)))) + (lambda (_thread278339_) + (let ((__tmp284195 + (lambda (_exn278341_) + (if (uncaught-exception? _exn278341_) + (raise (uncaught-exception-reason _exn278341_)) + (raise _exn278341_)))) + (__tmp284194 (lambda () (thread-join! _thread278339_)))) (declare (not safe)) - (with-catch __tmp284265 __tmp284264)))))) + (with-catch __tmp284195 __tmp284194)))))) diff --git a/src/bootstrap/gerbil/compiler/driver__1.scm b/src/bootstrap/gerbil/compiler/driver__1.scm index 806bb8ad9..2a5b6f8bc 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 (_$stx278282_) - (let* ((_g278286278300_ - (lambda (_g278287278296_) + (lambda (_$stx278212_) + (let* ((_g278216278230_ + (lambda (_g278217278226_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g278287278296_)))) - (_g278285278342_ - (lambda (_g278287278304_) + _g278217278226_)))) + (_g278215278272_ + (lambda (_g278217278234_) (if (let () (declare (not safe)) - (gx#stx-pair? _g278287278304_)) - (let ((_e278291278307_ + (gx#stx-pair? _g278217278234_)) + (let ((_e278221278237_ (let () (declare (not safe)) - (gx#syntax-e _g278287278304_)))) - (let ((_hd278290278311_ + (gx#syntax-e _g278217278234_)))) + (let ((_hd278220278241_ (let () (declare (not safe)) - (##car _e278291278307_))) - (_tl278289278314_ + (##car _e278221278237_))) + (_tl278219278244_ (let () (declare (not safe)) - (##cdr _e278291278307_)))) + (##cdr _e278221278237_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl278289278314_)) - (let ((_e278294278317_ + (gx#stx-pair? _tl278219278244_)) + (let ((_e278224278247_ (let () (declare (not safe)) - (gx#syntax-e _tl278289278314_)))) - (let ((_hd278293278321_ + (gx#syntax-e _tl278219278244_)))) + (let ((_hd278223278251_ (let () (declare (not safe)) - (##car _e278294278317_))) - (_tl278292278324_ + (##car _e278224278247_))) + (_tl278222278254_ (let () (declare (not safe)) - (##cdr _e278294278317_)))) + (##cdr _e278224278247_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl278292278324_)) - ((lambda (_L278327_) - (let ((__tmp284273 + (gx#stx-null? _tl278222278254_)) + ((lambda (_L278257_) + (let ((__tmp284203 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp284266 - (let ((__tmp284272 + (__tmp284196 + (let ((__tmp284202 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+driver-mutex+))) - (__tmp284267 - (let ((__tmp284268 - (let ((__tmp284271 + (__tmp284197 + (let ((__tmp284198 + (let ((__tmp284201 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp284269 - (let ((__tmp284270 + (__tmp284199 + (let ((__tmp284200 (let () (declare (not safe)) - (cons _L278327_ '())))) + (cons _L278257_ '())))) (declare (not safe)) - (cons '() __tmp284270)))) + (cons '() __tmp284200)))) (declare (not safe)) - (cons __tmp284271 __tmp284269)))) + (cons __tmp284201 __tmp284199)))) (declare (not safe)) - (cons __tmp284268 '())))) + (cons __tmp284198 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284272 - __tmp284267)))) + (cons __tmp284202 + __tmp284197)))) (declare (not safe)) - (cons __tmp284273 __tmp284266))) - _hd278293278321_) - (_g278286278300_ _g278287278304_)))) - (_g278286278300_ _g278287278304_)))) - (_g278286278300_ _g278287278304_))))) - (_g278285278342_ _$stx278282_)))) + (cons __tmp284203 __tmp284196))) + _hd278223278251_) + (_g278216278230_ _g278217278234_)))) + (_g278216278230_ _g278217278234_)))) + (_g278216278230_ _g278217278234_))))) + (_g278215278272_ _$stx278212_)))) (define |gxc[:0:]#go!| - (lambda (_$stx278346_) - (let* ((_g278350278364_ - (lambda (_g278351278360_) + (lambda (_$stx278276_) + (let* ((_g278280278294_ + (lambda (_g278281278290_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g278351278360_)))) - (_g278349278405_ - (lambda (_g278351278368_) + _g278281278290_)))) + (_g278279278335_ + (lambda (_g278281278298_) (if (let () (declare (not safe)) - (gx#stx-pair? _g278351278368_)) - (let ((_e278355278371_ + (gx#stx-pair? _g278281278298_)) + (let ((_e278285278301_ (let () (declare (not safe)) - (gx#syntax-e _g278351278368_)))) - (let ((_hd278354278375_ + (gx#syntax-e _g278281278298_)))) + (let ((_hd278284278305_ (let () (declare (not safe)) - (##car _e278355278371_))) - (_tl278353278378_ + (##car _e278285278301_))) + (_tl278283278308_ (let () (declare (not safe)) - (##cdr _e278355278371_)))) + (##cdr _e278285278301_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl278353278378_)) - (let ((_e278358278381_ + (gx#stx-pair? _tl278283278308_)) + (let ((_e278288278311_ (let () (declare (not safe)) - (gx#syntax-e _tl278353278378_)))) - (let ((_hd278357278385_ + (gx#syntax-e _tl278283278308_)))) + (let ((_hd278287278315_ (let () (declare (not safe)) - (##car _e278358278381_))) - (_tl278356278388_ + (##car _e278288278311_))) + (_tl278286278318_ (let () (declare (not safe)) - (##cdr _e278358278381_)))) + (##cdr _e278288278311_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl278356278388_)) - ((lambda (_L278391_) - (let ((__tmp284279 + (gx#stx-null? _tl278286278318_)) + ((lambda (_L278321_) + (let ((__tmp284209 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'spawn))) - (__tmp284274 - (let ((__tmp284275 - (let ((__tmp284278 + (__tmp284204 + (let ((__tmp284205 + (let ((__tmp284208 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp284276 - (let ((__tmp284277 + (__tmp284206 + (let ((__tmp284207 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L278391_ '())))) + (let () (declare (not safe)) (cons _L278321_ '())))) (declare (not safe)) - (cons '() __tmp284277)))) + (cons '() __tmp284207)))) (declare (not safe)) - (cons __tmp284278 __tmp284276)))) + (cons __tmp284208 __tmp284206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284275 '())))) + (cons __tmp284205 '())))) (declare (not safe)) - (cons __tmp284279 __tmp284274))) - _hd278357278385_) - (_g278350278364_ _g278351278368_)))) - (_g278350278364_ _g278351278368_)))) - (_g278350278364_ _g278351278368_))))) - (_g278349278405_ _$stx278346_))))) + (cons __tmp284209 __tmp284204))) + _hd278287278315_) + (_g278280278294_ _g278281278298_)))) + (_g278280278294_ _g278281278298_)))) + (_g278280278294_ _g278281278298_))))) + (_g278279278335_ _$stx278276_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index 6a644dcc2..face2b784 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 1707423044) + (define gerbil/compiler/optimize-ann::timestamp 1707565664) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated (make-promise (lambda () - (let ((_tbl255990_ + (let ((_tbl255920_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp263306 (force gxc#&basic-xform))) + (let ((__tmp263236 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl255990_ __tmp263306)) + (hash-copy! _tbl255920_ __tmp263236)) (let () (declare (not safe)) (table-set! - _tbl255990_ + _tbl255920_ '%#begin-annotation gxc#optimize-annotation%)) - _tbl255990_)))) + _tbl255920_)))) (define gxc#apply-optimize-annotated - (lambda (_stx255973_ . _args255975_) - (let ((__tmp263308 + (lambda (_stx255903_ . _args255905_) + (let ((__tmp263238 (lambda () (declare (not safe)) - (if (null? _args255975_) - (gxc#compile-e__0 _stx255973_) - (let ((_arg1255980_ (car _args255975_)) - (_rest255982_ (cdr _args255975_))) - (if (null? _rest255982_) - (gxc#compile-e__1 _stx255973_ _arg1255980_) - (let ((_arg2255985_ (car _rest255982_)) - (_rest255987_ (cdr _rest255982_))) - (if (null? _rest255987_) + (if (null? _args255905_) + (gxc#compile-e__0 _stx255903_) + (let ((_arg1255910_ (car _args255905_)) + (_rest255912_ (cdr _args255905_))) + (if (null? _rest255912_) + (gxc#compile-e__1 _stx255903_ _arg1255910_) + (let ((_arg2255915_ (car _rest255912_)) + (_rest255917_ (cdr _rest255912_))) + (if (null? _rest255917_) (gxc#compile-e__2 - _stx255973_ - _arg1255980_ - _arg2255985_) + _stx255903_ + _arg1255910_ + _arg2255915_) (apply gxc#compile-e - _stx255973_ - _arg1255980_ - _arg2255985_ - _rest255987_)))))))) - (__tmp263307 (force gxc#&optmize-annotated))) + _stx255903_ + _arg1255910_ + _arg2255915_ + _rest255917_)))))))) + (__tmp263237 (force gxc#&optmize-annotated))) (declare (not safe)) (call-with-parameters - __tmp263308 + __tmp263238 gxc#current-compile-methods - __tmp263307)))) + __tmp263237)))) (define gxc#&generate-runtime-repr (make-promise (lambda () - (let ((_tbl255970_ + (let ((_tbl255900_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp263309 (force gxc#&generate-runtime))) + (let ((__tmp263239 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-copy! _tbl255970_ __tmp263309)) + (hash-copy! _tbl255900_ __tmp263239)) (let () (declare (not safe)) - (table-set! _tbl255970_ '%#quote-syntax identity)) - _tbl255970_)))) + (table-set! _tbl255900_ '%#quote-syntax identity)) + _tbl255900_)))) (define gxc#apply-generate-runtime-repr - (lambda (_stx255953_ . _args255955_) - (let ((__tmp263311 + (lambda (_stx255883_ . _args255885_) + (let ((__tmp263241 (lambda () (declare (not safe)) - (if (null? _args255955_) - (gxc#compile-e__0 _stx255953_) - (let ((_arg1255960_ (car _args255955_)) - (_rest255962_ (cdr _args255955_))) - (if (null? _rest255962_) - (gxc#compile-e__1 _stx255953_ _arg1255960_) - (let ((_arg2255965_ (car _rest255962_)) - (_rest255967_ (cdr _rest255962_))) - (if (null? _rest255967_) + (if (null? _args255885_) + (gxc#compile-e__0 _stx255883_) + (let ((_arg1255890_ (car _args255885_)) + (_rest255892_ (cdr _args255885_))) + (if (null? _rest255892_) + (gxc#compile-e__1 _stx255883_ _arg1255890_) + (let ((_arg2255895_ (car _rest255892_)) + (_rest255897_ (cdr _rest255892_))) + (if (null? _rest255897_) (gxc#compile-e__2 - _stx255953_ - _arg1255960_ - _arg2255965_) + _stx255883_ + _arg1255890_ + _arg2255895_) (apply gxc#compile-e - _stx255953_ - _arg1255960_ - _arg2255965_ - _rest255967_)))))))) - (__tmp263310 (force gxc#&generate-runtime-repr))) + _stx255883_ + _arg1255890_ + _arg2255895_ + _rest255897_)))))))) + (__tmp263240 (force gxc#&generate-runtime-repr))) (declare (not safe)) (call-with-parameters - __tmp263311 + __tmp263241 gxc#current-compile-methods - __tmp263310)))) + __tmp263240)))) (define gxc#&push-match-vars (make-promise (lambda () - (let ((_tbl255950_ + (let ((_tbl255880_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl255950_ '%#lambda gxc#xform-lambda%)) + (table-set! _tbl255880_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) (table-set! - _tbl255950_ + _tbl255880_ '%#let-values gxc#push-match-vars-let-values%)) (let () (declare (not safe)) (table-set! - _tbl255950_ + _tbl255880_ '%#letrec-values gxc#push-match-vars-stop)) (let () (declare (not safe)) - (table-set! _tbl255950_ '%#if gxc#push-match-vars-if%)) + (table-set! _tbl255880_ '%#if gxc#push-match-vars-if%)) (let () (declare (not safe)) - (table-set! _tbl255950_ '%#call gxc#push-match-vars-call%)) - _tbl255950_)))) + (table-set! _tbl255880_ '%#call gxc#push-match-vars-call%)) + _tbl255880_)))) (define gxc#apply-push-match-vars - (lambda (_stx255933_ . _args255935_) - (let ((__tmp263313 + (lambda (_stx255863_ . _args255865_) + (let ((__tmp263243 (lambda () (declare (not safe)) - (if (null? _args255935_) - (gxc#compile-e__0 _stx255933_) - (let ((_arg1255940_ (car _args255935_)) - (_rest255942_ (cdr _args255935_))) - (if (null? _rest255942_) - (gxc#compile-e__1 _stx255933_ _arg1255940_) - (let ((_arg2255945_ (car _rest255942_)) - (_rest255947_ (cdr _rest255942_))) - (if (null? _rest255947_) + (if (null? _args255865_) + (gxc#compile-e__0 _stx255863_) + (let ((_arg1255870_ (car _args255865_)) + (_rest255872_ (cdr _args255865_))) + (if (null? _rest255872_) + (gxc#compile-e__1 _stx255863_ _arg1255870_) + (let ((_arg2255875_ (car _rest255872_)) + (_rest255877_ (cdr _rest255872_))) + (if (null? _rest255877_) (gxc#compile-e__2 - _stx255933_ - _arg1255940_ - _arg2255945_) + _stx255863_ + _arg1255870_ + _arg2255875_) (apply gxc#compile-e - _stx255933_ - _arg1255940_ - _arg2255945_ - _rest255947_)))))))) - (__tmp263312 (force gxc#&push-match-vars))) + _stx255863_ + _arg1255870_ + _arg2255875_ + _rest255877_)))))))) + (__tmp263242 (force gxc#&push-match-vars))) (declare (not safe)) (call-with-parameters - __tmp263313 + __tmp263243 gxc#current-compile-methods - __tmp263312)))) + __tmp263242)))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_stx255742_) - (let* ((___stx260200260201_ _stx255742_) - (_g255746255787_ + (lambda (_stx255672_) + (let* ((___stx260130260131_ _stx255672_) + (_g255676255717_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx260200260201_))))) - (let ((___kont260202260203_ - (lambda (_L255909_ _L255910_) - (let ((_ann255924_ - (let () (declare (not safe)) (gx#stx-e _L255910_)))) - (let ((__tmp263316 + ___stx260130260131_))))) + (let ((___kont260132260133_ + (lambda (_L255839_ _L255840_) + (let ((_ann255854_ + (let () (declare (not safe)) (gx#stx-e _L255840_)))) + (let ((__tmp263246 (lambda () - (let ((_$e255927_ _ann255924_)) + (let ((_$e255857_ _ann255854_)) (if (let () (declare (not safe)) - (eq? '@match _$e255927_)) + (eq? '@match _$e255857_)) (begin (let () (declare (not safe)) @@ -173,10 +173,10 @@ '"Optimizing match expansion")) (let () (declare (not safe)) - (gxc#optimize-match _L255909_))) + (gxc#optimize-match _L255839_))) (if (let () (declare (not safe)) - (eq? '@syntax-case _$e255927_)) + (eq? '@syntax-case _$e255857_)) (begin (let () (declare (not safe)) @@ -185,4091 +185,4091 @@ (let () (declare (not safe)) (gxc#optimize-syntax-case - _L255909_))) + _L255839_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L255909_))))))) - (__tmp263314 - (let ((__tmp263315 + (gxc#compile-e__0 _L255839_))))))) + (__tmp263244 + (let ((__tmp263245 (gxc#current-annotation-optimizer))) (declare (not safe)) - (cons _ann255924_ __tmp263315)))) + (cons _ann255854_ __tmp263245)))) (declare (not safe)) (call-with-parameters - __tmp263316 + __tmp263246 gxc#current-annotation-optimizer - __tmp263314))))) - (___kont260204260205_ - (lambda (_L255855_ _L255856_ _L255857_) - (let () (declare (not safe)) (gxc#compile-e__0 _L255855_)))) - (___kont260208260209_ + __tmp263244))))) + (___kont260134260135_ + (lambda (_L255785_ _L255786_ _L255787_) + (let () (declare (not safe)) (gxc#compile-e__0 _L255785_)))) + (___kont260138260139_ (lambda () (let () (declare (not safe)) - (gxc#xform-begin-annotation% _stx255742_))))) - (let* ((___match260255260256_ - (lambda (_e255764255799_ - _hd255763255802_ - _tl255762255804_ - _e255767255807_ - _hd255766255810_ - _tl255765255812_ - _e255770255815_ - _hd255769255818_ - _tl255768255820_ - ___splice260206260207_ - _target255771255823_ - _tl255773255825_) - (letrec ((_loop255774255828_ - (lambda (_hd255772255831_ _param255778255833_) + (gxc#xform-begin-annotation% _stx255672_))))) + (let* ((___match260185260186_ + (lambda (_e255694255729_ + _hd255693255732_ + _tl255692255734_ + _e255697255737_ + _hd255696255740_ + _tl255695255742_ + _e255700255745_ + _hd255699255748_ + _tl255698255750_ + ___splice260136260137_ + _target255701255753_ + _tl255703255755_) + (letrec ((_loop255704255758_ + (lambda (_hd255702255761_ _param255708255763_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255772255831_)) - (let ((_e255775255836_ + (gx#stx-pair? _hd255702255761_)) + (let ((_e255705255766_ (let () (declare (not safe)) - (gx#stx-e _hd255772255831_)))) - (let ((_lp-tl255777255841_ + (gx#stx-e _hd255702255761_)))) + (let ((_lp-tl255707255771_ (let () (declare (not safe)) - (##cdr _e255775255836_))) - (_lp-hd255776255839_ + (##cdr _e255705255766_))) + (_lp-hd255706255769_ (let () (declare (not safe)) - (##car _e255775255836_)))) - (let ((__tmp263318 + (##car _e255705255766_)))) + (let ((__tmp263248 (let () (declare (not safe)) - (cons _lp-hd255776255839_ - _param255778255833_)))) + (cons _lp-hd255706255769_ + _param255708255763_)))) (declare (not safe)) - (_loop255774255828_ - _lp-tl255777255841_ - __tmp263318)))) - (let ((_param255779255844_ - (reverse _param255778255833_))) + (_loop255704255758_ + _lp-tl255707255771_ + __tmp263248)))) + (let ((_param255709255774_ + (reverse _param255708255763_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255765255812_)) - (let ((_e255782255847_ + (gx#stx-pair? _tl255695255742_)) + (let ((_e255712255777_ (let () (declare (not safe)) (gx#stx-e - _tl255765255812_)))) - (let ((_tl255780255852_ + _tl255695255742_)))) + (let ((_tl255710255782_ (let () (declare (not safe)) - (##cdr _e255782255847_))) - (_hd255781255850_ + (##cdr _e255712255777_))) + (_hd255711255780_ (let () (declare (not safe)) - (##car _e255782255847_)))) + (##car _e255712255777_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255780255852_)) - (let ((_L255855_ - _hd255781255850_) - (_L255856_ - _param255779255844_) - (_L255857_ - _hd255769255818_)) + _tl255710255782_)) + (let ((_L255785_ + _hd255711255780_) + (_L255786_ + _param255709255774_) + (_L255787_ + _hd255699255748_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L255857_)) - (let ((__tmp263317 + (gx#identifier? _L255787_)) + (let ((__tmp263247 (memq (let () (declare (not safe)) - (gx#stx-e _L255857_)) + (gx#stx-e _L255787_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp263317))) - (___kont260204260205_ _L255855_ _L255856_ _L255857_) - (___kont260208260209_))) + (not __tmp263247))) + (___kont260134260135_ _L255785_ _L255786_ _L255787_) + (___kont260138260139_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260208260209_)))) - (___kont260208260209_))))))) + (___kont260138260139_)))) + (___kont260138260139_))))))) (let () (declare (not safe)) - (_loop255774255828_ _target255771255823_ '()))))) - (___match260229260230_ - (lambda (_e255752255885_ - _hd255751255888_ - _tl255750255890_ - _e255755255893_ - _hd255754255896_ - _tl255753255898_ - _e255758255901_ - _hd255757255904_ - _tl255756255906_) - (let ((_L255909_ _hd255757255904_) - (_L255910_ _hd255754255896_)) + (_loop255704255758_ _target255701255753_ '()))))) + (___match260159260160_ + (lambda (_e255682255815_ + _hd255681255818_ + _tl255680255820_ + _e255685255823_ + _hd255684255826_ + _tl255683255828_ + _e255688255831_ + _hd255687255834_ + _tl255686255836_) + (let ((_L255839_ _hd255687255834_) + (_L255840_ _hd255684255826_)) (if (let () (declare (not safe)) - (gx#identifier? _L255910_)) - (___kont260202260203_ _L255909_ _L255910_) + (gx#identifier? _L255840_)) + (___kont260132260133_ _L255839_ _L255840_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255754255896_)) - (let ((_e255770255815_ + (gx#stx-pair? _hd255684255826_)) + (let ((_e255700255745_ (let () (declare (not safe)) - (gx#stx-e _hd255754255896_)))) - (let ((_tl255768255820_ + (gx#stx-e _hd255684255826_)))) + (let ((_tl255698255750_ (let () (declare (not safe)) - (##cdr _e255770255815_))) - (_hd255769255818_ + (##cdr _e255700255745_))) + (_hd255699255748_ (let () (declare (not safe)) - (##car _e255770255815_)))) + (##car _e255700255745_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl255768255820_)) - (let ((___splice260206260207_ + (gx#stx-pair/null? _tl255698255750_)) + (let ((___splice260136260137_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl255768255820_ + _tl255698255750_ '0)))) - (let ((_tl255773255825_ + (let ((_tl255703255755_ (let () (declare (not safe)) (##vector-ref - ___splice260206260207_ + ___splice260136260137_ '1))) - (_target255771255823_ + (_target255701255753_ (let () (declare (not safe)) (##vector-ref - ___splice260206260207_ + ___splice260136260137_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255773255825_)) - (___match260255260256_ - _e255752255885_ - _hd255751255888_ - _tl255750255890_ - _e255755255893_ - _hd255754255896_ - _tl255753255898_ - _e255770255815_ - _hd255769255818_ - _tl255768255820_ - ___splice260206260207_ - _target255771255823_ - _tl255773255825_) - (___kont260208260209_)))) - (___kont260208260209_)))) - (___kont260208260209_))))))) + _tl255703255755_)) + (___match260185260186_ + _e255682255815_ + _hd255681255818_ + _tl255680255820_ + _e255685255823_ + _hd255684255826_ + _tl255683255828_ + _e255700255745_ + _hd255699255748_ + _tl255698255750_ + ___splice260136260137_ + _target255701255753_ + _tl255703255755_) + (___kont260138260139_)))) + (___kont260138260139_)))) + (___kont260138260139_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx260200260201_)) - (let ((_e255752255885_ + (gx#stx-pair? ___stx260130260131_)) + (let ((_e255682255815_ (let () (declare (not safe)) - (gx#stx-e ___stx260200260201_)))) - (let ((_tl255750255890_ + (gx#stx-e ___stx260130260131_)))) + (let ((_tl255680255820_ (let () (declare (not safe)) - (##cdr _e255752255885_))) - (_hd255751255888_ + (##cdr _e255682255815_))) + (_hd255681255818_ (let () (declare (not safe)) - (##car _e255752255885_)))) + (##car _e255682255815_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255750255890_)) - (let ((_e255755255893_ + (gx#stx-pair? _tl255680255820_)) + (let ((_e255685255823_ (let () (declare (not safe)) - (gx#stx-e _tl255750255890_)))) - (let ((_tl255753255898_ + (gx#stx-e _tl255680255820_)))) + (let ((_tl255683255828_ (let () (declare (not safe)) - (##cdr _e255755255893_))) - (_hd255754255896_ + (##cdr _e255685255823_))) + (_hd255684255826_ (let () (declare (not safe)) - (##car _e255755255893_)))) + (##car _e255685255823_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255753255898_)) - (let ((_e255758255901_ + (gx#stx-pair? _tl255683255828_)) + (let ((_e255688255831_ (let () (declare (not safe)) - (gx#stx-e _tl255753255898_)))) - (let ((_tl255756255906_ + (gx#stx-e _tl255683255828_)))) + (let ((_tl255686255836_ (let () (declare (not safe)) - (##cdr _e255758255901_))) - (_hd255757255904_ + (##cdr _e255688255831_))) + (_hd255687255834_ (let () (declare (not safe)) - (##car _e255758255901_)))) + (##car _e255688255831_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255756255906_)) - (___match260229260230_ - _e255752255885_ - _hd255751255888_ - _tl255750255890_ - _e255755255893_ - _hd255754255896_ - _tl255753255898_ - _e255758255901_ - _hd255757255904_ - _tl255756255906_) + (gx#stx-null? _tl255686255836_)) + (___match260159260160_ + _e255682255815_ + _hd255681255818_ + _tl255680255820_ + _e255685255823_ + _hd255684255826_ + _tl255683255828_ + _e255688255831_ + _hd255687255834_ + _tl255686255836_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255754255896_)) - (let ((_e255770255815_ + _hd255684255826_)) + (let ((_e255700255745_ (let () (declare (not safe)) (gx#stx-e - _hd255754255896_)))) - (let ((_tl255768255820_ + _hd255684255826_)))) + (let ((_tl255698255750_ (let () (declare (not safe)) - (##cdr _e255770255815_))) - (_hd255769255818_ + (##cdr _e255700255745_))) + (_hd255699255748_ (let () (declare (not safe)) - (##car _e255770255815_)))) + (##car _e255700255745_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl255768255820_)) - (let ((___splice260206260207_ + _tl255698255750_)) + (let ((___splice260136260137_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl255768255820_ '0)))) - (let ((_tl255773255825_ + (gx#syntax-split-splice _tl255698255750_ '0)))) + (let ((_tl255703255755_ (let () (declare (not safe)) - (##vector-ref ___splice260206260207_ '1))) - (_target255771255823_ + (##vector-ref ___splice260136260137_ '1))) + (_target255701255753_ (let () (declare (not safe)) - (##vector-ref ___splice260206260207_ '0)))) + (##vector-ref ___splice260136260137_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255773255825_)) - (___match260255260256_ - _e255752255885_ - _hd255751255888_ - _tl255750255890_ - _e255755255893_ - _hd255754255896_ - _tl255753255898_ - _e255770255815_ - _hd255769255818_ - _tl255768255820_ - ___splice260206260207_ - _target255771255823_ - _tl255773255825_) - (___kont260208260209_)))) - (___kont260208260209_)))) + (gx#stx-null? _tl255703255755_)) + (___match260185260186_ + _e255682255815_ + _hd255681255818_ + _tl255680255820_ + _e255685255823_ + _hd255684255826_ + _tl255683255828_ + _e255700255745_ + _hd255699255748_ + _tl255698255750_ + ___splice260136260137_ + _target255701255753_ + _tl255703255755_) + (___kont260138260139_)))) + (___kont260138260139_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260208260209_))))) + (___kont260138260139_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255754255896_)) - (let ((_e255770255815_ + (gx#stx-pair? _hd255684255826_)) + (let ((_e255700255745_ (let () (declare (not safe)) - (gx#stx-e _hd255754255896_)))) - (let ((_tl255768255820_ + (gx#stx-e _hd255684255826_)))) + (let ((_tl255698255750_ (let () (declare (not safe)) - (##cdr _e255770255815_))) - (_hd255769255818_ + (##cdr _e255700255745_))) + (_hd255699255748_ (let () (declare (not safe)) - (##car _e255770255815_)))) + (##car _e255700255745_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl255768255820_)) - (let ((___splice260206260207_ + _tl255698255750_)) + (let ((___splice260136260137_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl255768255820_ + _tl255698255750_ '0)))) - (let ((_tl255773255825_ + (let ((_tl255703255755_ (let () (declare (not safe)) (##vector-ref - ___splice260206260207_ + ___splice260136260137_ '1))) - (_target255771255823_ + (_target255701255753_ (let () (declare (not safe)) (##vector-ref - ___splice260206260207_ + ___splice260136260137_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255773255825_)) - (___match260255260256_ - _e255752255885_ - _hd255751255888_ - _tl255750255890_ - _e255755255893_ - _hd255754255896_ - _tl255753255898_ - _e255770255815_ - _hd255769255818_ - _tl255768255820_ - ___splice260206260207_ - _target255771255823_ - _tl255773255825_) - (___kont260208260209_)))) - (___kont260208260209_)))) - (___kont260208260209_))))) - (___kont260208260209_)))) - (___kont260208260209_))))))) + _tl255703255755_)) + (___match260185260186_ + _e255682255815_ + _hd255681255818_ + _tl255680255820_ + _e255685255823_ + _hd255684255826_ + _tl255683255828_ + _e255700255745_ + _hd255699255748_ + _tl255698255750_ + ___splice260136260137_ + _target255701255753_ + _tl255703255755_) + (___kont260138260139_)))) + (___kont260138260139_)))) + (___kont260138260139_))))) + (___kont260138260139_)))) + (___kont260138260139_))))))) (define gxc#optimize-match - (lambda (_stx255041_) - (let* ((_g255043255073_ - (lambda (_g255044255070_) + (lambda (_stx254971_) + (let* ((_g254973255003_ + (lambda (_g254974255000_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g255044255070_)))) - (_g255042255739_ - (lambda (_g255044255076_) + _g254974255000_)))) + (_g254972255669_ + (lambda (_g254974255006_) (if (let () (declare (not safe)) - (gx#stx-pair? _g255044255076_)) - (let ((_e255050255078_ + (gx#stx-pair? _g254974255006_)) + (let ((_e254980255008_ (let () (declare (not safe)) - (gx#stx-e _g255044255076_)))) - (let ((_hd255049255081_ + (gx#stx-e _g254974255006_)))) + (let ((_hd254979255011_ (let () (declare (not safe)) - (##car _e255050255078_))) - (_tl255048255083_ + (##car _e254980255008_))) + (_tl254978255013_ (let () (declare (not safe)) - (##cdr _e255050255078_)))) + (##cdr _e254980255008_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd255049255081_)) + (gx#identifier? _hd254979255011_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd255049255081_)) + _hd254979255011_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255048255083_)) - (let ((_e255053255086_ + (gx#stx-pair? _tl254978255013_)) + (let ((_e254983255016_ (let () (declare (not safe)) - (gx#stx-e _tl255048255083_)))) - (let ((_hd255052255089_ + (gx#stx-e _tl254978255013_)))) + (let ((_hd254982255019_ (let () (declare (not safe)) - (##car _e255053255086_))) - (_tl255051255091_ + (##car _e254983255016_))) + (_tl254981255021_ (let () (declare (not safe)) - (##cdr _e255053255086_)))) + (##cdr _e254983255016_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255052255089_)) - (let ((_e255056255094_ + _hd254982255019_)) + (let ((_e254986255024_ (let () (declare (not safe)) (gx#stx-e - _hd255052255089_)))) - (let ((_hd255055255097_ + _hd254982255019_)))) + (let ((_hd254985255027_ (let () (declare (not safe)) - (##car _e255056255094_))) - (_tl255054255099_ + (##car _e254986255024_))) + (_tl254984255029_ (let () (declare (not safe)) - (##cdr _e255056255094_)))) + (##cdr _e254986255024_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255055255097_)) - (let ((_e255059255102_ + _hd254985255027_)) + (let ((_e254989255032_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd255055255097_)))) - (let ((_hd255058255105_ - (let () (declare (not safe)) (##car _e255059255102_))) - (_tl255057255107_ - (let () (declare (not safe)) (##cdr _e255059255102_)))) + (gx#stx-e _hd254985255027_)))) + (let ((_hd254988255035_ + (let () (declare (not safe)) (##car _e254989255032_))) + (_tl254987255037_ + (let () (declare (not safe)) (##cdr _e254989255032_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255058255105_)) - (let ((_e255062255110_ + (gx#stx-pair? _hd254988255035_)) + (let ((_e254992255040_ (let () (declare (not safe)) - (gx#stx-e _hd255058255105_)))) - (let ((_hd255061255113_ + (gx#stx-e _hd254988255035_)))) + (let ((_hd254991255043_ (let () (declare (not safe)) - (##car _e255062255110_))) - (_tl255060255115_ + (##car _e254992255040_))) + (_tl254990255045_ (let () (declare (not safe)) - (##cdr _e255062255110_)))) + (##cdr _e254992255040_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255060255115_)) + (gx#stx-null? _tl254990255045_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255057255107_)) - (let ((_e255065255118_ + (gx#stx-pair? _tl254987255037_)) + (let ((_e254995255048_ (let () (declare (not safe)) - (gx#stx-e _tl255057255107_)))) - (let ((_hd255064255121_ + (gx#stx-e _tl254987255037_)))) + (let ((_hd254994255051_ (let () (declare (not safe)) - (##car _e255065255118_))) - (_tl255063255123_ + (##car _e254995255048_))) + (_tl254993255053_ (let () (declare (not safe)) - (##cdr _e255065255118_)))) + (##cdr _e254995255048_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255063255123_)) + (gx#stx-null? _tl254993255053_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl255054255099_)) + _tl254984255029_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255051255091_)) - (let ((_e255068255126_ + _tl254981255021_)) + (let ((_e254998255056_ (let () (declare (not safe)) (gx#stx-e - _tl255051255091_)))) - (let ((_hd255067255129_ + _tl254981255021_)))) + (let ((_hd254997255059_ (let () (declare (not safe)) - (##car _e255068255126_))) - (_tl255066255131_ + (##car _e254998255056_))) + (_tl254996255061_ (let () (declare (not safe)) - (##cdr _e255068255126_)))) + (##cdr _e254998255056_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255066255131_)) - ((lambda (_L255134_ + _tl254996255061_)) + ((lambda (_L255064_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L255135_ - _L255136_) - (let _lp255160_ ((_body255162_ _L255134_) - (_negation255163_ + _L255065_ + _L255066_) + (let _lp255090_ ((_body255092_ _L255064_) + (_negation255093_ (let () (declare (not safe)) - (cons _L255136_ _L255135_))) - (_clauses255164_ '()) - (_konts255165_ '())) - (let* ((___stx260438260439_ _body255162_) - (_g255168255208_ + (cons _L255066_ _L255065_))) + (_clauses255094_ '()) + (_konts255095_ '())) + (let* ((___stx260368260369_ _body255092_) + (_g255098255138_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx260438260439_))))) - (let ((___kont260440260441_ - (lambda (_L255538_) - (let* ((___stx260374260375_ _L255538_) - (_g255552255582_ + ___stx260368260369_))))) + (let ((___kont260370260371_ + (lambda (_L255468_) + (let* ((___stx260304260305_ _L255468_) + (_g255482255512_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx260374260375_))))) - (let ((___kont260376260377_ - (lambda (_L255678_ - _L255679_ - _L255680_) + ___stx260304260305_))))) + (let ((___kont260306260307_ + (lambda (_L255608_ + _L255609_ + _L255610_) (if (let () (declare (not safe)) - (null? _clauses255164_)) - (let* ((_negation255704255711_ - _negation255163_) - (_E255706255715_ + (null? _clauses255094_)) + (let* ((_negation255634255641_ + _negation255093_) + (_E255636255645_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _negation255704255711_))) - (_K255707255721_ - (lambda (_negate255718_ _E255719_) - (let ((__tmp263328 - (let ((__tmp263329 - (let ((__tmp263339 - (let ((__tmp263340 - (let ((__tmp263342 + _negation255634255641_))) + (_K255637255651_ + (lambda (_negate255648_ _E255649_) + (let ((__tmp263258 + (let ((__tmp263259 + (let ((__tmp263269 + (let ((__tmp263270 + (let ((__tmp263272 (let () (declare (not safe)) - (cons _E255719_ '()))) - (__tmp263341 + (cons _E255649_ '()))) + (__tmp263271 (let () (declare (not safe)) - (cons _negate255718_ + (cons _negate255648_ '())))) (declare (not safe)) - (cons __tmp263342 - __tmp263341)))) + (cons __tmp263272 + __tmp263271)))) (declare (not safe)) - (cons __tmp263340 '()))) - (__tmp263330 - (let ((__tmp263331 - (let ((__tmp263332 - (let ((__tmp263334 - (let ((__tmp263335 + (cons __tmp263270 '()))) + (__tmp263260 + (let ((__tmp263261 + (let ((__tmp263262 + (let ((__tmp263264 + (let ((__tmp263265 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263338 + (let ((__tmp263268 (let () (declare (not safe)) - (cons _L255680_ '()))) - (__tmp263336 - (let ((__tmp263337 + (cons _L255610_ '()))) + (__tmp263266 + (let ((__tmp263267 (let () (declare (not safe)) - (gxc#compile-e__0 _L255679_)))) + (gxc#compile-e__0 _L255609_)))) (declare (not safe)) - (cons __tmp263337 '())))) + (cons __tmp263267 '())))) (declare (not safe)) - (cons __tmp263338 __tmp263336)))) + (cons __tmp263268 __tmp263266)))) (declare (not safe)) - (cons __tmp263335 '()))) - (__tmp263333 - (let () (declare (not safe)) (cons _L255678_ '())))) + (cons __tmp263265 '()))) + (__tmp263263 + (let () (declare (not safe)) (cons _L255608_ '())))) (declare (not safe)) - (cons __tmp263334 __tmp263333)))) + (cons __tmp263264 __tmp263263)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp263332)))) + __tmp263262)))) (declare (not safe)) - (cons __tmp263331 '())))) + (cons __tmp263261 '())))) (declare (not safe)) - (cons __tmp263339 __tmp263330)))) + (cons __tmp263269 __tmp263260)))) (declare (not safe)) - (cons '%#let-values __tmp263329)))) + (cons '%#let-values __tmp263259)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp263328 _stx255041_))))) + (gxc#xform-wrap-source __tmp263258 _stx254971_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation255704255711_)) - (let ((_hd255708255724_ + (##pair? _negation255634255641_)) + (let ((_hd255638255654_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _negation255704255711_))) - (_tl255709255726_ + (##car _negation255634255641_))) + (_tl255639255656_ (let () (declare (not safe)) - (##cdr _negation255704255711_)))) - (let* ((_E255729_ _hd255708255724_) - (_negate255731_ _tl255709255726_)) + (##cdr _negation255634255641_)))) + (let* ((_E255659_ _hd255638255654_) + (_negate255661_ _tl255639255656_)) (declare (not safe)) - (_K255707255721_ _negate255731_ _E255729_))) - (let () (declare (not safe)) (_E255706255715_)))) + (_K255637255651_ _negate255661_ _E255659_))) + (let () (declare (not safe)) (_E255636255645_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp263322 - (let ((__tmp263323 - (let ((__tmp263324 + (let ((__tmp263252 + (let ((__tmp263253 + (let ((__tmp263254 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263327 + (let ((__tmp263257 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp263325 - (let ((__tmp263326 + (__tmp263255 + (let ((__tmp263256 (let () (declare (not safe)) - (cons _L255678_ '())))) + (cons _L255608_ '())))) (declare (not safe)) - (cons '() __tmp263326)))) + (cons '() __tmp263256)))) (declare (not safe)) - (cons __tmp263327 __tmp263325)))) + (cons __tmp263257 __tmp263255)))) (declare (not safe)) - (cons '#f __tmp263324)))) + (cons '#f __tmp263254)))) (declare (not safe)) - (cons __tmp263323 _clauses255164_))) - (__tmp263319 - (let ((__tmp263320 - (let ((__tmp263321 + (cons __tmp263253 _clauses255094_))) + (__tmp263249 + (let ((__tmp263250 + (let ((__tmp263251 (let () (declare (not safe)) - (gxc#compile-e__0 _L255679_)))) + (gxc#compile-e__0 _L255609_)))) (declare (not safe)) - (cons _L255680_ __tmp263321)))) + (cons _L255610_ __tmp263251)))) (declare (not safe)) - (cons __tmp263320 _konts255165_)))) + (cons __tmp263250 _konts255095_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimize-match-body - _stx255041_ - _negation255163_ - __tmp263322 - __tmp263319))))) - (___kont260378260379_ + _stx254971_ + _negation255093_ + __tmp263252 + __tmp263249))))) + (___kont260308260309_ (lambda () - (let* ((_negation255588255595_ - _negation255163_) - (_E255590255599_ + (let* ((_negation255518255525_ + _negation255093_) + (_E255520255529_ (lambda () (error '"No clause matching" - _negation255588255595_))) - (_K255591255605_ - (lambda (_negate255602_ - _E255603_) - (let ((__tmp263343 - (let ((__tmp263344 + _negation255518255525_))) + (_K255521255535_ + (lambda (_negate255532_ + _E255533_) + (let ((__tmp263273 + (let ((__tmp263274 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263346 - (let ((__tmp263347 - (let ((__tmp263349 + (let ((__tmp263276 + (let ((__tmp263277 + (let ((__tmp263279 (let () (declare (not safe)) - (cons _E255603_ '()))) - (__tmp263348 + (cons _E255533_ '()))) + (__tmp263278 (let () (declare (not safe)) - (cons _negate255602_ + (cons _negate255532_ '())))) (declare (not safe)) - (cons __tmp263349 __tmp263348)))) + (cons __tmp263279 __tmp263278)))) (declare (not safe)) - (cons __tmp263347 '()))) - (__tmp263345 + (cons __tmp263277 '()))) + (__tmp263275 (let () (declare (not safe)) - (cons _L255538_ '())))) + (cons _L255468_ '())))) (declare (not safe)) - (cons __tmp263346 __tmp263345)))) + (cons __tmp263276 __tmp263275)))) (declare (not safe)) - (cons '%#let-values __tmp263344)))) + (cons '%#let-values __tmp263274)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp263343 _stx255041_))))) + (gxc#xform-wrap-source __tmp263273 _stx254971_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation255588255595_)) - (let ((_hd255592255608_ + (##pair? _negation255518255525_)) + (let ((_hd255522255538_ (let () (declare (not safe)) - (##car _negation255588255595_))) - (_tl255593255610_ + (##car _negation255518255525_))) + (_tl255523255540_ (let () (declare (not safe)) - (##cdr _negation255588255595_)))) - (let* ((_E255613_ - _hd255592255608_) - (_negate255615_ - _tl255593255610_)) + (##cdr _negation255518255525_)))) + (let* ((_E255543_ + _hd255522255538_) + (_negate255545_ + _tl255523255540_)) (declare (not safe)) - (_K255591255605_ - _negate255615_ - _E255613_))) + (_K255521255535_ + _negate255545_ + _E255543_))) (let () (declare (not safe)) - (_E255590255599_))))))) - (let ((_g255551255617_ + (_E255520255529_))))))) + (let ((_g255481255547_ (lambda () (if (let () (declare (not safe)) - (null? _clauses255164_)) - (___kont260378260379_) + (null? _clauses255094_)) + (___kont260308260309_) (let () (declare (not safe)) - (_g255552255582_)))))) + (_g255482255512_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx260374260375_)) - (let ((_e255559255622_ + ___stx260304260305_)) + (let ((_e255489255552_ (let () (declare (not safe)) (gx#stx-e - ___stx260374260375_)))) - (let ((_tl255557255627_ + ___stx260304260305_)))) + (let ((_tl255487255557_ (let () (declare (not safe)) - (##cdr _e255559255622_))) - (_hd255558255625_ + (##cdr _e255489255552_))) + (_hd255488255555_ (let () (declare (not safe)) - (##car _e255559255622_)))) + (##car _e255489255552_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd255558255625_)) + _hd255488255555_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd255558255625_)) + _hd255488255555_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255557255627_)) - (let ((_e255562255630_ + _tl255487255557_)) + (let ((_e255492255560_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl255557255627_)))) - (let ((_tl255560255635_ + (gx#stx-e _tl255487255557_)))) + (let ((_tl255490255565_ (let () (declare (not safe)) - (##cdr _e255562255630_))) - (_hd255561255633_ + (##cdr _e255492255560_))) + (_hd255491255563_ (let () (declare (not safe)) - (##car _e255562255630_)))) + (##car _e255492255560_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255561255633_)) - (let ((_e255565255638_ + (gx#stx-pair? _hd255491255563_)) + (let ((_e255495255568_ (let () (declare (not safe)) - (gx#stx-e _hd255561255633_)))) - (let ((_tl255563255643_ + (gx#stx-e _hd255491255563_)))) + (let ((_tl255493255573_ (let () (declare (not safe)) - (##cdr _e255565255638_))) - (_hd255564255641_ + (##cdr _e255495255568_))) + (_hd255494255571_ (let () (declare (not safe)) - (##car _e255565255638_)))) + (##car _e255495255568_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255564255641_)) - (let ((_e255568255646_ + (gx#stx-pair? _hd255494255571_)) + (let ((_e255498255576_ (let () (declare (not safe)) - (gx#stx-e _hd255564255641_)))) - (let ((_tl255566255651_ + (gx#stx-e _hd255494255571_)))) + (let ((_tl255496255581_ (let () (declare (not safe)) - (##cdr _e255568255646_))) - (_hd255567255649_ + (##cdr _e255498255576_))) + (_hd255497255579_ (let () (declare (not safe)) - (##car _e255568255646_)))) + (##car _e255498255576_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255567255649_)) - (let ((_e255571255654_ + (gx#stx-pair? _hd255497255579_)) + (let ((_e255501255584_ (let () (declare (not safe)) (gx#stx-e - _hd255567255649_)))) - (let ((_tl255569255659_ + _hd255497255579_)))) + (let ((_tl255499255589_ (let () (declare (not safe)) - (##cdr _e255571255654_))) - (_hd255570255657_ + (##cdr _e255501255584_))) + (_hd255500255587_ (let () (declare (not safe)) - (##car _e255571255654_)))) + (##car _e255501255584_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255569255659_)) + _tl255499255589_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255566255651_)) - (let ((_e255574255662_ + _tl255496255581_)) + (let ((_e255504255592_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl255566255651_)))) - (let ((_tl255572255667_ - (let () (declare (not safe)) (##cdr _e255574255662_))) - (_hd255573255665_ + (gx#stx-e _tl255496255581_)))) + (let ((_tl255502255597_ + (let () (declare (not safe)) (##cdr _e255504255592_))) + (_hd255503255595_ (let () (declare (not safe)) - (##car _e255574255662_)))) + (##car _e255504255592_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255572255667_)) + (gx#stx-null? _tl255502255597_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl255563255643_)) + (gx#stx-null? _tl255493255573_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255560255635_)) - (let ((_e255577255670_ + (gx#stx-pair? _tl255490255565_)) + (let ((_e255507255600_ (let () (declare (not safe)) - (gx#stx-e _tl255560255635_)))) - (let ((_tl255575255675_ + (gx#stx-e _tl255490255565_)))) + (let ((_tl255505255605_ (let () (declare (not safe)) - (##cdr _e255577255670_))) - (_hd255576255673_ + (##cdr _e255507255600_))) + (_hd255506255603_ (let () (declare (not safe)) - (##car _e255577255670_)))) + (##car _e255507255600_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255575255675_)) - (___kont260376260377_ - _hd255576255673_ - _hd255573255665_ - _hd255570255657_) + (gx#stx-null? _tl255505255605_)) + (___kont260306260307_ + _hd255506255603_ + _hd255503255595_ + _hd255500255587_) (let () (declare (not safe)) - (_g255551255617_))))) + (_g255481255547_))))) (let () (declare (not safe)) - (_g255551255617_))) - (let () (declare (not safe)) (_g255551255617_))) - (let () (declare (not safe)) (_g255551255617_))))) - (let () (declare (not safe)) (_g255551255617_))) + (_g255481255547_))) + (let () (declare (not safe)) (_g255481255547_))) + (let () (declare (not safe)) (_g255481255547_))))) + (let () (declare (not safe)) (_g255481255547_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255551255617_))))) + (_g255481255547_))))) (let () (declare (not safe)) - (_g255551255617_))))) + (_g255481255547_))))) (let () (declare (not safe)) - (_g255551255617_))))) - (let () (declare (not safe)) (_g255551255617_))))) - (let () (declare (not safe)) (_g255551255617_))) - (let () (declare (not safe)) (_g255551255617_))) + (_g255481255547_))))) + (let () (declare (not safe)) (_g255481255547_))))) + (let () (declare (not safe)) (_g255481255547_))) + (let () (declare (not safe)) (_g255481255547_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255551255617_))))) + (_g255481255547_))))) (let () (declare (not safe)) - (_g255551255617_)))))))) - (___kont260442260443_ - (lambda (_L255269_ _L255270_ _L255271_) - (let* ((___stx260258260259_ _L255270_) - (_g255298255347_ + (_g255481255547_)))))))) + (___kont260372260373_ + (lambda (_L255199_ _L255200_ _L255201_) + (let* ((___stx260188260189_ _L255200_) + (_g255228255277_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx260258260259_))))) - (let ((___kont260260260261_ - (lambda (_L255475_ - _L255476_ - _L255477_) - (let ((__tmp263353 - (let ((__tmp263354 - (let ((__tmp263355 + ___stx260188260189_))))) + (let ((___kont260190260191_ + (lambda (_L255405_ + _L255406_ + _L255407_) + (let ((__tmp263283 + (let ((__tmp263284 + (let ((__tmp263285 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263358 + (let ((__tmp263288 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp263356 - (let ((__tmp263357 + (__tmp263286 + (let ((__tmp263287 (let () (declare (not safe)) - (cons _L255475_ '())))) + (cons _L255405_ '())))) (declare (not safe)) - (cons '() __tmp263357)))) + (cons '() __tmp263287)))) (declare (not safe)) - (cons __tmp263358 __tmp263356)))) + (cons __tmp263288 __tmp263286)))) (declare (not safe)) - (cons _L255271_ __tmp263355)))) + (cons _L255201_ __tmp263285)))) (declare (not safe)) - (cons __tmp263354 _clauses255164_))) + (cons __tmp263284 _clauses255094_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp263350 - (let ((__tmp263351 - (let ((__tmp263352 + (__tmp263280 + (let ((__tmp263281 + (let ((__tmp263282 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L255476_)))) + (gxc#compile-e__0 _L255406_)))) (declare (not safe)) - (cons _L255477_ __tmp263352)))) + (cons _L255407_ __tmp263282)))) (declare (not safe)) - (cons __tmp263351 _konts255165_)))) + (cons __tmp263281 _konts255095_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp255160_ - _L255269_ - _negation255163_ - __tmp263353 - __tmp263350)))) - (___kont260262260263_ - (lambda (_L255376_) - (let ((__tmp263359 - (let ((__tmp263360 + (_lp255090_ + _L255199_ + _negation255093_ + __tmp263283 + __tmp263280)))) + (___kont260192260193_ + (lambda (_L255306_) + (let ((__tmp263289 + (let ((__tmp263290 (let () (declare (not safe)) (gxc#compile-e__0 - _L255376_)))) + _L255306_)))) (declare (not safe)) - (cons _L255271_ - __tmp263360)))) + (cons _L255201_ + __tmp263290)))) (declare (not safe)) - (_lp255160_ - _L255269_ - __tmp263359 - _clauses255164_ - _konts255165_))))) + (_lp255090_ + _L255199_ + __tmp263289 + _clauses255094_ + _konts255095_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx260258260259_)) - (let ((_e255305255395_ + (gx#stx-pair? ___stx260188260189_)) + (let ((_e255235255325_ (let () (declare (not safe)) (gx#stx-e - ___stx260258260259_)))) - (let ((_tl255303255400_ + ___stx260188260189_)))) + (let ((_tl255233255330_ (let () (declare (not safe)) - (##cdr _e255305255395_))) - (_hd255304255398_ + (##cdr _e255235255325_))) + (_hd255234255328_ (let () (declare (not safe)) - (##car _e255305255395_)))) + (##car _e255235255325_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd255304255398_)) + _hd255234255328_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd255304255398_)) + _hd255234255328_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255303255400_)) - (let ((_e255308255403_ + _tl255233255330_)) + (let ((_e255238255333_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl255303255400_)))) - (let ((_tl255306255408_ + (gx#stx-e _tl255233255330_)))) + (let ((_tl255236255338_ (let () (declare (not safe)) - (##cdr _e255308255403_))) - (_hd255307255406_ + (##cdr _e255238255333_))) + (_hd255237255336_ (let () (declare (not safe)) - (##car _e255308255403_)))) + (##car _e255238255333_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd255307255406_)) + (gx#stx-null? _hd255237255336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255306255408_)) - (let ((_e255311255411_ + (gx#stx-pair? _tl255236255338_)) + (let ((_e255241255341_ (let () (declare (not safe)) - (gx#stx-e _tl255306255408_)))) - (let ((_tl255309255416_ + (gx#stx-e _tl255236255338_)))) + (let ((_tl255239255346_ (let () (declare (not safe)) - (##cdr _e255311255411_))) - (_hd255310255414_ + (##cdr _e255241255341_))) + (_hd255240255344_ (let () (declare (not safe)) - (##car _e255311255411_)))) + (##car _e255241255341_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255310255414_)) - (let ((_e255314255419_ + (gx#stx-pair? _hd255240255344_)) + (let ((_e255244255349_ (let () (declare (not safe)) - (gx#stx-e _hd255310255414_)))) - (let ((_tl255312255424_ + (gx#stx-e _hd255240255344_)))) + (let ((_tl255242255354_ (let () (declare (not safe)) - (##cdr _e255314255419_))) - (_hd255313255422_ + (##cdr _e255244255349_))) + (_hd255243255352_ (let () (declare (not safe)) - (##car _e255314255419_)))) + (##car _e255244255349_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd255313255422_)) + _hd255243255352_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd255313255422_)) + _hd255243255352_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255312255424_)) - (let ((_e255317255427_ + _tl255242255354_)) + (let ((_e255247255357_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl255312255424_)))) - (let ((_tl255315255432_ - (let () (declare (not safe)) (##cdr _e255317255427_))) - (_hd255316255430_ - (let () (declare (not safe)) (##car _e255317255427_)))) + (gx#stx-e _tl255242255354_)))) + (let ((_tl255245255362_ + (let () (declare (not safe)) (##cdr _e255247255357_))) + (_hd255246255360_ + (let () (declare (not safe)) (##car _e255247255357_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255316255430_)) - (let ((_e255320255435_ + (gx#stx-pair? _hd255246255360_)) + (let ((_e255250255365_ (let () (declare (not safe)) - (gx#stx-e _hd255316255430_)))) - (let ((_tl255318255440_ + (gx#stx-e _hd255246255360_)))) + (let ((_tl255248255370_ (let () (declare (not safe)) - (##cdr _e255320255435_))) - (_hd255319255438_ + (##cdr _e255250255365_))) + (_hd255249255368_ (let () (declare (not safe)) - (##car _e255320255435_)))) + (##car _e255250255365_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255319255438_)) - (let ((_e255323255443_ + (gx#stx-pair? _hd255249255368_)) + (let ((_e255253255373_ (let () (declare (not safe)) - (gx#stx-e _hd255319255438_)))) - (let ((_tl255321255448_ + (gx#stx-e _hd255249255368_)))) + (let ((_tl255251255378_ (let () (declare (not safe)) - (##cdr _e255323255443_))) - (_hd255322255446_ + (##cdr _e255253255373_))) + (_hd255252255376_ (let () (declare (not safe)) - (##car _e255323255443_)))) + (##car _e255253255373_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255322255446_)) - (let ((_e255326255451_ + (gx#stx-pair? _hd255252255376_)) + (let ((_e255256255381_ (let () (declare (not safe)) - (gx#stx-e _hd255322255446_)))) - (let ((_tl255324255456_ + (gx#stx-e _hd255252255376_)))) + (let ((_tl255254255386_ (let () (declare (not safe)) - (##cdr _e255326255451_))) - (_hd255325255454_ + (##cdr _e255256255381_))) + (_hd255255255384_ (let () (declare (not safe)) - (##car _e255326255451_)))) + (##car _e255256255381_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255324255456_)) + _tl255254255386_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255321255448_)) - (let ((_e255329255459_ + _tl255251255378_)) + (let ((_e255259255389_ (let () (declare (not safe)) (gx#stx-e - _tl255321255448_)))) - (let ((_tl255327255464_ + _tl255251255378_)))) + (let ((_tl255257255394_ (let () (declare (not safe)) - (##cdr _e255329255459_))) - (_hd255328255462_ + (##cdr _e255259255389_))) + (_hd255258255392_ (let () (declare (not safe)) - (##car _e255329255459_)))) + (##car _e255259255389_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255327255464_)) + _tl255257255394_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl255318255440_)) + (gx#stx-null? _tl255248255370_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255315255432_)) - (let ((_e255332255467_ + (gx#stx-pair? _tl255245255362_)) + (let ((_e255262255397_ (let () (declare (not safe)) - (gx#stx-e _tl255315255432_)))) - (let ((_tl255330255472_ + (gx#stx-e _tl255245255362_)))) + (let ((_tl255260255402_ (let () (declare (not safe)) - (##cdr _e255332255467_))) - (_hd255331255470_ + (##cdr _e255262255397_))) + (_hd255261255400_ (let () (declare (not safe)) - (##car _e255332255467_)))) + (##car _e255262255397_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255330255472_)) + (gx#stx-null? _tl255260255402_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl255309255416_)) - (___kont260260260261_ - _hd255331255470_ - _hd255328255462_ - _hd255325255454_) + (gx#stx-null? _tl255239255346_)) + (___kont260190260191_ + _hd255261255400_ + _hd255258255392_ + _hd255255255384_) (let () (declare (not safe)) - (_g255298255347_))) + (_g255228255277_))) (let () (declare (not safe)) - (_g255298255347_))))) - (let () (declare (not safe)) (_g255298255347_))) - (let () (declare (not safe)) (_g255298255347_))) - (let () (declare (not safe)) (_g255298255347_))))) + (_g255228255277_))))) + (let () (declare (not safe)) (_g255228255277_))) + (let () (declare (not safe)) (_g255228255277_))) + (let () (declare (not safe)) (_g255228255277_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255298255347_))) + (_g255228255277_))) (let () (declare (not safe)) - (_g255298255347_))))) + (_g255228255277_))))) (let () (declare (not safe)) - (_g255298255347_))))) + (_g255228255277_))))) (let () (declare (not safe)) - (_g255298255347_))))) - (let () (declare (not safe)) (_g255298255347_))))) - (let () (declare (not safe)) (_g255298255347_))) + (_g255228255277_))))) + (let () (declare (not safe)) (_g255228255277_))))) + (let () (declare (not safe)) (_g255228255277_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255298255347_))) + (_g255228255277_))) (let () (declare (not safe)) - (_g255298255347_))))) + (_g255228255277_))))) (let () (declare (not safe)) - (_g255298255347_))))) - (let () (declare (not safe)) (_g255298255347_))) - (let () (declare (not safe)) (_g255298255347_))))) - (let () (declare (not safe)) (_g255298255347_))) + (_g255228255277_))))) + (let () (declare (not safe)) (_g255228255277_))) + (let () (declare (not safe)) (_g255228255277_))))) + (let () (declare (not safe)) (_g255228255277_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _hd255304255398_)) + (gx#stx-eq? '%#begin-annotation _hd255234255328_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255303255400_)) - (let ((_e255339255360_ + (gx#stx-pair? _tl255233255330_)) + (let ((_e255269255290_ (let () (declare (not safe)) - (gx#stx-e _tl255303255400_)))) - (let ((_tl255337255365_ + (gx#stx-e _tl255233255330_)))) + (let ((_tl255267255295_ (let () (declare (not safe)) - (##cdr _e255339255360_))) - (_hd255338255363_ + (##cdr _e255269255290_))) + (_hd255268255293_ (let () (declare (not safe)) - (##car _e255339255360_)))) + (##car _e255269255290_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd255338255363_)) + (gx#identifier? _hd255268255293_)) (if (let () (declare (not safe)) - (gx#stx-eq? '@match-else _hd255338255363_)) + (gx#stx-eq? '@match-else _hd255268255293_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255337255365_)) - (let ((_e255342255368_ + (gx#stx-pair? _tl255267255295_)) + (let ((_e255272255298_ (let () (declare (not safe)) - (gx#stx-e _tl255337255365_)))) - (let ((_tl255340255373_ + (gx#stx-e _tl255267255295_)))) + (let ((_tl255270255303_ (let () (declare (not safe)) - (##cdr _e255342255368_))) - (_hd255341255371_ + (##cdr _e255272255298_))) + (_hd255271255301_ (let () (declare (not safe)) - (##car _e255342255368_)))) + (##car _e255272255298_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255340255373_)) - (___kont260262260263_ - _hd255341255371_) + _tl255270255303_)) + (___kont260192260193_ + _hd255271255301_) (let () (declare (not safe)) - (_g255298255347_))))) + (_g255228255277_))))) (let () (declare (not safe)) - (_g255298255347_))) + (_g255228255277_))) (let () (declare (not safe)) - (_g255298255347_))) + (_g255228255277_))) (let () (declare (not safe)) - (_g255298255347_))))) - (let () (declare (not safe)) (_g255298255347_))) - (let () (declare (not safe)) (_g255298255347_)))) + (_g255228255277_))))) + (let () (declare (not safe)) (_g255228255277_))) + (let () (declare (not safe)) (_g255228255277_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255298255347_))))) + (_g255228255277_))))) (let () (declare (not safe)) - (_g255298255347_)))))))) + (_g255228255277_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx260438260439_)) - (let ((_e255173255514_ + (gx#stx-pair? ___stx260368260369_)) + (let ((_e255103255444_ (let () (declare (not safe)) - (gx#stx-e ___stx260438260439_)))) - (let ((_tl255171255519_ + (gx#stx-e ___stx260368260369_)))) + (let ((_tl255101255449_ (let () (declare (not safe)) - (##cdr _e255173255514_))) - (_hd255172255517_ + (##cdr _e255103255444_))) + (_hd255102255447_ (let () (declare (not safe)) - (##car _e255173255514_)))) + (##car _e255103255444_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd255172255517_)) + (gx#identifier? _hd255102255447_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _hd255172255517_)) + _hd255102255447_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255171255519_)) - (let ((_e255176255522_ + _tl255101255449_)) + (let ((_e255106255452_ (let () (declare (not safe)) (gx#stx-e - _tl255171255519_)))) - (let ((_tl255174255527_ + _tl255101255449_)))) + (let ((_tl255104255457_ (let () (declare (not safe)) - (##cdr _e255176255522_))) - (_hd255175255525_ + (##cdr _e255106255452_))) + (_hd255105255455_ (let () (declare (not safe)) - (##car _e255176255522_)))) + (##car _e255106255452_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd255175255525_)) + _hd255105255455_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _hd255175255525_)) + _hd255105255455_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl255174255527_)) - (let ((_e255179255530_ + (gx#stx-pair? _tl255104255457_)) + (let ((_e255109255460_ (let () (declare (not safe)) - (gx#stx-e _tl255174255527_)))) - (let ((_tl255177255535_ + (gx#stx-e _tl255104255457_)))) + (let ((_tl255107255465_ (let () (declare (not safe)) - (##cdr _e255179255530_))) - (_hd255178255533_ + (##cdr _e255109255460_))) + (_hd255108255463_ (let () (declare (not safe)) - (##car _e255179255530_)))) + (##car _e255109255460_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255177255535_)) - (___kont260440260441_ _hd255178255533_) + (gx#stx-null? _tl255107255465_)) + (___kont260370260371_ _hd255108255463_) (let () (declare (not safe)) - (_g255168255208_))))) - (let () (declare (not safe)) (_g255168255208_))) - (let () (declare (not safe)) (_g255168255208_))) - (let () (declare (not safe)) (_g255168255208_))))) + (_g255098255138_))))) + (let () (declare (not safe)) (_g255098255138_))) + (let () (declare (not safe)) (_g255098255138_))) + (let () (declare (not safe)) (_g255098255138_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255168255208_))) + (_g255098255138_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd255172255517_)) + _hd255102255447_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255171255519_)) - (let ((_e255188255221_ + _tl255101255449_)) + (let ((_e255118255151_ (let () (declare (not safe)) (gx#stx-e - _tl255171255519_)))) - (let ((_tl255186255226_ + _tl255101255449_)))) + (let ((_tl255116255156_ (let () (declare (not safe)) - (##cdr _e255188255221_))) - (_hd255187255224_ + (##cdr _e255118255151_))) + (_hd255117255154_ (let () (declare (not safe)) - (##car _e255188255221_)))) + (##car _e255118255151_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255187255224_)) - (let ((_e255191255229_ + _hd255117255154_)) + (let ((_e255121255159_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd255187255224_)))) - (let ((_tl255189255234_ + (gx#stx-e _hd255117255154_)))) + (let ((_tl255119255164_ (let () (declare (not safe)) - (##cdr _e255191255229_))) - (_hd255190255232_ + (##cdr _e255121255159_))) + (_hd255120255162_ (let () (declare (not safe)) - (##car _e255191255229_)))) + (##car _e255121255159_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255190255232_)) - (let ((_e255194255237_ + (gx#stx-pair? _hd255120255162_)) + (let ((_e255124255167_ (let () (declare (not safe)) - (gx#stx-e _hd255190255232_)))) - (let ((_tl255192255242_ + (gx#stx-e _hd255120255162_)))) + (let ((_tl255122255172_ (let () (declare (not safe)) - (##cdr _e255194255237_))) - (_hd255193255240_ + (##cdr _e255124255167_))) + (_hd255123255170_ (let () (declare (not safe)) - (##car _e255194255237_)))) + (##car _e255124255167_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255193255240_)) - (let ((_e255197255245_ + (gx#stx-pair? _hd255123255170_)) + (let ((_e255127255175_ (let () (declare (not safe)) - (gx#stx-e _hd255193255240_)))) - (let ((_tl255195255250_ + (gx#stx-e _hd255123255170_)))) + (let ((_tl255125255180_ (let () (declare (not safe)) - (##cdr _e255197255245_))) - (_hd255196255248_ + (##cdr _e255127255175_))) + (_hd255126255178_ (let () (declare (not safe)) - (##car _e255197255245_)))) + (##car _e255127255175_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255195255250_)) + (gx#stx-null? _tl255125255180_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255192255242_)) - (let ((_e255200255253_ + _tl255122255172_)) + (let ((_e255130255183_ (let () (declare (not safe)) (gx#stx-e - _tl255192255242_)))) - (let ((_tl255198255258_ + _tl255122255172_)))) + (let ((_tl255128255188_ (let () (declare (not safe)) - (##cdr _e255200255253_))) - (_hd255199255256_ + (##cdr _e255130255183_))) + (_hd255129255186_ (let () (declare (not safe)) - (##car _e255200255253_)))) + (##car _e255130255183_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255198255258_)) + _tl255128255188_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl255189255234_)) + _tl255119255164_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl255186255226_)) - (let ((_e255203255261_ + (gx#stx-pair? _tl255116255156_)) + (let ((_e255133255191_ (let () (declare (not safe)) - (gx#stx-e _tl255186255226_)))) - (let ((_tl255201255266_ + (gx#stx-e _tl255116255156_)))) + (let ((_tl255131255196_ (let () (declare (not safe)) - (##cdr _e255203255261_))) - (_hd255202255264_ + (##cdr _e255133255191_))) + (_hd255132255194_ (let () (declare (not safe)) - (##car _e255203255261_)))) + (##car _e255133255191_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255201255266_)) - (___kont260442260443_ - _hd255202255264_ - _hd255199255256_ - _hd255196255248_) + (gx#stx-null? _tl255131255196_)) + (___kont260372260373_ + _hd255132255194_ + _hd255129255186_ + _hd255126255178_) (let () (declare (not safe)) - (_g255168255208_))))) - (let () (declare (not safe)) (_g255168255208_))) - (let () (declare (not safe)) (_g255168255208_))) - (let () (declare (not safe)) (_g255168255208_))))) + (_g255098255138_))))) + (let () (declare (not safe)) (_g255098255138_))) + (let () (declare (not safe)) (_g255098255138_))) + (let () (declare (not safe)) (_g255098255138_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255168255208_))) + (_g255098255138_))) (let () (declare (not safe)) - (_g255168255208_))))) + (_g255098255138_))))) (let () (declare (not safe)) - (_g255168255208_))))) - (let () (declare (not safe)) (_g255168255208_))))) - (let () (declare (not safe)) (_g255168255208_))))) + (_g255098255138_))))) + (let () (declare (not safe)) (_g255098255138_))))) + (let () (declare (not safe)) (_g255098255138_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255168255208_))) + (_g255098255138_))) (let () (declare (not safe)) - (_g255168255208_)))) + (_g255098255138_)))) (let () (declare (not safe)) - (_g255168255208_))))) + (_g255098255138_))))) (let () (declare (not safe)) - (_g255168255208_))))))) - _hd255067255129_ - _hd255064255121_ - _hd255061255113_) + (_g255098255138_))))))) + _hd254997255059_ + _hd254994255051_ + _hd254991255043_) (let () (declare (not safe)) - (_g255043255073_ _g255044255076_))))) + (_g254973255003_ _g254974255006_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255043255073_ - _g255044255076_))) + (_g254973255003_ + _g254974255006_))) (let () (declare (not safe)) - (_g255043255073_ - _g255044255076_))) + (_g254973255003_ + _g254974255006_))) (let () (declare (not safe)) - (_g255043255073_ - _g255044255076_))))) + (_g254973255003_ + _g254974255006_))))) (let () (declare (not safe)) - (_g255043255073_ _g255044255076_))) + (_g254973255003_ _g254974255006_))) (let () (declare (not safe)) - (_g255043255073_ _g255044255076_))))) + (_g254973255003_ _g254974255006_))))) (let () (declare (not safe)) - (_g255043255073_ _g255044255076_))))) + (_g254973255003_ _g254974255006_))))) (let () (declare (not safe)) - (_g255043255073_ _g255044255076_))))) + (_g254973255003_ _g254974255006_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255043255073_ - _g255044255076_))))) + (_g254973255003_ + _g254974255006_))))) (let () (declare (not safe)) - (_g255043255073_ _g255044255076_))) + (_g254973255003_ _g254974255006_))) (let () (declare (not safe)) - (_g255043255073_ _g255044255076_))) + (_g254973255003_ _g254974255006_))) (let () (declare (not safe)) - (_g255043255073_ _g255044255076_))))) + (_g254973255003_ _g254974255006_))))) (let () (declare (not safe)) - (_g255043255073_ _g255044255076_)))))) + (_g254973255003_ _g254974255006_)))))) (declare (not safe)) - (_g255042255739_ _stx255041_)))) + (_g254972255669_ _stx254971_)))) (define gxc#optimize-match-body - (lambda (_stx254747_ _negation254748_ _clauses254749_ _konts254750_) - (letrec ((_push-variables254752_ - (lambda (_clause254999_ _kont255000_) - (let ((_clause255001255011_ _clause254999_) - (_kont255002255013_ _kont255000_)) - (let* ((_E255004255017_ + (lambda (_stx254677_ _negation254678_ _clauses254679_ _konts254680_) + (letrec ((_push-variables254682_ + (lambda (_clause254929_ _kont254930_) + (let ((_clause254931254941_ _clause254929_) + (_kont254932254943_ _kont254930_)) + (let* ((_E254934254947_ (lambda () (error '"No clause matching" - _clause255001255011_ - _kont255002255013_))) - (_K255005255024_ - (lambda (_clause-lambda255020_ - _clause-name255021_ - _K255022_) - (let ((__tmp263361 + _clause254931254941_ + _kont254932254943_))) + (_K254935254954_ + (lambda (_clause-lambda254950_ + _clause-name254951_ + _K254952_) + (let ((__tmp263291 (let () (declare (not safe)) (gxc#apply-push-match-vars - _clause-lambda255020_ + _clause-lambda254950_ '() - _K255022_)))) + _K254952_)))) (declare (not safe)) - (cons _clause-name255021_ __tmp263361))))) + (cons _clause-name254951_ __tmp263291))))) (if (let () (declare (not safe)) - (##pair? _clause255001255011_)) - (let ((_hd255008255027_ + (##pair? _clause254931254941_)) + (let ((_hd254938254957_ (let () (declare (not safe)) - (##car _clause255001255011_))) - (_tl255009255029_ + (##car _clause254931254941_))) + (_tl254939254959_ (let () (declare (not safe)) - (##cdr _clause255001255011_)))) - (let* ((_clause-name255032_ _hd255008255027_) - (_clause-lambda255034_ _tl255009255029_)) + (##cdr _clause254931254941_)))) + (let* ((_clause-name254962_ _hd254938254957_) + (_clause-lambda254964_ _tl254939254959_)) (if (let () (declare (not safe)) - (##pair? _kont255002255013_)) - (let* ((_hd255006255036_ + (##pair? _kont254932254943_)) + (let* ((_hd254936254966_ (let () (declare (not safe)) - (##car _kont255002255013_))) - (_K255039_ _hd255006255036_)) + (##car _kont254932254943_))) + (_K254969_ _hd254936254966_)) (declare (not safe)) - (_K255005255024_ - _clause-lambda255034_ - _clause-name255032_ - _K255039_)) + (_K254935254954_ + _clause-lambda254964_ + _clause-name254962_ + _K254969_)) (let () (declare (not safe)) - (_E255004255017_))))) + (_E254934254947_))))) (let () (declare (not safe)) - (_E255004255017_))))))) - (_start-match254753_ - (lambda (_kont254933_) - (let* ((_g254935254951_ - (lambda (_g254936254948_) + (_E254934254947_))))))) + (_start-match254683_ + (lambda (_kont254863_) + (let* ((_g254865254881_ + (lambda (_g254866254878_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g254936254948_)))) - (_g254934254996_ - (lambda (_g254936254954_) + _g254866254878_)))) + (_g254864254926_ + (lambda (_g254866254884_) (if (let () (declare (not safe)) - (gx#stx-pair? _g254936254954_)) - (let ((_e254940254956_ + (gx#stx-pair? _g254866254884_)) + (let ((_e254870254886_ (let () (declare (not safe)) - (gx#stx-e _g254936254954_)))) - (let ((_hd254939254959_ + (gx#stx-e _g254866254884_)))) + (let ((_hd254869254889_ (let () (declare (not safe)) - (##car _e254940254956_))) - (_tl254938254961_ + (##car _e254870254886_))) + (_tl254868254891_ (let () (declare (not safe)) - (##cdr _e254940254956_)))) + (##cdr _e254870254886_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd254939254959_)) + (gx#identifier? _hd254869254889_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd254939254959_)) + _hd254869254889_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254938254961_)) - (let ((_e254943254964_ + _tl254868254891_)) + (let ((_e254873254894_ (let () (declare (not safe)) (gx#stx-e - _tl254938254961_)))) - (let ((_hd254942254967_ + _tl254868254891_)))) + (let ((_hd254872254897_ (let () (declare (not safe)) - (##car _e254943254964_))) - (_tl254941254969_ + (##car _e254873254894_))) + (_tl254871254899_ (let () (declare (not safe)) - (##cdr _e254943254964_)))) + (##cdr _e254873254894_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd254942254967_)) + _hd254872254897_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl254941254969_)) - (let ((_e254946254972_ + (gx#stx-pair? _tl254871254899_)) + (let ((_e254876254902_ (let () (declare (not safe)) - (gx#stx-e _tl254941254969_)))) - (let ((_hd254945254975_ + (gx#stx-e _tl254871254899_)))) + (let ((_hd254875254905_ (let () (declare (not safe)) - (##car _e254946254972_))) - (_tl254944254977_ + (##car _e254876254902_))) + (_tl254874254907_ (let () (declare (not safe)) - (##cdr _e254946254972_)))) + (##cdr _e254876254902_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254944254977_)) - ((lambda (_L254980_) _L254980_) _hd254945254975_) + (gx#stx-null? _tl254874254907_)) + ((lambda (_L254910_) _L254910_) _hd254875254905_) (let () (declare (not safe)) - (_g254935254951_ _g254936254954_))))) + (_g254865254881_ _g254866254884_))))) (let () (declare (not safe)) - (_g254935254951_ _g254936254954_))) + (_g254865254881_ _g254866254884_))) (let () (declare (not safe)) - (_g254935254951_ _g254936254954_))))) + (_g254865254881_ _g254866254884_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g254935254951_ - _g254936254954_))) + (_g254865254881_ + _g254866254884_))) (let () (declare (not safe)) - (_g254935254951_ - _g254936254954_))) + (_g254865254881_ + _g254866254884_))) (let () (declare (not safe)) - (_g254935254951_ - _g254936254954_))))) + (_g254865254881_ + _g254866254884_))))) (let () (declare (not safe)) - (_g254935254951_ _g254936254954_)))))) + (_g254865254881_ _g254866254884_)))))) (declare (not safe)) - (_g254934254996_ _kont254933_)))) - (_match-body254754_ - (lambda (_blocks254830_) - (let* ((_blocks254831254840_ _blocks254830_) - (_E254833254844_ + (_g254864254926_ _kont254863_)))) + (_match-body254684_ + (lambda (_blocks254760_) + (let* ((_blocks254761254770_ _blocks254760_) + (_E254763254774_ (lambda () (error '"No clause matching" - _blocks254831254840_))) - (_K254834254916_ - (lambda (_rest254847_ _start254848_) - (let _lp254850_ ((_rest254852_ _rest254847_) - (_body254853_ + _blocks254761254770_))) + (_K254764254846_ + (lambda (_rest254777_ _start254778_) + (let _lp254780_ ((_rest254782_ _rest254777_) + (_body254783_ (let () (declare (not safe)) - (_start-match254753_ - _start254848_)))) - (let* ((_rest254854254862_ _rest254852_) - (_else254856254870_ - (lambda () _body254853_)) - (_K254858254904_ - (lambda (_rest254873_ _block254874_) - (let* ((_block254875254882_ - _block254874_) - (_E254877254886_ + (_start-match254683_ + _start254778_)))) + (let* ((_rest254784254792_ _rest254782_) + (_else254786254800_ + (lambda () _body254783_)) + (_K254788254834_ + (lambda (_rest254803_ _block254804_) + (let* ((_block254805254812_ + _block254804_) + (_E254807254816_ (lambda () (error '"No clause matching" - _block254875254882_))) - (_K254878254892_ - (lambda (_kont254889_ - _K254890_) - (let ((__tmp263362 - (let ((__tmp263363 + _block254805254812_))) + (_K254808254822_ + (lambda (_kont254819_ + _K254820_) + (let ((__tmp263292 + (let ((__tmp263293 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263365 - (let ((__tmp263366 - (let ((__tmp263368 + (let ((__tmp263295 + (let ((__tmp263296 + (let ((__tmp263298 (let () (declare (not safe)) - (cons _K254890_ '()))) - (__tmp263367 + (cons _K254820_ '()))) + (__tmp263297 (let () (declare (not safe)) - (cons _kont254889_ '())))) + (cons _kont254819_ '())))) (declare (not safe)) - (cons __tmp263368 __tmp263367)))) + (cons __tmp263298 __tmp263297)))) (declare (not safe)) - (cons __tmp263366 '()))) - (__tmp263364 + (cons __tmp263296 '()))) + (__tmp263294 (let () (declare (not safe)) - (cons _body254853_ '())))) + (cons _body254783_ '())))) (declare (not safe)) - (cons __tmp263365 __tmp263364)))) + (cons __tmp263295 __tmp263294)))) (declare (not safe)) - (cons '%#let-values __tmp263363)))) + (cons '%#let-values __tmp263293)))) (declare (not safe)) - (_lp254850_ _rest254873_ __tmp263362))))) + (_lp254780_ _rest254803_ __tmp263292))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _block254875254882_)) - (let ((_hd254879254895_ + (##pair? _block254805254812_)) + (let ((_hd254809254825_ (let () (declare (not safe)) - (##car _block254875254882_))) - (_tl254880254897_ + (##car _block254805254812_))) + (_tl254810254827_ (let () (declare (not safe)) - (##cdr _block254875254882_)))) - (let* ((_K254900_ - _hd254879254895_) - (_kont254902_ - _tl254880254897_)) + (##cdr _block254805254812_)))) + (let* ((_K254830_ + _hd254809254825_) + (_kont254832_ + _tl254810254827_)) (declare (not safe)) - (_K254878254892_ - _kont254902_ - _K254900_))) + (_K254808254822_ + _kont254832_ + _K254830_))) (let () (declare (not safe)) - (_E254877254886_))))))) + (_E254807254816_))))))) (if (let () (declare (not safe)) - (##pair? _rest254854254862_)) - (let ((_hd254859254907_ + (##pair? _rest254784254792_)) + (let ((_hd254789254837_ (let () (declare (not safe)) - (##car _rest254854254862_))) - (_tl254860254909_ + (##car _rest254784254792_))) + (_tl254790254839_ (let () (declare (not safe)) - (##cdr _rest254854254862_)))) - (let* ((_block254912_ _hd254859254907_) - (_rest254914_ _tl254860254909_)) + (##cdr _rest254784254792_)))) + (let* ((_block254842_ _hd254789254837_) + (_rest254844_ _tl254790254839_)) (declare (not safe)) - (_K254858254904_ - _rest254914_ - _block254912_))) + (_K254788254834_ + _rest254844_ + _block254842_))) (let () (declare (not safe)) - (_else254856254870_)))))))) + (_else254786254800_)))))))) (if (let () (declare (not safe)) - (##pair? _blocks254831254840_)) - (let ((_hd254835254919_ + (##pair? _blocks254761254770_)) + (let ((_hd254765254849_ (let () (declare (not safe)) - (##car _blocks254831254840_))) - (_tl254836254921_ + (##car _blocks254761254770_))) + (_tl254766254851_ (let () (declare (not safe)) - (##cdr _blocks254831254840_)))) + (##cdr _blocks254761254770_)))) (if (let () (declare (not safe)) - (##pair? _hd254835254919_)) - (let ((_hd254837254924_ + (##pair? _hd254765254849_)) + (let ((_hd254767254854_ (let () (declare (not safe)) - (##car _hd254835254919_))) - (_tl254838254926_ + (##car _hd254765254849_))) + (_tl254768254856_ (let () (declare (not safe)) - (##cdr _hd254835254919_)))) + (##cdr _hd254765254849_)))) (if (let () (declare (not safe)) - (##eq? _hd254837254924_ '#f)) - (let* ((_start254929_ _tl254838254926_) - (_rest254931_ _tl254836254921_)) + (##eq? _hd254767254854_ '#f)) + (let* ((_start254859_ _tl254768254856_) + (_rest254861_ _tl254766254851_)) (declare (not safe)) - (_K254834254916_ - _rest254931_ - _start254929_)) + (_K254764254846_ + _rest254861_ + _start254859_)) (let () (declare (not safe)) - (_E254833254844_)))) + (_E254763254774_)))) (let () (declare (not safe)) - (_E254833254844_)))) - (let () (declare (not safe)) (_E254833254844_))))))) - (let ((__tmp263370 + (_E254763254774_)))) + (let () (declare (not safe)) (_E254763254774_))))))) + (let ((__tmp263300 (lambda () - (let* ((_clauses254757_ - (map _push-variables254752_ - _clauses254749_ - _konts254750_)) - (_blocks254759_ + (let* ((_clauses254687_ + (map _push-variables254682_ + _clauses254679_ + _konts254680_)) + (_blocks254689_ (let () (declare (not safe)) (gxc#optimize-match-basic-blocks - _clauses254757_))) - (_blocks254761_ + _clauses254687_))) + (_blocks254691_ (let () (declare (not safe)) (gxc#optimize-match-fold-basic-blocks - _blocks254759_))) - (_body254763_ + _blocks254689_))) + (_body254693_ (let () (declare (not safe)) - (_match-body254754_ _blocks254761_))) - (_bind254797_ - (map (lambda (_e254764254766_) - (let* ((_g254768254775_ _e254764254766_) - (_E254770254779_ + (_match-body254684_ _blocks254691_))) + (_bind254727_ + (map (lambda (_e254694254696_) + (let* ((_g254698254705_ _e254694254696_) + (_E254700254709_ (lambda () (error '"No clause matching" - _g254768254775_))) - (_K254771254785_ - (lambda (_kont254782_ _K254783_) - (let ((__tmp263372 + _g254698254705_))) + (_K254701254715_ + (lambda (_kont254712_ _K254713_) + (let ((__tmp263302 (let () (declare (not safe)) - (cons _K254783_ '()))) - (__tmp263371 + (cons _K254713_ '()))) + (__tmp263301 (let () (declare (not safe)) - (cons _kont254782_ '())))) + (cons _kont254712_ '())))) (declare (not safe)) - (cons __tmp263372 - __tmp263371))))) + (cons __tmp263302 + __tmp263301))))) (if (let () (declare (not safe)) - (##pair? _g254768254775_)) - (let ((_hd254772254788_ + (##pair? _g254698254705_)) + (let ((_hd254702254718_ (let () (declare (not safe)) - (##car _g254768254775_))) - (_tl254773254790_ + (##car _g254698254705_))) + (_tl254703254720_ (let () (declare (not safe)) - (##cdr _g254768254775_)))) - (let* ((_K254793_ _hd254772254788_) - (_kont254795_ - _tl254773254790_)) + (##cdr _g254698254705_)))) + (let* ((_K254723_ _hd254702254718_) + (_kont254725_ + _tl254703254720_)) (declare (not safe)) - (_K254771254785_ - _kont254795_ - _K254793_))) + (_K254701254715_ + _kont254725_ + _K254723_))) (let () (declare (not safe)) - (_E254770254779_))))) - _konts254750_)) - (_negate254827_ - (let* ((_negation254798254805_ _negation254748_) - (_E254800254809_ + (_E254700254709_))))) + _konts254680_)) + (_negate254757_ + (let* ((_negation254728254735_ _negation254678_) + (_E254730254739_ (lambda () (error '"No clause matching" - _negation254798254805_))) - (_K254801254815_ - (lambda (_kont254812_ _K254813_) - (let ((__tmp263374 + _negation254728254735_))) + (_K254731254745_ + (lambda (_kont254742_ _K254743_) + (let ((__tmp263304 (let () (declare (not safe)) - (cons _K254813_ '()))) - (__tmp263373 + (cons _K254743_ '()))) + (__tmp263303 (let () (declare (not safe)) - (cons _kont254812_ '())))) + (cons _kont254742_ '())))) (declare (not safe)) - (cons __tmp263374 __tmp263373))))) + (cons __tmp263304 __tmp263303))))) (if (let () (declare (not safe)) - (##pair? _negation254798254805_)) - (let ((_hd254802254818_ + (##pair? _negation254728254735_)) + (let ((_hd254732254748_ (let () (declare (not safe)) - (##car _negation254798254805_))) - (_tl254803254820_ + (##car _negation254728254735_))) + (_tl254733254750_ (let () (declare (not safe)) - (##cdr _negation254798254805_)))) - (let* ((_K254823_ _hd254802254818_) - (_kont254825_ _tl254803254820_)) + (##cdr _negation254728254735_)))) + (let* ((_K254753_ _hd254732254748_) + (_kont254755_ _tl254733254750_)) (declare (not safe)) - (_K254801254815_ _kont254825_ _K254823_))) + (_K254731254745_ _kont254755_ _K254753_))) (let () (declare (not safe)) - (_E254800254809_)))))) - (let ((__tmp263375 - (let ((__tmp263376 - (let ((__tmp263381 + (_E254730254739_)))))) + (let ((__tmp263305 + (let ((__tmp263306 + (let ((__tmp263311 (let () (declare (not safe)) - (cons _negate254827_ '()))) - (__tmp263377 - (let ((__tmp263378 - (let ((__tmp263379 - (let ((__tmp263380 + (cons _negate254757_ '()))) + (__tmp263307 + (let ((__tmp263308 + (let ((__tmp263309 + (let ((__tmp263310 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body254763_ '())))) + (cons _body254693_ '())))) (declare (not safe)) - (cons _bind254797_ __tmp263380)))) + (cons _bind254727_ __tmp263310)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp263379)))) + __tmp263309)))) (declare (not safe)) - (cons __tmp263378 '())))) + (cons __tmp263308 '())))) (declare (not safe)) - (cons __tmp263381 __tmp263377)))) + (cons __tmp263311 __tmp263307)))) (declare (not safe)) - (cons '%#let-values __tmp263376)))) + (cons '%#let-values __tmp263306)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp263375 _stx254747_))))) - (__tmp263369 - (let ((__obj263303 (make-object* gx#local-context::t '6))) - (gx#local-context:::init! __obj263303) - __obj263303))) + (gxc#xform-wrap-source __tmp263305 _stx254677_))))) + (__tmp263299 + (let ((__obj263233 (make-object gx#local-context::t '6))) + (gx#local-context:::init! __obj263233) + __obj263233))) (declare (not safe)) (call-with-parameters - __tmp263370 + __tmp263300 gx#current-expander-context - __tmp263369))))) + __tmp263299))))) (define gxc#optimize-match-basic-blocks - (lambda (_clauses254707_) - (let _lp254709_ ((_rest254711_ _clauses254707_) (_blocks254712_ '())) - (let* ((_rest254713254721_ _rest254711_) - (_else254715254729_ (lambda () (reverse _blocks254712_))) - (_K254717254735_ - (lambda (_rest254732_ _clause254733_) - (let ((__tmp263382 + (lambda (_clauses254637_) + (let _lp254639_ ((_rest254641_ _clauses254637_) (_blocks254642_ '())) + (let* ((_rest254643254651_ _rest254641_) + (_else254645254659_ (lambda () (reverse _blocks254642_))) + (_K254647254665_ + (lambda (_rest254662_ _clause254663_) + (let ((__tmp263312 (let () (declare (not safe)) (gxc#optimize-match-lift-basic-blocks - _clause254733_ - _blocks254712_)))) + _clause254663_ + _blocks254642_)))) (declare (not safe)) - (_lp254709_ _rest254732_ __tmp263382))))) - (if (let () (declare (not safe)) (##pair? _rest254713254721_)) - (let ((_hd254718254738_ + (_lp254639_ _rest254662_ __tmp263312))))) + (if (let () (declare (not safe)) (##pair? _rest254643254651_)) + (let ((_hd254648254668_ (let () (declare (not safe)) - (##car _rest254713254721_))) - (_tl254719254740_ + (##car _rest254643254651_))) + (_tl254649254670_ (let () (declare (not safe)) - (##cdr _rest254713254721_)))) - (let* ((_clause254743_ _hd254718254738_) - (_rest254745_ _tl254719254740_)) + (##cdr _rest254643254651_)))) + (let* ((_clause254673_ _hd254648254668_) + (_rest254675_ _tl254649254670_)) (declare (not safe)) - (_K254717254735_ _rest254745_ _clause254743_))) - (let () (declare (not safe)) (_else254715254729_))))))) + (_K254647254665_ _rest254675_ _clause254673_))) + (let () (declare (not safe)) (_else254645254659_))))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_clause254051_ _blocks254052_) - (letrec ((_bind->args254054_ - (lambda (_bind254702_) - (let ((__tmp263383 - (lambda (_b254704_ _r254705_) - (let ((__tmp263384 - (let ((__tmp263385 - (let ((__tmp263386 (car _b254704_))) + (lambda (_clause253981_ _blocks253982_) + (letrec ((_bind->args253984_ + (lambda (_bind254632_) + (let ((__tmp263313 + (lambda (_b254634_ _r254635_) + (let ((__tmp263314 + (let ((__tmp263315 + (let ((__tmp263316 (car _b254634_))) (declare (not safe)) - (cons __tmp263386 '())))) + (cons __tmp263316 '())))) (declare (not safe)) - (cons '%#ref __tmp263385)))) + (cons '%#ref __tmp263315)))) (declare (not safe)) - (cons __tmp263384 _r254705_))))) + (cons __tmp263314 _r254635_))))) (declare (not safe)) - (foldl1 __tmp263383 '() _bind254702_)))) - (_create-block254055_ - (lambda (_body254651_ - _let-bind254652_ - _bind254653_ - _assert254654_) - (let* ((_id254656_ - (let ((__tmp263387 (gensym '__match))) + (foldl1 __tmp263313 '() _bind254632_)))) + (_create-block253985_ + (lambda (_body254581_ + _let-bind254582_ + _bind254583_ + _assert254584_) + (let* ((_id254586_ + (let ((__tmp263317 (gensym '__match))) (declare (not safe)) - (make-symbol__0 __tmp263387))) - (_id254658_ + (make-symbol__0 __tmp263317))) + (_id254588_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id254656_))) - (_g263388_ + (gx#core-quote-syntax__0 _id254586_))) + (_g263318_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id254658_))) - (_block254661_ - (let ((__tmp263389 - (let ((__tmp263390 - (let ((__tmp263391 + (gx#core-bind-runtime!__0 _id254588_))) + (_block254591_ + (let ((__tmp263319 + (let ((__tmp263320 + (let ((__tmp263321 (let () (declare (not safe)) - (cons _assert254654_ '())))) + (cons _assert254584_ '())))) (declare (not safe)) - (cons _bind254653_ __tmp263391)))) + (cons _bind254583_ __tmp263321)))) (declare (not safe)) - (cons _body254651_ __tmp263390)))) + (cons _body254581_ __tmp263320)))) (declare (not safe)) - (cons _id254658_ __tmp263389))) - (_continue254663_ - (let ((__tmp263392 - (let ((__tmp263394 - (let ((__tmp263395 + (cons _id254588_ __tmp263319))) + (_continue254593_ + (let ((__tmp263322 + (let ((__tmp263324 + (let ((__tmp263325 (let () (declare (not safe)) - (cons _id254658_ '())))) + (cons _id254588_ '())))) (declare (not safe)) - (cons '%#ref __tmp263395))) - (__tmp263393 + (cons '%#ref __tmp263325))) + (__tmp263323 (let () (declare (not safe)) - (_bind->args254054_ - _bind254653_)))) + (_bind->args253984_ + _bind254583_)))) (declare (not safe)) - (cons __tmp263394 __tmp263393)))) + (cons __tmp263324 __tmp263323)))) (declare (not safe)) - (cons '%#call __tmp263392))) - (_continue254699_ + (cons '%#call __tmp263322))) + (_continue254629_ (if (let () (declare (not safe)) - (null? _let-bind254652_)) - _continue254663_ - (let* ((_locals254697_ - (map (lambda (_e254664254666_) - (let* ((_g254668254675_ - _e254664254666_) - (_E254670254679_ + (null? _let-bind254582_)) + _continue254593_ + (let* ((_locals254627_ + (map (lambda (_e254594254596_) + (let* ((_g254598254605_ + _e254594254596_) + (_E254600254609_ (lambda () (error '"No clause matching" - _g254668254675_))) - (_K254671254685_ - (lambda (_expr254682_ - _id254683_) - (let ((__tmp263397 + _g254598254605_))) + (_K254601254615_ + (lambda (_expr254612_ + _id254613_) + (let ((__tmp263327 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _id254683_ '()))) - (__tmp263396 - (let () (declare (not safe)) (cons _expr254682_ '())))) + (cons _id254613_ '()))) + (__tmp263326 + (let () (declare (not safe)) (cons _expr254612_ '())))) (declare (not safe)) - (cons __tmp263397 __tmp263396))))) + (cons __tmp263327 __tmp263326))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g254668254675_)) - (let ((_hd254672254688_ + (##pair? _g254598254605_)) + (let ((_hd254602254618_ (let () (declare (not safe)) - (##car _g254668254675_))) - (_tl254673254690_ + (##car _g254598254605_))) + (_tl254603254620_ (let () (declare (not safe)) - (##cdr _g254668254675_)))) - (let* ((_id254693_ - _hd254672254688_) - (_expr254695_ - _tl254673254690_)) + (##cdr _g254598254605_)))) + (let* ((_id254623_ + _hd254602254618_) + (_expr254625_ + _tl254603254620_)) (declare (not safe)) - (_K254671254685_ - _expr254695_ - _id254693_))) + (_K254601254615_ + _expr254625_ + _id254623_))) (let () (declare (not safe)) - (_E254670254679_))))) - _let-bind254652_)) - (__tmp263398 - (let ((__tmp263399 + (_E254600254609_))))) + _let-bind254582_)) + (__tmp263328 + (let ((__tmp263329 (let () (declare (not safe)) - (cons _continue254663_ '())))) + (cons _continue254593_ '())))) (declare (not safe)) - (cons _locals254697_ __tmp263399)))) + (cons _locals254627_ __tmp263329)))) (declare (not safe)) - (cons '%#let-values __tmp263398))))) - (values _continue254699_ _block254661_)))) - (_basic-block254056_ - (lambda (_body254237_ _bind254238_ _assert254239_) - (let* ((___stx260546260547_ _body254237_) - (_g254244254328_ + (cons '%#let-values __tmp263328))))) + (values _continue254629_ _block254591_)))) + (_basic-block253986_ + (lambda (_body254167_ _bind254168_ _assert254169_) + (let* ((___stx260476260477_ _body254167_) + (_g254174254258_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx260546260547_))))) - (let ((___kont260548260549_ - (lambda (_L254587_ _L254588_ _L254589_) - (let ((_g263400_ - (let ((__tmp263402 - (let ((__tmp263403 + ___stx260476260477_))))) + (let ((___kont260478260479_ + (lambda (_L254517_ _L254518_ _L254519_) + (let ((_g263330_ + (let ((__tmp263332 + (let ((__tmp263333 (let () (declare (not safe)) - (cons _L254589_ '#t)))) + (cons _L254519_ '#t)))) (declare (not safe)) - (cons __tmp263403 - _assert254239_)))) + (cons __tmp263333 + _assert254169_)))) (declare (not safe)) - (_create-block254055_ - _L254588_ + (_create-block253985_ + _L254518_ '() - _bind254238_ - __tmp263402)))) + _bind254168_ + __tmp263332)))) (begin - (let ((_g263401_ + (let ((_g263331_ (let () (declare (not safe)) - (if (##values? _g263400_) - (##vector-length _g263400_) + (if (##values? _g263330_) + (##vector-length _g263330_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263401_ 2))) + (##fx= _g263331_ 2))) (error "Context expects 2 values" - _g263401_))) - (let ((_k-continue254607_ + _g263331_))) + (let ((_k-continue254537_ (let () (declare (not safe)) - (##vector-ref _g263400_ 0))) - (_k-block254608_ + (##vector-ref _g263330_ 0))) + (_k-block254538_ (let () (declare (not safe)) - (##vector-ref _g263400_ 1)))) - (let* ((___stx260528260529_ _L254587_) - (_g254611254620_ + (##vector-ref _g263330_ 1)))) + (let* ((___stx260458260459_ _L254517_) + (_g254541254550_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx260528260529_))))) - (let ((___kont260530260531_ + ___stx260458260459_))))) + (let ((___kont260460260461_ (lambda () - (values (let ((__tmp263404 - (let ((__tmp263405 + (values (let ((__tmp263334 + (let ((__tmp263335 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263406 + (let ((__tmp263336 (let () (declare (not safe)) - (cons _L254587_ '())))) + (cons _L254517_ '())))) (declare (not safe)) - (cons _k-continue254607_ __tmp263406)))) + (cons _k-continue254537_ __tmp263336)))) (declare (not safe)) - (cons _L254589_ __tmp263405)))) + (cons _L254519_ __tmp263335)))) (declare (not safe)) - (cons '%#if __tmp263404)) - (let () (declare (not safe)) (cons _k-block254608_ '()))))) + (cons '%#if __tmp263334)) + (let () (declare (not safe)) (cons _k-block254538_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260532260533_ + (___kont260462260463_ (lambda () - (let ((_g263407_ - (let ((__tmp263409 - (let ((__tmp263410 + (let ((_g263337_ + (let ((__tmp263339 + (let ((__tmp263340 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L254589_ '#f)))) + (cons _L254519_ '#f)))) (declare (not safe)) - (cons __tmp263410 _assert254239_)))) + (cons __tmp263340 _assert254169_)))) (declare (not safe)) - (_create-block254055_ - _L254587_ + (_create-block253985_ + _L254517_ '() - _bind254238_ - __tmp263409)))) + _bind254168_ + __tmp263339)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g263408_ + (let ((_g263338_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g263407_) - (##vector-length _g263407_) + _g263337_) + (##vector-length _g263337_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g263408_ 2))) - (error "Context expects 2 values" _g263408_))) + (if (not (let () (declare (not safe)) (##fx= _g263338_ 2))) + (error "Context expects 2 values" _g263338_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e-continue254627_ + (let ((_e-continue254557_ (let () (declare (not safe)) (##vector-ref - _g263407_ + _g263337_ 0))) - (_e-block254628_ + (_e-block254558_ (let () (declare (not safe)) (##vector-ref - _g263407_ + _g263337_ 1)))) - (values (let ((__tmp263411 + (values (let ((__tmp263341 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263412 - (let ((__tmp263413 + (let ((__tmp263342 + (let ((__tmp263343 (let () (declare (not safe)) - (cons _e-continue254627_ '())))) + (cons _e-continue254557_ '())))) (declare (not safe)) - (cons _k-continue254607_ __tmp263413)))) + (cons _k-continue254537_ __tmp263343)))) (declare (not safe)) - (cons _L254589_ __tmp263412)))) + (cons _L254519_ __tmp263342)))) (declare (not safe)) - (cons '%#if __tmp263411)) - (let ((__tmp263414 + (cons '%#if __tmp263341)) + (let ((__tmp263344 (let () (declare (not safe)) - (cons _e-block254628_ '())))) + (cons _e-block254558_ '())))) (declare (not safe)) - (cons _k-block254608_ __tmp263414))))))))) + (cons _k-block254538_ __tmp263344))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx260528260529_)) - (let ((_e254615254635_ + ___stx260458260459_)) + (let ((_e254545254565_ (let () (declare (not safe)) (gx#stx-e - ___stx260528260529_)))) - (let ((_tl254613254640_ + ___stx260458260459_)))) + (let ((_tl254543254570_ (let () (declare (not safe)) - (##cdr _e254615254635_))) - (_hd254614254638_ + (##cdr _e254545254565_))) + (_hd254544254568_ (let () (declare (not safe)) - (##car _e254615254635_)))) + (##car _e254545254565_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd254614254638_)) + _hd254544254568_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd254614254638_)) - (___kont260530260531_) - (___kont260532260533_)) - (___kont260532260533_)))) - (___kont260532260533_))))))))) - (___kont260550260551_ - (lambda () (values _body254237_ '()))) - (___kont260554260555_ - (lambda (_L254416_ _L254417_ _L254418_) - (let* ((_let-bind254453_ + _hd254544254568_)) + (___kont260460260461_) + (___kont260462260463_)) + (___kont260462260463_)))) + (___kont260462260463_))))))))) + (___kont260480260481_ + (lambda () (values _body254167_ '()))) + (___kont260484260485_ + (lambda (_L254346_ _L254347_ _L254348_) + (let* ((_let-bind254383_ (map cons - (let ((__tmp263415 - (lambda (_g254438254441_ - _g254439254443_) + (let ((__tmp263345 + (lambda (_g254368254371_ + _g254369254373_) (let () (declare (not safe)) - (cons _g254438254441_ - _g254439254443_))))) + (cons _g254368254371_ + _g254369254373_))))) (declare (not safe)) - (foldr1 __tmp263415 + (foldr1 __tmp263345 '() - _L254418_)) - (let ((__tmp263416 - (lambda (_g254445254448_ - _g254446254450_) + _L254348_)) + (let ((__tmp263346 + (lambda (_g254375254378_ + _g254376254380_) (let () (declare (not safe)) - (cons _g254445254448_ - _g254446254450_))))) + (cons _g254375254378_ + _g254376254380_))))) (declare (not safe)) - (foldr1 __tmp263416 + (foldr1 __tmp263346 '() - _L254417_)))) - (_g263417_ - (let ((__tmp263419 + _L254347_)))) + (_g263347_ + (let ((__tmp263349 (let () (declare (not safe)) (foldl1 cons - _bind254238_ - _let-bind254453_)))) + _bind254168_ + _let-bind254383_)))) (declare (not safe)) - (_create-block254055_ - _L254416_ - _let-bind254453_ - __tmp263419 - _assert254239_)))) + (_create-block253985_ + _L254346_ + _let-bind254383_ + __tmp263349 + _assert254169_)))) (begin - (let ((_g263418_ + (let ((_g263348_ (let () (declare (not safe)) - (if (##values? _g263417_) - (##vector-length _g263417_) + (if (##values? _g263347_) + (##vector-length _g263347_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263418_ 2))) + (##fx= _g263348_ 2))) (error "Context expects 2 values" - _g263418_))) - (let ((_continue254455_ + _g263348_))) + (let ((_continue254385_ (let () (declare (not safe)) - (##vector-ref _g263417_ 0))) - (_block254456_ + (##vector-ref _g263347_ 0))) + (_block254386_ (let () (declare (not safe)) - (##vector-ref _g263417_ 1)))) + (##vector-ref _g263347_ 1)))) (let () - (values _continue254455_ + (values _continue254385_ (let () (declare (not safe)) - (cons _block254456_ + (cons _block254386_ '()))))))))) - (___kont260558260559_ - (lambda () (values _body254237_ '())))) - (let* ((___match260637260638_ - (lambda (_e254297254340_ - _hd254296254343_ - _tl254295254345_ - _e254300254348_ - _hd254299254351_ - _tl254298254353_ - ___splice260556260557_ - _target254301254356_ - _tl254303254358_) - (letrec ((_loop254304254361_ - (lambda (_hd254302254364_ - _expr254308254366_ - _id254309254368_) + (___kont260488260489_ + (lambda () (values _body254167_ '())))) + (let* ((___match260567260568_ + (lambda (_e254227254270_ + _hd254226254273_ + _tl254225254275_ + _e254230254278_ + _hd254229254281_ + _tl254228254283_ + ___splice260486260487_ + _target254231254286_ + _tl254233254288_) + (letrec ((_loop254234254291_ + (lambda (_hd254232254294_ + _expr254238254296_ + _id254239254298_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd254302254364_)) - (let ((_e254305254371_ + _hd254232254294_)) + (let ((_e254235254301_ (let () (declare (not safe)) (gx#stx-e - _hd254302254364_)))) - (let ((_lp-tl254307254376_ + _hd254232254294_)))) + (let ((_lp-tl254237254306_ (let () (declare (not safe)) - (##cdr _e254305254371_))) - (_lp-hd254306254374_ + (##cdr _e254235254301_))) + (_lp-hd254236254304_ (let () (declare (not safe)) - (##car _e254305254371_)))) + (##car _e254235254301_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd254306254374_)) - (let ((_e254314254379_ + _lp-hd254236254304_)) + (let ((_e254244254309_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd254306254374_)))) - (let ((_tl254312254384_ + (gx#stx-e _lp-hd254236254304_)))) + (let ((_tl254242254314_ (let () (declare (not safe)) - (##cdr _e254314254379_))) - (_hd254313254382_ + (##cdr _e254244254309_))) + (_hd254243254312_ (let () (declare (not safe)) - (##car _e254314254379_)))) + (##car _e254244254309_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254313254382_)) - (let ((_e254317254387_ + (gx#stx-pair? _hd254243254312_)) + (let ((_e254247254317_ (let () (declare (not safe)) - (gx#stx-e _hd254313254382_)))) - (let ((_tl254315254392_ + (gx#stx-e _hd254243254312_)))) + (let ((_tl254245254322_ (let () (declare (not safe)) - (##cdr _e254317254387_))) - (_hd254316254390_ + (##cdr _e254247254317_))) + (_hd254246254320_ (let () (declare (not safe)) - (##car _e254317254387_)))) + (##car _e254247254317_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254315254392_)) + (gx#stx-null? _tl254245254322_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254312254384_)) - (let ((_e254320254395_ + (gx#stx-pair? _tl254242254314_)) + (let ((_e254250254325_ (let () (declare (not safe)) - (gx#stx-e _tl254312254384_)))) - (let ((_tl254318254400_ + (gx#stx-e _tl254242254314_)))) + (let ((_tl254248254330_ (let () (declare (not safe)) - (##cdr _e254320254395_))) - (_hd254319254398_ + (##cdr _e254250254325_))) + (_hd254249254328_ (let () (declare (not safe)) - (##car _e254320254395_)))) + (##car _e254250254325_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254318254400_)) - (let ((__tmp263421 + _tl254248254330_)) + (let ((__tmp263351 (let () (declare (not safe)) - (cons _hd254319254398_ - _expr254308254366_))) - (__tmp263420 + (cons _hd254249254328_ + _expr254238254296_))) + (__tmp263350 (let () (declare (not safe)) - (cons _hd254316254390_ - _id254309254368_)))) + (cons _hd254246254320_ + _id254239254298_)))) (declare (not safe)) - (_loop254304254361_ - _lp-tl254307254376_ - __tmp263421 - __tmp263420)) - (___kont260558260559_)))) - (___kont260558260559_)) - (___kont260558260559_)))) - (___kont260558260559_)))) - (___kont260558260559_)))) + (_loop254234254291_ + _lp-tl254237254306_ + __tmp263351 + __tmp263350)) + (___kont260488260489_)))) + (___kont260488260489_)) + (___kont260488260489_)))) + (___kont260488260489_)))) + (___kont260488260489_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id254311254405_ - (reverse _id254309254368_)) - (_expr254310254403_ - (reverse _expr254308254366_))) + (let ((_id254241254335_ + (reverse _id254239254298_)) + (_expr254240254333_ + (reverse _expr254238254296_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254298254353_)) - (let ((_e254323254408_ + _tl254228254283_)) + (let ((_e254253254338_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl254298254353_)))) - (let ((_tl254321254413_ - (let () (declare (not safe)) (##cdr _e254323254408_))) - (_hd254322254411_ + (gx#stx-e _tl254228254283_)))) + (let ((_tl254251254343_ + (let () (declare (not safe)) (##cdr _e254253254338_))) + (_hd254252254341_ (let () (declare (not safe)) - (##car _e254323254408_)))) + (##car _e254253254338_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254321254413_)) - (___kont260554260555_ - _hd254322254411_ - _expr254310254403_ - _id254311254405_) - (___kont260558260559_)))) - (___kont260558260559_))))))) + (gx#stx-null? _tl254251254343_)) + (___kont260484260485_ + _hd254252254341_ + _expr254240254333_ + _id254241254335_) + (___kont260488260489_)))) + (___kont260488260489_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop254304254361_ - _target254301254356_ + (_loop254234254291_ + _target254231254286_ '() '()))))) - (___match260613260614_ - (lambda (_e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_) - (letrec ((_loop254270254485_ - (lambda (_hd254268254488_) + (___match260543260544_ + (lambda (_e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_) + (letrec ((_loop254200254415_ + (lambda (_hd254198254418_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd254268254488_)) - (let ((_e254271254491_ + _hd254198254418_)) + (let ((_e254201254421_ (let () (declare (not safe)) (gx#stx-e - _hd254268254488_)))) - (let ((_lp-tl254273254496_ + _hd254198254418_)))) + (let ((_lp-tl254203254426_ (let () (declare (not safe)) - (##cdr _e254271254491_))) - (_lp-hd254272254494_ + (##cdr _e254201254421_))) + (_lp-hd254202254424_ (let () (declare (not safe)) - (##car _e254271254491_)))) + (##car _e254201254421_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd254272254494_)) - (let ((_e254276254499_ + _lp-hd254202254424_)) + (let ((_e254206254429_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd254272254494_)))) - (let ((_tl254274254504_ + (gx#stx-e _lp-hd254202254424_)))) + (let ((_tl254204254434_ (let () (declare (not safe)) - (##cdr _e254276254499_))) - (_hd254275254502_ + (##cdr _e254206254429_))) + (_hd254205254432_ (let () (declare (not safe)) - (##car _e254276254499_)))) + (##car _e254206254429_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254275254502_)) - (let ((_e254279254507_ + (gx#stx-pair? _hd254205254432_)) + (let ((_e254209254437_ (let () (declare (not safe)) - (gx#stx-e _hd254275254502_)))) - (let ((_tl254277254512_ + (gx#stx-e _hd254205254432_)))) + (let ((_tl254207254442_ (let () (declare (not safe)) - (##cdr _e254279254507_))) - (_hd254278254510_ + (##cdr _e254209254437_))) + (_hd254208254440_ (let () (declare (not safe)) - (##car _e254279254507_)))) + (##car _e254209254437_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254277254512_)) + (gx#stx-null? _tl254207254442_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254274254504_)) - (let ((_e254282254515_ + (gx#stx-pair? _tl254204254434_)) + (let ((_e254212254445_ (let () (declare (not safe)) - (gx#stx-e _tl254274254504_)))) - (let ((_tl254280254520_ + (gx#stx-e _tl254204254434_)))) + (let ((_tl254210254450_ (let () (declare (not safe)) - (##cdr _e254282254515_))) - (_hd254281254518_ + (##cdr _e254212254445_))) + (_hd254211254448_ (let () (declare (not safe)) - (##car _e254282254515_)))) + (##car _e254212254445_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd254281254518_)) - (let ((_e254285254523_ + _hd254211254448_)) + (let ((_e254215254453_ (let () (declare (not safe)) (gx#stx-e - _hd254281254518_)))) - (let ((_tl254283254528_ + _hd254211254448_)))) + (let ((_tl254213254458_ (let () (declare (not safe)) - (##cdr _e254285254523_))) - (_hd254284254526_ + (##cdr _e254215254453_))) + (_hd254214254456_ (let () (declare (not safe)) - (##car _e254285254523_)))) + (##car _e254215254453_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd254284254526_)) + _hd254214254456_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd254284254526_)) + _hd254214254456_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl254283254528_)) - (let ((_e254288254531_ + (gx#stx-pair? _tl254213254458_)) + (let ((_e254218254461_ (let () (declare (not safe)) - (gx#stx-e _tl254283254528_)))) - (let ((_tl254286254536_ + (gx#stx-e _tl254213254458_)))) + (let ((_tl254216254466_ (let () (declare (not safe)) - (##cdr _e254288254531_))) - (_hd254287254534_ + (##cdr _e254218254461_))) + (_hd254217254464_ (let () (declare (not safe)) - (##car _e254288254531_)))) + (##car _e254218254461_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254286254536_)) + (gx#stx-null? _tl254216254466_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl254280254520_)) + (gx#stx-null? _tl254210254450_)) (let () (declare (not safe)) - (_loop254270254485_ _lp-tl254273254496_)) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)))) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)))) + (_loop254200254415_ _lp-tl254203254426_)) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)))) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)))) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)))) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)))) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)))) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)))) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)))) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)))) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (if (let () (declare (not safe)) (gx#stx-pair? - _tl254264254477_)) - (let ((_e254291254540_ + _tl254194254407_)) + (let ((_e254221254470_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl254264254477_)))) - (let ((_tl254289254545_ - (let () (declare (not safe)) (##cdr _e254291254540_))) - (_hd254290254543_ + (gx#stx-e _tl254194254407_)))) + (let ((_tl254219254475_ + (let () (declare (not safe)) (##cdr _e254221254470_))) + (_hd254220254473_ (let () (declare (not safe)) - (##car _e254291254540_)))) + (##car _e254221254470_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254289254545_)) - (___kont260550260551_) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_)))) - (___match260637260638_ - _e254263254464_ - _hd254262254467_ - _tl254261254469_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_))))))) + (gx#stx-null? _tl254219254475_)) + (___kont260480260481_) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_)))) + (___match260567260568_ + _e254193254394_ + _hd254192254397_ + _tl254191254399_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop254270254485_ - _target254267254480_)))))) + (_loop254200254415_ + _target254197254410_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx260546260547_)) - (let ((_e254251254555_ + (gx#stx-pair? ___stx260476260477_)) + (let ((_e254181254485_ (let () (declare (not safe)) - (gx#stx-e ___stx260546260547_)))) - (let ((_tl254249254560_ + (gx#stx-e ___stx260476260477_)))) + (let ((_tl254179254490_ (let () (declare (not safe)) - (##cdr _e254251254555_))) - (_hd254250254558_ + (##cdr _e254181254485_))) + (_hd254180254488_ (let () (declare (not safe)) - (##car _e254251254555_)))) + (##car _e254181254485_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd254250254558_)) + (gx#identifier? _hd254180254488_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd254250254558_)) + _hd254180254488_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254249254560_)) - (let ((_e254254254563_ + _tl254179254490_)) + (let ((_e254184254493_ (let () (declare (not safe)) (gx#stx-e - _tl254249254560_)))) - (let ((_tl254252254568_ + _tl254179254490_)))) + (let ((_tl254182254498_ (let () (declare (not safe)) - (##cdr _e254254254563_))) - (_hd254253254566_ + (##cdr _e254184254493_))) + (_hd254183254496_ (let () (declare (not safe)) - (##car _e254254254563_)))) + (##car _e254184254493_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254252254568_)) - (let ((_e254257254571_ + _tl254182254498_)) + (let ((_e254187254501_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl254252254568_)))) - (let ((_tl254255254576_ - (let () (declare (not safe)) (##cdr _e254257254571_))) - (_hd254256254574_ - (let () (declare (not safe)) (##car _e254257254571_)))) + (gx#stx-e _tl254182254498_)))) + (let ((_tl254185254506_ + (let () (declare (not safe)) (##cdr _e254187254501_))) + (_hd254186254504_ + (let () (declare (not safe)) (##car _e254187254501_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254255254576_)) - (let ((_e254260254579_ + (gx#stx-pair? _tl254185254506_)) + (let ((_e254190254509_ (let () (declare (not safe)) - (gx#stx-e _tl254255254576_)))) - (let ((_tl254258254584_ + (gx#stx-e _tl254185254506_)))) + (let ((_tl254188254514_ (let () (declare (not safe)) - (##cdr _e254260254579_))) - (_hd254259254582_ + (##cdr _e254190254509_))) + (_hd254189254512_ (let () (declare (not safe)) - (##car _e254260254579_)))) + (##car _e254190254509_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254258254584_)) - (___kont260548260549_ - _hd254259254582_ - _hd254256254574_ - _hd254253254566_) - (___kont260558260559_)))) - (___kont260558260559_)))) - (___kont260558260559_)))) + (gx#stx-null? _tl254188254514_)) + (___kont260478260479_ + _hd254189254512_ + _hd254186254504_ + _hd254183254496_) + (___kont260488260489_)))) + (___kont260488260489_)))) + (___kont260488260489_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260558260559_)) + (___kont260488260489_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd254250254558_)) + _hd254180254488_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254249254560_)) - (let ((_e254266254472_ + _tl254179254490_)) + (let ((_e254196254402_ (let () (declare (not safe)) (gx#stx-e - _tl254249254560_)))) - (let ((_tl254264254477_ + _tl254179254490_)))) + (let ((_tl254194254407_ (let () (declare (not safe)) - (##cdr _e254266254472_))) - (_hd254265254475_ + (##cdr _e254196254402_))) + (_hd254195254405_ (let () (declare (not safe)) - (##car _e254266254472_)))) + (##car _e254196254402_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd254265254475_)) - (let ((___splice260552260553_ + _hd254195254405_)) + (let ((___splice260482260483_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd254265254475_ '0)))) - (let ((_tl254269254482_ + (gx#syntax-split-splice _hd254195254405_ '0)))) + (let ((_tl254199254412_ (let () (declare (not safe)) - (##vector-ref ___splice260552260553_ '1))) - (_target254267254480_ + (##vector-ref ___splice260482260483_ '1))) + (_target254197254410_ (let () (declare (not safe)) - (##vector-ref ___splice260552260553_ '0)))) + (##vector-ref ___splice260482260483_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254269254482_)) - (___match260613260614_ - _e254251254555_ - _hd254250254558_ - _tl254249254560_ - _e254266254472_ - _hd254265254475_ - _tl254264254477_ - ___splice260552260553_ - _target254267254480_ - _tl254269254482_) - (___kont260558260559_)))) - (___kont260558260559_)))) + (gx#stx-null? _tl254199254412_)) + (___match260543260544_ + _e254181254485_ + _hd254180254488_ + _tl254179254490_ + _e254196254402_ + _hd254195254405_ + _tl254194254407_ + ___splice260482260483_ + _target254197254410_ + _tl254199254412_) + (___kont260488260489_)))) + (___kont260488260489_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260558260559_)) - (___kont260558260559_))) - (___kont260558260559_)))) - (___kont260558260559_))))))) - (_fold-blocks254057_ - (lambda (_rest254156_ _blocks254157_) - (let* ((_rest254158254175_ _rest254156_) - (_E254161254179_ + (___kont260488260489_)) + (___kont260488260489_))) + (___kont260488260489_)))) + (___kont260488260489_))))))) + (_fold-blocks253987_ + (lambda (_rest254086_ _blocks254087_) + (let* ((_rest254088254105_ _rest254086_) + (_E254091254109_ (lambda () (error '"No clause matching" - _rest254158254175_)))) - (let ((_K254163254199_ - (lambda (_rest254190_ - _assert254191_ - _bind254192_ - _body254193_ - _name254194_) - (let ((_g263422_ + _rest254088254105_)))) + (let ((_K254093254129_ + (lambda (_rest254120_ + _assert254121_ + _bind254122_ + _body254123_ + _name254124_) + (let ((_g263352_ (let () (declare (not safe)) - (_basic-block254056_ - _body254193_ - _bind254192_ - _assert254191_)))) + (_basic-block253986_ + _body254123_ + _bind254122_ + _assert254121_)))) (begin - (let ((_g263423_ + (let ((_g263353_ (let () (declare (not safe)) - (if (##values? _g263422_) - (##vector-length _g263422_) + (if (##values? _g263352_) + (##vector-length _g263352_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263423_ 2))) + (##fx= _g263353_ 2))) (error "Context expects 2 values" - _g263423_))) - (let ((_body254196_ + _g263353_))) + (let ((_body254126_ (let () (declare (not safe)) - (##vector-ref _g263422_ 0))) - (_body-blocks254197_ + (##vector-ref _g263352_ 0))) + (_body-blocks254127_ (let () (declare (not safe)) - (##vector-ref _g263422_ 1)))) - (let ((__tmp263434 + (##vector-ref _g263352_ 1)))) + (let ((__tmp263364 (let () (declare (not safe)) (foldl1 cons - _rest254190_ - _body-blocks254197_))) - (__tmp263424 - (let ((__tmp263425 - (let ((__tmp263426 - (let ((__tmp263427 + _rest254120_ + _body-blocks254127_))) + (__tmp263354 + (let ((__tmp263355 + (let ((__tmp263356 + (let ((__tmp263357 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263430 - (let ((__tmp263431 - (let ((__tmp263433 - (reverse (map car _bind254192_))) - (__tmp263432 + (let ((__tmp263360 + (let ((__tmp263361 + (let ((__tmp263363 + (reverse (map car _bind254122_))) + (__tmp263362 (let () (declare (not safe)) - (cons _body254196_ '())))) + (cons _body254126_ '())))) (declare (not safe)) - (cons __tmp263433 __tmp263432)))) + (cons __tmp263363 __tmp263362)))) (declare (not safe)) - (cons '%#lambda __tmp263431))) - (__tmp263428 - (let ((__tmp263429 + (cons '%#lambda __tmp263361))) + (__tmp263358 + (let ((__tmp263359 (let () (declare (not safe)) - (cons _bind254192_ '())))) + (cons _bind254122_ '())))) (declare (not safe)) - (cons _assert254191_ __tmp263429)))) + (cons _assert254121_ __tmp263359)))) (declare (not safe)) - (cons __tmp263430 __tmp263428)))) + (cons __tmp263360 __tmp263358)))) (declare (not safe)) - (cons 'continue: __tmp263427)))) + (cons 'continue: __tmp263357)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _name254194_ - __tmp263426)))) + (cons _name254124_ + __tmp263356)))) (declare (not safe)) - (cons __tmp263425 - _blocks254157_)))) + (cons __tmp263355 + _blocks254087_)))) (declare (not safe)) - (_fold-blocks254057_ - __tmp263434 - __tmp263424))))))) - (_K254162254184_ (lambda () _blocks254157_))) - (let ((_try-match254160254187_ + (_fold-blocks253987_ + __tmp263364 + __tmp263354))))))) + (_K254092254114_ (lambda () _blocks254087_))) + (let ((_try-match254090254117_ (lambda () (if (let () (declare (not safe)) - (##null? _rest254158254175_)) + (##null? _rest254088254105_)) (let () (declare (not safe)) - (_K254162254184_)) + (_K254092254114_)) (let () (declare (not safe)) - (_E254161254179_)))))) + (_E254091254109_)))))) (if (let () (declare (not safe)) - (##pair? _rest254158254175_)) - (let ((_tl254165254204_ + (##pair? _rest254088254105_)) + (let ((_tl254095254134_ (let () (declare (not safe)) - (##cdr _rest254158254175_))) - (_hd254164254202_ + (##cdr _rest254088254105_))) + (_hd254094254132_ (let () (declare (not safe)) - (##car _rest254158254175_)))) + (##car _rest254088254105_)))) (if (let () (declare (not safe)) - (##pair? _hd254164254202_)) - (let ((_tl254167254209_ + (##pair? _hd254094254132_)) + (let ((_tl254097254139_ (let () (declare (not safe)) - (##cdr _hd254164254202_))) - (_hd254166254207_ + (##cdr _hd254094254132_))) + (_hd254096254137_ (let () (declare (not safe)) - (##car _hd254164254202_)))) + (##car _hd254094254132_)))) (if (let () (declare (not safe)) - (##pair? _tl254167254209_)) - (let ((_tl254169254216_ + (##pair? _tl254097254139_)) + (let ((_tl254099254146_ (let () (declare (not safe)) - (##cdr _tl254167254209_))) - (_hd254168254214_ + (##cdr _tl254097254139_))) + (_hd254098254144_ (let () (declare (not safe)) - (##car _tl254167254209_)))) + (##car _tl254097254139_)))) (if (let () (declare (not safe)) - (##pair? _tl254169254216_)) - (let ((_tl254171254223_ + (##pair? _tl254099254146_)) + (let ((_tl254101254153_ (let () (declare (not safe)) - (##cdr _tl254169254216_))) - (_hd254170254221_ + (##cdr _tl254099254146_))) + (_hd254100254151_ (let () (declare (not safe)) - (##car _tl254169254216_)))) + (##car _tl254099254146_)))) (if (let () (declare (not safe)) - (##pair? _tl254171254223_)) - (let ((_tl254173254230_ + (##pair? _tl254101254153_)) + (let ((_tl254103254160_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl254171254223_))) - (_hd254172254228_ - (let () (declare (not safe)) (##car _tl254171254223_)))) - (if (let () (declare (not safe)) (##null? _tl254173254230_)) - (let ((_name254212_ _hd254166254207_) - (_body254219_ _hd254168254214_) - (_bind254226_ _hd254170254221_) - (_assert254233_ _hd254172254228_) - (_rest254235_ _tl254165254204_)) + (##cdr _tl254101254153_))) + (_hd254102254158_ + (let () (declare (not safe)) (##car _tl254101254153_)))) + (if (let () (declare (not safe)) (##null? _tl254103254160_)) + (let ((_name254142_ _hd254096254137_) + (_body254149_ _hd254098254144_) + (_bind254156_ _hd254100254151_) + (_assert254163_ _hd254102254158_) + (_rest254165_ _tl254095254134_)) (let () (declare (not safe)) - (_K254163254199_ - _rest254235_ - _assert254233_ - _bind254226_ - _body254219_ - _name254212_))) - (let () (declare (not safe)) (_E254161254179_)))) - (let () (declare (not safe)) (_E254161254179_)))) + (_K254093254129_ + _rest254165_ + _assert254163_ + _bind254156_ + _body254149_ + _name254142_))) + (let () (declare (not safe)) (_E254091254109_)))) + (let () (declare (not safe)) (_E254091254109_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E254161254179_)))) + (_E254091254109_)))) (let () (declare (not safe)) - (_E254161254179_)))) + (_E254091254109_)))) (let () (declare (not safe)) - (_E254161254179_)))) + (_E254091254109_)))) (let () (declare (not safe)) - (_try-match254160254187_))))))))) - (let* ((_clause254058254065_ _clause254051_) - (_E254060254069_ + (_try-match254090254117_))))))))) + (let* ((_clause253988253995_ _clause253981_) + (_E253990253999_ (lambda () - (error '"No clause matching" _clause254058254065_))) - (_K254061254144_ - (lambda (_body254072_ _name254073_) - (let* ((_g254075254091_ - (lambda (_g254076254088_) + (error '"No clause matching" _clause253988253995_))) + (_K253991254074_ + (lambda (_body254002_ _name254003_) + (let* ((_g254005254021_ + (lambda (_g254006254018_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g254076254088_)))) - (_g254074254141_ - (lambda (_g254076254094_) + _g254006254018_)))) + (_g254004254071_ + (lambda (_g254006254024_) (if (let () (declare (not safe)) - (gx#stx-pair? _g254076254094_)) - (let ((_e254080254096_ + (gx#stx-pair? _g254006254024_)) + (let ((_e254010254026_ (let () (declare (not safe)) - (gx#stx-e _g254076254094_)))) - (let ((_hd254079254099_ + (gx#stx-e _g254006254024_)))) + (let ((_hd254009254029_ (let () (declare (not safe)) - (##car _e254080254096_))) - (_tl254078254101_ + (##car _e254010254026_))) + (_tl254008254031_ (let () (declare (not safe)) - (##cdr _e254080254096_)))) + (##cdr _e254010254026_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd254079254099_)) + (gx#identifier? _hd254009254029_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd254079254099_)) + _hd254009254029_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254078254101_)) - (let ((_e254083254104_ + _tl254008254031_)) + (let ((_e254013254034_ (let () (declare (not safe)) (gx#stx-e - _tl254078254101_)))) - (let ((_hd254082254107_ + _tl254008254031_)))) + (let ((_hd254012254037_ (let () (declare (not safe)) - (##car _e254083254104_))) - (_tl254081254109_ + (##car _e254013254034_))) + (_tl254011254039_ (let () (declare (not safe)) - (##cdr _e254083254104_)))) + (##cdr _e254013254034_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd254082254107_)) + _hd254012254037_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl254081254109_)) - (let ((_e254086254112_ + (gx#stx-pair? _tl254011254039_)) + (let ((_e254016254042_ (let () (declare (not safe)) - (gx#stx-e _tl254081254109_)))) - (let ((_hd254085254115_ + (gx#stx-e _tl254011254039_)))) + (let ((_hd254015254045_ (let () (declare (not safe)) - (##car _e254086254112_))) - (_tl254084254117_ + (##car _e254016254042_))) + (_tl254014254047_ (let () (declare (not safe)) - (##cdr _e254086254112_)))) + (##cdr _e254016254042_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254084254117_)) - ((lambda (_L254120_) - (let ((_g263435_ + (gx#stx-null? _tl254014254047_)) + ((lambda (_L254050_) + (let ((_g263365_ (let () (declare (not safe)) - (_basic-block254056_ - _L254120_ + (_basic-block253986_ + _L254050_ '() '())))) (begin - (let ((_g263436_ + (let ((_g263366_ (let () (declare (not safe)) - (if (##values? _g263435_) - (##vector-length _g263435_) + (if (##values? _g263365_) + (##vector-length _g263365_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263436_ 2))) + (##fx= _g263366_ 2))) (error "Context expects 2 values" - _g263436_))) - (let ((_body254138_ + _g263366_))) + (let ((_body254068_ (let () (declare (not safe)) - (##vector-ref _g263435_ 0))) - (_body-blocks254139_ + (##vector-ref _g263365_ 0))) + (_body-blocks254069_ (let () (declare (not safe)) - (##vector-ref _g263435_ 1)))) - (let ((__tmp263437 - (let ((__tmp263438 - (let ((__tmp263439 - (let ((__tmp263440 + (##vector-ref _g263365_ 1)))) + (let ((__tmp263367 + (let ((__tmp263368 + (let ((__tmp263369 + (let ((__tmp263370 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263442 - (let ((__tmp263443 - (let ((__tmp263444 + (let ((__tmp263372 + (let ((__tmp263373 + (let ((__tmp263374 (let () (declare (not safe)) - (cons _body254138_ '())))) + (cons _body254068_ '())))) (declare (not safe)) - (cons '() __tmp263444)))) + (cons '() __tmp263374)))) (declare (not safe)) - (cons '%#lambda __tmp263443))) - (__tmp263441 + (cons '%#lambda __tmp263373))) + (__tmp263371 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp263442 __tmp263441)))) + (cons __tmp263372 __tmp263371)))) (declare (not safe)) - (cons 'restart: __tmp263440)))) + (cons 'restart: __tmp263370)))) (declare (not safe)) - (cons _name254073_ __tmp263439)))) + (cons _name254003_ __tmp263369)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263438 - _blocks254052_)))) + (cons __tmp263368 + _blocks253982_)))) (declare (not safe)) - (_fold-blocks254057_ - _body-blocks254139_ - __tmp263437)))))) - _hd254085254115_) + (_fold-blocks253987_ + _body-blocks254069_ + __tmp263367)))))) + _hd254015254045_) (let () (declare (not safe)) - (_g254075254091_ _g254076254094_))))) + (_g254005254021_ _g254006254024_))))) (let () (declare (not safe)) - (_g254075254091_ _g254076254094_))) + (_g254005254021_ _g254006254024_))) (let () (declare (not safe)) - (_g254075254091_ _g254076254094_))))) + (_g254005254021_ _g254006254024_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g254075254091_ - _g254076254094_))) + (_g254005254021_ + _g254006254024_))) (let () (declare (not safe)) - (_g254075254091_ - _g254076254094_))) + (_g254005254021_ + _g254006254024_))) (let () (declare (not safe)) - (_g254075254091_ - _g254076254094_))))) + (_g254005254021_ + _g254006254024_))))) (let () (declare (not safe)) - (_g254075254091_ _g254076254094_)))))) + (_g254005254021_ _g254006254024_)))))) (declare (not safe)) - (_g254074254141_ _body254072_))))) - (if (let () (declare (not safe)) (##pair? _clause254058254065_)) - (let ((_hd254062254147_ + (_g254004254071_ _body254002_))))) + (if (let () (declare (not safe)) (##pair? _clause253988253995_)) + (let ((_hd253992254077_ (let () (declare (not safe)) - (##car _clause254058254065_))) - (_tl254063254149_ + (##car _clause253988253995_))) + (_tl253993254079_ (let () (declare (not safe)) - (##cdr _clause254058254065_)))) - (let* ((_name254152_ _hd254062254147_) - (_body254154_ _tl254063254149_)) + (##cdr _clause253988253995_)))) + (let* ((_name254082_ _hd253992254077_) + (_body254084_ _tl253993254079_)) (declare (not safe)) - (_K254061254144_ _body254154_ _name254152_))) - (let () (declare (not safe)) (_E254060254069_))))))) + (_K253991254074_ _body254084_ _name254082_))) + (let () (declare (not safe)) (_E253990253999_))))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_blocks253657_) - (let _lp253659_ ((_rest253661_ _blocks253657_) (_blocks253662_ '())) - (let* ((_rest253663253671_ _rest253661_) - (_else253665253720_ + (lambda (_blocks253587_) + (let _lp253589_ ((_rest253591_ _blocks253587_) (_blocks253592_ '())) + (let* ((_rest253593253601_ _rest253591_) + (_else253595253650_ (lambda () - (let ((__tmp263445 - (lambda (_block253679_ _r253680_) - (let* ((_block253681253692_ _block253679_) - (_E253683253696_ + (let ((__tmp263375 + (lambda (_block253609_ _r253610_) + (let* ((_block253611253622_ _block253609_) + (_E253613253626_ (lambda () (error '"No clause matching" - _block253681253692_))) - (_K253684253702_ - (lambda (_kont253699_ _name253700_) - (let ((__tmp263446 + _block253611253622_))) + (_K253614253632_ + (lambda (_kont253629_ _name253630_) + (let ((__tmp263376 (let () (declare (not safe)) - (cons _name253700_ - _kont253699_)))) + (cons _name253630_ + _kont253629_)))) (declare (not safe)) - (cons __tmp263446 _r253680_))))) + (cons __tmp263376 _r253610_))))) (if (let () (declare (not safe)) - (##pair? _block253681253692_)) - (let ((_hd253685253705_ + (##pair? _block253611253622_)) + (let ((_hd253615253635_ (let () (declare (not safe)) - (##car _block253681253692_))) - (_tl253686253707_ + (##car _block253611253622_))) + (_tl253616253637_ (let () (declare (not safe)) - (##cdr _block253681253692_)))) - (let ((_name253710_ _hd253685253705_)) + (##cdr _block253611253622_)))) + (let ((_name253640_ _hd253615253635_)) (if (let () (declare (not safe)) - (##pair? _tl253686253707_)) - (let ((_tl253688253712_ + (##pair? _tl253616253637_)) + (let ((_tl253618253642_ (let () (declare (not safe)) - (##cdr _tl253686253707_)))) + (##cdr _tl253616253637_)))) (if (let () (declare (not safe)) - (##pair? _tl253688253712_)) - (let* ((_hd253689253715_ + (##pair? _tl253618253642_)) + (let* ((_hd253619253645_ (let () (declare (not safe)) - (##car _tl253688253712_))) - (_kont253718_ - _hd253689253715_)) + (##car _tl253618253642_))) + (_kont253648_ + _hd253619253645_)) (declare (not safe)) - (_K253684253702_ - _kont253718_ - _name253710_)) + (_K253614253632_ + _kont253648_ + _name253640_)) (let () (declare (not safe)) - (_E253683253696_)))) + (_E253613253626_)))) (let () (declare (not safe)) - (_E253683253696_))))) + (_E253613253626_))))) (let () (declare (not safe)) - (_E253683253696_))))))) + (_E253613253626_))))))) (declare (not safe)) - (foldl1 __tmp263445 '() _blocks253662_)))) - (_K253667254039_ - (lambda (_rest253723_ _block253724_) - (let* ((_block253725253750_ _block253724_) - (_E253728253754_ + (foldl1 __tmp263375 '() _blocks253592_)))) + (_K253597253969_ + (lambda (_rest253653_ _block253654_) + (let* ((_block253655253680_ _block253654_) + (_E253658253684_ (lambda () (error '"No clause matching" - _block253725253750_)))) - (let ((_K253740254010_ - (lambda (_assert253932_ _kont253933_ _name253934_) - (let* ((_g253936253952_ - (lambda (_g253937253949_) + _block253655253680_)))) + (let ((_K253670253940_ + (lambda (_assert253862_ _kont253863_ _name253864_) + (let* ((_g253866253882_ + (lambda (_g253867253879_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g253937253949_)))) - (_g253935254007_ - (lambda (_g253937253955_) + _g253867253879_)))) + (_g253865253937_ + (lambda (_g253867253885_) (if (let () (declare (not safe)) - (gx#stx-pair? _g253937253955_)) - (let ((_e253941253957_ + (gx#stx-pair? _g253867253885_)) + (let ((_e253871253887_ (let () (declare (not safe)) (gx#stx-e - _g253937253955_)))) - (let ((_hd253940253960_ + _g253867253885_)))) + (let ((_hd253870253890_ (let () (declare (not safe)) - (##car _e253941253957_))) - (_tl253939253962_ + (##car _e253871253887_))) + (_tl253869253892_ (let () (declare (not safe)) - (##cdr _e253941253957_)))) + (##cdr _e253871253887_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd253940253960_)) + _hd253870253890_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd253940253960_)) + _hd253870253890_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl253939253962_)) - (let ((_e253944253965_ + (gx#stx-pair? _tl253869253892_)) + (let ((_e253874253895_ (let () (declare (not safe)) - (gx#stx-e _tl253939253962_)))) - (let ((_hd253943253968_ + (gx#stx-e _tl253869253892_)))) + (let ((_hd253873253898_ (let () (declare (not safe)) - (##car _e253944253965_))) - (_tl253942253970_ + (##car _e253874253895_))) + (_tl253872253900_ (let () (declare (not safe)) - (##cdr _e253944253965_)))) + (##cdr _e253874253895_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd253943253968_)) + (gx#stx-null? _hd253873253898_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253942253970_)) - (let ((_e253947253973_ + (gx#stx-pair? _tl253872253900_)) + (let ((_e253877253903_ (let () (declare (not safe)) - (gx#stx-e _tl253942253970_)))) - (let ((_hd253946253976_ + (gx#stx-e _tl253872253900_)))) + (let ((_hd253876253906_ (let () (declare (not safe)) - (##car _e253947253973_))) - (_tl253945253978_ + (##car _e253877253903_))) + (_tl253875253908_ (let () (declare (not safe)) - (##cdr _e253947253973_)))) + (##cdr _e253877253903_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253945253978_)) - ((lambda (_L253981_) - (let* ((_body253996_ + (gx#stx-null? _tl253875253908_)) + ((lambda (_L253911_) + (let* ((_body253926_ (let () (declare (not safe)) (gxc#optimize-match-block - _L253981_ - _assert253932_ + _L253911_ + _assert253862_ '() - _rest253723_))) - (_block253998_ - (let ((__tmp263447 - (let ((__tmp263448 + _rest253653_))) + (_block253928_ + (let ((__tmp263377 + (let ((__tmp263378 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263450 - (let ((__tmp263451 - (let ((__tmp263452 + (let ((__tmp263380 + (let ((__tmp263381 + (let ((__tmp263382 (let () (declare (not safe)) - (cons _body253996_ '())))) + (cons _body253926_ '())))) (declare (not safe)) - (cons '() __tmp263452)))) + (cons '() __tmp263382)))) (declare (not safe)) - (cons '%#lambda __tmp263451))) - (__tmp263449 + (cons '%#lambda __tmp263381))) + (__tmp263379 (let () (declare (not safe)) - (cons _assert253932_ '())))) + (cons _assert253862_ '())))) (declare (not safe)) - (cons __tmp263450 __tmp263449)))) + (cons __tmp263380 __tmp263379)))) (declare (not safe)) - (cons 'restart: __tmp263448)))) + (cons 'restart: __tmp263378)))) (declare (not safe)) - (cons _name253934_ __tmp263447))) + (cons _name253864_ __tmp263377))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks254000_ + (_blocks253930_ (let () (declare (not safe)) - (cons _block253998_ - _blocks253662_))) - (_rest254002_ + (cons _block253928_ + _blocks253592_))) + (_rest253932_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest253723_ - _blocks254000_))) - (_rest254004_ + _rest253653_ + _blocks253930_))) + (_rest253934_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest254002_ - _blocks254000_)))) + _rest253932_ + _blocks253930_)))) (let () (declare (not safe)) - (_lp253659_ - _rest254004_ - _blocks254000_)))) - _hd253946253976_) + (_lp253589_ + _rest253934_ + _blocks253930_)))) + _hd253876253906_) (let () (declare (not safe)) - (_g253936253952_ - _g253937253955_))))) + (_g253866253882_ + _g253867253885_))))) (let () (declare (not safe)) - (_g253936253952_ _g253937253955_))) + (_g253866253882_ _g253867253885_))) (let () (declare (not safe)) - (_g253936253952_ _g253937253955_))))) + (_g253866253882_ _g253867253885_))))) (let () (declare (not safe)) - (_g253936253952_ _g253937253955_))) + (_g253866253882_ _g253867253885_))) (let () (declare (not safe)) - (_g253936253952_ _g253937253955_))) + (_g253866253882_ _g253867253885_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g253936253952_ - _g253937253955_))))) + (_g253866253882_ + _g253867253885_))))) (let () (declare (not safe)) - (_g253936253952_ - _g253937253955_)))))) + (_g253866253882_ + _g253867253885_)))))) (declare (not safe)) - (_g253935254007_ _kont253933_)))) - (_K253729253893_ - (lambda (_bind253758_ - _assert253759_ - _kont253760_ - _name253761_) - (let* ((_g253763253789_ - (lambda (_g253764253786_) + (_g253865253937_ _kont253863_)))) + (_K253659253823_ + (lambda (_bind253688_ + _assert253689_ + _kont253690_ + _name253691_) + (let* ((_g253693253719_ + (lambda (_g253694253716_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g253764253786_)))) - (_g253762253890_ - (lambda (_g253764253792_) + _g253694253716_)))) + (_g253692253820_ + (lambda (_g253694253722_) (if (let () (declare (not safe)) - (gx#stx-pair? _g253764253792_)) - (let ((_e253769253794_ + (gx#stx-pair? _g253694253722_)) + (let ((_e253699253724_ (let () (declare (not safe)) (gx#stx-e - _g253764253792_)))) - (let ((_hd253768253797_ + _g253694253722_)))) + (let ((_hd253698253727_ (let () (declare (not safe)) - (##car _e253769253794_))) - (_tl253767253799_ + (##car _e253699253724_))) + (_tl253697253729_ (let () (declare (not safe)) - (##cdr _e253769253794_)))) + (##cdr _e253699253724_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd253768253797_)) + _hd253698253727_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd253768253797_)) + _hd253698253727_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl253767253799_)) - (let ((_e253772253802_ + (gx#stx-pair? _tl253697253729_)) + (let ((_e253702253732_ (let () (declare (not safe)) - (gx#stx-e _tl253767253799_)))) - (let ((_hd253771253805_ + (gx#stx-e _tl253697253729_)))) + (let ((_hd253701253735_ (let () (declare (not safe)) - (##car _e253772253802_))) - (_tl253770253807_ + (##car _e253702253732_))) + (_tl253700253737_ (let () (declare (not safe)) - (##cdr _e253772253802_)))) + (##cdr _e253702253732_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd253771253805_)) - (let ((_g263453_ + (gx#stx-pair/null? _hd253701253735_)) + (let ((_g263383_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd253771253805_ + _hd253701253735_ '0)))) (begin - (let ((_g263454_ + (let ((_g263384_ (let () (declare (not safe)) - (if (##values? _g263453_) - (##vector-length _g263453_) + (if (##values? _g263383_) + (##vector-length _g263383_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263454_ 2))) + (##fx= _g263384_ 2))) (error "Context expects 2 values" - _g263454_))) - (let ((_target253773253810_ + _g263384_))) + (let ((_target253703253740_ (let () (declare (not safe)) - (##vector-ref _g263453_ 0))) - (_tl253775253812_ + (##vector-ref _g263383_ 0))) + (_tl253705253742_ (let () (declare (not safe)) - (##vector-ref _g263453_ 1)))) + (##vector-ref _g263383_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253775253812_)) - (letrec ((_loop253776253815_ - (lambda (_hd253774253818_ - _id253780253820_) + (gx#stx-null? _tl253705253742_)) + (letrec ((_loop253706253745_ + (lambda (_hd253704253748_ + _id253710253750_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd253774253818_)) - (let ((_e253777253823_ + _hd253704253748_)) + (let ((_e253707253753_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd253774253818_)))) - (let ((_lp-hd253778253826_ - (let () (declare (not safe)) (##car _e253777253823_))) - (_lp-tl253779253828_ - (let () (declare (not safe)) (##cdr _e253777253823_)))) - (let ((__tmp263464 + (gx#stx-e _hd253704253748_)))) + (let ((_lp-hd253708253756_ + (let () (declare (not safe)) (##car _e253707253753_))) + (_lp-tl253709253758_ + (let () (declare (not safe)) (##cdr _e253707253753_)))) + (let ((__tmp263394 (let () (declare (not safe)) - (cons _lp-hd253778253826_ _id253780253820_)))) + (cons _lp-hd253708253756_ _id253710253750_)))) (declare (not safe)) - (_loop253776253815_ _lp-tl253779253828_ __tmp263464)))) - (let ((_id253781253831_ (reverse _id253780253820_))) + (_loop253706253745_ _lp-tl253709253758_ __tmp263394)))) + (let ((_id253711253761_ (reverse _id253710253750_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253770253807_)) - (let ((_e253784253834_ + (gx#stx-pair? _tl253700253737_)) + (let ((_e253714253764_ (let () (declare (not safe)) - (gx#stx-e _tl253770253807_)))) - (let ((_hd253783253837_ + (gx#stx-e _tl253700253737_)))) + (let ((_hd253713253767_ (let () (declare (not safe)) - (##car _e253784253834_))) - (_tl253782253839_ + (##car _e253714253764_))) + (_tl253712253769_ (let () (declare (not safe)) - (##cdr _e253784253834_)))) + (##cdr _e253714253764_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253782253839_)) - ((lambda (_L253842_ _L253843_) - (let* ((_body253872_ + (gx#stx-null? _tl253712253769_)) + ((lambda (_L253772_ _L253773_) + (let* ((_body253802_ (let () (declare (not safe)) (gxc#optimize-match-block - _L253842_ - _assert253759_ - _bind253758_ - _rest253723_))) - (_block253881_ - (let ((__tmp263455 - (let ((__tmp263456 - (let ((__tmp263459 - (let ((__tmp263460 + _L253772_ + _assert253689_ + _bind253688_ + _rest253653_))) + (_block253811_ + (let ((__tmp263385 + (let ((__tmp263386 + (let ((__tmp263389 + (let ((__tmp263390 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263462 - (let ((__tmp263463 - (lambda (_g253873253876_ - _g253874253878_) + (let ((__tmp263392 + (let ((__tmp263393 + (lambda (_g253803253806_ + _g253804253808_) (let () (declare (not safe)) - (cons _g253873253876_ - _g253874253878_))))) + (cons _g253803253806_ + _g253804253808_))))) (declare (not safe)) - (foldr1 __tmp263463 '() _L253843_))) - (__tmp263461 + (foldr1 __tmp263393 '() _L253773_))) + (__tmp263391 (let () (declare (not safe)) - (cons _body253872_ '())))) + (cons _body253802_ '())))) (declare (not safe)) - (cons __tmp263462 __tmp263461)))) + (cons __tmp263392 __tmp263391)))) (declare (not safe)) - (cons '%#lambda __tmp263460))) - (__tmp263457 - (let ((__tmp263458 + (cons '%#lambda __tmp263390))) + (__tmp263387 + (let ((__tmp263388 (let () (declare (not safe)) - (cons _bind253758_ '())))) + (cons _bind253688_ '())))) (declare (not safe)) - (cons _assert253759_ __tmp263458)))) + (cons _assert253689_ __tmp263388)))) (declare (not safe)) - (cons __tmp263459 __tmp263457)))) + (cons __tmp263389 __tmp263387)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'continue: - __tmp263456)))) + __tmp263386)))) (declare (not safe)) - (cons _name253761_ __tmp263455))) - (_blocks253883_ + (cons _name253691_ __tmp263385))) + (_blocks253813_ (let () (declare (not safe)) - (cons _block253881_ _blocks253662_))) - (_rest253885_ + (cons _block253811_ _blocks253592_))) + (_rest253815_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest253723_ - _blocks253883_))) - (_rest253887_ + _rest253653_ + _blocks253813_))) + (_rest253817_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest253885_ - _blocks253883_)))) + _rest253815_ + _blocks253813_)))) (let () (declare (not safe)) - (_lp253659_ _rest253887_ _blocks253883_)))) - _hd253783253837_ - _id253781253831_) + (_lp253589_ _rest253817_ _blocks253813_)))) + _hd253713253767_ + _id253711253761_) (let () (declare (not safe)) - (_g253763253789_ _g253764253792_))))) + (_g253693253719_ _g253694253722_))))) (let () (declare (not safe)) - (_g253763253789_ _g253764253792_)))))))) + (_g253693253719_ _g253694253722_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop253776253815_ - _target253773253810_ + (_loop253706253745_ + _target253703253740_ '()))) (let () (declare (not safe)) - (_g253763253789_ _g253764253792_)))))) + (_g253693253719_ _g253694253722_)))))) (let () (declare (not safe)) - (_g253763253789_ _g253764253792_))))) + (_g253693253719_ _g253694253722_))))) (let () (declare (not safe)) - (_g253763253789_ _g253764253792_))) + (_g253693253719_ _g253694253722_))) (let () (declare (not safe)) - (_g253763253789_ _g253764253792_))) + (_g253693253719_ _g253694253722_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g253763253789_ - _g253764253792_))))) + (_g253693253719_ + _g253694253722_))))) (let () (declare (not safe)) - (_g253763253789_ - _g253764253792_)))))) + (_g253693253719_ + _g253694253722_)))))) (declare (not safe)) - (_g253762253890_ _kont253760_))))) + (_g253692253820_ _kont253690_))))) (if (let () (declare (not safe)) - (##pair? _block253725253750_)) - (let ((_tl253742254015_ + (##pair? _block253655253680_)) + (let ((_tl253672253945_ (let () (declare (not safe)) - (##cdr _block253725253750_))) - (_hd253741254013_ + (##cdr _block253655253680_))) + (_hd253671253943_ (let () (declare (not safe)) - (##car _block253725253750_)))) + (##car _block253655253680_)))) (if (let () (declare (not safe)) - (##pair? _tl253742254015_)) - (let ((_tl253744254022_ + (##pair? _tl253672253945_)) + (let ((_tl253674253952_ (let () (declare (not safe)) - (##cdr _tl253742254015_))) - (_hd253743254020_ + (##cdr _tl253672253945_))) + (_hd253673253950_ (let () (declare (not safe)) - (##car _tl253742254015_)))) + (##car _tl253672253945_)))) (if (let () (declare (not safe)) - (##eq? _hd253743254020_ 'restart:)) + (##eq? _hd253673253950_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl253744254022_)) - (let ((_tl253746254027_ + (##pair? _tl253674253952_)) + (let ((_tl253676253957_ (let () (declare (not safe)) - (##cdr _tl253744254022_))) - (_hd253745254025_ + (##cdr _tl253674253952_))) + (_hd253675253955_ (let () (declare (not safe)) - (##car _tl253744254022_)))) + (##car _tl253674253952_)))) (if (let () (declare (not safe)) - (##pair? _tl253746254027_)) - (let ((_tl253748254034_ + (##pair? _tl253676253957_)) + (let ((_tl253678253964_ (let () (declare (not safe)) - (##cdr _tl253746254027_))) - (_hd253747254032_ + (##cdr _tl253676253957_))) + (_hd253677253962_ (let () (declare (not safe)) - (##car _tl253746254027_)))) + (##car _tl253676253957_)))) (if (let () (declare (not safe)) - (##null? _tl253748254034_)) - (let ((_name254018_ - _hd253741254013_) - (_kont254030_ - _hd253745254025_) - (_assert254037_ - _hd253747254032_)) + (##null? _tl253678253964_)) + (let ((_name253948_ + _hd253671253943_) + (_kont253960_ + _hd253675253955_) + (_assert253967_ + _hd253677253962_)) (let () (declare (not safe)) - (_K253740254010_ - _assert254037_ - _kont254030_ - _name254018_))) + (_K253670253940_ + _assert253967_ + _kont253960_ + _name253948_))) (let () (declare (not safe)) - (_E253728253754_)))) + (_E253658253684_)))) (let () (declare (not safe)) - (_E253728253754_)))) + (_E253658253684_)))) (let () (declare (not safe)) - (_E253728253754_))) + (_E253658253684_))) (if (let () (declare (not safe)) - (##eq? _hd253743254020_ + (##eq? _hd253673253950_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _tl253744254022_)) - (let ((_tl253735253910_ + (##pair? _tl253674253952_)) + (let ((_tl253665253840_ (let () (declare (not safe)) - (##cdr _tl253744254022_))) - (_hd253734253908_ + (##cdr _tl253674253952_))) + (_hd253664253838_ (let () (declare (not safe)) - (##car _tl253744254022_)))) + (##car _tl253674253952_)))) (if (let () (declare (not safe)) - (##pair? _tl253735253910_)) - (let ((_tl253737253917_ + (##pair? _tl253665253840_)) + (let ((_tl253667253847_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl253735253910_))) - (_hd253736253915_ - (let () (declare (not safe)) (##car _tl253735253910_)))) - (if (let () (declare (not safe)) (##pair? _tl253737253917_)) - (let ((_tl253739253924_ + (##cdr _tl253665253840_))) + (_hd253666253845_ + (let () (declare (not safe)) (##car _tl253665253840_)))) + (if (let () (declare (not safe)) (##pair? _tl253667253847_)) + (let ((_tl253669253854_ (let () (declare (not safe)) - (##cdr _tl253737253917_))) - (_hd253738253922_ + (##cdr _tl253667253847_))) + (_hd253668253852_ (let () (declare (not safe)) - (##car _tl253737253917_)))) + (##car _tl253667253847_)))) (if (let () (declare (not safe)) - (##null? _tl253739253924_)) - (let ((_name253901_ _hd253741254013_) - (_kont253913_ _hd253734253908_) - (_assert253920_ _hd253736253915_) - (_bind253927_ _hd253738253922_)) + (##null? _tl253669253854_)) + (let ((_name253831_ _hd253671253943_) + (_kont253843_ _hd253664253838_) + (_assert253850_ _hd253666253845_) + (_bind253857_ _hd253668253852_)) (let () (declare (not safe)) - (_K253729253893_ - _bind253927_ - _assert253920_ - _kont253913_ - _name253901_))) - (let () (declare (not safe)) (_E253728253754_)))) - (let () (declare (not safe)) (_E253728253754_)))) - (let () (declare (not safe)) (_E253728253754_)))) + (_K253659253823_ + _bind253857_ + _assert253850_ + _kont253843_ + _name253831_))) + (let () (declare (not safe)) (_E253658253684_)))) + (let () (declare (not safe)) (_E253658253684_)))) + (let () (declare (not safe)) (_E253658253684_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E253728253754_))) + (_E253658253684_))) (let () (declare (not safe)) - (_E253728253754_))))) + (_E253658253684_))))) (let () (declare (not safe)) - (_E253728253754_)))) + (_E253658253684_)))) (let () (declare (not safe)) - (_E253728253754_)))))))) - (if (let () (declare (not safe)) (##pair? _rest253663253671_)) - (let ((_hd253668254042_ + (_E253658253684_)))))))) + (if (let () (declare (not safe)) (##pair? _rest253593253601_)) + (let ((_hd253598253972_ (let () (declare (not safe)) - (##car _rest253663253671_))) - (_tl253669254044_ + (##car _rest253593253601_))) + (_tl253599253974_ (let () (declare (not safe)) - (##cdr _rest253663253671_)))) - (let* ((_block254047_ _hd253668254042_) - (_rest254049_ _tl253669254044_)) + (##cdr _rest253593253601_)))) + (let* ((_block253977_ _hd253598253972_) + (_rest253979_ _tl253599253974_)) (declare (not safe)) - (_K253667254039_ _rest254049_ _block254047_))) - (let () (declare (not safe)) (_else253665253720_))))))) + (_K253597253969_ _rest253979_ _block253977_))) + (let () (declare (not safe)) (_else253595253650_))))))) (define gxc#optimize-match-block - (lambda (_body248290_ _assert248291_ _bind248292_ _blocks248293_) - (letrec* ((_env-assert248528_ '()) - (_env-type248529_ '()) - (_env-bind248530_ '()) - (_in-splice?248531_ '#f) - (_do-assert248532_ - (lambda (_assert253580_ _K253581_) - (if (let () (declare (not safe)) (pair? _assert253580_)) - (let _lp253583_ ((_rest253585_ _assert253580_) - (_env-assert253586_ - _env-assert248528_) - (_env-type253587_ _env-type248529_)) - (let* ((_rest253588253596_ _rest253585_) - (_else253590253604_ + (lambda (_body248220_ _assert248221_ _bind248222_ _blocks248223_) + (letrec* ((_env-assert248458_ '()) + (_env-type248459_ '()) + (_env-bind248460_ '()) + (_in-splice?248461_ '#f) + (_do-assert248462_ + (lambda (_assert253510_ _K253511_) + (if (let () (declare (not safe)) (pair? _assert253510_)) + (let _lp253513_ ((_rest253515_ _assert253510_) + (_env-assert253516_ + _env-assert248458_) + (_env-type253517_ _env-type248459_)) + (let* ((_rest253518253526_ _rest253515_) + (_else253520253534_ (lambda () (let () (declare (not safe)) - (_do-assert!248538_ - _env-assert253586_ - _env-type253587_ - _K253581_)))) - (_K253592253645_ - (lambda (_rest253607_ _assert253608_) - (let* ((_assert253609253616_ - _assert253608_) - (_E253611253620_ + (_do-assert!248468_ + _env-assert253516_ + _env-type253517_ + _K253511_)))) + (_K253522253575_ + (lambda (_rest253537_ _assert253538_) + (let* ((_assert253539253546_ + _assert253538_) + (_E253541253550_ (lambda () (error '"No clause matching" - _assert253609253616_))) - (_K253612253633_ - (lambda (_val253623_ _expr253624_) - (let* ((_sexpr253626_ + _assert253539253546_))) + (_K253542253563_ + (lambda (_val253553_ _expr253554_) + (let* ((_sexpr253556_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr253624_))) - (_env-assert253628_ - (let ((__tmp263465 + _expr253554_))) + (_env-assert253558_ + (let ((__tmp263395 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sexpr253626_ _val253623_)))) + (cons _sexpr253556_ _val253553_)))) (declare (not safe)) - (cons __tmp263465 _env-assert253586_))) - (_env-type253630_ + (cons __tmp263395 _env-assert253516_))) + (_env-type253560_ (let () (declare (not safe)) - (_fold-assert-type248534_ - _expr253624_ - _val253623_ - _env-type253587_)))) + (_fold-assert-type248464_ + _expr253554_ + _val253553_ + _env-type253517_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp253583_ - _rest253607_ - _env-assert253628_ - _env-type253630_)))))) + (_lp253513_ + _rest253537_ + _env-assert253558_ + _env-type253560_)))))) (if (let () (declare (not safe)) - (##pair? _assert253609253616_)) - (let ((_hd253613253636_ + (##pair? _assert253539253546_)) + (let ((_hd253543253566_ (let () (declare (not safe)) - (##car _assert253609253616_))) - (_tl253614253638_ + (##car _assert253539253546_))) + (_tl253544253568_ (let () (declare (not safe)) - (##cdr _assert253609253616_)))) - (let* ((_expr253641_ - _hd253613253636_) - (_val253643_ - _tl253614253638_)) + (##cdr _assert253539253546_)))) + (let* ((_expr253571_ + _hd253543253566_) + (_val253573_ + _tl253544253568_)) (declare (not safe)) - (_K253612253633_ - _val253643_ - _expr253641_))) + (_K253542253563_ + _val253573_ + _expr253571_))) (let () (declare (not safe)) - (_E253611253620_))))))) + (_E253541253550_))))))) (if (let () (declare (not safe)) - (##pair? _rest253588253596_)) - (let ((_hd253593253648_ + (##pair? _rest253518253526_)) + (let ((_hd253523253578_ (let () (declare (not safe)) - (##car _rest253588253596_))) - (_tl253594253650_ + (##car _rest253518253526_))) + (_tl253524253580_ (let () (declare (not safe)) - (##cdr _rest253588253596_)))) - (let* ((_assert253653_ _hd253593253648_) - (_rest253655_ _tl253594253650_)) + (##cdr _rest253518253526_)))) + (let* ((_assert253583_ _hd253523253578_) + (_rest253585_ _tl253524253580_)) (declare (not safe)) - (_K253592253645_ - _rest253655_ - _assert253653_))) + (_K253522253575_ + _rest253585_ + _assert253583_))) (let () (declare (not safe)) - (_else253590253604_))))) - (_K253581_)))) - (_predicate-type248533_ - (lambda (_id253525_) - (let* ((_sym253527_ + (_else253520253534_))))) + (_K253511_)))) + (_predicate-type248463_ + (lambda (_id253455_) + (let* ((_sym253457_ (let () (declare (not safe)) - (gxc#identifier-symbol _id253525_))) - (_$e253529_ _sym253527_)) - (let ((_default253531253562_ + (gxc#identifier-symbol _id253455_))) + (_$e253459_ _sym253457_)) + (let ((_default253461253492_ (lambda () - (let* ((_g253534253541_ + (let* ((_g253464253471_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _sym253527_))) - (_else253536253549_ (lambda () '#f)) - (_K253538253554_ - (lambda (_t253552_) + _sym253457_))) + (_else253466253479_ (lambda () '#f)) + (_K253468253484_ + (lambda (_t253482_) (let () (declare (not safe)) (gxc#optimizer-resolve-type - _t253552_))))) + _t253482_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g253534253541_ + _g253464253471_ 'gxc#!predicate::t)) - (let* ((_e253539253557_ + (let* ((_e253469253487_ (let () (declare (not safe)) (##unchecked-structure-ref - _g253534253541_ + _g253464253471_ '1 gxc#!type::t '#f))) - (_t253560_ _e253539253557_)) + (_t253490_ _e253469253487_)) (declare (not safe)) - (gxc#optimizer-resolve-type _t253560_)) + (gxc#optimizer-resolve-type _t253490_)) (let () (declare (not safe)) - (_else253536253549_)))))) - (_table253532253564_ + (_else253466253479_)))))) + (_table253462253494_ '#(#f (##box? . 3) #f @@ -4333,50 +4333,50 @@ #f #f #f))) - (if (let () (declare (not safe)) (symbol? _$e253529_)) - (let* ((_h253567_ + (if (let () (declare (not safe)) (symbol? _$e253459_)) + (let* ((_h253497_ (let () (declare (not safe)) - (##symbol-hash _$e253529_))) - (_ix253570_ + (##symbol-hash _$e253459_))) + (_ix253500_ (let () (declare (not safe)) - (##fxmodulo _h253567_ '63))) - (_q253573_ + (##fxmodulo _h253497_ '63))) + (_q253503_ (let () (declare (not safe)) (##vector-ref - _table253532253564_ - _ix253570_)))) - (if _q253573_ - (if (let ((__tmp263466 + _table253462253494_ + _ix253500_)))) + (if _q253503_ + (if (let ((__tmp263396 (let () (declare (not safe)) - (##car _q253573_)))) + (##car _q253503_)))) (declare (not safe)) - (eq? __tmp263466 _$e253529_)) - (let ((_x253577_ + (eq? __tmp263396 _$e253459_)) + (let ((_x253507_ (let () (declare (not safe)) - (##cdr _q253573_)))) + (##cdr _q253503_)))) (if (let () (declare (not safe)) - (##fx< _x253577_ '5)) + (##fx< _x253507_ '5)) (if (let () (declare (not safe)) - (##fx< _x253577_ '2)) + (##fx< _x253507_ '2)) (if (let () (declare (not safe)) - (##fx= _x253577_ '0)) + (##fx= _x253507_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _x253577_ '2)) + (##fx= _x253507_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _x253577_ + (##fx= _x253507_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -4384,19 +4384,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _x253577_ '7)) + (##fx< _x253507_ '7)) (if (let () (declare (not safe)) - (##fx= _x253577_ '5)) + (##fx= _x253507_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _x253577_ '7)) + (##fx= _x253507_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _x253577_ + (##fx= _x253507_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box @@ -4404,5304 +4404,5304 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_default253531253562_))) + (_default253461253492_))) (let () (declare (not safe)) - (_default253531253562_)))) + (_default253461253492_)))) (let () (declare (not safe)) - (_default253531253562_))))))) - (_fold-assert-type248534_ - (lambda (_expr252473_ _val252474_ _env252475_) - (let* ((___stx260804260805_ _expr252473_) - (_g252483252662_ + (_default253461253492_))))))) + (_fold-assert-type248464_ + (lambda (_expr252403_ _val252404_ _env252405_) + (let* ((___stx260734260735_ _expr252403_) + (_g252413252592_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx260804260805_))))) - (let ((___kont260806260807_ - (lambda (_L253494_ _L253495_) - (let ((_$e253517_ + ___stx260734260735_))))) + (let ((___kont260736260737_ + (lambda (_L253424_ _L253425_) + (let ((_$e253447_ (let () (declare (not safe)) - (_predicate-type248533_ _L253495_)))) - (if _$e253517_ - ((lambda (_t253520_) - (let ((__tmp263467 - (let ((__tmp263468 - (let ((__tmp263469 + (_predicate-type248463_ _L253425_)))) + (if _$e253447_ + ((lambda (_t253450_) + (let ((__tmp263397 + (let ((__tmp263398 + (let ((__tmp263399 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _val252474_ '())))) + (cons _val252404_ '())))) (declare (not safe)) - (cons _t253520_ __tmp263469)))) + (cons _t253450_ __tmp263399)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L253494_ - __tmp263468)))) + (cons _L253424_ + __tmp263398)))) (declare (not safe)) - (cons __tmp263467 _env252475_))) - _$e253517_) - _env252475_)))) - (___kont260808260809_ - (lambda (_L253184_ _L253185_ _L253186_) - (let ((_$e253211_ + (cons __tmp263397 _env252405_))) + _$e253447_) + _env252405_)))) + (___kont260738260739_ + (lambda (_L253114_ _L253115_ _L253116_) + (let ((_$e253141_ (let () (declare (not safe)) - (gxc#identifier-symbol _L253186_)))) + (gxc#identifier-symbol _L253116_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e253211_)) + (eq? '##fx= _$e253141_)) (let () (declare (not safe)) - (eq? 'fx= _$e253211_))) - (let* ((___stx260710260711_ _L253185_) - (_g253218253247_ + (eq? 'fx= _$e253141_))) + (let* ((___stx260640260641_ _L253115_) + (_g253148253177_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx260710260711_))))) - (let ((___kont260712260713_ - (lambda (_L253315_ _L253316_) - (let ((_$e253341_ + ___stx260640260641_))))) + (let ((___kont260642260643_ + (lambda (_L253245_ _L253246_) + (let ((_$e253271_ (let () (declare (not safe)) - (_countf-symbol248535_ - _L253316_)))) - (if _$e253341_ - ((lambda (_sym253344_) - (let ((__tmp263475 + (_countf-symbol248465_ + _L253246_)))) + (if _$e253271_ + ((lambda (_sym253274_) + (let ((__tmp263405 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263476 - (let ((__tmp263477 - (let ((__tmp263479 + (let ((__tmp263406 + (let ((__tmp263407 + (let ((__tmp263409 (let () (declare (not safe)) - (gx#stx-e _L253184_))) - (__tmp263478 + (gx#stx-e _L253114_))) + (__tmp263408 (let () (declare (not safe)) - (cons _val252474_ '())))) + (cons _val252404_ '())))) (declare (not safe)) - (cons __tmp263479 __tmp263478)))) + (cons __tmp263409 __tmp263408)))) (declare (not safe)) - (cons _sym253344_ __tmp263477)))) + (cons _sym253274_ __tmp263407)))) (declare (not safe)) - (cons _L253315_ __tmp263476)))) + (cons _L253245_ __tmp263406)))) (declare (not safe)) - (cons __tmp263475 _env252475_))) - _$e253341_) - _env252475_)))) + (cons __tmp263405 _env252405_))) + _$e253271_) + _env252405_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260714260715_ - (lambda () _env252475_))) + (___kont260644260645_ + (lambda () _env252405_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx260710260711_)) - (let ((_e253224253259_ + ___stx260640260641_)) + (let ((_e253154253189_ (let () (declare (not safe)) (gx#stx-e - ___stx260710260711_)))) - (let ((_tl253222253264_ + ___stx260640260641_)))) + (let ((_tl253152253194_ (let () (declare (not safe)) - (##cdr _e253224253259_))) - (_hd253223253262_ + (##cdr _e253154253189_))) + (_hd253153253192_ (let () (declare (not safe)) - (##car _e253224253259_)))) + (##car _e253154253189_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd253223253262_)) + _hd253153253192_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd253223253262_)) + _hd253153253192_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl253222253264_)) - (let ((_e253227253267_ + (gx#stx-pair? _tl253152253194_)) + (let ((_e253157253197_ (let () (declare (not safe)) - (gx#stx-e _tl253222253264_)))) - (let ((_tl253225253272_ + (gx#stx-e _tl253152253194_)))) + (let ((_tl253155253202_ (let () (declare (not safe)) - (##cdr _e253227253267_))) - (_hd253226253270_ + (##cdr _e253157253197_))) + (_hd253156253200_ (let () (declare (not safe)) - (##car _e253227253267_)))) + (##car _e253157253197_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd253226253270_)) - (let ((_e253230253275_ + (gx#stx-pair? _hd253156253200_)) + (let ((_e253160253205_ (let () (declare (not safe)) - (gx#stx-e _hd253226253270_)))) - (let ((_tl253228253280_ + (gx#stx-e _hd253156253200_)))) + (let ((_tl253158253210_ (let () (declare (not safe)) - (##cdr _e253230253275_))) - (_hd253229253278_ + (##cdr _e253160253205_))) + (_hd253159253208_ (let () (declare (not safe)) - (##car _e253230253275_)))) + (##car _e253160253205_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd253229253278_)) + (gx#identifier? _hd253159253208_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd253229253278_)) + _hd253159253208_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253228253280_)) - (let ((_e253233253283_ + _tl253158253210_)) + (let ((_e253163253213_ (let () (declare (not safe)) (gx#stx-e - _tl253228253280_)))) - (let ((_tl253231253288_ + _tl253158253210_)))) + (let ((_tl253161253218_ (let () (declare (not safe)) - (##cdr _e253233253283_))) - (_hd253232253286_ + (##cdr _e253163253213_))) + (_hd253162253216_ (let () (declare (not safe)) - (##car _e253233253283_)))) + (##car _e253163253213_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl253231253288_)) + _tl253161253218_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253225253272_)) - (let ((_e253236253291_ + _tl253155253202_)) + (let ((_e253166253221_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl253225253272_)))) - (let ((_tl253234253296_ + (gx#stx-e _tl253155253202_)))) + (let ((_tl253164253226_ (let () (declare (not safe)) - (##cdr _e253236253291_))) - (_hd253235253294_ + (##cdr _e253166253221_))) + (_hd253165253224_ (let () (declare (not safe)) - (##car _e253236253291_)))) + (##car _e253166253221_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd253235253294_)) - (let ((_e253239253299_ + (gx#stx-pair? _hd253165253224_)) + (let ((_e253169253229_ (let () (declare (not safe)) - (gx#stx-e _hd253235253294_)))) - (let ((_tl253237253304_ + (gx#stx-e _hd253165253224_)))) + (let ((_tl253167253234_ (let () (declare (not safe)) - (##cdr _e253239253299_))) - (_hd253238253302_ + (##cdr _e253169253229_))) + (_hd253168253232_ (let () (declare (not safe)) - (##car _e253239253299_)))) + (##car _e253169253229_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd253238253302_)) + (gx#identifier? _hd253168253232_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd253238253302_)) + (gx#stx-eq? '%#ref _hd253168253232_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253237253304_)) - (let ((_e253242253307_ + (gx#stx-pair? _tl253167253234_)) + (let ((_e253172253237_ (let () (declare (not safe)) (gx#stx-e - _tl253237253304_)))) - (let ((_tl253240253312_ + _tl253167253234_)))) + (let ((_tl253170253242_ (let () (declare (not safe)) - (##cdr _e253242253307_))) - (_hd253241253310_ + (##cdr _e253172253237_))) + (_hd253171253240_ (let () (declare (not safe)) - (##car _e253242253307_)))) + (##car _e253172253237_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl253240253312_)) + _tl253170253242_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl253234253296_)) - (___kont260712260713_ - _hd253241253310_ - _hd253232253286_) - (___kont260714260715_)) - (___kont260714260715_)))) - (___kont260714260715_)) - (___kont260714260715_)) - (___kont260714260715_)))) - (___kont260714260715_)))) - (___kont260714260715_)) - (___kont260714260715_)))) + _tl253164253226_)) + (___kont260642260643_ + _hd253171253240_ + _hd253162253216_) + (___kont260644260645_)) + (___kont260644260645_)))) + (___kont260644260645_)) + (___kont260644260645_)) + (___kont260644260645_)))) + (___kont260644260645_)))) + (___kont260644260645_)) + (___kont260644260645_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260714260715_)) - (___kont260714260715_)) - (___kont260714260715_)))) - (___kont260714260715_)))) - (___kont260714260715_)) - (___kont260714260715_)) - (___kont260714260715_)))) + (___kont260644260645_)) + (___kont260644260645_)) + (___kont260644260645_)))) + (___kont260644260645_)))) + (___kont260644260645_)) + (___kont260644260645_)) + (___kont260644260645_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260714260715_)))) + (___kont260644260645_)))) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e253211_)) + (eq? '##eq? _$e253141_)) (let () (declare (not safe)) - (eq? 'eq? _$e253211_)) + (eq? 'eq? _$e253141_)) (let () (declare (not safe)) - (eq? '##eqv? _$e253211_)) + (eq? '##eqv? _$e253141_)) (let () (declare (not safe)) - (eq? 'eqv? _$e253211_)) + (eq? 'eqv? _$e253141_)) (let () (declare (not safe)) - (eq? '##equal? _$e253211_)) + (eq? '##equal? _$e253141_)) (let () (declare (not safe)) - (eq? 'equal? _$e253211_)) + (eq? 'equal? _$e253141_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e253211_)) + _$e253141_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e253211_))) - ((lambda (_sym253370_) - (let* ((_sym253372_ + (eq? 'gx#stx-eq? _$e253141_))) + ((lambda (_sym253300_) + (let* ((_sym253302_ (let () (declare (not safe)) - (_eqf-symbol248536_ - _sym253370_))) - (___stx260778260779_ - _L253185_) - (_g253375253388_ + (_eqf-symbol248466_ + _sym253300_))) + (___stx260708260709_ + _L253115_) + (_g253305253318_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx260778260779_))))) - (let ((___kont260780260781_ - (lambda (_L253416_) - (let ((__tmp263470 - (let ((__tmp263471 + ___stx260708260709_))))) + (let ((___kont260710260711_ + (lambda (_L253346_) + (let ((__tmp263400 + (let ((__tmp263401 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263472 - (let ((__tmp263474 + (let ((__tmp263402 + (let ((__tmp263404 (let () (declare (not safe)) - (gx#stx-e _L253184_))) - (__tmp263473 + (gx#stx-e _L253114_))) + (__tmp263403 (let () (declare (not safe)) - (cons _val252474_ '())))) + (cons _val252404_ '())))) (declare (not safe)) - (cons __tmp263474 __tmp263473)))) + (cons __tmp263404 __tmp263403)))) (declare (not safe)) - (cons _sym253372_ __tmp263472)))) + (cons _sym253302_ __tmp263402)))) (declare (not safe)) - (cons _L253416_ __tmp263471)))) + (cons _L253346_ __tmp263401)))) (declare (not safe)) - (cons __tmp263470 _env252475_)))) + (cons __tmp263400 _env252405_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260782260783_ - (lambda () _env252475_))) + (___kont260712260713_ + (lambda () _env252405_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx260778260779_)) - (let ((_e253380253400_ + ___stx260708260709_)) + (let ((_e253310253330_ (let () (declare (not safe)) (gx#stx-e - ___stx260778260779_)))) - (let ((_tl253378253405_ + ___stx260708260709_)))) + (let ((_tl253308253335_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e253380253400_))) - (_hd253379253403_ - (let () (declare (not safe)) (##car _e253380253400_)))) + (##cdr _e253310253330_))) + (_hd253309253333_ + (let () (declare (not safe)) (##car _e253310253330_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd253379253403_)) + (gx#identifier? _hd253309253333_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd253379253403_)) + (gx#stx-eq? '%#ref _hd253309253333_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253378253405_)) - (let ((_e253383253408_ + (gx#stx-pair? _tl253308253335_)) + (let ((_e253313253338_ (let () (declare (not safe)) - (gx#stx-e _tl253378253405_)))) - (let ((_tl253381253413_ + (gx#stx-e _tl253308253335_)))) + (let ((_tl253311253343_ (let () (declare (not safe)) - (##cdr _e253383253408_))) - (_hd253382253411_ + (##cdr _e253313253338_))) + (_hd253312253341_ (let () (declare (not safe)) - (##car _e253383253408_)))) + (##car _e253313253338_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253381253413_)) - (___kont260780260781_ _hd253382253411_) - (___kont260782260783_)))) - (___kont260782260783_)) - (___kont260782260783_)) - (___kont260782260783_)))) + (gx#stx-null? _tl253311253343_)) + (___kont260710260711_ _hd253312253341_) + (___kont260712260713_)))) + (___kont260712260713_)) + (___kont260712260713_)) + (___kont260712260713_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260782260783_))))) - _$e253211_) - _env252475_))))) - (___kont260810260811_ - (lambda (_L253088_ _L253089_ _L253090_) - (let ((__tmp263480 - (let ((__tmp263490 + (___kont260712260713_))))) + _$e253141_) + _env252405_))))) + (___kont260740260741_ + (lambda (_L253018_ _L253019_ _L253020_) + (let ((__tmp263410 + (let ((__tmp263420 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp263481 - (let ((__tmp263487 - (let ((__tmp263489 + (__tmp263411 + (let ((__tmp263417 + (let ((__tmp263419 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263488 + (__tmp263418 (let () (declare (not safe)) - (cons _L253090_ + (cons _L253020_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp263489 __tmp263488))) + (cons __tmp263419 __tmp263418))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp263482 - (let ((__tmp263483 - (let ((__tmp263484 + (__tmp263412 + (let ((__tmp263413 + (let ((__tmp263414 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263486 + (let ((__tmp263416 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp263485 + (__tmp263415 (let () (declare (not safe)) - (cons _L253089_ '())))) + (cons _L253019_ '())))) (declare (not safe)) - (cons __tmp263486 __tmp263485)))) + (cons __tmp263416 __tmp263415)))) (declare (not safe)) - (cons __tmp263484 '())))) + (cons __tmp263414 '())))) (declare (not safe)) - (cons _L253088_ __tmp263483)))) + (cons _L253018_ __tmp263413)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263487 - __tmp263482)))) + (cons __tmp263417 + __tmp263412)))) (declare (not safe)) - (cons __tmp263490 __tmp263481)))) + (cons __tmp263420 __tmp263411)))) (declare (not safe)) - (_fold-assert-type248534_ - __tmp263480 - _val252474_ - _env252475_)))) - (___kont260812260813_ - (lambda (_L252978_ _L252979_ _L252980_) - (let ((_$e253009_ + (_fold-assert-type248464_ + __tmp263410 + _val252404_ + _env252405_)))) + (___kont260742260743_ + (lambda (_L252908_ _L252909_ _L252910_) + (let ((_$e252939_ (let () (declare (not safe)) - (gxc#identifier-symbol _L252980_)))) + (gxc#identifier-symbol _L252910_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e253009_)) + _$e252939_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e253009_))) - ((lambda (_sym253015_) - (let* ((_sym253017_ + (eq? 'gx#stx-eq? _$e252939_))) + ((lambda (_sym252945_) + (let* ((_sym252947_ (let () (declare (not safe)) - (_eqf-symbol248536_ - _sym253015_))) - (__tmp263491 - (let ((__tmp263492 - (let ((__tmp263493 - (let ((__tmp263494 + (_eqf-symbol248466_ + _sym252945_))) + (__tmp263421 + (let ((__tmp263422 + (let ((__tmp263423 + (let ((__tmp263424 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _val252474_ '())))) + (cons _val252404_ '())))) (declare (not safe)) - (cons _L252978_ __tmp263494)))) + (cons _L252908_ __tmp263424)))) (declare (not safe)) - (cons _sym253017_ __tmp263493)))) + (cons _sym252947_ __tmp263423)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L252979_ - __tmp263492)))) + (cons _L252909_ + __tmp263422)))) (declare (not safe)) - (cons __tmp263491 _env252475_))) - _$e253009_) - _env252475_)))) - (___kont260814260815_ - (lambda (_L252862_ _L252863_ _L252864_) - (let ((__tmp263495 - (let ((__tmp263508 + (cons __tmp263421 _env252405_))) + _$e252939_) + _env252405_)))) + (___kont260744260745_ + (lambda (_L252792_ _L252793_ _L252794_) + (let ((__tmp263425 + (let ((__tmp263438 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp263496 - (let ((__tmp263505 - (let ((__tmp263507 + (__tmp263426 + (let ((__tmp263435 + (let ((__tmp263437 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263506 + (__tmp263436 (let () (declare (not safe)) - (cons _L252864_ + (cons _L252794_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp263507 __tmp263506))) + (cons __tmp263437 __tmp263436))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp263497 - (let ((__tmp263502 - (let ((__tmp263504 + (__tmp263427 + (let ((__tmp263432 + (let ((__tmp263434 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263503 - (let () (declare (not safe)) (cons _L252862_ '())))) + (__tmp263433 + (let () (declare (not safe)) (cons _L252792_ '())))) (declare (not safe)) - (cons __tmp263504 __tmp263503))) - (__tmp263498 - (let ((__tmp263499 - (let ((__tmp263501 + (cons __tmp263434 __tmp263433))) + (__tmp263428 + (let ((__tmp263429 + (let ((__tmp263431 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp263500 + (__tmp263430 (let () (declare (not safe)) - (cons _L252863_ '())))) + (cons _L252793_ '())))) (declare (not safe)) - (cons __tmp263501 __tmp263500)))) + (cons __tmp263431 __tmp263430)))) (declare (not safe)) - (cons __tmp263499 '())))) + (cons __tmp263429 '())))) (declare (not safe)) - (cons __tmp263502 __tmp263498)))) + (cons __tmp263432 __tmp263428)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263505 - __tmp263497)))) + (cons __tmp263435 + __tmp263427)))) (declare (not safe)) - (cons __tmp263508 __tmp263496)))) + (cons __tmp263438 __tmp263426)))) (declare (not safe)) - (_fold-assert-type248534_ - __tmp263495 - _val252474_ - _env252475_)))) - (___kont260816260817_ - (lambda (_L252746_ _L252747_ _L252748_) - (let ((__tmp263509 + (_fold-assert-type248464_ + __tmp263425 + _val252404_ + _env252405_)))) + (___kont260746260747_ + (lambda (_L252676_ _L252677_ _L252678_) + (let ((__tmp263439 (let () (declare (not safe)) (gxc#apply-expression-subst - _L252747_ - _L252748_ - _L252746_)))) + _L252677_ + _L252678_ + _L252676_)))) (declare (not safe)) - (_fold-assert-type248534_ - __tmp263509 - _val252474_ - _env252475_)))) - (___kont260818260819_ (lambda () _env252475_))) + (_fold-assert-type248464_ + __tmp263439 + _val252404_ + _env252405_)))) + (___kont260748260749_ (lambda () _env252405_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx260804260805_)) - (let ((_e252489253438_ + (gx#stx-pair? ___stx260734260735_)) + (let ((_e252419253368_ (let () (declare (not safe)) - (gx#stx-e ___stx260804260805_)))) - (let ((_tl252487253443_ + (gx#stx-e ___stx260734260735_)))) + (let ((_tl252417253373_ (let () (declare (not safe)) - (##cdr _e252489253438_))) - (_hd252488253441_ + (##cdr _e252419253368_))) + (_hd252418253371_ (let () (declare (not safe)) - (##car _e252489253438_)))) + (##car _e252419253368_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd252488253441_)) + (gx#identifier? _hd252418253371_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd252488253441_)) + _hd252418253371_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252487253443_)) - (let ((_e252492253446_ + (gx#stx-pair? _tl252417253373_)) + (let ((_e252422253376_ (let () (declare (not safe)) (gx#stx-e - _tl252487253443_)))) - (let ((_tl252490253451_ + _tl252417253373_)))) + (let ((_tl252420253381_ (let () (declare (not safe)) - (##cdr _e252492253446_))) - (_hd252491253449_ + (##cdr _e252422253376_))) + (_hd252421253379_ (let () (declare (not safe)) - (##car _e252492253446_)))) + (##car _e252422253376_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd252491253449_)) - (let ((_e252495253454_ + _hd252421253379_)) + (let ((_e252425253384_ (let () (declare (not safe)) (gx#stx-e - _hd252491253449_)))) - (let ((_tl252493253459_ + _hd252421253379_)))) + (let ((_tl252423253389_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e252495253454_))) - (_hd252494253457_ - (let () (declare (not safe)) (##car _e252495253454_)))) + (##cdr _e252425253384_))) + (_hd252424253387_ + (let () (declare (not safe)) (##car _e252425253384_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd252494253457_)) + (gx#identifier? _hd252424253387_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd252494253457_)) + (gx#stx-eq? '%#ref _hd252424253387_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252493253459_)) - (let ((_e252498253462_ + (gx#stx-pair? _tl252423253389_)) + (let ((_e252428253392_ (let () (declare (not safe)) - (gx#stx-e _tl252493253459_)))) - (let ((_tl252496253467_ + (gx#stx-e _tl252423253389_)))) + (let ((_tl252426253397_ (let () (declare (not safe)) - (##cdr _e252498253462_))) - (_hd252497253465_ + (##cdr _e252428253392_))) + (_hd252427253395_ (let () (declare (not safe)) - (##car _e252498253462_)))) + (##car _e252428253392_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252496253467_)) + (gx#stx-null? _tl252426253397_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252490253451_)) - (let ((_e252501253470_ + (gx#stx-pair? _tl252420253381_)) + (let ((_e252431253400_ (let () (declare (not safe)) (gx#stx-e - _tl252490253451_)))) - (let ((_tl252499253475_ + _tl252420253381_)))) + (let ((_tl252429253405_ (let () (declare (not safe)) - (##cdr _e252501253470_))) - (_hd252500253473_ + (##cdr _e252431253400_))) + (_hd252430253403_ (let () (declare (not safe)) - (##car _e252501253470_)))) + (##car _e252431253400_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd252500253473_)) - (let ((_e252504253478_ + _hd252430253403_)) + (let ((_e252434253408_ (let () (declare (not safe)) (gx#stx-e - _hd252500253473_)))) - (let ((_tl252502253483_ + _hd252430253403_)))) + (let ((_tl252432253413_ (let () (declare (not safe)) - (##cdr _e252504253478_))) - (_hd252503253481_ + (##cdr _e252434253408_))) + (_hd252433253411_ (let () (declare (not safe)) - (##car _e252504253478_)))) + (##car _e252434253408_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd252503253481_)) + _hd252433253411_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd252503253481_)) + (gx#stx-eq? '%#ref _hd252433253411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252502253483_)) - (let ((_e252507253486_ + (gx#stx-pair? _tl252432253413_)) + (let ((_e252437253416_ (let () (declare (not safe)) - (gx#stx-e _tl252502253483_)))) - (let ((_tl252505253491_ + (gx#stx-e _tl252432253413_)))) + (let ((_tl252435253421_ (let () (declare (not safe)) - (##cdr _e252507253486_))) - (_hd252506253489_ + (##cdr _e252437253416_))) + (_hd252436253419_ (let () (declare (not safe)) - (##car _e252507253486_)))) + (##car _e252437253416_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252505253491_)) + (gx#stx-null? _tl252435253421_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl252499253475_)) - (___kont260806260807_ - _hd252506253489_ - _hd252497253465_) + (gx#stx-null? _tl252429253405_)) + (___kont260736260737_ + _hd252436253419_ + _hd252427253395_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252499253475_)) - (let ((_e252528253160_ + (gx#stx-pair? _tl252429253405_)) + (let ((_e252458253090_ (let () (declare (not safe)) (gx#stx-e - _tl252499253475_)))) - (let ((_tl252526253165_ + _tl252429253405_)))) + (let ((_tl252456253095_ (let () (declare (not safe)) - (##cdr _e252528253160_))) - (_hd252527253163_ + (##cdr _e252458253090_))) + (_hd252457253093_ (let () (declare (not safe)) - (##car _e252528253160_)))) + (##car _e252458253090_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd252527253163_)) - (let ((_e252531253168_ + _hd252457253093_)) + (let ((_e252461253098_ (let () (declare (not safe)) (gx#stx-e - _hd252527253163_)))) - (let ((_tl252529253173_ + _hd252457253093_)))) + (let ((_tl252459253103_ (let () (declare (not safe)) - (##cdr _e252531253168_))) - (_hd252530253171_ + (##cdr _e252461253098_))) + (_hd252460253101_ (let () (declare (not safe)) - (##car _e252531253168_)))) + (##car _e252461253098_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd252530253171_)) + _hd252460253101_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd252530253171_)) + (gx#stx-eq? '%#quote _hd252460253101_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252529253173_)) - (let ((_e252534253176_ + (gx#stx-pair? _tl252459253103_)) + (let ((_e252464253106_ (let () (declare (not safe)) - (gx#stx-e _tl252529253173_)))) - (let ((_tl252532253181_ + (gx#stx-e _tl252459253103_)))) + (let ((_tl252462253111_ (let () (declare (not safe)) - (##cdr _e252534253176_))) - (_hd252533253179_ + (##cdr _e252464253106_))) + (_hd252463253109_ (let () (declare (not safe)) - (##car _e252534253176_)))) + (##car _e252464253106_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252532253181_)) + (gx#stx-null? _tl252462253111_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl252526253165_)) - (___kont260808260809_ - _hd252533253179_ - _hd252500253473_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) + (gx#stx-null? _tl252456253095_)) + (___kont260738260739_ + _hd252463253109_ + _hd252430253403_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd252530253171_)) + (gx#stx-eq? '%#quote-syntax _hd252460253101_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252529253173_)) - (let ((_e252594252970_ + (gx#stx-pair? _tl252459253103_)) + (let ((_e252524252900_ (let () (declare (not safe)) - (gx#stx-e _tl252529253173_)))) - (let ((_tl252592252975_ + (gx#stx-e _tl252459253103_)))) + (let ((_tl252522252905_ (let () (declare (not safe)) - (##cdr _e252594252970_))) - (_hd252593252973_ + (##cdr _e252524252900_))) + (_hd252523252903_ (let () (declare (not safe)) - (##car _e252594252970_)))) + (##car _e252524252900_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252592252975_)) + (gx#stx-null? _tl252522252905_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl252526253165_)) - (___kont260812260813_ - _hd252593252973_ - _hd252506253489_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) - (___kont260818260819_))) - (___kont260818260819_)))) + (gx#stx-null? _tl252456253095_)) + (___kont260742260743_ + _hd252523252903_ + _hd252436253419_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) + (___kont260748260749_))) + (___kont260748260749_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_)))) - (___kont260818260819_))) + (___kont260748260749_)))) + (___kont260748260749_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252499253475_)) - (let ((_e252528253160_ + (gx#stx-pair? _tl252429253405_)) + (let ((_e252458253090_ (let () (declare (not safe)) - (gx#stx-e _tl252499253475_)))) - (let ((_tl252526253165_ + (gx#stx-e _tl252429253405_)))) + (let ((_tl252456253095_ (let () (declare (not safe)) - (##cdr _e252528253160_))) - (_hd252527253163_ + (##cdr _e252458253090_))) + (_hd252457253093_ (let () (declare (not safe)) - (##car _e252528253160_)))) + (##car _e252458253090_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd252527253163_)) - (let ((_e252531253168_ + (gx#stx-pair? _hd252457253093_)) + (let ((_e252461253098_ (let () (declare (not safe)) (gx#stx-e - _hd252527253163_)))) - (let ((_tl252529253173_ + _hd252457253093_)))) + (let ((_tl252459253103_ (let () (declare (not safe)) - (##cdr _e252531253168_))) - (_hd252530253171_ + (##cdr _e252461253098_))) + (_hd252460253101_ (let () (declare (not safe)) - (##car _e252531253168_)))) + (##car _e252461253098_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd252530253171_)) + _hd252460253101_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd252530253171_)) + _hd252460253101_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl252529253173_)) - (let ((_e252534253176_ + (gx#stx-pair? _tl252459253103_)) + (let ((_e252464253106_ (let () (declare (not safe)) - (gx#stx-e _tl252529253173_)))) - (let ((_tl252532253181_ + (gx#stx-e _tl252459253103_)))) + (let ((_tl252462253111_ (let () (declare (not safe)) - (##cdr _e252534253176_))) - (_hd252533253179_ + (##cdr _e252464253106_))) + (_hd252463253109_ (let () (declare (not safe)) - (##car _e252534253176_)))) + (##car _e252464253106_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252532253181_)) + (gx#stx-null? _tl252462253111_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl252526253165_)) - (___kont260808260809_ - _hd252533253179_ - _hd252500253473_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) - (___kont260818260819_)) + (gx#stx-null? _tl252456253095_)) + (___kont260738260739_ + _hd252463253109_ + _hd252430253403_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) + (___kont260748260749_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_)))) - (___kont260818260819_)))) - (___kont260818260819_))))) + (___kont260748260749_)))) + (___kont260748260749_)))) + (___kont260748260749_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252499253475_)) - (let ((_e252528253160_ + (gx#stx-pair? _tl252429253405_)) + (let ((_e252458253090_ (let () (declare (not safe)) - (gx#stx-e _tl252499253475_)))) - (let ((_tl252526253165_ + (gx#stx-e _tl252429253405_)))) + (let ((_tl252456253095_ (let () (declare (not safe)) - (##cdr _e252528253160_))) - (_hd252527253163_ + (##cdr _e252458253090_))) + (_hd252457253093_ (let () (declare (not safe)) - (##car _e252528253160_)))) + (##car _e252458253090_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd252527253163_)) - (let ((_e252531253168_ + (gx#stx-pair? _hd252457253093_)) + (let ((_e252461253098_ (let () (declare (not safe)) - (gx#stx-e _hd252527253163_)))) - (let ((_tl252529253173_ + (gx#stx-e _hd252457253093_)))) + (let ((_tl252459253103_ (let () (declare (not safe)) - (##cdr _e252531253168_))) - (_hd252530253171_ + (##cdr _e252461253098_))) + (_hd252460253101_ (let () (declare (not safe)) - (##car _e252531253168_)))) + (##car _e252461253098_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd252530253171_)) + _hd252460253101_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd252530253171_)) + _hd252460253101_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl252529253173_)) - (let ((_e252534253176_ + _tl252459253103_)) + (let ((_e252464253106_ (let () (declare (not safe)) (gx#stx-e - _tl252529253173_)))) - (let ((_tl252532253181_ + _tl252459253103_)))) + (let ((_tl252462253111_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e252534253176_))) - (_hd252533253179_ - (let () (declare (not safe)) (##car _e252534253176_)))) + (##cdr _e252464253106_))) + (_hd252463253109_ + (let () (declare (not safe)) (##car _e252464253106_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252532253181_)) + (gx#stx-null? _tl252462253111_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl252526253165_)) - (___kont260808260809_ - _hd252533253179_ - _hd252500253473_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) + (gx#stx-null? _tl252456253095_)) + (___kont260738260739_ + _hd252463253109_ + _hd252430253403_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_)) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)))) - (___kont260818260819_))) + (___kont260748260749_)) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)))) + (___kont260748260749_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252499253475_)) - (let ((_e252528253160_ + (gx#stx-pair? _tl252429253405_)) + (let ((_e252458253090_ (let () (declare (not safe)) - (gx#stx-e _tl252499253475_)))) - (let ((_tl252526253165_ + (gx#stx-e _tl252429253405_)))) + (let ((_tl252456253095_ (let () (declare (not safe)) - (##cdr _e252528253160_))) - (_hd252527253163_ + (##cdr _e252458253090_))) + (_hd252457253093_ (let () (declare (not safe)) - (##car _e252528253160_)))) + (##car _e252458253090_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd252527253163_)) - (let ((_e252531253168_ + (gx#stx-pair? _hd252457253093_)) + (let ((_e252461253098_ (let () (declare (not safe)) - (gx#stx-e _hd252527253163_)))) - (let ((_tl252529253173_ + (gx#stx-e _hd252457253093_)))) + (let ((_tl252459253103_ (let () (declare (not safe)) - (##cdr _e252531253168_))) - (_hd252530253171_ + (##cdr _e252461253098_))) + (_hd252460253101_ (let () (declare (not safe)) - (##car _e252531253168_)))) + (##car _e252461253098_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd252530253171_)) + (gx#identifier? _hd252460253101_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd252530253171_)) + _hd252460253101_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl252529253173_)) - (let ((_e252534253176_ + _tl252459253103_)) + (let ((_e252464253106_ (let () (declare (not safe)) (gx#stx-e - _tl252529253173_)))) - (let ((_tl252532253181_ + _tl252459253103_)))) + (let ((_tl252462253111_ (let () (declare (not safe)) - (##cdr _e252534253176_))) - (_hd252533253179_ + (##cdr _e252464253106_))) + (_hd252463253109_ (let () (declare (not safe)) - (##car _e252534253176_)))) + (##car _e252464253106_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl252532253181_)) + _tl252462253111_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl252526253165_)) - (___kont260808260809_ - _hd252533253179_ - _hd252500253473_ - _hd252497253465_) + (gx#stx-null? _tl252456253095_)) + (___kont260738260739_ + _hd252463253109_ + _hd252430253403_ + _hd252427253395_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd252503253481_)) + (gx#stx-eq? '%#quote _hd252433253411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252502253483_)) - (let ((_e252558253072_ + (gx#stx-pair? _tl252432253413_)) + (let ((_e252488253002_ (let () (declare (not safe)) - (gx#stx-e _tl252502253483_)))) - (let ((_tl252556253077_ + (gx#stx-e _tl252432253413_)))) + (let ((_tl252486253007_ (let () (declare (not safe)) - (##cdr _e252558253072_))) - (_hd252557253075_ + (##cdr _e252488253002_))) + (_hd252487253005_ (let () (declare (not safe)) - (##car _e252558253072_)))) - (___kont260818260819_))) - (___kont260818260819_)) + (##car _e252488253002_)))) + (___kont260748260749_))) + (___kont260748260749_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd252503253481_)) + (gx#stx-eq? '%#quote-syntax _hd252433253411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252502253483_)) - (let ((_e252618252830_ + (gx#stx-pair? _tl252432253413_)) + (let ((_e252548252760_ (let () (declare (not safe)) - (gx#stx-e _tl252502253483_)))) - (let ((_tl252616252835_ + (gx#stx-e _tl252432253413_)))) + (let ((_tl252546252765_ (let () (declare (not safe)) - (##cdr _e252618252830_))) - (_hd252617252833_ + (##cdr _e252548252760_))) + (_hd252547252763_ (let () (declare (not safe)) - (##car _e252618252830_)))) - (___kont260818260819_))) - (___kont260818260819_)) - (___kont260818260819_)))) + (##car _e252548252760_)))) + (___kont260748260749_))) + (___kont260748260749_)) + (___kont260748260749_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd252503253481_)) + (gx#stx-eq? '%#quote _hd252433253411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252502253483_)) - (let ((_e252558253072_ + (gx#stx-pair? _tl252432253413_)) + (let ((_e252488253002_ (let () (declare (not safe)) - (gx#stx-e _tl252502253483_)))) - (let ((_tl252556253077_ + (gx#stx-e _tl252432253413_)))) + (let ((_tl252486253007_ (let () (declare (not safe)) - (##cdr _e252558253072_))) - (_hd252557253075_ + (##cdr _e252488253002_))) + (_hd252487253005_ (let () (declare (not safe)) - (##car _e252558253072_)))) + (##car _e252488253002_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252556253077_)) + (gx#stx-null? _tl252486253007_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl252526253165_)) - (___kont260810260811_ - _hd252527253163_ - _hd252557253075_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) + (gx#stx-null? _tl252456253095_)) + (___kont260740260741_ + _hd252457253093_ + _hd252487253005_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd252503253481_)) + (gx#stx-eq? '%#quote-syntax _hd252433253411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252502253483_)) - (let ((_e252618252830_ + (gx#stx-pair? _tl252432253413_)) + (let ((_e252548252760_ (let () (declare (not safe)) - (gx#stx-e _tl252502253483_)))) - (let ((_tl252616252835_ + (gx#stx-e _tl252432253413_)))) + (let ((_tl252546252765_ (let () (declare (not safe)) - (##cdr _e252618252830_))) - (_hd252617252833_ + (##cdr _e252548252760_))) + (_hd252547252763_ (let () (declare (not safe)) - (##car _e252618252830_)))) - (___kont260818260819_))) - (___kont260818260819_)) - (___kont260818260819_)))))) + (##car _e252548252760_)))) + (___kont260748260749_))) + (___kont260748260749_)) + (___kont260748260749_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd252503253481_)) + _hd252433253411_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl252502253483_)) - (let ((_e252558253072_ + _tl252432253413_)) + (let ((_e252488253002_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl252502253483_)))) - (let ((_tl252556253077_ + (gx#stx-e _tl252432253413_)))) + (let ((_tl252486253007_ (let () (declare (not safe)) - (##cdr _e252558253072_))) - (_hd252557253075_ + (##cdr _e252488253002_))) + (_hd252487253005_ (let () (declare (not safe)) - (##car _e252558253072_)))) + (##car _e252488253002_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252556253077_)) + (gx#stx-null? _tl252486253007_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl252526253165_)) - (___kont260810260811_ - _hd252527253163_ - _hd252557253075_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) + (gx#stx-null? _tl252456253095_)) + (___kont260740260741_ + _hd252457253093_ + _hd252487253005_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd252503253481_)) + _hd252433253411_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl252502253483_)) - (let ((_e252618252830_ + (gx#stx-pair? _tl252432253413_)) + (let ((_e252548252760_ (let () (declare (not safe)) - (gx#stx-e _tl252502253483_)))) - (let ((_tl252616252835_ + (gx#stx-e _tl252432253413_)))) + (let ((_tl252546252765_ (let () (declare (not safe)) - (##cdr _e252618252830_))) - (_hd252617252833_ + (##cdr _e252548252760_))) + (_hd252547252763_ (let () (declare (not safe)) - (##car _e252618252830_)))) - (___kont260818260819_))) - (___kont260818260819_)) - (___kont260818260819_)))) + (##car _e252548252760_)))) + (___kont260748260749_))) + (___kont260748260749_)) + (___kont260748260749_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd252503253481_)) + _hd252433253411_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl252502253483_)) - (let ((_e252558253072_ + _tl252432253413_)) + (let ((_e252488253002_ (let () (declare (not safe)) (gx#stx-e - _tl252502253483_)))) - (let ((_tl252556253077_ + _tl252432253413_)))) + (let ((_tl252486253007_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e252558253072_))) - (_hd252557253075_ - (let () (declare (not safe)) (##car _e252558253072_)))) + (##cdr _e252488253002_))) + (_hd252487253005_ + (let () (declare (not safe)) (##car _e252488253002_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252556253077_)) + (gx#stx-null? _tl252486253007_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl252526253165_)) - (___kont260810260811_ - _hd252527253163_ - _hd252557253075_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) + (gx#stx-null? _tl252456253095_)) + (___kont260740260741_ + _hd252457253093_ + _hd252487253005_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_)) + (___kont260748260749_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd252503253481_)) + _hd252433253411_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl252502253483_)) - (let ((_e252618252830_ + _tl252432253413_)) + (let ((_e252548252760_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl252502253483_)))) - (let ((_tl252616252835_ + (gx#stx-e _tl252432253413_)))) + (let ((_tl252546252765_ (let () (declare (not safe)) - (##cdr _e252618252830_))) - (_hd252617252833_ + (##cdr _e252548252760_))) + (_hd252547252763_ (let () (declare (not safe)) - (##car _e252618252830_)))) + (##car _e252548252760_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252616252835_)) + (gx#stx-null? _tl252546252765_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd252530253171_)) + (gx#stx-eq? '%#ref _hd252460253101_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252529253173_)) - (let ((_e252627252854_ + (gx#stx-pair? _tl252459253103_)) + (let ((_e252557252784_ (let () (declare (not safe)) - (gx#stx-e _tl252529253173_)))) - (let ((_tl252625252859_ + (gx#stx-e _tl252459253103_)))) + (let ((_tl252555252789_ (let () (declare (not safe)) - (##cdr _e252627252854_))) - (_hd252626252857_ + (##cdr _e252557252784_))) + (_hd252556252787_ (let () (declare (not safe)) - (##car _e252627252854_)))) + (##car _e252557252784_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252625252859_)) + (gx#stx-null? _tl252555252789_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl252526253165_)) - (___kont260814260815_ - _hd252626252857_ - _hd252617252833_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) + (gx#stx-null? _tl252456253095_)) + (___kont260744260745_ + _hd252556252787_ + _hd252547252763_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_)))) + (___kont260748260749_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd252503253481_)) + _hd252433253411_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl252502253483_)) - (let ((_e252558253072_ + _tl252432253413_)) + (let ((_e252488253002_ (let () (declare (not safe)) (gx#stx-e - _tl252502253483_)))) - (let ((_tl252556253077_ + _tl252432253413_)))) + (let ((_tl252486253007_ (let () (declare (not safe)) - (##cdr _e252558253072_))) - (_hd252557253075_ + (##cdr _e252488253002_))) + (_hd252487253005_ (let () (declare (not safe)) - (##car _e252558253072_)))) + (##car _e252488253002_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl252556253077_)) + _tl252486253007_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl252526253165_)) - (___kont260810260811_ - _hd252527253163_ - _hd252557253075_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) + (gx#stx-null? _tl252456253095_)) + (___kont260740260741_ + _hd252457253093_ + _hd252487253005_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_)) + (___kont260748260749_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd252503253481_)) + _hd252433253411_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl252502253483_)) - (let ((_e252618252830_ + _tl252432253413_)) + (let ((_e252548252760_ (let () (declare (not safe)) (gx#stx-e - _tl252502253483_)))) - (let ((_tl252616252835_ + _tl252432253413_)))) + (let ((_tl252546252765_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e252618252830_))) - (_hd252617252833_ - (let () (declare (not safe)) (##car _e252618252830_)))) - (___kont260818260819_))) + (##cdr _e252548252760_))) + (_hd252547252763_ + (let () (declare (not safe)) (##car _e252548252760_)))) + (___kont260748260749_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_)) - (___kont260818260819_)))))) + (___kont260748260749_)) + (___kont260748260749_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd252503253481_)) + (gx#stx-eq? '%#quote _hd252433253411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252502253483_)) - (let ((_e252558253072_ + (gx#stx-pair? _tl252432253413_)) + (let ((_e252488253002_ (let () (declare (not safe)) (gx#stx-e - _tl252502253483_)))) - (let ((_tl252556253077_ + _tl252432253413_)))) + (let ((_tl252486253007_ (let () (declare (not safe)) - (##cdr _e252558253072_))) - (_hd252557253075_ + (##cdr _e252488253002_))) + (_hd252487253005_ (let () (declare (not safe)) - (##car _e252558253072_)))) + (##car _e252488253002_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl252556253077_)) + _tl252486253007_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl252526253165_)) - (___kont260810260811_ - _hd252527253163_ - _hd252557253075_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) + _tl252456253095_)) + (___kont260740260741_ + _hd252457253093_ + _hd252487253005_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd252503253481_)) + _hd252433253411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252502253483_)) - (let ((_e252618252830_ + (gx#stx-pair? _tl252432253413_)) + (let ((_e252548252760_ (let () (declare (not safe)) (gx#stx-e - _tl252502253483_)))) - (let ((_tl252616252835_ + _tl252432253413_)))) + (let ((_tl252546252765_ (let () (declare (not safe)) - (##cdr _e252618252830_))) - (_hd252617252833_ + (##cdr _e252548252760_))) + (_hd252547252763_ (let () (declare (not safe)) - (##car _e252618252830_)))) - (___kont260818260819_))) - (___kont260818260819_)) - (___kont260818260819_)))))) + (##car _e252548252760_)))) + (___kont260748260749_))) + (___kont260748260749_)) + (___kont260748260749_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd252503253481_)) + (gx#stx-eq? '%#quote _hd252433253411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252502253483_)) - (let ((_e252558253072_ + (gx#stx-pair? _tl252432253413_)) + (let ((_e252488253002_ (let () (declare (not safe)) - (gx#stx-e _tl252502253483_)))) - (let ((_tl252556253077_ + (gx#stx-e _tl252432253413_)))) + (let ((_tl252486253007_ (let () (declare (not safe)) - (##cdr _e252558253072_))) - (_hd252557253075_ + (##cdr _e252488253002_))) + (_hd252487253005_ (let () (declare (not safe)) - (##car _e252558253072_)))) - (___kont260818260819_))) - (___kont260818260819_)) + (##car _e252488253002_)))) + (___kont260748260749_))) + (___kont260748260749_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd252503253481_)) + _hd252433253411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252502253483_)) - (let ((_e252618252830_ + (gx#stx-pair? _tl252432253413_)) + (let ((_e252548252760_ (let () (declare (not safe)) - (gx#stx-e _tl252502253483_)))) - (let ((_tl252616252835_ + (gx#stx-e _tl252432253413_)))) + (let ((_tl252546252765_ (let () (declare (not safe)) - (##cdr _e252618252830_))) - (_hd252617252833_ + (##cdr _e252548252760_))) + (_hd252547252763_ (let () (declare (not safe)) - (##car _e252618252830_)))) - (___kont260818260819_))) - (___kont260818260819_)) - (___kont260818260819_))))) + (##car _e252548252760_)))) + (___kont260748260749_))) + (___kont260748260749_)) + (___kont260748260749_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252499253475_)) - (let ((_e252528253160_ + (gx#stx-pair? _tl252429253405_)) + (let ((_e252458253090_ (let () (declare (not safe)) - (gx#stx-e _tl252499253475_)))) - (let ((_tl252526253165_ + (gx#stx-e _tl252429253405_)))) + (let ((_tl252456253095_ (let () (declare (not safe)) - (##cdr _e252528253160_))) - (_hd252527253163_ + (##cdr _e252458253090_))) + (_hd252457253093_ (let () (declare (not safe)) - (##car _e252528253160_)))) + (##car _e252458253090_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd252527253163_)) - (let ((_e252531253168_ + (gx#stx-pair? _hd252457253093_)) + (let ((_e252461253098_ (let () (declare (not safe)) - (gx#stx-e _hd252527253163_)))) - (let ((_tl252529253173_ + (gx#stx-e _hd252457253093_)))) + (let ((_tl252459253103_ (let () (declare (not safe)) - (##cdr _e252531253168_))) - (_hd252530253171_ + (##cdr _e252461253098_))) + (_hd252460253101_ (let () (declare (not safe)) - (##car _e252531253168_)))) + (##car _e252461253098_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd252530253171_)) + (gx#identifier? _hd252460253101_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd252530253171_)) + _hd252460253101_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252529253173_)) - (let ((_e252534253176_ + (gx#stx-pair? _tl252459253103_)) + (let ((_e252464253106_ (let () (declare (not safe)) (gx#stx-e - _tl252529253173_)))) - (let ((_tl252532253181_ + _tl252459253103_)))) + (let ((_tl252462253111_ (let () (declare (not safe)) - (##cdr _e252534253176_))) - (_hd252533253179_ + (##cdr _e252464253106_))) + (_hd252463253109_ (let () (declare (not safe)) - (##car _e252534253176_)))) + (##car _e252464253106_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl252532253181_)) + _tl252462253111_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl252526253165_)) - (___kont260808260809_ - _hd252533253179_ - _hd252500253473_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)))) - (___kont260818260819_))))) + _tl252456253095_)) + (___kont260738260739_ + _hd252463253109_ + _hd252430253403_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)))) + (___kont260748260749_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl252499253475_)) - (let ((_e252528253160_ + _tl252429253405_)) + (let ((_e252458253090_ (let () (declare (not safe)) (gx#stx-e - _tl252499253475_)))) - (let ((_tl252526253165_ + _tl252429253405_)))) + (let ((_tl252456253095_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e252528253160_))) - (_hd252527253163_ - (let () (declare (not safe)) (##car _e252528253160_)))) + (##cdr _e252458253090_))) + (_hd252457253093_ + (let () (declare (not safe)) (##car _e252458253090_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd252527253163_)) - (let ((_e252531253168_ + (gx#stx-pair? _hd252457253093_)) + (let ((_e252461253098_ (let () (declare (not safe)) - (gx#stx-e _hd252527253163_)))) - (let ((_tl252529253173_ + (gx#stx-e _hd252457253093_)))) + (let ((_tl252459253103_ (let () (declare (not safe)) - (##cdr _e252531253168_))) - (_hd252530253171_ + (##cdr _e252461253098_))) + (_hd252460253101_ (let () (declare (not safe)) - (##car _e252531253168_)))) + (##car _e252461253098_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd252530253171_)) + (gx#identifier? _hd252460253101_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd252530253171_)) + (gx#stx-eq? '%#quote _hd252460253101_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252529253173_)) - (let ((_e252534253176_ + (gx#stx-pair? _tl252459253103_)) + (let ((_e252464253106_ (let () (declare (not safe)) - (gx#stx-e _tl252529253173_)))) - (let ((_tl252532253181_ + (gx#stx-e _tl252459253103_)))) + (let ((_tl252462253111_ (let () (declare (not safe)) - (##cdr _e252534253176_))) - (_hd252533253179_ + (##cdr _e252464253106_))) + (_hd252463253109_ (let () (declare (not safe)) - (##car _e252534253176_)))) + (##car _e252464253106_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252532253181_)) + (gx#stx-null? _tl252462253111_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl252526253165_)) - (___kont260808260809_ - _hd252533253179_ - _hd252500253473_ - _hd252497253465_) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)))) + _tl252456253095_)) + (___kont260738260739_ + _hd252463253109_ + _hd252430253403_ + _hd252427253395_) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_))))) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)) + (___kont260748260749_))))) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd252494253457_)) + (gx#stx-eq? '%#lambda _hd252424253387_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252493253459_)) - (let ((_e252642252698_ + (gx#stx-pair? _tl252423253389_)) + (let ((_e252572252628_ (let () (declare (not safe)) - (gx#stx-e _tl252493253459_)))) - (let ((_tl252640252703_ + (gx#stx-e _tl252423253389_)))) + (let ((_tl252570252633_ (let () (declare (not safe)) - (##cdr _e252642252698_))) - (_hd252641252701_ + (##cdr _e252572252628_))) + (_hd252571252631_ (let () (declare (not safe)) - (##car _e252642252698_)))) + (##car _e252572252628_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd252641252701_)) - (let ((_e252645252706_ + (gx#stx-pair? _hd252571252631_)) + (let ((_e252575252636_ (let () (declare (not safe)) (gx#stx-e - _hd252641252701_)))) - (let ((_tl252643252711_ + _hd252571252631_)))) + (let ((_tl252573252641_ (let () (declare (not safe)) - (##cdr _e252645252706_))) - (_hd252644252709_ + (##cdr _e252575252636_))) + (_hd252574252639_ (let () (declare (not safe)) - (##car _e252645252706_)))) + (##car _e252575252636_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl252643252711_)) + _tl252573252641_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl252640252703_)) - (let ((_e252648252714_ + _tl252570252633_)) + (let ((_e252578252644_ (let () (declare (not safe)) (gx#stx-e - _tl252640252703_)))) - (let ((_tl252646252719_ + _tl252570252633_)))) + (let ((_tl252576252649_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e252648252714_))) - (_hd252647252717_ - (let () (declare (not safe)) (##car _e252648252714_)))) + (##cdr _e252578252644_))) + (_hd252577252647_ + (let () (declare (not safe)) (##car _e252578252644_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252646252719_)) + (gx#stx-null? _tl252576252649_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252490253451_)) - (let ((_e252651252722_ + (gx#stx-pair? _tl252420253381_)) + (let ((_e252581252652_ (let () (declare (not safe)) - (gx#stx-e _tl252490253451_)))) - (let ((_tl252649252727_ + (gx#stx-e _tl252420253381_)))) + (let ((_tl252579252657_ (let () (declare (not safe)) - (##cdr _e252651252722_))) - (_hd252650252725_ + (##cdr _e252581252652_))) + (_hd252580252655_ (let () (declare (not safe)) - (##car _e252651252722_)))) + (##car _e252581252652_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd252650252725_)) - (let ((_e252654252730_ + (gx#stx-pair? _hd252580252655_)) + (let ((_e252584252660_ (let () (declare (not safe)) - (gx#stx-e _hd252650252725_)))) - (let ((_tl252652252735_ + (gx#stx-e _hd252580252655_)))) + (let ((_tl252582252665_ (let () (declare (not safe)) - (##cdr _e252654252730_))) - (_hd252653252733_ + (##cdr _e252584252660_))) + (_hd252583252663_ (let () (declare (not safe)) - (##car _e252654252730_)))) + (##car _e252584252660_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd252653252733_)) + (gx#identifier? _hd252583252663_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd252653252733_)) + _hd252583252663_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl252652252735_)) - (let ((_e252657252738_ + _tl252582252665_)) + (let ((_e252587252668_ (let () (declare (not safe)) (gx#stx-e - _tl252652252735_)))) - (let ((_tl252655252743_ + _tl252582252665_)))) + (let ((_tl252585252673_ (let () (declare (not safe)) - (##cdr _e252657252738_))) - (_hd252656252741_ + (##cdr _e252587252668_))) + (_hd252586252671_ (let () (declare (not safe)) - (##car _e252657252738_)))) + (##car _e252587252668_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl252655252743_)) + _tl252585252673_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl252649252727_)) - (___kont260816260817_ - _hd252656252741_ - _hd252647252717_ - _hd252644252709_) - (___kont260818260819_)) - (___kont260818260819_)))) + (gx#stx-null? _tl252579252657_)) + (___kont260746260747_ + _hd252586252671_ + _hd252577252647_ + _hd252574252639_) + (___kont260748260749_)) + (___kont260748260749_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_)) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)))) - (___kont260818260819_)) - (___kont260818260819_)))) + (___kont260748260749_)) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)))) + (___kont260748260749_)) + (___kont260748260749_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)))) - (___kont260818260819_)) - (___kont260818260819_))) - (___kont260818260819_)))) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)))) + (___kont260748260749_)) + (___kont260748260749_))) + (___kont260748260749_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont260818260819_)))) - (___kont260818260819_)) - (___kont260818260819_)) - (___kont260818260819_)))) - (___kont260818260819_)))))) - (_countf-symbol248535_ - (lambda (_id252465_) - (let ((_$e252467_ + (___kont260748260749_)))) + (___kont260748260749_)) + (___kont260748260749_)) + (___kont260748260749_)))) + (___kont260748260749_)))))) + (_countf-symbol248465_ + (lambda (_id252395_) + (let ((_$e252397_ (let () (declare (not safe)) - (gxc#identifier-symbol _id252465_)))) + (gxc#identifier-symbol _id252395_)))) (if (or (let () (declare (not safe)) - (eq? '##vector-length _$e252467_)) + (eq? '##vector-length _$e252397_)) (let () (declare (not safe)) - (eq? 'vector-length _$e252467_))) + (eq? 'vector-length _$e252397_))) 'vector-length (if (let () (declare (not safe)) - (eq? 'values-count _$e252467_)) + (eq? 'values-count _$e252397_)) 'values-count '#f))))) - (_eqf-symbol248536_ - (lambda (_sym252451_) - (let ((_$e252453_ _sym252451_)) + (_eqf-symbol248466_ + (lambda (_sym252381_) + (let ((_$e252383_ _sym252381_)) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e252453_)) + (eq? '##eq? _$e252383_)) (let () (declare (not safe)) - (eq? 'eq? _$e252453_))) + (eq? 'eq? _$e252383_))) 'eq? (if (or (let () (declare (not safe)) - (eq? '##eqv? _$e252453_)) + (eq? '##eqv? _$e252383_)) (let () (declare (not safe)) - (eq? 'eqv? _$e252453_))) + (eq? 'eqv? _$e252383_))) 'eqv? (if (or (let () (declare (not safe)) - (eq? '##equal? _$e252453_)) + (eq? '##equal? _$e252383_)) (let () (declare (not safe)) - (eq? 'equal? _$e252453_))) + (eq? 'equal? _$e252383_))) 'equal? (if (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e252453_)) + _$e252383_)) 'free-identifier=? (if (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e252453_)) + (eq? 'gx#stx-eq? _$e252383_)) 'stx-eq? '#f)))))))) - (_eqf-symbol?248537_ - (lambda (_sym252434_) - (let ((_$e252436_ _sym252434_)) + (_eqf-symbol?248467_ + (lambda (_sym252364_) + (let ((_$e252366_ _sym252364_)) (if (or (let () (declare (not safe)) - (eq? 'eq? _$e252436_)) + (eq? 'eq? _$e252366_)) (let () (declare (not safe)) - (eq? 'eqv? _$e252436_)) + (eq? 'eqv? _$e252366_)) (let () (declare (not safe)) - (eq? 'equal? _$e252436_)) + (eq? 'equal? _$e252366_)) (let () (declare (not safe)) - (eq? 'free-identifier=? _$e252436_)) + (eq? 'free-identifier=? _$e252366_)) (let () (declare (not safe)) - (eq? 'stx-eq? _$e252436_))) + (eq? 'stx-eq? _$e252366_))) '#t '#f)))) - (_do-assert!248538_ - (lambda (_assert252425_ _type252426_ _K252427_) - (let ((_unwind-assert252429_ _env-assert248528_) - (_unwind-type252430_ _env-type248529_)) - (set! _env-assert248528_ _assert252425_) - (set! _env-type248529_ _type252426_) - (let ((_val252432_ (_K252427_))) - (set! _env-assert248528_ _unwind-assert252429_) - (set! _env-type248529_ _unwind-type252430_) - _val252432_)))) - (_do-bind248539_ - (lambda (_bind252422_ _K252423_) - (if (let () (declare (not safe)) (pair? _bind252422_)) - (let ((__tmp263510 + (_do-assert!248468_ + (lambda (_assert252355_ _type252356_ _K252357_) + (let ((_unwind-assert252359_ _env-assert248458_) + (_unwind-type252360_ _env-type248459_)) + (set! _env-assert248458_ _assert252355_) + (set! _env-type248459_ _type252356_) + (let ((_val252362_ (_K252357_))) + (set! _env-assert248458_ _unwind-assert252359_) + (set! _env-type248459_ _unwind-type252360_) + _val252362_)))) + (_do-bind248469_ + (lambda (_bind252352_ _K252353_) + (if (let () (declare (not safe)) (pair? _bind252352_)) + (let ((__tmp263440 (let () (declare (not safe)) - (_fold-bind-env248540_ - _bind252422_ - _env-bind248530_)))) + (_fold-bind-env248470_ + _bind252352_ + _env-bind248460_)))) (declare (not safe)) - (_do-bind!248541_ __tmp263510 _K252423_)) - (_K252423_)))) - (_fold-bind-env248540_ - (lambda (_bind252351_ _env252352_) - (let _lp252354_ ((_rest252356_ _bind252351_) - (_env252357_ _env252352_)) - (let* ((_rest252358252366_ _rest252356_) - (_else252360252374_ (lambda () _env252357_)) - (_K252362252410_ - (lambda (_rest252377_ _bind252378_) - (let* ((_bind252379252386_ _bind252378_) - (_E252381252390_ + (_do-bind!248471_ __tmp263440 _K252353_)) + (_K252353_)))) + (_fold-bind-env248470_ + (lambda (_bind252281_ _env252282_) + (let _lp252284_ ((_rest252286_ _bind252281_) + (_env252287_ _env252282_)) + (let* ((_rest252288252296_ _rest252286_) + (_else252290252304_ (lambda () _env252287_)) + (_K252292252340_ + (lambda (_rest252307_ _bind252308_) + (let* ((_bind252309252316_ _bind252308_) + (_E252311252320_ (lambda () (error '"No clause matching" - _bind252379252386_))) - (_K252382252398_ - (lambda (_expr252393_ _id252394_) - (let* ((_sexpr252396_ + _bind252309252316_))) + (_K252312252328_ + (lambda (_expr252323_ _id252324_) + (let* ((_sexpr252326_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr252393_))) - (__tmp263511 - (let ((__tmp263512 + _expr252323_))) + (__tmp263441 + (let ((__tmp263442 (let () (declare (not safe)) - (cons _sexpr252396_ + (cons _sexpr252326_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id252394_)))) + _id252324_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263512 - _env252357_)))) + (cons __tmp263442 + _env252287_)))) (declare (not safe)) - (_lp252354_ - _rest252377_ - __tmp263511))))) + (_lp252284_ + _rest252307_ + __tmp263441))))) (if (let () (declare (not safe)) - (##pair? _bind252379252386_)) - (let ((_hd252383252401_ + (##pair? _bind252309252316_)) + (let ((_hd252313252331_ (let () (declare (not safe)) - (##car _bind252379252386_))) - (_tl252384252403_ + (##car _bind252309252316_))) + (_tl252314252333_ (let () (declare (not safe)) - (##cdr _bind252379252386_)))) - (let* ((_id252406_ _hd252383252401_) - (_expr252408_ - _tl252384252403_)) + (##cdr _bind252309252316_)))) + (let* ((_id252336_ _hd252313252331_) + (_expr252338_ + _tl252314252333_)) (declare (not safe)) - (_K252382252398_ - _expr252408_ - _id252406_))) + (_K252312252328_ + _expr252338_ + _id252336_))) (let () (declare (not safe)) - (_E252381252390_))))))) + (_E252311252320_))))))) (if (let () (declare (not safe)) - (##pair? _rest252358252366_)) - (let ((_hd252363252413_ + (##pair? _rest252288252296_)) + (let ((_hd252293252343_ (let () (declare (not safe)) - (##car _rest252358252366_))) - (_tl252364252415_ + (##car _rest252288252296_))) + (_tl252294252345_ (let () (declare (not safe)) - (##cdr _rest252358252366_)))) - (let* ((_bind252418_ _hd252363252413_) - (_rest252420_ _tl252364252415_)) + (##cdr _rest252288252296_)))) + (let* ((_bind252348_ _hd252293252343_) + (_rest252350_ _tl252294252345_)) (declare (not safe)) - (_K252362252410_ _rest252420_ _bind252418_))) + (_K252292252340_ _rest252350_ _bind252348_))) (let () (declare (not safe)) - (_else252360252374_))))))) - (_do-bind!248541_ - (lambda (_env252344_ _K252345_) - (let ((_unwind252347_ _env-bind248530_)) - (set! _env-bind248530_ _env252344_) - (let ((_val252349_ (_K252345_))) - (set! _env-bind248530_ _unwind252347_) - _val252349_)))) - (_do-splice!248542_ - (lambda (_K252338_) - (let ((_unwind252340_ _in-splice?248531_)) - (set! _in-splice?248531_ '#t) - (let ((_val252342_ (_K252338_))) - (set! _in-splice?248531_ _unwind252340_) - _val252342_)))) - (_optimize-e248543_ - (lambda (_expr251535_) - (let* ((___stx261256261257_ _expr251535_) - (_g251542251715_ + (_else252290252304_))))))) + (_do-bind!248471_ + (lambda (_env252274_ _K252275_) + (let ((_unwind252277_ _env-bind248460_)) + (set! _env-bind248460_ _env252274_) + (let ((_val252279_ (_K252275_))) + (set! _env-bind248460_ _unwind252277_) + _val252279_)))) + (_do-splice!248472_ + (lambda (_K252268_) + (let ((_unwind252270_ _in-splice?248461_)) + (set! _in-splice?248461_ '#t) + (let ((_val252272_ (_K252268_))) + (set! _in-splice?248461_ _unwind252270_) + _val252272_)))) + (_optimize-e248473_ + (lambda (_expr251465_) + (let* ((___stx261186261187_ _expr251465_) + (_g251472251645_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx261256261257_))))) - (let ((___kont261258261259_ - (lambda (_L252310_ _L252311_ _L252312_) - (let ((_$e252329_ + ___stx261186261187_))))) + (let ((___kont261188261189_ + (lambda (_L252240_ _L252241_ _L252242_) + (let ((_$e252259_ (let () (declare (not safe)) - (_assert-e248546_ _L252312_)))) + (_assert-e248476_ _L252242_)))) (if (let () (declare (not safe)) - (eq? '#t _$e252329_)) + (eq? '#t _$e252259_)) (let () (declare (not safe)) - (_optimize-e248543_ _L252311_)) + (_optimize-e248473_ _L252241_)) (if (let () (declare (not safe)) - (eq? '#f _$e252329_)) + (eq? '#f _$e252259_)) (let () (declare (not safe)) - (_optimize-e248543_ _L252310_)) - (let ((_K252332_ + (_optimize-e248473_ _L252240_)) + (let ((_K252262_ (let () (declare (not safe)) - (_optimize-t__0__260189260190_ - _L252311_ - _L252312_))) - (_E252333_ + (_optimize-t__0__260119260120_ + _L252241_ + _L252242_))) + (_E252263_ (let () (declare (not safe)) - (_optimize-f__260191260192_ - _L252310_ - _L252312_)))) - (if (let ((__tmp263517 + (_optimize-f__260121260122_ + _L252240_ + _L252242_)))) + (if (let ((__tmp263447 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _K252332_))) - (__tmp263516 + _K252262_))) + (__tmp263446 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _E252333_)))) + _E252263_)))) (declare (not safe)) - (equal? __tmp263517 - __tmp263516)) - _K252332_ - (let ((__tmp263513 - (let ((__tmp263514 - (let ((__tmp263515 + (equal? __tmp263447 + __tmp263446)) + _K252262_ + (let ((__tmp263443 + (let ((__tmp263444 + (let ((__tmp263445 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E252333_ '())))) + (cons _E252263_ '())))) (declare (not safe)) - (cons _K252332_ __tmp263515)))) + (cons _K252262_ __tmp263445)))) (declare (not safe)) - (cons _L252312_ __tmp263514)))) + (cons _L252242_ __tmp263444)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#if - __tmp263513))))))))) - (___kont261260261261_ - (lambda (_L252240_ _L252241_) - (let ((_$e252261_ + __tmp263443))))))))) + (___kont261190261191_ + (lambda (_L252170_ _L252171_) + (let ((_$e252191_ (let () (declare (not safe)) - (_lookup-block248551_ _L252241_)))) - (if _$e252261_ - ((lambda (_block252264_) + (_lookup-block248481_ _L252171_)))) + (if _$e252191_ + ((lambda (_block252194_) (if (let () (declare (not safe)) - (_nonlinear-block?248553_ - _block252264_)) - _expr251535_ - (let ((__tmp263518 - (let ((__tmp263519 - (let ((__tmp263520 + (_nonlinear-block?248483_ + _block252194_)) + _expr251465_ + (let ((__tmp263448 + (let ((__tmp263449 + (let ((__tmp263450 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g252265252268_ _g252266252270_) + (lambda (_g252195252198_ _g252196252200_) (let () (declare (not safe)) - (cons _g252265252268_ _g252266252270_))))) + (cons _g252195252198_ _g252196252200_))))) (declare (not safe)) - (foldr1 __tmp263520 '() _L252240_)))) + (foldr1 __tmp263450 '() _L252170_)))) (declare (not safe)) - (_inline-block248552_ _block252264_ __tmp263519)))) + (_inline-block248482_ _block252194_ __tmp263449)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_optimize-e248543_ - __tmp263518)))) - _$e252261_) - _expr251535_)))) - (___kont261264261265_ - (lambda (_L252130_ _L252131_ _L252132_) - (let* ((_body252151_ + (_optimize-e248473_ + __tmp263448)))) + _$e252191_) + _expr251465_)))) + (___kont261194261195_ + (lambda (_L252060_ _L252061_ _L252062_) + (let* ((_body252081_ (let () (declare (not safe)) - (_optimize-e248543_ _L252130_))) - (__tmp263521 - (let ((__tmp263523 + (_optimize-e248473_ _L252060_))) + (__tmp263451 + (let ((__tmp263453 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L252131_ - _L252132_)) - (let ((__tmp263524 - (lambda (_g252152252156_ + _L252061_ + _L252062_)) + (let ((__tmp263454 + (lambda (_g252082252086_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g252153252158_ - _g252154252160_) - (let ((__tmp263525 - (let ((__tmp263530 + _g252083252088_ + _g252084252090_) + (let ((__tmp263455 + (let ((__tmp263460 (let () (declare (not safe)) - (cons _g252153252158_ '()))) - (__tmp263526 - (let ((__tmp263527 - (let ((__tmp263529 + (cons _g252083252088_ '()))) + (__tmp263456 + (let ((__tmp263457 + (let ((__tmp263459 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263528 + (__tmp263458 (let () (declare (not safe)) - (cons _g252152252156_ '())))) + (cons _g252082252086_ '())))) (declare (not safe)) - (cons __tmp263529 __tmp263528)))) + (cons __tmp263459 __tmp263458)))) (declare (not safe)) - (cons __tmp263527 '())))) + (cons __tmp263457 '())))) (declare (not safe)) - (cons __tmp263530 __tmp263526)))) + (cons __tmp263460 __tmp263456)))) (declare (not safe)) - (cons __tmp263525 _g252154252160_))))) + (cons __tmp263455 _g252084252090_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp263524 + (foldr2 __tmp263454 '() - _L252131_ - _L252132_)))) - (__tmp263522 + _L252061_ + _L252062_)))) + (__tmp263452 (let () (declare (not safe)) - (cons _body252151_ '())))) + (cons _body252081_ '())))) (declare (not safe)) - (cons __tmp263523 __tmp263522)))) + (cons __tmp263453 __tmp263452)))) (declare (not safe)) - (cons '%#let-values __tmp263521)))) - (___kont261268261269_ - (lambda (_L251998_ _L251999_ _L252000_) - (let ((__tmp263531 + (cons '%#let-values __tmp263451)))) + (___kont261198261199_ + (lambda (_L251928_ _L251929_ _L251930_) + (let ((__tmp263461 (map cons - (let ((__tmp263532 - (lambda (_g252018252021_ - _g252019252023_) + (let ((__tmp263462 + (lambda (_g251948251951_ + _g251949251953_) (let () (declare (not safe)) - (cons _g252018252021_ - _g252019252023_))))) + (cons _g251948251951_ + _g251949251953_))))) (declare (not safe)) - (foldr1 __tmp263532 + (foldr1 __tmp263462 '() - _L252000_)) - (let ((__tmp263533 - (lambda (_g252025252028_ - _g252026252030_) + _L251930_)) + (let ((__tmp263463 + (lambda (_g251955251958_ + _g251956251960_) (let () (declare (not safe)) - (cons _g252025252028_ - _g252026252030_))))) + (cons _g251955251958_ + _g251956251960_))))) (declare (not safe)) - (foldr1 __tmp263533 + (foldr1 __tmp263463 '() - _L251999_))))) + _L251929_))))) (declare (not safe)) - (_bind-e__0__260197260198_ - __tmp263531 - _L251998_)))) - (___kont261272261273_ - (lambda (_L251855_ - _L251856_ - _L251857_ - _L251858_ - _L251859_) - (let ((__tmp263534 + (_bind-e__0__260127260128_ + __tmp263461 + _L251928_)))) + (___kont261202261203_ + (lambda (_L251785_ + _L251786_ + _L251787_ + _L251788_ + _L251789_) + (let ((__tmp263464 (lambda () - (let* ((_expr251901_ + (let* ((_expr251831_ (let () (declare (not safe)) - (_optimize-e248543_ - _L251857_))) - (__tmp263535 - (let ((__tmp263537 - (let ((__tmp263540 - (let ((__tmp263547 + (_optimize-e248473_ + _L251787_))) + (__tmp263465 + (let ((__tmp263467 + (let ((__tmp263470 + (let ((__tmp263477 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L251859_ '()))) - (__tmp263541 - (let ((__tmp263542 - (let ((__tmp263543 - (let ((__tmp263545 - (let ((__tmp263546 - (lambda (_g251902251905_ + (cons _L251789_ '()))) + (__tmp263471 + (let ((__tmp263472 + (let ((__tmp263473 + (let ((__tmp263475 + (let ((__tmp263476 + (lambda (_g251832251835_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g251903251907_) + _g251833251837_) (let () (declare (not safe)) - (cons _g251902251905_ _g251903251907_))))) + (cons _g251832251835_ _g251833251837_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp263546 + (foldr1 __tmp263476 '() - _L251858_))) - (__tmp263544 + _L251788_))) + (__tmp263474 (let () (declare (not safe)) - (cons _expr251901_ '())))) + (cons _expr251831_ '())))) (declare (not safe)) - (cons __tmp263545 __tmp263544)))) + (cons __tmp263475 __tmp263474)))) (declare (not safe)) - (cons '%#lambda __tmp263543)))) + (cons '%#lambda __tmp263473)))) (declare (not safe)) - (cons __tmp263542 '())))) + (cons __tmp263472 '())))) (declare (not safe)) - (cons __tmp263547 __tmp263541))) - (__tmp263538 - (let ((__tmp263539 - (lambda (_g251909251912_ _g251910251914_) + (cons __tmp263477 __tmp263471))) + (__tmp263468 + (let ((__tmp263469 + (lambda (_g251839251842_ _g251840251844_) (let () (declare (not safe)) - (cons _g251909251912_ _g251910251914_))))) + (cons _g251839251842_ _g251840251844_))))) (declare (not safe)) - (foldr1 __tmp263539 '() _L251856_)))) + (foldr1 __tmp263469 '() _L251786_)))) (declare (not safe)) - (cons __tmp263540 __tmp263538))) - (__tmp263536 - (let () (declare (not safe)) (cons _L251855_ '())))) + (cons __tmp263470 __tmp263468))) + (__tmp263466 + (let () (declare (not safe)) (cons _L251785_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263537 - __tmp263536)))) + (cons __tmp263467 + __tmp263466)))) (declare (not safe)) (cons '%#letrec-values - __tmp263535))))) + __tmp263465))))) (declare (not safe)) - (_do-splice!248542_ __tmp263534)))) - (___kont261278261279_ (lambda () _expr251535_))) - (let* ((___match261465261466_ - (lambda (_e251665251727_ - _hd251664251730_ - _tl251663251732_ - _e251668251735_ - _hd251667251738_ - _tl251666251740_ - _e251671251743_ - _hd251670251746_ - _tl251669251748_ - _e251674251751_ - _hd251673251754_ - _tl251672251756_ - _e251677251759_ - _hd251676251762_ - _tl251675251764_ - _e251680251767_ - _hd251679251770_ - _tl251678251772_ - _e251683251775_ - _hd251682251778_ - _tl251681251780_ - _e251686251783_ - _hd251685251786_ - _tl251684251788_ - ___splice261274261275_ - _target251687251791_ - _tl251689251793_) - (letrec ((_loop251690251796_ - (lambda (_hd251688251799_ - _id251694251801_) + (_do-splice!248472_ __tmp263464)))) + (___kont261208261209_ (lambda () _expr251465_))) + (let* ((___match261395261396_ + (lambda (_e251595251657_ + _hd251594251660_ + _tl251593251662_ + _e251598251665_ + _hd251597251668_ + _tl251596251670_ + _e251601251673_ + _hd251600251676_ + _tl251599251678_ + _e251604251681_ + _hd251603251684_ + _tl251602251686_ + _e251607251689_ + _hd251606251692_ + _tl251605251694_ + _e251610251697_ + _hd251609251700_ + _tl251608251702_ + _e251613251705_ + _hd251612251708_ + _tl251611251710_ + _e251616251713_ + _hd251615251716_ + _tl251614251718_ + ___splice261204261205_ + _target251617251721_ + _tl251619251723_) + (letrec ((_loop251620251726_ + (lambda (_hd251618251729_ + _id251624251731_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd251688251799_)) - (let ((_e251691251804_ + _hd251618251729_)) + (let ((_e251621251734_ (let () (declare (not safe)) (gx#stx-e - _hd251688251799_)))) - (let ((_lp-tl251693251809_ + _hd251618251729_)))) + (let ((_lp-tl251623251739_ (let () (declare (not safe)) - (##cdr _e251691251804_))) - (_lp-hd251692251807_ + (##cdr _e251621251734_))) + (_lp-hd251622251737_ (let () (declare (not safe)) - (##car _e251691251804_)))) - (let ((__tmp263549 + (##car _e251621251734_)))) + (let ((__tmp263479 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd251692251807_ _id251694251801_)))) + (cons _lp-hd251622251737_ _id251624251731_)))) (declare (not safe)) - (_loop251690251796_ _lp-tl251693251809_ __tmp263549)))) + (_loop251620251726_ _lp-tl251623251739_ __tmp263479)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id251695251812_ - (reverse _id251694251801_))) + (let ((_id251625251742_ + (reverse _id251624251731_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251684251788_)) - (let ((_e251698251815_ + _tl251614251718_)) + (let ((_e251628251745_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl251684251788_)))) - (let ((_tl251696251820_ + (gx#stx-e _tl251614251718_)))) + (let ((_tl251626251750_ (let () (declare (not safe)) - (##cdr _e251698251815_))) - (_hd251697251818_ + (##cdr _e251628251745_))) + (_hd251627251748_ (let () (declare (not safe)) - (##car _e251698251815_)))) + (##car _e251628251745_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251696251820_)) + (gx#stx-null? _tl251626251750_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl251678251772_)) + (gx#stx-null? _tl251608251702_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl251669251748_)) - (let ((___splice261276261277_ + (gx#stx-pair/null? _tl251599251678_)) + (let ((___splice261206261207_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl251669251748_ + _tl251599251678_ '0)))) - (let ((_tl251701251825_ + (let ((_tl251631251755_ (let () (declare (not safe)) (##vector-ref - ___splice261276261277_ + ___splice261206261207_ '1))) - (_target251699251823_ + (_target251629251753_ (let () (declare (not safe)) (##vector-ref - ___splice261276261277_ + ___splice261206261207_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251701251825_)) - (letrec ((_loop251702251828_ - (lambda (_hd251700251831_ - _bind251706251833_) + (gx#stx-null? _tl251631251755_)) + (letrec ((_loop251632251758_ + (lambda (_hd251630251761_ + _bind251636251763_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd251700251831_)) - (let ((_e251703251836_ + _hd251630251761_)) + (let ((_e251633251766_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd251700251831_)))) - (let ((_lp-tl251705251841_ + (gx#stx-e _hd251630251761_)))) + (let ((_lp-tl251635251771_ (let () (declare (not safe)) - (##cdr _e251703251836_))) - (_lp-hd251704251839_ + (##cdr _e251633251766_))) + (_lp-hd251634251769_ (let () (declare (not safe)) - (##car _e251703251836_)))) - (let ((__tmp263548 + (##car _e251633251766_)))) + (let ((__tmp263478 (let () (declare (not safe)) - (cons _lp-hd251704251839_ _bind251706251833_)))) + (cons _lp-hd251634251769_ _bind251636251763_)))) (declare (not safe)) - (_loop251702251828_ _lp-tl251705251841_ __tmp263548)))) - (let ((_bind251707251844_ (reverse _bind251706251833_))) + (_loop251632251758_ _lp-tl251635251771_ __tmp263478)))) + (let ((_bind251637251774_ (reverse _bind251636251763_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl251666251740_)) - (let ((_e251710251847_ + (gx#stx-pair? _tl251596251670_)) + (let ((_e251640251777_ (let () (declare (not safe)) - (gx#stx-e _tl251666251740_)))) - (let ((_tl251708251852_ + (gx#stx-e _tl251596251670_)))) + (let ((_tl251638251782_ (let () (declare (not safe)) - (##cdr _e251710251847_))) - (_hd251709251850_ + (##cdr _e251640251777_))) + (_hd251639251780_ (let () (declare (not safe)) - (##car _e251710251847_)))) + (##car _e251640251777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251708251852_)) - (___kont261272261273_ - _hd251709251850_ - _bind251707251844_ - _hd251697251818_ - _id251695251812_ - _hd251676251762_) - (___kont261278261279_)))) - (___kont261278261279_))))))) + (gx#stx-null? _tl251638251782_)) + (___kont261202261203_ + _hd251639251780_ + _bind251637251774_ + _hd251627251748_ + _id251625251742_ + _hd251606251692_) + (___kont261208261209_)))) + (___kont261208261209_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop251702251828_ - _target251699251823_ + (_loop251632251758_ + _target251629251753_ '()))) - (___kont261278261279_)))) - (___kont261278261279_)) - (___kont261278261279_)) - (___kont261278261279_)))) - (___kont261278261279_))))))) + (___kont261208261209_)))) + (___kont261208261209_)) + (___kont261208261209_)) + (___kont261208261209_)))) + (___kont261208261209_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop251690251796_ - _target251687251791_ + (_loop251620251726_ + _target251617251721_ '()))))) - (___match261399261400_ - (lambda (_e251631251922_ - _hd251630251925_ - _tl251629251927_ - _e251634251930_ - _hd251633251933_ - _tl251632251935_ - ___splice261270261271_ - _target251635251938_ - _tl251637251940_) - (letrec ((_loop251638251943_ - (lambda (_hd251636251946_ - _expr251642251948_ - _id251643251950_) + (___match261329261330_ + (lambda (_e251561251852_ + _hd251560251855_ + _tl251559251857_ + _e251564251860_ + _hd251563251863_ + _tl251562251865_ + ___splice261200261201_ + _target251565251868_ + _tl251567251870_) + (letrec ((_loop251568251873_ + (lambda (_hd251566251876_ + _expr251572251878_ + _id251573251880_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd251636251946_)) - (let ((_e251639251953_ + _hd251566251876_)) + (let ((_e251569251883_ (let () (declare (not safe)) (gx#stx-e - _hd251636251946_)))) - (let ((_lp-tl251641251958_ + _hd251566251876_)))) + (let ((_lp-tl251571251888_ (let () (declare (not safe)) - (##cdr _e251639251953_))) - (_lp-hd251640251956_ + (##cdr _e251569251883_))) + (_lp-hd251570251886_ (let () (declare (not safe)) - (##car _e251639251953_)))) + (##car _e251569251883_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd251640251956_)) - (let ((_e251648251961_ + _lp-hd251570251886_)) + (let ((_e251578251891_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd251640251956_)))) - (let ((_tl251646251966_ + (gx#stx-e _lp-hd251570251886_)))) + (let ((_tl251576251896_ (let () (declare (not safe)) - (##cdr _e251648251961_))) - (_hd251647251964_ + (##cdr _e251578251891_))) + (_hd251577251894_ (let () (declare (not safe)) - (##car _e251648251961_)))) + (##car _e251578251891_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd251647251964_)) - (let ((_e251651251969_ + (gx#stx-pair? _hd251577251894_)) + (let ((_e251581251899_ (let () (declare (not safe)) - (gx#stx-e _hd251647251964_)))) - (let ((_tl251649251974_ + (gx#stx-e _hd251577251894_)))) + (let ((_tl251579251904_ (let () (declare (not safe)) - (##cdr _e251651251969_))) - (_hd251650251972_ + (##cdr _e251581251899_))) + (_hd251580251902_ (let () (declare (not safe)) - (##car _e251651251969_)))) + (##car _e251581251899_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251649251974_)) + (gx#stx-null? _tl251579251904_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl251646251966_)) - (let ((_e251654251977_ + (gx#stx-pair? _tl251576251896_)) + (let ((_e251584251907_ (let () (declare (not safe)) - (gx#stx-e _tl251646251966_)))) - (let ((_tl251652251982_ + (gx#stx-e _tl251576251896_)))) + (let ((_tl251582251912_ (let () (declare (not safe)) - (##cdr _e251654251977_))) - (_hd251653251980_ + (##cdr _e251584251907_))) + (_hd251583251910_ (let () (declare (not safe)) - (##car _e251654251977_)))) + (##car _e251584251907_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl251652251982_)) - (let ((__tmp263551 + _tl251582251912_)) + (let ((__tmp263481 (let () (declare (not safe)) - (cons _hd251653251980_ - _expr251642251948_))) - (__tmp263550 + (cons _hd251583251910_ + _expr251572251878_))) + (__tmp263480 (let () (declare (not safe)) - (cons _hd251650251972_ - _id251643251950_)))) + (cons _hd251580251902_ + _id251573251880_)))) (declare (not safe)) - (_loop251638251943_ - _lp-tl251641251958_ - __tmp263551 - __tmp263550)) - (___kont261278261279_)))) - (___kont261278261279_)) - (___kont261278261279_)))) - (___kont261278261279_)))) - (___kont261278261279_)))) + (_loop251568251873_ + _lp-tl251571251888_ + __tmp263481 + __tmp263480)) + (___kont261208261209_)))) + (___kont261208261209_)) + (___kont261208261209_)))) + (___kont261208261209_)))) + (___kont261208261209_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id251645251987_ - (reverse _id251643251950_)) - (_expr251644251985_ - (reverse _expr251642251948_))) + (let ((_id251575251917_ + (reverse _id251573251880_)) + (_expr251574251915_ + (reverse _expr251572251878_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251632251935_)) - (let ((_e251657251990_ + _tl251562251865_)) + (let ((_e251587251920_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl251632251935_)))) - (let ((_tl251655251995_ + (gx#stx-e _tl251562251865_)))) + (let ((_tl251585251925_ (let () (declare (not safe)) - (##cdr _e251657251990_))) - (_hd251656251993_ + (##cdr _e251587251920_))) + (_hd251586251923_ (let () (declare (not safe)) - (##car _e251657251990_)))) + (##car _e251587251920_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251655251995_)) - (___kont261268261269_ - _hd251656251993_ - _expr251644251985_ - _id251645251987_) - (___kont261278261279_)))) - (___kont261278261279_))))))) + (gx#stx-null? _tl251585251925_)) + (___kont261198261199_ + _hd251586251923_ + _expr251574251915_ + _id251575251917_) + (___kont261208261209_)))) + (___kont261208261209_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop251638251943_ - _target251635251938_ + (_loop251568251873_ + _target251565251868_ '() '()))))) - (___match261375261376_ - (lambda (_e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_) - (letrec ((_loop251600252059_ - (lambda (_hd251598252062_ - _xid251604252064_ - _id251605252066_) + (___match261305261306_ + (lambda (_e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_) + (letrec ((_loop251530251989_ + (lambda (_hd251528251992_ + _xid251534251994_ + _id251535251996_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd251598252062_)) - (let ((_e251601252069_ + _hd251528251992_)) + (let ((_e251531251999_ (let () (declare (not safe)) (gx#stx-e - _hd251598252062_)))) - (let ((_lp-tl251603252074_ + _hd251528251992_)))) + (let ((_lp-tl251533252004_ (let () (declare (not safe)) - (##cdr _e251601252069_))) - (_lp-hd251602252072_ + (##cdr _e251531251999_))) + (_lp-hd251532252002_ (let () (declare (not safe)) - (##car _e251601252069_)))) + (##car _e251531251999_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd251602252072_)) - (let ((_e251610252077_ + _lp-hd251532252002_)) + (let ((_e251540252007_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd251602252072_)))) - (let ((_tl251608252082_ + (gx#stx-e _lp-hd251532252002_)))) + (let ((_tl251538252012_ (let () (declare (not safe)) - (##cdr _e251610252077_))) - (_hd251609252080_ + (##cdr _e251540252007_))) + (_hd251539252010_ (let () (declare (not safe)) - (##car _e251610252077_)))) + (##car _e251540252007_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd251609252080_)) - (let ((_e251613252085_ + (gx#stx-pair? _hd251539252010_)) + (let ((_e251543252015_ (let () (declare (not safe)) - (gx#stx-e _hd251609252080_)))) - (let ((_tl251611252090_ + (gx#stx-e _hd251539252010_)))) + (let ((_tl251541252020_ (let () (declare (not safe)) - (##cdr _e251613252085_))) - (_hd251612252088_ + (##cdr _e251543252015_))) + (_hd251542252018_ (let () (declare (not safe)) - (##car _e251613252085_)))) + (##car _e251543252015_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251611252090_)) + (gx#stx-null? _tl251541252020_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl251608252082_)) - (let ((_e251616252093_ + (gx#stx-pair? _tl251538252012_)) + (let ((_e251546252023_ (let () (declare (not safe)) - (gx#stx-e _tl251608252082_)))) - (let ((_tl251614252098_ + (gx#stx-e _tl251538252012_)))) + (let ((_tl251544252028_ (let () (declare (not safe)) - (##cdr _e251616252093_))) - (_hd251615252096_ + (##cdr _e251546252023_))) + (_hd251545252026_ (let () (declare (not safe)) - (##car _e251616252093_)))) + (##car _e251546252023_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd251615252096_)) - (let ((_e251619252101_ + _hd251545252026_)) + (let ((_e251549252031_ (let () (declare (not safe)) (gx#stx-e - _hd251615252096_)))) - (let ((_tl251617252106_ + _hd251545252026_)))) + (let ((_tl251547252036_ (let () (declare (not safe)) - (##cdr _e251619252101_))) - (_hd251618252104_ + (##cdr _e251549252031_))) + (_hd251548252034_ (let () (declare (not safe)) - (##car _e251619252101_)))) + (##car _e251549252031_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd251618252104_)) + _hd251548252034_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd251618252104_)) + _hd251548252034_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl251617252106_)) - (let ((_e251622252109_ + (gx#stx-pair? _tl251547252036_)) + (let ((_e251552252039_ (let () (declare (not safe)) - (gx#stx-e _tl251617252106_)))) - (let ((_tl251620252114_ + (gx#stx-e _tl251547252036_)))) + (let ((_tl251550252044_ (let () (declare (not safe)) - (##cdr _e251622252109_))) - (_hd251621252112_ + (##cdr _e251552252039_))) + (_hd251551252042_ (let () (declare (not safe)) - (##car _e251622252109_)))) + (##car _e251552252039_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251620252114_)) + (gx#stx-null? _tl251550252044_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl251614252098_)) - (let ((__tmp263553 + (gx#stx-null? _tl251544252028_)) + (let ((__tmp263483 (let () (declare (not safe)) - (cons _hd251621252112_ - _xid251604252064_))) - (__tmp263552 + (cons _hd251551252042_ + _xid251534251994_))) + (__tmp263482 (let () (declare (not safe)) - (cons _hd251612252088_ - _id251605252066_)))) + (cons _hd251542252018_ + _id251535251996_)))) (declare (not safe)) - (_loop251600252059_ - _lp-tl251603252074_ - __tmp263553 - __tmp263552)) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)))) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)))) + (_loop251530251989_ + _lp-tl251533252004_ + __tmp263483 + __tmp263482)) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)))) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)))) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)))) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)))) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)))) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)))) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)))) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)))) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id251607252119_ - (reverse _id251605252066_)) - (_xid251606252117_ - (reverse _xid251604252064_))) + (let ((_id251537252049_ + (reverse _id251535251996_)) + (_xid251536252047_ + (reverse _xid251534251994_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251594252051_)) - (let ((_e251625252122_ + _tl251524251981_)) + (let ((_e251555252052_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl251594252051_)))) - (let ((_tl251623252127_ + (gx#stx-e _tl251524251981_)))) + (let ((_tl251553252057_ (let () (declare (not safe)) - (##cdr _e251625252122_))) - (_hd251624252125_ + (##cdr _e251555252052_))) + (_hd251554252055_ (let () (declare (not safe)) - (##car _e251625252122_)))) + (##car _e251555252052_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251623252127_)) - (___kont261264261265_ - _hd251624252125_ - _xid251606252117_ - _id251607252119_) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_)))) - (___match261399261400_ - _e251593252038_ - _hd251592252041_ - _tl251591252043_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_))))))) + (gx#stx-null? _tl251553252057_)) + (___kont261194261195_ + _hd251554252055_ + _xid251536252047_ + _id251537252049_) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_)))) + (___match261329261330_ + _e251523251968_ + _hd251522251971_ + _tl251521251973_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop251600252059_ - _target251597252054_ + (_loop251530251989_ + _target251527251984_ '() '()))))) - (___match261351261352_ - (lambda (_e251563252168_ - _hd251562252171_ - _tl251561252173_ - _e251566252176_ - _hd251565252179_ - _tl251564252181_ - _e251569252184_ - _hd251568252187_ - _tl251567252189_ - _e251572252192_ - _hd251571252195_ - _tl251570252197_ - ___splice261262261263_ - _target251573252200_ - _tl251575252202_) - (letrec ((_loop251576252205_ - (lambda (_hd251574252208_ - _id251580252210_) + (___match261281261282_ + (lambda (_e251493252098_ + _hd251492252101_ + _tl251491252103_ + _e251496252106_ + _hd251495252109_ + _tl251494252111_ + _e251499252114_ + _hd251498252117_ + _tl251497252119_ + _e251502252122_ + _hd251501252125_ + _tl251500252127_ + ___splice261192261193_ + _target251503252130_ + _tl251505252132_) + (letrec ((_loop251506252135_ + (lambda (_hd251504252138_ + _id251510252140_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd251574252208_)) - (let ((_e251577252213_ + _hd251504252138_)) + (let ((_e251507252143_ (let () (declare (not safe)) (gx#stx-e - _hd251574252208_)))) - (let ((_lp-tl251579252218_ + _hd251504252138_)))) + (let ((_lp-tl251509252148_ (let () (declare (not safe)) - (##cdr _e251577252213_))) - (_lp-hd251578252216_ + (##cdr _e251507252143_))) + (_lp-hd251508252146_ (let () (declare (not safe)) - (##car _e251577252213_)))) + (##car _e251507252143_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd251578252216_)) - (let ((_e251584252221_ + _lp-hd251508252146_)) + (let ((_e251514252151_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd251578252216_)))) - (let ((_tl251582252226_ + (gx#stx-e _lp-hd251508252146_)))) + (let ((_tl251512252156_ (let () (declare (not safe)) - (##cdr _e251584252221_))) - (_hd251583252224_ + (##cdr _e251514252151_))) + (_hd251513252154_ (let () (declare (not safe)) - (##car _e251584252221_)))) + (##car _e251514252151_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd251583252224_)) + (gx#identifier? _hd251513252154_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd251583252224_)) + (gx#stx-eq? '%#ref _hd251513252154_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl251582252226_)) - (let ((_e251587252229_ + (gx#stx-pair? _tl251512252156_)) + (let ((_e251517252159_ (let () (declare (not safe)) - (gx#stx-e _tl251582252226_)))) - (let ((_tl251585252234_ + (gx#stx-e _tl251512252156_)))) + (let ((_tl251515252164_ (let () (declare (not safe)) - (##cdr _e251587252229_))) - (_hd251586252232_ + (##cdr _e251517252159_))) + (_hd251516252162_ (let () (declare (not safe)) - (##car _e251587252229_)))) + (##car _e251517252159_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251585252234_)) - (let ((__tmp263554 + (gx#stx-null? _tl251515252164_)) + (let ((__tmp263484 (let () (declare (not safe)) - (cons _hd251586252232_ - _id251580252210_)))) + (cons _hd251516252162_ + _id251510252140_)))) (declare (not safe)) - (_loop251576252205_ - _lp-tl251579252218_ - __tmp263554)) - (___kont261278261279_)))) - (___kont261278261279_)) - (___kont261278261279_)) - (___kont261278261279_)))) - (___kont261278261279_)))) + (_loop251506252135_ + _lp-tl251509252148_ + __tmp263484)) + (___kont261208261209_)))) + (___kont261208261209_)) + (___kont261208261209_)) + (___kont261208261209_)))) + (___kont261208261209_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id251581252237_ - (reverse _id251580252210_))) - (___kont261260261261_ - _id251581252237_ - _hd251571252195_)))))) + (let ((_id251511252167_ + (reverse _id251510252140_))) + (___kont261190261191_ + _id251511252167_ + _hd251501252125_)))))) (let () (declare (not safe)) - (_loop251576252205_ - _target251573252200_ + (_loop251506252135_ + _target251503252130_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx261256261257_)) - (let ((_e251549252278_ + (gx#stx-pair? ___stx261186261187_)) + (let ((_e251479252208_ (let () (declare (not safe)) - (gx#stx-e ___stx261256261257_)))) - (let ((_tl251547252283_ + (gx#stx-e ___stx261186261187_)))) + (let ((_tl251477252213_ (let () (declare (not safe)) - (##cdr _e251549252278_))) - (_hd251548252281_ + (##cdr _e251479252208_))) + (_hd251478252211_ (let () (declare (not safe)) - (##car _e251549252278_)))) + (##car _e251479252208_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd251548252281_)) + (gx#identifier? _hd251478252211_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd251548252281_)) + _hd251478252211_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251547252283_)) - (let ((_e251552252286_ + _tl251477252213_)) + (let ((_e251482252216_ (let () (declare (not safe)) (gx#stx-e - _tl251547252283_)))) - (let ((_tl251550252291_ + _tl251477252213_)))) + (let ((_tl251480252221_ (let () (declare (not safe)) - (##cdr _e251552252286_))) - (_hd251551252289_ + (##cdr _e251482252216_))) + (_hd251481252219_ (let () (declare (not safe)) - (##car _e251552252286_)))) + (##car _e251482252216_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251550252291_)) - (let ((_e251555252294_ + _tl251480252221_)) + (let ((_e251485252224_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl251550252291_)))) - (let ((_tl251553252299_ - (let () (declare (not safe)) (##cdr _e251555252294_))) - (_hd251554252297_ - (let () (declare (not safe)) (##car _e251555252294_)))) + (gx#stx-e _tl251480252221_)))) + (let ((_tl251483252229_ + (let () (declare (not safe)) (##cdr _e251485252224_))) + (_hd251484252227_ + (let () (declare (not safe)) (##car _e251485252224_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl251553252299_)) - (let ((_e251558252302_ + (gx#stx-pair? _tl251483252229_)) + (let ((_e251488252232_ (let () (declare (not safe)) - (gx#stx-e _tl251553252299_)))) - (let ((_tl251556252307_ + (gx#stx-e _tl251483252229_)))) + (let ((_tl251486252237_ (let () (declare (not safe)) - (##cdr _e251558252302_))) - (_hd251557252305_ + (##cdr _e251488252232_))) + (_hd251487252235_ (let () (declare (not safe)) - (##car _e251558252302_)))) + (##car _e251488252232_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251556252307_)) - (___kont261258261259_ - _hd251557252305_ - _hd251554252297_ - _hd251551252289_) - (___kont261278261279_)))) - (___kont261278261279_)))) - (___kont261278261279_)))) + (gx#stx-null? _tl251486252237_)) + (___kont261188261189_ + _hd251487252235_ + _hd251484252227_ + _hd251481252219_) + (___kont261208261209_)))) + (___kont261208261209_)))) + (___kont261208261209_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261278261279_)) + (___kont261208261209_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd251548252281_)) + _hd251478252211_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251547252283_)) - (let ((_e251566252176_ + _tl251477252213_)) + (let ((_e251496252106_ (let () (declare (not safe)) (gx#stx-e - _tl251547252283_)))) - (let ((_tl251564252181_ + _tl251477252213_)))) + (let ((_tl251494252111_ (let () (declare (not safe)) - (##cdr _e251566252176_))) - (_hd251565252179_ + (##cdr _e251496252106_))) + (_hd251495252109_ (let () (declare (not safe)) - (##car _e251566252176_)))) + (##car _e251496252106_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd251565252179_)) - (let ((_e251569252184_ + _hd251495252109_)) + (let ((_e251499252114_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd251565252179_)))) - (let ((_tl251567252189_ + (gx#stx-e _hd251495252109_)))) + (let ((_tl251497252119_ (let () (declare (not safe)) - (##cdr _e251569252184_))) - (_hd251568252187_ + (##cdr _e251499252114_))) + (_hd251498252117_ (let () (declare (not safe)) - (##car _e251569252184_)))) + (##car _e251499252114_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd251568252187_)) + (gx#identifier? _hd251498252117_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd251568252187_)) + (gx#stx-eq? '%#ref _hd251498252117_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl251567252189_)) - (let ((_e251572252192_ + (gx#stx-pair? _tl251497252119_)) + (let ((_e251502252122_ (let () (declare (not safe)) - (gx#stx-e _tl251567252189_)))) - (let ((_tl251570252197_ + (gx#stx-e _tl251497252119_)))) + (let ((_tl251500252127_ (let () (declare (not safe)) - (##cdr _e251572252192_))) - (_hd251571252195_ + (##cdr _e251502252122_))) + (_hd251501252125_ (let () (declare (not safe)) - (##car _e251572252192_)))) + (##car _e251502252122_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251570252197_)) + (gx#stx-null? _tl251500252127_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl251564252181_)) - (let ((___splice261262261263_ + _tl251494252111_)) + (let ((___splice261192261193_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl251564252181_ + _tl251494252111_ '0)))) - (let ((_tl251575252202_ + (let ((_tl251505252132_ (let () (declare (not safe)) (##vector-ref - ___splice261262261263_ + ___splice261192261193_ '1))) - (_target251573252200_ + (_target251503252130_ (let () (declare (not safe)) (##vector-ref - ___splice261262261263_ + ___splice261192261193_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl251575252202_)) - (___match261351261352_ - _e251549252278_ - _hd251548252281_ - _tl251547252283_ - _e251566252176_ - _hd251565252179_ - _tl251564252181_ - _e251569252184_ - _hd251568252187_ - _tl251567252189_ - _e251572252192_ - _hd251571252195_ - _tl251570252197_ - ___splice261262261263_ - _target251573252200_ - _tl251575252202_) - (___kont261278261279_)))) - (___kont261278261279_)) - (___kont261278261279_)))) - (___kont261278261279_)) - (___kont261278261279_)) - (___kont261278261279_)))) - (___kont261278261279_)))) + _tl251505252132_)) + (___match261281261282_ + _e251479252208_ + _hd251478252211_ + _tl251477252213_ + _e251496252106_ + _hd251495252109_ + _tl251494252111_ + _e251499252114_ + _hd251498252117_ + _tl251497252119_ + _e251502252122_ + _hd251501252125_ + _tl251500252127_ + ___splice261192261193_ + _target251503252130_ + _tl251505252132_) + (___kont261208261209_)))) + (___kont261208261209_)) + (___kont261208261209_)))) + (___kont261208261209_)) + (___kont261208261209_)) + (___kont261208261209_)))) + (___kont261208261209_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261278261279_)) + (___kont261208261209_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd251548252281_)) + _hd251478252211_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251547252283_)) - (let ((_e251596252046_ + _tl251477252213_)) + (let ((_e251526251976_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl251547252283_)))) - (let ((_tl251594252051_ - (let () (declare (not safe)) (##cdr _e251596252046_))) - (_hd251595252049_ - (let () (declare (not safe)) (##car _e251596252046_)))) + (gx#stx-e _tl251477252213_)))) + (let ((_tl251524251981_ + (let () (declare (not safe)) (##cdr _e251526251976_))) + (_hd251525251979_ + (let () (declare (not safe)) (##car _e251526251976_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd251595252049_)) - (let ((___splice261266261267_ + (gx#stx-pair/null? _hd251525251979_)) + (let ((___splice261196261197_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd251595252049_ '0)))) - (let ((_tl251599252056_ + (gx#syntax-split-splice _hd251525251979_ '0)))) + (let ((_tl251529251986_ (let () (declare (not safe)) - (##vector-ref ___splice261266261267_ '1))) - (_target251597252054_ + (##vector-ref ___splice261196261197_ '1))) + (_target251527251984_ (let () (declare (not safe)) - (##vector-ref ___splice261266261267_ '0)))) + (##vector-ref ___splice261196261197_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251599252056_)) - (___match261375261376_ - _e251549252278_ - _hd251548252281_ - _tl251547252283_ - _e251596252046_ - _hd251595252049_ - _tl251594252051_ - ___splice261266261267_ - _target251597252054_ - _tl251599252056_) - (___kont261278261279_)))) - (___kont261278261279_)))) - (___kont261278261279_)) + (gx#stx-null? _tl251529251986_)) + (___match261305261306_ + _e251479252208_ + _hd251478252211_ + _tl251477252213_ + _e251526251976_ + _hd251525251979_ + _tl251524251981_ + ___splice261196261197_ + _target251527251984_ + _tl251529251986_) + (___kont261208261209_)))) + (___kont261208261209_)))) + (___kont261208261209_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd251548252281_)) + _hd251478252211_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251547252283_)) - (let ((_e251668251735_ + _tl251477252213_)) + (let ((_e251598251665_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl251547252283_)))) - (let ((_tl251666251740_ + (gx#stx-e _tl251477252213_)))) + (let ((_tl251596251670_ (let () (declare (not safe)) - (##cdr _e251668251735_))) - (_hd251667251738_ + (##cdr _e251598251665_))) + (_hd251597251668_ (let () (declare (not safe)) - (##car _e251668251735_)))) + (##car _e251598251665_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd251667251738_)) - (let ((_e251671251743_ + (gx#stx-pair? _hd251597251668_)) + (let ((_e251601251673_ (let () (declare (not safe)) - (gx#stx-e _hd251667251738_)))) - (let ((_tl251669251748_ + (gx#stx-e _hd251597251668_)))) + (let ((_tl251599251678_ (let () (declare (not safe)) - (##cdr _e251671251743_))) - (_hd251670251746_ + (##cdr _e251601251673_))) + (_hd251600251676_ (let () (declare (not safe)) - (##car _e251671251743_)))) + (##car _e251601251673_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd251670251746_)) - (let ((_e251674251751_ + (gx#stx-pair? _hd251600251676_)) + (let ((_e251604251681_ (let () (declare (not safe)) - (gx#stx-e _hd251670251746_)))) - (let ((_tl251672251756_ + (gx#stx-e _hd251600251676_)))) + (let ((_tl251602251686_ (let () (declare (not safe)) - (##cdr _e251674251751_))) - (_hd251673251754_ + (##cdr _e251604251681_))) + (_hd251603251684_ (let () (declare (not safe)) - (##car _e251674251751_)))) + (##car _e251604251681_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd251673251754_)) - (let ((_e251677251759_ + (gx#stx-pair? _hd251603251684_)) + (let ((_e251607251689_ (let () (declare (not safe)) (gx#stx-e - _hd251673251754_)))) - (let ((_tl251675251764_ + _hd251603251684_)))) + (let ((_tl251605251694_ (let () (declare (not safe)) - (##cdr _e251677251759_))) - (_hd251676251762_ + (##cdr _e251607251689_))) + (_hd251606251692_ (let () (declare (not safe)) - (##car _e251677251759_)))) + (##car _e251607251689_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl251675251764_)) + _tl251605251694_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251672251756_)) - (let ((_e251680251767_ + _tl251602251686_)) + (let ((_e251610251697_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl251672251756_)))) - (let ((_tl251678251772_ - (let () (declare (not safe)) (##cdr _e251680251767_))) - (_hd251679251770_ - (let () (declare (not safe)) (##car _e251680251767_)))) + (gx#stx-e _tl251602251686_)))) + (let ((_tl251608251702_ + (let () (declare (not safe)) (##cdr _e251610251697_))) + (_hd251609251700_ + (let () (declare (not safe)) (##car _e251610251697_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd251679251770_)) - (let ((_e251683251775_ + (gx#stx-pair? _hd251609251700_)) + (let ((_e251613251705_ (let () (declare (not safe)) - (gx#stx-e _hd251679251770_)))) - (let ((_tl251681251780_ + (gx#stx-e _hd251609251700_)))) + (let ((_tl251611251710_ (let () (declare (not safe)) - (##cdr _e251683251775_))) - (_hd251682251778_ + (##cdr _e251613251705_))) + (_hd251612251708_ (let () (declare (not safe)) - (##car _e251683251775_)))) + (##car _e251613251705_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd251682251778_)) + (gx#identifier? _hd251612251708_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd251682251778_)) + (gx#stx-eq? '%#lambda _hd251612251708_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl251681251780_)) - (let ((_e251686251783_ + (gx#stx-pair? _tl251611251710_)) + (let ((_e251616251713_ (let () (declare (not safe)) - (gx#stx-e _tl251681251780_)))) - (let ((_tl251684251788_ + (gx#stx-e _tl251611251710_)))) + (let ((_tl251614251718_ (let () (declare (not safe)) - (##cdr _e251686251783_))) - (_hd251685251786_ + (##cdr _e251616251713_))) + (_hd251615251716_ (let () (declare (not safe)) - (##car _e251686251783_)))) + (##car _e251616251713_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd251685251786_)) - (let ((___splice261274261275_ + _hd251615251716_)) + (let ((___splice261204261205_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd251685251786_ + _hd251615251716_ '0)))) - (let ((_tl251689251793_ + (let ((_tl251619251723_ (let () (declare (not safe)) (##vector-ref - ___splice261274261275_ + ___splice261204261205_ '1))) - (_target251687251791_ + (_target251617251721_ (let () (declare (not safe)) (##vector-ref - ___splice261274261275_ + ___splice261204261205_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl251689251793_)) - (___match261465261466_ - _e251549252278_ - _hd251548252281_ - _tl251547252283_ - _e251668251735_ - _hd251667251738_ - _tl251666251740_ - _e251671251743_ - _hd251670251746_ - _tl251669251748_ - _e251674251751_ - _hd251673251754_ - _tl251672251756_ - _e251677251759_ - _hd251676251762_ - _tl251675251764_ - _e251680251767_ - _hd251679251770_ - _tl251678251772_ - _e251683251775_ - _hd251682251778_ - _tl251681251780_ - _e251686251783_ - _hd251685251786_ - _tl251684251788_ - ___splice261274261275_ - _target251687251791_ - _tl251689251793_) - (___kont261278261279_)))) - (___kont261278261279_)))) - (___kont261278261279_)) - (___kont261278261279_)) - (___kont261278261279_)))) - (___kont261278261279_)))) - (___kont261278261279_)) + _tl251619251723_)) + (___match261395261396_ + _e251479252208_ + _hd251478252211_ + _tl251477252213_ + _e251598251665_ + _hd251597251668_ + _tl251596251670_ + _e251601251673_ + _hd251600251676_ + _tl251599251678_ + _e251604251681_ + _hd251603251684_ + _tl251602251686_ + _e251607251689_ + _hd251606251692_ + _tl251605251694_ + _e251610251697_ + _hd251609251700_ + _tl251608251702_ + _e251613251705_ + _hd251612251708_ + _tl251611251710_ + _e251616251713_ + _hd251615251716_ + _tl251614251718_ + ___splice261204261205_ + _target251617251721_ + _tl251619251723_) + (___kont261208261209_)))) + (___kont261208261209_)))) + (___kont261208261209_)) + (___kont261208261209_)) + (___kont261208261209_)))) + (___kont261208261209_)))) + (___kont261208261209_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261278261279_)))) - (___kont261278261279_)))) - (___kont261278261279_)))) - (___kont261278261279_)))) - (___kont261278261279_)) - (___kont261278261279_))))) + (___kont261208261209_)))) + (___kont261208261209_)))) + (___kont261208261209_)))) + (___kont261208261209_)))) + (___kont261208261209_)) + (___kont261208261209_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261278261279_)))) - (___kont261278261279_))))))) - (_optimize-t__260187260188_ - (lambda (_expr251518_ _test251519_ _continue251520_) - (let ((__tmp263556 - (let ((__tmp263557 + (___kont261208261209_)))) + (___kont261208261209_))))))) + (_optimize-t__260117260118_ + (lambda (_expr251448_ _test251449_ _continue251450_) + (let ((__tmp263486 + (let ((__tmp263487 (let () (declare (not safe)) - (cons _test251519_ '#t)))) + (cons _test251449_ '#t)))) (declare (not safe)) - (cons __tmp263557 '()))) - (__tmp263555 - (lambda () (_continue251520_ _expr251518_)))) + (cons __tmp263487 '()))) + (__tmp263485 + (lambda () (_continue251450_ _expr251448_)))) (declare (not safe)) - (_do-assert248532_ __tmp263556 __tmp263555)))) - (_optimize-t__0__260189260190_ - (lambda (_expr251526_ _test251527_) - (let ((_continue251529_ _optimize-e248543_)) + (_do-assert248462_ __tmp263486 __tmp263485)))) + (_optimize-t__0__260119260120_ + (lambda (_expr251456_ _test251457_) + (let ((_continue251459_ _optimize-e248473_)) (declare (not safe)) - (_optimize-t__260187260188_ - _expr251526_ - _test251527_ - _continue251529_)))) - (_optimize-t248544_ - (lambda _g263559_ - (let ((_g263558_ + (_optimize-t__260117260118_ + _expr251456_ + _test251457_ + _continue251459_)))) + (_optimize-t248474_ + (lambda _g263489_ + (let ((_g263488_ (let () (declare (not safe)) - (##length _g263559_)))) - (cond ((let () (declare (not safe)) (##fx= _g263558_ 2)) - (apply (lambda (_expr251526_ _test251527_) + (##length _g263489_)))) + (cond ((let () (declare (not safe)) (##fx= _g263488_ 2)) + (apply (lambda (_expr251456_ _test251457_) (let () (declare (not safe)) - (_optimize-t__0__260189260190_ - _expr251526_ - _test251527_))) - _g263559_)) - ((let () (declare (not safe)) (##fx= _g263558_ 3)) - (apply (lambda (_expr251531_ - _test251532_ - _continue251533_) + (_optimize-t__0__260119260120_ + _expr251456_ + _test251457_))) + _g263489_)) + ((let () (declare (not safe)) (##fx= _g263488_ 3)) + (apply (lambda (_expr251461_ + _test251462_ + _continue251463_) (let () (declare (not safe)) - (_optimize-t__260187260188_ - _expr251531_ - _test251532_ - _continue251533_))) - _g263559_)) + (_optimize-t__260117260118_ + _expr251461_ + _test251462_ + _continue251463_))) + _g263489_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g263559_)))))) - (_optimize-f__260191260192_ - (lambda (_expr250603_ _test250604_) - (let ((__tmp263602 - (if _test250604_ - (let ((__tmp263603 + _g263489_)))))) + (_optimize-f__260121260122_ + (lambda (_expr250533_ _test250534_) + (let ((__tmp263532 + (if _test250534_ + (let ((__tmp263533 (let () (declare (not safe)) - (cons _test250604_ '#f)))) + (cons _test250534_ '#f)))) (declare (not safe)) - (cons __tmp263603 '())) + (cons __tmp263533 '())) '())) - (__tmp263560 + (__tmp263490 (lambda () - (let* ((___stx261506261507_ _expr250603_) - (_g250612250785_ + (let* ((___stx261436261437_ _expr250533_) + (_g250542250715_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx261506261507_))))) - (let ((___kont261508261509_ - (lambda (_L251373_ _L251374_) - (let ((_$e251394_ + ___stx261436261437_))))) + (let ((___kont261438261439_ + (lambda (_L251303_ _L251304_) + (let ((_$e251324_ (let () (declare (not safe)) - (_lookup-block248551_ - _L251374_)))) - (if _$e251394_ - ((lambda (_block251397_) + (_lookup-block248481_ + _L251304_)))) + (if _$e251324_ + ((lambda (_block251327_) (if (let () (declare (not safe)) - (_nonlinear-block?248553_ - _block251397_)) - _expr250603_ - (let* ((_inline251406_ - (let ((__tmp263561 + (_nonlinear-block?248483_ + _block251327_)) + _expr250533_ + (let* ((_inline251336_ + (let ((__tmp263491 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263562 - (lambda (_g251398251401_ _g251399251403_) + (let ((__tmp263492 + (lambda (_g251328251331_ _g251329251333_) (let () (declare (not safe)) - (cons _g251398251401_ - _g251399251403_))))) + (cons _g251328251331_ + _g251329251333_))))) (declare (not safe)) - (foldr1 __tmp263562 '() _L251373_)))) + (foldr1 __tmp263492 '() _L251303_)))) (declare (not safe)) - (_inline-block248552_ _block251397_ __tmp263561))) - (___stx261468261469_ _inline251406_) - (_g251409251430_ + (_inline-block248482_ _block251327_ __tmp263491))) + (___stx261398261399_ _inline251336_) + (_g251339251360_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx261468261469_))))) - (let ((___kont261470261471_ - (lambda (_L251474_ _L251475_ _L251476_) - (let ((_$e251498_ + ___stx261398261399_))))) + (let ((___kont261400261401_ + (lambda (_L251404_ _L251405_ _L251406_) + (let ((_$e251428_ (let () (declare (not safe)) - (_assert-e248546_ _L251476_)))) + (_assert-e248476_ _L251406_)))) (if (let () (declare (not safe)) - (eq? '#t _$e251498_)) - (if _in-splice?248531_ + (eq? '#t _$e251428_)) + (if _in-splice?248461_ (let () (declare (not safe)) - (_optimize-f__0__260193260194_ _L251475_)) + (_optimize-f__0__260123260124_ _L251405_)) (let () (declare (not safe)) - (_optimize-e248543_ _L251475_))) + (_optimize-e248473_ _L251405_))) (if (let () (declare (not safe)) - (eq? '#f _$e251498_)) + (eq? '#f _$e251428_)) (let () (declare (not safe)) - (_optimize-f__0__260193260194_ _L251474_)) - _expr250603_))))) - (___kont261472261473_ + (_optimize-f__0__260123260124_ _L251404_)) + _expr250533_))))) + (___kont261402261403_ (lambda () (let () (declare (not safe)) - (_optimize-f__0__260193260194_ _inline251406_))))) + (_optimize-f__0__260123260124_ _inline251336_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx261468261469_)) - (let ((_e251416251442_ + (gx#stx-pair? ___stx261398261399_)) + (let ((_e251346251372_ (let () (declare (not safe)) - (gx#stx-e ___stx261468261469_)))) - (let ((_tl251414251447_ + (gx#stx-e ___stx261398261399_)))) + (let ((_tl251344251377_ (let () (declare (not safe)) - (##cdr _e251416251442_))) - (_hd251415251445_ + (##cdr _e251346251372_))) + (_hd251345251375_ (let () (declare (not safe)) - (##car _e251416251442_)))) + (##car _e251346251372_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd251415251445_)) + (gx#identifier? _hd251345251375_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd251415251445_)) + (gx#stx-eq? '%#if _hd251345251375_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl251414251447_)) - (let ((_e251419251450_ + (gx#stx-pair? _tl251344251377_)) + (let ((_e251349251380_ (let () (declare (not safe)) - (gx#stx-e _tl251414251447_)))) - (let ((_tl251417251455_ + (gx#stx-e _tl251344251377_)))) + (let ((_tl251347251385_ (let () (declare (not safe)) - (##cdr _e251419251450_))) - (_hd251418251453_ + (##cdr _e251349251380_))) + (_hd251348251383_ (let () (declare (not safe)) - (##car _e251419251450_)))) + (##car _e251349251380_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251417251455_)) - (let ((_e251422251458_ + _tl251347251385_)) + (let ((_e251352251388_ (let () (declare (not safe)) (gx#stx-e - _tl251417251455_)))) - (let ((_tl251420251463_ + _tl251347251385_)))) + (let ((_tl251350251393_ (let () (declare (not safe)) - (##cdr _e251422251458_))) - (_hd251421251461_ + (##cdr _e251352251388_))) + (_hd251351251391_ (let () (declare (not safe)) - (##car _e251422251458_)))) + (##car _e251352251388_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl251420251463_)) - (let ((_e251425251466_ + _tl251350251393_)) + (let ((_e251355251396_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl251420251463_)))) - (let ((_tl251423251471_ - (let () (declare (not safe)) (##cdr _e251425251466_))) - (_hd251424251469_ - (let () (declare (not safe)) (##car _e251425251466_)))) + (gx#stx-e _tl251350251393_)))) + (let ((_tl251353251401_ + (let () (declare (not safe)) (##cdr _e251355251396_))) + (_hd251354251399_ + (let () (declare (not safe)) (##car _e251355251396_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl251423251471_)) - (___kont261470261471_ - _hd251424251469_ - _hd251421251461_ - _hd251418251453_) - (___kont261472261473_)))) - (___kont261472261473_)))) + (gx#stx-null? _tl251353251401_)) + (___kont261400261401_ + _hd251354251399_ + _hd251351251391_ + _hd251348251383_) + (___kont261402261403_)))) + (___kont261402261403_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261472261473_)))) - (___kont261472261473_)) - (___kont261472261473_)) - (___kont261472261473_)))) - (___kont261472261473_)))))) + (___kont261402261403_)))) + (___kont261402261403_)) + (___kont261402261403_)) + (___kont261402261403_)))) + (___kont261402261403_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e251394_) - _expr250603_)))) - (___kont261512261513_ - (lambda (_L251271_ _L251272_ _L251273_) - (let ((_$e251290_ + _$e251324_) + _expr250533_)))) + (___kont261442261443_ + (lambda (_L251201_ _L251202_ _L251203_) + (let ((_$e251220_ (let () (declare (not safe)) - (_assert-e248546_ - _L251273_)))) + (_assert-e248476_ + _L251203_)))) (if (let () (declare (not safe)) - (eq? '#t _$e251290_)) - (if _in-splice?248531_ + (eq? '#t _$e251220_)) + (if _in-splice?248461_ (let () (declare (not safe)) - (_optimize-f__0__260193260194_ - _L251272_)) + (_optimize-f__0__260123260124_ + _L251202_)) (let () (declare (not safe)) - (_optimize-e248543_ - _L251272_))) + (_optimize-e248473_ + _L251202_))) (if (let () (declare (not safe)) - (eq? '#f _$e251290_)) + (eq? '#f _$e251220_)) (let () (declare (not safe)) - (_optimize-f__0__260193260194_ - _L251271_)) - (let ((_K251293_ + (_optimize-f__0__260123260124_ + _L251201_)) + (let ((_K251223_ (let () (declare (not safe)) - (_optimize-t__260187260188_ - _L251272_ - _L251273_ - _optimize-f248545_))) - (_E251294_ + (_optimize-t__260117260118_ + _L251202_ + _L251203_ + _optimize-f248475_))) + (_E251224_ (let () (declare (not safe)) - (_optimize-f__260191260192_ - _L251271_ - _L251273_)))) - (if (let ((__tmp263567 + (_optimize-f__260121260122_ + _L251201_ + _L251203_)))) + (if (let ((__tmp263497 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#apply-generate-runtime-repr _K251293_))) - (__tmp263566 + (gxc#apply-generate-runtime-repr _K251223_))) + (__tmp263496 (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _E251294_)))) + (gxc#apply-generate-runtime-repr _E251224_)))) (declare (not safe)) - (equal? __tmp263567 __tmp263566)) - _K251293_ - (let ((__tmp263563 - (let ((__tmp263564 - (let ((__tmp263565 + (equal? __tmp263497 __tmp263496)) + _K251223_ + (let ((__tmp263493 + (let ((__tmp263494 + (let ((__tmp263495 (let () (declare (not safe)) - (cons _E251294_ '())))) + (cons _E251224_ '())))) (declare (not safe)) - (cons _K251293_ __tmp263565)))) + (cons _K251223_ __tmp263495)))) (declare (not safe)) - (cons _L251273_ __tmp263564)))) + (cons _L251203_ __tmp263494)))) (declare (not safe)) - (cons '%#if __tmp263563))))))))) + (cons '%#if __tmp263493))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261514261515_ - (lambda (_L251201_ _L251202_ _L251203_) - (let* ((_body251222_ + (___kont261444261445_ + (lambda (_L251131_ _L251132_ _L251133_) + (let* ((_body251152_ (let () (declare (not safe)) - (_optimize-f__0__260193260194_ - _L251201_))) - (__tmp263568 - (let ((__tmp263570 + (_optimize-f__0__260123260124_ + _L251131_))) + (__tmp263498 + (let ((__tmp263500 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L251202_ - _L251203_)) - (let ((__tmp263571 + _L251132_ + _L251133_)) + (let ((__tmp263501 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g251223251227_ - _g251224251229_ - _g251225251231_) - (let ((__tmp263572 - (let ((__tmp263577 + (lambda (_g251153251157_ + _g251154251159_ + _g251155251161_) + (let ((__tmp263502 + (let ((__tmp263507 (let () (declare (not safe)) - (cons _g251224251229_ '()))) - (__tmp263573 - (let ((__tmp263574 - (let ((__tmp263576 + (cons _g251154251159_ '()))) + (__tmp263503 + (let ((__tmp263504 + (let ((__tmp263506 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263575 + (__tmp263505 (let () (declare (not safe)) - (cons _g251223251227_ + (cons _g251153251157_ '())))) (declare (not safe)) - (cons __tmp263576 - __tmp263575)))) + (cons __tmp263506 + __tmp263505)))) (declare (not safe)) - (cons __tmp263574 '())))) + (cons __tmp263504 '())))) (declare (not safe)) - (cons __tmp263577 __tmp263573)))) + (cons __tmp263507 __tmp263503)))) (declare (not safe)) - (cons __tmp263572 _g251225251231_))))) + (cons __tmp263502 _g251155251161_))))) (declare (not safe)) - (foldr2 __tmp263571 '() _L251202_ _L251203_)))) - (__tmp263569 - (let () (declare (not safe)) (cons _body251222_ '())))) + (foldr2 __tmp263501 '() _L251132_ _L251133_)))) + (__tmp263499 + (let () (declare (not safe)) (cons _body251152_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263570 - __tmp263569)))) + (cons __tmp263500 + __tmp263499)))) (declare (not safe)) - (cons '%#let-values __tmp263568)))) - (___kont261518261519_ - (lambda (_L251069_ _L251070_ _L251071_) - (let ((__tmp263578 + (cons '%#let-values __tmp263498)))) + (___kont261448261449_ + (lambda (_L250999_ _L251000_ _L251001_) + (let ((__tmp263508 (map cons - (let ((__tmp263579 - (lambda (_g251089251092_ + (let ((__tmp263509 + (lambda (_g251019251022_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g251090251094_) + _g251020251024_) (let () (declare (not safe)) - (cons _g251089251092_ _g251090251094_))))) + (cons _g251019251022_ _g251020251024_))))) (declare (not safe)) - (foldr1 __tmp263579 '() _L251071_)) + (foldr1 __tmp263509 '() _L251001_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp263580 - (lambda (_g251096251099_ + (let ((__tmp263510 + (lambda (_g251026251029_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g251097251101_) + _g251027251031_) (let () (declare (not safe)) - (cons _g251096251099_ _g251097251101_))))) + (cons _g251026251029_ _g251027251031_))))) (declare (not safe)) - (foldr1 __tmp263580 '() _L251070_))))) + (foldr1 __tmp263510 '() _L251000_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_bind-e__260195260196_ - __tmp263578 - _L251069_ - _optimize-f248545_)))) - (___kont261522261523_ - (lambda (_L250925_ - _L250926_ - _L250927_ - _L250928_ - _L250929_) - (let ((__tmp263581 + (_bind-e__260125260126_ + __tmp263508 + _L250999_ + _optimize-f248475_)))) + (___kont261452261453_ + (lambda (_L250855_ + _L250856_ + _L250857_ + _L250858_ + _L250859_) + (let ((__tmp263511 (lambda () - (let* ((_expr250972_ + (let* ((_expr250902_ (let () (declare (not safe)) - (_optimize-f__0__260193260194_ - _L250927_))) - (__tmp263582 - (let ((__tmp263584 + (_optimize-f__0__260123260124_ + _L250857_))) + (__tmp263512 + (let ((__tmp263514 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263587 - (let ((__tmp263594 + (let ((__tmp263517 + (let ((__tmp263524 (let () (declare (not safe)) - (cons _L250929_ '()))) - (__tmp263588 - (let ((__tmp263589 - (let ((__tmp263590 - (let ((__tmp263592 - (let ((__tmp263593 + (cons _L250859_ '()))) + (__tmp263518 + (let ((__tmp263519 + (let ((__tmp263520 + (let ((__tmp263522 + (let ((__tmp263523 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g250973250976_ _g250974250978_) + (lambda (_g250903250906_ _g250904250908_) (let () (declare (not safe)) - (cons _g250973250976_ _g250974250978_))))) + (cons _g250903250906_ _g250904250908_))))) (declare (not safe)) - (foldr1 __tmp263593 '() _L250928_))) - (__tmp263591 - (let () (declare (not safe)) (cons _expr250972_ '())))) + (foldr1 __tmp263523 '() _L250858_))) + (__tmp263521 + (let () (declare (not safe)) (cons _expr250902_ '())))) (declare (not safe)) - (cons __tmp263592 __tmp263591)))) + (cons __tmp263522 __tmp263521)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#lambda __tmp263590)))) + (cons '%#lambda __tmp263520)))) (declare (not safe)) - (cons __tmp263589 '())))) + (cons __tmp263519 '())))) (declare (not safe)) - (cons __tmp263594 __tmp263588))) - (__tmp263585 - (let ((__tmp263586 - (lambda (_g250980250983_ - _g250981250985_) + (cons __tmp263524 __tmp263518))) + (__tmp263515 + (let ((__tmp263516 + (lambda (_g250910250913_ + _g250911250915_) (let () (declare (not safe)) - (cons _g250980250983_ - _g250981250985_))))) + (cons _g250910250913_ + _g250911250915_))))) (declare (not safe)) - (foldr1 __tmp263586 '() _L250926_)))) + (foldr1 __tmp263516 '() _L250856_)))) (declare (not safe)) - (cons __tmp263587 __tmp263585))) - (__tmp263583 - (let () (declare (not safe)) (cons _L250925_ '())))) + (cons __tmp263517 __tmp263515))) + (__tmp263513 + (let () (declare (not safe)) (cons _L250855_ '())))) (declare (not safe)) - (cons __tmp263584 __tmp263583)))) + (cons __tmp263514 __tmp263513)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#letrec-values - __tmp263582))))) + __tmp263512))))) (declare (not safe)) - (_do-splice!248542_ __tmp263581)))) - (___kont261528261529_ - (lambda () _expr250603_))) - (let* ((___match261715261716_ - (lambda (_e250735250797_ - _hd250734250800_ - _tl250733250802_ - _e250738250805_ - _hd250737250808_ - _tl250736250810_ - _e250741250813_ - _hd250740250816_ - _tl250739250818_ - _e250744250821_ - _hd250743250824_ - _tl250742250826_ - _e250747250829_ - _hd250746250832_ - _tl250745250834_ - _e250750250837_ - _hd250749250840_ - _tl250748250842_ - _e250753250845_ - _hd250752250848_ - _tl250751250850_ - _e250756250853_ - _hd250755250856_ - _tl250754250858_ - ___splice261524261525_ - _target250757250861_ - _tl250759250863_) - (letrec ((_loop250760250866_ - (lambda (_hd250758250869_ - _id250764250871_) + (_do-splice!248472_ __tmp263511)))) + (___kont261458261459_ + (lambda () _expr250533_))) + (let* ((___match261645261646_ + (lambda (_e250665250727_ + _hd250664250730_ + _tl250663250732_ + _e250668250735_ + _hd250667250738_ + _tl250666250740_ + _e250671250743_ + _hd250670250746_ + _tl250669250748_ + _e250674250751_ + _hd250673250754_ + _tl250672250756_ + _e250677250759_ + _hd250676250762_ + _tl250675250764_ + _e250680250767_ + _hd250679250770_ + _tl250678250772_ + _e250683250775_ + _hd250682250778_ + _tl250681250780_ + _e250686250783_ + _hd250685250786_ + _tl250684250788_ + ___splice261454261455_ + _target250687250791_ + _tl250689250793_) + (letrec ((_loop250690250796_ + (lambda (_hd250688250799_ + _id250694250801_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd250758250869_)) - (let ((_e250761250874_ + _hd250688250799_)) + (let ((_e250691250804_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd250758250869_)))) - (let ((_lp-tl250763250879_ + (gx#stx-e _hd250688250799_)))) + (let ((_lp-tl250693250809_ (let () (declare (not safe)) - (##cdr _e250761250874_))) - (_lp-hd250762250877_ + (##cdr _e250691250804_))) + (_lp-hd250692250807_ (let () (declare (not safe)) - (##car _e250761250874_)))) - (let ((__tmp263596 + (##car _e250691250804_)))) + (let ((__tmp263526 (let () (declare (not safe)) - (cons _lp-hd250762250877_ _id250764250871_)))) + (cons _lp-hd250692250807_ _id250694250801_)))) (declare (not safe)) - (_loop250760250866_ - _lp-tl250763250879_ - __tmp263596)))) - (let ((_id250765250882_ (reverse _id250764250871_))) + (_loop250690250796_ + _lp-tl250693250809_ + __tmp263526)))) + (let ((_id250695250812_ (reverse _id250694250801_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250754250858_)) - (let ((_e250768250885_ + (gx#stx-pair? _tl250684250788_)) + (let ((_e250698250815_ (let () (declare (not safe)) - (gx#stx-e _tl250754250858_)))) - (let ((_tl250766250890_ + (gx#stx-e _tl250684250788_)))) + (let ((_tl250696250820_ (let () (declare (not safe)) - (##cdr _e250768250885_))) - (_hd250767250888_ + (##cdr _e250698250815_))) + (_hd250697250818_ (let () (declare (not safe)) - (##car _e250768250885_)))) + (##car _e250698250815_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250766250890_)) + (gx#stx-null? _tl250696250820_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl250748250842_)) + (gx#stx-null? _tl250678250772_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl250739250818_)) - (let ((___splice261526261527_ + _tl250669250748_)) + (let ((___splice261456261457_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl250739250818_ + _tl250669250748_ '0)))) - (let ((_tl250771250895_ + (let ((_tl250701250825_ (let () (declare (not safe)) (##vector-ref - ___splice261526261527_ + ___splice261456261457_ '1))) - (_target250769250893_ + (_target250699250823_ (let () (declare (not safe)) (##vector-ref - ___splice261526261527_ + ___splice261456261457_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl250771250895_)) - (letrec ((_loop250772250898_ - (lambda (_hd250770250901_ + _tl250701250825_)) + (letrec ((_loop250702250828_ + (lambda (_hd250700250831_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind250776250903_) + _bind250706250833_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250770250901_)) - (let ((_e250773250906_ + (gx#stx-pair? _hd250700250831_)) + (let ((_e250703250836_ (let () (declare (not safe)) - (gx#stx-e _hd250770250901_)))) - (let ((_lp-tl250775250911_ + (gx#stx-e _hd250700250831_)))) + (let ((_lp-tl250705250841_ (let () (declare (not safe)) - (##cdr _e250773250906_))) - (_lp-hd250774250909_ + (##cdr _e250703250836_))) + (_lp-hd250704250839_ (let () (declare (not safe)) - (##car _e250773250906_)))) - (let ((__tmp263595 + (##car _e250703250836_)))) + (let ((__tmp263525 (let () (declare (not safe)) - (cons _lp-hd250774250909_ - _bind250776250903_)))) + (cons _lp-hd250704250839_ + _bind250706250833_)))) (declare (not safe)) - (_loop250772250898_ - _lp-tl250775250911_ - __tmp263595)))) - (let ((_bind250777250914_ - (reverse _bind250776250903_))) + (_loop250702250828_ + _lp-tl250705250841_ + __tmp263525)))) + (let ((_bind250707250844_ + (reverse _bind250706250833_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250736250810_)) - (let ((_e250780250917_ + (gx#stx-pair? _tl250666250740_)) + (let ((_e250710250847_ (let () (declare (not safe)) - (gx#stx-e _tl250736250810_)))) - (let ((_tl250778250922_ + (gx#stx-e _tl250666250740_)))) + (let ((_tl250708250852_ (let () (declare (not safe)) - (##cdr _e250780250917_))) - (_hd250779250920_ + (##cdr _e250710250847_))) + (_hd250709250850_ (let () (declare (not safe)) - (##car _e250780250917_)))) + (##car _e250710250847_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250778250922_)) - (___kont261522261523_ - _hd250779250920_ - _bind250777250914_ - _hd250767250888_ - _id250765250882_ - _hd250746250832_) - (___kont261528261529_)))) - (___kont261528261529_))))))) + (gx#stx-null? _tl250708250852_)) + (___kont261452261453_ + _hd250709250850_ + _bind250707250844_ + _hd250697250818_ + _id250695250812_ + _hd250676250762_) + (___kont261458261459_)))) + (___kont261458261459_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop250772250898_ - _target250769250893_ + (_loop250702250828_ + _target250699250823_ '()))) - (___kont261528261529_)))) - (___kont261528261529_)) - (___kont261528261529_)) - (___kont261528261529_)))) - (___kont261528261529_))))))) + (___kont261458261459_)))) + (___kont261458261459_)) + (___kont261458261459_)) + (___kont261458261459_)))) + (___kont261458261459_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop250760250866_ - _target250757250861_ + (_loop250690250796_ + _target250687250791_ '()))))) - (___match261649261650_ - (lambda (_e250701250993_ - _hd250700250996_ - _tl250699250998_ - _e250704251001_ - _hd250703251004_ - _tl250702251006_ - ___splice261520261521_ - _target250705251009_ - _tl250707251011_) - (letrec ((_loop250708251014_ - (lambda (_hd250706251017_ - _expr250712251019_ - _id250713251021_) + (___match261579261580_ + (lambda (_e250631250923_ + _hd250630250926_ + _tl250629250928_ + _e250634250931_ + _hd250633250934_ + _tl250632250936_ + ___splice261450261451_ + _target250635250939_ + _tl250637250941_) + (letrec ((_loop250638250944_ + (lambda (_hd250636250947_ + _expr250642250949_ + _id250643250951_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd250706251017_)) - (let ((_e250709251024_ + _hd250636250947_)) + (let ((_e250639250954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd250706251017_)))) - (let ((_lp-tl250711251029_ + (gx#stx-e _hd250636250947_)))) + (let ((_lp-tl250641250959_ (let () (declare (not safe)) - (##cdr _e250709251024_))) - (_lp-hd250710251027_ + (##cdr _e250639250954_))) + (_lp-hd250640250957_ (let () (declare (not safe)) - (##car _e250709251024_)))) + (##car _e250639250954_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd250710251027_)) - (let ((_e250718251032_ + (gx#stx-pair? _lp-hd250640250957_)) + (let ((_e250648250962_ (let () (declare (not safe)) - (gx#stx-e _lp-hd250710251027_)))) - (let ((_tl250716251037_ + (gx#stx-e _lp-hd250640250957_)))) + (let ((_tl250646250967_ (let () (declare (not safe)) - (##cdr _e250718251032_))) - (_hd250717251035_ + (##cdr _e250648250962_))) + (_hd250647250965_ (let () (declare (not safe)) - (##car _e250718251032_)))) + (##car _e250648250962_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250717251035_)) - (let ((_e250721251040_ + (gx#stx-pair? _hd250647250965_)) + (let ((_e250651250970_ (let () (declare (not safe)) - (gx#stx-e _hd250717251035_)))) - (let ((_tl250719251045_ + (gx#stx-e _hd250647250965_)))) + (let ((_tl250649250975_ (let () (declare (not safe)) - (##cdr _e250721251040_))) - (_hd250720251043_ + (##cdr _e250651250970_))) + (_hd250650250973_ (let () (declare (not safe)) - (##car _e250721251040_)))) + (##car _e250651250970_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250719251045_)) + (gx#stx-null? _tl250649250975_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl250716251037_)) - (let ((_e250724251048_ + _tl250646250967_)) + (let ((_e250654250978_ (let () (declare (not safe)) (gx#stx-e - _tl250716251037_)))) - (let ((_tl250722251053_ + _tl250646250967_)))) + (let ((_tl250652250983_ (let () (declare (not safe)) - (##cdr _e250724251048_))) - (_hd250723251051_ + (##cdr _e250654250978_))) + (_hd250653250981_ (let () (declare (not safe)) - (##car _e250724251048_)))) + (##car _e250654250978_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl250722251053_)) - (let ((__tmp263598 + _tl250652250983_)) + (let ((__tmp263528 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _hd250723251051_ _expr250712251019_))) - (__tmp263597 + (cons _hd250653250981_ _expr250642250949_))) + (__tmp263527 (let () (declare (not safe)) - (cons _hd250720251043_ _id250713251021_)))) + (cons _hd250650250973_ _id250643250951_)))) (declare (not safe)) - (_loop250708251014_ - _lp-tl250711251029_ - __tmp263598 - __tmp263597)) - (___kont261528261529_)))) + (_loop250638250944_ + _lp-tl250641250959_ + __tmp263528 + __tmp263527)) + (___kont261458261459_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261528261529_)) - (___kont261528261529_)))) - (___kont261528261529_)))) - (___kont261528261529_)))) - (let ((_id250715251058_ (reverse _id250713251021_)) - (_expr250714251056_ (reverse _expr250712251019_))) + (___kont261458261459_)) + (___kont261458261459_)))) + (___kont261458261459_)))) + (___kont261458261459_)))) + (let ((_id250645250988_ (reverse _id250643250951_)) + (_expr250644250986_ (reverse _expr250642250949_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250702251006_)) - (let ((_e250727251061_ + (gx#stx-pair? _tl250632250936_)) + (let ((_e250657250991_ (let () (declare (not safe)) - (gx#stx-e _tl250702251006_)))) - (let ((_tl250725251066_ + (gx#stx-e _tl250632250936_)))) + (let ((_tl250655250996_ (let () (declare (not safe)) - (##cdr _e250727251061_))) - (_hd250726251064_ + (##cdr _e250657250991_))) + (_hd250656250994_ (let () (declare (not safe)) - (##car _e250727251061_)))) + (##car _e250657250991_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250725251066_)) - (___kont261518261519_ - _hd250726251064_ - _expr250714251056_ - _id250715251058_) - (___kont261528261529_)))) - (___kont261528261529_))))))) + (gx#stx-null? _tl250655250996_)) + (___kont261448261449_ + _hd250656250994_ + _expr250644250986_ + _id250645250988_) + (___kont261458261459_)))) + (___kont261458261459_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop250708251014_ - _target250705251009_ + (_loop250638250944_ + _target250635250939_ '() '()))))) - (___match261625261626_ - (lambda (_e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_) - (letrec ((_loop250670251130_ - (lambda (_hd250668251133_ - _xid250674251135_ - _id250675251137_) + (___match261555261556_ + (lambda (_e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_) + (letrec ((_loop250600251060_ + (lambda (_hd250598251063_ + _xid250604251065_ + _id250605251067_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd250668251133_)) - (let ((_e250671251140_ + _hd250598251063_)) + (let ((_e250601251070_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd250668251133_)))) - (let ((_lp-tl250673251145_ + (gx#stx-e _hd250598251063_)))) + (let ((_lp-tl250603251075_ (let () (declare (not safe)) - (##cdr _e250671251140_))) - (_lp-hd250672251143_ + (##cdr _e250601251070_))) + (_lp-hd250602251073_ (let () (declare (not safe)) - (##car _e250671251140_)))) + (##car _e250601251070_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd250672251143_)) - (let ((_e250680251148_ + (gx#stx-pair? _lp-hd250602251073_)) + (let ((_e250610251078_ (let () (declare (not safe)) - (gx#stx-e _lp-hd250672251143_)))) - (let ((_tl250678251153_ + (gx#stx-e _lp-hd250602251073_)))) + (let ((_tl250608251083_ (let () (declare (not safe)) - (##cdr _e250680251148_))) - (_hd250679251151_ + (##cdr _e250610251078_))) + (_hd250609251081_ (let () (declare (not safe)) - (##car _e250680251148_)))) + (##car _e250610251078_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250679251151_)) - (let ((_e250683251156_ + (gx#stx-pair? _hd250609251081_)) + (let ((_e250613251086_ (let () (declare (not safe)) - (gx#stx-e _hd250679251151_)))) - (let ((_tl250681251161_ + (gx#stx-e _hd250609251081_)))) + (let ((_tl250611251091_ (let () (declare (not safe)) - (##cdr _e250683251156_))) - (_hd250682251159_ + (##cdr _e250613251086_))) + (_hd250612251089_ (let () (declare (not safe)) - (##car _e250683251156_)))) + (##car _e250613251086_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250681251161_)) + (gx#stx-null? _tl250611251091_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl250678251153_)) - (let ((_e250686251164_ + _tl250608251083_)) + (let ((_e250616251094_ (let () (declare (not safe)) (gx#stx-e - _tl250678251153_)))) - (let ((_tl250684251169_ + _tl250608251083_)))) + (let ((_tl250614251099_ (let () (declare (not safe)) - (##cdr _e250686251164_))) - (_hd250685251167_ + (##cdr _e250616251094_))) + (_hd250615251097_ (let () (declare (not safe)) - (##car _e250686251164_)))) + (##car _e250616251094_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd250685251167_)) - (let ((_e250689251172_ + _hd250615251097_)) + (let ((_e250619251102_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd250685251167_)))) - (let ((_tl250687251177_ - (let () (declare (not safe)) (##cdr _e250689251172_))) - (_hd250688251175_ + (gx#stx-e _hd250615251097_)))) + (let ((_tl250617251107_ + (let () (declare (not safe)) (##cdr _e250619251102_))) + (_hd250618251105_ (let () (declare (not safe)) - (##car _e250689251172_)))) + (##car _e250619251102_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd250688251175_)) + (gx#identifier? _hd250618251105_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd250688251175_)) + (gx#stx-eq? '%#ref _hd250618251105_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250687251177_)) - (let ((_e250692251180_ + (gx#stx-pair? _tl250617251107_)) + (let ((_e250622251110_ (let () (declare (not safe)) - (gx#stx-e _tl250687251177_)))) - (let ((_tl250690251185_ + (gx#stx-e _tl250617251107_)))) + (let ((_tl250620251115_ (let () (declare (not safe)) - (##cdr _e250692251180_))) - (_hd250691251183_ + (##cdr _e250622251110_))) + (_hd250621251113_ (let () (declare (not safe)) - (##car _e250692251180_)))) + (##car _e250622251110_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250690251185_)) + (gx#stx-null? _tl250620251115_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl250684251169_)) - (let ((__tmp263600 + (gx#stx-null? _tl250614251099_)) + (let ((__tmp263530 (let () (declare (not safe)) - (cons _hd250691251183_ - _xid250674251135_))) - (__tmp263599 + (cons _hd250621251113_ + _xid250604251065_))) + (__tmp263529 (let () (declare (not safe)) - (cons _hd250682251159_ - _id250675251137_)))) + (cons _hd250612251089_ + _id250605251067_)))) (declare (not safe)) - (_loop250670251130_ - _lp-tl250673251145_ - __tmp263600 - __tmp263599)) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)))) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)))) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)))) + (_loop250600251060_ + _lp-tl250603251075_ + __tmp263530 + __tmp263529)) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)))) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)))) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)))) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)))) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)))) - (let ((_id250677251190_ (reverse _id250675251137_)) - (_xid250676251188_ (reverse _xid250674251135_))) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)))) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)))) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)))) + (let ((_id250607251120_ (reverse _id250605251067_)) + (_xid250606251118_ (reverse _xid250604251065_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250664251122_)) - (let ((_e250695251193_ + (gx#stx-pair? _tl250594251052_)) + (let ((_e250625251123_ (let () (declare (not safe)) - (gx#stx-e _tl250664251122_)))) - (let ((_tl250693251198_ + (gx#stx-e _tl250594251052_)))) + (let ((_tl250623251128_ (let () (declare (not safe)) - (##cdr _e250695251193_))) - (_hd250694251196_ + (##cdr _e250625251123_))) + (_hd250624251126_ (let () (declare (not safe)) - (##car _e250695251193_)))) + (##car _e250625251123_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250693251198_)) - (___kont261514261515_ - _hd250694251196_ - _xid250676251188_ - _id250677251190_) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_)))) - (___match261649261650_ - _e250663251109_ - _hd250662251112_ - _tl250661251114_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_))))))) + (gx#stx-null? _tl250623251128_)) + (___kont261444261445_ + _hd250624251126_ + _xid250606251118_ + _id250607251120_) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_)))) + (___match261579261580_ + _e250593251039_ + _hd250592251042_ + _tl250591251044_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop250670251130_ - _target250667251125_ + (_loop250600251060_ + _target250597251055_ '() '()))))) - (___match261571261572_ - (lambda (_e250618251301_ - _hd250617251304_ - _tl250616251306_ - _e250621251309_ - _hd250620251312_ - _tl250619251314_ - _e250624251317_ - _hd250623251320_ - _tl250622251322_ - _e250627251325_ - _hd250626251328_ - _tl250625251330_ - ___splice261510261511_ - _target250628251333_ - _tl250630251335_) - (letrec ((_loop250631251338_ - (lambda (_hd250629251341_ - _id250635251343_) + (___match261501261502_ + (lambda (_e250548251231_ + _hd250547251234_ + _tl250546251236_ + _e250551251239_ + _hd250550251242_ + _tl250549251244_ + _e250554251247_ + _hd250553251250_ + _tl250552251252_ + _e250557251255_ + _hd250556251258_ + _tl250555251260_ + ___splice261440261441_ + _target250558251263_ + _tl250560251265_) + (letrec ((_loop250561251268_ + (lambda (_hd250559251271_ + _id250565251273_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd250629251341_)) - (let ((_e250632251346_ + _hd250559251271_)) + (let ((_e250562251276_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd250629251341_)))) - (let ((_lp-tl250634251351_ + (gx#stx-e _hd250559251271_)))) + (let ((_lp-tl250564251281_ (let () (declare (not safe)) - (##cdr _e250632251346_))) - (_lp-hd250633251349_ + (##cdr _e250562251276_))) + (_lp-hd250563251279_ (let () (declare (not safe)) - (##car _e250632251346_)))) + (##car _e250562251276_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd250633251349_)) - (let ((_e250639251354_ + (gx#stx-pair? _lp-hd250563251279_)) + (let ((_e250569251284_ (let () (declare (not safe)) - (gx#stx-e _lp-hd250633251349_)))) - (let ((_tl250637251359_ + (gx#stx-e _lp-hd250563251279_)))) + (let ((_tl250567251289_ (let () (declare (not safe)) - (##cdr _e250639251354_))) - (_hd250638251357_ + (##cdr _e250569251284_))) + (_hd250568251287_ (let () (declare (not safe)) - (##car _e250639251354_)))) + (##car _e250569251284_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd250638251357_)) + (gx#identifier? _hd250568251287_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd250638251357_)) + (gx#stx-eq? '%#ref _hd250568251287_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250637251359_)) - (let ((_e250642251362_ + (gx#stx-pair? _tl250567251289_)) + (let ((_e250572251292_ (let () (declare (not safe)) (gx#stx-e - _tl250637251359_)))) - (let ((_tl250640251367_ + _tl250567251289_)))) + (let ((_tl250570251297_ (let () (declare (not safe)) - (##cdr _e250642251362_))) - (_hd250641251365_ + (##cdr _e250572251292_))) + (_hd250571251295_ (let () (declare (not safe)) - (##car _e250642251362_)))) + (##car _e250572251292_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl250640251367_)) - (let ((__tmp263601 + _tl250570251297_)) + (let ((__tmp263531 (let () (declare (not safe)) - (cons _hd250641251365_ + (cons _hd250571251295_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id250635251343_)))) + _id250565251273_)))) (declare (not safe)) - (_loop250631251338_ _lp-tl250634251351_ __tmp263601)) + (_loop250561251268_ _lp-tl250564251281_ __tmp263531)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261528261529_)))) - (___kont261528261529_)) - (___kont261528261529_)) - (___kont261528261529_)))) - (___kont261528261529_)))) - (let ((_id250636251370_ (reverse _id250635251343_))) - (___kont261508261509_ - _id250636251370_ - _hd250626251328_)))))) + (___kont261458261459_)))) + (___kont261458261459_)) + (___kont261458261459_)) + (___kont261458261459_)))) + (___kont261458261459_)))) + (let ((_id250566251300_ (reverse _id250565251273_))) + (___kont261438261439_ + _id250566251300_ + _hd250556251258_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop250631251338_ - _target250628251333_ + (_loop250561251268_ + _target250558251263_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx261506261507_)) - (let ((_e250618251301_ + (gx#stx-pair? ___stx261436261437_)) + (let ((_e250548251231_ (let () (declare (not safe)) (gx#stx-e - ___stx261506261507_)))) - (let ((_tl250616251306_ + ___stx261436261437_)))) + (let ((_tl250546251236_ (let () (declare (not safe)) - (##cdr _e250618251301_))) - (_hd250617251304_ + (##cdr _e250548251231_))) + (_hd250547251234_ (let () (declare (not safe)) - (##car _e250618251301_)))) + (##car _e250548251231_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd250617251304_)) + _hd250547251234_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd250617251304_)) + _hd250547251234_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl250616251306_)) - (let ((_e250621251309_ + _tl250546251236_)) + (let ((_e250551251239_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl250616251306_)))) - (let ((_tl250619251314_ - (let () (declare (not safe)) (##cdr _e250621251309_))) - (_hd250620251312_ + (gx#stx-e _tl250546251236_)))) + (let ((_tl250549251244_ + (let () (declare (not safe)) (##cdr _e250551251239_))) + (_hd250550251242_ (let () (declare (not safe)) - (##car _e250621251309_)))) + (##car _e250551251239_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250620251312_)) - (let ((_e250624251317_ + (gx#stx-pair? _hd250550251242_)) + (let ((_e250554251247_ (let () (declare (not safe)) - (gx#stx-e _hd250620251312_)))) - (let ((_tl250622251322_ + (gx#stx-e _hd250550251242_)))) + (let ((_tl250552251252_ (let () (declare (not safe)) - (##cdr _e250624251317_))) - (_hd250623251320_ + (##cdr _e250554251247_))) + (_hd250553251250_ (let () (declare (not safe)) - (##car _e250624251317_)))) + (##car _e250554251247_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd250623251320_)) + (gx#identifier? _hd250553251250_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd250623251320_)) + (gx#stx-eq? '%#ref _hd250553251250_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250622251322_)) - (let ((_e250627251325_ + (gx#stx-pair? _tl250552251252_)) + (let ((_e250557251255_ (let () (declare (not safe)) - (gx#stx-e _tl250622251322_)))) - (let ((_tl250625251330_ + (gx#stx-e _tl250552251252_)))) + (let ((_tl250555251260_ (let () (declare (not safe)) - (##cdr _e250627251325_))) - (_hd250626251328_ + (##cdr _e250557251255_))) + (_hd250556251258_ (let () (declare (not safe)) - (##car _e250627251325_)))) + (##car _e250557251255_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl250625251330_)) + _tl250555251260_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl250619251314_)) - (let ((___splice261510261511_ + _tl250549251244_)) + (let ((___splice261440261441_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl250619251314_ + _tl250549251244_ '0)))) - (let ((_tl250630251335_ + (let ((_tl250560251265_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice261510261511_ '1))) - (_target250628251333_ + (##vector-ref ___splice261440261441_ '1))) + (_target250558251263_ (let () (declare (not safe)) - (##vector-ref ___splice261510261511_ '0)))) + (##vector-ref ___splice261440261441_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250630251335_)) - (___match261571261572_ - _e250618251301_ - _hd250617251304_ - _tl250616251306_ - _e250621251309_ - _hd250620251312_ - _tl250619251314_ - _e250624251317_ - _hd250623251320_ - _tl250622251322_ - _e250627251325_ - _hd250626251328_ - _tl250625251330_ - ___splice261510261511_ - _target250628251333_ - _tl250630251335_) - (___kont261528261529_)))) + (gx#stx-null? _tl250560251265_)) + (___match261501261502_ + _e250548251231_ + _hd250547251234_ + _tl250546251236_ + _e250551251239_ + _hd250550251242_ + _tl250549251244_ + _e250554251247_ + _hd250553251250_ + _tl250552251252_ + _e250557251255_ + _hd250556251258_ + _tl250555251260_ + ___splice261440261441_ + _target250558251263_ + _tl250560251265_) + (___kont261458261459_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261528261529_)) - (___kont261528261529_)))) - (___kont261528261529_)) - (___kont261528261529_)) - (___kont261528261529_)))) - (___kont261528261529_)))) - (___kont261528261529_)) + (___kont261458261459_)) + (___kont261458261459_)))) + (___kont261458261459_)) + (___kont261458261459_)) + (___kont261458261459_)))) + (___kont261458261459_)))) + (___kont261458261459_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd250617251304_)) + _hd250547251234_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl250616251306_)) - (let ((_e250651251247_ + _tl250546251236_)) + (let ((_e250581251177_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl250616251306_)))) - (let ((_tl250649251252_ + (gx#stx-e _tl250546251236_)))) + (let ((_tl250579251182_ (let () (declare (not safe)) - (##cdr _e250651251247_))) - (_hd250650251250_ + (##cdr _e250581251177_))) + (_hd250580251180_ (let () (declare (not safe)) - (##car _e250651251247_)))) + (##car _e250581251177_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250649251252_)) - (let ((_e250654251255_ + (gx#stx-pair? _tl250579251182_)) + (let ((_e250584251185_ (let () (declare (not safe)) - (gx#stx-e _tl250649251252_)))) - (let ((_tl250652251260_ + (gx#stx-e _tl250579251182_)))) + (let ((_tl250582251190_ (let () (declare (not safe)) - (##cdr _e250654251255_))) - (_hd250653251258_ + (##cdr _e250584251185_))) + (_hd250583251188_ (let () (declare (not safe)) - (##car _e250654251255_)))) + (##car _e250584251185_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250652251260_)) - (let ((_e250657251263_ + (gx#stx-pair? _tl250582251190_)) + (let ((_e250587251193_ (let () (declare (not safe)) - (gx#stx-e _tl250652251260_)))) - (let ((_tl250655251268_ + (gx#stx-e _tl250582251190_)))) + (let ((_tl250585251198_ (let () (declare (not safe)) - (##cdr _e250657251263_))) - (_hd250656251266_ + (##cdr _e250587251193_))) + (_hd250586251196_ (let () (declare (not safe)) - (##car _e250657251263_)))) + (##car _e250587251193_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250655251268_)) - (___kont261512261513_ - _hd250656251266_ - _hd250653251258_ - _hd250650251250_) - (___kont261528261529_)))) - (___kont261528261529_)))) - (___kont261528261529_)))) - (___kont261528261529_)) + (gx#stx-null? _tl250585251198_)) + (___kont261442261443_ + _hd250586251196_ + _hd250583251188_ + _hd250580251180_) + (___kont261458261459_)))) + (___kont261458261459_)))) + (___kont261458261459_)))) + (___kont261458261459_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd250617251304_)) + (gx#stx-eq? '%#let-values _hd250547251234_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250616251306_)) - (let ((_e250666251117_ + (gx#stx-pair? _tl250546251236_)) + (let ((_e250596251047_ (let () (declare (not safe)) - (gx#stx-e _tl250616251306_)))) - (let ((_tl250664251122_ + (gx#stx-e _tl250546251236_)))) + (let ((_tl250594251052_ (let () (declare (not safe)) - (##cdr _e250666251117_))) - (_hd250665251120_ + (##cdr _e250596251047_))) + (_hd250595251050_ (let () (declare (not safe)) - (##car _e250666251117_)))) + (##car _e250596251047_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd250665251120_)) - (let ((___splice261516261517_ + (gx#stx-pair/null? _hd250595251050_)) + (let ((___splice261446261447_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd250665251120_ + _hd250595251050_ '0)))) - (let ((_tl250669251127_ + (let ((_tl250599251057_ (let () (declare (not safe)) (##vector-ref - ___splice261516261517_ + ___splice261446261447_ '1))) - (_target250667251125_ + (_target250597251055_ (let () (declare (not safe)) (##vector-ref - ___splice261516261517_ + ___splice261446261447_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250669251127_)) - (___match261625261626_ - _e250618251301_ - _hd250617251304_ - _tl250616251306_ - _e250666251117_ - _hd250665251120_ - _tl250664251122_ - ___splice261516261517_ - _target250667251125_ - _tl250669251127_) - (___kont261528261529_)))) - (___kont261528261529_)))) - (___kont261528261529_)) + (gx#stx-null? _tl250599251057_)) + (___match261555261556_ + _e250548251231_ + _hd250547251234_ + _tl250546251236_ + _e250596251047_ + _hd250595251050_ + _tl250594251052_ + ___splice261446261447_ + _target250597251055_ + _tl250599251057_) + (___kont261458261459_)))) + (___kont261458261459_)))) + (___kont261458261459_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _hd250617251304_)) + (gx#stx-eq? '%#letrec-values _hd250547251234_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250616251306_)) - (let ((_e250738250805_ + (gx#stx-pair? _tl250546251236_)) + (let ((_e250668250735_ (let () (declare (not safe)) - (gx#stx-e _tl250616251306_)))) - (let ((_tl250736250810_ + (gx#stx-e _tl250546251236_)))) + (let ((_tl250666250740_ (let () (declare (not safe)) - (##cdr _e250738250805_))) - (_hd250737250808_ + (##cdr _e250668250735_))) + (_hd250667250738_ (let () (declare (not safe)) - (##car _e250738250805_)))) + (##car _e250668250735_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250737250808_)) - (let ((_e250741250813_ + (gx#stx-pair? _hd250667250738_)) + (let ((_e250671250743_ (let () (declare (not safe)) - (gx#stx-e _hd250737250808_)))) - (let ((_tl250739250818_ + (gx#stx-e _hd250667250738_)))) + (let ((_tl250669250748_ (let () (declare (not safe)) - (##cdr _e250741250813_))) - (_hd250740250816_ + (##cdr _e250671250743_))) + (_hd250670250746_ (let () (declare (not safe)) - (##car _e250741250813_)))) + (##car _e250671250743_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250740250816_)) - (let ((_e250744250821_ + (gx#stx-pair? _hd250670250746_)) + (let ((_e250674250751_ (let () (declare (not safe)) (gx#stx-e - _hd250740250816_)))) - (let ((_tl250742250826_ + _hd250670250746_)))) + (let ((_tl250672250756_ (let () (declare (not safe)) - (##cdr _e250744250821_))) - (_hd250743250824_ + (##cdr _e250674250751_))) + (_hd250673250754_ (let () (declare (not safe)) - (##car _e250744250821_)))) + (##car _e250674250751_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd250743250824_)) - (let ((_e250747250829_ + _hd250673250754_)) + (let ((_e250677250759_ (let () (declare (not safe)) (gx#stx-e - _hd250743250824_)))) - (let ((_tl250745250834_ + _hd250673250754_)))) + (let ((_tl250675250764_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e250747250829_))) - (_hd250746250832_ - (let () (declare (not safe)) (##car _e250747250829_)))) + (##cdr _e250677250759_))) + (_hd250676250762_ + (let () (declare (not safe)) (##car _e250677250759_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250745250834_)) + (gx#stx-null? _tl250675250764_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250742250826_)) - (let ((_e250750250837_ + (gx#stx-pair? _tl250672250756_)) + (let ((_e250680250767_ (let () (declare (not safe)) - (gx#stx-e _tl250742250826_)))) - (let ((_tl250748250842_ + (gx#stx-e _tl250672250756_)))) + (let ((_tl250678250772_ (let () (declare (not safe)) - (##cdr _e250750250837_))) - (_hd250749250840_ + (##cdr _e250680250767_))) + (_hd250679250770_ (let () (declare (not safe)) - (##car _e250750250837_)))) + (##car _e250680250767_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250749250840_)) - (let ((_e250753250845_ + (gx#stx-pair? _hd250679250770_)) + (let ((_e250683250775_ (let () (declare (not safe)) - (gx#stx-e _hd250749250840_)))) - (let ((_tl250751250850_ + (gx#stx-e _hd250679250770_)))) + (let ((_tl250681250780_ (let () (declare (not safe)) - (##cdr _e250753250845_))) - (_hd250752250848_ + (##cdr _e250683250775_))) + (_hd250682250778_ (let () (declare (not safe)) - (##car _e250753250845_)))) + (##car _e250683250775_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd250752250848_)) + (gx#identifier? _hd250682250778_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd250752250848_)) + _hd250682250778_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl250751250850_)) - (let ((_e250756250853_ + _tl250681250780_)) + (let ((_e250686250783_ (let () (declare (not safe)) (gx#stx-e - _tl250751250850_)))) - (let ((_tl250754250858_ + _tl250681250780_)))) + (let ((_tl250684250788_ (let () (declare (not safe)) - (##cdr _e250756250853_))) - (_hd250755250856_ + (##cdr _e250686250783_))) + (_hd250685250786_ (let () (declare (not safe)) - (##car _e250756250853_)))) + (##car _e250686250783_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd250755250856_)) - (let ((___splice261524261525_ + _hd250685250786_)) + (let ((___splice261454261455_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _hd250755250856_ '0)))) - (let ((_tl250759250863_ + (gx#syntax-split-splice _hd250685250786_ '0)))) + (let ((_tl250689250793_ (let () (declare (not safe)) - (##vector-ref ___splice261524261525_ '1))) - (_target250757250861_ + (##vector-ref ___splice261454261455_ '1))) + (_target250687250791_ (let () (declare (not safe)) - (##vector-ref ___splice261524261525_ '0)))) + (##vector-ref ___splice261454261455_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250759250863_)) - (___match261715261716_ - _e250618251301_ - _hd250617251304_ - _tl250616251306_ - _e250738250805_ - _hd250737250808_ - _tl250736250810_ - _e250741250813_ - _hd250740250816_ - _tl250739250818_ - _e250744250821_ - _hd250743250824_ - _tl250742250826_ - _e250747250829_ - _hd250746250832_ - _tl250745250834_ - _e250750250837_ - _hd250749250840_ - _tl250748250842_ - _e250753250845_ - _hd250752250848_ - _tl250751250850_ - _e250756250853_ - _hd250755250856_ - _tl250754250858_ - ___splice261524261525_ - _target250757250861_ - _tl250759250863_) - (___kont261528261529_)))) - (___kont261528261529_)))) + (gx#stx-null? _tl250689250793_)) + (___match261645261646_ + _e250548251231_ + _hd250547251234_ + _tl250546251236_ + _e250668250735_ + _hd250667250738_ + _tl250666250740_ + _e250671250743_ + _hd250670250746_ + _tl250669250748_ + _e250674250751_ + _hd250673250754_ + _tl250672250756_ + _e250677250759_ + _hd250676250762_ + _tl250675250764_ + _e250680250767_ + _hd250679250770_ + _tl250678250772_ + _e250683250775_ + _hd250682250778_ + _tl250681250780_ + _e250686250783_ + _hd250685250786_ + _tl250684250788_ + ___splice261454261455_ + _target250687250791_ + _tl250689250793_) + (___kont261458261459_)))) + (___kont261458261459_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261528261529_)) - (___kont261528261529_)) - (___kont261528261529_)))) - (___kont261528261529_)))) - (___kont261528261529_)) - (___kont261528261529_)))) + (___kont261458261459_)) + (___kont261458261459_)) + (___kont261458261459_)))) + (___kont261458261459_)))) + (___kont261458261459_)) + (___kont261458261459_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261528261529_)))) - (___kont261528261529_)))) - (___kont261528261529_)))) - (___kont261528261529_)) - (___kont261528261529_))))) + (___kont261458261459_)))) + (___kont261458261459_)))) + (___kont261458261459_)))) + (___kont261458261459_)) + (___kont261458261459_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261528261529_)))) - (___kont261528261529_)))))))) + (___kont261458261459_)))) + (___kont261458261459_)))))))) (declare (not safe)) - (_do-assert248532_ __tmp263602 __tmp263560)))) - (_optimize-f__0__260193260194_ - (lambda (_expr251510_) - (let ((_test251512_ '#f)) + (_do-assert248462_ __tmp263532 __tmp263490)))) + (_optimize-f__0__260123260124_ + (lambda (_expr251440_) + (let ((_test251442_ '#f)) (declare (not safe)) - (_optimize-f__260191260192_ - _expr251510_ - _test251512_)))) - (_optimize-f248545_ - (lambda _g263605_ - (let ((_g263604_ + (_optimize-f__260121260122_ + _expr251440_ + _test251442_)))) + (_optimize-f248475_ + (lambda _g263535_ + (let ((_g263534_ (let () (declare (not safe)) - (##length _g263605_)))) - (cond ((let () (declare (not safe)) (##fx= _g263604_ 1)) - (apply (lambda (_expr251510_) + (##length _g263535_)))) + (cond ((let () (declare (not safe)) (##fx= _g263534_ 1)) + (apply (lambda (_expr251440_) (let () (declare (not safe)) - (_optimize-f__0__260193260194_ - _expr251510_))) - _g263605_)) - ((let () (declare (not safe)) (##fx= _g263604_ 2)) - (apply (lambda (_expr251514_ _test251515_) + (_optimize-f__0__260123260124_ + _expr251440_))) + _g263535_)) + ((let () (declare (not safe)) (##fx= _g263534_ 2)) + (apply (lambda (_expr251444_ _test251445_) (let () (declare (not safe)) - (_optimize-f__260191260192_ - _expr251514_ - _test251515_))) - _g263605_)) + (_optimize-f__260121260122_ + _expr251444_ + _test251445_))) + _g263535_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g263605_)))))) - (_assert-e248546_ - (lambda (_expr249544_) - (let* ((_sexpr249546_ + _g263535_)))))) + (_assert-e248476_ + (lambda (_expr249474_) + (let* ((_sexpr249476_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _expr249544_))) - (_$e249548_ - (assoc _sexpr249546_ _env-assert248528_))) - (if _$e249548_ - (cdr _$e249548_) - (let _assert249551_ ((_expr249553_ _expr249544_)) - (let* ((___stx261812261813_ _expr249553_) - (_g249561249740_ + (gxc#apply-generate-runtime-repr _expr249474_))) + (_$e249478_ + (assoc _sexpr249476_ _env-assert248458_))) + (if _$e249478_ + (cdr _$e249478_) + (let _assert249481_ ((_expr249483_ _expr249474_)) + (let* ((___stx261742261743_ _expr249483_) + (_g249491249670_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx261812261813_))))) - (let ((___kont261814261815_ - (lambda (_L250571_ _L250572_) - (let ((_$e250594_ + ___stx261742261743_))))) + (let ((___kont261744261745_ + (lambda (_L250501_ _L250502_) + (let ((_$e250524_ (let () (declare (not safe)) - (_predicate-type248533_ - _L250572_)))) - (if _$e250594_ - ((lambda (_t250597_) + (_predicate-type248463_ + _L250502_)))) + (if _$e250524_ + ((lambda (_t250527_) (let () (declare (not safe)) - (_assert-type248547_ - _L250571_ - _t250597_))) - _$e250594_) + (_assert-type248477_ + _L250501_ + _t250527_))) + _$e250524_) '#!void)))) - (___kont261816261817_ - (lambda (_L250264_ _L250265_ _L250266_) - (let ((_$e250291_ + (___kont261746261747_ + (lambda (_L250194_ _L250195_ _L250196_) + (let ((_$e250221_ (let () (declare (not safe)) (gxc#identifier-symbol - _L250266_)))) + _L250196_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e250291_)) + (eq? '##fx= _$e250221_)) (let () (declare (not safe)) - (eq? 'fx= _$e250291_))) - (let* ((___stx261718261719_ - _L250265_) - (_g250298250327_ + (eq? 'fx= _$e250221_))) + (let* ((___stx261648261649_ + _L250195_) + (_g250228250257_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx261718261719_))))) - (let ((___kont261720261721_ - (lambda (_L250395_ - _L250396_) - (let ((_$e250421_ + ___stx261648261649_))))) + (let ((___kont261650261651_ + (lambda (_L250325_ + _L250326_) + (let ((_$e250351_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_countf-symbol248535_ _L250396_)))) - (if _$e250421_ - ((lambda (_sym250424_) - (let ((__tmp263608 + (_countf-symbol248465_ _L250326_)))) + (if _$e250351_ + ((lambda (_sym250354_) + (let ((__tmp263538 (let () (declare (not safe)) - (gx#stx-e _L250264_)))) + (gx#stx-e _L250194_)))) (declare (not safe)) - (_assert-count248548_ - _L250395_ - _sym250424_ - __tmp263608))) - _$e250421_) + (_assert-count248478_ + _L250325_ + _sym250354_ + __tmp263538))) + _$e250351_) '#!void)))) - (___kont261722261723_ (lambda () '#!void))) + (___kont261652261653_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx261718261719_)) - (let ((_e250304250339_ + ___stx261648261649_)) + (let ((_e250234250269_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx261718261719_)))) - (let ((_tl250302250344_ - (let () (declare (not safe)) (##cdr _e250304250339_))) - (_hd250303250342_ - (let () (declare (not safe)) (##car _e250304250339_)))) + (gx#stx-e ___stx261648261649_)))) + (let ((_tl250232250274_ + (let () (declare (not safe)) (##cdr _e250234250269_))) + (_hd250233250272_ + (let () (declare (not safe)) (##car _e250234250269_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd250303250342_)) + (gx#identifier? _hd250233250272_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd250303250342_)) + (gx#stx-eq? '%#call _hd250233250272_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250302250344_)) - (let ((_e250307250347_ + (gx#stx-pair? _tl250232250274_)) + (let ((_e250237250277_ (let () (declare (not safe)) - (gx#stx-e _tl250302250344_)))) - (let ((_tl250305250352_ + (gx#stx-e _tl250232250274_)))) + (let ((_tl250235250282_ (let () (declare (not safe)) - (##cdr _e250307250347_))) - (_hd250306250350_ + (##cdr _e250237250277_))) + (_hd250236250280_ (let () (declare (not safe)) - (##car _e250307250347_)))) + (##car _e250237250277_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250306250350_)) - (let ((_e250310250355_ + (gx#stx-pair? _hd250236250280_)) + (let ((_e250240250285_ (let () (declare (not safe)) - (gx#stx-e _hd250306250350_)))) - (let ((_tl250308250360_ + (gx#stx-e _hd250236250280_)))) + (let ((_tl250238250290_ (let () (declare (not safe)) - (##cdr _e250310250355_))) - (_hd250309250358_ + (##cdr _e250240250285_))) + (_hd250239250288_ (let () (declare (not safe)) - (##car _e250310250355_)))) + (##car _e250240250285_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd250309250358_)) + _hd250239250288_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd250309250358_)) + _hd250239250288_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl250308250360_)) - (let ((_e250313250363_ + _tl250238250290_)) + (let ((_e250243250293_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl250308250360_)))) - (let ((_tl250311250368_ - (let () (declare (not safe)) (##cdr _e250313250363_))) - (_hd250312250366_ - (let () (declare (not safe)) (##car _e250313250363_)))) + (gx#stx-e _tl250238250290_)))) + (let ((_tl250241250298_ + (let () (declare (not safe)) (##cdr _e250243250293_))) + (_hd250242250296_ + (let () (declare (not safe)) (##car _e250243250293_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250311250368_)) + (gx#stx-null? _tl250241250298_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250305250352_)) - (let ((_e250316250371_ + (gx#stx-pair? _tl250235250282_)) + (let ((_e250246250301_ (let () (declare (not safe)) - (gx#stx-e _tl250305250352_)))) - (let ((_tl250314250376_ + (gx#stx-e _tl250235250282_)))) + (let ((_tl250244250306_ (let () (declare (not safe)) - (##cdr _e250316250371_))) - (_hd250315250374_ + (##cdr _e250246250301_))) + (_hd250245250304_ (let () (declare (not safe)) - (##car _e250316250371_)))) + (##car _e250246250301_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250315250374_)) - (let ((_e250319250379_ + (gx#stx-pair? _hd250245250304_)) + (let ((_e250249250309_ (let () (declare (not safe)) - (gx#stx-e _hd250315250374_)))) - (let ((_tl250317250384_ + (gx#stx-e _hd250245250304_)))) + (let ((_tl250247250314_ (let () (declare (not safe)) - (##cdr _e250319250379_))) - (_hd250318250382_ + (##cdr _e250249250309_))) + (_hd250248250312_ (let () (declare (not safe)) - (##car _e250319250379_)))) + (##car _e250249250309_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd250318250382_)) + (gx#identifier? _hd250248250312_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd250318250382_)) + _hd250248250312_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl250317250384_)) - (let ((_e250322250387_ + _tl250247250314_)) + (let ((_e250252250317_ (let () (declare (not safe)) (gx#stx-e - _tl250317250384_)))) - (let ((_tl250320250392_ + _tl250247250314_)))) + (let ((_tl250250250322_ (let () (declare (not safe)) - (##cdr _e250322250387_))) - (_hd250321250390_ + (##cdr _e250252250317_))) + (_hd250251250320_ (let () (declare (not safe)) - (##car _e250322250387_)))) + (##car _e250252250317_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl250320250392_)) + _tl250250250322_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl250314250376_)) - (___kont261720261721_ _hd250321250390_ _hd250312250366_) - (___kont261722261723_)) - (___kont261722261723_)))) + (gx#stx-null? _tl250244250306_)) + (___kont261650261651_ _hd250251250320_ _hd250242250296_) + (___kont261652261653_)) + (___kont261652261653_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261722261723_)) - (___kont261722261723_)) - (___kont261722261723_)))) - (___kont261722261723_)))) - (___kont261722261723_)) - (___kont261722261723_)))) - (___kont261722261723_)) + (___kont261652261653_)) + (___kont261652261653_)) + (___kont261652261653_)))) + (___kont261652261653_)))) + (___kont261652261653_)) + (___kont261652261653_)))) + (___kont261652261653_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261722261723_)) - (___kont261722261723_)))) - (___kont261722261723_)))) - (___kont261722261723_)) - (___kont261722261723_)) - (___kont261722261723_)))) - (___kont261722261723_)))) + (___kont261652261653_)) + (___kont261652261653_)))) + (___kont261652261653_)))) + (___kont261652261653_)) + (___kont261652261653_)) + (___kont261652261653_)))) + (___kont261652261653_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (or (let () (declare (not safe)) (eq? '##eq? - _$e250291_)) + _$e250221_)) (let () (declare (not safe)) - (eq? 'eq? _$e250291_)) + (eq? 'eq? _$e250221_)) (let () (declare (not safe)) (eq? '##eqv? - _$e250291_)) + _$e250221_)) (let () (declare (not safe)) - (eq? 'eqv? _$e250291_)) + (eq? 'eqv? _$e250221_)) (let () (declare (not safe)) (eq? '##equal? - _$e250291_)) + _$e250221_)) (let () (declare (not safe)) (eq? 'equal? - _$e250291_)) + _$e250221_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e250291_)) + _$e250221_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e250291_))) - ((lambda (_sym250450_) - (let* ((___stx261786261787_ - _L250265_) - (_g250453250466_ + _$e250221_))) + ((lambda (_sym250380_) + (let* ((___stx261716261717_ + _L250195_) + (_g250383250396_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -9709,1465 +9709,1465 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx261786261787_))))) - (let ((___kont261788261789_ - (lambda (_L250494_) - (let ((__tmp263607 + ___stx261716261717_))))) + (let ((___kont261718261719_ + (lambda (_L250424_) + (let ((__tmp263537 (let () (declare (not safe)) - (_eqf-symbol248536_ _sym250450_))) - (__tmp263606 + (_eqf-symbol248466_ _sym250380_))) + (__tmp263536 (let () (declare (not safe)) - (gx#stx-e _L250264_)))) + (gx#stx-e _L250194_)))) (declare (not safe)) - (_assert-eqf248549_ - _L250494_ - __tmp263607 - __tmp263606)))) - (___kont261790261791_ (lambda () '#!void))) + (_assert-eqf248479_ + _L250424_ + __tmp263537 + __tmp263536)))) + (___kont261720261721_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx261786261787_)) - (let ((_e250458250478_ + (gx#stx-pair? ___stx261716261717_)) + (let ((_e250388250408_ (let () (declare (not safe)) - (gx#stx-e ___stx261786261787_)))) - (let ((_tl250456250483_ + (gx#stx-e ___stx261716261717_)))) + (let ((_tl250386250413_ (let () (declare (not safe)) - (##cdr _e250458250478_))) - (_hd250457250481_ + (##cdr _e250388250408_))) + (_hd250387250411_ (let () (declare (not safe)) - (##car _e250458250478_)))) + (##car _e250388250408_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd250457250481_)) + (gx#identifier? _hd250387250411_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd250457250481_)) + (gx#stx-eq? '%#ref _hd250387250411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250456250483_)) - (let ((_e250461250486_ + (gx#stx-pair? _tl250386250413_)) + (let ((_e250391250416_ (let () (declare (not safe)) - (gx#stx-e _tl250456250483_)))) - (let ((_tl250459250491_ + (gx#stx-e _tl250386250413_)))) + (let ((_tl250389250421_ (let () (declare (not safe)) - (##cdr _e250461250486_))) - (_hd250460250489_ + (##cdr _e250391250416_))) + (_hd250390250419_ (let () (declare (not safe)) - (##car _e250461250486_)))) + (##car _e250391250416_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250459250491_)) - (___kont261788261789_ - _hd250460250489_) - (___kont261790261791_)))) - (___kont261790261791_)) - (___kont261790261791_)) - (___kont261790261791_)))) - (___kont261790261791_))))) + (gx#stx-null? _tl250389250421_)) + (___kont261718261719_ + _hd250390250419_) + (___kont261720261721_)))) + (___kont261720261721_)) + (___kont261720261721_)) + (___kont261720261721_)))) + (___kont261720261721_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e250291_) + _$e250221_) '#!void))))) - (___kont261818261819_ - (lambda (_L250168_ _L250169_ _L250170_) - (let ((__tmp263609 - (let ((__tmp263619 + (___kont261748261749_ + (lambda (_L250098_ _L250099_ _L250100_) + (let ((__tmp263539 + (let ((__tmp263549 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp263610 - (let ((__tmp263616 - (let ((__tmp263618 + (__tmp263540 + (let ((__tmp263546 + (let ((__tmp263548 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263617 + (__tmp263547 (let () (declare (not safe)) - (cons _L250170_ '())))) + (cons _L250100_ '())))) (declare (not safe)) - (cons __tmp263618 __tmp263617))) - (__tmp263611 - (let ((__tmp263612 - (let ((__tmp263613 - (let ((__tmp263615 + (cons __tmp263548 __tmp263547))) + (__tmp263541 + (let ((__tmp263542 + (let ((__tmp263543 + (let ((__tmp263545 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp263614 + (__tmp263544 (let () (declare (not safe)) - (cons _L250169_ '())))) + (cons _L250099_ '())))) (declare (not safe)) - (cons __tmp263615 __tmp263614)))) + (cons __tmp263545 __tmp263544)))) (declare (not safe)) - (cons __tmp263613 '())))) + (cons __tmp263543 '())))) (declare (not safe)) - (cons _L250168_ __tmp263612)))) + (cons _L250098_ __tmp263542)))) (declare (not safe)) - (cons __tmp263616 __tmp263611)))) + (cons __tmp263546 __tmp263541)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263619 - __tmp263610)))) + (cons __tmp263549 + __tmp263540)))) (declare (not safe)) - (_assert249551_ __tmp263609)))) - (___kont261820261821_ - (lambda (_L250060_ _L250061_ _L250062_) - (let ((_$e250091_ + (_assert249481_ __tmp263539)))) + (___kont261750261751_ + (lambda (_L249990_ _L249991_ _L249992_) + (let ((_$e250021_ (let () (declare (not safe)) (gxc#identifier-symbol - _L250062_)))) + _L249992_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e250091_)) + _$e250021_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e250091_))) - ((lambda (_sym250097_) - (let ((__tmp263620 + _$e250021_))) + ((lambda (_sym250027_) + (let ((__tmp263550 (let () (declare (not safe)) - (_eqf-symbol248536_ - _sym250097_)))) + (_eqf-symbol248466_ + _sym250027_)))) (declare (not safe)) - (_assert-eqf248549_ - _L250061_ - __tmp263620 - _L250060_))) - _$e250091_) + (_assert-eqf248479_ + _L249991_ + __tmp263550 + _L249990_))) + _$e250021_) '#!void)))) - (___kont261822261823_ - (lambda (_L249944_ _L249945_ _L249946_) - (let ((__tmp263621 - (let ((__tmp263634 + (___kont261752261753_ + (lambda (_L249874_ _L249875_ _L249876_) + (let ((__tmp263551 + (let ((__tmp263564 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp263622 - (let ((__tmp263631 - (let ((__tmp263633 + (__tmp263552 + (let ((__tmp263561 + (let ((__tmp263563 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263632 + (__tmp263562 (let () (declare (not safe)) - (cons _L249946_ '())))) + (cons _L249876_ '())))) (declare (not safe)) - (cons __tmp263633 __tmp263632))) - (__tmp263623 - (let ((__tmp263628 - (let ((__tmp263630 + (cons __tmp263563 __tmp263562))) + (__tmp263553 + (let ((__tmp263558 + (let ((__tmp263560 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263629 + (__tmp263559 (let () (declare (not safe)) - (cons _L249944_ '())))) + (cons _L249874_ '())))) (declare (not safe)) - (cons __tmp263630 __tmp263629))) - (__tmp263624 - (let ((__tmp263625 - (let ((__tmp263627 + (cons __tmp263560 __tmp263559))) + (__tmp263554 + (let ((__tmp263555 + (let ((__tmp263557 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp263626 + (__tmp263556 (let () (declare (not safe)) - (cons _L249945_ '())))) + (cons _L249875_ '())))) (declare (not safe)) - (cons __tmp263627 __tmp263626)))) + (cons __tmp263557 __tmp263556)))) (declare (not safe)) - (cons __tmp263625 '())))) + (cons __tmp263555 '())))) (declare (not safe)) - (cons __tmp263628 __tmp263624)))) + (cons __tmp263558 __tmp263554)))) (declare (not safe)) - (cons __tmp263631 __tmp263623)))) + (cons __tmp263561 __tmp263553)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263634 - __tmp263622)))) + (cons __tmp263564 + __tmp263552)))) (declare (not safe)) - (_assert249551_ __tmp263621)))) - (___kont261824261825_ - (lambda (_L249824_ _L249825_ _L249826_) - (let ((__tmp263635 + (_assert249481_ __tmp263551)))) + (___kont261754261755_ + (lambda (_L249754_ _L249755_ _L249756_) + (let ((__tmp263565 (let () (declare (not safe)) (gxc#apply-expression-subst - _L249825_ - _L249826_ - _L249824_)))) + _L249755_ + _L249756_ + _L249754_)))) (declare (not safe)) - (_assert249551_ __tmp263635)))) - (___kont261826261827_ + (_assert249481_ __tmp263565)))) + (___kont261756261757_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx261812261813_)) - (let ((_e249567250515_ + (gx#stx-pair? ___stx261742261743_)) + (let ((_e249497250445_ (let () (declare (not safe)) - (gx#stx-e ___stx261812261813_)))) - (let ((_tl249565250520_ + (gx#stx-e ___stx261742261743_)))) + (let ((_tl249495250450_ (let () (declare (not safe)) - (##cdr _e249567250515_))) - (_hd249566250518_ + (##cdr _e249497250445_))) + (_hd249496250448_ (let () (declare (not safe)) - (##car _e249567250515_)))) + (##car _e249497250445_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd249566250518_)) + _hd249496250448_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd249566250518_)) + _hd249496250448_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249565250520_)) - (let ((_e249570250523_ + _tl249495250450_)) + (let ((_e249500250453_ (let () (declare (not safe)) (gx#stx-e - _tl249565250520_)))) - (let ((_tl249568250528_ + _tl249495250450_)))) + (let ((_tl249498250458_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e249570250523_))) - (_hd249569250526_ - (let () (declare (not safe)) (##car _e249570250523_)))) + (##cdr _e249500250453_))) + (_hd249499250456_ + (let () (declare (not safe)) (##car _e249500250453_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249569250526_)) - (let ((_e249573250531_ + (gx#stx-pair? _hd249499250456_)) + (let ((_e249503250461_ (let () (declare (not safe)) - (gx#stx-e _hd249569250526_)))) - (let ((_tl249571250536_ + (gx#stx-e _hd249499250456_)))) + (let ((_tl249501250466_ (let () (declare (not safe)) - (##cdr _e249573250531_))) - (_hd249572250534_ + (##cdr _e249503250461_))) + (_hd249502250464_ (let () (declare (not safe)) - (##car _e249573250531_)))) + (##car _e249503250461_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd249572250534_)) + (gx#identifier? _hd249502250464_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd249572250534_)) + (gx#stx-eq? '%#ref _hd249502250464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249571250536_)) - (let ((_e249576250539_ + (gx#stx-pair? _tl249501250466_)) + (let ((_e249506250469_ (let () (declare (not safe)) - (gx#stx-e _tl249571250536_)))) - (let ((_tl249574250544_ + (gx#stx-e _tl249501250466_)))) + (let ((_tl249504250474_ (let () (declare (not safe)) - (##cdr _e249576250539_))) - (_hd249575250542_ + (##cdr _e249506250469_))) + (_hd249505250472_ (let () (declare (not safe)) - (##car _e249576250539_)))) + (##car _e249506250469_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249574250544_)) + (gx#stx-null? _tl249504250474_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249568250528_)) - (let ((_e249579250547_ + _tl249498250458_)) + (let ((_e249509250477_ (let () (declare (not safe)) (gx#stx-e - _tl249568250528_)))) - (let ((_tl249577250552_ + _tl249498250458_)))) + (let ((_tl249507250482_ (let () (declare (not safe)) - (##cdr _e249579250547_))) - (_hd249578250550_ + (##cdr _e249509250477_))) + (_hd249508250480_ (let () (declare (not safe)) - (##car _e249579250547_)))) + (##car _e249509250477_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd249578250550_)) - (let ((_e249582250555_ + _hd249508250480_)) + (let ((_e249512250485_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd249578250550_)))) - (let ((_tl249580250560_ + (gx#stx-e _hd249508250480_)))) + (let ((_tl249510250490_ (let () (declare (not safe)) - (##cdr _e249582250555_))) - (_hd249581250558_ + (##cdr _e249512250485_))) + (_hd249511250488_ (let () (declare (not safe)) - (##car _e249582250555_)))) + (##car _e249512250485_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd249581250558_)) + (gx#identifier? _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd249581250558_)) + (gx#stx-eq? '%#ref _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249585250563_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249515250493_ (let () (declare (not safe)) - (gx#stx-e _tl249580250560_)))) - (let ((_tl249583250568_ + (gx#stx-e _tl249510250490_)))) + (let ((_tl249513250498_ (let () (declare (not safe)) - (##cdr _e249585250563_))) - (_hd249584250566_ + (##cdr _e249515250493_))) + (_hd249514250496_ (let () (declare (not safe)) - (##car _e249585250563_)))) + (##car _e249515250493_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249583250568_)) + (gx#stx-null? _tl249513250498_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249577250552_)) - (___kont261814261815_ - _hd249584250566_ - _hd249575250542_) + (gx#stx-null? _tl249507250482_)) + (___kont261744261745_ + _hd249514250496_ + _hd249505250472_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249577250552_)) - (let ((_e249606250240_ + _tl249507250482_)) + (let ((_e249536250170_ (let () (declare (not safe)) (gx#stx-e - _tl249577250552_)))) - (let ((_tl249604250245_ + _tl249507250482_)))) + (let ((_tl249534250175_ (let () (declare (not safe)) - (##cdr _e249606250240_))) - (_hd249605250243_ + (##cdr _e249536250170_))) + (_hd249535250173_ (let () (declare (not safe)) - (##car _e249606250240_)))) + (##car _e249536250170_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd249605250243_)) - (let ((_e249609250248_ + _hd249535250173_)) + (let ((_e249539250178_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd249605250243_)))) - (let ((_tl249607250253_ + (gx#stx-e _hd249535250173_)))) + (let ((_tl249537250183_ (let () (declare (not safe)) - (##cdr _e249609250248_))) - (_hd249608250251_ + (##cdr _e249539250178_))) + (_hd249538250181_ (let () (declare (not safe)) - (##car _e249609250248_)))) + (##car _e249539250178_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd249608250251_)) + (gx#identifier? _hd249538250181_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd249608250251_)) + (gx#stx-eq? '%#quote _hd249538250181_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249607250253_)) - (let ((_e249612250256_ + (gx#stx-pair? _tl249537250183_)) + (let ((_e249542250186_ (let () (declare (not safe)) - (gx#stx-e _tl249607250253_)))) - (let ((_tl249610250261_ + (gx#stx-e _tl249537250183_)))) + (let ((_tl249540250191_ (let () (declare (not safe)) - (##cdr _e249612250256_))) - (_hd249611250259_ + (##cdr _e249542250186_))) + (_hd249541250189_ (let () (declare (not safe)) - (##car _e249612250256_)))) + (##car _e249542250186_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249610250261_)) + (gx#stx-null? _tl249540250191_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249604250245_)) - (___kont261816261817_ - _hd249611250259_ - _hd249578250550_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) + (gx#stx-null? _tl249534250175_)) + (___kont261746261747_ + _hd249541250189_ + _hd249508250480_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd249608250251_)) + _hd249538250181_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249607250253_)) - (let ((_e249672250052_ + (gx#stx-pair? _tl249537250183_)) + (let ((_e249602249982_ (let () (declare (not safe)) - (gx#stx-e _tl249607250253_)))) - (let ((_tl249670250057_ + (gx#stx-e _tl249537250183_)))) + (let ((_tl249600249987_ (let () (declare (not safe)) - (##cdr _e249672250052_))) - (_hd249671250055_ + (##cdr _e249602249982_))) + (_hd249601249985_ (let () (declare (not safe)) - (##car _e249672250052_)))) + (##car _e249602249982_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249670250057_)) + (gx#stx-null? _tl249600249987_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl249604250245_)) - (___kont261820261821_ - _hd249671250055_ - _hd249584250566_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) - (___kont261826261827_))) - (___kont261826261827_)))) - (___kont261826261827_)))) + _tl249534250175_)) + (___kont261750261751_ + _hd249601249985_ + _hd249514250496_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) + (___kont261756261757_))) + (___kont261756261757_)))) + (___kont261756261757_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261826261827_))) + (___kont261756261757_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249577250552_)) - (let ((_e249606250240_ + (gx#stx-pair? _tl249507250482_)) + (let ((_e249536250170_ (let () (declare (not safe)) (gx#stx-e - _tl249577250552_)))) - (let ((_tl249604250245_ + _tl249507250482_)))) + (let ((_tl249534250175_ (let () (declare (not safe)) - (##cdr _e249606250240_))) - (_hd249605250243_ + (##cdr _e249536250170_))) + (_hd249535250173_ (let () (declare (not safe)) - (##car _e249606250240_)))) + (##car _e249536250170_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd249605250243_)) - (let ((_e249609250248_ + _hd249535250173_)) + (let ((_e249539250178_ (let () (declare (not safe)) (gx#stx-e - _hd249605250243_)))) - (let ((_tl249607250253_ + _hd249535250173_)))) + (let ((_tl249537250183_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e249609250248_))) - (_hd249608250251_ - (let () (declare (not safe)) (##car _e249609250248_)))) + (##cdr _e249539250178_))) + (_hd249538250181_ + (let () (declare (not safe)) (##car _e249539250178_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd249608250251_)) + (gx#identifier? _hd249538250181_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd249608250251_)) + (gx#stx-eq? '%#quote _hd249538250181_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249607250253_)) - (let ((_e249612250256_ + (gx#stx-pair? _tl249537250183_)) + (let ((_e249542250186_ (let () (declare (not safe)) - (gx#stx-e _tl249607250253_)))) - (let ((_tl249610250261_ + (gx#stx-e _tl249537250183_)))) + (let ((_tl249540250191_ (let () (declare (not safe)) - (##cdr _e249612250256_))) - (_hd249611250259_ + (##cdr _e249542250186_))) + (_hd249541250189_ (let () (declare (not safe)) - (##car _e249612250256_)))) + (##car _e249542250186_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249610250261_)) + (gx#stx-null? _tl249540250191_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249604250245_)) - (___kont261816261817_ - _hd249611250259_ - _hd249578250550_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) - (___kont261826261827_)) - (___kont261826261827_)))) + (gx#stx-null? _tl249534250175_)) + (___kont261746261747_ + _hd249541250189_ + _hd249508250480_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) + (___kont261756261757_)) + (___kont261756261757_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261826261827_)))) - (___kont261826261827_))))) + (___kont261756261757_)))) + (___kont261756261757_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249577250552_)) - (let ((_e249606250240_ + (gx#stx-pair? _tl249507250482_)) + (let ((_e249536250170_ (let () (declare (not safe)) - (gx#stx-e _tl249577250552_)))) - (let ((_tl249604250245_ + (gx#stx-e _tl249507250482_)))) + (let ((_tl249534250175_ (let () (declare (not safe)) - (##cdr _e249606250240_))) - (_hd249605250243_ + (##cdr _e249536250170_))) + (_hd249535250173_ (let () (declare (not safe)) - (##car _e249606250240_)))) + (##car _e249536250170_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249605250243_)) - (let ((_e249609250248_ + (gx#stx-pair? _hd249535250173_)) + (let ((_e249539250178_ (let () (declare (not safe)) (gx#stx-e - _hd249605250243_)))) - (let ((_tl249607250253_ + _hd249535250173_)))) + (let ((_tl249537250183_ (let () (declare (not safe)) - (##cdr _e249609250248_))) - (_hd249608250251_ + (##cdr _e249539250178_))) + (_hd249538250181_ (let () (declare (not safe)) - (##car _e249609250248_)))) + (##car _e249539250178_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd249608250251_)) + _hd249538250181_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd249608250251_)) + _hd249538250181_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl249607250253_)) - (let ((_e249612250256_ + (gx#stx-pair? _tl249537250183_)) + (let ((_e249542250186_ (let () (declare (not safe)) - (gx#stx-e _tl249607250253_)))) - (let ((_tl249610250261_ + (gx#stx-e _tl249537250183_)))) + (let ((_tl249540250191_ (let () (declare (not safe)) - (##cdr _e249612250256_))) - (_hd249611250259_ + (##cdr _e249542250186_))) + (_hd249541250189_ (let () (declare (not safe)) - (##car _e249612250256_)))) + (##car _e249542250186_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249610250261_)) + (gx#stx-null? _tl249540250191_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249604250245_)) - (___kont261816261817_ - _hd249611250259_ - _hd249578250550_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) - (___kont261826261827_)) + (gx#stx-null? _tl249534250175_)) + (___kont261746261747_ + _hd249541250189_ + _hd249508250480_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) + (___kont261756261757_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261826261827_)))) - (___kont261826261827_)))) - (___kont261826261827_))) + (___kont261756261757_)))) + (___kont261756261757_)))) + (___kont261756261757_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249577250552_)) - (let ((_e249606250240_ + (gx#stx-pair? _tl249507250482_)) + (let ((_e249536250170_ (let () (declare (not safe)) - (gx#stx-e _tl249577250552_)))) - (let ((_tl249604250245_ + (gx#stx-e _tl249507250482_)))) + (let ((_tl249534250175_ (let () (declare (not safe)) - (##cdr _e249606250240_))) - (_hd249605250243_ + (##cdr _e249536250170_))) + (_hd249535250173_ (let () (declare (not safe)) - (##car _e249606250240_)))) + (##car _e249536250170_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249605250243_)) - (let ((_e249609250248_ + (gx#stx-pair? _hd249535250173_)) + (let ((_e249539250178_ (let () (declare (not safe)) (gx#stx-e - _hd249605250243_)))) - (let ((_tl249607250253_ + _hd249535250173_)))) + (let ((_tl249537250183_ (let () (declare (not safe)) - (##cdr _e249609250248_))) - (_hd249608250251_ + (##cdr _e249539250178_))) + (_hd249538250181_ (let () (declare (not safe)) - (##car _e249609250248_)))) + (##car _e249539250178_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd249608250251_)) + _hd249538250181_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd249608250251_)) + _hd249538250181_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249607250253_)) - (let ((_e249612250256_ + _tl249537250183_)) + (let ((_e249542250186_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl249607250253_)))) - (let ((_tl249610250261_ + (gx#stx-e _tl249537250183_)))) + (let ((_tl249540250191_ (let () (declare (not safe)) - (##cdr _e249612250256_))) - (_hd249611250259_ + (##cdr _e249542250186_))) + (_hd249541250189_ (let () (declare (not safe)) - (##car _e249612250256_)))) + (##car _e249542250186_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249610250261_)) + (gx#stx-null? _tl249540250191_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249604250245_)) - (___kont261816261817_ - _hd249611250259_ - _hd249578250550_ - _hd249575250542_) + (gx#stx-null? _tl249534250175_)) + (___kont261746261747_ + _hd249541250189_ + _hd249508250480_ + _hd249505250472_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd249581250558_)) + (gx#stx-eq? '%#quote _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249636250152_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249566250082_ (let () (declare (not safe)) - (gx#stx-e _tl249580250560_)))) - (let ((_tl249634250157_ + (gx#stx-e _tl249510250490_)))) + (let ((_tl249564250087_ (let () (declare (not safe)) - (##cdr _e249636250152_))) - (_hd249635250155_ + (##cdr _e249566250082_))) + (_hd249565250085_ (let () (declare (not safe)) - (##car _e249636250152_)))) - (___kont261826261827_))) - (___kont261826261827_)) + (##car _e249566250082_)))) + (___kont261756261757_))) + (___kont261756261757_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd249581250558_)) + _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249696249912_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249626249842_ (let () (declare (not safe)) (gx#stx-e - _tl249580250560_)))) - (let ((_tl249694249917_ + _tl249510250490_)))) + (let ((_tl249624249847_ (let () (declare (not safe)) - (##cdr _e249696249912_))) - (_hd249695249915_ + (##cdr _e249626249842_))) + (_hd249625249845_ (let () (declare (not safe)) - (##car _e249696249912_)))) - (___kont261826261827_))) - (___kont261826261827_)) - (___kont261826261827_)))) + (##car _e249626249842_)))) + (___kont261756261757_))) + (___kont261756261757_)) + (___kont261756261757_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd249581250558_)) + (gx#stx-eq? '%#quote _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249636250152_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249566250082_ (let () (declare (not safe)) - (gx#stx-e _tl249580250560_)))) - (let ((_tl249634250157_ + (gx#stx-e _tl249510250490_)))) + (let ((_tl249564250087_ (let () (declare (not safe)) - (##cdr _e249636250152_))) - (_hd249635250155_ + (##cdr _e249566250082_))) + (_hd249565250085_ (let () (declare (not safe)) - (##car _e249636250152_)))) + (##car _e249566250082_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249634250157_)) + (gx#stx-null? _tl249564250087_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249604250245_)) - (___kont261818261819_ - _hd249605250243_ - _hd249635250155_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) + (gx#stx-null? _tl249534250175_)) + (___kont261748261749_ + _hd249535250173_ + _hd249565250085_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd249581250558_)) + _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249696249912_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249626249842_ (let () (declare (not safe)) - (gx#stx-e _tl249580250560_)))) - (let ((_tl249694249917_ + (gx#stx-e _tl249510250490_)))) + (let ((_tl249624249847_ (let () (declare (not safe)) - (##cdr _e249696249912_))) - (_hd249695249915_ + (##cdr _e249626249842_))) + (_hd249625249845_ (let () (declare (not safe)) - (##car _e249696249912_)))) - (___kont261826261827_))) - (___kont261826261827_)) - (___kont261826261827_)))))) + (##car _e249626249842_)))) + (___kont261756261757_))) + (___kont261756261757_)) + (___kont261756261757_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd249581250558_)) + (gx#stx-eq? '%#quote _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249636250152_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249566250082_ (let () (declare (not safe)) - (gx#stx-e _tl249580250560_)))) - (let ((_tl249634250157_ + (gx#stx-e _tl249510250490_)))) + (let ((_tl249564250087_ (let () (declare (not safe)) - (##cdr _e249636250152_))) - (_hd249635250155_ + (##cdr _e249566250082_))) + (_hd249565250085_ (let () (declare (not safe)) - (##car _e249636250152_)))) + (##car _e249566250082_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249634250157_)) + (gx#stx-null? _tl249564250087_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249604250245_)) - (___kont261818261819_ - _hd249605250243_ - _hd249635250155_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) + (gx#stx-null? _tl249534250175_)) + (___kont261748261749_ + _hd249535250173_ + _hd249565250085_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd249581250558_)) + (gx#stx-eq? '%#quote-syntax _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249696249912_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249626249842_ (let () (declare (not safe)) - (gx#stx-e _tl249580250560_)))) - (let ((_tl249694249917_ + (gx#stx-e _tl249510250490_)))) + (let ((_tl249624249847_ (let () (declare (not safe)) - (##cdr _e249696249912_))) - (_hd249695249915_ + (##cdr _e249626249842_))) + (_hd249625249845_ (let () (declare (not safe)) - (##car _e249696249912_)))) - (___kont261826261827_))) - (___kont261826261827_)) - (___kont261826261827_)))) + (##car _e249626249842_)))) + (___kont261756261757_))) + (___kont261756261757_)) + (___kont261756261757_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd249581250558_)) + _hd249511250488_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249636250152_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249566250082_ (let () (declare (not safe)) - (gx#stx-e _tl249580250560_)))) - (let ((_tl249634250157_ + (gx#stx-e _tl249510250490_)))) + (let ((_tl249564250087_ (let () (declare (not safe)) - (##cdr _e249636250152_))) - (_hd249635250155_ + (##cdr _e249566250082_))) + (_hd249565250085_ (let () (declare (not safe)) - (##car _e249636250152_)))) + (##car _e249566250082_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249634250157_)) + (gx#stx-null? _tl249564250087_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249604250245_)) - (___kont261818261819_ - _hd249605250243_ - _hd249635250155_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) + (gx#stx-null? _tl249534250175_)) + (___kont261748261749_ + _hd249535250173_ + _hd249565250085_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd249581250558_)) + (gx#stx-eq? '%#quote-syntax _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249696249912_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249626249842_ (let () (declare (not safe)) - (gx#stx-e _tl249580250560_)))) - (let ((_tl249694249917_ + (gx#stx-e _tl249510250490_)))) + (let ((_tl249624249847_ (let () (declare (not safe)) - (##cdr _e249696249912_))) - (_hd249695249915_ + (##cdr _e249626249842_))) + (_hd249625249845_ (let () (declare (not safe)) - (##car _e249696249912_)))) + (##car _e249626249842_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249694249917_)) + (gx#stx-null? _tl249624249847_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd249608250251_)) + (gx#stx-eq? '%#ref _hd249538250181_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249607250253_)) - (let ((_e249705249936_ + (gx#stx-pair? _tl249537250183_)) + (let ((_e249635249866_ (let () (declare (not safe)) (gx#stx-e - _tl249607250253_)))) - (let ((_tl249703249941_ + _tl249537250183_)))) + (let ((_tl249633249871_ (let () (declare (not safe)) - (##cdr _e249705249936_))) - (_hd249704249939_ + (##cdr _e249635249866_))) + (_hd249634249869_ (let () (declare (not safe)) - (##car _e249705249936_)))) + (##car _e249635249866_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl249703249941_)) + _tl249633249871_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl249604250245_)) - (___kont261822261823_ - _hd249704249939_ - _hd249695249915_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) - (___kont261826261827_)))) + _tl249534250175_)) + (___kont261752261753_ + _hd249634249869_ + _hd249625249845_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) + (___kont261756261757_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd249581250558_)) + _hd249511250488_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249580250560_)) - (let ((_e249636250152_ + _tl249510250490_)) + (let ((_e249566250082_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl249580250560_)))) - (let ((_tl249634250157_ + (gx#stx-e _tl249510250490_)))) + (let ((_tl249564250087_ (let () (declare (not safe)) - (##cdr _e249636250152_))) - (_hd249635250155_ + (##cdr _e249566250082_))) + (_hd249565250085_ (let () (declare (not safe)) - (##car _e249636250152_)))) + (##car _e249566250082_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249634250157_)) + (gx#stx-null? _tl249564250087_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249604250245_)) - (___kont261818261819_ - _hd249605250243_ - _hd249635250155_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) + (gx#stx-null? _tl249534250175_)) + (___kont261748261749_ + _hd249535250173_ + _hd249565250085_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd249581250558_)) + _hd249511250488_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249696249912_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249626249842_ (let () (declare (not safe)) - (gx#stx-e _tl249580250560_)))) - (let ((_tl249694249917_ + (gx#stx-e _tl249510250490_)))) + (let ((_tl249624249847_ (let () (declare (not safe)) - (##cdr _e249696249912_))) - (_hd249695249915_ + (##cdr _e249626249842_))) + (_hd249625249845_ (let () (declare (not safe)) - (##car _e249696249912_)))) - (___kont261826261827_))) - (___kont261826261827_)) - (___kont261826261827_)))))) + (##car _e249626249842_)))) + (___kont261756261757_))) + (___kont261756261757_)) + (___kont261756261757_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd249581250558_)) + _hd249511250488_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249580250560_)) - (let ((_e249636250152_ + _tl249510250490_)) + (let ((_e249566250082_ (let () (declare (not safe)) (gx#stx-e - _tl249580250560_)))) - (let ((_tl249634250157_ + _tl249510250490_)))) + (let ((_tl249564250087_ (let () (declare (not safe)) - (##cdr _e249636250152_))) - (_hd249635250155_ + (##cdr _e249566250082_))) + (_hd249565250085_ (let () (declare (not safe)) - (##car _e249636250152_)))) + (##car _e249566250082_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl249634250157_)) + _tl249564250087_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl249604250245_)) - (___kont261818261819_ - _hd249605250243_ - _hd249635250155_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) + (gx#stx-null? _tl249534250175_)) + (___kont261748261749_ + _hd249535250173_ + _hd249565250085_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261826261827_)) + (___kont261756261757_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd249581250558_)) + _hd249511250488_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249580250560_)) - (let ((_e249696249912_ + _tl249510250490_)) + (let ((_e249626249842_ (let () (declare (not safe)) (gx#stx-e - _tl249580250560_)))) - (let ((_tl249694249917_ + _tl249510250490_)))) + (let ((_tl249624249847_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e249696249912_))) - (_hd249695249915_ - (let () (declare (not safe)) (##car _e249696249912_)))) - (___kont261826261827_))) + (##cdr _e249626249842_))) + (_hd249625249845_ + (let () (declare (not safe)) (##car _e249626249842_)))) + (___kont261756261757_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261826261827_)) - (___kont261826261827_)))))) + (___kont261756261757_)) + (___kont261756261757_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd249581250558_)) + (gx#stx-eq? '%#quote _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249636250152_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249566250082_ (let () (declare (not safe)) (gx#stx-e - _tl249580250560_)))) - (let ((_tl249634250157_ + _tl249510250490_)))) + (let ((_tl249564250087_ (let () (declare (not safe)) - (##cdr _e249636250152_))) - (_hd249635250155_ + (##cdr _e249566250082_))) + (_hd249565250085_ (let () (declare (not safe)) - (##car _e249636250152_)))) - (___kont261826261827_))) - (___kont261826261827_)) + (##car _e249566250082_)))) + (___kont261756261757_))) + (___kont261756261757_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd249581250558_)) + _hd249511250488_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249580250560_)) - (let ((_e249696249912_ + (gx#stx-pair? _tl249510250490_)) + (let ((_e249626249842_ (let () (declare (not safe)) (gx#stx-e - _tl249580250560_)))) - (let ((_tl249694249917_ + _tl249510250490_)))) + (let ((_tl249624249847_ (let () (declare (not safe)) - (##cdr _e249696249912_))) - (_hd249695249915_ + (##cdr _e249626249842_))) + (_hd249625249845_ (let () (declare (not safe)) - (##car _e249696249912_)))) - (___kont261826261827_))) - (___kont261826261827_)) - (___kont261826261827_))))) + (##car _e249626249842_)))) + (___kont261756261757_))) + (___kont261756261757_)) + (___kont261756261757_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249577250552_)) - (let ((_e249606250240_ + (gx#stx-pair? _tl249507250482_)) + (let ((_e249536250170_ (let () (declare (not safe)) - (gx#stx-e _tl249577250552_)))) - (let ((_tl249604250245_ + (gx#stx-e _tl249507250482_)))) + (let ((_tl249534250175_ (let () (declare (not safe)) - (##cdr _e249606250240_))) - (_hd249605250243_ + (##cdr _e249536250170_))) + (_hd249535250173_ (let () (declare (not safe)) - (##car _e249606250240_)))) + (##car _e249536250170_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249605250243_)) - (let ((_e249609250248_ + (gx#stx-pair? _hd249535250173_)) + (let ((_e249539250178_ (let () (declare (not safe)) - (gx#stx-e _hd249605250243_)))) - (let ((_tl249607250253_ + (gx#stx-e _hd249535250173_)))) + (let ((_tl249537250183_ (let () (declare (not safe)) - (##cdr _e249609250248_))) - (_hd249608250251_ + (##cdr _e249539250178_))) + (_hd249538250181_ (let () (declare (not safe)) - (##car _e249609250248_)))) + (##car _e249539250178_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd249608250251_)) + _hd249538250181_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd249608250251_)) + _hd249538250181_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249607250253_)) - (let ((_e249612250256_ + _tl249537250183_)) + (let ((_e249542250186_ (let () (declare (not safe)) (gx#stx-e - _tl249607250253_)))) - (let ((_tl249610250261_ + _tl249537250183_)))) + (let ((_tl249540250191_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e249612250256_))) - (_hd249611250259_ - (let () (declare (not safe)) (##car _e249612250256_)))) + (##cdr _e249542250186_))) + (_hd249541250189_ + (let () (declare (not safe)) (##car _e249542250186_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249610250261_)) + (gx#stx-null? _tl249540250191_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249604250245_)) - (___kont261816261817_ - _hd249611250259_ - _hd249578250550_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) + (gx#stx-null? _tl249534250175_)) + (___kont261746261747_ + _hd249541250189_ + _hd249508250480_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261826261827_)) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)))) - (___kont261826261827_))))) + (___kont261756261757_)) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)))) + (___kont261756261757_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249577250552_)) - (let ((_e249606250240_ + (gx#stx-pair? _tl249507250482_)) + (let ((_e249536250170_ (let () (declare (not safe)) - (gx#stx-e _tl249577250552_)))) - (let ((_tl249604250245_ + (gx#stx-e _tl249507250482_)))) + (let ((_tl249534250175_ (let () (declare (not safe)) - (##cdr _e249606250240_))) - (_hd249605250243_ + (##cdr _e249536250170_))) + (_hd249535250173_ (let () (declare (not safe)) - (##car _e249606250240_)))) + (##car _e249536250170_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249605250243_)) - (let ((_e249609250248_ + (gx#stx-pair? _hd249535250173_)) + (let ((_e249539250178_ (let () (declare (not safe)) - (gx#stx-e _hd249605250243_)))) - (let ((_tl249607250253_ + (gx#stx-e _hd249535250173_)))) + (let ((_tl249537250183_ (let () (declare (not safe)) - (##cdr _e249609250248_))) - (_hd249608250251_ + (##cdr _e249539250178_))) + (_hd249538250181_ (let () (declare (not safe)) - (##car _e249609250248_)))) + (##car _e249539250178_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd249608250251_)) + (gx#identifier? _hd249538250181_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd249608250251_)) + _hd249538250181_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249607250253_)) - (let ((_e249612250256_ + (gx#stx-pair? _tl249537250183_)) + (let ((_e249542250186_ (let () (declare (not safe)) (gx#stx-e - _tl249607250253_)))) - (let ((_tl249610250261_ + _tl249537250183_)))) + (let ((_tl249540250191_ (let () (declare (not safe)) - (##cdr _e249612250256_))) - (_hd249611250259_ + (##cdr _e249542250186_))) + (_hd249541250189_ (let () (declare (not safe)) - (##car _e249612250256_)))) + (##car _e249542250186_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl249610250261_)) + _tl249540250191_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl249604250245_)) - (___kont261816261817_ - _hd249611250259_ - _hd249578250550_ - _hd249575250542_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)))) - (___kont261826261827_))))) + _tl249534250175_)) + (___kont261746261747_ + _hd249541250189_ + _hd249508250480_ + _hd249505250472_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)))) + (___kont261756261757_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd249572250534_)) + (gx#stx-eq? '%#lambda _hd249502250464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249571250536_)) - (let ((_e249720249776_ + (gx#stx-pair? _tl249501250466_)) + (let ((_e249650249706_ (let () (declare (not safe)) (gx#stx-e - _tl249571250536_)))) - (let ((_tl249718249781_ + _tl249501250466_)))) + (let ((_tl249648249711_ (let () (declare (not safe)) - (##cdr _e249720249776_))) - (_hd249719249779_ + (##cdr _e249650249706_))) + (_hd249649249709_ (let () (declare (not safe)) - (##car _e249720249776_)))) + (##car _e249650249706_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd249719249779_)) - (let ((_e249723249784_ + _hd249649249709_)) + (let ((_e249653249714_ (let () (declare (not safe)) (gx#stx-e - _hd249719249779_)))) - (let ((_tl249721249789_ + _hd249649249709_)))) + (let ((_tl249651249719_ (let () (declare (not safe)) - (##cdr _e249723249784_))) - (_hd249722249787_ + (##cdr _e249653249714_))) + (_hd249652249717_ (let () (declare (not safe)) - (##car _e249723249784_)))) + (##car _e249653249714_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl249721249789_)) + _tl249651249719_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl249718249781_)) - (let ((_e249726249792_ + (gx#stx-pair? _tl249648249711_)) + (let ((_e249656249722_ (let () (declare (not safe)) - (gx#stx-e _tl249718249781_)))) - (let ((_tl249724249797_ + (gx#stx-e _tl249648249711_)))) + (let ((_tl249654249727_ (let () (declare (not safe)) - (##cdr _e249726249792_))) - (_hd249725249795_ + (##cdr _e249656249722_))) + (_hd249655249725_ (let () (declare (not safe)) - (##car _e249726249792_)))) + (##car _e249656249722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249724249797_)) + (gx#stx-null? _tl249654249727_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249568250528_)) - (let ((_e249729249800_ + (gx#stx-pair? _tl249498250458_)) + (let ((_e249659249730_ (let () (declare (not safe)) - (gx#stx-e _tl249568250528_)))) - (let ((_tl249727249805_ + (gx#stx-e _tl249498250458_)))) + (let ((_tl249657249735_ (let () (declare (not safe)) - (##cdr _e249729249800_))) - (_hd249728249803_ + (##cdr _e249659249730_))) + (_hd249658249733_ (let () (declare (not safe)) - (##car _e249729249800_)))) + (##car _e249659249730_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249728249803_)) - (let ((_e249732249808_ + (gx#stx-pair? _hd249658249733_)) + (let ((_e249662249738_ (let () (declare (not safe)) (gx#stx-e - _hd249728249803_)))) - (let ((_tl249730249813_ + _hd249658249733_)))) + (let ((_tl249660249743_ (let () (declare (not safe)) - (##cdr _e249732249808_))) - (_hd249731249811_ + (##cdr _e249662249738_))) + (_hd249661249741_ (let () (declare (not safe)) - (##car _e249732249808_)))) + (##car _e249662249738_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd249731249811_)) + _hd249661249741_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd249731249811_)) + _hd249661249741_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249730249813_)) - (let ((_e249735249816_ + _tl249660249743_)) + (let ((_e249665249746_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl249730249813_)))) - (let ((_tl249733249821_ + (gx#stx-e _tl249660249743_)))) + (let ((_tl249663249751_ (let () (declare (not safe)) - (##cdr _e249735249816_))) - (_hd249734249819_ + (##cdr _e249665249746_))) + (_hd249664249749_ (let () (declare (not safe)) - (##car _e249735249816_)))) + (##car _e249665249746_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249733249821_)) + (gx#stx-null? _tl249663249751_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249727249805_)) - (___kont261824261825_ - _hd249734249819_ - _hd249725249795_ - _hd249722249787_) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) + (gx#stx-null? _tl249657249735_)) + (___kont261754261755_ + _hd249664249749_ + _hd249655249725_ + _hd249652249717_) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)))) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_)) - (___kont261826261827_)))) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)))) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_)) + (___kont261756261757_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261826261827_)))) - (___kont261826261827_)) - (___kont261826261827_))) - (___kont261826261827_)))) - (___kont261826261827_)))) + (___kont261756261757_)))) + (___kont261756261757_)) + (___kont261756261757_))) + (___kont261756261757_)))) + (___kont261756261757_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont261826261827_)) - (___kont261826261827_)) - (___kont261826261827_)))) - (___kont261826261827_))))))))) - (_assert-type248547_ - (lambda (_id249446_ _t249447_) - (let _lp249449_ ((_rest249451_ _env-type248529_)) - (let* ((_rest249452249460_ _rest249451_) - (_else249454249468_ (lambda () '#!void)) - (_K249456249532_ - (lambda (_rest249471_ _type-info249472_) - (let* ((_type-info249473249485_ - _type-info249472_) - (_else249475249493_ + (___kont261756261757_)) + (___kont261756261757_)) + (___kont261756261757_)))) + (___kont261756261757_))))))))) + (_assert-type248477_ + (lambda (_id249376_ _t249377_) + (let _lp249379_ ((_rest249381_ _env-type248459_)) + (let* ((_rest249382249390_ _rest249381_) + (_else249384249398_ (lambda () '#!void)) + (_K249386249462_ + (lambda (_rest249401_ _type-info249402_) + (let* ((_type-info249403249415_ + _type-info249402_) + (_else249405249423_ (lambda () (let () (declare (not safe)) - (_lp249449_ _rest249471_)))) - (_K249477249508_ - (lambda (_val249496_ - _xt249497_ - _xid249498_) + (_lp249379_ _rest249401_)))) + (_K249407249438_ + (lambda (_val249426_ + _xt249427_ + _xid249428_) (if (let () (declare (not safe)) (gx#free-identifier=? - _id249446_ - _xid249498_)) + _id249376_ + _xid249428_)) (if (let () (declare (not safe)) - (eq? _t249447_ - _xt249497_)) - _val249496_ - (if _val249496_ + (eq? _t249377_ + _xt249427_)) + _val249426_ + (if _val249426_ (if (let () (declare (not safe)) (##structure-instance-of? - _t249447_ + _t249377_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##structure-instance-of? _xt249497_ 'gxc#!class::t)) - (memq _t249447_ - (map (lambda (_g249499249501_) + (##structure-instance-of? _xt249427_ 'gxc#!class::t)) + (memq _t249377_ + (map (lambda (_g249429249431_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _xt249497_ - _g249499249501_))) + _xt249427_ + _g249429249431_))) (##structure-ref - _xt249497_ + _xt249427_ '3 gxc#!class::t '#f))) @@ -11175,7862 +11175,7862 @@ '#f) (if (and (let () (declare (not safe)) - (##structure-instance-of? _t249447_ 'gxc#!class::t)) + (##structure-instance-of? _t249377_ 'gxc#!class::t)) (let () (declare (not safe)) - (##structure-instance-of? _xt249497_ 'gxc#!class::t)) - (memq _xt249497_ - (map (lambda (_g249503249505_) + (##structure-instance-of? _xt249427_ 'gxc#!class::t)) + (memq _xt249427_ + (map (lambda (_g249433249435_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _t249447_ - _g249503249505_))) + _t249377_ + _g249433249435_))) (##structure-ref - _t249447_ + _t249377_ '3 gxc#!class::t '#f)))) '#f - (let () (declare (not safe)) (_lp249449_ _rest249471_))))) + (let () (declare (not safe)) (_lp249379_ _rest249401_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp249449_ _rest249471_)))))) + (_lp249379_ _rest249401_)))))) (if (let () (declare (not safe)) - (##pair? _type-info249473249485_)) - (let ((_hd249478249511_ + (##pair? _type-info249403249415_)) + (let ((_hd249408249441_ (let () (declare (not safe)) - (##car _type-info249473249485_))) - (_tl249479249513_ + (##car _type-info249403249415_))) + (_tl249409249443_ (let () (declare (not safe)) - (##cdr _type-info249473249485_)))) - (let ((_xid249516_ _hd249478249511_)) + (##cdr _type-info249403249415_)))) + (let ((_xid249446_ _hd249408249441_)) (if (let () (declare (not safe)) - (##pair? _tl249479249513_)) - (let ((_hd249480249518_ + (##pair? _tl249409249443_)) + (let ((_hd249410249448_ (let () (declare (not safe)) - (##car _tl249479249513_))) - (_tl249481249520_ + (##car _tl249409249443_))) + (_tl249411249450_ (let () (declare (not safe)) - (##cdr _tl249479249513_)))) - (let ((_xt249523_ - _hd249480249518_)) + (##cdr _tl249409249443_)))) + (let ((_xt249453_ + _hd249410249448_)) (if (let () (declare (not safe)) - (##pair? _tl249481249520_)) - (let ((_hd249482249525_ + (##pair? _tl249411249450_)) + (let ((_hd249412249455_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl249481249520_))) - (_tl249483249527_ - (let () (declare (not safe)) (##cdr _tl249481249520_)))) - (let ((_val249530_ _hd249482249525_)) - (if (let () (declare (not safe)) (##null? _tl249483249527_)) + (##car _tl249411249450_))) + (_tl249413249457_ + (let () (declare (not safe)) (##cdr _tl249411249450_)))) + (let ((_val249460_ _hd249412249455_)) + (if (let () (declare (not safe)) (##null? _tl249413249457_)) (let () (declare (not safe)) - (_K249477249508_ _val249530_ _xt249523_ _xid249516_)) - (let () (declare (not safe)) (_else249475249493_))))) - (let () (declare (not safe)) (_else249475249493_))))) + (_K249407249438_ _val249460_ _xt249453_ _xid249446_)) + (let () (declare (not safe)) (_else249405249423_))))) + (let () (declare (not safe)) (_else249405249423_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else249475249493_))))) + (_else249405249423_))))) (let () (declare (not safe)) - (_else249475249493_))))))) + (_else249405249423_))))))) (if (let () (declare (not safe)) - (##pair? _rest249452249460_)) - (let ((_hd249457249535_ + (##pair? _rest249382249390_)) + (let ((_hd249387249465_ (let () (declare (not safe)) - (##car _rest249452249460_))) - (_tl249458249537_ + (##car _rest249382249390_))) + (_tl249388249467_ (let () (declare (not safe)) - (##cdr _rest249452249460_)))) - (let* ((_type-info249540_ _hd249457249535_) - (_rest249542_ _tl249458249537_)) + (##cdr _rest249382249390_)))) + (let* ((_type-info249470_ _hd249387249465_) + (_rest249472_ _tl249388249467_)) (declare (not safe)) - (_K249456249532_ - _rest249542_ - _type-info249540_))) + (_K249386249462_ + _rest249472_ + _type-info249470_))) (let () (declare (not safe)) - (_else249454249468_))))))) - (_assert-count248548_ - (lambda (_id249345_ _sym249346_ _count249347_) - (let _lp249349_ ((_rest249351_ _env-type248529_)) - (let* ((_rest249352249360_ _rest249351_) - (_else249354249368_ (lambda () '#!void)) - (_K249356249434_ - (lambda (_rest249371_ _type-info249372_) - (let* ((_type-info249373249387_ - _type-info249372_) - (_else249375249395_ + (_else249384249398_))))))) + (_assert-count248478_ + (lambda (_id249275_ _sym249276_ _count249277_) + (let _lp249279_ ((_rest249281_ _env-type248459_)) + (let* ((_rest249282249290_ _rest249281_) + (_else249284249298_ (lambda () '#!void)) + (_K249286249364_ + (lambda (_rest249301_ _type-info249302_) + (let* ((_type-info249303249317_ + _type-info249302_) + (_else249305249325_ (lambda () (let () (declare (not safe)) - (_lp249349_ _rest249371_)))) - (_K249377249403_ - (lambda (_val249398_ - _xcount249399_ - _xsym249400_ - _xid249401_) + (_lp249279_ _rest249301_)))) + (_K249307249333_ + (lambda (_val249328_ + _xcount249329_ + _xsym249330_ + _xid249331_) (if (and (let () (declare (not safe)) - (eq? _sym249346_ - _xsym249400_)) + (eq? _sym249276_ + _xsym249330_)) (let () (declare (not safe)) (gx#free-identifier=? - _id249345_ - _xid249401_))) - (if _val249398_ - (fx= _count249347_ - _xcount249399_) - (if (fx= _count249347_ - _xcount249399_) + _id249275_ + _xid249331_))) + (if _val249328_ + (fx= _count249277_ + _xcount249329_) + (if (fx= _count249277_ + _xcount249329_) '#f (let () (declare (not safe)) - (_lp249349_ - _rest249371_)))) + (_lp249279_ + _rest249301_)))) (let () (declare (not safe)) - (_lp249349_ _rest249371_)))))) + (_lp249279_ _rest249301_)))))) (if (let () (declare (not safe)) - (##pair? _type-info249373249387_)) - (let ((_hd249378249406_ + (##pair? _type-info249303249317_)) + (let ((_hd249308249336_ (let () (declare (not safe)) - (##car _type-info249373249387_))) - (_tl249379249408_ + (##car _type-info249303249317_))) + (_tl249309249338_ (let () (declare (not safe)) - (##cdr _type-info249373249387_)))) - (let ((_xid249411_ _hd249378249406_)) + (##cdr _type-info249303249317_)))) + (let ((_xid249341_ _hd249308249336_)) (if (let () (declare (not safe)) - (##pair? _tl249379249408_)) - (let ((_hd249380249413_ + (##pair? _tl249309249338_)) + (let ((_hd249310249343_ (let () (declare (not safe)) - (##car _tl249379249408_))) - (_tl249381249415_ + (##car _tl249309249338_))) + (_tl249311249345_ (let () (declare (not safe)) - (##cdr _tl249379249408_)))) - (let ((_xsym249418_ - _hd249380249413_)) + (##cdr _tl249309249338_)))) + (let ((_xsym249348_ + _hd249310249343_)) (if (let () (declare (not safe)) - (##pair? _tl249381249415_)) - (let ((_hd249382249420_ + (##pair? _tl249311249345_)) + (let ((_hd249312249350_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl249381249415_))) - (_tl249383249422_ - (let () (declare (not safe)) (##cdr _tl249381249415_)))) - (let ((_xcount249425_ _hd249382249420_)) - (if (let () (declare (not safe)) (##pair? _tl249383249422_)) - (let ((_hd249384249427_ + (##car _tl249311249345_))) + (_tl249313249352_ + (let () (declare (not safe)) (##cdr _tl249311249345_)))) + (let ((_xcount249355_ _hd249312249350_)) + (if (let () (declare (not safe)) (##pair? _tl249313249352_)) + (let ((_hd249314249357_ (let () (declare (not safe)) - (##car _tl249383249422_))) - (_tl249385249429_ + (##car _tl249313249352_))) + (_tl249315249359_ (let () (declare (not safe)) - (##cdr _tl249383249422_)))) - (let ((_val249432_ _hd249384249427_)) + (##cdr _tl249313249352_)))) + (let ((_val249362_ _hd249314249357_)) (if (let () (declare (not safe)) - (##null? _tl249385249429_)) + (##null? _tl249315249359_)) (let () (declare (not safe)) - (_K249377249403_ - _val249432_ - _xcount249425_ - _xsym249418_ - _xid249411_)) + (_K249307249333_ + _val249362_ + _xcount249355_ + _xsym249348_ + _xid249341_)) (let () (declare (not safe)) - (_else249375249395_))))) - (let () (declare (not safe)) (_else249375249395_))))) - (let () (declare (not safe)) (_else249375249395_))))) + (_else249305249325_))))) + (let () (declare (not safe)) (_else249305249325_))))) + (let () (declare (not safe)) (_else249305249325_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else249375249395_))))) + (_else249305249325_))))) (let () (declare (not safe)) - (_else249375249395_))))))) + (_else249305249325_))))))) (if (let () (declare (not safe)) - (##pair? _rest249352249360_)) - (let ((_hd249357249437_ + (##pair? _rest249282249290_)) + (let ((_hd249287249367_ (let () (declare (not safe)) - (##car _rest249352249360_))) - (_tl249358249439_ + (##car _rest249282249290_))) + (_tl249288249369_ (let () (declare (not safe)) - (##cdr _rest249352249360_)))) - (let* ((_type-info249442_ _hd249357249437_) - (_rest249444_ _tl249358249439_)) + (##cdr _rest249282249290_)))) + (let* ((_type-info249372_ _hd249287249367_) + (_rest249374_ _tl249288249369_)) (declare (not safe)) - (_K249356249434_ - _rest249444_ - _type-info249442_))) + (_K249286249364_ + _rest249374_ + _type-info249372_))) (let () (declare (not safe)) - (_else249354249368_))))))) - (_assert-eqf248549_ - (lambda (_id249235_ _sym249236_ _datum249237_) - (letrec ((_eqf249239_ - (lambda (_sym249340_) - (let ((_$e249342_ _sym249340_)) + (_else249284249298_))))))) + (_assert-eqf248479_ + (lambda (_id249165_ _sym249166_ _datum249167_) + (letrec ((_eqf249169_ + (lambda (_sym249270_) + (let ((_$e249272_ _sym249270_)) (if (let () (declare (not safe)) - (eq? 'eq? _$e249342_)) + (eq? 'eq? _$e249272_)) eq? (if (let () (declare (not safe)) - (eq? 'eqv? _$e249342_)) + (eq? 'eqv? _$e249272_)) eqv? (if (let () (declare (not safe)) - (eq? 'equal? _$e249342_)) + (eq? 'equal? _$e249272_)) equal? (if (let () (declare (not safe)) (eq? 'free-identifier=? - _$e249342_)) + _$e249272_)) gx#free-identifier=? (if (let () (declare (not safe)) (eq? 'stx-eq? - _$e249342_)) + _$e249272_)) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _body248290_ - _sym249340_))))))))))) - (let _lp249241_ ((_rest249243_ _env-type248529_)) - (let* ((_rest249244249252_ _rest249243_) - (_else249246249260_ (lambda () '#!void)) - (_K249248249328_ - (lambda (_rest249263_ _type-info249264_) - (let* ((_type-info249265249279_ - _type-info249264_) - (_else249267249287_ + _body248220_ + _sym249270_))))))))))) + (let _lp249171_ ((_rest249173_ _env-type248459_)) + (let* ((_rest249174249182_ _rest249173_) + (_else249176249190_ (lambda () '#!void)) + (_K249178249258_ + (lambda (_rest249193_ _type-info249194_) + (let* ((_type-info249195249209_ + _type-info249194_) + (_else249197249217_ (lambda () (let () (declare (not safe)) - (_lp249241_ _rest249263_)))) - (_K249269249297_ - (lambda (_val249290_ - _xdatum249291_ - _xsym249292_ - _xid249293_) + (_lp249171_ _rest249193_)))) + (_K249199249227_ + (lambda (_val249220_ + _xdatum249221_ + _xsym249222_ + _xid249223_) (if (and (let () (declare (not safe)) - (eq? _sym249236_ - _xsym249292_)) + (eq? _sym249166_ + _xsym249222_)) (let () (declare (not safe)) (gx#free-identifier=? - _id249235_ - _xid249293_))) - (let ((_=?249295_ + _id249165_ + _xid249223_))) + (let ((_=?249225_ (let () (declare (not safe)) - (_eqf249239_ - _sym249236_)))) - (if _val249290_ - (_=?249295_ - _datum249237_ - _xdatum249291_) - (if (_=?249295_ - _datum249237_ - _xdatum249291_) + (_eqf249169_ + _sym249166_)))) + (if _val249220_ + (_=?249225_ + _datum249167_ + _xdatum249221_) + (if (_=?249225_ + _datum249167_ + _xdatum249221_) '#f (let () (declare (not safe)) - (_lp249241_ - _rest249263_))))) + (_lp249171_ + _rest249193_))))) (let () (declare (not safe)) - (_lp249241_ - _rest249263_)))))) + (_lp249171_ + _rest249193_)))))) (if (let () (declare (not safe)) - (##pair? _type-info249265249279_)) - (let ((_hd249270249300_ + (##pair? _type-info249195249209_)) + (let ((_hd249200249230_ (let () (declare (not safe)) - (##car _type-info249265249279_))) - (_tl249271249302_ + (##car _type-info249195249209_))) + (_tl249201249232_ (let () (declare (not safe)) - (##cdr _type-info249265249279_)))) - (let ((_xid249305_ - _hd249270249300_)) + (##cdr _type-info249195249209_)))) + (let ((_xid249235_ + _hd249200249230_)) (if (let () (declare (not safe)) - (##pair? _tl249271249302_)) - (let ((_hd249272249307_ + (##pair? _tl249201249232_)) + (let ((_hd249202249237_ (let () (declare (not safe)) - (##car _tl249271249302_))) - (_tl249273249309_ + (##car _tl249201249232_))) + (_tl249203249239_ (let () (declare (not safe)) - (##cdr _tl249271249302_)))) - (let ((_xsym249312_ - _hd249272249307_)) + (##cdr _tl249201249232_)))) + (let ((_xsym249242_ + _hd249202249237_)) (if (let () (declare (not safe)) - (##pair? _tl249273249309_)) - (let ((_hd249274249314_ + (##pair? _tl249203249239_)) + (let ((_hd249204249244_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _tl249273249309_))) - (_tl249275249316_ + (##car _tl249203249239_))) + (_tl249205249246_ (let () (declare (not safe)) - (##cdr _tl249273249309_)))) - (let ((_xdatum249319_ _hd249274249314_)) + (##cdr _tl249203249239_)))) + (let ((_xdatum249249_ _hd249204249244_)) (if (let () (declare (not safe)) - (##pair? _tl249275249316_)) - (let ((_hd249276249321_ + (##pair? _tl249205249246_)) + (let ((_hd249206249251_ (let () (declare (not safe)) - (##car _tl249275249316_))) - (_tl249277249323_ + (##car _tl249205249246_))) + (_tl249207249253_ (let () (declare (not safe)) - (##cdr _tl249275249316_)))) - (let ((_val249326_ _hd249276249321_)) + (##cdr _tl249205249246_)))) + (let ((_val249256_ _hd249206249251_)) (if (let () (declare (not safe)) - (##null? _tl249277249323_)) + (##null? _tl249207249253_)) (let () (declare (not safe)) - (_K249269249297_ - _val249326_ - _xdatum249319_ - _xsym249312_ - _xid249305_)) + (_K249199249227_ + _val249256_ + _xdatum249249_ + _xsym249242_ + _xid249235_)) (let () (declare (not safe)) - (_else249267249287_))))) - (let () (declare (not safe)) (_else249267249287_))))) - (let () (declare (not safe)) (_else249267249287_))))) + (_else249197249217_))))) + (let () (declare (not safe)) (_else249197249217_))))) + (let () (declare (not safe)) (_else249197249217_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else249267249287_))))) + (_else249197249217_))))) (let () (declare (not safe)) - (_else249267249287_))))))) + (_else249197249217_))))))) (if (let () (declare (not safe)) - (##pair? _rest249244249252_)) - (let ((_hd249249249331_ + (##pair? _rest249174249182_)) + (let ((_hd249179249261_ (let () (declare (not safe)) - (##car _rest249244249252_))) - (_tl249250249333_ + (##car _rest249174249182_))) + (_tl249180249263_ (let () (declare (not safe)) - (##cdr _rest249244249252_)))) - (let* ((_type-info249336_ _hd249249249331_) - (_rest249338_ _tl249250249333_)) + (##cdr _rest249174249182_)))) + (let* ((_type-info249266_ _hd249179249261_) + (_rest249268_ _tl249180249263_)) (declare (not safe)) - (_K249248249328_ - _rest249338_ - _type-info249336_))) + (_K249178249258_ + _rest249268_ + _type-info249266_))) (let () (declare (not safe)) - (_else249246249260_)))))))) - (_bind-e__260195260196_ - (lambda (_bind249138_ _body249139_ _continue249140_) - (let _lp249142_ ((_rest249144_ _bind249138_) - (_subst249145_ '()) - (_locals249146_ '()) - (_env249147_ _env-bind248530_)) - (let* ((_rest249148249156_ _rest249144_) - (_else249150249170_ + (_else249176249190_)))))))) + (_bind-e__260125260126_ + (lambda (_bind249068_ _body249069_ _continue249070_) + (let _lp249072_ ((_rest249074_ _bind249068_) + (_subst249075_ '()) + (_locals249076_ '()) + (_env249077_ _env-bind248460_)) + (let* ((_rest249078249086_ _rest249074_) + (_else249080249100_ (lambda () - (let* ((_body249164_ + (let* ((_body249094_ (if (let () (declare (not safe)) - (null? _subst249145_)) - _body249139_ + (null? _subst249075_)) + _body249069_ (let () (declare (not safe)) (gxc#apply-expression-subst* - _body249139_ - _subst249145_)))) - (_body249167_ - (let ((__tmp263636 + _body249069_ + _subst249075_)))) + (_body249097_ + (let ((__tmp263566 (lambda () - (_continue249140_ - _body249164_)))) + (_continue249070_ + _body249094_)))) (declare (not safe)) - (_do-bind!248541_ - _env249147_ - __tmp263636)))) + (_do-bind!248471_ + _env249077_ + __tmp263566)))) (if (let () (declare (not safe)) - (null? _locals249146_)) - _body249167_ - (let ((__tmp263637 - (let ((__tmp263638 + (null? _locals249076_)) + _body249097_ + (let ((__tmp263567 + (let ((__tmp263568 (let () (declare (not safe)) - (cons _body249167_ + (cons _body249097_ '())))) (declare (not safe)) - (cons _locals249146_ - __tmp263638)))) + (cons _locals249076_ + __tmp263568)))) (declare (not safe)) - (cons '%#let-values __tmp263637)))))) - (_K249152249211_ - (lambda (_rest249173_ _bind249174_) - (let* ((_bind249175249182_ _bind249174_) - (_E249177249186_ + (cons '%#let-values __tmp263567)))))) + (_K249082249141_ + (lambda (_rest249103_ _bind249104_) + (let* ((_bind249105249112_ _bind249104_) + (_E249107249116_ (lambda () (error '"No clause matching" - _bind249175249182_))) - (_K249178249199_ - (lambda (_expr249189_ _id249190_) - (let* ((_sexpr249192_ + _bind249105249112_))) + (_K249108249129_ + (lambda (_expr249119_ _id249120_) + (let* ((_sexpr249122_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr249189_))) - (_$e249194_ + _expr249119_))) + (_$e249124_ (let () (declare (not safe)) - (assget _sexpr249192_ - _env-bind248530_)))) - (if _$e249194_ - ((lambda (_xid249197_) - (let ((__tmp263645 - (let ((__tmp263646 + (assget _sexpr249122_ + _env-bind248460_)))) + (if _$e249124_ + ((lambda (_xid249127_) + (let ((__tmp263575 + (let ((__tmp263576 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id249190_ _xid249197_)))) + (cons _id249120_ _xid249127_)))) (declare (not safe)) - (cons __tmp263646 _subst249145_)))) + (cons __tmp263576 _subst249075_)))) (declare (not safe)) - (_lp249142_ - _rest249173_ - __tmp263645 - _locals249146_ - _env249147_))) + (_lp249072_ + _rest249103_ + __tmp263575 + _locals249076_ + _env249077_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e249194_) - (let ((__tmp263641 - (let ((__tmp263642 - (let ((__tmp263644 + _$e249124_) + (let ((__tmp263571 + (let ((__tmp263572 + (let ((__tmp263574 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id249190_ '()))) - (__tmp263643 + (cons _id249120_ '()))) + (__tmp263573 (let () (declare (not safe)) - (cons _expr249189_ '())))) + (cons _expr249119_ '())))) (declare (not safe)) - (cons __tmp263644 __tmp263643)))) + (cons __tmp263574 __tmp263573)))) (declare (not safe)) - (cons __tmp263642 _locals249146_))) - (__tmp263639 - (let ((__tmp263640 + (cons __tmp263572 _locals249076_))) + (__tmp263569 + (let ((__tmp263570 (let () (declare (not safe)) - (cons _sexpr249192_ _id249190_)))) + (cons _sexpr249122_ _id249120_)))) (declare (not safe)) - (cons __tmp263640 _env249147_)))) + (cons __tmp263570 _env249077_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp249142_ - _rest249173_ - _subst249145_ - __tmp263641 - __tmp263639))))))) + (_lp249072_ + _rest249103_ + _subst249075_ + __tmp263571 + __tmp263569))))))) (if (let () (declare (not safe)) - (##pair? _bind249175249182_)) - (let ((_hd249179249202_ + (##pair? _bind249105249112_)) + (let ((_hd249109249132_ (let () (declare (not safe)) - (##car _bind249175249182_))) - (_tl249180249204_ + (##car _bind249105249112_))) + (_tl249110249134_ (let () (declare (not safe)) - (##cdr _bind249175249182_)))) - (let* ((_id249207_ _hd249179249202_) - (_expr249209_ - _tl249180249204_)) + (##cdr _bind249105249112_)))) + (let* ((_id249137_ _hd249109249132_) + (_expr249139_ + _tl249110249134_)) (declare (not safe)) - (_K249178249199_ - _expr249209_ - _id249207_))) + (_K249108249129_ + _expr249139_ + _id249137_))) (let () (declare (not safe)) - (_E249177249186_))))))) + (_E249107249116_))))))) (if (let () (declare (not safe)) - (##pair? _rest249148249156_)) - (let ((_hd249153249214_ + (##pair? _rest249078249086_)) + (let ((_hd249083249144_ (let () (declare (not safe)) - (##car _rest249148249156_))) - (_tl249154249216_ + (##car _rest249078249086_))) + (_tl249084249146_ (let () (declare (not safe)) - (##cdr _rest249148249156_)))) - (let* ((_bind249219_ _hd249153249214_) - (_rest249221_ _tl249154249216_)) + (##cdr _rest249078249086_)))) + (let* ((_bind249149_ _hd249083249144_) + (_rest249151_ _tl249084249146_)) (declare (not safe)) - (_K249152249211_ _rest249221_ _bind249219_))) + (_K249082249141_ _rest249151_ _bind249149_))) (let () (declare (not safe)) - (_else249150249170_))))))) - (_bind-e__0__260197260198_ - (lambda (_bind249226_ _body249227_) - (let ((_continue249229_ _optimize-e248543_)) + (_else249080249100_))))))) + (_bind-e__0__260127260128_ + (lambda (_bind249156_ _body249157_) + (let ((_continue249159_ _optimize-e248473_)) (declare (not safe)) - (_bind-e__260195260196_ - _bind249226_ - _body249227_ - _continue249229_)))) - (_bind-e248550_ - (lambda _g263648_ - (let ((_g263647_ + (_bind-e__260125260126_ + _bind249156_ + _body249157_ + _continue249159_)))) + (_bind-e248480_ + (lambda _g263578_ + (let ((_g263577_ (let () (declare (not safe)) - (##length _g263648_)))) - (cond ((let () (declare (not safe)) (##fx= _g263647_ 2)) - (apply (lambda (_bind249226_ _body249227_) + (##length _g263578_)))) + (cond ((let () (declare (not safe)) (##fx= _g263577_ 2)) + (apply (lambda (_bind249156_ _body249157_) (let () (declare (not safe)) - (_bind-e__0__260197260198_ - _bind249226_ - _body249227_))) - _g263648_)) - ((let () (declare (not safe)) (##fx= _g263647_ 3)) - (apply (lambda (_bind249231_ - _body249232_ - _continue249233_) + (_bind-e__0__260127260128_ + _bind249156_ + _body249157_))) + _g263578_)) + ((let () (declare (not safe)) (##fx= _g263577_ 3)) + (apply (lambda (_bind249161_ + _body249162_ + _continue249163_) (let () (declare (not safe)) - (_bind-e__260195260196_ - _bind249231_ - _body249232_ - _continue249233_))) - _g263648_)) + (_bind-e__260125260126_ + _bind249161_ + _body249162_ + _continue249163_))) + _g263578_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g263648_)))))) - (_lookup-block248551_ - (lambda (_id249133_) - (let ((__tmp263649 - (lambda (_block249135_) - (let ((__tmp263650 (car _block249135_))) + _g263578_)))))) + (_lookup-block248481_ + (lambda (_id249063_) + (let ((__tmp263579 + (lambda (_block249065_) + (let ((__tmp263580 (car _block249065_))) (declare (not safe)) (gx#free-identifier=? - __tmp263650 - _id249133_))))) + __tmp263580 + _id249063_))))) (declare (not safe)) - (find __tmp263649 _blocks248293_)))) - (_inline-block248552_ - (lambda (_block249009_ _args249010_) - (let* ((_kont249012_ (caddr _block249009_)) - (_g249014249040_ - (lambda (_g249015249037_) + (find __tmp263579 _blocks248223_)))) + (_inline-block248482_ + (lambda (_block248939_ _args248940_) + (let* ((_kont248942_ (caddr _block248939_)) + (_g248944248970_ + (lambda (_g248945248967_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249015249037_)))) - (_g249013249130_ - (lambda (_g249015249043_) + _g248945248967_)))) + (_g248943249060_ + (lambda (_g248945248973_) (if (let () (declare (not safe)) - (gx#stx-pair? _g249015249043_)) - (let ((_e249020249045_ + (gx#stx-pair? _g248945248973_)) + (let ((_e248950248975_ (let () (declare (not safe)) - (gx#stx-e _g249015249043_)))) - (let ((_hd249019249048_ + (gx#stx-e _g248945248973_)))) + (let ((_hd248949248978_ (let () (declare (not safe)) - (##car _e249020249045_))) - (_tl249018249050_ + (##car _e248950248975_))) + (_tl248948248980_ (let () (declare (not safe)) - (##cdr _e249020249045_)))) + (##cdr _e248950248975_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd249019249048_)) + (gx#identifier? _hd248949248978_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd249019249048_)) + _hd248949248978_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249018249050_)) - (let ((_e249023249053_ + _tl248948248980_)) + (let ((_e248953248983_ (let () (declare (not safe)) (gx#stx-e - _tl249018249050_)))) - (let ((_hd249022249056_ + _tl248948248980_)))) + (let ((_hd248952248986_ (let () (declare (not safe)) - (##car _e249023249053_))) - (_tl249021249058_ + (##car _e248953248983_))) + (_tl248951248988_ (let () (declare (not safe)) - (##cdr _e249023249053_)))) + (##cdr _e248953248983_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd249022249056_)) - (let ((_g263651_ + _hd248952248986_)) + (let ((_g263581_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd249022249056_ '0)))) + (gx#syntax-split-splice _hd248952248986_ '0)))) (begin - (let ((_g263652_ + (let ((_g263582_ (let () (declare (not safe)) - (if (##values? _g263651_) - (##vector-length _g263651_) + (if (##values? _g263581_) + (##vector-length _g263581_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263652_ 2))) - (error "Context expects 2 values" _g263652_))) - (let ((_target249024249061_ + (##fx= _g263582_ 2))) + (error "Context expects 2 values" _g263582_))) + (let ((_target248954248991_ (let () (declare (not safe)) - (##vector-ref _g263651_ 0))) - (_tl249026249063_ + (##vector-ref _g263581_ 0))) + (_tl248956248993_ (let () (declare (not safe)) - (##vector-ref _g263651_ 1)))) + (##vector-ref _g263581_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249026249063_)) - (letrec ((_loop249027249066_ - (lambda (_hd249025249069_ - _id249031249071_) + (gx#stx-null? _tl248956248993_)) + (letrec ((_loop248957248996_ + (lambda (_hd248955248999_ + _id248961249001_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249025249069_)) - (let ((_e249028249074_ + (gx#stx-pair? _hd248955248999_)) + (let ((_e248958249004_ (let () (declare (not safe)) (gx#stx-e - _hd249025249069_)))) - (let ((_lp-hd249029249077_ + _hd248955248999_)))) + (let ((_lp-hd248959249007_ (let () (declare (not safe)) - (##car _e249028249074_))) - (_lp-tl249030249079_ + (##car _e248958249004_))) + (_lp-tl248960249009_ (let () (declare (not safe)) - (##cdr _e249028249074_)))) - (let ((__tmp263656 + (##cdr _e248958249004_)))) + (let ((__tmp263586 (let () (declare (not safe)) - (cons _lp-hd249029249077_ - _id249031249071_)))) + (cons _lp-hd248959249007_ + _id248961249001_)))) (declare (not safe)) - (_loop249027249066_ - _lp-tl249030249079_ - __tmp263656)))) - (let ((_id249032249082_ - (reverse _id249031249071_))) + (_loop248957248996_ + _lp-tl248960249009_ + __tmp263586)))) + (let ((_id248962249012_ + (reverse _id248961249001_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249021249058_)) - (let ((_e249035249085_ + _tl248951248988_)) + (let ((_e248965249015_ (let () (declare (not safe)) (gx#stx-e - _tl249021249058_)))) - (let ((_hd249034249088_ + _tl248951248988_)))) + (let ((_hd248964249018_ (let () (declare (not safe)) - (##car _e249035249085_))) - (_tl249033249090_ + (##car _e248965249015_))) + (_tl248963249020_ (let () (declare (not safe)) - (##cdr _e249035249085_)))) + (##cdr _e248965249015_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl249033249090_)) - ((lambda (_L249093_ + _tl248963249020_)) + ((lambda (_L249023_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L249094_) - (if (let ((__tmp263654 - (let ((__tmp263655 - (lambda (_g249113249116_ - _g249114249118_) + _L249024_) + (if (let ((__tmp263584 + (let ((__tmp263585 + (lambda (_g249043249046_ + _g249044249048_) (let () (declare (not safe)) - (cons _g249113249116_ - _g249114249118_))))) + (cons _g249043249046_ + _g249044249048_))))) (declare (not safe)) - (foldr1 __tmp263655 '() _L249094_)))) + (foldr1 __tmp263585 '() _L249024_)))) (declare (not safe)) - (null? __tmp263654)) - _L249093_ - (let ((_subst249128_ + (null? __tmp263584)) + _L249023_ + (let ((_subst249058_ (map cons - (let ((__tmp263653 - (lambda (_g249120249123_ - _g249121249125_) + (let ((__tmp263583 + (lambda (_g249050249053_ + _g249051249055_) (let () (declare (not safe)) - (cons _g249120249123_ - _g249121249125_))))) + (cons _g249050249053_ + _g249051249055_))))) (declare (not safe)) - (foldr1 __tmp263653 '() _L249094_)) - _args249010_))) + (foldr1 __tmp263583 '() _L249024_)) + _args248940_))) (declare (not safe)) (gxc#apply-expression-subst* - _L249093_ - _subst249128_)))) - _hd249034249088_ - _id249032249082_) + _L249023_ + _subst249058_)))) + _hd248964249018_ + _id248962249012_) (let () (declare (not safe)) - (_g249014249040_ _g249015249043_))))) + (_g248944248970_ _g248945248973_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249014249040_ - _g249015249043_)))))))) + (_g248944248970_ + _g248945248973_)))))))) (let () (declare (not safe)) - (_loop249027249066_ - _target249024249061_ + (_loop248957248996_ + _target248954248991_ '()))) (let () (declare (not safe)) - (_g249014249040_ _g249015249043_)))))) + (_g248944248970_ _g248945248973_)))))) (let () (declare (not safe)) - (_g249014249040_ _g249015249043_))))) + (_g248944248970_ _g248945248973_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249014249040_ - _g249015249043_))) + (_g248944248970_ + _g248945248973_))) (let () (declare (not safe)) - (_g249014249040_ - _g249015249043_))) + (_g248944248970_ + _g248945248973_))) (let () (declare (not safe)) - (_g249014249040_ - _g249015249043_))))) + (_g248944248970_ + _g248945248973_))))) (let () (declare (not safe)) - (_g249014249040_ _g249015249043_)))))) + (_g248944248970_ _g248945248973_)))))) (declare (not safe)) - (_g249013249130_ _kont249012_)))) - (_nonlinear-block?248553_ - (lambda (_block248558_) - (letrec ((_nonlinear-expr?248560_ - (lambda (_expr248668_) - (let* ((___stx262282262283_ _expr248668_) - (_g248674248740_ + (_g248943249060_ _kont248942_)))) + (_nonlinear-block?248483_ + (lambda (_block248488_) + (letrec ((_nonlinear-expr?248490_ + (lambda (_expr248598_) + (let* ((___stx262212262213_ _expr248598_) + (_g248604248670_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx262282262283_))))) - (let ((___kont262284262285_ (lambda () '#t)) - (___kont262286262287_ - (lambda (_L248939_) - (let* ((___stx262264262265_ - _L248939_) - (_g248957248966_ + ___stx262212262213_))))) + (let ((___kont262214262215_ (lambda () '#t)) + (___kont262216262217_ + (lambda (_L248869_) + (let* ((___stx262194262195_ + _L248869_) + (_g248887248896_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx262264262265_))))) - (let ((___kont262266262267_ + ___stx262194262195_))))) + (let ((___kont262196262197_ (lambda () '#f)) - (___kont262268262269_ + (___kont262198262199_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx262264262265_)) - (let ((_e248961248978_ + ___stx262194262195_)) + (let ((_e248891248908_ (let () (declare (not safe)) (gx#stx-e - ___stx262264262265_)))) - (let ((_tl248959248983_ + ___stx262194262195_)))) + (let ((_tl248889248913_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e248961248978_))) - (_hd248960248981_ - (let () (declare (not safe)) (##car _e248961248978_)))) + (##cdr _e248891248908_))) + (_hd248890248911_ + (let () (declare (not safe)) (##car _e248891248908_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd248960248981_)) + (gx#identifier? _hd248890248911_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd248960248981_)) - (___kont262266262267_) - (___kont262268262269_)) - (___kont262268262269_)))) + (gx#stx-eq? '%#call _hd248890248911_)) + (___kont262196262197_) + (___kont262198262199_)) + (___kont262198262199_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont262268262269_)))))) - (___kont262290262291_ - (lambda (_L248837_) + (___kont262198262199_)))))) + (___kont262220262221_ + (lambda (_L248767_) (let () (declare (not safe)) - (_nonlinear-expr?248560_ - _L248837_)))) - (___kont262292262293_ - (lambda (_L248784_ - _L248785_ - _L248786_) - (let ((_$e248805_ + (_nonlinear-expr?248490_ + _L248767_)))) + (___kont262222262223_ + (lambda (_L248714_ + _L248715_ + _L248716_) + (let ((_$e248735_ (let () (declare (not safe)) - (_nonlinear-expr?248560_ - _L248785_)))) - (if _$e248805_ - _$e248805_ + (_nonlinear-expr?248490_ + _L248715_)))) + (if _$e248735_ + _$e248735_ (let () (declare (not safe)) - (_nonlinear-expr?248560_ - _L248784_)))))) - (___kont262294262295_ + (_nonlinear-expr?248490_ + _L248714_)))))) + (___kont262224262225_ (lambda () '#f))) - (let* ((___match262345262346_ - (lambda (_e248714248813_ - _hd248713248816_ - _tl248712248818_ - _e248717248821_ - _hd248716248824_ - _tl248715248826_) + (let* ((___match262275262276_ + (lambda (_e248644248743_ + _hd248643248746_ + _tl248642248748_ + _e248647248751_ + _hd248646248754_ + _tl248645248756_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248715248826_)) - (let ((_e248720248829_ + _tl248645248756_)) + (let ((_e248650248759_ (let () (declare (not safe)) (gx#stx-e - _tl248715248826_)))) - (let ((_tl248718248834_ + _tl248645248756_)))) + (let ((_tl248648248764_ (let () (declare (not safe)) - (##cdr _e248720248829_))) - (_hd248719248832_ + (##cdr _e248650248759_))) + (_hd248649248762_ (let () (declare (not safe)) - (##car _e248720248829_)))) + (##car _e248650248759_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl248718248834_)) - (___kont262290262291_ - _hd248719248832_) - (___kont262294262295_)))) - (___kont262294262295_)))) - (___match262329262330_ - (lambda (_e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_ - ___splice262288262289_ - _target248686248871_ - _tl248688248873_) - (letrec ((_loop248689248876_ - (lambda (_hd248687248879_) + _tl248648248764_)) + (___kont262220262221_ + _hd248649248762_) + (___kont262224262225_)))) + (___kont262224262225_)))) + (___match262259262260_ + (lambda (_e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_ + ___splice262218262219_ + _target248616248801_ + _tl248618248803_) + (letrec ((_loop248619248806_ + (lambda (_hd248617248809_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _hd248687248879_)) - (let ((_e248690248882_ + (gx#stx-pair? _hd248617248809_)) + (let ((_e248620248812_ (let () (declare (not safe)) - (gx#stx-e _hd248687248879_)))) - (let ((_lp-tl248692248887_ + (gx#stx-e _hd248617248809_)))) + (let ((_lp-tl248622248817_ (let () (declare (not safe)) - (##cdr _e248690248882_))) - (_lp-hd248691248885_ + (##cdr _e248620248812_))) + (_lp-hd248621248815_ (let () (declare (not safe)) - (##car _e248690248882_)))) + (##car _e248620248812_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd248691248885_)) - (let ((_e248695248890_ + (gx#stx-pair? _lp-hd248621248815_)) + (let ((_e248625248820_ (let () (declare (not safe)) - (gx#stx-e _lp-hd248691248885_)))) - (let ((_tl248693248895_ + (gx#stx-e _lp-hd248621248815_)))) + (let ((_tl248623248825_ (let () (declare (not safe)) - (##cdr _e248695248890_))) - (_hd248694248893_ + (##cdr _e248625248820_))) + (_hd248624248823_ (let () (declare (not safe)) - (##car _e248695248890_)))) + (##car _e248625248820_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248694248893_)) - (let ((_e248698248898_ + (gx#stx-pair? _hd248624248823_)) + (let ((_e248628248828_ (let () (declare (not safe)) - (gx#stx-e _hd248694248893_)))) - (let ((_tl248696248903_ + (gx#stx-e _hd248624248823_)))) + (let ((_tl248626248833_ (let () (declare (not safe)) - (##cdr _e248698248898_))) - (_hd248697248901_ + (##cdr _e248628248828_))) + (_hd248627248831_ (let () (declare (not safe)) - (##car _e248698248898_)))) + (##car _e248628248828_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl248696248903_)) + _tl248626248833_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248693248895_)) - (let ((_e248701248906_ + _tl248623248825_)) + (let ((_e248631248836_ (let () (declare (not safe)) (gx#stx-e - _tl248693248895_)))) - (let ((_tl248699248911_ + _tl248623248825_)))) + (let ((_tl248629248841_ (let () (declare (not safe)) - (##cdr _e248701248906_))) - (_hd248700248909_ + (##cdr _e248631248836_))) + (_hd248630248839_ (let () (declare (not safe)) - (##car _e248701248906_)))) + (##car _e248631248836_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd248700248909_)) - (let ((_e248704248914_ + _hd248630248839_)) + (let ((_e248634248844_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd248700248909_)))) - (let ((_tl248702248919_ + (gx#stx-e _hd248630248839_)))) + (let ((_tl248632248849_ (let () (declare (not safe)) - (##cdr _e248704248914_))) - (_hd248703248917_ + (##cdr _e248634248844_))) + (_hd248633248847_ (let () (declare (not safe)) - (##car _e248704248914_)))) + (##car _e248634248844_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd248703248917_)) + (gx#identifier? _hd248633248847_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd248703248917_)) + (gx#stx-eq? '%#ref _hd248633248847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248702248919_)) - (let ((_e248707248922_ + (gx#stx-pair? _tl248632248849_)) + (let ((_e248637248852_ (let () (declare (not safe)) - (gx#stx-e _tl248702248919_)))) - (let ((_tl248705248927_ + (gx#stx-e _tl248632248849_)))) + (let ((_tl248635248857_ (let () (declare (not safe)) - (##cdr _e248707248922_))) - (_hd248706248925_ + (##cdr _e248637248852_))) + (_hd248636248855_ (let () (declare (not safe)) - (##car _e248707248922_)))) + (##car _e248637248852_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248705248927_)) + (gx#stx-null? _tl248635248857_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl248699248911_)) + _tl248629248841_)) (let () (declare (not safe)) - (_loop248689248876_ - _lp-tl248692248887_)) - (___match262345262346_ - _e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_)) - (___match262345262346_ - _e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_)))) - (___match262345262346_ - _e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_)) - (___match262345262346_ - _e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_)) - (___match262345262346_ - _e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_)))) - (___match262345262346_ - _e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_)))) + (_loop248619248806_ + _lp-tl248622248817_)) + (___match262275262276_ + _e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_)) + (___match262275262276_ + _e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_)))) + (___match262275262276_ + _e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_)) + (___match262275262276_ + _e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_)) + (___match262275262276_ + _e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_)))) + (___match262275262276_ + _e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match262345262346_ - _e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_)) - (___match262345262346_ - _e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_)))) - (___match262345262346_ - _e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_)))) - (___match262345262346_ - _e248682248855_ - _hd248681248858_ - _tl248680248860_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_)))) + (___match262275262276_ + _e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_)) + (___match262275262276_ + _e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_)))) + (___match262275262276_ + _e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_)))) + (___match262275262276_ + _e248612248785_ + _hd248611248788_ + _tl248610248790_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_)))) (let () (if (let () (declare (not safe)) - (gx#stx-pair? _tl248683248868_)) - (let ((_e248710248931_ + (gx#stx-pair? _tl248613248798_)) + (let ((_e248640248861_ (let () (declare (not safe)) - (gx#stx-e _tl248683248868_)))) - (let ((_tl248708248936_ + (gx#stx-e _tl248613248798_)))) + (let ((_tl248638248866_ (let () (declare (not safe)) - (##cdr _e248710248931_))) - (_hd248709248934_ + (##cdr _e248640248861_))) + (_hd248639248864_ (let () (declare (not safe)) - (##car _e248710248931_)))) + (##car _e248640248861_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248708248936_)) - (___kont262286262287_ _hd248709248934_) - (___kont262294262295_)))) - (___kont262294262295_))))))) + (gx#stx-null? _tl248638248866_)) + (___kont262216262217_ _hd248639248864_) + (___kont262224262225_)))) + (___kont262224262225_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop248689248876_ - _target248686248871_)))))) + (_loop248619248806_ + _target248616248801_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx262282262283_)) - (let ((_e248678248996_ + ___stx262212262213_)) + (let ((_e248608248926_ (let () (declare (not safe)) (gx#stx-e - ___stx262282262283_)))) - (let ((_tl248676249001_ + ___stx262212262213_)))) + (let ((_tl248606248931_ (let () (declare (not safe)) - (##cdr _e248678248996_))) - (_hd248677248999_ + (##cdr _e248608248926_))) + (_hd248607248929_ (let () (declare (not safe)) - (##car _e248678248996_)))) + (##car _e248608248926_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd248677248999_)) + _hd248607248929_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd248677248999_)) - (___kont262284262285_) + _hd248607248929_)) + (___kont262214262215_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd248677248999_)) + _hd248607248929_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl248676249001_)) - (let ((_e248685248863_ + (gx#stx-pair? _tl248606248931_)) + (let ((_e248615248793_ (let () (declare (not safe)) - (gx#stx-e _tl248676249001_)))) - (let ((_tl248683248868_ + (gx#stx-e _tl248606248931_)))) + (let ((_tl248613248798_ (let () (declare (not safe)) - (##cdr _e248685248863_))) - (_hd248684248866_ + (##cdr _e248615248793_))) + (_hd248614248796_ (let () (declare (not safe)) - (##car _e248685248863_)))) + (##car _e248615248793_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd248684248866_)) - (let ((___splice262288262289_ + (gx#stx-pair/null? _hd248614248796_)) + (let ((___splice262218262219_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd248684248866_ + _hd248614248796_ '0)))) - (let ((_tl248688248873_ + (let ((_tl248618248803_ (let () (declare (not safe)) (##vector-ref - ___splice262288262289_ + ___splice262218262219_ '1))) - (_target248686248871_ + (_target248616248801_ (let () (declare (not safe)) (##vector-ref - ___splice262288262289_ + ___splice262218262219_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248688248873_)) - (___match262329262330_ - _e248678248996_ - _hd248677248999_ - _tl248676249001_ - _e248685248863_ - _hd248684248866_ - _tl248683248868_ - ___splice262288262289_ - _target248686248871_ - _tl248688248873_) + (gx#stx-null? _tl248618248803_)) + (___match262259262260_ + _e248608248926_ + _hd248607248929_ + _tl248606248931_ + _e248615248793_ + _hd248614248796_ + _tl248613248798_ + ___splice262218262219_ + _target248616248801_ + _tl248618248803_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248683248868_)) - (let ((_e248720248829_ + (gx#stx-pair? _tl248613248798_)) + (let ((_e248650248759_ (let () (declare (not safe)) (gx#stx-e - _tl248683248868_)))) - (let ((_tl248718248834_ + _tl248613248798_)))) + (let ((_tl248648248764_ (let () (declare (not safe)) - (##cdr _e248720248829_))) - (_hd248719248832_ + (##cdr _e248650248759_))) + (_hd248649248762_ (let () (declare (not safe)) - (##car _e248720248829_)))) + (##car _e248650248759_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl248718248834_)) - (___kont262290262291_ - _hd248719248832_) - (___kont262294262295_)))) - (___kont262294262295_))))) + _tl248648248764_)) + (___kont262220262221_ + _hd248649248762_) + (___kont262224262225_)))) + (___kont262224262225_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248683248868_)) - (let ((_e248720248829_ + (gx#stx-pair? _tl248613248798_)) + (let ((_e248650248759_ (let () (declare (not safe)) - (gx#stx-e _tl248683248868_)))) - (let ((_tl248718248834_ + (gx#stx-e _tl248613248798_)))) + (let ((_tl248648248764_ (let () (declare (not safe)) - (##cdr _e248720248829_))) - (_hd248719248832_ + (##cdr _e248650248759_))) + (_hd248649248762_ (let () (declare (not safe)) - (##car _e248720248829_)))) + (##car _e248650248759_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248718248834_)) - (___kont262290262291_ - _hd248719248832_) - (___kont262294262295_)))) - (___kont262294262295_))))) - (___kont262294262295_)) + (gx#stx-null? _tl248648248764_)) + (___kont262220262221_ + _hd248649248762_) + (___kont262224262225_)))) + (___kont262224262225_))))) + (___kont262224262225_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd248677248999_)) + (gx#stx-eq? '%#if _hd248607248929_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248676249001_)) - (let ((_e248729248760_ + (gx#stx-pair? _tl248606248931_)) + (let ((_e248659248690_ (let () (declare (not safe)) - (gx#stx-e _tl248676249001_)))) - (let ((_tl248727248765_ + (gx#stx-e _tl248606248931_)))) + (let ((_tl248657248695_ (let () (declare (not safe)) - (##cdr _e248729248760_))) - (_hd248728248763_ + (##cdr _e248659248690_))) + (_hd248658248693_ (let () (declare (not safe)) - (##car _e248729248760_)))) + (##car _e248659248690_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248727248765_)) - (let ((_e248732248768_ + (gx#stx-pair? _tl248657248695_)) + (let ((_e248662248698_ (let () (declare (not safe)) - (gx#stx-e _tl248727248765_)))) - (let ((_tl248730248773_ + (gx#stx-e _tl248657248695_)))) + (let ((_tl248660248703_ (let () (declare (not safe)) - (##cdr _e248732248768_))) - (_hd248731248771_ + (##cdr _e248662248698_))) + (_hd248661248701_ (let () (declare (not safe)) - (##car _e248732248768_)))) + (##car _e248662248698_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248730248773_)) - (let ((_e248735248776_ + (gx#stx-pair? _tl248660248703_)) + (let ((_e248665248706_ (let () (declare (not safe)) (gx#stx-e - _tl248730248773_)))) - (let ((_tl248733248781_ + _tl248660248703_)))) + (let ((_tl248663248711_ (let () (declare (not safe)) - (##cdr _e248735248776_))) - (_hd248734248779_ + (##cdr _e248665248706_))) + (_hd248664248709_ (let () (declare (not safe)) - (##car _e248735248776_)))) + (##car _e248665248706_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl248733248781_)) - (___kont262292262293_ - _hd248734248779_ - _hd248731248771_ - _hd248728248763_) - (___kont262294262295_)))) - (___kont262294262295_)))) - (___kont262294262295_)))) - (___kont262294262295_)) - (___kont262294262295_)))) + _tl248663248711_)) + (___kont262222262223_ + _hd248664248709_ + _hd248661248701_ + _hd248658248693_) + (___kont262224262225_)))) + (___kont262224262225_)))) + (___kont262224262225_)))) + (___kont262224262225_)) + (___kont262224262225_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont262294262295_)))) - (___kont262294262295_)))))))) - (let* ((_kont248562_ (caddr _block248558_)) - (_g248564248590_ - (lambda (_g248565248587_) + (___kont262224262225_)))) + (___kont262224262225_)))))))) + (let* ((_kont248492_ (caddr _block248488_)) + (_g248494248520_ + (lambda (_g248495248517_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g248565248587_)))) - (_g248563248665_ - (lambda (_g248565248593_) + _g248495248517_)))) + (_g248493248595_ + (lambda (_g248495248523_) (if (let () (declare (not safe)) - (gx#stx-pair? _g248565248593_)) - (let ((_e248570248595_ + (gx#stx-pair? _g248495248523_)) + (let ((_e248500248525_ (let () (declare (not safe)) - (gx#stx-e _g248565248593_)))) - (let ((_hd248569248598_ + (gx#stx-e _g248495248523_)))) + (let ((_hd248499248528_ (let () (declare (not safe)) - (##car _e248570248595_))) - (_tl248568248600_ + (##car _e248500248525_))) + (_tl248498248530_ (let () (declare (not safe)) - (##cdr _e248570248595_)))) + (##cdr _e248500248525_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd248569248598_)) + _hd248499248528_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd248569248598_)) + _hd248499248528_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248568248600_)) - (let ((_e248573248603_ + _tl248498248530_)) + (let ((_e248503248533_ (let () (declare (not safe)) (gx#stx-e - _tl248568248600_)))) - (let ((_hd248572248606_ + _tl248498248530_)))) + (let ((_hd248502248536_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e248573248603_))) - (_tl248571248608_ - (let () (declare (not safe)) (##cdr _e248573248603_)))) + (##car _e248503248533_))) + (_tl248501248538_ + (let () (declare (not safe)) (##cdr _e248503248533_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd248572248606_)) - (let ((_g263657_ + (gx#stx-pair/null? _hd248502248536_)) + (let ((_g263587_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd248572248606_ '0)))) + (gx#syntax-split-splice _hd248502248536_ '0)))) (begin - (let ((_g263658_ + (let ((_g263588_ (let () (declare (not safe)) - (if (##values? _g263657_) - (##vector-length _g263657_) + (if (##values? _g263587_) + (##vector-length _g263587_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263658_ 2))) - (error "Context expects 2 values" _g263658_))) - (let ((_target248574248611_ + (##fx= _g263588_ 2))) + (error "Context expects 2 values" _g263588_))) + (let ((_target248504248541_ (let () (declare (not safe)) - (##vector-ref _g263657_ 0))) - (_tl248576248613_ + (##vector-ref _g263587_ 0))) + (_tl248506248543_ (let () (declare (not safe)) - (##vector-ref _g263657_ 1)))) + (##vector-ref _g263587_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248576248613_)) - (letrec ((_loop248577248616_ - (lambda (_hd248575248619_ - _id248581248621_) + (gx#stx-null? _tl248506248543_)) + (letrec ((_loop248507248546_ + (lambda (_hd248505248549_ + _id248511248551_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd248575248619_)) - (let ((_e248578248624_ + _hd248505248549_)) + (let ((_e248508248554_ (let () (declare (not safe)) (gx#stx-e - _hd248575248619_)))) - (let ((_lp-hd248579248627_ + _hd248505248549_)))) + (let ((_lp-hd248509248557_ (let () (declare (not safe)) - (##car _e248578248624_))) - (_lp-tl248580248629_ + (##car _e248508248554_))) + (_lp-tl248510248559_ (let () (declare (not safe)) - (##cdr _e248578248624_)))) - (let ((__tmp263659 + (##cdr _e248508248554_)))) + (let ((__tmp263589 (let () (declare (not safe)) - (cons _lp-hd248579248627_ + (cons _lp-hd248509248557_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id248581248621_)))) + _id248511248551_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop248577248616_ - _lp-tl248580248629_ - __tmp263659)))) - (let ((_id248582248632_ - (reverse _id248581248621_))) + (_loop248507248546_ + _lp-tl248510248559_ + __tmp263589)))) + (let ((_id248512248562_ + (reverse _id248511248551_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248571248608_)) - (let ((_e248585248635_ + _tl248501248538_)) + (let ((_e248515248565_ (let () (declare (not safe)) (gx#stx-e - _tl248571248608_)))) - (let ((_hd248584248638_ + _tl248501248538_)))) + (let ((_hd248514248568_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e248585248635_))) - (_tl248583248640_ - (let () (declare (not safe)) (##cdr _e248585248635_)))) + (##car _e248515248565_))) + (_tl248513248570_ + (let () (declare (not safe)) (##cdr _e248515248565_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248583248640_)) - ((lambda (_L248643_ _L248644_) + (gx#stx-null? _tl248513248570_)) + ((lambda (_L248573_ _L248574_) (let () (declare (not safe)) - (_nonlinear-expr?248560_ _L248643_))) - _hd248584248638_ - _id248582248632_) + (_nonlinear-expr?248490_ _L248573_))) + _hd248514248568_ + _id248512248562_) (let () (declare (not safe)) - (_g248564248590_ _g248565248593_))))) + (_g248494248520_ _g248495248523_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248564248590_ - _g248565248593_)))))))) + (_g248494248520_ + _g248495248523_)))))))) (let () (declare (not safe)) - (_loop248577248616_ - _target248574248611_ + (_loop248507248546_ + _target248504248541_ '()))) (let () (declare (not safe)) - (_g248564248590_ _g248565248593_)))))) + (_g248494248520_ _g248495248523_)))))) (let () (declare (not safe)) - (_g248564248590_ _g248565248593_))))) + (_g248494248520_ _g248495248523_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248564248590_ - _g248565248593_))) + (_g248494248520_ + _g248495248523_))) (let () (declare (not safe)) - (_g248564248590_ - _g248565248593_))) + (_g248494248520_ + _g248495248523_))) (let () (declare (not safe)) - (_g248564248590_ - _g248565248593_))))) + (_g248494248520_ + _g248495248523_))))) (let () (declare (not safe)) - (_g248564248590_ _g248565248593_)))))) + (_g248494248520_ _g248495248523_)))))) (declare (not safe)) - (_g248563248665_ _kont248562_)))))) - (let ((__tmp263660 + (_g248493248595_ _kont248492_)))))) + (let ((__tmp263590 (lambda () - (let ((__tmp263661 + (let ((__tmp263591 (lambda () (if (memq '@match:prefix (gxc#current-annotation-optimizer)) - (let ((__tmp263662 + (let ((__tmp263592 (lambda () (let () (declare (not safe)) - (_optimize-e248543_ - _body248290_))))) + (_optimize-e248473_ + _body248220_))))) (declare (not safe)) - (_do-splice!248542_ __tmp263662)) + (_do-splice!248472_ __tmp263592)) (let () (declare (not safe)) - (_optimize-e248543_ _body248290_)))))) + (_optimize-e248473_ _body248220_)))))) (declare (not safe)) - (_do-bind248539_ _bind248292_ __tmp263661))))) + (_do-bind248469_ _bind248222_ __tmp263591))))) (declare (not safe)) - (_do-assert248532_ _assert248291_ __tmp263660))))) + (_do-assert248462_ _assert248221_ __tmp263590))))) (define gxc#optimize-match-prune-blocks - (lambda (_blocks248202_ _konts248203_) - (letrec* ((_rtab248205_ + (lambda (_blocks248132_ _konts248133_) + (letrec* ((_rtab248135_ (let () (declare (not safe)) (make-table 'test: eq?)))) (for-each - (lambda (_block248207_) - (let ((__tmp263663 (caddr _block248207_))) + (lambda (_block248137_) + (let ((__tmp263593 (caddr _block248137_))) (declare (not safe)) - (gxc#apply-collect-runtime-refs __tmp263663 _rtab248205_))) - _konts248203_) - (let _lp248209_ ((_rest248211_ _blocks248202_) (_r248212_ '())) - (let* ((_rest248213248221_ _rest248211_) - (_else248215248229_ (lambda () (reverse _r248212_))) - (_K248217248278_ - (lambda (_rest248232_ _block248233_) - (let* ((_block248234248245_ _block248233_) - (_E248236248249_ + (gxc#apply-collect-runtime-refs __tmp263593 _rtab248135_))) + _konts248133_) + (let _lp248139_ ((_rest248141_ _blocks248132_) (_r248142_ '())) + (let* ((_rest248143248151_ _rest248141_) + (_else248145248159_ (lambda () (reverse _r248142_))) + (_K248147248208_ + (lambda (_rest248162_ _block248163_) + (let* ((_block248164248175_ _block248163_) + (_E248166248179_ (lambda () (error '"No clause matching" - _block248234248245_))) - (_K248237248256_ - (lambda (_kont248252_ _type248253_ _name248254_) - (if (let ((__tmp263665 + _block248164248175_))) + (_K248167248186_ + (lambda (_kont248182_ _type248183_ _name248184_) + (if (let ((__tmp263595 (let () (declare (not safe)) (gxc#identifier-symbol - _name248254_)))) + _name248184_)))) (declare (not safe)) - (table-ref _rtab248205_ __tmp263665 '#f)) + (table-ref _rtab248135_ __tmp263595 '#f)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs - _kont248252_ - _rtab248205_)) - (let ((__tmp263664 + _kont248182_ + _rtab248135_)) + (let ((__tmp263594 (let () (declare (not safe)) - (cons _block248233_ - _r248212_)))) + (cons _block248163_ + _r248142_)))) (declare (not safe)) - (_lp248209_ _rest248232_ __tmp263664))) + (_lp248139_ _rest248162_ __tmp263594))) (let () (declare (not safe)) - (_lp248209_ _rest248232_ _r248212_)))))) + (_lp248139_ _rest248162_ _r248142_)))))) (if (let () (declare (not safe)) - (##pair? _block248234248245_)) - (let ((_hd248238248259_ + (##pair? _block248164248175_)) + (let ((_hd248168248189_ (let () (declare (not safe)) - (##car _block248234248245_))) - (_tl248239248261_ + (##car _block248164248175_))) + (_tl248169248191_ (let () (declare (not safe)) - (##cdr _block248234248245_)))) - (let ((_name248264_ _hd248238248259_)) + (##cdr _block248164248175_)))) + (let ((_name248194_ _hd248168248189_)) (if (let () (declare (not safe)) - (##pair? _tl248239248261_)) - (let ((_hd248240248266_ + (##pair? _tl248169248191_)) + (let ((_hd248170248196_ (let () (declare (not safe)) - (##car _tl248239248261_))) - (_tl248241248268_ + (##car _tl248169248191_))) + (_tl248171248198_ (let () (declare (not safe)) - (##cdr _tl248239248261_)))) - (let ((_type248271_ _hd248240248266_)) + (##cdr _tl248169248191_)))) + (let ((_type248201_ _hd248170248196_)) (if (let () (declare (not safe)) - (##pair? _tl248241248268_)) - (let* ((_hd248242248273_ + (##pair? _tl248171248198_)) + (let* ((_hd248172248203_ (let () (declare (not safe)) - (##car _tl248241248268_))) - (_kont248276_ - _hd248242248273_)) + (##car _tl248171248198_))) + (_kont248206_ + _hd248172248203_)) (declare (not safe)) - (_K248237248256_ - _kont248276_ - _type248271_ - _name248264_)) + (_K248167248186_ + _kont248206_ + _type248201_ + _name248194_)) (let () (declare (not safe)) - (_E248236248249_))))) + (_E248166248179_))))) (let () (declare (not safe)) - (_E248236248249_))))) + (_E248166248179_))))) (let () (declare (not safe)) - (_E248236248249_))))))) - (if (let () (declare (not safe)) (##pair? _rest248213248221_)) - (let ((_hd248218248281_ + (_E248166248179_))))))) + (if (let () (declare (not safe)) (##pair? _rest248143248151_)) + (let ((_hd248148248211_ (let () (declare (not safe)) - (##car _rest248213248221_))) - (_tl248219248283_ + (##car _rest248143248151_))) + (_tl248149248213_ (let () (declare (not safe)) - (##cdr _rest248213248221_)))) - (let* ((_block248286_ _hd248218248281_) - (_rest248288_ _tl248219248283_)) + (##cdr _rest248143248151_)))) + (let* ((_block248216_ _hd248148248211_) + (_rest248218_ _tl248149248213_)) (declare (not safe)) - (_K248217248278_ _rest248288_ _block248286_))) - (let () (declare (not safe)) (_else248215248229_)))))))) + (_K248147248208_ _rest248218_ _block248216_))) + (let () (declare (not safe)) (_else248145248159_)))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_blocks248126_ _konts248127_) - (let* ((_blocks248128248144_ _blocks248126_) - (_else248130248152_ (lambda () _blocks248126_)) - (_K248132248170_ - (lambda (_rest248155_ _kont248156_ _name248157_) - (letrec* ((_rtab248159_ + (lambda (_blocks248056_ _konts248057_) + (let* ((_blocks248058248074_ _blocks248056_) + (_else248060248082_ (lambda () _blocks248056_)) + (_K248062248100_ + (lambda (_rest248085_ _kont248086_ _name248087_) + (letrec* ((_rtab248089_ (let () (declare (not safe)) (make-table 'test: eq?)))) (for-each - (lambda (_block248161_) - (let ((__tmp263666 (caddr _block248161_))) + (lambda (_block248091_) + (let ((__tmp263596 (caddr _block248091_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp263666 - _rtab248159_))) - _konts248127_) - (if (fx= (let ((__tmp263674 + __tmp263596 + _rtab248089_))) + _konts248057_) + (if (fx= (let ((__tmp263604 (let () (declare (not safe)) - (gxc#identifier-symbol _name248157_)))) + (gxc#identifier-symbol _name248087_)))) (declare (not safe)) - (table-ref _rtab248159_ __tmp263674)) + (table-ref _rtab248089_ __tmp263604)) '1) - (let* ((_rblock248165_ - (let ((__tmp263667 - (lambda (_block248163_) - (let ((__tmp263669 - (caddr _block248163_)) - (__tmp263668 + (let* ((_rblock248095_ + (let ((__tmp263597 + (lambda (_block248093_) + (let ((__tmp263599 + (caddr _block248093_)) + (__tmp263598 (let () (declare (not safe)) - (cons _name248157_ '())))) + (cons _name248087_ '())))) (declare (not safe)) (gxc#apply-find-var-refs - __tmp263669 - __tmp263668))))) + __tmp263599 + __tmp263598))))) (declare (not safe)) - (find __tmp263667 _konts248127_))) - (_assert248167_ + (find __tmp263597 _konts248057_))) + (_assert248097_ (let () (declare (not safe)) (gxc#optimize-match-assert-restart - _rblock248165_ - _name248157_)))) - (let ((__tmp263670 - (let ((__tmp263671 - (let ((__tmp263672 - (let ((__tmp263673 + _rblock248095_ + _name248087_)))) + (let ((__tmp263600 + (let ((__tmp263601 + (let ((__tmp263602 + (let ((__tmp263603 (let () (declare (not safe)) - (cons _assert248167_ + (cons _assert248097_ '())))) (declare (not safe)) - (cons _kont248156_ - __tmp263673)))) + (cons _kont248086_ + __tmp263603)))) (declare (not safe)) - (cons 'restart: __tmp263672)))) + (cons 'restart: __tmp263602)))) (declare (not safe)) - (cons _name248157_ __tmp263671)))) + (cons _name248087_ __tmp263601)))) (declare (not safe)) - (cons __tmp263670 _rest248155_))) - _blocks248126_))))) - (if (let () (declare (not safe)) (##pair? _blocks248128248144_)) - (let ((_hd248133248173_ + (cons __tmp263600 _rest248085_))) + _blocks248056_))))) + (if (let () (declare (not safe)) (##pair? _blocks248058248074_)) + (let ((_hd248063248103_ (let () (declare (not safe)) - (##car _blocks248128248144_))) - (_tl248134248175_ + (##car _blocks248058248074_))) + (_tl248064248105_ (let () (declare (not safe)) - (##cdr _blocks248128248144_)))) - (if (let () (declare (not safe)) (##pair? _hd248133248173_)) - (let ((_hd248135248178_ + (##cdr _blocks248058248074_)))) + (if (let () (declare (not safe)) (##pair? _hd248063248103_)) + (let ((_hd248065248108_ (let () (declare (not safe)) - (##car _hd248133248173_))) - (_tl248136248180_ + (##car _hd248063248103_))) + (_tl248066248110_ (let () (declare (not safe)) - (##cdr _hd248133248173_)))) - (let ((_name248183_ _hd248135248178_)) + (##cdr _hd248063248103_)))) + (let ((_name248113_ _hd248065248108_)) (if (let () (declare (not safe)) - (##pair? _tl248136248180_)) - (let ((_hd248137248185_ + (##pair? _tl248066248110_)) + (let ((_hd248067248115_ (let () (declare (not safe)) - (##car _tl248136248180_))) - (_tl248138248187_ + (##car _tl248066248110_))) + (_tl248068248117_ (let () (declare (not safe)) - (##cdr _tl248136248180_)))) + (##cdr _tl248066248110_)))) (if (let () (declare (not safe)) - (##eq? _hd248137248185_ 'restart:)) + (##eq? _hd248067248115_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl248138248187_)) - (let ((_hd248139248190_ + (##pair? _tl248068248117_)) + (let ((_hd248069248120_ (let () (declare (not safe)) - (##car _tl248138248187_))) - (_tl248140248192_ + (##car _tl248068248117_))) + (_tl248070248122_ (let () (declare (not safe)) - (##cdr _tl248138248187_)))) - (let ((_kont248195_ _hd248139248190_)) + (##cdr _tl248068248117_)))) + (let ((_kont248125_ _hd248069248120_)) (if (let () (declare (not safe)) - (##pair? _tl248140248192_)) - (let ((_tl248142248197_ + (##pair? _tl248070248122_)) + (let ((_tl248072248127_ (let () (declare (not safe)) - (##cdr _tl248140248192_)))) + (##cdr _tl248070248122_)))) (if (let () (declare (not safe)) - (##null? _tl248142248197_)) - (let ((_rest248200_ - _tl248134248175_)) + (##null? _tl248072248127_)) + (let ((_rest248130_ + _tl248064248105_)) (declare (not safe)) - (_K248132248170_ - _rest248200_ - _kont248195_ - _name248183_)) + (_K248062248100_ + _rest248130_ + _kont248125_ + _name248113_)) (let () (declare (not safe)) - (_else248130248152_)))) + (_else248060248082_)))) (let () (declare (not safe)) - (_else248130248152_))))) + (_else248060248082_))))) (let () (declare (not safe)) - (_else248130248152_))) + (_else248060248082_))) (let () (declare (not safe)) - (_else248130248152_)))) + (_else248060248082_)))) (let () (declare (not safe)) - (_else248130248152_))))) - (let () (declare (not safe)) (_else248130248152_)))) - (let () (declare (not safe)) (_else248130248152_)))))) + (_else248060248082_))))) + (let () (declare (not safe)) (_else248060248082_)))) + (let () (declare (not safe)) (_else248060248082_)))))) (define gxc#optimize-match-assert-restart - (lambda (_block247522_ _name247523_) - (letrec ((_assert-restart247525_ - (lambda (_expr247681_ _assert247682_) - (let* ((___stx262386262387_ _expr247681_) - (_g247688247785_ + (lambda (_block247452_ _name247453_) + (letrec ((_assert-restart247455_ + (lambda (_expr247611_ _assert247612_) + (let* ((___stx262316262317_ _expr247611_) + (_g247618247715_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx262386262387_))))) - (let ((___kont262388262389_ - (lambda (_L248101_ _L248102_ _L248103_) - (let ((_$e248120_ - (let ((__tmp263675 - (let ((__tmp263676 + ___stx262316262317_))))) + (let ((___kont262318262319_ + (lambda (_L248031_ _L248032_ _L248033_) + (let ((_$e248050_ + (let ((__tmp263605 + (let ((__tmp263606 (let () (declare (not safe)) - (cons _L248103_ '#t)))) + (cons _L248033_ '#t)))) (declare (not safe)) - (cons __tmp263676 - _assert247682_)))) + (cons __tmp263606 + _assert247612_)))) (declare (not safe)) - (_assert-restart247525_ - _L248102_ - __tmp263675)))) - (if _$e248120_ - _$e248120_ - (let ((__tmp263677 - (let ((__tmp263678 + (_assert-restart247455_ + _L248032_ + __tmp263605)))) + (if _$e248050_ + _$e248050_ + (let ((__tmp263607 + (let ((__tmp263608 (let () (declare (not safe)) - (cons _L248103_ '#f)))) + (cons _L248033_ '#f)))) (declare (not safe)) - (cons __tmp263678 - _assert247682_)))) + (cons __tmp263608 + _assert247612_)))) (declare (not safe)) - (_assert-restart247525_ - _L248101_ - __tmp263677)))))) - (___kont262390262391_ - (lambda (_L248049_) + (_assert-restart247455_ + _L248031_ + __tmp263607)))))) + (___kont262320262321_ + (lambda (_L247979_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L248049_ - _name247523_)) - _assert247682_ + _L247979_ + _name247453_)) + _assert247612_ '#f))) - (___kont262392262393_ - (lambda (_L247999_) + (___kont262322262323_ + (lambda (_L247929_) (let () (declare (not safe)) - (_assert-restart247525_ - _L247999_ - _assert247682_)))) - (___kont262394262395_ - (lambda (_L247925_ - _L247926_ - _L247927_ - _L247928_ - _L247929_) + (_assert-restart247455_ + _L247929_ + _assert247612_)))) + (___kont262324262325_ + (lambda (_L247855_ + _L247856_ + _L247857_ + _L247858_ + _L247859_) (let () (declare (not safe)) - (_assert-restart247525_ - _L247927_ - _assert247682_)))) - (___kont262400262401_ (lambda () '#f))) - (let ((___match262555262556_ - (lambda (_e247735247797_ - _hd247734247800_ - _tl247733247802_ - _e247738247805_ - _hd247737247808_ - _tl247736247810_ - _e247741247813_ - _hd247740247816_ - _tl247739247818_ - _e247744247821_ - _hd247743247824_ - _tl247742247826_ - _e247747247829_ - _hd247746247832_ - _tl247745247834_ - _e247750247837_ - _hd247749247840_ - _tl247748247842_ - _e247753247845_ - _hd247752247848_ - _tl247751247850_ - _e247756247853_ - _hd247755247856_ - _tl247754247858_ - ___splice262396262397_ - _target247757247861_ - _tl247759247863_) - (letrec ((_loop247760247866_ - (lambda (_hd247758247869_ - _id247764247871_) + (_assert-restart247455_ + _L247857_ + _assert247612_)))) + (___kont262330262331_ (lambda () '#f))) + (let ((___match262485262486_ + (lambda (_e247665247727_ + _hd247664247730_ + _tl247663247732_ + _e247668247735_ + _hd247667247738_ + _tl247666247740_ + _e247671247743_ + _hd247670247746_ + _tl247669247748_ + _e247674247751_ + _hd247673247754_ + _tl247672247756_ + _e247677247759_ + _hd247676247762_ + _tl247675247764_ + _e247680247767_ + _hd247679247770_ + _tl247678247772_ + _e247683247775_ + _hd247682247778_ + _tl247681247780_ + _e247686247783_ + _hd247685247786_ + _tl247684247788_ + ___splice262326262327_ + _target247687247791_ + _tl247689247793_) + (letrec ((_loop247690247796_ + (lambda (_hd247688247799_ + _id247694247801_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd247758247869_)) - (let ((_e247761247874_ + _hd247688247799_)) + (let ((_e247691247804_ (let () (declare (not safe)) (gx#stx-e - _hd247758247869_)))) - (let ((_lp-tl247763247879_ + _hd247688247799_)))) + (let ((_lp-tl247693247809_ (let () (declare (not safe)) - (##cdr _e247761247874_))) - (_lp-hd247762247877_ + (##cdr _e247691247804_))) + (_lp-hd247692247807_ (let () (declare (not safe)) - (##car _e247761247874_)))) - (let ((__tmp263680 + (##car _e247691247804_)))) + (let ((__tmp263610 (let () (declare (not safe)) - (cons _lp-hd247762247877_ + (cons _lp-hd247692247807_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id247764247871_)))) + _id247694247801_)))) (declare (not safe)) - (_loop247760247866_ _lp-tl247763247879_ __tmp263680)))) + (_loop247690247796_ _lp-tl247693247809_ __tmp263610)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id247765247882_ - (reverse _id247764247871_))) + (let ((_id247695247812_ + (reverse _id247694247801_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247754247858_)) - (let ((_e247768247885_ + _tl247684247788_)) + (let ((_e247698247815_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl247754247858_)))) - (let ((_tl247766247890_ - (let () (declare (not safe)) (##cdr _e247768247885_))) - (_hd247767247888_ - (let () (declare (not safe)) (##car _e247768247885_)))) + (gx#stx-e _tl247684247788_)))) + (let ((_tl247696247820_ + (let () (declare (not safe)) (##cdr _e247698247815_))) + (_hd247697247818_ + (let () (declare (not safe)) (##car _e247698247815_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247766247890_)) + (gx#stx-null? _tl247696247820_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl247748247842_)) + (gx#stx-null? _tl247678247772_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl247739247818_)) - (let ((___splice262398262399_ + (gx#stx-pair/null? _tl247669247748_)) + (let ((___splice262328262329_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl247739247818_ + _tl247669247748_ '0)))) - (let ((_tl247771247895_ + (let ((_tl247701247825_ (let () (declare (not safe)) (##vector-ref - ___splice262398262399_ + ___splice262328262329_ '1))) - (_target247769247893_ + (_target247699247823_ (let () (declare (not safe)) (##vector-ref - ___splice262398262399_ + ___splice262328262329_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247771247895_)) - (letrec ((_loop247772247898_ - (lambda (_hd247770247901_ - _bind247776247903_) + (gx#stx-null? _tl247701247825_)) + (letrec ((_loop247702247828_ + (lambda (_hd247700247831_ + _bind247706247833_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd247770247901_)) - (let ((_e247773247906_ + _hd247700247831_)) + (let ((_e247703247836_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd247770247901_)))) - (let ((_lp-tl247775247911_ - (let () (declare (not safe)) (##cdr _e247773247906_))) - (_lp-hd247774247909_ - (let () (declare (not safe)) (##car _e247773247906_)))) - (let ((__tmp263679 + (gx#stx-e _hd247700247831_)))) + (let ((_lp-tl247705247841_ + (let () (declare (not safe)) (##cdr _e247703247836_))) + (_lp-hd247704247839_ + (let () (declare (not safe)) (##car _e247703247836_)))) + (let ((__tmp263609 (let () (declare (not safe)) - (cons _lp-hd247774247909_ _bind247776247903_)))) + (cons _lp-hd247704247839_ _bind247706247833_)))) (declare (not safe)) - (_loop247772247898_ _lp-tl247775247911_ __tmp263679)))) - (let ((_bind247777247914_ (reverse _bind247776247903_))) + (_loop247702247828_ _lp-tl247705247841_ __tmp263609)))) + (let ((_bind247707247844_ (reverse _bind247706247833_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247736247810_)) - (let ((_e247780247917_ + (gx#stx-pair? _tl247666247740_)) + (let ((_e247710247847_ (let () (declare (not safe)) - (gx#stx-e _tl247736247810_)))) - (let ((_tl247778247922_ + (gx#stx-e _tl247666247740_)))) + (let ((_tl247708247852_ (let () (declare (not safe)) - (##cdr _e247780247917_))) - (_hd247779247920_ + (##cdr _e247710247847_))) + (_hd247709247850_ (let () (declare (not safe)) - (##car _e247780247917_)))) + (##car _e247710247847_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247778247922_)) - (___kont262394262395_ - _hd247779247920_ - _bind247777247914_ - _hd247767247888_ - _id247765247882_ - _hd247746247832_) - (___kont262400262401_)))) - (___kont262400262401_))))))) + (gx#stx-null? _tl247708247852_)) + (___kont262324262325_ + _hd247709247850_ + _bind247707247844_ + _hd247697247818_ + _id247695247812_ + _hd247676247762_) + (___kont262330262331_)))) + (___kont262330262331_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop247772247898_ - _target247769247893_ + (_loop247702247828_ + _target247699247823_ '()))) - (___kont262400262401_)))) - (___kont262400262401_)) - (___kont262400262401_)) - (___kont262400262401_)))) - (___kont262400262401_))))))) + (___kont262330262331_)))) + (___kont262330262331_)) + (___kont262330262331_)) + (___kont262330262331_)))) + (___kont262330262331_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop247760247866_ - _target247757247861_ + (_loop247690247796_ + _target247687247791_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx262386262387_)) - (let ((_e247695248069_ + (gx#stx-pair? ___stx262316262317_)) + (let ((_e247625247999_ (let () (declare (not safe)) - (gx#stx-e ___stx262386262387_)))) - (let ((_tl247693248074_ + (gx#stx-e ___stx262316262317_)))) + (let ((_tl247623248004_ (let () (declare (not safe)) - (##cdr _e247695248069_))) - (_hd247694248072_ + (##cdr _e247625247999_))) + (_hd247624248002_ (let () (declare (not safe)) - (##car _e247695248069_)))) + (##car _e247625247999_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd247694248072_)) + (gx#identifier? _hd247624248002_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd247694248072_)) + _hd247624248002_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247693248074_)) - (let ((_e247698248077_ + _tl247623248004_)) + (let ((_e247628248007_ (let () (declare (not safe)) (gx#stx-e - _tl247693248074_)))) - (let ((_tl247696248082_ + _tl247623248004_)))) + (let ((_tl247626248012_ (let () (declare (not safe)) - (##cdr _e247698248077_))) - (_hd247697248080_ + (##cdr _e247628248007_))) + (_hd247627248010_ (let () (declare (not safe)) - (##car _e247698248077_)))) + (##car _e247628248007_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247696248082_)) - (let ((_e247701248085_ + _tl247626248012_)) + (let ((_e247631248015_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl247696248082_)))) - (let ((_tl247699248090_ - (let () (declare (not safe)) (##cdr _e247701248085_))) - (_hd247700248088_ - (let () (declare (not safe)) (##car _e247701248085_)))) + (gx#stx-e _tl247626248012_)))) + (let ((_tl247629248020_ + (let () (declare (not safe)) (##cdr _e247631248015_))) + (_hd247630248018_ + (let () (declare (not safe)) (##car _e247631248015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247699248090_)) - (let ((_e247704248093_ + (gx#stx-pair? _tl247629248020_)) + (let ((_e247634248023_ (let () (declare (not safe)) - (gx#stx-e _tl247699248090_)))) - (let ((_tl247702248098_ + (gx#stx-e _tl247629248020_)))) + (let ((_tl247632248028_ (let () (declare (not safe)) - (##cdr _e247704248093_))) - (_hd247703248096_ + (##cdr _e247634248023_))) + (_hd247633248026_ (let () (declare (not safe)) - (##car _e247704248093_)))) + (##car _e247634248023_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247702248098_)) - (___kont262388262389_ - _hd247703248096_ - _hd247700248088_ - _hd247697248080_) - (___kont262400262401_)))) - (___kont262400262401_)))) - (___kont262400262401_)))) + (gx#stx-null? _tl247632248028_)) + (___kont262318262319_ + _hd247633248026_ + _hd247630248018_ + _hd247627248010_) + (___kont262330262331_)))) + (___kont262330262331_)))) + (___kont262330262331_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont262400262401_)) + (___kont262330262331_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd247694248072_)) + _hd247624248002_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247693248074_)) - (let ((_e247711248025_ + _tl247623248004_)) + (let ((_e247641247955_ (let () (declare (not safe)) (gx#stx-e - _tl247693248074_)))) - (let ((_tl247709248030_ + _tl247623248004_)))) + (let ((_tl247639247960_ (let () (declare (not safe)) - (##cdr _e247711248025_))) - (_hd247710248028_ + (##cdr _e247641247955_))) + (_hd247640247958_ (let () (declare (not safe)) - (##car _e247711248025_)))) + (##car _e247641247955_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd247710248028_)) - (let ((_e247714248033_ + _hd247640247958_)) + (let ((_e247644247963_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd247710248028_)))) - (let ((_tl247712248038_ + (gx#stx-e _hd247640247958_)))) + (let ((_tl247642247968_ (let () (declare (not safe)) - (##cdr _e247714248033_))) - (_hd247713248036_ + (##cdr _e247644247963_))) + (_hd247643247966_ (let () (declare (not safe)) - (##car _e247714248033_)))) + (##car _e247644247963_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd247713248036_)) + (gx#identifier? _hd247643247966_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd247713248036_)) + (gx#stx-eq? '%#ref _hd247643247966_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247712248038_)) - (let ((_e247717248041_ + (gx#stx-pair? _tl247642247968_)) + (let ((_e247647247971_ (let () (declare (not safe)) - (gx#stx-e _tl247712248038_)))) - (let ((_tl247715248046_ + (gx#stx-e _tl247642247968_)))) + (let ((_tl247645247976_ (let () (declare (not safe)) - (##cdr _e247717248041_))) - (_hd247716248044_ + (##cdr _e247647247971_))) + (_hd247646247974_ (let () (declare (not safe)) - (##car _e247717248041_)))) + (##car _e247647247971_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247715248046_)) - (___kont262390262391_ - _hd247716248044_) - (___kont262400262401_)))) - (___kont262400262401_)) - (___kont262400262401_)) - (___kont262400262401_)))) - (___kont262400262401_)))) + (gx#stx-null? _tl247645247976_)) + (___kont262320262321_ + _hd247646247974_) + (___kont262330262331_)))) + (___kont262330262331_)) + (___kont262330262331_)) + (___kont262330262331_)))) + (___kont262330262331_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont262400262401_)) + (___kont262330262331_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd247694248072_)) + _hd247624248002_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247693248074_)) - (let ((_e247724247983_ + _tl247623248004_)) + (let ((_e247654247913_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl247693248074_)))) - (let ((_tl247722247988_ - (let () (declare (not safe)) (##cdr _e247724247983_))) - (_hd247723247986_ - (let () (declare (not safe)) (##car _e247724247983_)))) + (gx#stx-e _tl247623248004_)))) + (let ((_tl247652247918_ + (let () (declare (not safe)) (##cdr _e247654247913_))) + (_hd247653247916_ + (let () (declare (not safe)) (##car _e247654247913_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247722247988_)) - (let ((_e247727247991_ + (gx#stx-pair? _tl247652247918_)) + (let ((_e247657247921_ (let () (declare (not safe)) - (gx#stx-e _tl247722247988_)))) - (let ((_tl247725247996_ + (gx#stx-e _tl247652247918_)))) + (let ((_tl247655247926_ (let () (declare (not safe)) - (##cdr _e247727247991_))) - (_hd247726247994_ + (##cdr _e247657247921_))) + (_hd247656247924_ (let () (declare (not safe)) - (##car _e247727247991_)))) + (##car _e247657247921_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247725247996_)) - (___kont262392262393_ _hd247726247994_) - (___kont262400262401_)))) - (___kont262400262401_)))) - (___kont262400262401_)) + (gx#stx-null? _tl247655247926_)) + (___kont262322262323_ _hd247656247924_) + (___kont262330262331_)))) + (___kont262330262331_)))) + (___kont262330262331_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd247694248072_)) + _hd247624248002_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247693248074_)) - (let ((_e247738247805_ + _tl247623248004_)) + (let ((_e247668247735_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl247693248074_)))) - (let ((_tl247736247810_ + (gx#stx-e _tl247623248004_)))) + (let ((_tl247666247740_ (let () (declare (not safe)) - (##cdr _e247738247805_))) - (_hd247737247808_ + (##cdr _e247668247735_))) + (_hd247667247738_ (let () (declare (not safe)) - (##car _e247738247805_)))) + (##car _e247668247735_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247737247808_)) - (let ((_e247741247813_ + (gx#stx-pair? _hd247667247738_)) + (let ((_e247671247743_ (let () (declare (not safe)) - (gx#stx-e _hd247737247808_)))) - (let ((_tl247739247818_ + (gx#stx-e _hd247667247738_)))) + (let ((_tl247669247748_ (let () (declare (not safe)) - (##cdr _e247741247813_))) - (_hd247740247816_ + (##cdr _e247671247743_))) + (_hd247670247746_ (let () (declare (not safe)) - (##car _e247741247813_)))) + (##car _e247671247743_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247740247816_)) - (let ((_e247744247821_ + (gx#stx-pair? _hd247670247746_)) + (let ((_e247674247751_ (let () (declare (not safe)) - (gx#stx-e _hd247740247816_)))) - (let ((_tl247742247826_ + (gx#stx-e _hd247670247746_)))) + (let ((_tl247672247756_ (let () (declare (not safe)) - (##cdr _e247744247821_))) - (_hd247743247824_ + (##cdr _e247674247751_))) + (_hd247673247754_ (let () (declare (not safe)) - (##car _e247744247821_)))) + (##car _e247674247751_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247743247824_)) - (let ((_e247747247829_ + (gx#stx-pair? _hd247673247754_)) + (let ((_e247677247759_ (let () (declare (not safe)) (gx#stx-e - _hd247743247824_)))) - (let ((_tl247745247834_ + _hd247673247754_)))) + (let ((_tl247675247764_ (let () (declare (not safe)) - (##cdr _e247747247829_))) - (_hd247746247832_ + (##cdr _e247677247759_))) + (_hd247676247762_ (let () (declare (not safe)) - (##car _e247747247829_)))) + (##car _e247677247759_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl247745247834_)) + _tl247675247764_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247742247826_)) - (let ((_e247750247837_ + _tl247672247756_)) + (let ((_e247680247767_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl247742247826_)))) - (let ((_tl247748247842_ - (let () (declare (not safe)) (##cdr _e247750247837_))) - (_hd247749247840_ - (let () (declare (not safe)) (##car _e247750247837_)))) + (gx#stx-e _tl247672247756_)))) + (let ((_tl247678247772_ + (let () (declare (not safe)) (##cdr _e247680247767_))) + (_hd247679247770_ + (let () (declare (not safe)) (##car _e247680247767_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247749247840_)) - (let ((_e247753247845_ + (gx#stx-pair? _hd247679247770_)) + (let ((_e247683247775_ (let () (declare (not safe)) - (gx#stx-e _hd247749247840_)))) - (let ((_tl247751247850_ + (gx#stx-e _hd247679247770_)))) + (let ((_tl247681247780_ (let () (declare (not safe)) - (##cdr _e247753247845_))) - (_hd247752247848_ + (##cdr _e247683247775_))) + (_hd247682247778_ (let () (declare (not safe)) - (##car _e247753247845_)))) + (##car _e247683247775_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd247752247848_)) + (gx#identifier? _hd247682247778_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd247752247848_)) + (gx#stx-eq? '%#lambda _hd247682247778_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247751247850_)) - (let ((_e247756247853_ + (gx#stx-pair? _tl247681247780_)) + (let ((_e247686247783_ (let () (declare (not safe)) - (gx#stx-e _tl247751247850_)))) - (let ((_tl247754247858_ + (gx#stx-e _tl247681247780_)))) + (let ((_tl247684247788_ (let () (declare (not safe)) - (##cdr _e247756247853_))) - (_hd247755247856_ + (##cdr _e247686247783_))) + (_hd247685247786_ (let () (declare (not safe)) - (##car _e247756247853_)))) + (##car _e247686247783_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd247755247856_)) - (let ((___splice262396262397_ + _hd247685247786_)) + (let ((___splice262326262327_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd247755247856_ + _hd247685247786_ '0)))) - (let ((_tl247759247863_ + (let ((_tl247689247793_ (let () (declare (not safe)) (##vector-ref - ___splice262396262397_ + ___splice262326262327_ '1))) - (_target247757247861_ + (_target247687247791_ (let () (declare (not safe)) (##vector-ref - ___splice262396262397_ + ___splice262326262327_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl247759247863_)) - (___match262555262556_ - _e247695248069_ - _hd247694248072_ - _tl247693248074_ - _e247738247805_ - _hd247737247808_ - _tl247736247810_ - _e247741247813_ - _hd247740247816_ - _tl247739247818_ - _e247744247821_ - _hd247743247824_ - _tl247742247826_ - _e247747247829_ - _hd247746247832_ - _tl247745247834_ - _e247750247837_ - _hd247749247840_ - _tl247748247842_ - _e247753247845_ - _hd247752247848_ - _tl247751247850_ - _e247756247853_ - _hd247755247856_ - _tl247754247858_ - ___splice262396262397_ - _target247757247861_ - _tl247759247863_) - (___kont262400262401_)))) - (___kont262400262401_)))) - (___kont262400262401_)) - (___kont262400262401_)) - (___kont262400262401_)))) - (___kont262400262401_)))) - (___kont262400262401_)) + _tl247689247793_)) + (___match262485262486_ + _e247625247999_ + _hd247624248002_ + _tl247623248004_ + _e247668247735_ + _hd247667247738_ + _tl247666247740_ + _e247671247743_ + _hd247670247746_ + _tl247669247748_ + _e247674247751_ + _hd247673247754_ + _tl247672247756_ + _e247677247759_ + _hd247676247762_ + _tl247675247764_ + _e247680247767_ + _hd247679247770_ + _tl247678247772_ + _e247683247775_ + _hd247682247778_ + _tl247681247780_ + _e247686247783_ + _hd247685247786_ + _tl247684247788_ + ___splice262326262327_ + _target247687247791_ + _tl247689247793_) + (___kont262330262331_)))) + (___kont262330262331_)))) + (___kont262330262331_)) + (___kont262330262331_)) + (___kont262330262331_)))) + (___kont262330262331_)))) + (___kont262330262331_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont262400262401_)))) - (___kont262400262401_)))) - (___kont262400262401_)))) - (___kont262400262401_)))) - (___kont262400262401_)) - (___kont262400262401_))))) + (___kont262330262331_)))) + (___kont262330262331_)))) + (___kont262330262331_)))) + (___kont262330262331_)))) + (___kont262330262331_)) + (___kont262330262331_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont262400262401_)))) - (___kont262400262401_)))))))) - (let* ((_block247526247539_ _block247522_) - (_E247528247543_ + (___kont262330262331_)))) + (___kont262330262331_)))))))) + (let* ((_block247456247469_ _block247452_) + (_E247458247473_ (lambda () - (error '"No clause matching" _block247526247539_))) - (_K247529247656_ - (lambda (_maybe-bind247546_ _assert247547_ _kont247548_) - (let* ((_g247550247576_ - (lambda (_g247551247573_) + (error '"No clause matching" _block247456247469_))) + (_K247459247586_ + (lambda (_maybe-bind247476_ _assert247477_ _kont247478_) + (let* ((_g247480247506_ + (lambda (_g247481247503_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g247551247573_)))) - (_g247549247653_ - (lambda (_g247551247579_) + _g247481247503_)))) + (_g247479247583_ + (lambda (_g247481247509_) (if (let () (declare (not safe)) - (gx#stx-pair? _g247551247579_)) - (let ((_e247556247581_ + (gx#stx-pair? _g247481247509_)) + (let ((_e247486247511_ (let () (declare (not safe)) - (gx#stx-e _g247551247579_)))) - (let ((_hd247555247584_ + (gx#stx-e _g247481247509_)))) + (let ((_hd247485247514_ (let () (declare (not safe)) - (##car _e247556247581_))) - (_tl247554247586_ + (##car _e247486247511_))) + (_tl247484247516_ (let () (declare (not safe)) - (##cdr _e247556247581_)))) + (##cdr _e247486247511_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd247555247584_)) + (gx#identifier? _hd247485247514_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd247555247584_)) + _hd247485247514_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247554247586_)) - (let ((_e247559247589_ + _tl247484247516_)) + (let ((_e247489247519_ (let () (declare (not safe)) (gx#stx-e - _tl247554247586_)))) - (let ((_hd247558247592_ + _tl247484247516_)))) + (let ((_hd247488247522_ (let () (declare (not safe)) - (##car _e247559247589_))) - (_tl247557247594_ + (##car _e247489247519_))) + (_tl247487247524_ (let () (declare (not safe)) - (##cdr _e247559247589_)))) + (##cdr _e247489247519_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd247558247592_)) - (let ((_g263681_ + _hd247488247522_)) + (let ((_g263611_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd247558247592_ '0)))) + (gx#syntax-split-splice _hd247488247522_ '0)))) (begin - (let ((_g263682_ + (let ((_g263612_ (let () (declare (not safe)) - (if (##values? _g263681_) - (##vector-length _g263681_) + (if (##values? _g263611_) + (##vector-length _g263611_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263682_ 2))) - (error "Context expects 2 values" _g263682_))) - (let ((_target247560247597_ + (##fx= _g263612_ 2))) + (error "Context expects 2 values" _g263612_))) + (let ((_target247490247527_ (let () (declare (not safe)) - (##vector-ref _g263681_ 0))) - (_tl247562247599_ + (##vector-ref _g263611_ 0))) + (_tl247492247529_ (let () (declare (not safe)) - (##vector-ref _g263681_ 1)))) + (##vector-ref _g263611_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247562247599_)) - (letrec ((_loop247563247602_ - (lambda (_hd247561247605_ - _id247567247607_) + (gx#stx-null? _tl247492247529_)) + (letrec ((_loop247493247532_ + (lambda (_hd247491247535_ + _id247497247537_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247561247605_)) - (let ((_e247564247610_ + (gx#stx-pair? _hd247491247535_)) + (let ((_e247494247540_ (let () (declare (not safe)) (gx#stx-e - _hd247561247605_)))) - (let ((_lp-hd247565247613_ + _hd247491247535_)))) + (let ((_lp-hd247495247543_ (let () (declare (not safe)) - (##car _e247564247610_))) - (_lp-tl247566247615_ + (##car _e247494247540_))) + (_lp-tl247496247545_ (let () (declare (not safe)) - (##cdr _e247564247610_)))) - (let ((__tmp263683 + (##cdr _e247494247540_)))) + (let ((__tmp263613 (let () (declare (not safe)) - (cons _lp-hd247565247613_ - _id247567247607_)))) + (cons _lp-hd247495247543_ + _id247497247537_)))) (declare (not safe)) - (_loop247563247602_ - _lp-tl247566247615_ - __tmp263683)))) - (let ((_id247568247618_ - (reverse _id247567247607_))) + (_loop247493247532_ + _lp-tl247496247545_ + __tmp263613)))) + (let ((_id247498247548_ + (reverse _id247497247537_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247557247594_)) - (let ((_e247571247621_ + _tl247487247524_)) + (let ((_e247501247551_ (let () (declare (not safe)) (gx#stx-e - _tl247557247594_)))) - (let ((_hd247570247624_ + _tl247487247524_)))) + (let ((_hd247500247554_ (let () (declare (not safe)) - (##car _e247571247621_))) - (_tl247569247626_ + (##car _e247501247551_))) + (_tl247499247556_ (let () (declare (not safe)) - (##cdr _e247571247621_)))) + (##cdr _e247501247551_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl247569247626_)) - ((lambda (_L247629_ + _tl247499247556_)) + ((lambda (_L247559_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L247630_) + _L247560_) (let () (declare (not safe)) - (_assert-restart247525_ _L247629_ _assert247547_))) - _hd247570247624_ - _id247568247618_) + (_assert-restart247455_ _L247559_ _assert247477_))) + _hd247500247554_ + _id247498247548_) (let () (declare (not safe)) - (_g247550247576_ _g247551247579_))))) + (_g247480247506_ _g247481247509_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g247550247576_ - _g247551247579_)))))))) + (_g247480247506_ + _g247481247509_)))))))) (let () (declare (not safe)) - (_loop247563247602_ _target247560247597_ '()))) + (_loop247493247532_ _target247490247527_ '()))) (let () (declare (not safe)) - (_g247550247576_ _g247551247579_)))))) + (_g247480247506_ _g247481247509_)))))) (let () (declare (not safe)) - (_g247550247576_ _g247551247579_))))) + (_g247480247506_ _g247481247509_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g247550247576_ - _g247551247579_))) + (_g247480247506_ + _g247481247509_))) (let () (declare (not safe)) - (_g247550247576_ - _g247551247579_))) + (_g247480247506_ + _g247481247509_))) (let () (declare (not safe)) - (_g247550247576_ - _g247551247579_))))) + (_g247480247506_ + _g247481247509_))))) (let () (declare (not safe)) - (_g247550247576_ _g247551247579_)))))) + (_g247480247506_ _g247481247509_)))))) (declare (not safe)) - (_g247549247653_ _kont247548_))))) - (if (let () (declare (not safe)) (##pair? _block247526247539_)) - (let ((_tl247531247659_ + (_g247479247583_ _kont247478_))))) + (if (let () (declare (not safe)) (##pair? _block247456247469_)) + (let ((_tl247461247589_ (let () (declare (not safe)) - (##cdr _block247526247539_)))) - (if (let () (declare (not safe)) (##pair? _tl247531247659_)) - (let ((_tl247533247662_ + (##cdr _block247456247469_)))) + (if (let () (declare (not safe)) (##pair? _tl247461247589_)) + (let ((_tl247463247592_ (let () (declare (not safe)) - (##cdr _tl247531247659_)))) + (##cdr _tl247461247589_)))) (if (let () (declare (not safe)) - (##pair? _tl247533247662_)) - (let ((_hd247534247665_ + (##pair? _tl247463247592_)) + (let ((_hd247464247595_ (let () (declare (not safe)) - (##car _tl247533247662_))) - (_tl247535247667_ + (##car _tl247463247592_))) + (_tl247465247597_ (let () (declare (not safe)) - (##cdr _tl247533247662_)))) - (let ((_kont247670_ _hd247534247665_)) + (##cdr _tl247463247592_)))) + (let ((_kont247600_ _hd247464247595_)) (if (let () (declare (not safe)) - (##pair? _tl247535247667_)) - (let ((_hd247536247672_ + (##pair? _tl247465247597_)) + (let ((_hd247466247602_ (let () (declare (not safe)) - (##car _tl247535247667_))) - (_tl247537247674_ + (##car _tl247465247597_))) + (_tl247467247604_ (let () (declare (not safe)) - (##cdr _tl247535247667_)))) - (let* ((_assert247677_ _hd247536247672_) - (_maybe-bind247679_ - _tl247537247674_)) + (##cdr _tl247465247597_)))) + (let* ((_assert247607_ _hd247466247602_) + (_maybe-bind247609_ + _tl247467247604_)) (declare (not safe)) - (_K247529247656_ - _maybe-bind247679_ - _assert247677_ - _kont247670_))) + (_K247459247586_ + _maybe-bind247609_ + _assert247607_ + _kont247600_))) (let () (declare (not safe)) - (_E247528247543_))))) - (let () (declare (not safe)) (_E247528247543_)))) - (let () (declare (not safe)) (_E247528247543_)))) - (let () (declare (not safe)) (_E247528247543_))))))) + (_E247458247473_))))) + (let () (declare (not safe)) (_E247458247473_)))) + (let () (declare (not safe)) (_E247458247473_)))) + (let () (declare (not safe)) (_E247458247473_))))))) (define gxc#optimize-syntax-case - (lambda (_stx247153_) - (let* ((_g247155247185_ - (lambda (_g247156247182_) + (lambda (_stx247083_) + (let* ((_g247085247115_ + (lambda (_g247086247112_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g247156247182_)))) - (_g247154247519_ - (lambda (_g247156247188_) + _g247086247112_)))) + (_g247084247449_ + (lambda (_g247086247118_) (if (let () (declare (not safe)) - (gx#stx-pair? _g247156247188_)) - (let ((_e247162247190_ + (gx#stx-pair? _g247086247118_)) + (let ((_e247092247120_ (let () (declare (not safe)) - (gx#stx-e _g247156247188_)))) - (let ((_hd247161247193_ + (gx#stx-e _g247086247118_)))) + (let ((_hd247091247123_ (let () (declare (not safe)) - (##car _e247162247190_))) - (_tl247160247195_ + (##car _e247092247120_))) + (_tl247090247125_ (let () (declare (not safe)) - (##cdr _e247162247190_)))) + (##cdr _e247092247120_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd247161247193_)) + (gx#identifier? _hd247091247123_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd247161247193_)) + _hd247091247123_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247160247195_)) - (let ((_e247165247198_ + (gx#stx-pair? _tl247090247125_)) + (let ((_e247095247128_ (let () (declare (not safe)) - (gx#stx-e _tl247160247195_)))) - (let ((_hd247164247201_ + (gx#stx-e _tl247090247125_)))) + (let ((_hd247094247131_ (let () (declare (not safe)) - (##car _e247165247198_))) - (_tl247163247203_ + (##car _e247095247128_))) + (_tl247093247133_ (let () (declare (not safe)) - (##cdr _e247165247198_)))) + (##cdr _e247095247128_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd247164247201_)) - (let ((_e247168247206_ + _hd247094247131_)) + (let ((_e247098247136_ (let () (declare (not safe)) (gx#stx-e - _hd247164247201_)))) - (let ((_hd247167247209_ + _hd247094247131_)))) + (let ((_hd247097247139_ (let () (declare (not safe)) - (##car _e247168247206_))) - (_tl247166247211_ + (##car _e247098247136_))) + (_tl247096247141_ (let () (declare (not safe)) - (##cdr _e247168247206_)))) + (##cdr _e247098247136_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd247167247209_)) - (let ((_e247171247214_ + _hd247097247139_)) + (let ((_e247101247144_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd247167247209_)))) - (let ((_hd247170247217_ - (let () (declare (not safe)) (##car _e247171247214_))) - (_tl247169247219_ - (let () (declare (not safe)) (##cdr _e247171247214_)))) + (gx#stx-e _hd247097247139_)))) + (let ((_hd247100247147_ + (let () (declare (not safe)) (##car _e247101247144_))) + (_tl247099247149_ + (let () (declare (not safe)) (##cdr _e247101247144_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247170247217_)) - (let ((_e247174247222_ + (gx#stx-pair? _hd247100247147_)) + (let ((_e247104247152_ (let () (declare (not safe)) - (gx#stx-e _hd247170247217_)))) - (let ((_hd247173247225_ + (gx#stx-e _hd247100247147_)))) + (let ((_hd247103247155_ (let () (declare (not safe)) - (##car _e247174247222_))) - (_tl247172247227_ + (##car _e247104247152_))) + (_tl247102247157_ (let () (declare (not safe)) - (##cdr _e247174247222_)))) + (##cdr _e247104247152_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247172247227_)) + (gx#stx-null? _tl247102247157_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247169247219_)) - (let ((_e247177247230_ + (gx#stx-pair? _tl247099247149_)) + (let ((_e247107247160_ (let () (declare (not safe)) - (gx#stx-e _tl247169247219_)))) - (let ((_hd247176247233_ + (gx#stx-e _tl247099247149_)))) + (let ((_hd247106247163_ (let () (declare (not safe)) - (##car _e247177247230_))) - (_tl247175247235_ + (##car _e247107247160_))) + (_tl247105247165_ (let () (declare (not safe)) - (##cdr _e247177247230_)))) + (##cdr _e247107247160_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247175247235_)) + (gx#stx-null? _tl247105247165_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl247166247211_)) + _tl247096247141_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247163247203_)) - (let ((_e247180247238_ + _tl247093247133_)) + (let ((_e247110247168_ (let () (declare (not safe)) (gx#stx-e - _tl247163247203_)))) - (let ((_hd247179247241_ + _tl247093247133_)))) + (let ((_hd247109247171_ (let () (declare (not safe)) - (##car _e247180247238_))) - (_tl247178247243_ + (##car _e247110247168_))) + (_tl247108247173_ (let () (declare (not safe)) - (##cdr _e247180247238_)))) + (##cdr _e247110247168_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl247178247243_)) - ((lambda (_L247246_ + _tl247108247173_)) + ((lambda (_L247176_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L247247_ - _L247248_) - (let _lp247272_ ((_body247274_ _L247246_) - (_clauses247275_ '())) - (let* ((___stx262558262559_ _body247274_) - (_g247278247325_ + _L247177_ + _L247178_) + (let _lp247202_ ((_body247204_ _L247176_) + (_clauses247205_ '())) + (let* ((___stx262488262489_ _body247204_) + (_g247208247255_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx262558262559_))))) - (let ((___kont262560262561_ - (lambda (_L247491_ _L247492_ _L247493_) - (let ((__tmp263684 - (let ((__tmp263685 - (let ((__tmp263686 + ___stx262488262489_))))) + (let ((___kont262490262491_ + (lambda (_L247421_ _L247422_ _L247423_) + (let ((__tmp263614 + (let ((__tmp263615 + (let ((__tmp263616 (let () (declare (not safe)) (gxc#compile-e__0 - _L247492_)))) + _L247422_)))) (declare (not safe)) - (cons _L247493_ - __tmp263686)))) + (cons _L247423_ + __tmp263616)))) (declare (not safe)) - (cons __tmp263685 - _clauses247275_)))) + (cons __tmp263615 + _clauses247205_)))) (declare (not safe)) - (_lp247272_ _L247491_ __tmp263684)))) - (___kont262562262563_ - (lambda (_L247370_ _L247371_) - (let ((_$e247392_ (length _clauses247275_))) + (_lp247202_ _L247421_ __tmp263614)))) + (___kont262492262493_ + (lambda (_L247300_ _L247301_) + (let ((_$e247322_ (length _clauses247205_))) (if (let () (declare (not safe)) - (eq? '0 _$e247392_)) - (let ((__tmp263704 - (let ((__tmp263705 - (let ((__tmp263708 - (let ((__tmp263709 + (eq? '0 _$e247322_)) + (let ((__tmp263634 + (let ((__tmp263635 + (let ((__tmp263638 + (let ((__tmp263639 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263711 + (let ((__tmp263641 (let () (declare (not safe)) - (cons _L247248_ '()))) - (__tmp263710 + (cons _L247178_ '()))) + (__tmp263640 (let () (declare (not safe)) - (cons _L247247_ '())))) + (cons _L247177_ '())))) (declare (not safe)) - (cons __tmp263711 __tmp263710)))) + (cons __tmp263641 __tmp263640)))) (declare (not safe)) - (cons __tmp263709 '()))) - (__tmp263706 - (let ((__tmp263707 + (cons __tmp263639 '()))) + (__tmp263636 + (let ((__tmp263637 (let () (declare (not safe)) - (gxc#compile-e__0 _body247274_)))) + (gxc#compile-e__0 _body247204_)))) (declare (not safe)) - (cons __tmp263707 '())))) + (cons __tmp263637 '())))) (declare (not safe)) - (cons __tmp263708 __tmp263706)))) + (cons __tmp263638 __tmp263636)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp263705)))) + __tmp263635)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp263704 - _stx247153_)) + __tmp263634 + _stx247083_)) (if (let () (declare (not safe)) - (eq? '1 _$e247392_)) - (let* ((_clauses247394247403_ - _clauses247275_) - (_E247396247407_ + (eq? '1 _$e247322_)) + (let* ((_clauses247324247333_ + _clauses247205_) + (_E247326247337_ (lambda () (error '"No clause matching" - _clauses247394247403_))) - (_K247397247413_ - (lambda (_clause-lambda247410_ - _clause247411_) - (let ((__tmp263689 - (let ((__tmp263690 + _clauses247324247333_))) + (_K247327247343_ + (lambda (_clause-lambda247340_ + _clause247341_) + (let ((__tmp263619 + (let ((__tmp263620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263700 - (let ((__tmp263701 - (let ((__tmp263703 + (let ((__tmp263630 + (let ((__tmp263631 + (let ((__tmp263633 (let () (declare (not safe)) - (cons _L247248_ '()))) - (__tmp263702 + (cons _L247178_ '()))) + (__tmp263632 (let () (declare (not safe)) - (cons _L247247_ '())))) + (cons _L247177_ '())))) (declare (not safe)) - (cons __tmp263703 __tmp263702)))) + (cons __tmp263633 __tmp263632)))) (declare (not safe)) - (cons __tmp263701 '()))) - (__tmp263691 - (let ((__tmp263692 - (let ((__tmp263693 - (let ((__tmp263696 - (let ((__tmp263697 - (let ((__tmp263699 + (cons __tmp263631 '()))) + (__tmp263621 + (let ((__tmp263622 + (let ((__tmp263623 + (let ((__tmp263626 + (let ((__tmp263627 + (let ((__tmp263629 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _clause247411_ '()))) - (__tmp263698 + (cons _clause247341_ '()))) + (__tmp263628 (let () (declare (not safe)) - (cons _clause-lambda247410_ '())))) + (cons _clause-lambda247340_ '())))) (declare (not safe)) - (cons __tmp263699 __tmp263698)))) + (cons __tmp263629 __tmp263628)))) (declare (not safe)) - (cons __tmp263697 '()))) - (__tmp263694 - (let ((__tmp263695 + (cons __tmp263627 '()))) + (__tmp263624 + (let ((__tmp263625 (let () (declare (not safe)) - (gxc#compile-e__0 _body247274_)))) + (gxc#compile-e__0 _body247204_)))) (declare (not safe)) - (cons __tmp263695 '())))) + (cons __tmp263625 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263696 - __tmp263694)))) + (cons __tmp263626 + __tmp263624)))) (declare (not safe)) - (cons '%#let-values __tmp263693)))) + (cons '%#let-values __tmp263623)))) (declare (not safe)) - (cons __tmp263692 '())))) + (cons __tmp263622 '())))) (declare (not safe)) - (cons __tmp263700 __tmp263691)))) + (cons __tmp263630 __tmp263621)))) (declare (not safe)) - (cons '%#let-values __tmp263690)))) + (cons '%#let-values __tmp263620)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp263689 _stx247153_))))) + (gxc#xform-wrap-source __tmp263619 _stx247083_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _clauses247394247403_)) - (let ((_hd247398247416_ + (##pair? _clauses247324247333_)) + (let ((_hd247328247346_ (let () (declare (not safe)) - (##car _clauses247394247403_))) - (_tl247399247418_ + (##car _clauses247324247333_))) + (_tl247329247348_ (let () (declare (not safe)) - (##cdr _clauses247394247403_)))) + (##cdr _clauses247324247333_)))) (if (let () (declare (not safe)) - (##pair? _hd247398247416_)) - (let ((_hd247400247421_ + (##pair? _hd247328247346_)) + (let ((_hd247330247351_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _hd247398247416_))) - (_tl247401247423_ - (let () (declare (not safe)) (##cdr _hd247398247416_)))) - (let* ((_clause247426_ _hd247400247421_) - (_clause-lambda247428_ _tl247401247423_)) + (##car _hd247328247346_))) + (_tl247331247353_ + (let () (declare (not safe)) (##cdr _hd247328247346_)))) + (let* ((_clause247356_ _hd247330247351_) + (_clause-lambda247358_ _tl247331247353_)) (if (let () (declare (not safe)) - (##null? _tl247399247418_)) + (##null? _tl247329247348_)) (let () (declare (not safe)) - (_K247397247413_ - _clause-lambda247428_ - _clause247426_)) - (let () (declare (not safe)) (_E247396247407_))))) - (let () (declare (not safe)) (_E247396247407_)))) + (_K247327247343_ + _clause-lambda247358_ + _clause247356_)) + (let () (declare (not safe)) (_E247326247337_))))) + (let () (declare (not safe)) (_E247326247337_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E247396247407_)))) - (let ((__tmp263688 + (_E247326247337_)))) + (let ((__tmp263618 (let () (declare (not safe)) (gxc#compile-e__0 - _L247370_))) - (__tmp263687 + _L247300_))) + (__tmp263617 (let () (declare (not safe)) - (cons _L247248_ - _L247247_)))) + (cons _L247178_ + _L247177_)))) (declare (not safe)) (gxc#optimize-syntax-case-body - _stx247153_ - __tmp263688 - __tmp263687 - _clauses247275_)))))))) + _stx247083_ + __tmp263618 + __tmp263617 + _clauses247205_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx262558262559_)) - (let ((_e247285247435_ + (gx#stx-pair? ___stx262488262489_)) + (let ((_e247215247365_ (let () (declare (not safe)) - (gx#stx-e ___stx262558262559_)))) - (let ((_tl247283247440_ + (gx#stx-e ___stx262488262489_)))) + (let ((_tl247213247370_ (let () (declare (not safe)) - (##cdr _e247285247435_))) - (_hd247284247438_ + (##cdr _e247215247365_))) + (_hd247214247368_ (let () (declare (not safe)) - (##car _e247285247435_)))) + (##car _e247215247365_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd247284247438_)) + (gx#identifier? _hd247214247368_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd247284247438_)) + _hd247214247368_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247283247440_)) - (let ((_e247288247443_ + _tl247213247370_)) + (let ((_e247218247373_ (let () (declare (not safe)) (gx#stx-e - _tl247283247440_)))) - (let ((_tl247286247448_ + _tl247213247370_)))) + (let ((_tl247216247378_ (let () (declare (not safe)) - (##cdr _e247288247443_))) - (_hd247287247446_ + (##cdr _e247218247373_))) + (_hd247217247376_ (let () (declare (not safe)) - (##car _e247288247443_)))) + (##car _e247218247373_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd247287247446_)) - (let ((_e247291247451_ + _hd247217247376_)) + (let ((_e247221247381_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd247287247446_)))) - (let ((_tl247289247456_ - (let () (declare (not safe)) (##cdr _e247291247451_))) - (_hd247290247454_ - (let () (declare (not safe)) (##car _e247291247451_)))) + (gx#stx-e _hd247217247376_)))) + (let ((_tl247219247386_ + (let () (declare (not safe)) (##cdr _e247221247381_))) + (_hd247220247384_ + (let () (declare (not safe)) (##car _e247221247381_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247290247454_)) - (let ((_e247294247459_ + (gx#stx-pair? _hd247220247384_)) + (let ((_e247224247389_ (let () (declare (not safe)) - (gx#stx-e _hd247290247454_)))) - (let ((_tl247292247464_ + (gx#stx-e _hd247220247384_)))) + (let ((_tl247222247394_ (let () (declare (not safe)) - (##cdr _e247294247459_))) - (_hd247293247462_ + (##cdr _e247224247389_))) + (_hd247223247392_ (let () (declare (not safe)) - (##car _e247294247459_)))) + (##car _e247224247389_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247293247462_)) - (let ((_e247297247467_ + (gx#stx-pair? _hd247223247392_)) + (let ((_e247227247397_ (let () (declare (not safe)) - (gx#stx-e _hd247293247462_)))) - (let ((_tl247295247472_ + (gx#stx-e _hd247223247392_)))) + (let ((_tl247225247402_ (let () (declare (not safe)) - (##cdr _e247297247467_))) - (_hd247296247470_ + (##cdr _e247227247397_))) + (_hd247226247400_ (let () (declare (not safe)) - (##car _e247297247467_)))) + (##car _e247227247397_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247295247472_)) + (gx#stx-null? _tl247225247402_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247292247464_)) - (let ((_e247300247475_ + (gx#stx-pair? _tl247222247394_)) + (let ((_e247230247405_ (let () (declare (not safe)) (gx#stx-e - _tl247292247464_)))) - (let ((_tl247298247480_ + _tl247222247394_)))) + (let ((_tl247228247410_ (let () (declare (not safe)) - (##cdr _e247300247475_))) - (_hd247299247478_ + (##cdr _e247230247405_))) + (_hd247229247408_ (let () (declare (not safe)) - (##car _e247300247475_)))) + (##car _e247230247405_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl247298247480_)) + _tl247228247410_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl247289247456_)) + _tl247219247386_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247286247448_)) - (let ((_e247303247483_ + _tl247216247378_)) + (let ((_e247233247413_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl247286247448_)))) - (let ((_tl247301247488_ + (gx#stx-e _tl247216247378_)))) + (let ((_tl247231247418_ (let () (declare (not safe)) - (##cdr _e247303247483_))) - (_hd247302247486_ + (##cdr _e247233247413_))) + (_hd247232247416_ (let () (declare (not safe)) - (##car _e247303247483_)))) + (##car _e247233247413_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247301247488_)) - (___kont262560262561_ - _hd247302247486_ - _hd247299247478_ - _hd247296247470_) - (let () (declare (not safe)) (_g247278247325_))))) - (let () (declare (not safe)) (_g247278247325_))) - (let () (declare (not safe)) (_g247278247325_))) + (gx#stx-null? _tl247231247418_)) + (___kont262490262491_ + _hd247232247416_ + _hd247229247408_ + _hd247226247400_) + (let () (declare (not safe)) (_g247208247255_))))) + (let () (declare (not safe)) (_g247208247255_))) + (let () (declare (not safe)) (_g247208247255_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g247278247325_))))) + (_g247208247255_))))) (let () (declare (not safe)) - (_g247278247325_))) + (_g247208247255_))) (let () (declare (not safe)) - (_g247278247325_))))) + (_g247208247255_))))) (let () (declare (not safe)) - (_g247278247325_))))) - (let () (declare (not safe)) (_g247278247325_))))) - (let () (declare (not safe)) (_g247278247325_))))) + (_g247208247255_))))) + (let () (declare (not safe)) (_g247208247255_))))) + (let () (declare (not safe)) (_g247208247255_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g247278247325_))) + (_g247208247255_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd247284247438_)) + _hd247214247368_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247283247440_)) - (let ((_e247311247338_ + _tl247213247370_)) + (let ((_e247241247268_ (let () (declare (not safe)) (gx#stx-e - _tl247283247440_)))) - (let ((_tl247309247343_ + _tl247213247370_)))) + (let ((_tl247239247273_ (let () (declare (not safe)) - (##cdr _e247311247338_))) - (_hd247310247341_ + (##cdr _e247241247268_))) + (_hd247240247271_ (let () (declare (not safe)) - (##car _e247311247338_)))) + (##car _e247241247268_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd247310247341_)) - (let ((_e247314247346_ + _hd247240247271_)) + (let ((_e247244247276_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd247310247341_)))) - (let ((_tl247312247351_ + (gx#stx-e _hd247240247271_)))) + (let ((_tl247242247281_ (let () (declare (not safe)) - (##cdr _e247314247346_))) - (_hd247313247349_ + (##cdr _e247244247276_))) + (_hd247243247279_ (let () (declare (not safe)) - (##car _e247314247346_)))) + (##car _e247244247276_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd247313247349_)) + (gx#identifier? _hd247243247279_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd247313247349_)) + (gx#stx-eq? '%#ref _hd247243247279_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247312247351_)) - (let ((_e247317247354_ + (gx#stx-pair? _tl247242247281_)) + (let ((_e247247247284_ (let () (declare (not safe)) - (gx#stx-e _tl247312247351_)))) - (let ((_tl247315247359_ + (gx#stx-e _tl247242247281_)))) + (let ((_tl247245247289_ (let () (declare (not safe)) - (##cdr _e247317247354_))) - (_hd247316247357_ + (##cdr _e247247247284_))) + (_hd247246247287_ (let () (declare (not safe)) - (##car _e247317247354_)))) + (##car _e247247247284_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247315247359_)) + (gx#stx-null? _tl247245247289_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247309247343_)) - (let ((_e247320247362_ + _tl247239247273_)) + (let ((_e247250247292_ (let () (declare (not safe)) (gx#stx-e - _tl247309247343_)))) - (let ((_tl247318247367_ + _tl247239247273_)))) + (let ((_tl247248247297_ (let () (declare (not safe)) - (##cdr _e247320247362_))) - (_hd247319247365_ + (##cdr _e247250247292_))) + (_hd247249247295_ (let () (declare (not safe)) - (##car _e247320247362_)))) + (##car _e247250247292_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl247318247367_)) - (___kont262562262563_ - _hd247319247365_ - _hd247316247357_) + _tl247248247297_)) + (___kont262492262493_ + _hd247249247295_ + _hd247246247287_) (let () (declare (not safe)) - (_g247278247325_))))) + (_g247208247255_))))) (let () (declare (not safe)) - (_g247278247325_))) + (_g247208247255_))) (let () (declare (not safe)) - (_g247278247325_))))) + (_g247208247255_))))) (let () (declare (not safe)) - (_g247278247325_))) - (let () (declare (not safe)) (_g247278247325_))) - (let () (declare (not safe)) (_g247278247325_))))) - (let () (declare (not safe)) (_g247278247325_))))) + (_g247208247255_))) + (let () (declare (not safe)) (_g247208247255_))) + (let () (declare (not safe)) (_g247208247255_))))) + (let () (declare (not safe)) (_g247208247255_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g247278247325_))) + (_g247208247255_))) (let () (declare (not safe)) - (_g247278247325_)))) + (_g247208247255_)))) (let () (declare (not safe)) - (_g247278247325_))))) + (_g247208247255_))))) (let () (declare (not safe)) - (_g247278247325_))))))) - _hd247179247241_ - _hd247176247233_ - _hd247173247225_) + (_g247208247255_))))))) + _hd247109247171_ + _hd247106247163_ + _hd247103247155_) (let () (declare (not safe)) - (_g247155247185_ _g247156247188_))))) + (_g247085247115_ _g247086247118_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g247155247185_ - _g247156247188_))) + (_g247085247115_ + _g247086247118_))) (let () (declare (not safe)) - (_g247155247185_ - _g247156247188_))) + (_g247085247115_ + _g247086247118_))) (let () (declare (not safe)) - (_g247155247185_ - _g247156247188_))))) + (_g247085247115_ + _g247086247118_))))) (let () (declare (not safe)) - (_g247155247185_ _g247156247188_))) + (_g247085247115_ _g247086247118_))) (let () (declare (not safe)) - (_g247155247185_ _g247156247188_))))) + (_g247085247115_ _g247086247118_))))) (let () (declare (not safe)) - (_g247155247185_ _g247156247188_))))) + (_g247085247115_ _g247086247118_))))) (let () (declare (not safe)) - (_g247155247185_ _g247156247188_))))) + (_g247085247115_ _g247086247118_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g247155247185_ - _g247156247188_))))) + (_g247085247115_ + _g247086247118_))))) (let () (declare (not safe)) - (_g247155247185_ _g247156247188_))) + (_g247085247115_ _g247086247118_))) (let () (declare (not safe)) - (_g247155247185_ _g247156247188_))) + (_g247085247115_ _g247086247118_))) (let () (declare (not safe)) - (_g247155247185_ _g247156247188_))))) + (_g247085247115_ _g247086247118_))))) (let () (declare (not safe)) - (_g247155247185_ _g247156247188_)))))) + (_g247085247115_ _g247086247118_)))))) (declare (not safe)) - (_g247154247519_ _stx247153_)))) + (_g247084247449_ _stx247083_)))) (define gxc#optimize-syntax-case-body - (lambda (_stx247081_ _expr247082_ _negation247083_ _clauses247084_) - (letrec ((_normalize247086_ - (lambda (_clauses247113_) - (let* ((_clauses247114247123_ _clauses247113_) - (_E247116247127_ + (lambda (_stx247011_ _expr247012_ _negation247013_ _clauses247014_) + (letrec ((_normalize247016_ + (lambda (_clauses247043_) + (let* ((_clauses247044247053_ _clauses247043_) + (_E247046247057_ (lambda () (error '"No clause matching" - _clauses247114247123_))) - (_K247117247134_ - (lambda (_rest247130_ _kont247131_ _id247132_) - (let ((__tmp263712 + _clauses247044247053_))) + (_K247047247064_ + (lambda (_rest247060_ _kont247061_ _id247062_) + (let ((__tmp263642 (let () (declare (not safe)) - (cons '#f _kont247131_)))) + (cons '#f _kont247061_)))) (declare (not safe)) - (cons __tmp263712 _rest247130_))))) + (cons __tmp263642 _rest247060_))))) (if (let () (declare (not safe)) - (##pair? _clauses247114247123_)) - (let ((_hd247118247137_ + (##pair? _clauses247044247053_)) + (let ((_hd247048247067_ (let () (declare (not safe)) - (##car _clauses247114247123_))) - (_tl247119247139_ + (##car _clauses247044247053_))) + (_tl247049247069_ (let () (declare (not safe)) - (##cdr _clauses247114247123_)))) + (##cdr _clauses247044247053_)))) (if (let () (declare (not safe)) - (##pair? _hd247118247137_)) - (let ((_hd247120247142_ + (##pair? _hd247048247067_)) + (let ((_hd247050247072_ (let () (declare (not safe)) - (##car _hd247118247137_))) - (_tl247121247144_ + (##car _hd247048247067_))) + (_tl247051247074_ (let () (declare (not safe)) - (##cdr _hd247118247137_)))) - (let* ((_id247147_ _hd247120247142_) - (_kont247149_ _tl247121247144_) - (_rest247151_ _tl247119247139_)) + (##cdr _hd247048247067_)))) + (let* ((_id247077_ _hd247050247072_) + (_kont247079_ _tl247051247074_) + (_rest247081_ _tl247049247069_)) (declare (not safe)) - (_K247117247134_ - _rest247151_ - _kont247149_ - _id247147_))) + (_K247047247064_ + _rest247081_ + _kont247079_ + _id247077_))) (let () (declare (not safe)) - (_E247116247127_)))) - (let () (declare (not safe)) (_E247116247127_))))))) - (let ((__tmp263714 + (_E247046247057_)))) + (let () (declare (not safe)) (_E247046247057_))))))) + (let ((__tmp263644 (lambda () - (let* ((_id247089_ - (let ((__tmp263715 (gensym '__stx))) + (let* ((_id247019_ + (let ((__tmp263645 (gensym '__stx))) (declare (not safe)) - (make-symbol__0 __tmp263715))) - (_id247091_ + (make-symbol__0 __tmp263645))) + (_id247021_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id247089_))) - (_g263716_ + (gx#core-quote-syntax__0 _id247019_))) + (_g263646_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id247091_))) - (_g263717_ - (let ((__tmp263719 (car _negation247083_))) + (gx#core-bind-runtime!__0 _id247021_))) + (_g263647_ + (let ((__tmp263649 (car _negation247013_))) (declare (not safe)) (gxc#optimize-syntax-case-clauses - _clauses247084_ - __tmp263719)))) + _clauses247014_ + __tmp263649)))) (begin - (let ((_g263718_ + (let ((_g263648_ (let () (declare (not safe)) - (if (##values? _g263717_) - (##vector-length _g263717_) + (if (##values? _g263647_) + (##vector-length _g263647_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263718_ 2))) - (error "Context expects 2 values" _g263718_))) - (let ((_clauses247094_ + (##fx= _g263648_ 2))) + (error "Context expects 2 values" _g263648_))) + (let ((_clauses247024_ (let () (declare (not safe)) - (##vector-ref _g263717_ 0))) - (_konts247095_ + (##vector-ref _g263647_ 0))) + (_konts247025_ (let () (declare (not safe)) - (##vector-ref _g263717_ 1)))) - (let* ((_clauses247104_ - (map (lambda (_g247096247099_ _g247097247101_) + (##vector-ref _g263647_ 1)))) + (let* ((_clauses247034_ + (map (lambda (_g247026247029_ _g247027247031_) (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _g247096247099_ - _g247097247101_ - _id247091_))) - _clauses247094_ - (let ((__tmp263721 - (let ((__tmp263722 - (car _negation247083_))) + _g247026247029_ + _g247027247031_ + _id247021_))) + _clauses247024_ + (let ((__tmp263651 + (let ((__tmp263652 + (car _negation247013_))) (declare (not safe)) - (cons __tmp263722 '()))) - (__tmp263720 - (map car (cdr _clauses247094_)))) + (cons __tmp263652 '()))) + (__tmp263650 + (map car (cdr _clauses247024_)))) (declare (not safe)) (foldr1 cons - __tmp263721 - __tmp263720)))) - (_clauses247106_ + __tmp263651 + __tmp263650)))) + (_clauses247036_ (let () (declare (not safe)) - (_normalize247086_ _clauses247104_))) - (_negation247108_ + (_normalize247016_ _clauses247034_))) + (_negation247038_ (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _negation247083_ + _negation247013_ '#f - _id247091_))) - (_body247110_ + _id247021_))) + (_body247040_ (let () (declare (not safe)) (gxc#optimize-match-body - _stx247081_ - _negation247108_ - _clauses247106_ - _konts247095_)))) - (let ((__tmp263723 - (let ((__tmp263724 - (let ((__tmp263726 - (let ((__tmp263727 - (let ((__tmp263729 + _stx247011_ + _negation247038_ + _clauses247036_ + _konts247025_)))) + (let ((__tmp263653 + (let ((__tmp263654 + (let ((__tmp263656 + (let ((__tmp263657 + (let ((__tmp263659 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id247091_ '()))) - (__tmp263728 - (let () (declare (not safe)) (cons _expr247082_ '())))) + (cons _id247021_ '()))) + (__tmp263658 + (let () (declare (not safe)) (cons _expr247012_ '())))) (declare (not safe)) - (cons __tmp263729 __tmp263728)))) + (cons __tmp263659 __tmp263658)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263727 '()))) - (__tmp263725 + (cons __tmp263657 '()))) + (__tmp263655 (let () (declare (not safe)) - (cons _body247110_ '())))) + (cons _body247040_ '())))) (declare (not safe)) - (cons __tmp263726 __tmp263725)))) + (cons __tmp263656 __tmp263655)))) (declare (not safe)) - (cons '%#let-values __tmp263724)))) + (cons '%#let-values __tmp263654)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp263723 - _stx247081_)))))))) - (__tmp263713 - (let ((__obj263304 (make-object* gx#local-context::t '6))) - (gx#local-context:::init! __obj263304) - __obj263304))) + __tmp263653 + _stx247011_)))))))) + (__tmp263643 + (let ((__obj263234 (make-object gx#local-context::t '6))) + (gx#local-context:::init! __obj263234) + __obj263234))) (declare (not safe)) (call-with-parameters - __tmp263714 + __tmp263644 gx#current-expander-context - __tmp263713))))) + __tmp263643))))) (define gxc#optimize-syntax-case-clauses - (lambda (_clauses245839_ _negation-id245840_) - (letrec ((_xform-e245842_ - (lambda (_expr246226_ - _kont-id246227_ - _kont-box246228_ - _negation-id246229_) - (let* ((___stx262760262761_ _expr246226_) - (_g246235246368_ + (lambda (_clauses245769_ _negation-id245770_) + (letrec ((_xform-e245772_ + (lambda (_expr246156_ + _kont-id246157_ + _kont-box246158_ + _negation-id246159_) + (let* ((___stx262690262691_ _expr246156_) + (_g246165246298_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx262760262761_))))) - (let ((___kont262762262763_ - (lambda (_L247057_ _L247058_ _L247059_) - (let* ((_K247076_ + ___stx262690262691_))))) + (let ((___kont262692262693_ + (lambda (_L246987_ _L246988_ _L246989_) + (let* ((_K247006_ (let () (declare (not safe)) - (_xform-e245842_ - _L247058_ - _kont-id246227_ - _kont-box246228_ - _negation-id246229_))) - (__tmp263730 - (let ((__tmp263731 - (let ((__tmp263732 + (_xform-e245772_ + _L246988_ + _kont-id246157_ + _kont-box246158_ + _negation-id246159_))) + (__tmp263660 + (let ((__tmp263661 + (let ((__tmp263662 (let () (declare (not safe)) - (cons _L247057_ '())))) + (cons _L246987_ '())))) (declare (not safe)) - (cons _K247076_ __tmp263732)))) + (cons _K247006_ __tmp263662)))) (declare (not safe)) - (cons _L247059_ __tmp263731)))) + (cons _L246989_ __tmp263661)))) (declare (not safe)) - (cons '%#if __tmp263730)))) - (___kont262764262765_ - (lambda (_L246973_ - _L246974_ - _L246975_ - _L246976_ - _L246977_) - (let* ((_id247012_ - (let ((__tmp263733 (gensym '__splice))) + (cons '%#if __tmp263660)))) + (___kont262694262695_ + (lambda (_L246903_ + _L246904_ + _L246905_ + _L246906_ + _L246907_) + (let* ((_id246942_ + (let ((__tmp263663 (gensym '__splice))) (declare (not safe)) - (make-symbol__0 __tmp263733))) - (_id247014_ + (make-symbol__0 __tmp263663))) + (_id246944_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id247012_))) - (_g263734_ + (gx#core-quote-syntax__0 _id246942_))) + (_g263664_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id247014_))) - (_body247017_ + _id246944_))) + (_body246947_ (let () (declare (not safe)) - (_xform-e245842_ - _L246973_ - _kont-id246227_ - _kont-box246228_ - _negation-id246229_)))) - (let ((__tmp263735 - (let ((__tmp263760 - (let ((__tmp263761 - (let ((__tmp263769 + (_xform-e245772_ + _L246903_ + _kont-id246157_ + _kont-box246158_ + _negation-id246159_)))) + (let ((__tmp263665 + (let ((__tmp263690 + (let ((__tmp263691 + (let ((__tmp263699 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id247014_ '()))) - (__tmp263762 - (let ((__tmp263763 - (let ((__tmp263768 + (cons _id246944_ '()))) + (__tmp263692 + (let ((__tmp263693 + (let ((__tmp263698 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp263764 - (let ((__tmp263765 - (let ((__tmp263767 + (__tmp263694 + (let ((__tmp263695 + (let ((__tmp263697 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263766 + (__tmp263696 (let () (declare (not safe)) - (cons _L246975_ '())))) + (cons _L246905_ '())))) (declare (not safe)) - (cons __tmp263767 __tmp263766)))) + (cons __tmp263697 __tmp263696)))) (declare (not safe)) - (cons __tmp263765 _L246974_)))) + (cons __tmp263695 _L246904_)))) (declare (not safe)) - (cons __tmp263768 __tmp263764)))) + (cons __tmp263698 __tmp263694)))) (declare (not safe)) - (cons __tmp263763 '())))) + (cons __tmp263693 '())))) (declare (not safe)) - (cons __tmp263769 __tmp263762)))) + (cons __tmp263699 __tmp263692)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263761 '()))) - (__tmp263736 - (let ((__tmp263737 - (let ((__tmp263738 - (let ((__tmp263740 + (cons __tmp263691 '()))) + (__tmp263666 + (let ((__tmp263667 + (let ((__tmp263668 + (let ((__tmp263670 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263751 - (let ((__tmp263759 + (let ((__tmp263681 + (let ((__tmp263689 (let () (declare (not safe)) - (cons _L246977_ '()))) - (__tmp263752 - (let ((__tmp263753 - (let ((__tmp263754 - (let ((__tmp263755 - (let ((__tmp263757 + (cons _L246907_ '()))) + (__tmp263682 + (let ((__tmp263683 + (let ((__tmp263684 + (let ((__tmp263685 + (let ((__tmp263687 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263758 + (let ((__tmp263688 (let () (declare (not safe)) - (cons _id247014_ '())))) + (cons _id246944_ '())))) (declare (not safe)) - (cons '%#ref __tmp263758))) - (__tmp263756 + (cons '%#ref __tmp263688))) + (__tmp263686 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp263757 __tmp263756)))) + (cons __tmp263687 __tmp263686)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp263755)))) + (cons '(%#ref ##vector-ref) __tmp263685)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp263754)))) + __tmp263684)))) (declare (not safe)) - (cons __tmp263753 '())))) + (cons __tmp263683 '())))) (declare (not safe)) - (cons __tmp263759 __tmp263752))) - (__tmp263741 - (let ((__tmp263742 - (let ((__tmp263750 + (cons __tmp263689 __tmp263682))) + (__tmp263671 + (let ((__tmp263672 + (let ((__tmp263680 (let () (declare (not safe)) - (cons _L246976_ '()))) - (__tmp263743 - (let ((__tmp263744 - (let ((__tmp263745 - (let ((__tmp263746 + (cons _L246906_ '()))) + (__tmp263673 + (let ((__tmp263674 + (let ((__tmp263675 + (let ((__tmp263676 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263748 - (let ((__tmp263749 + (let ((__tmp263678 + (let ((__tmp263679 (let () (declare (not safe)) - (cons _id247014_ '())))) + (cons _id246944_ '())))) (declare (not safe)) - (cons '%#ref __tmp263749))) - (__tmp263747 + (cons '%#ref __tmp263679))) + (__tmp263677 (let () (declare (not safe)) (cons '(%#quote 1) '())))) (declare (not safe)) - (cons __tmp263748 __tmp263747)))) + (cons __tmp263678 __tmp263677)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp263746)))) + (cons '(%#ref ##vector-ref) __tmp263676)))) (declare (not safe)) - (cons '%#call __tmp263745)))) + (cons '%#call __tmp263675)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263744 '())))) + (cons __tmp263674 '())))) (declare (not safe)) - (cons __tmp263750 __tmp263743)))) + (cons __tmp263680 __tmp263673)))) (declare (not safe)) - (cons __tmp263742 '())))) + (cons __tmp263672 '())))) (declare (not safe)) - (cons __tmp263751 __tmp263741))) - (__tmp263739 + (cons __tmp263681 __tmp263671))) + (__tmp263669 (let () (declare (not safe)) - (cons _body247017_ '())))) + (cons _body246947_ '())))) (declare (not safe)) - (cons __tmp263740 __tmp263739)))) + (cons __tmp263670 __tmp263669)))) (declare (not safe)) - (cons '%#let-values __tmp263738)))) + (cons '%#let-values __tmp263668)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263737 '())))) + (cons __tmp263667 '())))) (declare (not safe)) - (cons __tmp263760 __tmp263736)))) + (cons __tmp263690 __tmp263666)))) (declare (not safe)) - (cons '%#let-values __tmp263735))))) - (___kont262766262767_ - (lambda (_L246855_ _L246856_) - (let* ((_body246870_ + (cons '%#let-values __tmp263665))))) + (___kont262696262697_ + (lambda (_L246785_ _L246786_) + (let* ((_body246800_ (let () (declare (not safe)) - (_xform-e245842_ - _L246855_ - _kont-id246227_ - _kont-box246228_ - _negation-id246229_))) - (__tmp263770 - (let ((__tmp263771 + (_xform-e245772_ + _L246785_ + _kont-id246157_ + _kont-box246158_ + _negation-id246159_))) + (__tmp263700 + (let ((__tmp263701 (let () (declare (not safe)) - (cons _body246870_ '())))) + (cons _body246800_ '())))) (declare (not safe)) - (cons _L246856_ __tmp263771)))) + (cons _L246786_ __tmp263701)))) (declare (not safe)) - (cons '%#let-values __tmp263770)))) - (___kont262768262769_ - (lambda (_L246799_ _L246800_ _L246801_) - (let* ((_lambda-expr246824_ + (cons '%#let-values __tmp263700)))) + (___kont262698262699_ + (lambda (_L246729_ _L246730_ _L246731_) + (let* ((_lambda-expr246754_ (let () (declare (not safe)) - (_xform-loop-e245843_ - _L246800_ - _kont-id246227_ - _kont-box246228_ - _negation-id246229_))) - (__tmp263772 - (let ((__tmp263774 - (let ((__tmp263775 - (let ((__tmp263777 + (_xform-loop-e245773_ + _L246730_ + _kont-id246157_ + _kont-box246158_ + _negation-id246159_))) + (__tmp263702 + (let ((__tmp263704 + (let ((__tmp263705 + (let ((__tmp263707 (let () (declare (not safe)) - (cons _L246801_ + (cons _L246731_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp263776 + (__tmp263706 (let () (declare (not safe)) - (cons _lambda-expr246824_ '())))) + (cons _lambda-expr246754_ '())))) (declare (not safe)) - (cons __tmp263777 __tmp263776)))) + (cons __tmp263707 __tmp263706)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263775 '()))) - (__tmp263773 + (cons __tmp263705 '()))) + (__tmp263703 (let () (declare (not safe)) - (cons _L246799_ '())))) + (cons _L246729_ '())))) (declare (not safe)) - (cons __tmp263774 __tmp263773)))) + (cons __tmp263704 __tmp263703)))) (declare (not safe)) - (cons '%#letrec-values __tmp263772)))) - (___kont262770262771_ - (lambda (_L246461_ _L246462_ _L246463_) - (let* ((___stx262662262663_ _L246462_) - (_g246492246535_ + (cons '%#letrec-values __tmp263702)))) + (___kont262700262701_ + (lambda (_L246391_ _L246392_ _L246393_) + (let* ((___stx262592262593_ _L246392_) + (_g246422246465_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx262662262663_))))) - (let ((___kont262664262665_ - (lambda (_L246651_ - _L246652_ - _L246653_ - _L246654_) - (let ((_kont246695_ - (let ((__tmp263782 + ___stx262592262593_))))) + (let ((___kont262594262595_ + (lambda (_L246581_ + _L246582_ + _L246583_ + _L246584_) + (let ((_kont246625_ + (let ((__tmp263712 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp263778 - (let ((__tmp263780 - (let ((__tmp263781 + (__tmp263708 + (let ((__tmp263710 + (let ((__tmp263711 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g246687246690_ _g246688246692_) + (lambda (_g246617246620_ _g246618246622_) (let () (declare (not safe)) - (cons _g246687246690_ _g246688246692_))))) + (cons _g246617246620_ _g246618246622_))))) (declare (not safe)) - (foldr1 __tmp263781 '() _L246463_))) - (__tmp263779 - (let () (declare (not safe)) (cons _L246653_ '())))) + (foldr1 __tmp263711 '() _L246393_))) + (__tmp263709 + (let () (declare (not safe)) (cons _L246583_ '())))) (declare (not safe)) - (cons __tmp263780 __tmp263779)))) + (cons __tmp263710 __tmp263709)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263782 - __tmp263778)))) + (cons __tmp263712 + __tmp263708)))) (set-box! - _kont-box246228_ - _kont246695_) - (let* ((_kont-args246706_ - (map (lambda (_id246697_) - (let ((__tmp263783 + _kont-box246158_ + _kont246625_) + (let* ((_kont-args246636_ + (map (lambda (_id246627_) + (let ((__tmp263713 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id246697_ '())))) + (let () (declare (not safe)) (cons _id246627_ '())))) (declare (not safe)) - (cons '%#ref __tmp263783))) - (let ((__tmp263784 - (lambda (_g246698246701_ _g246699246703_) + (cons '%#ref __tmp263713))) + (let ((__tmp263714 + (lambda (_g246628246631_ _g246629246633_) (let () (declare (not safe)) - (cons _g246698246701_ _g246699246703_))))) + (cons _g246628246631_ _g246629246633_))))) (declare (not safe)) - (foldr1 __tmp263784 '() _L246463_)))) + (foldr1 __tmp263714 '() _L246393_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_body246708_ - (let ((__tmp263785 - (let ((__tmp263786 + (_body246638_ + (let ((__tmp263715 + (let ((__tmp263716 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp263798 - (let ((__tmp263799 - (let ((__tmp263800 - (let ((__tmp263801 + (let ((__tmp263728 + (let ((__tmp263729 + (let ((__tmp263730 + (let ((__tmp263731 (let () (declare (not safe)) - (cons _kont-id246227_ + (cons _kont-id246157_ '())))) (declare (not safe)) - (cons '%#ref __tmp263801)))) + (cons '%#ref __tmp263731)))) (declare (not safe)) - (cons __tmp263800 - _kont-args246706_)))) + (cons __tmp263730 + _kont-args246636_)))) (declare (not safe)) - (cons '%#call __tmp263799))) - (__tmp263787 - (let ((__tmp263788 - (let ((__tmp263797 + (cons '%#call __tmp263729))) + (__tmp263717 + (let ((__tmp263718 + (let ((__tmp263727 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp263789 - (let ((__tmp263794 - (let ((__tmp263796 + (__tmp263719 + (let ((__tmp263724 + (let ((__tmp263726 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263795 - (let () (declare (not safe)) (cons _L246652_ '())))) + (__tmp263725 + (let () (declare (not safe)) (cons _L246582_ '())))) (declare (not safe)) - (cons __tmp263796 __tmp263795))) + (cons __tmp263726 __tmp263725))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp263790 - (let ((__tmp263791 - (let ((__tmp263793 + (__tmp263720 + (let ((__tmp263721 + (let ((__tmp263723 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263792 + (__tmp263722 (let () (declare (not safe)) - (cons _L246651_ '())))) + (cons _L246581_ '())))) (declare (not safe)) - (cons __tmp263793 __tmp263792)))) + (cons __tmp263723 __tmp263722)))) (declare (not safe)) - (cons __tmp263791 '())))) + (cons __tmp263721 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263794 - __tmp263790)))) + (cons __tmp263724 + __tmp263720)))) (declare (not safe)) - (cons __tmp263797 __tmp263789)))) + (cons __tmp263727 __tmp263719)))) (declare (not safe)) - (cons __tmp263788 '())))) + (cons __tmp263718 '())))) (declare (not safe)) - (cons __tmp263798 __tmp263787)))) + (cons __tmp263728 __tmp263717)))) (declare (not safe)) - (cons _L246654_ __tmp263786)))) + (cons _L246584_ __tmp263716)))) (declare (not safe)) - (cons '%#if __tmp263785)))) + (cons '%#if __tmp263715)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp263809 - (let ((__tmp263810 - (lambda (_g246710246713_ + (if (let ((__tmp263739 + (let ((__tmp263740 + (lambda (_g246640246643_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g246711246715_) + _g246641246645_) (let () (declare (not safe)) - (cons _g246710246713_ _g246711246715_))))) + (cons _g246640246643_ _g246641246645_))))) (declare (not safe)) - (foldr1 __tmp263810 '() _L246463_)))) + (foldr1 __tmp263740 '() _L246393_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp263809)) - _body246708_ - (let ((__tmp263802 - (let ((__tmp263804 - (map (lambda (_id246718_ + (null? __tmp263739)) + _body246638_ + (let ((__tmp263732 + (let ((__tmp263734 + (map (lambda (_id246648_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg246719_) - (let ((__tmp263806 + _arg246649_) + (let ((__tmp263736 (let () (declare (not safe)) - (cons _id246718_ '()))) - (__tmp263805 + (cons _id246648_ '()))) + (__tmp263735 (let () (declare (not safe)) - (cons _arg246719_ '())))) + (cons _arg246649_ '())))) (declare (not safe)) - (cons __tmp263806 __tmp263805))) - (let ((__tmp263807 - (lambda (_g246720246723_ _g246721246725_) + (cons __tmp263736 __tmp263735))) + (let ((__tmp263737 + (lambda (_g246650246653_ _g246651246655_) (let () (declare (not safe)) - (cons _g246720246723_ - _g246721246725_))))) + (cons _g246650246653_ + _g246651246655_))))) (declare (not safe)) - (foldr1 __tmp263807 '() _L246463_)) - (let ((__tmp263808 - (lambda (_g246727246730_ _g246728246732_) + (foldr1 __tmp263737 '() _L246393_)) + (let ((__tmp263738 + (lambda (_g246657246660_ _g246658246662_) (let () (declare (not safe)) - (cons _g246727246730_ - _g246728246732_))))) + (cons _g246657246660_ + _g246658246662_))))) (declare (not safe)) - (foldr1 __tmp263808 '() _L246461_)))) - (__tmp263803 - (let () (declare (not safe)) (cons _body246708_ '())))) + (foldr1 __tmp263738 '() _L246391_)))) + (__tmp263733 + (let () (declare (not safe)) (cons _body246638_ '())))) (declare (not safe)) - (cons __tmp263804 __tmp263803)))) + (cons __tmp263734 __tmp263733)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp263802))))))) - (___kont262666262667_ + __tmp263732))))))) + (___kont262596262597_ (lambda () - (let ((_kont246549_ - (let ((__tmp263815 + (let ((_kont246479_ + (let ((__tmp263745 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp263811 - (let ((__tmp263813 - (let ((__tmp263814 + (__tmp263741 + (let ((__tmp263743 + (let ((__tmp263744 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g246541246544_ _g246542246546_) + (lambda (_g246471246474_ _g246472246476_) (let () (declare (not safe)) - (cons _g246541246544_ _g246542246546_))))) + (cons _g246471246474_ _g246472246476_))))) (declare (not safe)) - (foldr1 __tmp263814 '() _L246463_))) - (__tmp263812 - (let () (declare (not safe)) (cons _L246462_ '())))) + (foldr1 __tmp263744 '() _L246393_))) + (__tmp263742 + (let () (declare (not safe)) (cons _L246392_ '())))) (declare (not safe)) - (cons __tmp263813 __tmp263812)))) + (cons __tmp263743 __tmp263742)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263815 - __tmp263811)))) + (cons __tmp263745 + __tmp263741)))) (set-box! - _kont-box246228_ - _kont246549_) - (let ((__tmp263816 - (let ((__tmp263819 - (let ((__tmp263820 + _kont-box246158_ + _kont246479_) + (let ((__tmp263746 + (let ((__tmp263749 + (let ((__tmp263750 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kont-id246227_ '())))) + (cons _kont-id246157_ '())))) (declare (not safe)) - (cons '%#ref __tmp263820))) - (__tmp263817 - (let ((__tmp263818 - (lambda (_g246550246553_ _g246551246555_) + (cons '%#ref __tmp263750))) + (__tmp263747 + (let ((__tmp263748 + (lambda (_g246480246483_ _g246481246485_) (let () (declare (not safe)) - (cons _g246550246553_ _g246551246555_))))) + (cons _g246480246483_ _g246481246485_))))) (declare (not safe)) - (foldr1 __tmp263818 '() _L246461_)))) + (foldr1 __tmp263748 '() _L246391_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263819 - __tmp263817)))) + (cons __tmp263749 + __tmp263747)))) (declare (not safe)) - (cons '%#call __tmp263816)))))) - (let ((___match262757262758_ - (lambda (_e246500246563_ - _hd246499246566_ - _tl246498246568_ - _e246503246571_ - _hd246502246574_ - _tl246501246576_ - _e246506246579_ - _hd246505246582_ - _tl246504246584_ - _e246509246587_ - _hd246508246590_ - _tl246507246592_ - _e246512246595_ - _hd246511246598_ - _tl246510246600_ - _e246515246603_ - _hd246514246606_ - _tl246513246608_ - _e246518246611_ - _hd246517246614_ - _tl246516246616_ - _e246521246619_ - _hd246520246622_ - _tl246519246624_ - _e246524246627_ - _hd246523246630_ - _tl246522246632_ - _e246527246635_ - _hd246526246638_ - _tl246525246640_ - _e246530246643_ - _hd246529246646_ - _tl246528246648_) - (let ((_L246651_ _hd246529246646_) - (_L246652_ _hd246520246622_) - (_L246653_ _hd246505246582_) - (_L246654_ _hd246502246574_)) + (cons '%#call __tmp263746)))))) + (let ((___match262687262688_ + (lambda (_e246430246493_ + _hd246429246496_ + _tl246428246498_ + _e246433246501_ + _hd246432246504_ + _tl246431246506_ + _e246436246509_ + _hd246435246512_ + _tl246434246514_ + _e246439246517_ + _hd246438246520_ + _tl246437246522_ + _e246442246525_ + _hd246441246528_ + _tl246440246530_ + _e246445246533_ + _hd246444246536_ + _tl246443246538_ + _e246448246541_ + _hd246447246544_ + _tl246446246546_ + _e246451246549_ + _hd246450246552_ + _tl246449246554_ + _e246454246557_ + _hd246453246560_ + _tl246452246562_ + _e246457246565_ + _hd246456246568_ + _tl246455246570_ + _e246460246573_ + _hd246459246576_ + _tl246458246578_) + (let ((_L246581_ _hd246459246576_) + (_L246582_ _hd246450246552_) + (_L246583_ _hd246435246512_) + (_L246584_ _hd246432246504_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L246652_ - _negation-id246229_)) - (___kont262664262665_ - _L246651_ - _L246652_ - _L246653_ - _L246654_) - (___kont262666262667_)))))) + _L246582_ + _negation-id246159_)) + (___kont262594262595_ + _L246581_ + _L246582_ + _L246583_ + _L246584_) + (___kont262596262597_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx262662262663_)) - (let ((_e246500246563_ + (gx#stx-pair? ___stx262592262593_)) + (let ((_e246430246493_ (let () (declare (not safe)) (gx#stx-e - ___stx262662262663_)))) - (let ((_tl246498246568_ + ___stx262592262593_)))) + (let ((_tl246428246498_ (let () (declare (not safe)) - (##cdr _e246500246563_))) - (_hd246499246566_ + (##cdr _e246430246493_))) + (_hd246429246496_ (let () (declare (not safe)) - (##car _e246500246563_)))) + (##car _e246430246493_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd246499246566_)) + _hd246429246496_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd246499246566_)) + _hd246429246496_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246498246568_)) - (let ((_e246503246571_ + _tl246428246498_)) + (let ((_e246433246501_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl246498246568_)))) - (let ((_tl246501246576_ + (gx#stx-e _tl246428246498_)))) + (let ((_tl246431246506_ (let () (declare (not safe)) - (##cdr _e246503246571_))) - (_hd246502246574_ + (##cdr _e246433246501_))) + (_hd246432246504_ (let () (declare (not safe)) - (##car _e246503246571_)))) + (##car _e246433246501_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246501246576_)) - (let ((_e246506246579_ + (gx#stx-pair? _tl246431246506_)) + (let ((_e246436246509_ (let () (declare (not safe)) - (gx#stx-e _tl246501246576_)))) - (let ((_tl246504246584_ + (gx#stx-e _tl246431246506_)))) + (let ((_tl246434246514_ (let () (declare (not safe)) - (##cdr _e246506246579_))) - (_hd246505246582_ + (##cdr _e246436246509_))) + (_hd246435246512_ (let () (declare (not safe)) - (##car _e246506246579_)))) + (##car _e246436246509_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246504246584_)) - (let ((_e246509246587_ + (gx#stx-pair? _tl246434246514_)) + (let ((_e246439246517_ (let () (declare (not safe)) - (gx#stx-e _tl246504246584_)))) - (let ((_tl246507246592_ + (gx#stx-e _tl246434246514_)))) + (let ((_tl246437246522_ (let () (declare (not safe)) - (##cdr _e246509246587_))) - (_hd246508246590_ + (##cdr _e246439246517_))) + (_hd246438246520_ (let () (declare (not safe)) - (##car _e246509246587_)))) + (##car _e246439246517_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246508246590_)) - (let ((_e246512246595_ + (gx#stx-pair? _hd246438246520_)) + (let ((_e246442246525_ (let () (declare (not safe)) (gx#stx-e - _hd246508246590_)))) - (let ((_tl246510246600_ + _hd246438246520_)))) + (let ((_tl246440246530_ (let () (declare (not safe)) - (##cdr _e246512246595_))) - (_hd246511246598_ + (##cdr _e246442246525_))) + (_hd246441246528_ (let () (declare (not safe)) - (##car _e246512246595_)))) + (##car _e246442246525_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd246511246598_)) + _hd246441246528_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd246511246598_)) + _hd246441246528_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246510246600_)) - (let ((_e246515246603_ + _tl246440246530_)) + (let ((_e246445246533_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl246510246600_)))) - (let ((_tl246513246608_ + (gx#stx-e _tl246440246530_)))) + (let ((_tl246443246538_ (let () (declare (not safe)) - (##cdr _e246515246603_))) - (_hd246514246606_ + (##cdr _e246445246533_))) + (_hd246444246536_ (let () (declare (not safe)) - (##car _e246515246603_)))) + (##car _e246445246533_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246514246606_)) - (let ((_e246518246611_ + (gx#stx-pair? _hd246444246536_)) + (let ((_e246448246541_ (let () (declare (not safe)) - (gx#stx-e _hd246514246606_)))) - (let ((_tl246516246616_ + (gx#stx-e _hd246444246536_)))) + (let ((_tl246446246546_ (let () (declare (not safe)) - (##cdr _e246518246611_))) - (_hd246517246614_ + (##cdr _e246448246541_))) + (_hd246447246544_ (let () (declare (not safe)) - (##car _e246518246611_)))) + (##car _e246448246541_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd246517246614_)) + (gx#identifier? _hd246447246544_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd246517246614_)) + (gx#stx-eq? '%#ref _hd246447246544_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246516246616_)) - (let ((_e246521246619_ + (gx#stx-pair? _tl246446246546_)) + (let ((_e246451246549_ (let () (declare (not safe)) (gx#stx-e - _tl246516246616_)))) - (let ((_tl246519246624_ + _tl246446246546_)))) + (let ((_tl246449246554_ (let () (declare (not safe)) - (##cdr _e246521246619_))) - (_hd246520246622_ + (##cdr _e246451246549_))) + (_hd246450246552_ (let () (declare (not safe)) - (##car _e246521246619_)))) + (##car _e246451246549_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246519246624_)) + _tl246449246554_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246513246608_)) - (let ((_e246524246627_ + _tl246443246538_)) + (let ((_e246454246557_ (let () (declare (not safe)) (gx#stx-e - _tl246513246608_)))) - (let ((_tl246522246632_ + _tl246443246538_)))) + (let ((_tl246452246562_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e246524246627_))) - (_hd246523246630_ - (let () (declare (not safe)) (##car _e246524246627_)))) + (##cdr _e246454246557_))) + (_hd246453246560_ + (let () (declare (not safe)) (##car _e246454246557_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246523246630_)) - (let ((_e246527246635_ + (gx#stx-pair? _hd246453246560_)) + (let ((_e246457246565_ (let () (declare (not safe)) - (gx#stx-e _hd246523246630_)))) - (let ((_tl246525246640_ + (gx#stx-e _hd246453246560_)))) + (let ((_tl246455246570_ (let () (declare (not safe)) - (##cdr _e246527246635_))) - (_hd246526246638_ + (##cdr _e246457246565_))) + (_hd246456246568_ (let () (declare (not safe)) - (##car _e246527246635_)))) + (##car _e246457246565_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd246526246638_)) + (gx#identifier? _hd246456246568_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd246526246638_)) + (gx#stx-eq? '%#ref _hd246456246568_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246525246640_)) - (let ((_e246530246643_ + (gx#stx-pair? _tl246455246570_)) + (let ((_e246460246573_ (let () (declare (not safe)) - (gx#stx-e _tl246525246640_)))) - (let ((_tl246528246648_ + (gx#stx-e _tl246455246570_)))) + (let ((_tl246458246578_ (let () (declare (not safe)) - (##cdr _e246530246643_))) - (_hd246529246646_ + (##cdr _e246460246573_))) + (_hd246459246576_ (let () (declare (not safe)) - (##car _e246530246643_)))) + (##car _e246460246573_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246528246648_)) + (gx#stx-null? _tl246458246578_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl246522246632_)) + _tl246452246562_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl246507246592_)) - (___match262757262758_ - _e246500246563_ - _hd246499246566_ - _tl246498246568_ - _e246503246571_ - _hd246502246574_ - _tl246501246576_ - _e246506246579_ - _hd246505246582_ - _tl246504246584_ - _e246509246587_ - _hd246508246590_ - _tl246507246592_ - _e246512246595_ - _hd246511246598_ - _tl246510246600_ - _e246515246603_ - _hd246514246606_ - _tl246513246608_ - _e246518246611_ - _hd246517246614_ - _tl246516246616_ - _e246521246619_ - _hd246520246622_ - _tl246519246624_ - _e246524246627_ - _hd246523246630_ - _tl246522246632_ - _e246527246635_ - _hd246526246638_ - _tl246525246640_ - _e246530246643_ - _hd246529246646_ - _tl246528246648_) - (___kont262666262667_)) - (___kont262666262667_)) - (___kont262666262667_)))) - (___kont262666262667_)) - (___kont262666262667_)) - (___kont262666262667_)))) - (___kont262666262667_)))) + _tl246437246522_)) + (___match262687262688_ + _e246430246493_ + _hd246429246496_ + _tl246428246498_ + _e246433246501_ + _hd246432246504_ + _tl246431246506_ + _e246436246509_ + _hd246435246512_ + _tl246434246514_ + _e246439246517_ + _hd246438246520_ + _tl246437246522_ + _e246442246525_ + _hd246441246528_ + _tl246440246530_ + _e246445246533_ + _hd246444246536_ + _tl246443246538_ + _e246448246541_ + _hd246447246544_ + _tl246446246546_ + _e246451246549_ + _hd246450246552_ + _tl246449246554_ + _e246454246557_ + _hd246453246560_ + _tl246452246562_ + _e246457246565_ + _hd246456246568_ + _tl246455246570_ + _e246460246573_ + _hd246459246576_ + _tl246458246578_) + (___kont262596262597_)) + (___kont262596262597_)) + (___kont262596262597_)))) + (___kont262596262597_)) + (___kont262596262597_)) + (___kont262596262597_)))) + (___kont262596262597_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont262666262667_)) - (___kont262666262667_)))) - (___kont262666262667_)) - (___kont262666262667_)) - (___kont262666262667_)))) - (___kont262666262667_)))) - (___kont262666262667_)) + (___kont262596262597_)) + (___kont262596262597_)))) + (___kont262596262597_)) + (___kont262596262597_)) + (___kont262596262597_)))) + (___kont262596262597_)))) + (___kont262596262597_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont262666262667_)) - (___kont262666262667_)))) - (___kont262666262667_)))) - (___kont262666262667_)))) - (___kont262666262667_)))) - (___kont262666262667_)) + (___kont262596262597_)) + (___kont262596262597_)))) + (___kont262596262597_)))) + (___kont262596262597_)))) + (___kont262596262597_)))) + (___kont262596262597_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont262666262667_)) - (___kont262666262667_)))) - (___kont262666262667_)))))))) - (let* ((___match263017263018_ - (lambda (_e246333246373_ - _hd246332246376_ - _tl246331246378_ - _e246336246381_ - _hd246335246384_ - _tl246334246386_ - _e246339246389_ - _hd246338246392_ - _tl246337246394_ - _e246342246397_ - _hd246341246400_ - _tl246340246402_ - ___splice262772262773_ - _target246343246405_ - _tl246345246407_) - (letrec ((_loop246346246410_ - (lambda (_hd246344246413_ - _id246350246415_) + (___kont262596262597_)) + (___kont262596262597_)))) + (___kont262596262597_)))))))) + (let* ((___match262947262948_ + (lambda (_e246263246303_ + _hd246262246306_ + _tl246261246308_ + _e246266246311_ + _hd246265246314_ + _tl246264246316_ + _e246269246319_ + _hd246268246322_ + _tl246267246324_ + _e246272246327_ + _hd246271246330_ + _tl246270246332_ + ___splice262702262703_ + _target246273246335_ + _tl246275246337_) + (letrec ((_loop246276246340_ + (lambda (_hd246274246343_ + _id246280246345_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd246344246413_)) - (let ((_e246347246418_ + _hd246274246343_)) + (let ((_e246277246348_ (let () (declare (not safe)) (gx#stx-e - _hd246344246413_)))) - (let ((_lp-tl246349246423_ + _hd246274246343_)))) + (let ((_lp-tl246279246353_ (let () (declare (not safe)) - (##cdr _e246347246418_))) - (_lp-hd246348246421_ + (##cdr _e246277246348_))) + (_lp-hd246278246351_ (let () (declare (not safe)) - (##car _e246347246418_)))) - (let ((__tmp263822 + (##car _e246277246348_)))) + (let ((__tmp263752 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd246348246421_ _id246350246415_)))) + (cons _lp-hd246278246351_ _id246280246345_)))) (declare (not safe)) - (_loop246346246410_ _lp-tl246349246423_ __tmp263822)))) + (_loop246276246340_ _lp-tl246279246353_ __tmp263752)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id246351246426_ - (reverse _id246350246415_))) + (let ((_id246281246356_ + (reverse _id246280246345_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246340246402_)) - (let ((_e246354246429_ + _tl246270246332_)) + (let ((_e246284246359_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl246340246402_)))) - (let ((_tl246352246434_ - (let () (declare (not safe)) (##cdr _e246354246429_))) - (_hd246353246432_ + (gx#stx-e _tl246270246332_)))) + (let ((_tl246282246364_ + (let () (declare (not safe)) (##cdr _e246284246359_))) + (_hd246283246362_ (let () (declare (not safe)) - (##car _e246354246429_)))) + (##car _e246284246359_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246352246434_)) + (gx#stx-null? _tl246282246364_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl246334246386_)) - (let ((___splice262774262775_ + (gx#stx-pair/null? _tl246264246316_)) + (let ((___splice262704262705_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl246334246386_ + _tl246264246316_ '0)))) - (let ((_tl246357246439_ + (let ((_tl246287246369_ (let () (declare (not safe)) (##vector-ref - ___splice262774262775_ + ___splice262704262705_ '1))) - (_target246355246437_ + (_target246285246367_ (let () (declare (not safe)) (##vector-ref - ___splice262774262775_ + ___splice262704262705_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246357246439_)) - (letrec ((_loop246358246442_ - (lambda (_hd246356246445_ - _arg246362246447_) + (gx#stx-null? _tl246287246369_)) + (letrec ((_loop246288246372_ + (lambda (_hd246286246375_ + _arg246292246377_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd246356246445_)) - (let ((_e246359246450_ + _hd246286246375_)) + (let ((_e246289246380_ (let () (declare (not safe)) (gx#stx-e - _hd246356246445_)))) - (let ((_lp-tl246361246455_ + _hd246286246375_)))) + (let ((_lp-tl246291246385_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e246359246450_))) - (_lp-hd246360246453_ - (let () (declare (not safe)) (##car _e246359246450_)))) - (let ((__tmp263821 + (##cdr _e246289246380_))) + (_lp-hd246290246383_ + (let () (declare (not safe)) (##car _e246289246380_)))) + (let ((__tmp263751 (let () (declare (not safe)) - (cons _lp-hd246360246453_ _arg246362246447_)))) + (cons _lp-hd246290246383_ _arg246292246377_)))) (declare (not safe)) - (_loop246358246442_ _lp-tl246361246455_ __tmp263821)))) + (_loop246288246372_ _lp-tl246291246385_ __tmp263751)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg246363246458_ - (reverse _arg246362246447_))) - (___kont262770262771_ - _arg246363246458_ - _hd246353246432_ - _id246351246426_)))))) + (let ((_arg246293246388_ + (reverse _arg246292246377_))) + (___kont262700262701_ + _arg246293246388_ + _hd246283246362_ + _id246281246356_)))))) (let () (declare (not safe)) - (_loop246358246442_ - _target246355246437_ + (_loop246288246372_ + _target246285246367_ '()))) (let () (declare (not safe)) - (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_))) - (let () (declare (not safe)) (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_)))))))) + (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_))) + (let () (declare (not safe)) (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop246346246410_ - _target246343246405_ + (_loop246276246340_ + _target246273246335_ '()))))) - (___match262899262900_ - (lambda (_e246259246877_ - _hd246258246880_ - _tl246257246882_ - _e246262246885_ - _hd246261246888_ - _tl246260246890_ - _e246265246893_ - _hd246264246896_ - _tl246263246898_ - _e246268246901_ - _hd246267246904_ - _tl246266246906_ - _e246271246909_ - _hd246270246912_ - _tl246269246914_ - _e246274246917_ - _hd246273246920_ - _tl246272246922_ - _e246277246925_ - _hd246276246928_ - _tl246275246930_ - _e246280246933_ - _hd246279246936_ - _tl246278246938_ - _e246283246941_ - _hd246282246944_ - _tl246281246946_ - _e246286246949_ - _hd246285246952_ - _tl246284246954_ - _e246289246957_ - _hd246288246960_ - _tl246287246962_ - _e246292246965_ - _hd246291246968_ - _tl246290246970_) - (let ((_L246973_ _hd246291246968_) - (_L246974_ _tl246281246946_) - (_L246975_ _hd246288246960_) - (_L246976_ _hd246273246920_) - (_L246977_ _hd246270246912_)) + (___match262829262830_ + (lambda (_e246189246807_ + _hd246188246810_ + _tl246187246812_ + _e246192246815_ + _hd246191246818_ + _tl246190246820_ + _e246195246823_ + _hd246194246826_ + _tl246193246828_ + _e246198246831_ + _hd246197246834_ + _tl246196246836_ + _e246201246839_ + _hd246200246842_ + _tl246199246844_ + _e246204246847_ + _hd246203246850_ + _tl246202246852_ + _e246207246855_ + _hd246206246858_ + _tl246205246860_ + _e246210246863_ + _hd246209246866_ + _tl246208246868_ + _e246213246871_ + _hd246212246874_ + _tl246211246876_ + _e246216246879_ + _hd246215246882_ + _tl246214246884_ + _e246219246887_ + _hd246218246890_ + _tl246217246892_ + _e246222246895_ + _hd246221246898_ + _tl246220246900_) + (let ((_L246903_ _hd246221246898_) + (_L246904_ _tl246211246876_) + (_L246905_ _hd246218246890_) + (_L246906_ _hd246203246850_) + (_L246907_ _hd246200246842_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246975_ + _L246905_ 'gx#syntax-split-splice)) - (___kont262764262765_ - _L246973_ - _L246974_ - _L246975_ - _L246976_ - _L246977_) - (___kont262766262767_ - _hd246291246968_ - _hd246261246888_)))))) + (___kont262694262695_ + _L246903_ + _L246904_ + _L246905_ + _L246906_ + _L246907_) + (___kont262696262697_ + _hd246221246898_ + _hd246191246818_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx262760262761_)) - (let ((_e246242247025_ + (gx#stx-pair? ___stx262690262691_)) + (let ((_e246172246955_ (let () (declare (not safe)) - (gx#stx-e ___stx262760262761_)))) - (let ((_tl246240247030_ + (gx#stx-e ___stx262690262691_)))) + (let ((_tl246170246960_ (let () (declare (not safe)) - (##cdr _e246242247025_))) - (_hd246241247028_ + (##cdr _e246172246955_))) + (_hd246171246958_ (let () (declare (not safe)) - (##car _e246242247025_)))) + (##car _e246172246955_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd246241247028_)) + (gx#identifier? _hd246171246958_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd246241247028_)) + _hd246171246958_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246240247030_)) - (let ((_e246245247033_ + _tl246170246960_)) + (let ((_e246175246963_ (let () (declare (not safe)) (gx#stx-e - _tl246240247030_)))) - (let ((_tl246243247038_ + _tl246170246960_)))) + (let ((_tl246173246968_ (let () (declare (not safe)) - (##cdr _e246245247033_))) - (_hd246244247036_ + (##cdr _e246175246963_))) + (_hd246174246966_ (let () (declare (not safe)) - (##car _e246245247033_)))) + (##car _e246175246963_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246243247038_)) - (let ((_e246248247041_ + _tl246173246968_)) + (let ((_e246178246971_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl246243247038_)))) - (let ((_tl246246247046_ - (let () (declare (not safe)) (##cdr _e246248247041_))) - (_hd246247247044_ - (let () (declare (not safe)) (##car _e246248247041_)))) + (gx#stx-e _tl246173246968_)))) + (let ((_tl246176246976_ + (let () (declare (not safe)) (##cdr _e246178246971_))) + (_hd246177246974_ + (let () (declare (not safe)) (##car _e246178246971_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246246247046_)) - (let ((_e246251247049_ + (gx#stx-pair? _tl246176246976_)) + (let ((_e246181246979_ (let () (declare (not safe)) - (gx#stx-e _tl246246247046_)))) - (let ((_tl246249247054_ + (gx#stx-e _tl246176246976_)))) + (let ((_tl246179246984_ (let () (declare (not safe)) - (##cdr _e246251247049_))) - (_hd246250247052_ + (##cdr _e246181246979_))) + (_hd246180246982_ (let () (declare (not safe)) - (##car _e246251247049_)))) + (##car _e246181246979_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246249247054_)) - (___kont262762262763_ - _hd246250247052_ - _hd246247247044_ - _hd246244247036_) + (gx#stx-null? _tl246179246984_)) + (___kont262692262693_ + _hd246180246982_ + _hd246177246974_ + _hd246174246966_) (let () (declare (not safe)) - (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_))))) + (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g246235246368_))) + (_g246165246298_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd246241247028_)) + _hd246171246958_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246240247030_)) - (let ((_e246262246885_ + _tl246170246960_)) + (let ((_e246192246815_ (let () (declare (not safe)) (gx#stx-e - _tl246240247030_)))) - (let ((_tl246260246890_ + _tl246170246960_)))) + (let ((_tl246190246820_ (let () (declare (not safe)) - (##cdr _e246262246885_))) - (_hd246261246888_ + (##cdr _e246192246815_))) + (_hd246191246818_ (let () (declare (not safe)) - (##car _e246262246885_)))) + (##car _e246192246815_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd246261246888_)) - (let ((_e246265246893_ + _hd246191246818_)) + (let ((_e246195246823_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd246261246888_)))) - (let ((_tl246263246898_ + (gx#stx-e _hd246191246818_)))) + (let ((_tl246193246828_ (let () (declare (not safe)) - (##cdr _e246265246893_))) - (_hd246264246896_ + (##cdr _e246195246823_))) + (_hd246194246826_ (let () (declare (not safe)) - (##car _e246265246893_)))) + (##car _e246195246823_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246264246896_)) - (let ((_e246268246901_ + (gx#stx-pair? _hd246194246826_)) + (let ((_e246198246831_ (let () (declare (not safe)) - (gx#stx-e _hd246264246896_)))) - (let ((_tl246266246906_ + (gx#stx-e _hd246194246826_)))) + (let ((_tl246196246836_ (let () (declare (not safe)) - (##cdr _e246268246901_))) - (_hd246267246904_ + (##cdr _e246198246831_))) + (_hd246197246834_ (let () (declare (not safe)) - (##car _e246268246901_)))) + (##car _e246198246831_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246267246904_)) - (let ((_e246271246909_ + (gx#stx-pair? _hd246197246834_)) + (let ((_e246201246839_ (let () (declare (not safe)) - (gx#stx-e _hd246267246904_)))) - (let ((_tl246269246914_ + (gx#stx-e _hd246197246834_)))) + (let ((_tl246199246844_ (let () (declare (not safe)) - (##cdr _e246271246909_))) - (_hd246270246912_ + (##cdr _e246201246839_))) + (_hd246200246842_ (let () (declare (not safe)) - (##car _e246271246909_)))) + (##car _e246201246839_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246269246914_)) - (let ((_e246274246917_ + (gx#stx-pair? _tl246199246844_)) + (let ((_e246204246847_ (let () (declare (not safe)) (gx#stx-e - _tl246269246914_)))) - (let ((_tl246272246922_ + _tl246199246844_)))) + (let ((_tl246202246852_ (let () (declare (not safe)) - (##cdr _e246274246917_))) - (_hd246273246920_ + (##cdr _e246204246847_))) + (_hd246203246850_ (let () (declare (not safe)) - (##car _e246274246917_)))) + (##car _e246204246847_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246272246922_)) + _tl246202246852_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246266246906_)) - (let ((_e246277246925_ + _tl246196246836_)) + (let ((_e246207246855_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl246266246906_)))) - (let ((_tl246275246930_ - (let () (declare (not safe)) (##cdr _e246277246925_))) - (_hd246276246928_ - (let () (declare (not safe)) (##car _e246277246925_)))) + (gx#stx-e _tl246196246836_)))) + (let ((_tl246205246860_ + (let () (declare (not safe)) (##cdr _e246207246855_))) + (_hd246206246858_ + (let () (declare (not safe)) (##car _e246207246855_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246276246928_)) - (let ((_e246280246933_ + (gx#stx-pair? _hd246206246858_)) + (let ((_e246210246863_ (let () (declare (not safe)) - (gx#stx-e _hd246276246928_)))) - (let ((_tl246278246938_ + (gx#stx-e _hd246206246858_)))) + (let ((_tl246208246868_ (let () (declare (not safe)) - (##cdr _e246280246933_))) - (_hd246279246936_ + (##cdr _e246210246863_))) + (_hd246209246866_ (let () (declare (not safe)) - (##car _e246280246933_)))) + (##car _e246210246863_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd246279246936_)) + (gx#identifier? _hd246209246866_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd246279246936_)) + (gx#stx-eq? '%#call _hd246209246866_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246278246938_)) - (let ((_e246283246941_ + (gx#stx-pair? _tl246208246868_)) + (let ((_e246213246871_ (let () (declare (not safe)) - (gx#stx-e _tl246278246938_)))) - (let ((_tl246281246946_ + (gx#stx-e _tl246208246868_)))) + (let ((_tl246211246876_ (let () (declare (not safe)) - (##cdr _e246283246941_))) - (_hd246282246944_ + (##cdr _e246213246871_))) + (_hd246212246874_ (let () (declare (not safe)) - (##car _e246283246941_)))) + (##car _e246213246871_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd246282246944_)) - (let ((_e246286246949_ + _hd246212246874_)) + (let ((_e246216246879_ (let () (declare (not safe)) (gx#stx-e - _hd246282246944_)))) - (let ((_tl246284246954_ + _hd246212246874_)))) + (let ((_tl246214246884_ (let () (declare (not safe)) - (##cdr _e246286246949_))) - (_hd246285246952_ + (##cdr _e246216246879_))) + (_hd246215246882_ (let () (declare (not safe)) - (##car _e246286246949_)))) + (##car _e246216246879_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd246285246952_)) + _hd246215246882_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd246285246952_)) + _hd246215246882_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl246284246954_)) - (let ((_e246289246957_ + (gx#stx-pair? _tl246214246884_)) + (let ((_e246219246887_ (let () (declare (not safe)) - (gx#stx-e _tl246284246954_)))) - (let ((_tl246287246962_ + (gx#stx-e _tl246214246884_)))) + (let ((_tl246217246892_ (let () (declare (not safe)) - (##cdr _e246289246957_))) - (_hd246288246960_ + (##cdr _e246219246887_))) + (_hd246218246890_ (let () (declare (not safe)) - (##car _e246289246957_)))) + (##car _e246219246887_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246287246962_)) + (gx#stx-null? _tl246217246892_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl246275246930_)) + (gx#stx-null? _tl246205246860_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl246263246898_)) + (gx#stx-null? _tl246193246828_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246292246965_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246222246895_ (let () (declare (not safe)) (gx#stx-e - _tl246260246890_)))) - (let ((_tl246290246970_ + _tl246190246820_)))) + (let ((_tl246220246900_ (let () (declare (not safe)) - (##cdr _e246292246965_))) - (_hd246291246968_ + (##cdr _e246222246895_))) + (_hd246221246898_ (let () (declare (not safe)) - (##car _e246292246965_)))) + (##car _e246222246895_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246290246970_)) - (___match262899262900_ - _e246242247025_ - _hd246241247028_ - _tl246240247030_ - _e246262246885_ - _hd246261246888_ - _tl246260246890_ - _e246265246893_ - _hd246264246896_ - _tl246263246898_ - _e246268246901_ - _hd246267246904_ - _tl246266246906_ - _e246271246909_ - _hd246270246912_ - _tl246269246914_ - _e246274246917_ - _hd246273246920_ - _tl246272246922_ - _e246277246925_ - _hd246276246928_ - _tl246275246930_ - _e246280246933_ - _hd246279246936_ - _tl246278246938_ - _e246283246941_ - _hd246282246944_ - _tl246281246946_ - _e246286246949_ - _hd246285246952_ - _tl246284246954_ - _e246289246957_ - _hd246288246960_ - _tl246287246962_ - _e246292246965_ - _hd246291246968_ - _tl246290246970_) + _tl246220246900_)) + (___match262829262830_ + _e246172246955_ + _hd246171246958_ + _tl246170246960_ + _e246192246815_ + _hd246191246818_ + _tl246190246820_ + _e246195246823_ + _hd246194246826_ + _tl246193246828_ + _e246198246831_ + _hd246197246834_ + _tl246196246836_ + _e246201246839_ + _hd246200246842_ + _tl246199246844_ + _e246204246847_ + _hd246203246850_ + _tl246202246852_ + _e246207246855_ + _hd246206246858_ + _tl246205246860_ + _e246210246863_ + _hd246209246866_ + _tl246208246868_ + _e246213246871_ + _hd246212246874_ + _tl246211246876_ + _e246216246879_ + _hd246215246882_ + _tl246214246884_ + _e246219246887_ + _hd246218246890_ + _tl246217246892_ + _e246222246895_ + _hd246221246898_ + _tl246220246900_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_))) + (_g246165246298_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) (gx#stx-e - _tl246260246890_)))) - (let ((_tl246301246852_ + _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))) + (_g246165246298_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))) + (_g246165246298_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + (gx#stx-null? _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))))) + (_g246165246298_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + (gx#stx-null? _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_)))) + (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + (gx#stx-null? _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_)))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) - (let () (declare (not safe)) (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_)))))) + (gx#stx-null? _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) + (let () (declare (not safe)) (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl246260246890_)) - (let ((_e246303246847_ + _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) (gx#stx-e - _tl246260246890_)))) - (let ((_tl246301246852_ + _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))))) + (_g246165246298_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) (gx#stx-e - _tl246260246890_)))) - (let ((_tl246301246852_ + _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))) + (_g246165246298_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))) + (_g246165246298_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + (gx#stx-null? _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))))) + (_g246165246298_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + (gx#stx-null? _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_)))))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_)))))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) - (let () (declare (not safe)) (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_)))) + (gx#stx-null? _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) + (let () (declare (not safe)) (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl246260246890_)) - (let ((_e246303246847_ + _tl246190246820_)) + (let ((_e246233246777_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ - (let () (declare (not safe)) (##cdr _e246303246847_))) - (_hd246302246850_ - (let () (declare (not safe)) (##car _e246303246847_)))) + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ + (let () (declare (not safe)) (##cdr _e246233246777_))) + (_hd246232246780_ + (let () (declare (not safe)) (##car _e246233246777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246301246852_)) - (___kont262766262767_ _hd246302246850_ _hd246261246888_) - (let () (declare (not safe)) (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_)))))) + (gx#stx-null? _tl246231246782_)) + (___kont262696262697_ _hd246232246780_ _hd246191246818_) + (let () (declare (not safe)) (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl246260246890_)) - (let ((_e246303246847_ + _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) (gx#stx-e - _tl246260246890_)))) - (let ((_tl246301246852_ + _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))))) + (_g246165246298_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))))) + (_g246165246298_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + (gx#stx-null? _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))))) + (_g246165246298_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246260246890_)) - (let ((_e246303246847_ + (gx#stx-pair? _tl246190246820_)) + (let ((_e246233246777_ (let () (declare (not safe)) - (gx#stx-e _tl246260246890_)))) - (let ((_tl246301246852_ + (gx#stx-e _tl246190246820_)))) + (let ((_tl246231246782_ (let () (declare (not safe)) - (##cdr _e246303246847_))) - (_hd246302246850_ + (##cdr _e246233246777_))) + (_hd246232246780_ (let () (declare (not safe)) - (##car _e246303246847_)))) + (##car _e246233246777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246301246852_)) - (___kont262766262767_ - _hd246302246850_ - _hd246261246888_) + (gx#stx-null? _tl246231246782_)) + (___kont262696262697_ + _hd246232246780_ + _hd246191246818_) (let () (declare (not safe)) - (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_)))))) + (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g246235246368_))) + (_g246165246298_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd246241247028_)) + _hd246171246958_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246240247030_)) - (let ((_e246312246751_ + _tl246170246960_)) + (let ((_e246242246681_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl246240247030_)))) - (let ((_tl246310246756_ - (let () (declare (not safe)) (##cdr _e246312246751_))) - (_hd246311246754_ - (let () (declare (not safe)) (##car _e246312246751_)))) + (gx#stx-e _tl246170246960_)))) + (let ((_tl246240246686_ + (let () (declare (not safe)) (##cdr _e246242246681_))) + (_hd246241246684_ + (let () (declare (not safe)) (##car _e246242246681_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246311246754_)) - (let ((_e246315246759_ + (gx#stx-pair? _hd246241246684_)) + (let ((_e246245246689_ (let () (declare (not safe)) - (gx#stx-e _hd246311246754_)))) - (let ((_tl246313246764_ + (gx#stx-e _hd246241246684_)))) + (let ((_tl246243246694_ (let () (declare (not safe)) - (##cdr _e246315246759_))) - (_hd246314246762_ + (##cdr _e246245246689_))) + (_hd246244246692_ (let () (declare (not safe)) - (##car _e246315246759_)))) + (##car _e246245246689_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246314246762_)) - (let ((_e246318246767_ + (gx#stx-pair? _hd246244246692_)) + (let ((_e246248246697_ (let () (declare (not safe)) - (gx#stx-e _hd246314246762_)))) - (let ((_tl246316246772_ + (gx#stx-e _hd246244246692_)))) + (let ((_tl246246246702_ (let () (declare (not safe)) - (##cdr _e246318246767_))) - (_hd246317246770_ + (##cdr _e246248246697_))) + (_hd246247246700_ (let () (declare (not safe)) - (##car _e246318246767_)))) + (##car _e246248246697_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246317246770_)) - (let ((_e246321246775_ + (gx#stx-pair? _hd246247246700_)) + (let ((_e246251246705_ (let () (declare (not safe)) - (gx#stx-e _hd246317246770_)))) - (let ((_tl246319246780_ + (gx#stx-e _hd246247246700_)))) + (let ((_tl246249246710_ (let () (declare (not safe)) - (##cdr _e246321246775_))) - (_hd246320246778_ + (##cdr _e246251246705_))) + (_hd246250246708_ (let () (declare (not safe)) - (##car _e246321246775_)))) + (##car _e246251246705_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246319246780_)) + _tl246249246710_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246316246772_)) - (let ((_e246324246783_ + _tl246246246702_)) + (let ((_e246254246713_ (let () (declare (not safe)) (gx#stx-e - _tl246316246772_)))) - (let ((_tl246322246788_ + _tl246246246702_)))) + (let ((_tl246252246718_ (let () (declare (not safe)) - (##cdr _e246324246783_))) - (_hd246323246786_ + (##cdr _e246254246713_))) + (_hd246253246716_ (let () (declare (not safe)) - (##car _e246324246783_)))) + (##car _e246254246713_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246322246788_)) + _tl246252246718_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl246313246764_)) + (gx#stx-null? _tl246243246694_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246310246756_)) - (let ((_e246327246791_ + (gx#stx-pair? _tl246240246686_)) + (let ((_e246257246721_ (let () (declare (not safe)) - (gx#stx-e _tl246310246756_)))) - (let ((_tl246325246796_ + (gx#stx-e _tl246240246686_)))) + (let ((_tl246255246726_ (let () (declare (not safe)) - (##cdr _e246327246791_))) - (_hd246326246794_ + (##cdr _e246257246721_))) + (_hd246256246724_ (let () (declare (not safe)) - (##car _e246327246791_)))) + (##car _e246257246721_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246325246796_)) - (___kont262768262769_ - _hd246326246794_ - _hd246323246786_ - _hd246320246778_) + (gx#stx-null? _tl246255246726_)) + (___kont262698262699_ + _hd246256246724_ + _hd246253246716_ + _hd246250246708_) (let () (declare (not safe)) - (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_))) - (let () (declare (not safe)) (_g246235246368_))) - (let () (declare (not safe)) (_g246235246368_))))) + (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_))) + (let () (declare (not safe)) (_g246165246298_))) + (let () (declare (not safe)) (_g246165246298_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g246235246368_))) + (_g246165246298_))) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_))) + (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd246241247028_)) + _hd246171246958_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246240247030_)) - (let ((_e246336246381_ + _tl246170246960_)) + (let ((_e246266246311_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl246240247030_)))) - (let ((_tl246334246386_ + (gx#stx-e _tl246170246960_)))) + (let ((_tl246264246316_ (let () (declare (not safe)) - (##cdr _e246336246381_))) - (_hd246335246384_ + (##cdr _e246266246311_))) + (_hd246265246314_ (let () (declare (not safe)) - (##car _e246336246381_)))) + (##car _e246266246311_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246335246384_)) - (let ((_e246339246389_ + (gx#stx-pair? _hd246265246314_)) + (let ((_e246269246319_ (let () (declare (not safe)) - (gx#stx-e _hd246335246384_)))) - (let ((_tl246337246394_ + (gx#stx-e _hd246265246314_)))) + (let ((_tl246267246324_ (let () (declare (not safe)) - (##cdr _e246339246389_))) - (_hd246338246392_ + (##cdr _e246269246319_))) + (_hd246268246322_ (let () (declare (not safe)) - (##car _e246339246389_)))) + (##car _e246269246319_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd246338246392_)) + (gx#identifier? _hd246268246322_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd246338246392_)) + _hd246268246322_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246337246394_)) - (let ((_e246342246397_ + (gx#stx-pair? _tl246267246324_)) + (let ((_e246272246327_ (let () (declare (not safe)) (gx#stx-e - _tl246337246394_)))) - (let ((_tl246340246402_ + _tl246267246324_)))) + (let ((_tl246270246332_ (let () (declare (not safe)) - (##cdr _e246342246397_))) - (_hd246341246400_ + (##cdr _e246272246327_))) + (_hd246271246330_ (let () (declare (not safe)) - (##car _e246342246397_)))) + (##car _e246272246327_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd246341246400_)) - (let ((___splice262772262773_ + _hd246271246330_)) + (let ((___splice262702262703_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd246341246400_ + _hd246271246330_ '0)))) - (let ((_tl246345246407_ + (let ((_tl246275246337_ (let () (declare (not safe)) (##vector-ref - ___splice262772262773_ + ___splice262702262703_ '1))) - (_target246343246405_ + (_target246273246335_ (let () (declare (not safe)) (##vector-ref - ___splice262772262773_ + ___splice262702262703_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246345246407_)) - (___match263017263018_ - _e246242247025_ - _hd246241247028_ - _tl246240247030_ - _e246336246381_ - _hd246335246384_ - _tl246334246386_ - _e246339246389_ - _hd246338246392_ - _tl246337246394_ - _e246342246397_ - _hd246341246400_ - _tl246340246402_ - ___splice262772262773_ - _target246343246405_ - _tl246345246407_) + _tl246275246337_)) + (___match262947262948_ + _e246172246955_ + _hd246171246958_ + _tl246170246960_ + _e246266246311_ + _hd246265246314_ + _tl246264246316_ + _e246269246319_ + _hd246268246322_ + _tl246267246324_ + _e246272246327_ + _hd246271246330_ + _tl246270246332_ + ___splice262702262703_ + _target246273246335_ + _tl246275246337_) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_))) + (_g246165246298_))) (let () (declare (not safe)) - (_g246235246368_))) + (_g246165246298_))) (let () (declare (not safe)) - (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_))))) - (let () (declare (not safe)) (_g246235246368_))) - (let () (declare (not safe)) (_g246235246368_)))))) + (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_))))) + (let () (declare (not safe)) (_g246165246298_))) + (let () (declare (not safe)) (_g246165246298_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g246235246368_))))) + (_g246165246298_))))) (let () (declare (not safe)) - (_g246235246368_)))))))) - (_xform-loop-e245843_ - (lambda (_expr246052_ - _kont-id246053_ - _kont-box246054_ - _negation-id246055_) - (let* ((_g246057246097_ - (lambda (_g246058246094_) + (_g246165246298_)))))))) + (_xform-loop-e245773_ + (lambda (_expr245982_ + _kont-id245983_ + _kont-box245984_ + _negation-id245985_) + (let* ((_g245987246027_ + (lambda (_g245988246024_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g246058246094_)))) - (_g246056246223_ - (lambda (_g246058246100_) + _g245988246024_)))) + (_g245986246153_ + (lambda (_g245988246030_) (if (let () (declare (not safe)) - (gx#stx-pair? _g246058246100_)) - (let ((_e246065246102_ + (gx#stx-pair? _g245988246030_)) + (let ((_e245995246032_ (let () (declare (not safe)) - (gx#stx-e _g246058246100_)))) - (let ((_hd246064246105_ + (gx#stx-e _g245988246030_)))) + (let ((_hd245994246035_ (let () (declare (not safe)) - (##car _e246065246102_))) - (_tl246063246107_ + (##car _e245995246032_))) + (_tl245993246037_ (let () (declare (not safe)) - (##cdr _e246065246102_)))) + (##cdr _e245995246032_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd246064246105_)) + (gx#identifier? _hd245994246035_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd246064246105_)) + _hd245994246035_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246063246107_)) - (let ((_e246068246110_ + _tl245993246037_)) + (let ((_e245998246040_ (let () (declare (not safe)) (gx#stx-e - _tl246063246107_)))) - (let ((_hd246067246113_ + _tl245993246037_)))) + (let ((_hd245997246043_ (let () (declare (not safe)) - (##car _e246068246110_))) - (_tl246066246115_ + (##car _e245998246040_))) + (_tl245996246045_ (let () (declare (not safe)) - (##cdr _e246068246110_)))) + (##cdr _e245998246040_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd246067246113_)) - (let ((_g263823_ + _hd245997246043_)) + (let ((_g263753_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd246067246113_ '0)))) + (gx#syntax-split-splice _hd245997246043_ '0)))) (begin - (let ((_g263824_ + (let ((_g263754_ (let () (declare (not safe)) - (if (##values? _g263823_) - (##vector-length _g263823_) + (if (##values? _g263753_) + (##vector-length _g263753_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263824_ 2))) - (error "Context expects 2 values" _g263824_))) - (let ((_target246069246118_ + (##fx= _g263754_ 2))) + (error "Context expects 2 values" _g263754_))) + (let ((_target245999246048_ (let () (declare (not safe)) - (##vector-ref _g263823_ 0))) - (_tl246071246120_ + (##vector-ref _g263753_ 0))) + (_tl246001246050_ (let () (declare (not safe)) - (##vector-ref _g263823_ 1)))) + (##vector-ref _g263753_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246071246120_)) - (letrec ((_loop246072246123_ - (lambda (_hd246070246126_ - _id246076246128_) + (gx#stx-null? _tl246001246050_)) + (letrec ((_loop246002246053_ + (lambda (_hd246000246056_ + _id246006246058_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246070246126_)) - (let ((_e246073246131_ + (gx#stx-pair? _hd246000246056_)) + (let ((_e246003246061_ (let () (declare (not safe)) (gx#stx-e - _hd246070246126_)))) - (let ((_lp-hd246074246134_ + _hd246000246056_)))) + (let ((_lp-hd246004246064_ (let () (declare (not safe)) - (##car _e246073246131_))) - (_lp-tl246075246136_ + (##car _e246003246061_))) + (_lp-tl246005246066_ (let () (declare (not safe)) - (##cdr _e246073246131_)))) - (let ((__tmp263833 + (##cdr _e246003246061_)))) + (let ((__tmp263763 (let () (declare (not safe)) - (cons _lp-hd246074246134_ - _id246076246128_)))) + (cons _lp-hd246004246064_ + _id246006246058_)))) (declare (not safe)) - (_loop246072246123_ - _lp-tl246075246136_ - __tmp263833)))) - (let ((_id246077246139_ - (reverse _id246076246128_))) + (_loop246002246053_ + _lp-tl246005246066_ + __tmp263763)))) + (let ((_id246007246069_ + (reverse _id246006246058_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246066246115_)) - (let ((_e246080246142_ + _tl245996246045_)) + (let ((_e246010246072_ (let () (declare (not safe)) (gx#stx-e - _tl246066246115_)))) - (let ((_hd246079246145_ + _tl245996246045_)))) + (let ((_hd246009246075_ (let () (declare (not safe)) - (##car _e246080246142_))) - (_tl246078246147_ + (##car _e246010246072_))) + (_tl246008246077_ (let () (declare (not safe)) - (##cdr _e246080246142_)))) + (##cdr _e246010246072_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd246079246145_)) - (let ((_e246083246150_ + _hd246009246075_)) + (let ((_e246013246080_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd246079246145_)))) - (let ((_hd246082246153_ + (gx#stx-e _hd246009246075_)))) + (let ((_hd246012246083_ (let () (declare (not safe)) - (##car _e246083246150_))) - (_tl246081246155_ + (##car _e246013246080_))) + (_tl246011246085_ (let () (declare (not safe)) - (##cdr _e246083246150_)))) + (##cdr _e246013246080_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd246082246153_)) + (gx#identifier? _hd246012246083_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd246082246153_)) + (gx#stx-eq? '%#if _hd246012246083_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246081246155_)) - (let ((_e246086246158_ + (gx#stx-pair? _tl246011246085_)) + (let ((_e246016246088_ (let () (declare (not safe)) - (gx#stx-e _tl246081246155_)))) - (let ((_hd246085246161_ + (gx#stx-e _tl246011246085_)))) + (let ((_hd246015246091_ (let () (declare (not safe)) - (##car _e246086246158_))) - (_tl246084246163_ + (##car _e246016246088_))) + (_tl246014246093_ (let () (declare (not safe)) - (##cdr _e246086246158_)))) + (##cdr _e246016246088_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246084246163_)) - (let ((_e246089246166_ + (gx#stx-pair? _tl246014246093_)) + (let ((_e246019246096_ (let () (declare (not safe)) (gx#stx-e - _tl246084246163_)))) - (let ((_hd246088246169_ + _tl246014246093_)))) + (let ((_hd246018246099_ (let () (declare (not safe)) - (##car _e246089246166_))) - (_tl246087246171_ + (##car _e246019246096_))) + (_tl246017246101_ (let () (declare (not safe)) - (##cdr _e246089246166_)))) + (##cdr _e246019246096_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246087246171_)) - (let ((_e246092246174_ + _tl246017246101_)) + (let ((_e246022246104_ (let () (declare (not safe)) (gx#stx-e - _tl246087246171_)))) - (let ((_hd246091246177_ + _tl246017246101_)))) + (let ((_hd246021246107_ (let () (declare (not safe)) - (##car _e246092246174_))) - (_tl246090246179_ + (##car _e246022246104_))) + (_tl246020246109_ (let () (declare (not safe)) - (##cdr _e246092246174_)))) + (##cdr _e246022246104_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246090246179_)) + _tl246020246109_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl246078246147_)) - ((lambda (_L246182_ _L246183_ _L246184_ _L246185_) - (let* ((_E246214_ + (gx#stx-null? _tl246008246077_)) + ((lambda (_L246112_ _L246113_ _L246114_ _L246115_) + (let* ((_E246144_ (let () (declare (not safe)) - (_xform-e245842_ - _L246182_ - _kont-id246053_ - _kont-box246054_ - _negation-id246055_))) - (__tmp263825 - (let ((__tmp263831 - (let ((__tmp263832 - (lambda (_g246215246218_ - _g246216246220_) + (_xform-e245772_ + _L246112_ + _kont-id245983_ + _kont-box245984_ + _negation-id245985_))) + (__tmp263755 + (let ((__tmp263761 + (let ((__tmp263762 + (lambda (_g246145246148_ + _g246146246150_) (let () (declare (not safe)) - (cons _g246215246218_ - _g246216246220_))))) + (cons _g246145246148_ + _g246146246150_))))) (declare (not safe)) - (foldr1 __tmp263832 '() _L246185_))) - (__tmp263826 - (let ((__tmp263827 - (let ((__tmp263828 - (let ((__tmp263829 - (let ((__tmp263830 + (foldr1 __tmp263762 '() _L246115_))) + (__tmp263756 + (let ((__tmp263757 + (let ((__tmp263758 + (let ((__tmp263759 + (let ((__tmp263760 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E246214_ '())))) + (cons _E246144_ '())))) (declare (not safe)) - (cons _L246183_ __tmp263830)))) + (cons _L246113_ __tmp263760)))) (declare (not safe)) - (cons _L246184_ __tmp263829)))) + (cons _L246114_ __tmp263759)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp263828)))) + (cons '%#if __tmp263758)))) (declare (not safe)) - (cons __tmp263827 '())))) + (cons __tmp263757 '())))) (declare (not safe)) - (cons __tmp263831 __tmp263826)))) + (cons __tmp263761 __tmp263756)))) (declare (not safe)) - (cons '%#lambda __tmp263825))) - _hd246091246177_ - _hd246088246169_ - _hd246085246161_ - _id246077246139_) + (cons '%#lambda __tmp263755))) + _hd246021246107_ + _hd246018246099_ + _hd246015246091_ + _id246007246069_) (let () (declare (not safe)) - (_g246057246097_ _g246058246100_))) + (_g245987246027_ _g245988246030_))) (let () (declare (not safe)) - (_g246057246097_ _g246058246100_))))) + (_g245987246027_ _g245988246030_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g246057246097_ - _g246058246100_))))) + (_g245987246027_ + _g245988246030_))))) (let () (declare (not safe)) - (_g246057246097_ - _g246058246100_))))) + (_g245987246027_ + _g245988246030_))))) (let () (declare (not safe)) - (_g246057246097_ _g246058246100_))) + (_g245987246027_ _g245988246030_))) (let () (declare (not safe)) - (_g246057246097_ _g246058246100_))) + (_g245987246027_ _g245988246030_))) (let () (declare (not safe)) - (_g246057246097_ _g246058246100_))))) + (_g245987246027_ _g245988246030_))))) (let () (declare (not safe)) - (_g246057246097_ _g246058246100_))))) + (_g245987246027_ _g245988246030_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g246057246097_ - _g246058246100_)))))))) + (_g245987246027_ + _g245988246030_)))))))) (let () (declare (not safe)) - (_loop246072246123_ _target246069246118_ '()))) + (_loop246002246053_ _target245999246048_ '()))) (let () (declare (not safe)) - (_g246057246097_ _g246058246100_)))))) + (_g245987246027_ _g245988246030_)))))) (let () (declare (not safe)) - (_g246057246097_ _g246058246100_))))) + (_g245987246027_ _g245988246030_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g246057246097_ - _g246058246100_))) + (_g245987246027_ + _g245988246030_))) (let () (declare (not safe)) - (_g246057246097_ - _g246058246100_))) + (_g245987246027_ + _g245988246030_))) (let () (declare (not safe)) - (_g246057246097_ - _g246058246100_))))) + (_g245987246027_ + _g245988246030_))))) (let () (declare (not safe)) - (_g246057246097_ _g246058246100_)))))) + (_g245987246027_ _g245988246030_)))))) (declare (not safe)) - (_g246056246223_ _expr246052_)))) - (_clause-e245844_ - (lambda (_clause-lambda245922_ _kont-id245923_ _rest245924_) - (letrec* ((_kont-box245926_ + (_g245986246153_ _expr245982_)))) + (_clause-e245774_ + (lambda (_clause-lambda245852_ _kont-id245853_ _rest245854_) + (letrec* ((_kont-box245856_ (let () (declare (not safe)) (box '#f)))) - (let* ((_negation-id245966_ - (let* ((_rest245927245937_ _rest245924_) - (_else245929245945_ - (lambda () _negation-id245840_)) - (_K245931245951_ - (lambda (_clause245948_ - _clause-id245949_) - _clause-id245949_))) + (let* ((_negation-id245896_ + (let* ((_rest245857245867_ _rest245854_) + (_else245859245875_ + (lambda () _negation-id245770_)) + (_K245861245881_ + (lambda (_clause245878_ + _clause-id245879_) + _clause-id245879_))) (if (let () (declare (not safe)) - (##pair? _rest245927245937_)) - (let ((_hd245932245954_ + (##pair? _rest245857245867_)) + (let ((_hd245862245884_ (let () (declare (not safe)) - (##car _rest245927245937_)))) + (##car _rest245857245867_)))) (if (let () (declare (not safe)) - (##pair? _hd245932245954_)) - (let ((_hd245934245957_ + (##pair? _hd245862245884_)) + (let ((_hd245864245887_ (let () (declare (not safe)) - (##car _hd245932245954_))) - (_tl245935245959_ + (##car _hd245862245884_))) + (_tl245865245889_ (let () (declare (not safe)) - (##cdr _hd245932245954_)))) - (let* ((_clause-id245962_ - _hd245934245957_) - (_clause245964_ - _tl245935245959_)) + (##cdr _hd245862245884_)))) + (let* ((_clause-id245892_ + _hd245864245887_) + (_clause245894_ + _tl245865245889_)) (declare (not safe)) - (_K245931245951_ - _clause245964_ - _clause-id245962_))) + (_K245861245881_ + _clause245894_ + _clause-id245892_))) (let () (declare (not safe)) - (_else245929245945_)))) + (_else245859245875_)))) (let () (declare (not safe)) - (_else245929245945_))))) - (_g245968245988_ - (lambda (_g245969245985_) + (_else245859245875_))))) + (_g245898245918_ + (lambda (_g245899245915_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g245969245985_)))) - (_g245967246049_ - (lambda (_g245969245991_) + _g245899245915_)))) + (_g245897245979_ + (lambda (_g245899245921_) (if (let () (declare (not safe)) - (gx#stx-pair? _g245969245991_)) - (let ((_e245974245993_ + (gx#stx-pair? _g245899245921_)) + (let ((_e245904245923_ (let () (declare (not safe)) - (gx#stx-e _g245969245991_)))) - (let ((_hd245973245996_ + (gx#stx-e _g245899245921_)))) + (let ((_hd245903245926_ (let () (declare (not safe)) - (##car _e245974245993_))) - (_tl245972245998_ + (##car _e245904245923_))) + (_tl245902245928_ (let () (declare (not safe)) - (##cdr _e245974245993_)))) + (##cdr _e245904245923_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd245973245996_)) + _hd245903245926_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd245973245996_)) + _hd245903245926_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245972245998_)) - (let ((_e245977246001_ + _tl245902245928_)) + (let ((_e245907245931_ (let () (declare (not safe)) (gx#stx-e - _tl245972245998_)))) - (let ((_hd245976246004_ + _tl245902245928_)))) + (let ((_hd245906245934_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e245977246001_))) - (_tl245975246006_ - (let () (declare (not safe)) (##cdr _e245977246001_)))) + (##car _e245907245931_))) + (_tl245905245936_ + (let () (declare (not safe)) (##cdr _e245907245931_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245976246004_)) - (let ((_e245980246009_ + (gx#stx-pair? _hd245906245934_)) + (let ((_e245910245939_ (let () (declare (not safe)) - (gx#stx-e _hd245976246004_)))) - (let ((_hd245979246012_ + (gx#stx-e _hd245906245934_)))) + (let ((_hd245909245942_ (let () (declare (not safe)) - (##car _e245980246009_))) - (_tl245978246014_ + (##car _e245910245939_))) + (_tl245908245944_ (let () (declare (not safe)) - (##cdr _e245980246009_)))) + (##cdr _e245910245939_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245978246014_)) + (gx#stx-null? _tl245908245944_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245975246006_)) - (let ((_e245983246017_ + (gx#stx-pair? _tl245905245936_)) + (let ((_e245913245947_ (let () (declare (not safe)) - (gx#stx-e _tl245975246006_)))) - (let ((_hd245982246020_ + (gx#stx-e _tl245905245936_)))) + (let ((_hd245912245950_ (let () (declare (not safe)) - (##car _e245983246017_))) - (_tl245981246022_ + (##car _e245913245947_))) + (_tl245911245952_ (let () (declare (not safe)) - (##cdr _e245983246017_)))) + (##cdr _e245913245947_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245981246022_)) - ((lambda (_L246025_ _L246026_) - (let ((_body246047_ + (gx#stx-null? _tl245911245952_)) + ((lambda (_L245955_ _L245956_) + (let ((_body245977_ (let () (declare (not safe)) - (_xform-e245842_ - _L246025_ - _kont-id245923_ - _kont-box245926_ - _negation-id245966_)))) - (values (let ((__tmp263834 - (let ((__tmp263836 + (_xform-e245772_ + _L245955_ + _kont-id245853_ + _kont-box245856_ + _negation-id245896_)))) + (values (let ((__tmp263764 + (let ((__tmp263766 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L246026_ '()))) - (__tmp263835 + (let () (declare (not safe)) (cons _L245956_ '()))) + (__tmp263765 (let () (declare (not safe)) - (cons _body246047_ '())))) + (cons _body245977_ '())))) (declare (not safe)) - (cons __tmp263836 __tmp263835)))) + (cons __tmp263766 __tmp263765)))) (declare (not safe)) - (cons '%#lambda __tmp263834)) + (cons '%#lambda __tmp263764)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _kont-box245926_)))) - _hd245982246020_ - _hd245979246012_) + (unbox _kont-box245856_)))) + _hd245912245950_ + _hd245909245942_) (let () (declare (not safe)) - (_g245968245988_ _g245969245991_))))) + (_g245898245918_ _g245899245921_))))) (let () (declare (not safe)) - (_g245968245988_ _g245969245991_))) + (_g245898245918_ _g245899245921_))) (let () (declare (not safe)) - (_g245968245988_ _g245969245991_))))) + (_g245898245918_ _g245899245921_))))) (let () (declare (not safe)) - (_g245968245988_ _g245969245991_))))) + (_g245898245918_ _g245899245921_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245968245988_ - _g245969245991_))) + (_g245898245918_ + _g245899245921_))) (let () (declare (not safe)) - (_g245968245988_ - _g245969245991_))) + (_g245898245918_ + _g245899245921_))) (let () (declare (not safe)) - (_g245968245988_ - _g245969245991_))))) + (_g245898245918_ + _g245899245921_))))) (let () (declare (not safe)) - (_g245968245988_ _g245969245991_)))))) + (_g245898245918_ _g245899245921_)))))) (declare (not safe)) - (_g245967246049_ _clause-lambda245922_)))))) - (let _lp245846_ ((_rest245848_ _clauses245839_) - (_clauses245849_ '()) - (_konts245850_ '())) - (let* ((_rest245851245859_ _rest245848_) - (_else245853245867_ + (_g245897245979_ _clause-lambda245852_)))))) + (let _lp245776_ ((_rest245778_ _clauses245769_) + (_clauses245779_ '()) + (_konts245780_ '())) + (let* ((_rest245781245789_ _rest245778_) + (_else245783245797_ (lambda () - (values (reverse _clauses245849_) - (reverse _konts245850_)))) - (_K245855245910_ - (lambda (_rest245870_ _clause245871_) - (let* ((_clause245872245879_ _clause245871_) - (_E245874245883_ + (values (reverse _clauses245779_) + (reverse _konts245780_)))) + (_K245785245840_ + (lambda (_rest245800_ _clause245801_) + (let* ((_clause245802245809_ _clause245801_) + (_E245804245813_ (lambda () (error '"No clause matching" - _clause245872245879_))) - (_K245875245898_ - (lambda (_clause-lambda245886_ _clause-id245887_) - (let* ((_id245889_ - (let ((__tmp263837 (gensym '__kont))) + _clause245802245809_))) + (_K245805245828_ + (lambda (_clause-lambda245816_ _clause-id245817_) + (let* ((_id245819_ + (let ((__tmp263767 (gensym '__kont))) (declare (not safe)) - (make-symbol__0 __tmp263837))) - (_id245891_ + (make-symbol__0 __tmp263767))) + (_id245821_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _id245889_))) - (_g263838_ + _id245819_))) + (_g263768_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id245891_))) - (_g263839_ + _id245821_))) + (_g263769_ (let () (declare (not safe)) - (_clause-e245844_ - _clause-lambda245886_ - _id245891_ - _rest245870_)))) + (_clause-e245774_ + _clause-lambda245816_ + _id245821_ + _rest245800_)))) (begin - (let ((_g263840_ + (let ((_g263770_ (let () (declare (not safe)) - (if (##values? _g263839_) - (##vector-length _g263839_) + (if (##values? _g263769_) + (##vector-length _g263769_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g263840_ 2))) + (##fx= _g263770_ 2))) (error "Context expects 2 values" - _g263840_))) - (let ((_clause-lambda245894_ + _g263770_))) + (let ((_clause-lambda245824_ (let () (declare (not safe)) - (##vector-ref _g263839_ 0))) - (_kont245895_ + (##vector-ref _g263769_ 0))) + (_kont245825_ (let () (declare (not safe)) - (##vector-ref _g263839_ 1)))) + (##vector-ref _g263769_ 1)))) (let () - (let ((__tmp263843 - (let ((__tmp263844 + (let ((__tmp263773 + (let ((__tmp263774 (let () (declare (not safe)) - (cons _clause-id245887_ - _clause-lambda245894_)))) + (cons _clause-id245817_ + _clause-lambda245824_)))) (declare (not safe)) - (cons __tmp263844 - _clauses245849_))) - (__tmp263841 - (let ((__tmp263842 + (cons __tmp263774 + _clauses245779_))) + (__tmp263771 + (let ((__tmp263772 (let () (declare (not safe)) - (cons _id245891_ - _kont245895_)))) + (cons _id245821_ + _kont245825_)))) (declare (not safe)) - (cons __tmp263842 - _konts245850_)))) + (cons __tmp263772 + _konts245780_)))) (declare (not safe)) - (_lp245846_ - _rest245870_ - __tmp263843 - __tmp263841))))))))) + (_lp245776_ + _rest245800_ + __tmp263773 + __tmp263771))))))))) (if (let () (declare (not safe)) - (##pair? _clause245872245879_)) - (let ((_hd245876245901_ + (##pair? _clause245802245809_)) + (let ((_hd245806245831_ (let () (declare (not safe)) - (##car _clause245872245879_))) - (_tl245877245903_ + (##car _clause245802245809_))) + (_tl245807245833_ (let () (declare (not safe)) - (##cdr _clause245872245879_)))) - (let* ((_clause-id245906_ _hd245876245901_) - (_clause-lambda245908_ _tl245877245903_)) + (##cdr _clause245802245809_)))) + (let* ((_clause-id245836_ _hd245806245831_) + (_clause-lambda245838_ _tl245807245833_)) (declare (not safe)) - (_K245875245898_ - _clause-lambda245908_ - _clause-id245906_))) + (_K245805245828_ + _clause-lambda245838_ + _clause-id245836_))) (let () (declare (not safe)) - (_E245874245883_))))))) - (if (let () (declare (not safe)) (##pair? _rest245851245859_)) - (let ((_hd245856245913_ + (_E245804245813_))))))) + (if (let () (declare (not safe)) (##pair? _rest245781245789_)) + (let ((_hd245786245843_ (let () (declare (not safe)) - (##car _rest245851245859_))) - (_tl245857245915_ + (##car _rest245781245789_))) + (_tl245787245845_ (let () (declare (not safe)) - (##cdr _rest245851245859_)))) - (let* ((_clause245918_ _hd245856245913_) - (_rest245920_ _tl245857245915_)) + (##cdr _rest245781245789_)))) + (let* ((_clause245848_ _hd245786245843_) + (_rest245850_ _tl245787245845_)) (declare (not safe)) - (_K245855245910_ _rest245920_ _clause245918_))) - (let () (declare (not safe)) (_else245853245867_)))))))) + (_K245785245840_ _rest245850_ _clause245848_))) + (let () (declare (not safe)) (_else245783245797_)))))))) (define gxc#optimize-syntax-case-closure - (lambda (_clause245183_ _negation245184_ _target245185_) - (letrec ((_closure-e245187_ - (lambda (_expr245304_) - (let* ((___stx263020263021_ _expr245304_) - (_g245311245426_ + (lambda (_clause245113_ _negation245114_ _target245115_) + (letrec ((_closure-e245117_ + (lambda (_expr245234_) + (let* ((___stx262950262951_ _expr245234_) + (_g245241245356_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx263020263021_))))) - (let ((___kont263022263023_ - (lambda (_L245817_ _L245818_ _L245819_) - (let ((__tmp263845 - (let ((__tmp263846 - (let ((__tmp263849 + ___stx262950262951_))))) + (let ((___kont262952262953_ + (lambda (_L245747_ _L245748_ _L245749_) + (let ((__tmp263775 + (let ((__tmp263776 + (let ((__tmp263779 (let () (declare (not safe)) - (_closure-e245187_ - _L245818_))) - (__tmp263847 - (let ((__tmp263848 + (_closure-e245117_ + _L245748_))) + (__tmp263777 + (let ((__tmp263778 (let () (declare (not safe)) - (_closure-e245187_ - _L245817_)))) + (_closure-e245117_ + _L245747_)))) (declare (not safe)) - (cons __tmp263848 '())))) + (cons __tmp263778 '())))) (declare (not safe)) - (cons __tmp263849 - __tmp263847)))) + (cons __tmp263779 + __tmp263777)))) (declare (not safe)) - (cons _L245819_ __tmp263846)))) + (cons _L245749_ __tmp263776)))) (declare (not safe)) - (cons '%#if __tmp263845)))) - (___kont263024263025_ - (lambda (_L245765_ _L245766_) - (let ((__tmp263850 - (let ((__tmp263851 - (let ((__tmp263852 + (cons '%#if __tmp263775)))) + (___kont262954262955_ + (lambda (_L245695_ _L245696_) + (let ((__tmp263780 + (let ((__tmp263781 + (let ((__tmp263782 (let () (declare (not safe)) - (_closure-e245187_ - _L245765_)))) + (_closure-e245117_ + _L245695_)))) (declare (not safe)) - (cons __tmp263852 '())))) + (cons __tmp263782 '())))) (declare (not safe)) - (cons _L245766_ __tmp263851)))) + (cons _L245696_ __tmp263781)))) (declare (not safe)) - (cons '%#let-values __tmp263850)))) - (___kont263026263027_ - (lambda (_L245711_ _L245712_ _L245713_) - (let ((__tmp263853 - (let ((__tmp263855 - (let ((__tmp263856 - (let ((__tmp263859 + (cons '%#let-values __tmp263780)))) + (___kont262956262957_ + (lambda (_L245641_ _L245642_ _L245643_) + (let ((__tmp263783 + (let ((__tmp263785 + (let ((__tmp263786 + (let ((__tmp263789 (let () (declare (not safe)) - (cons _L245713_ + (cons _L245643_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp263857 - (let ((__tmp263858 + (__tmp263787 + (let ((__tmp263788 (let () (declare (not safe)) - (_closure-e245187_ _L245712_)))) + (_closure-e245117_ _L245642_)))) (declare (not safe)) - (cons __tmp263858 '())))) + (cons __tmp263788 '())))) (declare (not safe)) - (cons __tmp263859 __tmp263857)))) + (cons __tmp263789 __tmp263787)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp263856 '()))) - (__tmp263854 + (cons __tmp263786 '()))) + (__tmp263784 (let () (declare (not safe)) - (cons _L245711_ '())))) + (cons _L245641_ '())))) (declare (not safe)) - (cons __tmp263855 __tmp263854)))) + (cons __tmp263785 __tmp263784)))) (declare (not safe)) - (cons '%#letrec-values __tmp263853)))) - (___kont263028263029_ - (lambda (_L245624_ _L245625_) - (let ((__tmp263860 - (let ((__tmp263863 - (let ((__tmp263864 - (lambda (_g245642245645_ - _g245643245647_) + (cons '%#letrec-values __tmp263783)))) + (___kont262958262959_ + (lambda (_L245554_ _L245555_) + (let ((__tmp263790 + (let ((__tmp263793 + (let ((__tmp263794 + (lambda (_g245572245575_ + _g245573245577_) (let () (declare (not safe)) - (cons _g245642245645_ - _g245643245647_))))) + (cons _g245572245575_ + _g245573245577_))))) (declare (not safe)) - (foldr1 __tmp263864 + (foldr1 __tmp263794 '() - _L245625_))) - (__tmp263861 - (let ((__tmp263862 + _L245555_))) + (__tmp263791 + (let ((__tmp263792 (let () (declare (not safe)) - (_closure-e245187_ - _L245624_)))) + (_closure-e245117_ + _L245554_)))) (declare (not safe)) - (cons __tmp263862 '())))) + (cons __tmp263792 '())))) (declare (not safe)) - (cons __tmp263863 __tmp263861)))) + (cons __tmp263793 __tmp263791)))) (declare (not safe)) - (cons '%#lambda __tmp263860)))) - (___kont263032263033_ - (lambda (_L245554_) - (let ((__tmp263865 - (let ((__tmp263866 - (let ((__tmp263868 + (cons '%#lambda __tmp263790)))) + (___kont262962262963_ + (lambda (_L245484_) + (let ((__tmp263795 + (let ((__tmp263796 + (let ((__tmp263798 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp263867 + (__tmp263797 (let () (declare (not safe)) - (cons _L245554_ '())))) + (cons _L245484_ '())))) (declare (not safe)) - (cons __tmp263868 - __tmp263867)))) + (cons __tmp263798 + __tmp263797)))) (declare (not safe)) - (cons __tmp263866 '())))) + (cons __tmp263796 '())))) (declare (not safe)) - (cons '%#call __tmp263865)))) - (___kont263034263035_ - (lambda (_L245487_ _L245488_) _expr245304_))) - (let* ((___match263253263254_ - (lambda (_e245403245431_ - _hd245402245434_ - _tl245401245436_ - _e245406245439_ - _hd245405245442_ - _tl245404245444_ - _e245409245447_ - _hd245408245450_ - _tl245407245452_ - _e245412245455_ - _hd245411245458_ - _tl245410245460_ - ___splice263036263037_ - _target245413245463_ - _tl245415245465_) - (letrec ((_loop245416245468_ - (lambda (_hd245414245471_ - _arg245420245473_) + (cons '%#call __tmp263795)))) + (___kont262964262965_ + (lambda (_L245417_ _L245418_) _expr245234_))) + (let* ((___match263183263184_ + (lambda (_e245333245361_ + _hd245332245364_ + _tl245331245366_ + _e245336245369_ + _hd245335245372_ + _tl245334245374_ + _e245339245377_ + _hd245338245380_ + _tl245337245382_ + _e245342245385_ + _hd245341245388_ + _tl245340245390_ + ___splice262966262967_ + _target245343245393_ + _tl245345245395_) + (letrec ((_loop245346245398_ + (lambda (_hd245344245401_ + _arg245350245403_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd245414245471_)) - (let ((_e245417245476_ + _hd245344245401_)) + (let ((_e245347245406_ (let () (declare (not safe)) (gx#stx-e - _hd245414245471_)))) - (let ((_lp-tl245419245481_ + _hd245344245401_)))) + (let ((_lp-tl245349245411_ (let () (declare (not safe)) - (##cdr _e245417245476_))) - (_lp-hd245418245479_ + (##cdr _e245347245406_))) + (_lp-hd245348245409_ (let () (declare (not safe)) - (##car _e245417245476_)))) - (let ((__tmp263869 + (##car _e245347245406_)))) + (let ((__tmp263799 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd245418245479_ _arg245420245473_)))) + (cons _lp-hd245348245409_ _arg245350245403_)))) (declare (not safe)) - (_loop245416245468_ _lp-tl245419245481_ __tmp263869)))) + (_loop245346245398_ _lp-tl245349245411_ __tmp263799)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg245421245484_ - (reverse _arg245420245473_))) - (___kont263034263035_ - _arg245421245484_ - _hd245411245458_)))))) + (let ((_arg245351245414_ + (reverse _arg245350245403_))) + (___kont262964262965_ + _arg245351245414_ + _hd245341245388_)))))) (let () (declare (not safe)) - (_loop245416245468_ - _target245413245463_ + (_loop245346245398_ + _target245343245393_ '()))))) - (___match263211263212_ - (lambda (_e245386245514_ - _hd245385245517_ - _tl245384245519_ - _e245389245522_ - _hd245388245525_ - _tl245387245527_ - _e245392245530_ - _hd245391245533_ - _tl245390245535_ - _e245395245538_ - _hd245394245541_ - _tl245393245543_ - _e245398245546_ - _hd245397245549_ - _tl245396245551_) - (let ((_L245554_ _hd245394245541_)) + (___match263141263142_ + (lambda (_e245316245444_ + _hd245315245447_ + _tl245314245449_ + _e245319245452_ + _hd245318245455_ + _tl245317245457_ + _e245322245460_ + _hd245321245463_ + _tl245320245465_ + _e245325245468_ + _hd245324245471_ + _tl245323245473_ + _e245328245476_ + _hd245327245479_ + _tl245326245481_) + (let ((_L245484_ _hd245324245471_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L245554_ - _negation245184_)) - (___kont263032263033_ _L245554_) + _L245484_ + _negation245114_)) + (___kont262962262963_ _L245484_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl245387245527_)) - (let ((___splice263036263037_ + _tl245317245457_)) + (let ((___splice262966262967_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl245387245527_ + _tl245317245457_ '0)))) - (let ((_tl245415245465_ + (let ((_tl245345245395_ (let () (declare (not safe)) (##vector-ref - ___splice263036263037_ + ___splice262966262967_ '1))) - (_target245413245463_ + (_target245343245393_ (let () (declare (not safe)) (##vector-ref - ___splice263036263037_ + ___splice262966262967_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245415245465_)) - (___match263253263254_ - _e245386245514_ - _hd245385245517_ - _tl245384245519_ - _e245389245522_ - _hd245388245525_ - _tl245387245527_ - _e245392245530_ - _hd245391245533_ - _tl245390245535_ - _e245395245538_ - _hd245394245541_ - _tl245393245543_ - ___splice263036263037_ - _target245413245463_ - _tl245415245465_) + _tl245345245395_)) + (___match263183263184_ + _e245316245444_ + _hd245315245447_ + _tl245314245449_ + _e245319245452_ + _hd245318245455_ + _tl245317245457_ + _e245322245460_ + _hd245321245463_ + _tl245320245465_ + _e245325245468_ + _hd245324245471_ + _tl245323245473_ + ___splice262966262967_ + _target245343245393_ + _tl245345245395_) (let () (declare (not safe)) - (_g245311245426_))))) + (_g245241245356_))))) (let () (declare (not safe)) - (_g245311245426_))))))) - (___match263169263170_ - (lambda (_e245367245576_ - _hd245366245579_ - _tl245365245581_ - _e245370245584_ - _hd245369245587_ - _tl245368245589_ - ___splice263030263031_ - _target245371245592_ - _tl245373245594_) - (letrec ((_loop245374245597_ - (lambda (_hd245372245600_ - _id245378245602_) + (_g245241245356_))))))) + (___match263099263100_ + (lambda (_e245297245506_ + _hd245296245509_ + _tl245295245511_ + _e245300245514_ + _hd245299245517_ + _tl245298245519_ + ___splice262960262961_ + _target245301245522_ + _tl245303245524_) + (letrec ((_loop245304245527_ + (lambda (_hd245302245530_ + _id245308245532_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd245372245600_)) - (let ((_e245375245605_ + _hd245302245530_)) + (let ((_e245305245535_ (let () (declare (not safe)) (gx#stx-e - _hd245372245600_)))) - (let ((_lp-tl245377245610_ + _hd245302245530_)))) + (let ((_lp-tl245307245540_ (let () (declare (not safe)) - (##cdr _e245375245605_))) - (_lp-hd245376245608_ + (##cdr _e245305245535_))) + (_lp-hd245306245538_ (let () (declare (not safe)) - (##car _e245375245605_)))) - (let ((__tmp263870 + (##car _e245305245535_)))) + (let ((__tmp263800 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd245376245608_ _id245378245602_)))) + (cons _lp-hd245306245538_ _id245308245532_)))) (declare (not safe)) - (_loop245374245597_ _lp-tl245377245610_ __tmp263870)))) + (_loop245304245527_ _lp-tl245307245540_ __tmp263800)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id245379245613_ - (reverse _id245378245602_))) + (let ((_id245309245543_ + (reverse _id245308245532_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245368245589_)) - (let ((_e245382245616_ + _tl245298245519_)) + (let ((_e245312245546_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl245368245589_)))) - (let ((_tl245380245621_ - (let () (declare (not safe)) (##cdr _e245382245616_))) - (_hd245381245619_ + (gx#stx-e _tl245298245519_)))) + (let ((_tl245310245551_ + (let () (declare (not safe)) (##cdr _e245312245546_))) + (_hd245311245549_ (let () (declare (not safe)) - (##car _e245382245616_)))) + (##car _e245312245546_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245380245621_)) - (___kont263028263029_ - _hd245381245619_ - _id245379245613_) - (let () (declare (not safe)) (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_)))))))) + (gx#stx-null? _tl245310245551_)) + (___kont262958262959_ + _hd245311245549_ + _id245309245543_) + (let () (declare (not safe)) (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop245374245597_ - _target245371245592_ + (_loop245304245527_ + _target245301245522_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx263020263021_)) - (let ((_e245318245785_ + (gx#stx-pair? ___stx262950262951_)) + (let ((_e245248245715_ (let () (declare (not safe)) - (gx#stx-e ___stx263020263021_)))) - (let ((_tl245316245790_ + (gx#stx-e ___stx262950262951_)))) + (let ((_tl245246245720_ (let () (declare (not safe)) - (##cdr _e245318245785_))) - (_hd245317245788_ + (##cdr _e245248245715_))) + (_hd245247245718_ (let () (declare (not safe)) - (##car _e245318245785_)))) + (##car _e245248245715_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245317245788_)) + (gx#identifier? _hd245247245718_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd245317245788_)) + _hd245247245718_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245316245790_)) - (let ((_e245321245793_ + _tl245246245720_)) + (let ((_e245251245723_ (let () (declare (not safe)) (gx#stx-e - _tl245316245790_)))) - (let ((_tl245319245798_ + _tl245246245720_)))) + (let ((_tl245249245728_ (let () (declare (not safe)) - (##cdr _e245321245793_))) - (_hd245320245796_ + (##cdr _e245251245723_))) + (_hd245250245726_ (let () (declare (not safe)) - (##car _e245321245793_)))) + (##car _e245251245723_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245319245798_)) - (let ((_e245324245801_ + _tl245249245728_)) + (let ((_e245254245731_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl245319245798_)))) - (let ((_tl245322245806_ - (let () (declare (not safe)) (##cdr _e245324245801_))) - (_hd245323245804_ - (let () (declare (not safe)) (##car _e245324245801_)))) + (gx#stx-e _tl245249245728_)))) + (let ((_tl245252245736_ + (let () (declare (not safe)) (##cdr _e245254245731_))) + (_hd245253245734_ + (let () (declare (not safe)) (##car _e245254245731_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245322245806_)) - (let ((_e245327245809_ + (gx#stx-pair? _tl245252245736_)) + (let ((_e245257245739_ (let () (declare (not safe)) - (gx#stx-e _tl245322245806_)))) - (let ((_tl245325245814_ + (gx#stx-e _tl245252245736_)))) + (let ((_tl245255245744_ (let () (declare (not safe)) - (##cdr _e245327245809_))) - (_hd245326245812_ + (##cdr _e245257245739_))) + (_hd245256245742_ (let () (declare (not safe)) - (##car _e245327245809_)))) + (##car _e245257245739_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245325245814_)) - (___kont263022263023_ - _hd245326245812_ - _hd245323245804_ - _hd245320245796_) + (gx#stx-null? _tl245255245744_)) + (___kont262952262953_ + _hd245256245742_ + _hd245253245734_ + _hd245250245726_) (let () (declare (not safe)) - (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_))))) + (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245311245426_))) + (_g245241245356_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd245317245788_)) + _hd245247245718_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245316245790_)) - (let ((_e245335245749_ + _tl245246245720_)) + (let ((_e245265245679_ (let () (declare (not safe)) (gx#stx-e - _tl245316245790_)))) - (let ((_tl245333245754_ + _tl245246245720_)))) + (let ((_tl245263245684_ (let () (declare (not safe)) - (##cdr _e245335245749_))) - (_hd245334245752_ + (##cdr _e245265245679_))) + (_hd245264245682_ (let () (declare (not safe)) - (##car _e245335245749_)))) + (##car _e245265245679_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245333245754_)) - (let ((_e245338245757_ + _tl245263245684_)) + (let ((_e245268245687_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl245333245754_)))) - (let ((_tl245336245762_ + (gx#stx-e _tl245263245684_)))) + (let ((_tl245266245692_ (let () (declare (not safe)) - (##cdr _e245338245757_))) - (_hd245337245760_ + (##cdr _e245268245687_))) + (_hd245267245690_ (let () (declare (not safe)) - (##car _e245338245757_)))) + (##car _e245268245687_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245336245762_)) - (___kont263024263025_ - _hd245337245760_ - _hd245334245752_) - (let () (declare (not safe)) (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_))))) + (gx#stx-null? _tl245266245692_)) + (___kont262954262955_ + _hd245267245690_ + _hd245264245682_) + (let () (declare (not safe)) (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245311245426_))) + (_g245241245356_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd245317245788_)) + _hd245247245718_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245316245790_)) - (let ((_e245347245663_ + _tl245246245720_)) + (let ((_e245277245593_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl245316245790_)))) - (let ((_tl245345245668_ - (let () (declare (not safe)) (##cdr _e245347245663_))) - (_hd245346245666_ - (let () (declare (not safe)) (##car _e245347245663_)))) + (gx#stx-e _tl245246245720_)))) + (let ((_tl245275245598_ + (let () (declare (not safe)) (##cdr _e245277245593_))) + (_hd245276245596_ + (let () (declare (not safe)) (##car _e245277245593_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245346245666_)) - (let ((_e245350245671_ + (gx#stx-pair? _hd245276245596_)) + (let ((_e245280245601_ (let () (declare (not safe)) - (gx#stx-e _hd245346245666_)))) - (let ((_tl245348245676_ + (gx#stx-e _hd245276245596_)))) + (let ((_tl245278245606_ (let () (declare (not safe)) - (##cdr _e245350245671_))) - (_hd245349245674_ + (##cdr _e245280245601_))) + (_hd245279245604_ (let () (declare (not safe)) - (##car _e245350245671_)))) + (##car _e245280245601_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245349245674_)) - (let ((_e245353245679_ + (gx#stx-pair? _hd245279245604_)) + (let ((_e245283245609_ (let () (declare (not safe)) - (gx#stx-e _hd245349245674_)))) - (let ((_tl245351245684_ + (gx#stx-e _hd245279245604_)))) + (let ((_tl245281245614_ (let () (declare (not safe)) - (##cdr _e245353245679_))) - (_hd245352245682_ + (##cdr _e245283245609_))) + (_hd245282245612_ (let () (declare (not safe)) - (##car _e245353245679_)))) + (##car _e245283245609_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245352245682_)) - (let ((_e245356245687_ + (gx#stx-pair? _hd245282245612_)) + (let ((_e245286245617_ (let () (declare (not safe)) - (gx#stx-e _hd245352245682_)))) - (let ((_tl245354245692_ + (gx#stx-e _hd245282245612_)))) + (let ((_tl245284245622_ (let () (declare (not safe)) - (##cdr _e245356245687_))) - (_hd245355245690_ + (##cdr _e245286245617_))) + (_hd245285245620_ (let () (declare (not safe)) - (##car _e245356245687_)))) + (##car _e245286245617_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245354245692_)) + _tl245284245622_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245351245684_)) - (let ((_e245359245695_ + _tl245281245614_)) + (let ((_e245289245625_ (let () (declare (not safe)) (gx#stx-e - _tl245351245684_)))) - (let ((_tl245357245700_ + _tl245281245614_)))) + (let ((_tl245287245630_ (let () (declare (not safe)) - (##cdr _e245359245695_))) - (_hd245358245698_ + (##cdr _e245289245625_))) + (_hd245288245628_ (let () (declare (not safe)) - (##car _e245359245695_)))) + (##car _e245289245625_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245357245700_)) + _tl245287245630_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl245348245676_)) + (gx#stx-null? _tl245278245606_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245345245668_)) - (let ((_e245362245703_ + (gx#stx-pair? _tl245275245598_)) + (let ((_e245292245633_ (let () (declare (not safe)) - (gx#stx-e _tl245345245668_)))) - (let ((_tl245360245708_ + (gx#stx-e _tl245275245598_)))) + (let ((_tl245290245638_ (let () (declare (not safe)) - (##cdr _e245362245703_))) - (_hd245361245706_ + (##cdr _e245292245633_))) + (_hd245291245636_ (let () (declare (not safe)) - (##car _e245362245703_)))) + (##car _e245292245633_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245360245708_)) - (___kont263026263027_ - _hd245361245706_ - _hd245358245698_ - _hd245355245690_) + (gx#stx-null? _tl245290245638_)) + (___kont262956262957_ + _hd245291245636_ + _hd245288245628_ + _hd245285245620_) (let () (declare (not safe)) - (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_))) - (let () (declare (not safe)) (_g245311245426_))) - (let () (declare (not safe)) (_g245311245426_))))) + (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_))) + (let () (declare (not safe)) (_g245241245356_))) + (let () (declare (not safe)) (_g245241245356_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245311245426_))) + (_g245241245356_))) (let () (declare (not safe)) - (_g245311245426_))))) + (_g245241245356_))))) (let () (declare (not safe)) - (_g245311245426_))))) + (_g245241245356_))))) (let () (declare (not safe)) - (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_))) + (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd245317245788_)) + _hd245247245718_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245316245790_)) - (let ((_e245370245584_ + _tl245246245720_)) + (let ((_e245300245514_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl245316245790_)))) - (let ((_tl245368245589_ + (gx#stx-e _tl245246245720_)))) + (let ((_tl245298245519_ (let () (declare (not safe)) - (##cdr _e245370245584_))) - (_hd245369245587_ + (##cdr _e245300245514_))) + (_hd245299245517_ (let () (declare (not safe)) - (##car _e245370245584_)))) + (##car _e245300245514_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd245369245587_)) - (let ((___splice263030263031_ + (gx#stx-pair/null? _hd245299245517_)) + (let ((___splice262960262961_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd245369245587_ + _hd245299245517_ '0)))) - (let ((_tl245373245594_ + (let ((_tl245303245524_ (let () (declare (not safe)) - (##vector-ref ___splice263030263031_ '1))) - (_target245371245592_ + (##vector-ref ___splice262960262961_ '1))) + (_target245301245522_ (let () (declare (not safe)) (##vector-ref - ___splice263030263031_ + ___splice262960262961_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245373245594_)) - (___match263169263170_ - _e245318245785_ - _hd245317245788_ - _tl245316245790_ - _e245370245584_ - _hd245369245587_ - _tl245368245589_ - ___splice263030263031_ - _target245371245592_ - _tl245373245594_) + (gx#stx-null? _tl245303245524_)) + (___match263099263100_ + _e245248245715_ + _hd245247245718_ + _tl245246245720_ + _e245300245514_ + _hd245299245517_ + _tl245298245519_ + ___splice262960262961_ + _target245301245522_ + _tl245303245524_) (let () (declare (not safe)) - (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_))) + (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd245317245788_)) + (gx#stx-eq? '%#call _hd245247245718_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245316245790_)) - (let ((_e245389245522_ + (gx#stx-pair? _tl245246245720_)) + (let ((_e245319245452_ (let () (declare (not safe)) - (gx#stx-e _tl245316245790_)))) - (let ((_tl245387245527_ + (gx#stx-e _tl245246245720_)))) + (let ((_tl245317245457_ (let () (declare (not safe)) - (##cdr _e245389245522_))) - (_hd245388245525_ + (##cdr _e245319245452_))) + (_hd245318245455_ (let () (declare (not safe)) - (##car _e245389245522_)))) + (##car _e245319245452_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245388245525_)) - (let ((_e245392245530_ + (gx#stx-pair? _hd245318245455_)) + (let ((_e245322245460_ (let () (declare (not safe)) - (gx#stx-e _hd245388245525_)))) - (let ((_tl245390245535_ + (gx#stx-e _hd245318245455_)))) + (let ((_tl245320245465_ (let () (declare (not safe)) - (##cdr _e245392245530_))) - (_hd245391245533_ + (##cdr _e245322245460_))) + (_hd245321245463_ (let () (declare (not safe)) - (##car _e245392245530_)))) + (##car _e245322245460_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245391245533_)) + (gx#identifier? _hd245321245463_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd245391245533_)) + _hd245321245463_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245390245535_)) - (let ((_e245395245538_ + _tl245320245465_)) + (let ((_e245325245468_ (let () (declare (not safe)) (gx#stx-e - _tl245390245535_)))) - (let ((_tl245393245543_ + _tl245320245465_)))) + (let ((_tl245323245473_ (let () (declare (not safe)) - (##cdr _e245395245538_))) - (_hd245394245541_ + (##cdr _e245325245468_))) + (_hd245324245471_ (let () (declare (not safe)) - (##car _e245395245538_)))) + (##car _e245325245468_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245393245543_)) + _tl245323245473_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245387245527_)) - (let ((_e245398245546_ + _tl245317245457_)) + (let ((_e245328245476_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl245387245527_)))) - (let ((_tl245396245551_ + (gx#stx-e _tl245317245457_)))) + (let ((_tl245326245481_ (let () (declare (not safe)) - (##cdr _e245398245546_))) - (_hd245397245549_ + (##cdr _e245328245476_))) + (_hd245327245479_ (let () (declare (not safe)) - (##car _e245398245546_)))) + (##car _e245328245476_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245396245551_)) - (___match263211263212_ - _e245318245785_ - _hd245317245788_ - _tl245316245790_ - _e245389245522_ - _hd245388245525_ - _tl245387245527_ - _e245392245530_ - _hd245391245533_ - _tl245390245535_ - _e245395245538_ - _hd245394245541_ - _tl245393245543_ - _e245398245546_ - _hd245397245549_ - _tl245396245551_) + (gx#stx-null? _tl245326245481_)) + (___match263141263142_ + _e245248245715_ + _hd245247245718_ + _tl245246245720_ + _e245319245452_ + _hd245318245455_ + _tl245317245457_ + _e245322245460_ + _hd245321245463_ + _tl245320245465_ + _e245325245468_ + _hd245324245471_ + _tl245323245473_ + _e245328245476_ + _hd245327245479_ + _tl245326245481_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl245387245527_)) - (let ((___splice263036263037_ + (gx#stx-pair/null? _tl245317245457_)) + (let ((___splice262966262967_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl245387245527_ + _tl245317245457_ '0)))) - (let ((_tl245415245465_ + (let ((_tl245345245395_ (let () (declare (not safe)) (##vector-ref - ___splice263036263037_ + ___splice262966262967_ '1))) - (_target245413245463_ + (_target245343245393_ (let () (declare (not safe)) (##vector-ref - ___splice263036263037_ + ___splice262966262967_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245415245465_)) - (___match263253263254_ - _e245318245785_ - _hd245317245788_ - _tl245316245790_ - _e245389245522_ - _hd245388245525_ - _tl245387245527_ - _e245392245530_ - _hd245391245533_ - _tl245390245535_ - _e245395245538_ - _hd245394245541_ - _tl245393245543_ - ___splice263036263037_ - _target245413245463_ - _tl245415245465_) + (gx#stx-null? _tl245345245395_)) + (___match263183263184_ + _e245248245715_ + _hd245247245718_ + _tl245246245720_ + _e245319245452_ + _hd245318245455_ + _tl245317245457_ + _e245322245460_ + _hd245321245463_ + _tl245320245465_ + _e245325245468_ + _hd245324245471_ + _tl245323245473_ + ___splice262966262967_ + _target245343245393_ + _tl245345245395_) (let () (declare (not safe)) - (_g245311245426_))))) + (_g245241245356_))))) (let () (declare (not safe)) - (_g245311245426_)))))) + (_g245241245356_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl245387245527_)) - (let ((___splice263036263037_ + (gx#stx-pair/null? _tl245317245457_)) + (let ((___splice262966262967_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl245387245527_ '0)))) - (let ((_tl245415245465_ + (gx#syntax-split-splice _tl245317245457_ '0)))) + (let ((_tl245345245395_ (let () (declare (not safe)) - (##vector-ref ___splice263036263037_ '1))) - (_target245413245463_ + (##vector-ref ___splice262966262967_ '1))) + (_target245343245393_ (let () (declare (not safe)) - (##vector-ref ___splice263036263037_ '0)))) + (##vector-ref ___splice262966262967_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245415245465_)) - (___match263253263254_ - _e245318245785_ - _hd245317245788_ - _tl245316245790_ - _e245389245522_ - _hd245388245525_ - _tl245387245527_ - _e245392245530_ - _hd245391245533_ - _tl245390245535_ - _e245395245538_ - _hd245394245541_ - _tl245393245543_ - ___splice263036263037_ - _target245413245463_ - _tl245415245465_) + (gx#stx-null? _tl245345245395_)) + (___match263183263184_ + _e245248245715_ + _hd245247245718_ + _tl245246245720_ + _e245319245452_ + _hd245318245455_ + _tl245317245457_ + _e245322245460_ + _hd245321245463_ + _tl245320245465_ + _e245325245468_ + _hd245324245471_ + _tl245323245473_ + ___splice262966262967_ + _target245343245393_ + _tl245345245395_) (let () (declare (not safe)) - (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_)))) - (let () (declare (not safe)) (_g245311245426_))))) + (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_)))) + (let () (declare (not safe)) (_g245241245356_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245311245426_))) + (_g245241245356_))) (let () (declare (not safe)) - (_g245311245426_))) + (_g245241245356_))) (let () (declare (not safe)) - (_g245311245426_))))) + (_g245241245356_))))) (let () (declare (not safe)) - (_g245311245426_))))) - (let () (declare (not safe)) (_g245311245426_))) - (let () (declare (not safe)) (_g245311245426_))))))) + (_g245241245356_))))) + (let () (declare (not safe)) (_g245241245356_))) + (let () (declare (not safe)) (_g245241245356_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245311245426_))))) + (_g245241245356_))))) (let () (declare (not safe)) - (_g245311245426_))))))))) - (let* ((_clause245188245195_ _clause245183_) - (_E245190245199_ + (_g245241245356_))))))))) + (let* ((_clause245118245125_ _clause245113_) + (_E245120245129_ (lambda () - (error '"No clause matching" _clause245188245195_))) - (_K245191245292_ - (lambda (_kont245202_ _id245203_) - (let* ((_g245205245225_ - (lambda (_g245206245222_) + (error '"No clause matching" _clause245118245125_))) + (_K245121245222_ + (lambda (_kont245132_ _id245133_) + (let* ((_g245135245155_ + (lambda (_g245136245152_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g245206245222_)))) - (_g245204245289_ - (lambda (_g245206245228_) + _g245136245152_)))) + (_g245134245219_ + (lambda (_g245136245158_) (if (let () (declare (not safe)) - (gx#stx-pair? _g245206245228_)) - (let ((_e245211245230_ + (gx#stx-pair? _g245136245158_)) + (let ((_e245141245160_ (let () (declare (not safe)) - (gx#stx-e _g245206245228_)))) - (let ((_hd245210245233_ + (gx#stx-e _g245136245158_)))) + (let ((_hd245140245163_ (let () (declare (not safe)) - (##car _e245211245230_))) - (_tl245209245235_ + (##car _e245141245160_))) + (_tl245139245165_ (let () (declare (not safe)) - (##cdr _e245211245230_)))) + (##cdr _e245141245160_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245210245233_)) + (gx#identifier? _hd245140245163_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd245210245233_)) + _hd245140245163_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245209245235_)) - (let ((_e245214245238_ + _tl245139245165_)) + (let ((_e245144245168_ (let () (declare (not safe)) (gx#stx-e - _tl245209245235_)))) - (let ((_hd245213245241_ + _tl245139245165_)))) + (let ((_hd245143245171_ (let () (declare (not safe)) - (##car _e245214245238_))) - (_tl245212245243_ + (##car _e245144245168_))) + (_tl245142245173_ (let () (declare (not safe)) - (##cdr _e245214245238_)))) + (##cdr _e245144245168_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd245213245241_)) - (let ((_e245217245246_ + _hd245143245171_)) + (let ((_e245147245176_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd245213245241_)))) - (let ((_hd245216245249_ + (gx#stx-e _hd245143245171_)))) + (let ((_hd245146245179_ (let () (declare (not safe)) - (##car _e245217245246_))) - (_tl245215245251_ + (##car _e245147245176_))) + (_tl245145245181_ (let () (declare (not safe)) - (##cdr _e245217245246_)))) + (##cdr _e245147245176_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245215245251_)) + (gx#stx-null? _tl245145245181_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245212245243_)) - (let ((_e245220245254_ + (gx#stx-pair? _tl245142245173_)) + (let ((_e245150245184_ (let () (declare (not safe)) - (gx#stx-e _tl245212245243_)))) - (let ((_hd245219245257_ + (gx#stx-e _tl245142245173_)))) + (let ((_hd245149245187_ (let () (declare (not safe)) - (##car _e245220245254_))) - (_tl245218245259_ + (##car _e245150245184_))) + (_tl245148245189_ (let () (declare (not safe)) - (##cdr _e245220245254_)))) + (##cdr _e245150245184_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245218245259_)) - ((lambda (_L245262_ _L245263_) - (let* ((_body245284_ + (gx#stx-null? _tl245148245189_)) + ((lambda (_L245192_ _L245193_) + (let* ((_body245214_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L245262_ - _L245263_ - _target245185_))) - (_body245286_ - (if _negation245184_ + _L245192_ + _L245193_ + _target245115_))) + (_body245216_ + (if _negation245114_ (let () (declare (not safe)) - (_closure-e245187_ - _body245284_)) - _body245284_))) - (let ((__tmp263872 + (_closure-e245117_ + _body245214_)) + _body245214_))) + (let ((__tmp263802 (let () (declare (not safe)) (gxc#identifier-symbol - _id245203_))) - (__tmp263871 - (let ((__obj263305 - (make-object* + _id245133_))) + (__tmp263801 + (let ((__obj263235 + (make-object gxc#!lambda::t '6))) (gxc#!lambda:::init! - __obj263305 + __obj263235 'lambda '0 '#f) - __obj263305))) + __obj263235))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp263872 - __tmp263871 + __tmp263802 + __tmp263801 '#t)) - (let ((__tmp263873 - (let ((__tmp263874 - (let ((__tmp263875 + (let ((__tmp263803 + (let ((__tmp263804 + (let ((__tmp263805 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body245286_ '())))) + (cons _body245216_ '())))) (declare (not safe)) - (cons '() __tmp263875)))) + (cons '() __tmp263805)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#lambda - __tmp263874)))) + __tmp263804)))) (declare (not safe)) - (cons _id245203_ __tmp263873)))) - _hd245219245257_ - _hd245216245249_) + (cons _id245133_ __tmp263803)))) + _hd245149245187_ + _hd245146245179_) (let () (declare (not safe)) - (_g245205245225_ _g245206245228_))))) + (_g245135245155_ _g245136245158_))))) (let () (declare (not safe)) - (_g245205245225_ _g245206245228_))) + (_g245135245155_ _g245136245158_))) (let () (declare (not safe)) - (_g245205245225_ _g245206245228_))))) + (_g245135245155_ _g245136245158_))))) (let () (declare (not safe)) - (_g245205245225_ _g245206245228_))))) + (_g245135245155_ _g245136245158_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245205245225_ - _g245206245228_))) + (_g245135245155_ + _g245136245158_))) (let () (declare (not safe)) - (_g245205245225_ - _g245206245228_))) + (_g245135245155_ + _g245136245158_))) (let () (declare (not safe)) - (_g245205245225_ - _g245206245228_))))) + (_g245135245155_ + _g245136245158_))))) (let () (declare (not safe)) - (_g245205245225_ _g245206245228_)))))) + (_g245135245155_ _g245136245158_)))))) (declare (not safe)) - (_g245204245289_ _kont245202_))))) - (if (let () (declare (not safe)) (##pair? _clause245188245195_)) - (let ((_hd245192245295_ + (_g245134245219_ _kont245132_))))) + (if (let () (declare (not safe)) (##pair? _clause245118245125_)) + (let ((_hd245122245225_ (let () (declare (not safe)) - (##car _clause245188245195_))) - (_tl245193245297_ + (##car _clause245118245125_))) + (_tl245123245227_ (let () (declare (not safe)) - (##cdr _clause245188245195_)))) - (let* ((_id245300_ _hd245192245295_) - (_kont245302_ _tl245193245297_)) + (##cdr _clause245118245125_)))) + (let* ((_id245230_ _hd245122245225_) + (_kont245232_ _tl245123245227_)) (declare (not safe)) - (_K245191245292_ _kont245302_ _id245300_))) - (let () (declare (not safe)) (_E245190245199_))))))) + (_K245121245222_ _kont245232_ _id245230_))) + (let () (declare (not safe)) (_E245120245129_))))))) (define gxc#push-match-vars-let-values% - (lambda (_stx244969_ _vars244970_ _K244971_) - (let* ((_g244973244990_ - (lambda (_g244974244987_) + (lambda (_stx244899_ _vars244900_ _K244901_) + (let* ((_g244903244920_ + (lambda (_g244904244917_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g244974244987_)))) - (_g244972245180_ - (lambda (_g244974244993_) + _g244904244917_)))) + (_g244902245110_ + (lambda (_g244904244923_) (if (let () (declare (not safe)) - (gx#stx-pair? _g244974244993_)) - (let ((_e244979244995_ + (gx#stx-pair? _g244904244923_)) + (let ((_e244909244925_ (let () (declare (not safe)) - (gx#stx-e _g244974244993_)))) - (let ((_hd244978244998_ + (gx#stx-e _g244904244923_)))) + (let ((_hd244908244928_ (let () (declare (not safe)) - (##car _e244979244995_))) - (_tl244977245000_ + (##car _e244909244925_))) + (_tl244907244930_ (let () (declare (not safe)) - (##cdr _e244979244995_)))) + (##cdr _e244909244925_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244977245000_)) - (let ((_e244982245003_ + (gx#stx-pair? _tl244907244930_)) + (let ((_e244912244933_ (let () (declare (not safe)) - (gx#stx-e _tl244977245000_)))) - (let ((_hd244981245006_ + (gx#stx-e _tl244907244930_)))) + (let ((_hd244911244936_ (let () (declare (not safe)) - (##car _e244982245003_))) - (_tl244980245008_ + (##car _e244912244933_))) + (_tl244910244938_ (let () (declare (not safe)) - (##cdr _e244982245003_)))) + (##cdr _e244912244933_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244980245008_)) - (let ((_e244985245011_ + (gx#stx-pair? _tl244910244938_)) + (let ((_e244915244941_ (let () (declare (not safe)) - (gx#stx-e _tl244980245008_)))) - (let ((_hd244984245014_ + (gx#stx-e _tl244910244938_)))) + (let ((_hd244914244944_ (let () (declare (not safe)) - (##car _e244985245011_))) - (_tl244983245016_ + (##car _e244915244941_))) + (_tl244913244946_ (let () (declare (not safe)) - (##cdr _e244985245011_)))) + (##cdr _e244915244941_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl244983245016_)) - ((lambda (_L245019_ _L245020_) - (let _lp245035_ ((_rest245037_ + _tl244913244946_)) + ((lambda (_L244949_ _L244950_) + (let _lp244965_ ((_rest244967_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L245020_) - (_rebind245038_ '()) - (_vars245039_ _vars244970_)) + _L244950_) + (_rebind244968_ '()) + (_vars244969_ _vars244900_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest245040245048_ - _rest245037_) - (_else245042245056_ + (let* ((_rest244970244978_ + _rest244967_) + (_else244972244986_ (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _rebind245038_)) + (null? _rebind244968_)) (let () (declare (not safe)) - (gxc#compile-e__2 _L245019_ _vars245039_ _K244971_)) - (let ((__tmp263876 - (let ((__tmp263877 - (let ((__tmp263880 - (reverse _rebind245038_)) - (__tmp263878 - (let ((__tmp263879 + (gxc#compile-e__2 _L244949_ _vars244969_ _K244901_)) + (let ((__tmp263806 + (let ((__tmp263807 + (let ((__tmp263810 + (reverse _rebind244968_)) + (__tmp263808 + (let ((__tmp263809 (let () (declare (not safe)) (gxc#compile-e__2 - _L245019_ - _vars245039_ - _K244971_)))) + _L244949_ + _vars244969_ + _K244901_)))) (declare (not safe)) - (cons __tmp263879 '())))) + (cons __tmp263809 '())))) (declare (not safe)) - (cons __tmp263880 __tmp263878)))) + (cons __tmp263810 __tmp263808)))) (declare (not safe)) - (cons '%#let-values __tmp263877)))) + (cons '%#let-values __tmp263807)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp263876 _stx244969_))))) - (_K245044245168_ - (lambda (_rest245059_ _bind245060_) - (let* ((___stx263256263257_ _bind245060_) - (_g245063245086_ + (gxc#xform-wrap-source __tmp263806 _stx244899_))))) + (_K244974245098_ + (lambda (_rest244989_ _bind244990_) + (let* ((___stx263186263187_ _bind244990_) + (_g244993245016_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx263256263257_))))) - (let ((___kont263258263259_ - (lambda (_L245138_ _L245139_) - (let ((__tmp263881 + ___stx263186263187_))))) + (let ((___kont263188263189_ + (lambda (_L245068_ _L245069_) + (let ((__tmp263811 (let () (declare (not safe)) - (cons _bind245060_ _vars245039_)))) + (cons _bind244990_ _vars244969_)))) (declare (not safe)) - (_lp245035_ - _rest245059_ - _rebind245038_ - __tmp263881)))) - (___kont263260263261_ + (_lp244965_ + _rest244989_ + _rebind244968_ + __tmp263811)))) + (___kont263190263191_ (lambda () - (let ((__tmp263882 + (let ((__tmp263812 (let () (declare (not safe)) - (cons _bind245060_ _rebind245038_)))) + (cons _bind244990_ _rebind244968_)))) (declare (not safe)) - (_lp245035_ - _rest245059_ - __tmp263882 - _vars245039_))))) + (_lp244965_ + _rest244989_ + __tmp263812 + _vars244969_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx263256263257_)) - (let ((_e245069245098_ + (gx#stx-pair? ___stx263186263187_)) + (let ((_e244999245028_ (let () (declare (not safe)) - (gx#stx-e ___stx263256263257_)))) - (let ((_tl245067245103_ + (gx#stx-e ___stx263186263187_)))) + (let ((_tl244997245033_ (let () (declare (not safe)) - (##cdr _e245069245098_))) - (_hd245068245101_ + (##cdr _e244999245028_))) + (_hd244998245031_ (let () (declare (not safe)) - (##car _e245069245098_)))) + (##car _e244999245028_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245068245101_)) - (let ((_e245072245106_ + (gx#stx-pair? _hd244998245031_)) + (let ((_e245002245036_ (let () (declare (not safe)) - (gx#stx-e _hd245068245101_)))) - (let ((_tl245070245111_ + (gx#stx-e _hd244998245031_)))) + (let ((_tl245000245041_ (let () (declare (not safe)) - (##cdr _e245072245106_))) - (_hd245071245109_ + (##cdr _e245002245036_))) + (_hd245001245039_ (let () (declare (not safe)) - (##car _e245072245106_)))) + (##car _e245002245036_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245070245111_)) + (gx#stx-null? _tl245000245041_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245067245103_)) - (let ((_e245075245114_ + _tl244997245033_)) + (let ((_e245005245044_ (let () (declare (not safe)) (gx#stx-e - _tl245067245103_)))) - (let ((_tl245073245119_ + _tl244997245033_)))) + (let ((_tl245003245049_ (let () (declare (not safe)) - (##cdr _e245075245114_))) - (_hd245074245117_ + (##cdr _e245005245044_))) + (_hd245004245047_ (let () (declare (not safe)) - (##car _e245075245114_)))) + (##car _e245005245044_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd245074245117_)) - (let ((_e245078245122_ + _hd245004245047_)) + (let ((_e245008245052_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd245074245117_)))) - (let ((_tl245076245127_ + (gx#stx-e _hd245004245047_)))) + (let ((_tl245006245057_ (let () (declare (not safe)) - (##cdr _e245078245122_))) - (_hd245077245125_ + (##cdr _e245008245052_))) + (_hd245007245055_ (let () (declare (not safe)) - (##car _e245078245122_)))) + (##car _e245008245052_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245077245125_)) + (gx#identifier? _hd245007245055_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd245077245125_)) + (gx#stx-eq? '%#ref _hd245007245055_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245076245127_)) - (let ((_e245081245130_ + (gx#stx-pair? _tl245006245057_)) + (let ((_e245011245060_ (let () (declare (not safe)) - (gx#stx-e _tl245076245127_)))) - (let ((_tl245079245135_ + (gx#stx-e _tl245006245057_)))) + (let ((_tl245009245065_ (let () (declare (not safe)) - (##cdr _e245081245130_))) - (_hd245080245133_ + (##cdr _e245011245060_))) + (_hd245010245063_ (let () (declare (not safe)) - (##car _e245081245130_)))) + (##car _e245011245060_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245079245135_)) + (gx#stx-null? _tl245009245065_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl245073245119_)) - (___kont263258263259_ - _hd245080245133_ - _hd245071245109_) - (___kont263260263261_)) - (___kont263260263261_)))) - (___kont263260263261_)) - (___kont263260263261_)) - (___kont263260263261_)))) - (___kont263260263261_)))) + (gx#stx-null? _tl245003245049_)) + (___kont263188263189_ + _hd245010245063_ + _hd245001245039_) + (___kont263190263191_)) + (___kont263190263191_)))) + (___kont263190263191_)) + (___kont263190263191_)) + (___kont263190263191_)))) + (___kont263190263191_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont263260263261_)) - (___kont263260263261_)))) - (___kont263260263261_)))) - (___kont263260263261_))))))) + (___kont263190263191_)) + (___kont263190263191_)))) + (___kont263190263191_)))) + (___kont263190263191_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest245040245048_)) - (let ((_hd245045245171_ + (##pair? _rest244970244978_)) + (let ((_hd244975245101_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _rest245040245048_))) - (_tl245046245173_ + (##car _rest244970244978_))) + (_tl244976245103_ (let () (declare (not safe)) - (##cdr _rest245040245048_)))) - (let* ((_bind245176_ _hd245045245171_) - (_rest245178_ _tl245046245173_)) + (##cdr _rest244970244978_)))) + (let* ((_bind245106_ _hd244975245101_) + (_rest245108_ _tl244976245103_)) (declare (not safe)) - (_K245044245168_ _rest245178_ _bind245176_))) - (let () (declare (not safe)) (_else245042245056_)))))) + (_K244974245098_ _rest245108_ _bind245106_))) + (let () (declare (not safe)) (_else244972244986_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd244984245014_ - _hd244981245006_) + _hd244914244944_ + _hd244911244936_) (let () (declare (not safe)) - (_g244973244990_ - _g244974244993_))))) + (_g244903244920_ + _g244904244923_))))) (let () (declare (not safe)) - (_g244973244990_ _g244974244993_))))) + (_g244903244920_ _g244904244923_))))) (let () (declare (not safe)) - (_g244973244990_ _g244974244993_))))) + (_g244903244920_ _g244904244923_))))) (let () (declare (not safe)) - (_g244973244990_ _g244974244993_)))))) + (_g244903244920_ _g244904244923_)))))) (declare (not safe)) - (_g244972245180_ _stx244969_)))) + (_g244902245110_ _stx244899_)))) (define gxc#push-match-vars-if% - (lambda (_stx244884_ _vars244885_ _K244886_) - (let* ((_g244888244909_ - (lambda (_g244889244906_) + (lambda (_stx244814_ _vars244815_ _K244816_) + (let* ((_g244818244839_ + (lambda (_g244819244836_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g244889244906_)))) - (_g244887244966_ - (lambda (_g244889244912_) + _g244819244836_)))) + (_g244817244896_ + (lambda (_g244819244842_) (if (let () (declare (not safe)) - (gx#stx-pair? _g244889244912_)) - (let ((_e244895244914_ + (gx#stx-pair? _g244819244842_)) + (let ((_e244825244844_ (let () (declare (not safe)) - (gx#stx-e _g244889244912_)))) - (let ((_hd244894244917_ + (gx#stx-e _g244819244842_)))) + (let ((_hd244824244847_ (let () (declare (not safe)) - (##car _e244895244914_))) - (_tl244893244919_ + (##car _e244825244844_))) + (_tl244823244849_ (let () (declare (not safe)) - (##cdr _e244895244914_)))) + (##cdr _e244825244844_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244893244919_)) - (let ((_e244898244922_ + (gx#stx-pair? _tl244823244849_)) + (let ((_e244828244852_ (let () (declare (not safe)) - (gx#stx-e _tl244893244919_)))) - (let ((_hd244897244925_ + (gx#stx-e _tl244823244849_)))) + (let ((_hd244827244855_ (let () (declare (not safe)) - (##car _e244898244922_))) - (_tl244896244927_ + (##car _e244828244852_))) + (_tl244826244857_ (let () (declare (not safe)) - (##cdr _e244898244922_)))) + (##cdr _e244828244852_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244896244927_)) - (let ((_e244901244930_ + (gx#stx-pair? _tl244826244857_)) + (let ((_e244831244860_ (let () (declare (not safe)) - (gx#stx-e _tl244896244927_)))) - (let ((_hd244900244933_ + (gx#stx-e _tl244826244857_)))) + (let ((_hd244830244863_ (let () (declare (not safe)) - (##car _e244901244930_))) - (_tl244899244935_ + (##car _e244831244860_))) + (_tl244829244865_ (let () (declare (not safe)) - (##cdr _e244901244930_)))) + (##cdr _e244831244860_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl244899244935_)) - (let ((_e244904244938_ + _tl244829244865_)) + (let ((_e244834244868_ (let () (declare (not safe)) (gx#stx-e - _tl244899244935_)))) - (let ((_hd244903244941_ + _tl244829244865_)))) + (let ((_hd244833244871_ (let () (declare (not safe)) - (##car _e244904244938_))) - (_tl244902244943_ + (##car _e244834244868_))) + (_tl244832244873_ (let () (declare (not safe)) - (##cdr _e244904244938_)))) + (##cdr _e244834244868_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl244902244943_)) - ((lambda (_L244946_ - _L244947_ - _L244948_) - (if (let ((__tmp263889 + _tl244832244873_)) + ((lambda (_L244876_ + _L244877_ + _L244878_) + (if (let ((__tmp263819 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _vars244885_))) + (map caar _vars244815_))) (declare (not safe)) - (gxc#apply-find-var-refs _L244948_ __tmp263889)) + (gxc#apply-find-var-refs _L244878_ __tmp263819)) (let () (declare (not safe)) (gxc#push-match-vars-stop - _stx244884_ - _vars244885_ - _K244886_)) - (let ((__tmp263883 - (let ((__tmp263884 - (let ((__tmp263885 - (let ((__tmp263888 + _stx244814_ + _vars244815_ + _K244816_)) + (let ((__tmp263813 + (let ((__tmp263814 + (let ((__tmp263815 + (let ((__tmp263818 (let () (declare (not safe)) (gxc#compile-e__2 - _L244947_ - _vars244885_ - _K244886_))) - (__tmp263886 - (let ((__tmp263887 + _L244877_ + _vars244815_ + _K244816_))) + (__tmp263816 + (let ((__tmp263817 (let () (declare (not safe)) (gxc#compile-e__2 - _L244946_ - _vars244885_ - _K244886_)))) + _L244876_ + _vars244815_ + _K244816_)))) (declare (not safe)) - (cons __tmp263887 '())))) + (cons __tmp263817 '())))) (declare (not safe)) - (cons __tmp263888 __tmp263886)))) + (cons __tmp263818 __tmp263816)))) (declare (not safe)) - (cons _L244948_ __tmp263885)))) + (cons _L244878_ __tmp263815)))) (declare (not safe)) - (cons '%#if __tmp263884)))) + (cons '%#if __tmp263814)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp263883 _stx244884_)))) - _hd244903244941_ - _hd244900244933_ - _hd244897244925_) + (gxc#xform-wrap-source __tmp263813 _stx244814_)))) + _hd244833244871_ + _hd244830244863_ + _hd244827244855_) (let () (declare (not safe)) - (_g244888244909_ _g244889244912_))))) + (_g244818244839_ _g244819244842_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g244888244909_ - _g244889244912_))))) + (_g244818244839_ + _g244819244842_))))) (let () (declare (not safe)) - (_g244888244909_ _g244889244912_))))) + (_g244818244839_ _g244819244842_))))) (let () (declare (not safe)) - (_g244888244909_ _g244889244912_))))) + (_g244818244839_ _g244819244842_))))) (let () (declare (not safe)) - (_g244888244909_ _g244889244912_)))))) + (_g244818244839_ _g244819244842_)))))) (declare (not safe)) - (_g244887244966_ _stx244884_)))) + (_g244817244896_ _stx244814_)))) (define gxc#push-match-vars-call% - (lambda (_stx244804_ _vars244805_ _K244806_) - (let* ((_g244808244827_ - (lambda (_g244809244824_) + (lambda (_stx244734_ _vars244735_ _K244736_) + (let* ((_g244738244757_ + (lambda (_g244739244754_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g244809244824_)))) - (_g244807244881_ - (lambda (_g244809244830_) + _g244739244754_)))) + (_g244737244811_ + (lambda (_g244739244760_) (if (let () (declare (not safe)) - (gx#stx-pair? _g244809244830_)) - (let ((_e244813244832_ + (gx#stx-pair? _g244739244760_)) + (let ((_e244743244762_ (let () (declare (not safe)) - (gx#stx-e _g244809244830_)))) - (let ((_hd244812244835_ + (gx#stx-e _g244739244760_)))) + (let ((_hd244742244765_ (let () (declare (not safe)) - (##car _e244813244832_))) - (_tl244811244837_ + (##car _e244743244762_))) + (_tl244741244767_ (let () (declare (not safe)) - (##cdr _e244813244832_)))) + (##cdr _e244743244762_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244811244837_)) - (let ((_e244816244840_ + (gx#stx-pair? _tl244741244767_)) + (let ((_e244746244770_ (let () (declare (not safe)) - (gx#stx-e _tl244811244837_)))) - (let ((_hd244815244843_ + (gx#stx-e _tl244741244767_)))) + (let ((_hd244745244773_ (let () (declare (not safe)) - (##car _e244816244840_))) - (_tl244814244845_ + (##car _e244746244770_))) + (_tl244744244775_ (let () (declare (not safe)) - (##cdr _e244816244840_)))) + (##cdr _e244746244770_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244815244843_)) - (let ((_e244819244848_ + (gx#stx-pair? _hd244745244773_)) + (let ((_e244749244778_ (let () (declare (not safe)) - (gx#stx-e _hd244815244843_)))) - (let ((_hd244818244851_ + (gx#stx-e _hd244745244773_)))) + (let ((_hd244748244781_ (let () (declare (not safe)) - (##car _e244819244848_))) - (_tl244817244853_ + (##car _e244749244778_))) + (_tl244747244783_ (let () (declare (not safe)) - (##cdr _e244819244848_)))) + (##cdr _e244749244778_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd244818244851_)) + _hd244748244781_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd244818244851_)) + _hd244748244781_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl244817244853_)) - (let ((_e244822244856_ + _tl244747244783_)) + (let ((_e244752244786_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl244817244853_)))) - (let ((_hd244821244859_ - (let () (declare (not safe)) (##car _e244822244856_))) - (_tl244820244861_ - (let () (declare (not safe)) (##cdr _e244822244856_)))) + (gx#stx-e _tl244747244783_)))) + (let ((_hd244751244789_ + (let () (declare (not safe)) (##car _e244752244786_))) + (_tl244750244791_ + (let () (declare (not safe)) (##cdr _e244752244786_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244820244861_)) - ((lambda (_L244864_) + (gx#stx-null? _tl244750244791_)) + ((lambda (_L244794_) (if (and (let () (declare (not safe)) - (gx#free-identifier=? _L244864_ _K244806_)) + (gx#free-identifier=? _L244794_ _K244736_)) (let () (declare (not safe)) - (pair? _vars244805_))) - (let ((__tmp263890 - (let ((__tmp263891 - (let ((__tmp263893 - (reverse _vars244805_)) - (__tmp263892 + (pair? _vars244735_))) + (let ((__tmp263820 + (let ((__tmp263821 + (let ((__tmp263823 + (reverse _vars244735_)) + (__tmp263822 (let () (declare (not safe)) - (cons _stx244804_ '())))) + (cons _stx244734_ '())))) (declare (not safe)) - (cons __tmp263893 __tmp263892)))) + (cons __tmp263823 __tmp263822)))) (declare (not safe)) - (cons '%#let-values __tmp263891)))) + (cons '%#let-values __tmp263821)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp263890 _stx244804_)) - _stx244804_)) - _hd244821244859_) + (gxc#xform-wrap-source __tmp263820 _stx244734_)) + _stx244734_)) + _hd244751244789_) (let () (declare (not safe)) - (_g244808244827_ _g244809244830_))))) - (let () (declare (not safe)) (_g244808244827_ _g244809244830_))) + (_g244738244757_ _g244739244760_))))) + (let () (declare (not safe)) (_g244738244757_ _g244739244760_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g244808244827_ - _g244809244830_))) + (_g244738244757_ + _g244739244760_))) (let () (declare (not safe)) - (_g244808244827_ - _g244809244830_))))) + (_g244738244757_ + _g244739244760_))))) (let () (declare (not safe)) - (_g244808244827_ _g244809244830_))))) + (_g244738244757_ _g244739244760_))))) (let () (declare (not safe)) - (_g244808244827_ _g244809244830_))))) + (_g244738244757_ _g244739244760_))))) (let () (declare (not safe)) - (_g244808244827_ _g244809244830_)))))) + (_g244738244757_ _g244739244760_)))))) (declare (not safe)) - (_g244807244881_ _stx244804_)))) + (_g244737244811_ _stx244734_)))) (define gxc#push-match-vars-stop - (lambda (_stx244800_ _vars244801_ _K244802_) - (if (let () (declare (not safe)) (null? _vars244801_)) - _stx244800_ - (let ((__tmp263894 - (let ((__tmp263895 - (let ((__tmp263897 (reverse _vars244801_)) - (__tmp263896 + (lambda (_stx244730_ _vars244731_ _K244732_) + (if (let () (declare (not safe)) (null? _vars244731_)) + _stx244730_ + (let ((__tmp263824 + (let ((__tmp263825 + (let ((__tmp263827 (reverse _vars244731_)) + (__tmp263826 (let () (declare (not safe)) - (cons _stx244800_ '())))) + (cons _stx244730_ '())))) (declare (not safe)) - (cons __tmp263897 __tmp263896)))) + (cons __tmp263827 __tmp263826)))) (declare (not safe)) - (cons '%#let-values __tmp263895)))) + (cons '%#let-values __tmp263825)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp263894 _stx244800_))))))) + (gxc#xform-wrap-source __tmp263824 _stx244730_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index a5437d702..8b0eeac19 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__0.scm @@ -1,31 +1,31 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1707423042) + (define gerbil/compiler/optimize-base::timestamp 1707565661) (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 ((__tmp210288 - (let ((__tmp210289 + (let ((__tmp210218 + (let ((__tmp210219 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210289 '())))) + (cons __tmp210219 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#optimizer-info::t 'optimizer-info '#f '(type ssxi methods) - __tmp210288 + __tmp210218 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (make-struct-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _$args206019_ - (apply make-struct-instance gxc#optimizer-info::t _$args206019_))) + (lambda _$args205949_ + (apply make-struct-instance gxc#optimizer-info::t _$args205949_))) (define gxc#optimizer-info-type (let () (declare (not safe)) @@ -75,59 +75,59 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_self206017_) - (if (let ((__tmp210296 + (lambda (_self205947_) + (if (let ((__tmp210226 (let () (declare (not safe)) - (##structure-length _self206017_)))) + (##structure-length _self205947_)))) (declare (not safe)) - (##fx< '3 __tmp210296)) + (##fx< '3 __tmp210226)) (begin - (let ((__tmp210291 + (let ((__tmp210221 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp210290 + (__tmp210220 (let () (declare (not safe)) - (##structure-type _self206017_)))) + (##structure-type _self205947_)))) (declare (not safe)) (##unchecked-structure-set! - _self206017_ - __tmp210291 + _self205947_ + __tmp210221 '1 - __tmp210290 + __tmp210220 '#f)) - (let ((__tmp210293 + (let ((__tmp210223 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp210292 + (__tmp210222 (let () (declare (not safe)) - (##structure-type _self206017_)))) + (##structure-type _self205947_)))) (declare (not safe)) (##unchecked-structure-set! - _self206017_ - __tmp210293 + _self205947_ + __tmp210223 '2 - __tmp210292 + __tmp210222 '#f)) - (let ((__tmp210295 + (let ((__tmp210225 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp210294 + (__tmp210224 (let () (declare (not safe)) - (##structure-type _self206017_)))) + (##structure-type _self205947_)))) (declare (not safe)) (##unchecked-structure-set! - _self206017_ - __tmp210295 + _self205947_ + __tmp210225 '3 - __tmp210294 + __tmp210224 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self206017_ + _self205947_ '3 (let () (declare (not safe)) - (##vector-length _self206017_)))))) + (##vector-length _self205947_)))))) (let () (declare (not safe)) (bind-method! @@ -136,18 +136,18 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp210297 - (let ((__tmp210298 + (let ((__tmp210227 + (let ((__tmp210228 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210298 '())))) + (cons __tmp210228 '())))) (declare (not safe)) - (make-struct-type* 'gxc#!type::t '!type '#f '(id) __tmp210297 '#f))) + (make-struct-type 'gxc#!type::t '!type '#f '(id) __tmp210227 '#f))) (define gxc#!type? (let () (declare (not safe)) (make-struct-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _$args205892_ - (apply make-struct-instance gxc#!type::t _$args205892_))) + (lambda _$args205822_ + (apply make-struct-instance gxc#!type::t _$args205822_))) (define gxc#!type-id (let () (declare (not safe)) @@ -165,24 +165,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!alias::t - (let ((__tmp210299 - (let ((__tmp210300 + (let ((__tmp210229 + (let ((__tmp210230 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210300 '())))) + (cons __tmp210230 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!alias::t '!alias gxc#!type::t '() - __tmp210299 + __tmp210229 '#f))) (define gxc#!alias? (let () (declare (not safe)) (make-struct-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _$args205889_ - (apply make-struct-instance gxc#!alias::t _$args205889_))) + (lambda _$args205819_ + (apply make-struct-instance gxc#!alias::t _$args205819_))) (define gxc#!alias-id (let () (declare (not safe)) @@ -200,24 +200,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!alias::t 'id))) (define gxc#!procedure::t - (let ((__tmp210301 - (let ((__tmp210302 + (let ((__tmp210231 + (let ((__tmp210232 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210302 '())))) + (cons __tmp210232 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!procedure::t '!procedure gxc#!type::t '() - __tmp210301 + __tmp210231 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (make-struct-predicate gxc#!procedure::t))) (define gxc#make-!procedure - (lambda _$args205886_ - (apply make-struct-instance gxc#!procedure::t _$args205886_))) + (lambda _$args205816_ + (apply make-struct-instance gxc#!procedure::t _$args205816_))) (define gxc#!procedure-id (let () (declare (not safe)) @@ -235,13 +235,13 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#!class::t - (let ((__tmp210303 - (let ((__tmp210304 + (let ((__tmp210233 + (let ((__tmp210234 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210304 '())))) + (cons __tmp210234 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!class::t '!class gxc#!type::t @@ -252,13 +252,13 @@ struct? final? methods) - __tmp210303 + __tmp210233 ':init!))) (define gxc#!class? (let () (declare (not safe)) (make-struct-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _$args205883_ - (apply make-struct-instance gxc#!class::t _$args205883_))) + (lambda _$args205813_ + (apply make-struct-instance gxc#!class::t _$args205813_))) (define gxc#!class-super (let () (declare (not safe)) @@ -404,24 +404,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp210305 - (let ((__tmp210306 + (let ((__tmp210235 + (let ((__tmp210236 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210306 '())))) + (cons __tmp210236 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!predicate::t '!predicate gxc#!procedure::t '() - __tmp210305 + __tmp210235 '#f))) (define gxc#!predicate? (let () (declare (not safe)) (make-struct-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _$args205880_ - (apply make-struct-instance gxc#!predicate::t _$args205880_))) + (lambda _$args205810_ + (apply make-struct-instance gxc#!predicate::t _$args205810_))) (define gxc#!predicate-id (let () (declare (not safe)) @@ -439,26 +439,26 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp210307 - (let ((__tmp210308 + (let ((__tmp210237 + (let ((__tmp210238 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210308 '())))) + (cons __tmp210238 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!constructor::t '!constructor gxc#!procedure::t '() - __tmp210307 + __tmp210237 '#f))) (define gxc#!constructor? (let () (declare (not safe)) (make-struct-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _$args205877_ - (apply make-struct-instance gxc#!constructor::t _$args205877_))) + (lambda _$args205807_ + (apply make-struct-instance gxc#!constructor::t _$args205807_))) (define gxc#!constructor-id (let () (declare (not safe)) @@ -476,24 +476,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp210309 - (let ((__tmp210310 + (let ((__tmp210239 + (let ((__tmp210240 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210310 '())))) + (cons __tmp210240 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!accessor::t '!accessor gxc#!procedure::t '(slot checked?) - __tmp210309 + __tmp210239 '#f))) (define gxc#!accessor? (let () (declare (not safe)) (make-struct-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _$args205874_ - (apply make-struct-instance gxc#!accessor::t _$args205874_))) + (lambda _$args205804_ + (apply make-struct-instance gxc#!accessor::t _$args205804_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -543,24 +543,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp210311 - (let ((__tmp210312 + (let ((__tmp210241 + (let ((__tmp210242 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210312 '())))) + (cons __tmp210242 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!mutator::t '!mutator gxc#!procedure::t '(slot checked?) - __tmp210311 + __tmp210241 '#f))) (define gxc#!mutator? (let () (declare (not safe)) (make-struct-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _$args205871_ - (apply make-struct-instance gxc#!mutator::t _$args205871_))) + (lambda _$args205801_ + (apply make-struct-instance gxc#!mutator::t _$args205801_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -610,24 +610,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!lambda::t - (let ((__tmp210313 - (let ((__tmp210314 + (let ((__tmp210243 + (let ((__tmp210244 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210314 '())))) + (cons __tmp210244 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!lambda::t '!lambda gxc#!procedure::t '(arity dispatch inline inline-typedecl) - __tmp210313 + __tmp210243 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (make-struct-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _$args205868_ - (apply make-struct-instance gxc#!lambda::t _$args205868_))) + (lambda _$args205798_ + (apply make-struct-instance gxc#!lambda::t _$args205798_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -709,26 +709,26 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp210315 - (let ((__tmp210316 + (let ((__tmp210245 + (let ((__tmp210246 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210316 '())))) + (cons __tmp210246 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!case-lambda::t '!case-lambda gxc#!procedure::t '(clauses) - __tmp210315 + __tmp210245 '#f))) (define gxc#!case-lambda? (let () (declare (not safe)) (make-struct-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _$args205865_ - (apply make-struct-instance gxc#!case-lambda::t _$args205865_))) + (lambda _$args205795_ + (apply make-struct-instance gxc#!case-lambda::t _$args205795_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -762,24 +762,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp210317 - (let ((__tmp210318 + (let ((__tmp210247 + (let ((__tmp210248 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210318 '())))) + (cons __tmp210248 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!kw-lambda::t '!kw-lambda gxc#!procedure::t '(table dispatch) - __tmp210317 + __tmp210247 '#f))) (define gxc#!kw-lambda? (let () (declare (not safe)) (make-struct-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _$args205862_ - (apply make-struct-instance gxc#!kw-lambda::t _$args205862_))) + (lambda _$args205792_ + (apply make-struct-instance gxc#!kw-lambda::t _$args205792_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -829,26 +829,26 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp210319 - (let ((__tmp210320 + (let ((__tmp210249 + (let ((__tmp210250 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210320 '())))) + (cons __tmp210250 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary gxc#!procedure::t '(keys main) - __tmp210319 + __tmp210249 '#f))) (define gxc#!kw-lambda-primary? (let () (declare (not safe)) (make-struct-predicate gxc#!kw-lambda-primary::t))) (define gxc#make-!kw-lambda-primary - (lambda _$args205859_ - (apply make-struct-instance gxc#!kw-lambda-primary::t _$args205859_))) + (lambda _$args205789_ + (apply make-struct-instance gxc#!kw-lambda-primary::t _$args205789_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -898,27 +898,27 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp210321 (list))) + (let ((__tmp210251 (list))) (declare (not safe)) - (make-class-type* + (make-class-type 'gxc#!primitive::t '!primitive - __tmp210321 + __tmp210251 '() '() '#f))) (define gxc#!primitive? (let () (declare (not safe)) (make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _$args205856_ - (apply make-class-instance gxc#!primitive::t _$args205856_))) + (lambda _$args205786_ + (apply make-class-instance gxc#!primitive::t _$args205786_))) (define gxc#!primitive-lambda::t - (let ((__tmp210322 (list gxc#!primitive::t gxc#!lambda::t))) + (let ((__tmp210252 (list gxc#!primitive::t gxc#!lambda::t))) (declare (not safe)) - (make-class-type* + (make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp210322 + __tmp210252 '() '() ':init!))) @@ -927,8 +927,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _$args205853_ - (apply make-class-instance gxc#!primitive-lambda::t _$args205853_))) + (lambda _$args205783_ + (apply make-class-instance gxc#!primitive-lambda::t _$args205783_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1018,12 +1018,12 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp210323 (list gxc#!primitive::t gxc#!case-lambda::t))) + (let ((__tmp210253 (list gxc#!primitive::t gxc#!case-lambda::t))) (declare (not safe)) - (make-class-type* + (make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp210323 + __tmp210253 '() '() ':init!))) @@ -1032,10 +1032,10 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _$args205850_ + (lambda _$args205780_ (apply make-class-instance gxc#!primitive-case-lambda::t - _$args205850_))) + _$args205780_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1075,942 +1075,944 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-case-lambda::t 'id))) (define gxc#!class:::init!__0 - (lambda (_self205691_ - _id205692_ - _super205693_ - _slots205694_ - _ctor-method205695_ - _struct?205696_ - _final?205697_) - (let _lp205699_ ((_rest205701_ _super205693_)) - (let* ((_rest205702205710_ _rest205701_) - (_else205704205718_ (lambda () '#!void)) - (_K205706205724_ - (lambda (_rest205721_ _super-id205722_) + (lambda (_self205621_ + _id205622_ + _super205623_ + _slots205624_ + _ctor-method205625_ + _struct?205626_ + _final?205627_) + (let _lp205629_ ((_rest205631_ _super205623_)) + (let* ((_rest205632205640_ _rest205631_) + (_else205634205648_ (lambda () '#!void)) + (_K205636205654_ + (lambda (_rest205651_ _super-id205652_) (if (##structure-ref - (let ((__tmp210326 - (let ((__tmp210327 + (let ((__tmp210256 + (let ((__tmp210257 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210327)))) + (cons '!class __tmp210257)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp210326 - _super-id205722_)) + __tmp210256 + _super-id205652_)) '8 gxc#!class::t '#f) - (let ((__tmp210324 - (let ((__tmp210325 + (let ((__tmp210254 + (let ((__tmp210255 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210325)))) + (cons '!class __tmp210255)))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp210324 - _super-id205722_)) + __tmp210254 + _super-id205652_)) '#!void) - (let () (declare (not safe)) (_lp205699_ _rest205721_))))) - (if (let () (declare (not safe)) (##pair? _rest205702205710_)) - (let ((_hd205707205727_ + (let () (declare (not safe)) (_lp205629_ _rest205651_))))) + (if (let () (declare (not safe)) (##pair? _rest205632205640_)) + (let ((_hd205637205657_ (let () (declare (not safe)) - (##car _rest205702205710_))) - (_tl205708205729_ + (##car _rest205632205640_))) + (_tl205638205659_ (let () (declare (not safe)) - (##cdr _rest205702205710_)))) - (let* ((_super-id205732_ _hd205707205727_) - (_rest205734_ _tl205708205729_)) + (##cdr _rest205632205640_)))) + (let* ((_super-id205662_ _hd205637205657_) + (_rest205664_ _tl205638205659_)) (declare (not safe)) - (_K205706205724_ _rest205734_ _super-id205732_))) + (_K205636205654_ _rest205664_ _super-id205662_))) '#!void))) - (if _struct?205696_ - (let* ((_super205735205745_ _super205693_) - (_else205738205753_ + (if _struct?205626_ + (let* ((_super205665205675_ _super205623_) + (_else205668205683_ (lambda () - (let ((__tmp210328 - (let ((__tmp210329 + (let ((__tmp210258 + (let ((__tmp210259 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210329)))) + (cons '!class __tmp210259)))) (declare (not safe)) (gxc#raise-compile-error '"bad class; struct can only extend a single struct" - __tmp210328 - _super205693_))))) - (let ((_K205743205775_ (lambda () '#!void)) - (_K205740205761_ - (lambda (_super-id205757_) - (let ((_klass205759_ - (let ((__tmp210330 - (let ((__tmp210331 + __tmp210258 + _super205623_))))) + (let ((_K205673205705_ (lambda () '#!void)) + (_K205670205691_ + (lambda (_super-id205687_) + (let ((_klass205689_ + (let ((__tmp210260 + (let ((__tmp210261 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210331)))) + (cons '!class __tmp210261)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp210330 - _super-id205757_)))) + __tmp210260 + _super-id205687_)))) (if (##structure-ref - _klass205759_ + _klass205689_ '7 gxc#!class::t '#f) '#!void - (let ((__tmp210332 - (let ((__tmp210333 + (let ((__tmp210262 + (let ((__tmp210263 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210333)))) + (cons '!class __tmp210263)))) (declare (not safe)) (gxc#raise-compile-error '"bad class; struct extending non struct" - __tmp210332 - _super-id205757_))))))) - (let ((_try-match205737205771_ + __tmp210262 + _super-id205687_))))))) + (let ((_try-match205667205701_ (lambda () (if (let () (declare (not safe)) - (##pair? _super205735205745_)) - (let ((_tl205742205766_ + (##pair? _super205665205675_)) + (let ((_tl205672205696_ (let () (declare (not safe)) - (##cdr _super205735205745_))) - (_hd205741205764_ + (##cdr _super205665205675_))) + (_hd205671205694_ (let () (declare (not safe)) - (##car _super205735205745_)))) + (##car _super205665205675_)))) (if (let () (declare (not safe)) - (##null? _tl205742205766_)) - (let ((_super-id205769_ _hd205741205764_)) + (##null? _tl205672205696_)) + (let ((_super-id205699_ _hd205671205694_)) (declare (not safe)) - (_K205740205761_ _super-id205769_)) + (_K205670205691_ _super-id205699_)) (let () (declare (not safe)) - (_else205738205753_)))) + (_else205668205683_)))) (let () (declare (not safe)) - (_else205738205753_)))))) + (_else205668205683_)))))) (if (let () (declare (not safe)) - (##null? _super205735205745_)) + (##null? _super205665205675_)) '#!void (let () (declare (not safe)) - (_try-match205737205771_)))))) + (_try-match205667205701_)))))) '#!void) - (let* ((_ctor-method205826_ - (let ((_$e205778_ _ctor-method205695_)) - (if _$e205778_ - _$e205778_ - (let _lp205781_ ((_rest205783_ _super205693_) - (_method205784_ '#f)) - (let* ((_rest205785205793_ _rest205783_) - (_else205787205801_ (lambda () _method205784_)) - (_K205789205814_ - (lambda (_rest205804_ _super-id205805_) - (let* ((_klass205807_ - (let ((__tmp210334 - (let ((__tmp210335 + (let* ((_ctor-method205756_ + (let ((_$e205708_ _ctor-method205625_)) + (if _$e205708_ + _$e205708_ + (let _lp205711_ ((_rest205713_ _super205623_) + (_method205714_ '#f)) + (let* ((_rest205715205723_ _rest205713_) + (_else205717205731_ (lambda () _method205714_)) + (_K205719205744_ + (lambda (_rest205734_ _super-id205735_) + (let* ((_klass205737_ + (let ((__tmp210264 + (let ((__tmp210265 (let () (declare (not safe)) - (cons _id205692_ + (cons _id205622_ '())))) (declare (not safe)) (cons '!class - __tmp210335)))) + __tmp210265)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp210334 - _super-id205805_))) - (_$e205809_ + __tmp210264 + _super-id205735_))) + (_$e205739_ (##structure-ref - _klass205807_ + _klass205737_ '6 gxc#!class::t '#f))) - (if _$e205809_ - ((lambda (_ctor-method205812_) - (if _method205784_ + (if _$e205739_ + ((lambda (_ctor-method205742_) + (if _method205714_ (if (let () (declare (not safe)) - (eq? _ctor-method205812_ - _method205784_)) + (eq? _ctor-method205742_ + _method205714_)) (let () (declare (not safe)) - (_lp205781_ - _rest205804_ - _ctor-method205812_)) - (let ((__tmp210336 - (let ((__tmp210337 + (_lp205711_ + _rest205734_ + _ctor-method205742_)) + (let ((__tmp210266 + (let ((__tmp210267 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id205692_ '())))) + (let () (declare (not safe)) (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210337)))) + (cons '!class __tmp210267)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp210336 - _method205784_ - _ctor-method205812_))) + __tmp210266 + _method205714_ + _ctor-method205742_))) (let () (declare (not safe)) - (_lp205781_ - _rest205804_ - _ctor-method205812_)))) - _$e205809_) + (_lp205711_ + _rest205734_ + _ctor-method205742_)))) + _$e205739_) (let () (declare (not safe)) - (_lp205781_ - _rest205804_ - _method205784_))))))) + (_lp205711_ + _rest205734_ + _method205714_))))))) (if (let () (declare (not safe)) - (##pair? _rest205785205793_)) - (let ((_hd205790205817_ + (##pair? _rest205715205723_)) + (let ((_hd205720205747_ (let () (declare (not safe)) - (##car _rest205785205793_))) - (_tl205791205819_ + (##car _rest205715205723_))) + (_tl205721205749_ (let () (declare (not safe)) - (##cdr _rest205785205793_)))) - (let* ((_super-id205822_ _hd205790205817_) - (_rest205824_ _tl205791205819_)) + (##cdr _rest205715205723_)))) + (let* ((_super-id205752_ _hd205720205747_) + (_rest205754_ _tl205721205749_)) (declare (not safe)) - (_K205789205814_ - _rest205824_ - _super-id205822_))) + (_K205719205744_ + _rest205754_ + _super-id205752_))) (let () (declare (not safe)) - (_else205787205801_)))))))) - (_precedence-list205830_ - (let ((__tmp210338 - (lambda (_klass-id205828_) - (let ((__tmp210339 + (_else205717205731_)))))))) + (_precedence-list205760_ + (let ((__tmp210268 + (lambda (_klass-id205758_) + (let ((__tmp210269 (##structure-ref - (let ((__tmp210340 - (let ((__tmp210341 + (let ((__tmp210270 + (let ((__tmp210271 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210341)))) + (cons '!class __tmp210271)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp210340 - _klass-id205828_)) + __tmp210270 + _klass-id205758_)) '3 gxc#!class::t '#f))) (declare (not safe)) - (cons _klass-id205828_ __tmp210339))))) + (cons _klass-id205758_ __tmp210269))))) (declare (not safe)) (c3-linearize__% '() - _super205693_ - __tmp210338 + _super205623_ + __tmp210268 eq? identity))) - (_fields205836_ - (let* ((_base-struct205834_ - (let ((__tmp210342 - (lambda (_klass-id205832_) + (_fields205766_ + (let* ((_base-struct205764_ + (let ((__tmp210272 + (lambda (_klass-id205762_) (##structure-ref - (let ((__tmp210343 - (let ((__tmp210344 + (let ((__tmp210273 + (let ((__tmp210274 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210344)))) + (cons '!class __tmp210274)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp210343 - _klass-id205832_)) + __tmp210273 + _klass-id205762_)) '7 gxc#!class::t '#f)))) (declare (not safe)) - (find __tmp210342 _precedence-list205830_))) - (__tmp210345 - (let ((__tmp210346 + (find __tmp210272 _precedence-list205760_))) + (__tmp210275 + (let ((__tmp210276 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210346)))) + (cons '!class __tmp210276)))) (declare (not safe)) (gxc#compute-class-fields - __tmp210345 - _base-struct205834_ - _precedence-list205830_ - _slots205694_)))) - (##structure-set! _self205691_ _id205692_ '1 gxc#!type::t '#f) - (##structure-set! _self205691_ _super205693_ '2 gxc#!class::t '#f) + __tmp210275 + _base-struct205764_ + _precedence-list205760_ + _slots205624_)))) + (##structure-set! _self205621_ _id205622_ '1 gxc#!type::t '#f) + (##structure-set! _self205621_ _super205623_ '2 gxc#!class::t '#f) (##structure-set! - _self205691_ - _precedence-list205830_ + _self205621_ + _precedence-list205760_ '3 gxc#!class::t '#f) - (##structure-set! _self205691_ _slots205694_ '4 gxc#!class::t '#f) - (##structure-set! _self205691_ _fields205836_ '5 gxc#!class::t '#f) + (##structure-set! _self205621_ _slots205624_ '4 gxc#!class::t '#f) + (##structure-set! _self205621_ _fields205766_ '5 gxc#!class::t '#f) (##structure-set! - _self205691_ - _ctor-method205826_ + _self205621_ + _ctor-method205756_ '6 gxc#!class::t '#f) - (##structure-set! _self205691_ _struct?205696_ '7 gxc#!class::t '#f) + (##structure-set! _self205621_ _struct?205626_ '7 gxc#!class::t '#f) (##structure-set! - _self205691_ - _final?205697_ + _self205621_ + _final?205627_ '8 gxc#!class::t '#f)))) (define gxc#!class:::init!__1 - (lambda (_self205839_ - _id205840_ - _super205841_ - _precedence-list205842_ - _slots205843_ - _fields205844_ - _constructor205845_ - _struct?205846_ - _final?205847_ - _methods205848_) - (##structure-set! _self205839_ _id205840_ '1 gxc#!type::t '#f) - (##structure-set! _self205839_ _super205841_ '2 gxc#!class::t '#f) + (lambda (_self205769_ + _id205770_ + _super205771_ + _precedence-list205772_ + _slots205773_ + _fields205774_ + _constructor205775_ + _struct?205776_ + _final?205777_ + _methods205778_) + (##structure-set! _self205769_ _id205770_ '1 gxc#!type::t '#f) + (##structure-set! _self205769_ _super205771_ '2 gxc#!class::t '#f) (##structure-set! - _self205839_ - _precedence-list205842_ + _self205769_ + _precedence-list205772_ '3 gxc#!class::t '#f) - (##structure-set! _self205839_ _slots205843_ '4 gxc#!class::t '#f) - (##structure-set! _self205839_ _fields205844_ '5 gxc#!class::t '#f) + (##structure-set! _self205769_ _slots205773_ '4 gxc#!class::t '#f) + (##structure-set! _self205769_ _fields205774_ '5 gxc#!class::t '#f) (##structure-set! - _self205839_ - _constructor205845_ + _self205769_ + _constructor205775_ '6 gxc#!class::t '#f) - (##structure-set! _self205839_ _struct?205846_ '7 gxc#!class::t '#f) - (##structure-set! _self205839_ _final?205847_ '8 gxc#!class::t '#f) - (if _methods205848_ + (##structure-set! _self205769_ _struct?205776_ '7 gxc#!class::t '#f) + (##structure-set! _self205769_ _final?205777_ '8 gxc#!class::t '#f) + (if _methods205778_ (##structure-set! - _self205839_ + _self205769_ (let () (declare (not safe)) - (list->table _methods205848_ 'test: eq?)) + (list->table _methods205778_ 'test: eq?)) '9 gxc#!class::t '#f) '#!void))) (define gxc#!class:::init! - (lambda _g210348_ - (let ((_g210347_ (let () (declare (not safe)) (##length _g210348_)))) - (cond ((let () (declare (not safe)) (##fx= _g210347_ 7)) - (apply (lambda (_self205691_ - _id205692_ - _super205693_ - _slots205694_ - _ctor-method205695_ - _struct?205696_ - _final?205697_) + (lambda _g210278_ + (let ((_g210277_ (let () (declare (not safe)) (##length _g210278_)))) + (cond ((let () (declare (not safe)) (##fx= _g210277_ 7)) + (apply (lambda (_self205621_ + _id205622_ + _super205623_ + _slots205624_ + _ctor-method205625_ + _struct?205626_ + _final?205627_) (let () (declare (not safe)) (gxc#!class:::init!__0 - _self205691_ - _id205692_ - _super205693_ - _slots205694_ - _ctor-method205695_ - _struct?205696_ - _final?205697_))) - _g210348_)) - ((let () (declare (not safe)) (##fx= _g210347_ 10)) - (apply (lambda (_self205839_ - _id205840_ - _super205841_ - _precedence-list205842_ - _slots205843_ - _fields205844_ - _constructor205845_ - _struct?205846_ - _final?205847_ - _methods205848_) + _self205621_ + _id205622_ + _super205623_ + _slots205624_ + _ctor-method205625_ + _struct?205626_ + _final?205627_))) + _g210278_)) + ((let () (declare (not safe)) (##fx= _g210277_ 10)) + (apply (lambda (_self205769_ + _id205770_ + _super205771_ + _precedence-list205772_ + _slots205773_ + _fields205774_ + _constructor205775_ + _struct?205776_ + _final?205777_ + _methods205778_) (let () (declare (not safe)) (gxc#!class:::init!__1 - _self205839_ - _id205840_ - _super205841_ - _precedence-list205842_ - _slots205843_ - _fields205844_ - _constructor205845_ - _struct?205846_ - _final?205847_ - _methods205848_))) - _g210348_)) + _self205769_ + _id205770_ + _super205771_ + _precedence-list205772_ + _slots205773_ + _fields205774_ + _constructor205775_ + _struct?205776_ + _final?205777_ + _methods205778_))) + _g210278_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g210348_)))))) + _g210278_)))))) (define gxc#!class:::init!::specialize - (lambda (__t210215) - (let ((__fields210216 - (let ((__tmp210225 + (lambda (__t210145) + (let ((__precedence-list210146 + (let ((__tmp210155 (let () (declare (not safe)) - (class-slot-offset* __t210215 'fields)))) - (if __tmp210225 __tmp210225 (error '"Unknown slot" 'fields)))) - (__id210217 - (let ((__tmp210226 + (class-slot-offset __t210145 'precedence-list)))) + (if __tmp210155 + __tmp210155 + (error '"Unknown slot" 'precedence-list)))) + (__methods210147 + (let ((__tmp210156 (let () (declare (not safe)) - (class-slot-offset* __t210215 'id)))) - (if __tmp210226 __tmp210226 (error '"Unknown slot" 'id)))) - (__methods210218 - (let ((__tmp210227 + (class-slot-offset __t210145 'methods)))) + (if __tmp210156 + __tmp210156 + (error '"Unknown slot" 'methods)))) + (__id210148 + (let ((__tmp210157 (let () (declare (not safe)) - (class-slot-offset* __t210215 'methods)))) - (if __tmp210227 - __tmp210227 - (error '"Unknown slot" 'methods)))) - (__constructor210219 - (let ((__tmp210228 + (class-slot-offset __t210145 'id)))) + (if __tmp210157 __tmp210157 (error '"Unknown slot" 'id)))) + (__struct?210149 + (let ((__tmp210158 (let () (declare (not safe)) - (class-slot-offset* __t210215 'constructor)))) - (if __tmp210228 - __tmp210228 - (error '"Unknown slot" 'constructor)))) - (__final?210220 - (let ((__tmp210229 + (class-slot-offset __t210145 'struct?)))) + (if __tmp210158 + __tmp210158 + (error '"Unknown slot" 'struct?)))) + (__constructor210150 + (let ((__tmp210159 (let () (declare (not safe)) - (class-slot-offset* __t210215 'final?)))) - (if __tmp210229 __tmp210229 (error '"Unknown slot" 'final?)))) - (__precedence-list210221 - (let ((__tmp210230 + (class-slot-offset __t210145 'constructor)))) + (if __tmp210159 + __tmp210159 + (error '"Unknown slot" 'constructor)))) + (__super210151 + (let ((__tmp210160 (let () (declare (not safe)) - (class-slot-offset* __t210215 'precedence-list)))) - (if __tmp210230 - __tmp210230 - (error '"Unknown slot" 'precedence-list)))) - (__struct?210222 - (let ((__tmp210231 + (class-slot-offset __t210145 'super)))) + (if __tmp210160 __tmp210160 (error '"Unknown slot" 'super)))) + (__final?210152 + (let ((__tmp210161 (let () (declare (not safe)) - (class-slot-offset* __t210215 'struct?)))) - (if __tmp210231 - __tmp210231 - (error '"Unknown slot" 'struct?)))) - (__slots210223 - (let ((__tmp210232 + (class-slot-offset __t210145 'final?)))) + (if __tmp210161 __tmp210161 (error '"Unknown slot" 'final?)))) + (__slots210153 + (let ((__tmp210162 (let () (declare (not safe)) - (class-slot-offset* __t210215 'slots)))) - (if __tmp210232 __tmp210232 (error '"Unknown slot" 'slots)))) - (__super210224 - (let ((__tmp210233 + (class-slot-offset __t210145 'slots)))) + (if __tmp210162 __tmp210162 (error '"Unknown slot" 'slots)))) + (__fields210154 + (let ((__tmp210163 (let () (declare (not safe)) - (class-slot-offset* __t210215 'super)))) - (if __tmp210233 __tmp210233 (error '"Unknown slot" 'super))))) - (lambda _g210350_ - (let ((_g210349_ - (let () (declare (not safe)) (##length _g210350_)))) - (cond ((let () (declare (not safe)) (##fx= _g210349_ 7)) - (apply (lambda (_self205691_ - _id205692_ - _super205693_ - _slots205694_ - _ctor-method205695_ - _struct?205696_ - _final?205697_) - (let _lp205699_ ((_rest205701_ _super205693_)) - (let* ((_rest205702205710_ _rest205701_) - (_else205704205718_ (lambda () '#!void)) - (_K205706205724_ - (lambda (_rest205721_ _super-id205722_) + (class-slot-offset __t210145 'fields)))) + (if __tmp210163 + __tmp210163 + (error '"Unknown slot" 'fields))))) + (lambda _g210280_ + (let ((_g210279_ + (let () (declare (not safe)) (##length _g210280_)))) + (cond ((let () (declare (not safe)) (##fx= _g210279_ 7)) + (apply (lambda (_self205621_ + _id205622_ + _super205623_ + _slots205624_ + _ctor-method205625_ + _struct?205626_ + _final?205627_) + (let _lp205629_ ((_rest205631_ _super205623_)) + (let* ((_rest205632205640_ _rest205631_) + (_else205634205648_ (lambda () '#!void)) + (_K205636205654_ + (lambda (_rest205651_ _super-id205652_) (if (##structure-ref - (let ((__tmp210353 - (let ((__tmp210354 + (let ((__tmp210283 + (let ((__tmp210284 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210354)))) + (cons '!class __tmp210284)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp210353 - _super-id205722_)) + __tmp210283 + _super-id205652_)) '8 gxc#!class::t '#f) - (let ((__tmp210351 - (let ((__tmp210352 + (let ((__tmp210281 + (let ((__tmp210282 (let () (declare (not safe)) - (cons _id205692_ + (cons _id205622_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '!class __tmp210352)))) + (cons '!class __tmp210282)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp210351 - _super-id205722_)) + __tmp210281 + _super-id205652_)) '#!void) (let () (declare (not safe)) - (_lp205699_ _rest205721_))))) + (_lp205629_ _rest205651_))))) (if (let () (declare (not safe)) - (##pair? _rest205702205710_)) - (let ((_hd205707205727_ + (##pair? _rest205632205640_)) + (let ((_hd205637205657_ (let () (declare (not safe)) - (##car _rest205702205710_))) - (_tl205708205729_ + (##car _rest205632205640_))) + (_tl205638205659_ (let () (declare (not safe)) - (##cdr _rest205702205710_)))) - (let* ((_super-id205732_ - _hd205707205727_) - (_rest205734_ _tl205708205729_)) + (##cdr _rest205632205640_)))) + (let* ((_super-id205662_ + _hd205637205657_) + (_rest205664_ _tl205638205659_)) (declare (not safe)) - (_K205706205724_ - _rest205734_ - _super-id205732_))) + (_K205636205654_ + _rest205664_ + _super-id205662_))) '#!void))) - (if _struct?205696_ - (let* ((_super205735205745_ _super205693_) - (_else205738205753_ + (if _struct?205626_ + (let* ((_super205665205675_ _super205623_) + (_else205668205683_ (lambda () - (let ((__tmp210355 - (let ((__tmp210356 + (let ((__tmp210285 + (let ((__tmp210286 (let () (declare (not safe)) - (cons _id205692_ + (cons _id205622_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '!class - __tmp210356)))) + __tmp210286)))) (declare (not safe)) (gxc#raise-compile-error '"bad class; struct can only extend a single struct" - __tmp210355 - _super205693_))))) - (let ((_K205743205775_ (lambda () '#!void)) - (_K205740205761_ - (lambda (_super-id205757_) - (let ((_klass205759_ - (let ((__tmp210357 - (let ((__tmp210358 + __tmp210285 + _super205623_))))) + (let ((_K205673205705_ (lambda () '#!void)) + (_K205670205691_ + (lambda (_super-id205687_) + (let ((_klass205689_ + (let ((__tmp210287 + (let ((__tmp210288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id205692_ '())))) + (let () (declare (not safe)) (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210358)))) + (cons '!class __tmp210288)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp210357 _super-id205757_)))) + (gxc#optimizer-resolve-class __tmp210287 _super-id205687_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (##structure-ref - _klass205759_ + _klass205689_ '7 gxc#!class::t '#f) '#!void - (let ((__tmp210359 - (let ((__tmp210360 + (let ((__tmp210289 + (let ((__tmp210290 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id205692_ '())))) + (let () (declare (not safe)) (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210360)))) + (cons '!class __tmp210290)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"bad class; struct extending non struct" - __tmp210359 - _super-id205757_))))))) - (let ((_try-match205737205771_ + __tmp210289 + _super-id205687_))))))) + (let ((_try-match205667205701_ (lambda () (if (let () (declare (not safe)) - (##pair? _super205735205745_)) - (let ((_tl205742205766_ + (##pair? _super205665205675_)) + (let ((_tl205672205696_ (let () (declare (not safe)) - (##cdr _super205735205745_))) - (_hd205741205764_ + (##cdr _super205665205675_))) + (_hd205671205694_ (let () (declare (not safe)) - (##car _super205735205745_)))) + (##car _super205665205675_)))) (if (let () (declare (not safe)) - (##null? _tl205742205766_)) - (let ((_super-id205769_ - _hd205741205764_)) + (##null? _tl205672205696_)) + (let ((_super-id205699_ + _hd205671205694_)) (declare (not safe)) - (_K205740205761_ - _super-id205769_)) + (_K205670205691_ + _super-id205699_)) (let () (declare (not safe)) - (_else205738205753_)))) + (_else205668205683_)))) (let () (declare (not safe)) - (_else205738205753_)))))) + (_else205668205683_)))))) (if (let () (declare (not safe)) - (##null? _super205735205745_)) + (##null? _super205665205675_)) '#!void (let () (declare (not safe)) - (_try-match205737205771_)))))) + (_try-match205667205701_)))))) '#!void) - (let* ((_ctor-method205826_ - (let ((_$e205778_ _ctor-method205695_)) - (if _$e205778_ - _$e205778_ - (let _lp205781_ ((_rest205783_ - _super205693_) - (_method205784_ + (let* ((_ctor-method205756_ + (let ((_$e205708_ _ctor-method205625_)) + (if _$e205708_ + _$e205708_ + (let _lp205711_ ((_rest205713_ + _super205623_) + (_method205714_ '#f)) - (let* ((_rest205785205793_ - _rest205783_) - (_else205787205801_ + (let* ((_rest205715205723_ + _rest205713_) + (_else205717205731_ (lambda () - _method205784_)) - (_K205789205814_ - (lambda (_rest205804_ - _super-id205805_) - (let* ((_klass205807_ - (let ((__tmp210361 + _method205714_)) + (_K205719205744_ + (lambda (_rest205734_ + _super-id205735_) + (let* ((_klass205737_ + (let ((__tmp210291 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210362 + (let ((__tmp210292 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210362)))) + (cons '!class __tmp210292)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp210361 - _super-id205805_))) - (_$e205809_ - (##structure-ref _klass205807_ '6 gxc#!class::t '#f))) - (if _$e205809_ - ((lambda (_ctor-method205812_) - (if _method205784_ + __tmp210291 + _super-id205735_))) + (_$e205739_ + (##structure-ref _klass205737_ '6 gxc#!class::t '#f))) + (if _$e205739_ + ((lambda (_ctor-method205742_) + (if _method205714_ (if (let () (declare (not safe)) - (eq? _ctor-method205812_ _method205784_)) + (eq? _ctor-method205742_ _method205714_)) (let () (declare (not safe)) - (_lp205781_ - _rest205804_ - _ctor-method205812_)) - (let ((__tmp210363 - (let ((__tmp210364 + (_lp205711_ + _rest205734_ + _ctor-method205742_)) + (let ((__tmp210293 + (let ((__tmp210294 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210364)))) + (cons '!class __tmp210294)))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp210363 - _method205784_ - _ctor-method205812_))) + __tmp210293 + _method205714_ + _ctor-method205742_))) (let () (declare (not safe)) - (_lp205781_ _rest205804_ _ctor-method205812_)))) - _$e205809_) + (_lp205711_ _rest205734_ _ctor-method205742_)))) + _$e205739_) (let () (declare (not safe)) - (_lp205781_ _rest205804_ _method205784_))))))) + (_lp205711_ _rest205734_ _method205714_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest205785205793_)) - (let ((_hd205790205817_ + (##pair? _rest205715205723_)) + (let ((_hd205720205747_ (let () (declare (not safe)) - (##car _rest205785205793_))) - (_tl205791205819_ + (##car _rest205715205723_))) + (_tl205721205749_ (let () (declare (not safe)) - (##cdr _rest205785205793_)))) - (let* ((_super-id205822_ - _hd205790205817_) - (_rest205824_ - _tl205791205819_)) + (##cdr _rest205715205723_)))) + (let* ((_super-id205752_ + _hd205720205747_) + (_rest205754_ + _tl205721205749_)) (declare (not safe)) - (_K205789205814_ - _rest205824_ - _super-id205822_))) + (_K205719205744_ + _rest205754_ + _super-id205752_))) (let () (declare (not safe)) - (_else205787205801_)))))))) - (_precedence-list205830_ - (let ((__tmp210365 - (lambda (_klass-id205828_) - (let ((__tmp210366 + (_else205717205731_)))))))) + (_precedence-list205760_ + (let ((__tmp210295 + (lambda (_klass-id205758_) + (let ((__tmp210296 (##structure-ref - (let ((__tmp210367 - (let ((__tmp210368 + (let ((__tmp210297 + (let ((__tmp210298 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210368)))) + (cons '!class __tmp210298)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp210367 _klass-id205828_)) + (gxc#optimizer-resolve-class __tmp210297 _klass-id205758_)) '3 gxc#!class::t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _klass-id205828_ - __tmp210366))))) + (cons _klass-id205758_ + __tmp210296))))) (declare (not safe)) (c3-linearize__% '() - _super205693_ - __tmp210365 + _super205623_ + __tmp210295 eq? identity))) - (_fields205836_ - (let* ((_base-struct205834_ - (let ((__tmp210369 - (lambda (_klass-id205832_) + (_fields205766_ + (let* ((_base-struct205764_ + (let ((__tmp210299 + (lambda (_klass-id205762_) (##structure-ref - (let ((__tmp210370 - (let ((__tmp210371 + (let ((__tmp210300 + (let ((__tmp210301 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210371)))) + (cons '!class __tmp210301)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp210370 _klass-id205832_)) + (gxc#optimizer-resolve-class __tmp210300 _klass-id205762_)) '7 gxc#!class::t '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (find __tmp210369 - _precedence-list205830_))) - (__tmp210372 - (let ((__tmp210373 + (find __tmp210299 + _precedence-list205760_))) + (__tmp210302 + (let ((__tmp210303 (let () (declare (not safe)) - (cons _id205692_ '())))) + (cons _id205622_ '())))) (declare (not safe)) - (cons '!class __tmp210373)))) + (cons '!class __tmp210303)))) (declare (not safe)) (gxc#compute-class-fields - __tmp210372 - _base-struct205834_ - _precedence-list205830_ - _slots205694_)))) + __tmp210302 + _base-struct205764_ + _precedence-list205760_ + _slots205624_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _self205691_ - _id205692_ - __id210217 - __t210215 + _self205621_ + _id205622_ + __id210148 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205691_ - _super205693_ - __super210224 - __t210215 + _self205621_ + _super205623_ + __super210151 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205691_ - _precedence-list205830_ - __precedence-list210221 - __t210215 + _self205621_ + _precedence-list205760_ + __precedence-list210146 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205691_ - _slots205694_ - __slots210223 - __t210215 + _self205621_ + _slots205624_ + __slots210153 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205691_ - _fields205836_ - __fields210216 - __t210215 + _self205621_ + _fields205766_ + __fields210154 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205691_ - _ctor-method205826_ - __constructor210219 - __t210215 + _self205621_ + _ctor-method205756_ + __constructor210150 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205691_ - _struct?205696_ - __struct?210222 - __t210215 + _self205621_ + _struct?205626_ + __struct?210149 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205691_ - _final?205697_ - __final?210220 - __t210215 + _self205621_ + _final?205627_ + __final?210152 + __t210145 '#f)))) - _g210350_)) - ((let () (declare (not safe)) (##fx= _g210349_ 10)) - (apply (lambda (_self205839_ - _id205840_ - _super205841_ - _precedence-list205842_ - _slots205843_ - _fields205844_ - _constructor205845_ - _struct?205846_ - _final?205847_ - _methods205848_) + _g210280_)) + ((let () (declare (not safe)) (##fx= _g210279_ 10)) + (apply (lambda (_self205769_ + _id205770_ + _super205771_ + _precedence-list205772_ + _slots205773_ + _fields205774_ + _constructor205775_ + _struct?205776_ + _final?205777_ + _methods205778_) (let () (declare (not safe)) (##unchecked-structure-set! - _self205839_ - _id205840_ - __id210217 - __t210215 + _self205769_ + _id205770_ + __id210148 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205839_ - _super205841_ - __super210224 - __t210215 + _self205769_ + _super205771_ + __super210151 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205839_ - _precedence-list205842_ - __precedence-list210221 - __t210215 + _self205769_ + _precedence-list205772_ + __precedence-list210146 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205839_ - _slots205843_ - __slots210223 - __t210215 + _self205769_ + _slots205773_ + __slots210153 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205839_ - _fields205844_ - __fields210216 - __t210215 + _self205769_ + _fields205774_ + __fields210154 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205839_ - _constructor205845_ - __constructor210219 - __t210215 + _self205769_ + _constructor205775_ + __constructor210150 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205839_ - _struct?205846_ - __struct?210222 - __t210215 + _self205769_ + _struct?205776_ + __struct?210149 + __t210145 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205839_ - _final?205847_ - __final?210220 - __t210215 + _self205769_ + _final?205777_ + __final?210152 + __t210145 '#f)) - (if _methods205848_ - (let ((__tmp210374 + (if _methods205778_ + (let ((__tmp210304 (let () (declare (not safe)) (list->table - _methods205848_ + _methods205778_ 'test: eq?)))) (declare (not safe)) (##unchecked-structure-set! - _self205839_ - __tmp210374 - __methods210218 - __t210215 + _self205769_ + __tmp210304 + __methods210147 + __t210145 '#f)) '#!void)) - _g210350_)) + _g210280_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g210350_)))))))) + _g210280_)))))))) (let () (declare (not safe)) (bind-specializer! gxc#!class:::init! gxc#!class:::init!::specialize)) @@ -2018,199 +2020,199 @@ (declare (not safe)) (bind-method! gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_where205543_ - _base-struct205544_ - _precedence-list205545_ - _direct-slots205546_) - (let* ((_base-fields205548_ - (if _base-struct205544_ + (lambda (_where205473_ + _base-struct205474_ + _precedence-list205475_ + _direct-slots205476_) + (let* ((_base-fields205478_ + (if _base-struct205474_ (##structure-ref (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where205543_ - _base-struct205544_)) + _where205473_ + _base-struct205474_)) '5 gxc#!class::t '#f) '())) - (_r-fields205550_ (reverse _base-fields205548_)) - (_seen-slots205558_ - (let ((_tab205552_ + (_r-fields205480_ (reverse _base-fields205478_)) + (_seen-slots205488_ + (let ((_tab205482_ (let () (declare (not safe)) (make-table 'test: eq?)))) (for-each - (lambda (_g205553205555_) + (lambda (_g205483205485_) (let () (declare (not safe)) - (table-set! _tab205552_ _g205553205555_ '#t))) - _base-fields205548_) - _tab205552_)) - (_process-slot205562_ - (lambda (_slot205560_) + (table-set! _tab205482_ _g205483205485_ '#t))) + _base-fields205478_) + _tab205482_)) + (_process-slot205492_ + (lambda (_slot205490_) (if (let () (declare (not safe)) - (table-ref _seen-slots205558_ _slot205560_ '#f)) + (table-ref _seen-slots205488_ _slot205490_ '#f)) '#!void (begin (let () (declare (not safe)) - (table-set! _seen-slots205558_ _slot205560_ '#t)) - (set! _r-fields205550_ + (table-set! _seen-slots205488_ _slot205490_ '#t)) + (set! _r-fields205480_ (let () (declare (not safe)) - (cons _slot205560_ _r-fields205550_)))))))) + (cons _slot205490_ _r-fields205480_)))))))) (for-each - (lambda (_mixin205565_) - (let ((_klass205567_ + (lambda (_mixin205495_) + (let ((_klass205497_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where205543_ - _mixin205565_)))) - (if (##structure-ref _klass205567_ '7 gxc#!class::t '#f) + _where205473_ + _mixin205495_)))) + (if (##structure-ref _klass205497_ '7 gxc#!class::t '#f) '#!void (for-each - _process-slot205562_ - (##structure-ref _klass205567_ '5 gxc#!class::t '#f))))) - _precedence-list205545_) - (for-each _process-slot205562_ _direct-slots205546_) - (reverse _r-fields205550_)))) + _process-slot205492_ + (##structure-ref _klass205497_ '5 gxc#!class::t '#f))))) + _precedence-list205475_) + (for-each _process-slot205492_ _direct-slots205476_) + (reverse _r-fields205480_)))) (define gxc#!class-slot->field-offset - (lambda (_klass205502_ _slot205503_) - (let _lp205505_ ((_rest205507_ - (##structure-ref _klass205502_ '5 gxc#!class::t '#f)) - (_offset205508_ '1)) - (let* ((_rest205509205517_ _rest205507_) - (_else205511205525_ + (lambda (_klass205432_ _slot205433_) + (let _lp205435_ ((_rest205437_ + (##structure-ref _klass205432_ '5 gxc#!class::t '#f)) + (_offset205438_ '1)) + (let* ((_rest205439205447_ _rest205437_) + (_else205441205455_ (lambda () - (let ((__tmp210376 - (##structure-ref _klass205502_ '1 gxc#!type::t '#f)) - (__tmp210375 + (let ((__tmp210306 + (##structure-ref _klass205432_ '1 gxc#!type::t '#f)) + (__tmp210305 (##structure-ref - _klass205502_ + _klass205432_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp210376 - __tmp210375 - _slot205503_)))) - (_K205513205531_ - (lambda (_rest205528_ _s205529_) + __tmp210306 + __tmp210305 + _slot205433_)))) + (_K205443205461_ + (lambda (_rest205458_ _s205459_) (if (let () (declare (not safe)) - (eq? _s205529_ _slot205503_)) - _offset205508_ - (let ((__tmp210377 + (eq? _s205459_ _slot205433_)) + _offset205438_ + (let ((__tmp210307 (let () (declare (not safe)) - (fx+ _offset205508_ '1)))) + (fx+ _offset205438_ '1)))) (declare (not safe)) - (_lp205505_ _rest205528_ __tmp210377)))))) - (if (let () (declare (not safe)) (##pair? _rest205509205517_)) - (let ((_hd205514205534_ + (_lp205435_ _rest205458_ __tmp210307)))))) + (if (let () (declare (not safe)) (##pair? _rest205439205447_)) + (let ((_hd205444205464_ (let () (declare (not safe)) - (##car _rest205509205517_))) - (_tl205515205536_ + (##car _rest205439205447_))) + (_tl205445205466_ (let () (declare (not safe)) - (##cdr _rest205509205517_)))) - (let* ((_s205539_ _hd205514205534_) - (_rest205541_ _tl205515205536_)) + (##cdr _rest205439205447_)))) + (let* ((_s205469_ _hd205444205464_) + (_rest205471_ _tl205445205466_)) (declare (not safe)) - (_K205513205531_ _rest205541_ _s205539_))) - (let () (declare (not safe)) (_else205511205525_))))))) + (_K205443205461_ _rest205471_ _s205469_))) + (let () (declare (not safe)) (_else205441205455_))))))) (define gxc#!class-slot-find-struct - (lambda (_klass205460_ _slot205461_) + (lambda (_klass205390_ _slot205391_) (if (let () (declare (not safe)) - (gxc#!class-struct-slot? _klass205460_ _slot205461_)) - _klass205460_ - (let _lp205463_ ((_rest205465_ + (gxc#!class-struct-slot? _klass205390_ _slot205391_)) + _klass205390_ + (let _lp205393_ ((_rest205395_ (##structure-ref - _klass205460_ + _klass205390_ '3 gxc#!class::t '#f))) - (let* ((_rest205466205474_ _rest205465_) - (_else205468205482_ (lambda () '#f)) - (_K205470205490_ - (lambda (_rest205485_ _super205486_) - (let ((_super-class205488_ - (let ((__tmp210378 - (let ((__tmp210379 - (let ((__tmp210381 + (let* ((_rest205396205404_ _rest205395_) + (_else205398205412_ (lambda () '#f)) + (_K205400205420_ + (lambda (_rest205415_ _super205416_) + (let ((_super-class205418_ + (let ((__tmp210308 + (let ((__tmp210309 + (let ((__tmp210311 (##structure-ref - _klass205460_ + _klass205390_ '1 gxc#!type::t '#f)) - (__tmp210380 + (__tmp210310 (let () (declare (not safe)) - (cons _slot205461_ + (cons _slot205391_ '())))) (declare (not safe)) - (cons __tmp210381 - __tmp210380)))) + (cons __tmp210311 + __tmp210310)))) (declare (not safe)) (cons '!class-slot-find-struct - __tmp210379)))) + __tmp210309)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp210378 - _super205486_)))) + __tmp210308 + _super205416_)))) (if (let () (declare (not safe)) (gxc#!class-struct-slot? - _super-class205488_ - _slot205461_)) - _super-class205488_ + _super-class205418_ + _slot205391_)) + _super-class205418_ (let () (declare (not safe)) - (_lp205463_ _rest205485_))))))) - (if (let () (declare (not safe)) (##pair? _rest205466205474_)) - (let ((_hd205471205493_ + (_lp205393_ _rest205415_))))))) + (if (let () (declare (not safe)) (##pair? _rest205396205404_)) + (let ((_hd205401205423_ (let () (declare (not safe)) - (##car _rest205466205474_))) - (_tl205472205495_ + (##car _rest205396205404_))) + (_tl205402205425_ (let () (declare (not safe)) - (##cdr _rest205466205474_)))) - (let* ((_super205498_ _hd205471205493_) - (_rest205500_ _tl205472205495_)) + (##cdr _rest205396205404_)))) + (let* ((_super205428_ _hd205401205423_) + (_rest205430_ _tl205402205425_)) (declare (not safe)) - (_K205470205490_ _rest205500_ _super205498_))) - (let () (declare (not safe)) (_else205468205482_)))))))) + (_K205400205420_ _rest205430_ _super205428_))) + (let () (declare (not safe)) (_else205398205412_)))))))) (define gxc#!class-struct-slot? - (lambda (_klass205457_ _slot205458_) - (if (##structure-ref _klass205457_ '7 gxc#!class::t '#f) - (memq _slot205458_ - (##structure-ref _klass205457_ '5 gxc#!class::t '#f)) + (lambda (_klass205387_ _slot205388_) + (if (##structure-ref _klass205387_ '7 gxc#!class::t '#f) + (memq _slot205388_ + (##structure-ref _klass205387_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_self205454_ _id205455_) - (##structure-set! _self205454_ _id205455_ '1 gxc#!type::t '#f))) + (lambda (_self205384_ _id205385_) + (##structure-set! _self205384_ _id205385_ '1 gxc#!type::t '#f))) (define gxc#!predicate:::init!::specialize - (lambda (__t210234) - (let ((__id210235 - (let ((__tmp210236 + (lambda (__t210164) + (let ((__id210165 + (let ((__tmp210166 (let () (declare (not safe)) - (class-slot-offset* __t210234 'id)))) - (if __tmp210236 __tmp210236 (error '"Unknown slot" 'id))))) - (lambda (_self205454_ _id205455_) + (class-slot-offset __t210164 'id)))) + (if __tmp210166 __tmp210166 (error '"Unknown slot" 'id))))) + (lambda (_self205384_ _id205385_) (let () (declare (not safe)) (##unchecked-structure-set! - _self205454_ - _id205455_ - __id210235 - __t210234 + _self205384_ + _id205385_ + __id210165 + __t210164 '#f)))))) (let () (declare (not safe)) @@ -2221,24 +2223,24 @@ (declare (not safe)) (bind-method! gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_self205329_ _id205330_) - (##structure-set! _self205329_ _id205330_ '1 gxc#!type::t '#f))) + (lambda (_self205259_ _id205260_) + (##structure-set! _self205259_ _id205260_ '1 gxc#!type::t '#f))) (define gxc#!constructor:::init!::specialize - (lambda (__t210237) - (let ((__id210238 - (let ((__tmp210239 + (lambda (__t210167) + (let ((__id210168 + (let ((__tmp210169 (let () (declare (not safe)) - (class-slot-offset* __t210237 'id)))) - (if __tmp210239 __tmp210239 (error '"Unknown slot" 'id))))) - (lambda (_self205329_ _id205330_) + (class-slot-offset __t210167 'id)))) + (if __tmp210169 __tmp210169 (error '"Unknown slot" 'id))))) + (lambda (_self205259_ _id205260_) (let () (declare (not safe)) (##unchecked-structure-set! - _self205329_ - _id205330_ - __id210238 - __t210237 + _self205259_ + _id205260_ + __id210168 + __t210167 '#f)))))) (let () (declare (not safe)) @@ -2249,61 +2251,61 @@ (declare (not safe)) (bind-method! gxc#!constructor::t ':init! gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_self205202_ _id205203_ _slot205204_ _checked?205205_) - (##structure-set! _self205202_ _id205203_ '1 gxc#!type::t '#f) - (##structure-set! _self205202_ _slot205204_ '2 gxc#!accessor::t '#f) + (lambda (_self205132_ _id205133_ _slot205134_ _checked?205135_) + (##structure-set! _self205132_ _id205133_ '1 gxc#!type::t '#f) + (##structure-set! _self205132_ _slot205134_ '2 gxc#!accessor::t '#f) (##structure-set! - _self205202_ - _checked?205205_ + _self205132_ + _checked?205135_ '3 gxc#!accessor::t '#f))) (define gxc#!accessor:::init!::specialize - (lambda (__t210240) - (let ((__id210241 - (let ((__tmp210244 + (lambda (__t210170) + (let ((__id210171 + (let ((__tmp210174 (let () (declare (not safe)) - (class-slot-offset* __t210240 'id)))) - (if __tmp210244 __tmp210244 (error '"Unknown slot" 'id)))) - (__slot210242 - (let ((__tmp210245 + (class-slot-offset __t210170 'id)))) + (if __tmp210174 __tmp210174 (error '"Unknown slot" 'id)))) + (__slot210172 + (let ((__tmp210175 (let () (declare (not safe)) - (class-slot-offset* __t210240 'slot)))) - (if __tmp210245 __tmp210245 (error '"Unknown slot" 'slot)))) - (__checked?210243 - (let ((__tmp210246 + (class-slot-offset __t210170 'slot)))) + (if __tmp210175 __tmp210175 (error '"Unknown slot" 'slot)))) + (__checked?210173 + (let ((__tmp210176 (let () (declare (not safe)) - (class-slot-offset* __t210240 'checked?)))) - (if __tmp210246 - __tmp210246 + (class-slot-offset __t210170 'checked?)))) + (if __tmp210176 + __tmp210176 (error '"Unknown slot" 'checked?))))) - (lambda (_self205202_ _id205203_ _slot205204_ _checked?205205_) + (lambda (_self205132_ _id205133_ _slot205134_ _checked?205135_) (let () (declare (not safe)) (##unchecked-structure-set! - _self205202_ - _id205203_ - __id210241 - __t210240 + _self205132_ + _id205133_ + __id210171 + __t210170 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205202_ - _slot205204_ - __slot210242 - __t210240 + _self205132_ + _slot205134_ + __slot210172 + __t210170 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205202_ - _checked?205205_ - __checked?210243 - __t210240 + _self205132_ + _checked?205135_ + __checked?210173 + __t210170 '#f)))))) (let () (declare (not safe)) @@ -2314,61 +2316,61 @@ (declare (not safe)) (bind-method! gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_self205075_ _id205076_ _slot205077_ _checked?205078_) - (##structure-set! _self205075_ _id205076_ '1 gxc#!type::t '#f) - (##structure-set! _self205075_ _slot205077_ '2 gxc#!mutator::t '#f) + (lambda (_self205005_ _id205006_ _slot205007_ _checked?205008_) + (##structure-set! _self205005_ _id205006_ '1 gxc#!type::t '#f) + (##structure-set! _self205005_ _slot205007_ '2 gxc#!mutator::t '#f) (##structure-set! - _self205075_ - _checked?205078_ + _self205005_ + _checked?205008_ '3 gxc#!mutator::t '#f))) (define gxc#!mutator:::init!::specialize - (lambda (__t210247) - (let ((__id210248 - (let ((__tmp210251 + (lambda (__t210177) + (let ((__id210178 + (let ((__tmp210181 (let () (declare (not safe)) - (class-slot-offset* __t210247 'id)))) - (if __tmp210251 __tmp210251 (error '"Unknown slot" 'id)))) - (__slot210249 - (let ((__tmp210252 + (class-slot-offset __t210177 'id)))) + (if __tmp210181 __tmp210181 (error '"Unknown slot" 'id)))) + (__slot210179 + (let ((__tmp210182 (let () (declare (not safe)) - (class-slot-offset* __t210247 'slot)))) - (if __tmp210252 __tmp210252 (error '"Unknown slot" 'slot)))) - (__checked?210250 - (let ((__tmp210253 + (class-slot-offset __t210177 'slot)))) + (if __tmp210182 __tmp210182 (error '"Unknown slot" 'slot)))) + (__checked?210180 + (let ((__tmp210183 (let () (declare (not safe)) - (class-slot-offset* __t210247 'checked?)))) - (if __tmp210253 - __tmp210253 + (class-slot-offset __t210177 'checked?)))) + (if __tmp210183 + __tmp210183 (error '"Unknown slot" 'checked?))))) - (lambda (_self205075_ _id205076_ _slot205077_ _checked?205078_) + (lambda (_self205005_ _id205006_ _slot205007_ _checked?205008_) (let () (declare (not safe)) (##unchecked-structure-set! - _self205075_ - _id205076_ - __id210248 - __t210247 + _self205005_ + _id205006_ + __id210178 + __t210177 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205075_ - _slot205077_ - __slot210249 - __t210247 + _self205005_ + _slot205007_ + __slot210179 + __t210177 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self205075_ - _checked?205078_ - __checked?210250 - __t210247 + _self205005_ + _checked?205008_ + __checked?210180 + __t210177 '#f)))))) (let () (declare (not safe)) @@ -2379,337 +2381,337 @@ (declare (not safe)) (bind-method! gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_self204919_ - _id204920_ - _arity204921_ - _dispatch204922_ - _inline204923_ - _typedecl204924_) - (if (let ((__tmp210387 + (lambda (_self204849_ + _id204850_ + _arity204851_ + _dispatch204852_ + _inline204853_ + _typedecl204854_) + (if (let ((__tmp210317 (let () (declare (not safe)) - (##structure-length _self204919_)))) + (##structure-length _self204849_)))) (declare (not safe)) - (##fx< '5 __tmp210387)) + (##fx< '5 __tmp210317)) (begin - (let ((__tmp210382 + (let ((__tmp210312 (let () (declare (not safe)) - (##structure-type _self204919_)))) + (##structure-type _self204849_)))) (declare (not safe)) (##unchecked-structure-set! - _self204919_ - _id204920_ + _self204849_ + _id204850_ '1 - __tmp210382 + __tmp210312 '#f)) - (let ((__tmp210383 + (let ((__tmp210313 (let () (declare (not safe)) - (##structure-type _self204919_)))) + (##structure-type _self204849_)))) (declare (not safe)) (##unchecked-structure-set! - _self204919_ - _arity204921_ + _self204849_ + _arity204851_ '2 - __tmp210383 + __tmp210313 '#f)) - (let ((__tmp210384 + (let ((__tmp210314 (let () (declare (not safe)) - (##structure-type _self204919_)))) + (##structure-type _self204849_)))) (declare (not safe)) (##unchecked-structure-set! - _self204919_ - _dispatch204922_ + _self204849_ + _dispatch204852_ '3 - __tmp210384 + __tmp210314 '#f)) - (let ((__tmp210385 + (let ((__tmp210315 (let () (declare (not safe)) - (##structure-type _self204919_)))) + (##structure-type _self204849_)))) (declare (not safe)) (##unchecked-structure-set! - _self204919_ - _inline204923_ + _self204849_ + _inline204853_ '4 - __tmp210385 + __tmp210315 '#f)) - (let ((__tmp210386 + (let ((__tmp210316 (let () (declare (not safe)) - (##structure-type _self204919_)))) + (##structure-type _self204849_)))) (declare (not safe)) (##unchecked-structure-set! - _self204919_ - _typedecl204924_ + _self204849_ + _typedecl204854_ '5 - __tmp210386 + __tmp210316 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self204919_ + _self204849_ '5 (let () (declare (not safe)) - (##vector-length _self204919_)))))) + (##vector-length _self204849_)))))) (define gxc#!lambda:::init!__0 - (lambda (_self204929_ _id204930_ _arity204931_ _dispatch204932_) - (let* ((_inline204934_ '#f) (_typedecl204936_ '#f)) - (if (let ((__tmp210393 + (lambda (_self204859_ _id204860_ _arity204861_ _dispatch204862_) + (let* ((_inline204864_ '#f) (_typedecl204866_ '#f)) + (if (let ((__tmp210323 (let () (declare (not safe)) - (##structure-length _self204929_)))) + (##structure-length _self204859_)))) (declare (not safe)) - (##fx< '5 __tmp210393)) + (##fx< '5 __tmp210323)) (begin - (let ((__tmp210388 + (let ((__tmp210318 (let () (declare (not safe)) - (##structure-type _self204929_)))) + (##structure-type _self204859_)))) (declare (not safe)) (##unchecked-structure-set! - _self204929_ - _id204930_ + _self204859_ + _id204860_ '1 - __tmp210388 + __tmp210318 '#f)) - (let ((__tmp210389 + (let ((__tmp210319 (let () (declare (not safe)) - (##structure-type _self204929_)))) + (##structure-type _self204859_)))) (declare (not safe)) (##unchecked-structure-set! - _self204929_ - _arity204931_ + _self204859_ + _arity204861_ '2 - __tmp210389 + __tmp210319 '#f)) - (let ((__tmp210390 + (let ((__tmp210320 (let () (declare (not safe)) - (##structure-type _self204929_)))) + (##structure-type _self204859_)))) (declare (not safe)) (##unchecked-structure-set! - _self204929_ - _dispatch204932_ + _self204859_ + _dispatch204862_ '3 - __tmp210390 + __tmp210320 '#f)) - (let ((__tmp210391 + (let ((__tmp210321 (let () (declare (not safe)) - (##structure-type _self204929_)))) + (##structure-type _self204859_)))) (declare (not safe)) (##unchecked-structure-set! - _self204929_ - _inline204934_ + _self204859_ + _inline204864_ '4 - __tmp210391 + __tmp210321 '#f)) - (let ((__tmp210392 + (let ((__tmp210322 (let () (declare (not safe)) - (##structure-type _self204929_)))) + (##structure-type _self204859_)))) (declare (not safe)) (##unchecked-structure-set! - _self204929_ - _typedecl204936_ + _self204859_ + _typedecl204866_ '5 - __tmp210392 + __tmp210322 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self204929_ + _self204859_ '5 (let () (declare (not safe)) - (##vector-length _self204929_))))))) + (##vector-length _self204859_))))))) (define gxc#!lambda:::init!__1 - (lambda (_self204938_ - _id204939_ - _arity204940_ - _dispatch204941_ - _inline204942_) - (let ((_typedecl204944_ '#f)) - (if (let ((__tmp210399 + (lambda (_self204868_ + _id204869_ + _arity204870_ + _dispatch204871_ + _inline204872_) + (let ((_typedecl204874_ '#f)) + (if (let ((__tmp210329 (let () (declare (not safe)) - (##structure-length _self204938_)))) + (##structure-length _self204868_)))) (declare (not safe)) - (##fx< '5 __tmp210399)) + (##fx< '5 __tmp210329)) (begin - (let ((__tmp210394 + (let ((__tmp210324 (let () (declare (not safe)) - (##structure-type _self204938_)))) + (##structure-type _self204868_)))) (declare (not safe)) (##unchecked-structure-set! - _self204938_ - _id204939_ + _self204868_ + _id204869_ '1 - __tmp210394 + __tmp210324 '#f)) - (let ((__tmp210395 + (let ((__tmp210325 (let () (declare (not safe)) - (##structure-type _self204938_)))) + (##structure-type _self204868_)))) (declare (not safe)) (##unchecked-structure-set! - _self204938_ - _arity204940_ + _self204868_ + _arity204870_ '2 - __tmp210395 + __tmp210325 '#f)) - (let ((__tmp210396 + (let ((__tmp210326 (let () (declare (not safe)) - (##structure-type _self204938_)))) + (##structure-type _self204868_)))) (declare (not safe)) (##unchecked-structure-set! - _self204938_ - _dispatch204941_ + _self204868_ + _dispatch204871_ '3 - __tmp210396 + __tmp210326 '#f)) - (let ((__tmp210397 + (let ((__tmp210327 (let () (declare (not safe)) - (##structure-type _self204938_)))) + (##structure-type _self204868_)))) (declare (not safe)) (##unchecked-structure-set! - _self204938_ - _inline204942_ + _self204868_ + _inline204872_ '4 - __tmp210397 + __tmp210327 '#f)) - (let ((__tmp210398 + (let ((__tmp210328 (let () (declare (not safe)) - (##structure-type _self204938_)))) + (##structure-type _self204868_)))) (declare (not safe)) (##unchecked-structure-set! - _self204938_ - _typedecl204944_ + _self204868_ + _typedecl204874_ '5 - __tmp210398 + __tmp210328 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self204938_ + _self204868_ '5 (let () (declare (not safe)) - (##vector-length _self204938_))))))) + (##vector-length _self204868_))))))) (define gxc#!lambda:::init! - (lambda _g210401_ - (let ((_g210400_ (let () (declare (not safe)) (##length _g210401_)))) - (cond ((let () (declare (not safe)) (##fx= _g210400_ 4)) - (apply (lambda (_self204929_ - _id204930_ - _arity204931_ - _dispatch204932_) + (lambda _g210331_ + (let ((_g210330_ (let () (declare (not safe)) (##length _g210331_)))) + (cond ((let () (declare (not safe)) (##fx= _g210330_ 4)) + (apply (lambda (_self204859_ + _id204860_ + _arity204861_ + _dispatch204862_) (let () (declare (not safe)) (gxc#!lambda:::init!__0 - _self204929_ - _id204930_ - _arity204931_ - _dispatch204932_))) - _g210401_)) - ((let () (declare (not safe)) (##fx= _g210400_ 5)) - (apply (lambda (_self204938_ - _id204939_ - _arity204940_ - _dispatch204941_ - _inline204942_) + _self204859_ + _id204860_ + _arity204861_ + _dispatch204862_))) + _g210331_)) + ((let () (declare (not safe)) (##fx= _g210330_ 5)) + (apply (lambda (_self204868_ + _id204869_ + _arity204870_ + _dispatch204871_ + _inline204872_) (let () (declare (not safe)) (gxc#!lambda:::init!__1 - _self204938_ - _id204939_ - _arity204940_ - _dispatch204941_ - _inline204942_))) - _g210401_)) - ((let () (declare (not safe)) (##fx= _g210400_ 6)) - (apply (lambda (_self204946_ - _id204947_ - _arity204948_ - _dispatch204949_ - _inline204950_ - _typedecl204951_) - (if (let ((__tmp210407 + _self204868_ + _id204869_ + _arity204870_ + _dispatch204871_ + _inline204872_))) + _g210331_)) + ((let () (declare (not safe)) (##fx= _g210330_ 6)) + (apply (lambda (_self204876_ + _id204877_ + _arity204878_ + _dispatch204879_ + _inline204880_ + _typedecl204881_) + (if (let ((__tmp210337 (let () (declare (not safe)) - (##structure-length _self204946_)))) + (##structure-length _self204876_)))) (declare (not safe)) - (##fx< '5 __tmp210407)) + (##fx< '5 __tmp210337)) (begin - (let ((__tmp210402 + (let ((__tmp210332 (let () (declare (not safe)) - (##structure-type _self204946_)))) + (##structure-type _self204876_)))) (declare (not safe)) (##unchecked-structure-set! - _self204946_ - _id204947_ + _self204876_ + _id204877_ '1 - __tmp210402 + __tmp210332 '#f)) - (let ((__tmp210403 + (let ((__tmp210333 (let () (declare (not safe)) - (##structure-type _self204946_)))) + (##structure-type _self204876_)))) (declare (not safe)) (##unchecked-structure-set! - _self204946_ - _arity204948_ + _self204876_ + _arity204878_ '2 - __tmp210403 + __tmp210333 '#f)) - (let ((__tmp210404 + (let ((__tmp210334 (let () (declare (not safe)) - (##structure-type _self204946_)))) + (##structure-type _self204876_)))) (declare (not safe)) (##unchecked-structure-set! - _self204946_ - _dispatch204949_ + _self204876_ + _dispatch204879_ '3 - __tmp210404 + __tmp210334 '#f)) - (let ((__tmp210405 + (let ((__tmp210335 (let () (declare (not safe)) - (##structure-type _self204946_)))) + (##structure-type _self204876_)))) (declare (not safe)) (##unchecked-structure-set! - _self204946_ - _inline204950_ + _self204876_ + _inline204880_ '4 - __tmp210405 + __tmp210335 '#f)) - (let ((__tmp210406 + (let ((__tmp210336 (let () (declare (not safe)) - (##structure-type _self204946_)))) + (##structure-type _self204876_)))) (declare (not safe)) (##unchecked-structure-set! - _self204946_ - _typedecl204951_ + _self204876_ + _typedecl204881_ '5 - __tmp210406 + __tmp210336 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self204946_ + _self204876_ '5 (let () (declare (not safe)) - (##vector-length _self204946_))))) - _g210401_)) + (##vector-length _self204876_))))) + _g210331_)) (else (##raise-wrong-number-of-arguments-exception gxc#!lambda:::init! - _g210401_)))))) + _g210331_)))))) (let () (declare (not safe)) (bind-method! gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) @@ -2722,8 +2724,8 @@ gxc#!primitive-lambda:::init! '#f)) (define gxc#!primitive-case-lambda:::init! - (lambda (_self204671_ . _args204672_) - (apply struct-instance-init! _self204671_ _args204672_))) + (lambda (_self204601_ . _args204602_) + (apply struct-instance-init! _self204601_ _args204602_))) (let () (declare (not safe)) (bind-method! @@ -2732,62 +2734,62 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!type-vtab - (lambda (_type204546_) + (lambda (_type204476_) (if (let () (declare (not safe)) - (##structure-instance-of? _type204546_ 'gxc#!class::t)) + (##structure-instance-of? _type204476_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-method-table _type204546_)) + (gxc#!class-method-table _type204476_)) '#f))) (define gxc#!class-method-table - (lambda (_klass204539_) - (let ((_$e204541_ - (##structure-ref _klass204539_ '9 gxc#!class::t '#f))) - (if _$e204541_ - _$e204541_ - (let ((_tab204544_ + (lambda (_klass204469_) + (let ((_$e204471_ + (##structure-ref _klass204469_ '9 gxc#!class::t '#f))) + (if _$e204471_ + _$e204471_ + (let ((_tab204474_ (let () (declare (not safe)) (make-table 'test: eq?)))) (##structure-set! - _klass204539_ - _tab204544_ + _klass204469_ + _tab204474_ '9 gxc#!class::t '#f) - _tab204544_))))) + _tab204474_))))) (define gxc#!class-lookup-method - (lambda (_klass204530_ _method204531_) - (let ((_tab204532204534_ - (##structure-ref _klass204530_ '9 gxc#!class::t '#f))) - (if _tab204532204534_ - (let ((_tab204537_ _tab204532204534_)) + (lambda (_klass204460_ _method204461_) + (let ((_tab204462204464_ + (##structure-ref _klass204460_ '9 gxc#!class::t '#f))) + (if _tab204462204464_ + (let ((_tab204467_ _tab204462204464_)) (declare (not safe)) - (table-ref _tab204537_ _method204531_ '#f)) + (table-ref _tab204467_ _method204461_ '#f)) '#f)))) (define gxc#!type-lookup-method - (lambda (_type204527_ _method204528_) + (lambda (_type204457_ _method204458_) (if (let () (declare (not safe)) - (##structure-instance-of? _type204527_ 'gxc#!class::t)) + (##structure-instance-of? _type204457_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-lookup-method _type204527_ _method204528_)) + (gxc#!class-lookup-method _type204457_ _method204458_)) '#f))) (define gxc#optimizer-declare-type!__% - (lambda (_sym204511_ _type204512_ _local?204513_) + (lambda (_sym204441_ _type204442_ _local?204443_) (if (let () (declare (not safe)) - (##structure-instance-of? _type204512_ 'gxc#!type::t)) + (##structure-instance-of? _type204442_ 'gxc#!type::t)) '#!void (error '"bad declaration: expected !type" - _sym204511_ - _type204512_)) - (let ((__tmp210408 - (let () (declare (not safe)) (struct->list _type204512_)))) + _sym204441_ + _type204442_)) + (let ((__tmp210338 + (let () (declare (not safe)) (struct->list _type204442_)))) (declare (not safe)) - (gxc#verbose '"declare-type " _sym204511_ '" " __tmp210408)) - (let ((__tmp210409 - (if _local?204513_ + (gxc#verbose '"declare-type " _sym204441_ '" " __tmp210338)) + (let ((__tmp210339 + (if _local?204443_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2795,44 +2797,44 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (table-set! __tmp210409 _sym204511_ _type204512_)))) + (table-set! __tmp210339 _sym204441_ _type204442_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_sym204518_ _type204519_) - (let ((_local?204521_ '#f)) + (lambda (_sym204448_ _type204449_) + (let ((_local?204451_ '#f)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym204518_ - _type204519_ - _local?204521_)))) + _sym204448_ + _type204449_ + _local?204451_)))) (define gxc#optimizer-declare-type! - (lambda _g210411_ - (let ((_g210410_ (let () (declare (not safe)) (##length _g210411_)))) - (cond ((let () (declare (not safe)) (##fx= _g210410_ 2)) - (apply (lambda (_sym204518_ _type204519_) + (lambda _g210341_ + (let ((_g210340_ (let () (declare (not safe)) (##length _g210341_)))) + (cond ((let () (declare (not safe)) (##fx= _g210340_ 2)) + (apply (lambda (_sym204448_ _type204449_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym204518_ - _type204519_))) - _g210411_)) - ((let () (declare (not safe)) (##fx= _g210410_ 3)) - (apply (lambda (_sym204523_ _type204524_ _local?204525_) + _sym204448_ + _type204449_))) + _g210341_)) + ((let () (declare (not safe)) (##fx= _g210340_ 3)) + (apply (lambda (_sym204453_ _type204454_ _local?204455_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym204523_ - _type204524_ - _local?204525_))) - _g210411_)) + _sym204453_ + _type204454_ + _local?204455_))) + _g210341_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g210411_)))))) + _g210341_)))))) (define gxc#optimizer-clear-type!__% - (lambda (_sym204497_ _local?204498_) - (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym204497_)) - (let ((__tmp210412 - (if _local?204498_ + (lambda (_sym204427_ _local?204428_) + (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym204427_)) + (let ((__tmp210342 + (if _local?204428_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2840,262 +2842,262 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (table-set! __tmp210412 _sym204497_)))) + (table-set! __tmp210342 _sym204427_)))) (define gxc#optimizer-clear-type!__0 - (lambda (_sym204503_) - (let ((_local?204505_ '#f)) + (lambda (_sym204433_) + (let ((_local?204435_ '#f)) (declare (not safe)) - (gxc#optimizer-clear-type!__% _sym204503_ _local?204505_)))) + (gxc#optimizer-clear-type!__% _sym204433_ _local?204435_)))) (define gxc#optimizer-clear-type! - (lambda _g210414_ - (let ((_g210413_ (let () (declare (not safe)) (##length _g210414_)))) - (cond ((let () (declare (not safe)) (##fx= _g210413_ 1)) - (apply (lambda (_sym204503_) + (lambda _g210344_ + (let ((_g210343_ (let () (declare (not safe)) (##length _g210344_)))) + (cond ((let () (declare (not safe)) (##fx= _g210343_ 1)) + (apply (lambda (_sym204433_) (let () (declare (not safe)) - (gxc#optimizer-clear-type!__0 _sym204503_))) - _g210414_)) - ((let () (declare (not safe)) (##fx= _g210413_ 2)) - (apply (lambda (_sym204507_ _local?204508_) + (gxc#optimizer-clear-type!__0 _sym204433_))) + _g210344_)) + ((let () (declare (not safe)) (##fx= _g210343_ 2)) + (apply (lambda (_sym204437_ _local?204438_) (let () (declare (not safe)) (gxc#optimizer-clear-type!__% - _sym204507_ - _local?204508_))) - _g210414_)) + _sym204437_ + _local?204438_))) + _g210344_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-clear-type! - _g210414_)))))) + _g210344_)))))) (define gxc#optimizer-declare-method!__% - (lambda (_type-t204470_ _method204471_ _sym204472_ _rebind?204473_) - (let* ((_type204475_ + (lambda (_type-t204400_ _method204401_ _sym204402_ _rebind?204403_) + (let* ((_type204405_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t204470_))) - (_$e204477_ - (let () (declare (not safe)) (gxc#!type-vtab _type204475_)))) - (if _$e204477_ - ((lambda (_vtab204480_) + (gxc#optimizer-resolve-type _type-t204400_))) + (_$e204407_ + (let () (declare (not safe)) (gxc#!type-vtab _type204405_)))) + (if _$e204407_ + ((lambda (_vtab204410_) (if (let () (declare (not safe)) - (hash-key? _vtab204480_ _method204471_)) - (if _rebind?204473_ + (hash-key? _vtab204410_ _method204401_)) + (if _rebind?204403_ (begin (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _type-t204470_ + _type-t204400_ '" " - _method204471_)) + _method204401_)) (let () (declare (not safe)) (table-set! - _vtab204480_ - _method204471_ - _sym204472_))) - (let ((__tmp210419 - (let ((__tmp210420 - (let ((__tmp210421 - (let ((__tmp210422 + _vtab204410_ + _method204401_ + _sym204402_))) + (let ((__tmp210349 + (let ((__tmp210350 + (let ((__tmp210351 + (let ((__tmp210352 (let () (declare (not safe)) - (cons _sym204472_ + (cons _sym204402_ '())))) (declare (not safe)) - (cons _method204471_ - __tmp210422)))) + (cons _method204401_ + __tmp210352)))) (declare (not safe)) - (cons _type-t204470_ __tmp210421)))) + (cons _type-t204400_ __tmp210351)))) (declare (not safe)) - (cons 'bind-method! __tmp210420)))) + (cons 'bind-method! __tmp210350)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp210419 - _method204471_))) + __tmp210349 + _method204401_))) (begin (let () (declare (not safe)) (gxc#verbose '"declare-method " - _type-t204470_ + _type-t204400_ '" " - _method204471_ + _method204401_ '" => " - _sym204472_)) + _sym204402_)) (let () (declare (not safe)) (table-set! - _vtab204480_ - _method204471_ - _sym204472_))))) - _$e204477_) - (if (let () (declare (not safe)) (not _type204475_)) + _vtab204410_ + _method204401_ + _sym204402_))))) + _$e204407_) + (if (let () (declare (not safe)) (not _type204405_)) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown type " - _type-t204470_)) - (let ((__tmp210415 - (let ((__tmp210416 - (let ((__tmp210417 - (let ((__tmp210418 + _type-t204400_)) + (let ((__tmp210345 + (let ((__tmp210346 + (let ((__tmp210347 + (let ((__tmp210348 (let () (declare (not safe)) - (cons _method204471_ '())))) + (cons _method204401_ '())))) (declare (not safe)) - (cons _sym204472_ __tmp210418)))) + (cons _sym204402_ __tmp210348)))) (declare (not safe)) - (cons _type-t204470_ __tmp210417)))) + (cons _type-t204400_ __tmp210347)))) (declare (not safe)) - (cons 'bind-method! __tmp210416)))) + (cons 'bind-method! __tmp210346)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: bad method declaration; no method table" - __tmp210415 - _type204475_))))))) + __tmp210345 + _type204405_))))))) (define gxc#optimizer-declare-method!__0 - (lambda (_type-t204485_ _method204486_ _sym204487_) - (let ((_rebind?204489_ '#f)) + (lambda (_type-t204415_ _method204416_ _sym204417_) + (let ((_rebind?204419_ '#f)) (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t204485_ - _method204486_ - _sym204487_ - _rebind?204489_)))) + _type-t204415_ + _method204416_ + _sym204417_ + _rebind?204419_)))) (define gxc#optimizer-declare-method! - (lambda _g210424_ - (let ((_g210423_ (let () (declare (not safe)) (##length _g210424_)))) - (cond ((let () (declare (not safe)) (##fx= _g210423_ 3)) - (apply (lambda (_type-t204485_ _method204486_ _sym204487_) + (lambda _g210354_ + (let ((_g210353_ (let () (declare (not safe)) (##length _g210354_)))) + (cond ((let () (declare (not safe)) (##fx= _g210353_ 3)) + (apply (lambda (_type-t204415_ _method204416_ _sym204417_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__0 - _type-t204485_ - _method204486_ - _sym204487_))) - _g210424_)) - ((let () (declare (not safe)) (##fx= _g210423_ 4)) - (apply (lambda (_type-t204491_ - _method204492_ - _sym204493_ - _rebind?204494_) + _type-t204415_ + _method204416_ + _sym204417_))) + _g210354_)) + ((let () (declare (not safe)) (##fx= _g210353_ 4)) + (apply (lambda (_type-t204421_ + _method204422_ + _sym204423_ + _rebind?204424_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t204491_ - _method204492_ - _sym204493_ - _rebind?204494_))) - _g210424_)) + _type-t204421_ + _method204422_ + _sym204423_ + _rebind?204424_))) + _g210354_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g210424_)))))) + _g210354_)))))) (define gxc#optimizer-lookup-type - (lambda (_sym204458_) - (let ((_$e204466_ - (let ((_ht204459204461_ (gxc#current-compile-local-type))) - (if _ht204459204461_ - (let ((_ht204464_ _ht204459204461_)) + (lambda (_sym204388_) + (let ((_$e204396_ + (let ((_ht204389204391_ (gxc#current-compile-local-type))) + (if _ht204389204391_ + (let ((_ht204394_ _ht204389204391_)) (declare (not safe)) - (table-ref _ht204464_ _sym204458_ '#f)) + (table-ref _ht204394_ _sym204388_ '#f)) '#f)))) - (if _$e204466_ - _$e204466_ - (let ((__tmp210425 + (if _$e204396_ + _$e204396_ + (let ((__tmp210355 (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-ref __tmp210425 _sym204458_ '#f)))))) + (table-ref __tmp210355 _sym204388_ '#f)))))) (define gxc#optimizer-resolve-type - (lambda (_sym204450_) - (let ((_type204451204453_ + (lambda (_sym204380_) + (let ((_type204381204383_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym204450_)))) - (if _type204451204453_ - (let ((_type204456_ _type204451204453_)) + (gxc#optimizer-lookup-type _sym204380_)))) + (if _type204381204383_ + (let ((_type204386_ _type204381204383_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type204456_ 'gxc#!alias::t)) - (let ((__tmp210426 - (##structure-ref _type204456_ '1 gxc#!type::t '#f))) + (##structure-instance-of? _type204386_ 'gxc#!alias::t)) + (let ((__tmp210356 + (##structure-ref _type204386_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp210426)) - _type204456_)) + (gxc#optimizer-resolve-type __tmp210356)) + _type204386_)) '#f)))) (define gxc#optimizer-resolve-class - (lambda (_where204442_ _klass-id204443_) - (let ((_$e204445_ + (lambda (_where204372_ _klass-id204373_) + (let ((_$e204375_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _klass-id204443_)))) - (if _$e204445_ - ((lambda (_klass204448_) + (gxc#optimizer-resolve-type _klass-id204373_)))) + (if _$e204375_ + ((lambda (_klass204378_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass204448_ 'gxc#!class::t)) + (##structure-instance-of? _klass204378_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"bad class reference; not a class type" - _where204442_ - _klass-id204443_ - _klass204448_))) - _klass204448_) - _$e204445_) + _where204372_ + _klass-id204373_ + _klass204378_))) + _klass204378_) + _$e204375_) (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _where204442_ - _klass-id204443_)))))) + _where204372_ + _klass-id204373_)))))) (define gxc#optimizer-lookup-method - (lambda (_type-t204439_ _method204440_) - (let ((__tmp210427 + (lambda (_type-t204369_ _method204370_) + (let ((__tmp210357 (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t204439_)))) + (gxc#optimizer-resolve-type _type-t204369_)))) (declare (not safe)) - (gxc#!type-lookup-method __tmp210427 _method204440_)))) + (gxc#!type-lookup-method __tmp210357 _method204370_)))) (define gxc#optimizer-top-level-method! - (lambda (_sym204437_) + (lambda (_sym204367_) (let () (declare (not safe)) - (gxc#verbose '"top-level method: " _sym204437_)) - (let ((__tmp210428 + (gxc#verbose '"top-level method: " _sym204367_)) + (let ((__tmp210358 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-set! __tmp210428 _sym204437_ '#t)))) + (table-set! __tmp210358 _sym204367_ '#t)))) (define gxc#optimizer-top-level-method? - (lambda (_sym204435_) - (let ((__tmp210429 + (lambda (_sym204365_) + (let ((__tmp210359 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-ref __tmp210429 _sym204435_ '#f)))) + (table-ref __tmp210359 _sym204365_ '#f)))) (define gxc#identifier-symbol - (lambda (_stx204433_) + (lambda (_stx204363_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _stx204433_ + _stx204363_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _stx204433_)) - (let () (declare (not safe)) (gx#stx-e _stx204433_))))))) + (gxc#generate-runtime-binding-id _stx204363_)) + (let () (declare (not safe)) (gx#stx-e _stx204363_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__1.scm b/src/bootstrap/gerbil/compiler/optimize-base__1.scm index e27062c9f..f1e94934f 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__1.scm @@ -1,1574 +1,1574 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g210431_| + (define |gxc[1]#_g210361_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210433_| + (define |gxc[1]#_g210363_| (##structure gx#syntax-quote::t 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210435_| + (define |gxc[1]#_g210365_| (##structure gx#syntax-quote::t 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210441_| + (define |gxc[1]#_g210371_| (##structure gx#syntax-quote::t 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210444_| + (define |gxc[1]#_g210374_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210447_| + (define |gxc[1]#_g210377_| (##structure gx#syntax-quote::t 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210453_| + (define |gxc[1]#_g210383_| (##structure gx#syntax-quote::t 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210456_| + (define |gxc[1]#_g210386_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210459_| + (define |gxc[1]#_g210389_| (##structure gx#syntax-quote::t 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210465_| + (define |gxc[1]#_g210395_| (##structure gx#syntax-quote::t '&optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210468_| + (define |gxc[1]#_g210398_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210471_| + (define |gxc[1]#_g210401_| (##structure gx#syntax-quote::t '&optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210477_| + (define |gxc[1]#_g210407_| (##structure gx#syntax-quote::t '&optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210480_| + (define |gxc[1]#_g210410_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210483_| + (define |gxc[1]#_g210413_| (##structure gx#syntax-quote::t '&optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210485_| + (define |gxc[1]#_g210415_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210487_| + (define |gxc[1]#_g210417_| (##structure gx#syntax-quote::t 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210489_| + (define |gxc[1]#_g210419_| (##structure gx#syntax-quote::t '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210493_| + (define |gxc[1]#_g210423_| (##structure gx#syntax-quote::t '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210497_| + (define |gxc[1]#_g210427_| (##structure gx#syntax-quote::t '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210501_| + (define |gxc[1]#_g210431_| (##structure gx#syntax-quote::t '&!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210505_| + (define |gxc[1]#_g210435_| (##structure gx#syntax-quote::t '&!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210508_| + (define |gxc[1]#_g210438_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210510_| + (define |gxc[1]#_g210440_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210512_| + (define |gxc[1]#_g210442_| (##structure gx#syntax-quote::t 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210514_| + (define |gxc[1]#_g210444_| (##structure gx#syntax-quote::t '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210518_| + (define |gxc[1]#_g210448_| (##structure gx#syntax-quote::t '!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210522_| + (define |gxc[1]#_g210452_| (##structure gx#syntax-quote::t '!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210526_| + (define |gxc[1]#_g210456_| (##structure gx#syntax-quote::t '&!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210530_| + (define |gxc[1]#_g210460_| (##structure gx#syntax-quote::t '&!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210534_| + (define |gxc[1]#_g210464_| (##structure gx#syntax-quote::t '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210536_| + (define |gxc[1]#_g210466_| (##structure gx#syntax-quote::t 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210538_| + (define |gxc[1]#_g210468_| (##structure gx#syntax-quote::t '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210542_| + (define |gxc[1]#_g210472_| (##structure gx#syntax-quote::t '!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210546_| + (define |gxc[1]#_g210476_| (##structure gx#syntax-quote::t '!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210550_| + (define |gxc[1]#_g210480_| (##structure gx#syntax-quote::t '&!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210554_| + (define |gxc[1]#_g210484_| (##structure gx#syntax-quote::t '&!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210558_| + (define |gxc[1]#_g210488_| (##structure gx#syntax-quote::t '!class::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210560_| + (define |gxc[1]#_g210490_| (##structure gx#syntax-quote::t 'make-!class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210562_| + (define |gxc[1]#_g210492_| (##structure gx#syntax-quote::t '!class? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210574_| + (define |gxc[1]#_g210504_| (##structure gx#syntax-quote::t '!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210577_| + (define |gxc[1]#_g210507_| (##structure gx#syntax-quote::t '!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210580_| + (define |gxc[1]#_g210510_| (##structure gx#syntax-quote::t '!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210583_| + (define |gxc[1]#_g210513_| (##structure gx#syntax-quote::t '!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210586_| + (define |gxc[1]#_g210516_| (##structure gx#syntax-quote::t '!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210589_| + (define |gxc[1]#_g210519_| (##structure gx#syntax-quote::t '!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210592_| + (define |gxc[1]#_g210522_| (##structure gx#syntax-quote::t '!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210595_| + (define |gxc[1]#_g210525_| (##structure gx#syntax-quote::t '!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210598_| + (define |gxc[1]#_g210528_| (##structure gx#syntax-quote::t '!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210610_| + (define |gxc[1]#_g210540_| (##structure gx#syntax-quote::t '!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210613_| + (define |gxc[1]#_g210543_| (##structure gx#syntax-quote::t '!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210616_| + (define |gxc[1]#_g210546_| (##structure gx#syntax-quote::t '!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210619_| + (define |gxc[1]#_g210549_| (##structure gx#syntax-quote::t '!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210622_| + (define |gxc[1]#_g210552_| (##structure gx#syntax-quote::t '!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210625_| + (define |gxc[1]#_g210555_| (##structure gx#syntax-quote::t '!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210628_| + (define |gxc[1]#_g210558_| (##structure gx#syntax-quote::t '!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210631_| + (define |gxc[1]#_g210561_| (##structure gx#syntax-quote::t '!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210634_| + (define |gxc[1]#_g210564_| (##structure gx#syntax-quote::t '!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210646_| + (define |gxc[1]#_g210576_| (##structure gx#syntax-quote::t '&!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210649_| + (define |gxc[1]#_g210579_| (##structure gx#syntax-quote::t '&!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210652_| + (define |gxc[1]#_g210582_| (##structure gx#syntax-quote::t '&!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210655_| + (define |gxc[1]#_g210585_| (##structure gx#syntax-quote::t '&!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210658_| + (define |gxc[1]#_g210588_| (##structure gx#syntax-quote::t '&!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210661_| + (define |gxc[1]#_g210591_| (##structure gx#syntax-quote::t '&!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210664_| + (define |gxc[1]#_g210594_| (##structure gx#syntax-quote::t '&!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210667_| + (define |gxc[1]#_g210597_| (##structure gx#syntax-quote::t '&!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210670_| + (define |gxc[1]#_g210600_| (##structure gx#syntax-quote::t '&!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210682_| + (define |gxc[1]#_g210612_| (##structure gx#syntax-quote::t '&!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210685_| + (define |gxc[1]#_g210615_| (##structure gx#syntax-quote::t '&!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210688_| + (define |gxc[1]#_g210618_| (##structure gx#syntax-quote::t '&!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210691_| + (define |gxc[1]#_g210621_| (##structure gx#syntax-quote::t '&!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210694_| + (define |gxc[1]#_g210624_| (##structure gx#syntax-quote::t '&!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210697_| + (define |gxc[1]#_g210627_| (##structure gx#syntax-quote::t '&!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210700_| + (define |gxc[1]#_g210630_| (##structure gx#syntax-quote::t '&!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210703_| + (define |gxc[1]#_g210633_| (##structure gx#syntax-quote::t '&!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210706_| + (define |gxc[1]#_g210636_| (##structure gx#syntax-quote::t '&!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210709_| + (define |gxc[1]#_g210639_| (##structure gx#syntax-quote::t '!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210711_| + (define |gxc[1]#_g210641_| (##structure gx#syntax-quote::t '!predicate::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210713_| + (define |gxc[1]#_g210643_| (##structure gx#syntax-quote::t 'make-!predicate #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210715_| + (define |gxc[1]#_g210645_| (##structure gx#syntax-quote::t '!predicate? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210719_| + (define |gxc[1]#_g210649_| (##structure gx#syntax-quote::t '!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210723_| + (define |gxc[1]#_g210653_| (##structure gx#syntax-quote::t '!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210727_| + (define |gxc[1]#_g210657_| (##structure gx#syntax-quote::t '&!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210731_| + (define |gxc[1]#_g210661_| (##structure gx#syntax-quote::t '&!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210735_| + (define |gxc[1]#_g210665_| (##structure gx#syntax-quote::t '!constructor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210737_| + (define |gxc[1]#_g210667_| (##structure gx#syntax-quote::t 'make-!constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210739_| + (define |gxc[1]#_g210669_| (##structure gx#syntax-quote::t '!constructor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210743_| + (define |gxc[1]#_g210673_| (##structure gx#syntax-quote::t '!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210747_| + (define |gxc[1]#_g210677_| (##structure gx#syntax-quote::t '!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210751_| + (define |gxc[1]#_g210681_| (##structure gx#syntax-quote::t '&!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210755_| + (define |gxc[1]#_g210685_| (##structure gx#syntax-quote::t '&!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210759_| + (define |gxc[1]#_g210689_| (##structure gx#syntax-quote::t '!accessor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210761_| + (define |gxc[1]#_g210691_| (##structure gx#syntax-quote::t 'make-!accessor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210763_| + (define |gxc[1]#_g210693_| (##structure gx#syntax-quote::t '!accessor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210769_| + (define |gxc[1]#_g210699_| (##structure gx#syntax-quote::t '!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210772_| + (define |gxc[1]#_g210702_| (##structure gx#syntax-quote::t '!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210775_| + (define |gxc[1]#_g210705_| (##structure gx#syntax-quote::t '!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210781_| + (define |gxc[1]#_g210711_| (##structure gx#syntax-quote::t '!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210784_| + (define |gxc[1]#_g210714_| (##structure gx#syntax-quote::t '!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210787_| + (define |gxc[1]#_g210717_| (##structure gx#syntax-quote::t '!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210793_| + (define |gxc[1]#_g210723_| (##structure gx#syntax-quote::t '&!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210796_| + (define |gxc[1]#_g210726_| (##structure gx#syntax-quote::t '&!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210799_| + (define |gxc[1]#_g210729_| (##structure gx#syntax-quote::t '&!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210805_| + (define |gxc[1]#_g210735_| (##structure gx#syntax-quote::t '&!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210808_| + (define |gxc[1]#_g210738_| (##structure gx#syntax-quote::t '&!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210811_| + (define |gxc[1]#_g210741_| (##structure gx#syntax-quote::t '&!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210815_| + (define |gxc[1]#_g210745_| (##structure gx#syntax-quote::t '!mutator::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210817_| + (define |gxc[1]#_g210747_| (##structure gx#syntax-quote::t 'make-!mutator #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210819_| + (define |gxc[1]#_g210749_| (##structure gx#syntax-quote::t '!mutator? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210825_| + (define |gxc[1]#_g210755_| (##structure gx#syntax-quote::t '!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210828_| + (define |gxc[1]#_g210758_| (##structure gx#syntax-quote::t '!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210831_| + (define |gxc[1]#_g210761_| (##structure gx#syntax-quote::t '!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210837_| + (define |gxc[1]#_g210767_| (##structure gx#syntax-quote::t '!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210840_| + (define |gxc[1]#_g210770_| (##structure gx#syntax-quote::t '!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210843_| + (define |gxc[1]#_g210773_| (##structure gx#syntax-quote::t '!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210849_| + (define |gxc[1]#_g210779_| (##structure gx#syntax-quote::t '&!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210852_| + (define |gxc[1]#_g210782_| (##structure gx#syntax-quote::t '&!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210855_| + (define |gxc[1]#_g210785_| (##structure gx#syntax-quote::t '&!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210861_| + (define |gxc[1]#_g210791_| (##structure gx#syntax-quote::t '&!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210864_| + (define |gxc[1]#_g210794_| (##structure gx#syntax-quote::t '&!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210867_| + (define |gxc[1]#_g210797_| (##structure gx#syntax-quote::t '&!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210871_| + (define |gxc[1]#_g210801_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210873_| + (define |gxc[1]#_g210803_| (##structure gx#syntax-quote::t 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210875_| + (define |gxc[1]#_g210805_| (##structure gx#syntax-quote::t '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210883_| + (define |gxc[1]#_g210813_| (##structure gx#syntax-quote::t '!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210886_| + (define |gxc[1]#_g210816_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210889_| + (define |gxc[1]#_g210819_| (##structure gx#syntax-quote::t '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210892_| + (define |gxc[1]#_g210822_| (##structure gx#syntax-quote::t '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210895_| + (define |gxc[1]#_g210825_| (##structure gx#syntax-quote::t '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210903_| + (define |gxc[1]#_g210833_| (##structure gx#syntax-quote::t '!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210906_| + (define |gxc[1]#_g210836_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210909_| + (define |gxc[1]#_g210839_| (##structure gx#syntax-quote::t '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210912_| + (define |gxc[1]#_g210842_| (##structure gx#syntax-quote::t '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210915_| + (define |gxc[1]#_g210845_| (##structure gx#syntax-quote::t '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210923_| + (define |gxc[1]#_g210853_| (##structure gx#syntax-quote::t '&!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210926_| + (define |gxc[1]#_g210856_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210929_| + (define |gxc[1]#_g210859_| (##structure gx#syntax-quote::t '&!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210932_| + (define |gxc[1]#_g210862_| (##structure gx#syntax-quote::t '&!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210935_| + (define |gxc[1]#_g210865_| (##structure gx#syntax-quote::t '&!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210943_| + (define |gxc[1]#_g210873_| (##structure gx#syntax-quote::t '&!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210946_| + (define |gxc[1]#_g210876_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210949_| + (define |gxc[1]#_g210879_| (##structure gx#syntax-quote::t '&!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210952_| + (define |gxc[1]#_g210882_| (##structure gx#syntax-quote::t '&!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210955_| + (define |gxc[1]#_g210885_| (##structure gx#syntax-quote::t '&!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210959_| + (define |gxc[1]#_g210889_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210961_| + (define |gxc[1]#_g210891_| (##structure gx#syntax-quote::t 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210963_| + (define |gxc[1]#_g210893_| (##structure gx#syntax-quote::t '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210968_| + (define |gxc[1]#_g210898_| (##structure gx#syntax-quote::t '!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210971_| + (define |gxc[1]#_g210901_| (##structure gx#syntax-quote::t '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210976_| + (define |gxc[1]#_g210906_| (##structure gx#syntax-quote::t '!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210979_| + (define |gxc[1]#_g210909_| (##structure gx#syntax-quote::t '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210984_| + (define |gxc[1]#_g210914_| (##structure gx#syntax-quote::t '&!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210987_| + (define |gxc[1]#_g210917_| (##structure gx#syntax-quote::t '&!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210992_| + (define |gxc[1]#_g210922_| (##structure gx#syntax-quote::t '&!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210995_| + (define |gxc[1]#_g210925_| (##structure gx#syntax-quote::t '&!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g210999_| + (define |gxc[1]#_g210929_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211001_| + (define |gxc[1]#_g210931_| (##structure gx#syntax-quote::t 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211003_| + (define |gxc[1]#_g210933_| (##structure gx#syntax-quote::t '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211009_| + (define |gxc[1]#_g210939_| (##structure gx#syntax-quote::t '!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211012_| + (define |gxc[1]#_g210942_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211015_| + (define |gxc[1]#_g210945_| (##structure gx#syntax-quote::t '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211021_| + (define |gxc[1]#_g210951_| (##structure gx#syntax-quote::t '!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211024_| + (define |gxc[1]#_g210954_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211027_| + (define |gxc[1]#_g210957_| (##structure gx#syntax-quote::t '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211033_| + (define |gxc[1]#_g210963_| (##structure gx#syntax-quote::t '&!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211036_| + (define |gxc[1]#_g210966_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211039_| + (define |gxc[1]#_g210969_| (##structure gx#syntax-quote::t '&!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211045_| + (define |gxc[1]#_g210975_| (##structure gx#syntax-quote::t '&!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211048_| + (define |gxc[1]#_g210978_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211051_| + (define |gxc[1]#_g210981_| (##structure gx#syntax-quote::t '&!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211055_| + (define |gxc[1]#_g210985_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211057_| + (define |gxc[1]#_g210987_| (##structure gx#syntax-quote::t 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211059_| + (define |gxc[1]#_g210989_| (##structure gx#syntax-quote::t '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211065_| + (define |gxc[1]#_g210995_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211068_| + (define |gxc[1]#_g210998_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211071_| + (define |gxc[1]#_g211001_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211077_| + (define |gxc[1]#_g211007_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211080_| + (define |gxc[1]#_g211010_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211083_| + (define |gxc[1]#_g211013_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211089_| + (define |gxc[1]#_g211019_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211092_| + (define |gxc[1]#_g211022_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211095_| + (define |gxc[1]#_g211025_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211101_| + (define |gxc[1]#_g211031_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211104_| + (define |gxc[1]#_g211034_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211107_| + (define |gxc[1]#_g211037_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211109_| + (define |gxc[1]#_g211039_| (##structure gx#syntax-quote::t '!primitive::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211111_| + (define |gxc[1]#_g211041_| (##structure gx#syntax-quote::t 'make-!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211113_| + (define |gxc[1]#_g211043_| (##structure gx#syntax-quote::t '!primitive? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211117_| + (define |gxc[1]#_g211047_| (##structure gx#syntax-quote::t '!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211119_| + (define |gxc[1]#_g211049_| (##structure gx#syntax-quote::t '!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211121_| + (define |gxc[1]#_g211051_| (##structure gx#syntax-quote::t '!primitive-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211123_| + (define |gxc[1]#_g211053_| (##structure gx#syntax-quote::t 'make-!primitive-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211125_| + (define |gxc[1]#_g211055_| (##structure gx#syntax-quote::t '!primitive-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211133_| + (define |gxc[1]#_g211063_| (##structure gx#syntax-quote::t '!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211136_| + (define |gxc[1]#_g211066_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211139_| + (define |gxc[1]#_g211069_| (##structure gx#syntax-quote::t '!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211142_| + (define |gxc[1]#_g211072_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211145_| + (define |gxc[1]#_g211075_| (##structure gx#syntax-quote::t '!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211153_| + (define |gxc[1]#_g211083_| (##structure gx#syntax-quote::t '!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211156_| + (define |gxc[1]#_g211086_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211159_| + (define |gxc[1]#_g211089_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211162_| + (define |gxc[1]#_g211092_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211165_| + (define |gxc[1]#_g211095_| (##structure gx#syntax-quote::t '!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211173_| + (define |gxc[1]#_g211103_| (##structure gx#syntax-quote::t '&!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211176_| + (define |gxc[1]#_g211106_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211179_| + (define |gxc[1]#_g211109_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211182_| + (define |gxc[1]#_g211112_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211185_| + (define |gxc[1]#_g211115_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211193_| + (define |gxc[1]#_g211123_| (##structure gx#syntax-quote::t '&!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211196_| + (define |gxc[1]#_g211126_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211199_| + (define |gxc[1]#_g211129_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211202_| + (define |gxc[1]#_g211132_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211205_| + (define |gxc[1]#_g211135_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211209_| + (define |gxc[1]#_g211139_| (##structure gx#syntax-quote::t '!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211212_| + (define |gxc[1]#_g211142_| (##structure gx#syntax-quote::t '!primitive-case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211214_| + (define |gxc[1]#_g211144_| (##structure gx#syntax-quote::t 'make-!primitive-case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211216_| + (define |gxc[1]#_g211146_| (##structure gx#syntax-quote::t '!primitive-case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211221_| + (define |gxc[1]#_g211151_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211224_| + (define |gxc[1]#_g211154_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211229_| + (define |gxc[1]#_g211159_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211232_| + (define |gxc[1]#_g211162_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211237_| + (define |gxc[1]#_g211167_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211240_| + (define |gxc[1]#_g211170_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211245_| + (define |gxc[1]#_g211175_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211248_| + (define |gxc[1]#_g211178_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses-set! @@ -1577,12 +1577,12 @@ '())) (begin (define |gxc[:0:]#optimizer-info| - (let ((__obj210272 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210202 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210272 + __obj210202 'gxc#optimizer-info::t '1 gerbil/core$$#class-type-info::t @@ -1590,7 +1590,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210272 + __obj210202 'optimizer-info '2 gerbil/core$$#class-type-info::t @@ -1598,7 +1598,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210272 + __obj210202 '(type ssxi methods) '4 gerbil/core$$#class-type-info::t @@ -1606,7 +1606,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210272 + __obj210202 '() '3 gerbil/core$$#class-type-info::t @@ -1614,7 +1614,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210272 + __obj210202 '#t '5 gerbil/core$$#class-type-info::t @@ -1622,7 +1622,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210272 + __obj210202 '#f '6 gerbil/core$$#class-type-info::t @@ -1630,155 +1630,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210272 + __obj210202 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210430 |gxc[1]#_g210431_|)) + (let ((__tmp210360 |gxc[1]#_g210361_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210272 - __tmp210430 + __obj210202 + __tmp210360 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210432 |gxc[1]#_g210433_|)) + (let ((__tmp210362 |gxc[1]#_g210363_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210272 - __tmp210432 + __obj210202 + __tmp210362 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210434 |gxc[1]#_g210435_|)) + (let ((__tmp210364 |gxc[1]#_g210365_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210272 - __tmp210434 + __obj210202 + __tmp210364 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210436 - (let ((__tmp210445 - (let ((__tmp210446 |gxc[1]#_g210447_|)) + (let ((__tmp210366 + (let ((__tmp210375 + (let ((__tmp210376 |gxc[1]#_g210377_|)) (declare (not safe)) - (cons 'type __tmp210446))) - (__tmp210437 - (let ((__tmp210442 - (let ((__tmp210443 |gxc[1]#_g210444_|)) + (cons 'type __tmp210376))) + (__tmp210367 + (let ((__tmp210372 + (let ((__tmp210373 |gxc[1]#_g210374_|)) (declare (not safe)) - (cons 'ssxi __tmp210443))) - (__tmp210438 - (let ((__tmp210439 - (let ((__tmp210440 |gxc[1]#_g210441_|)) + (cons 'ssxi __tmp210373))) + (__tmp210368 + (let ((__tmp210369 + (let ((__tmp210370 |gxc[1]#_g210371_|)) (declare (not safe)) - (cons 'methods __tmp210440)))) + (cons 'methods __tmp210370)))) (declare (not safe)) - (cons __tmp210439 '())))) + (cons __tmp210369 '())))) (declare (not safe)) - (cons __tmp210442 __tmp210438)))) + (cons __tmp210372 __tmp210368)))) (declare (not safe)) - (cons __tmp210445 __tmp210437)))) + (cons __tmp210375 __tmp210367)))) (declare (not safe)) (##unchecked-structure-set! - __obj210272 - __tmp210436 + __obj210202 + __tmp210366 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210448 - (let ((__tmp210457 - (let ((__tmp210458 |gxc[1]#_g210459_|)) + (let ((__tmp210378 + (let ((__tmp210387 + (let ((__tmp210388 |gxc[1]#_g210389_|)) (declare (not safe)) - (cons 'type __tmp210458))) - (__tmp210449 - (let ((__tmp210454 - (let ((__tmp210455 |gxc[1]#_g210456_|)) + (cons 'type __tmp210388))) + (__tmp210379 + (let ((__tmp210384 + (let ((__tmp210385 |gxc[1]#_g210386_|)) (declare (not safe)) - (cons 'ssxi __tmp210455))) - (__tmp210450 - (let ((__tmp210451 - (let ((__tmp210452 |gxc[1]#_g210453_|)) + (cons 'ssxi __tmp210385))) + (__tmp210380 + (let ((__tmp210381 + (let ((__tmp210382 |gxc[1]#_g210383_|)) (declare (not safe)) - (cons 'methods __tmp210452)))) + (cons 'methods __tmp210382)))) (declare (not safe)) - (cons __tmp210451 '())))) + (cons __tmp210381 '())))) (declare (not safe)) - (cons __tmp210454 __tmp210450)))) + (cons __tmp210384 __tmp210380)))) (declare (not safe)) - (cons __tmp210457 __tmp210449)))) + (cons __tmp210387 __tmp210379)))) (declare (not safe)) (##unchecked-structure-set! - __obj210272 - __tmp210448 + __obj210202 + __tmp210378 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210460 - (let ((__tmp210469 - (let ((__tmp210470 |gxc[1]#_g210471_|)) + (let ((__tmp210390 + (let ((__tmp210399 + (let ((__tmp210400 |gxc[1]#_g210401_|)) (declare (not safe)) - (cons 'type __tmp210470))) - (__tmp210461 - (let ((__tmp210466 - (let ((__tmp210467 |gxc[1]#_g210468_|)) + (cons 'type __tmp210400))) + (__tmp210391 + (let ((__tmp210396 + (let ((__tmp210397 |gxc[1]#_g210398_|)) (declare (not safe)) - (cons 'ssxi __tmp210467))) - (__tmp210462 - (let ((__tmp210463 - (let ((__tmp210464 |gxc[1]#_g210465_|)) + (cons 'ssxi __tmp210397))) + (__tmp210392 + (let ((__tmp210393 + (let ((__tmp210394 |gxc[1]#_g210395_|)) (declare (not safe)) - (cons 'methods __tmp210464)))) + (cons 'methods __tmp210394)))) (declare (not safe)) - (cons __tmp210463 '())))) + (cons __tmp210393 '())))) (declare (not safe)) - (cons __tmp210466 __tmp210462)))) + (cons __tmp210396 __tmp210392)))) (declare (not safe)) - (cons __tmp210469 __tmp210461)))) + (cons __tmp210399 __tmp210391)))) (declare (not safe)) (##unchecked-structure-set! - __obj210272 - __tmp210460 + __obj210202 + __tmp210390 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210472 - (let ((__tmp210481 - (let ((__tmp210482 |gxc[1]#_g210483_|)) + (let ((__tmp210402 + (let ((__tmp210411 + (let ((__tmp210412 |gxc[1]#_g210413_|)) (declare (not safe)) - (cons 'type __tmp210482))) - (__tmp210473 - (let ((__tmp210478 - (let ((__tmp210479 |gxc[1]#_g210480_|)) + (cons 'type __tmp210412))) + (__tmp210403 + (let ((__tmp210408 + (let ((__tmp210409 |gxc[1]#_g210410_|)) (declare (not safe)) - (cons 'ssxi __tmp210479))) - (__tmp210474 - (let ((__tmp210475 - (let ((__tmp210476 |gxc[1]#_g210477_|)) + (cons 'ssxi __tmp210409))) + (__tmp210404 + (let ((__tmp210405 + (let ((__tmp210406 |gxc[1]#_g210407_|)) (declare (not safe)) - (cons 'methods __tmp210476)))) + (cons 'methods __tmp210406)))) (declare (not safe)) - (cons __tmp210475 '())))) + (cons __tmp210405 '())))) (declare (not safe)) - (cons __tmp210478 __tmp210474)))) + (cons __tmp210408 __tmp210404)))) (declare (not safe)) - (cons __tmp210481 __tmp210473)))) + (cons __tmp210411 __tmp210403)))) (declare (not safe)) (##unchecked-structure-set! - __obj210272 - __tmp210472 + __obj210202 + __tmp210402 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210272)) + __obj210202)) (define |gxc[:0:]#!type| - (let ((__obj210273 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210203 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210273 + __obj210203 'gxc#!type::t '1 gerbil/core$$#class-type-info::t @@ -1786,7 +1786,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210273 + __obj210203 '!type '2 gerbil/core$$#class-type-info::t @@ -1794,7 +1794,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210273 + __obj210203 '(id) '4 gerbil/core$$#class-type-info::t @@ -1802,7 +1802,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210273 + __obj210203 '() '3 gerbil/core$$#class-type-info::t @@ -1810,7 +1810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210273 + __obj210203 '#t '5 gerbil/core$$#class-type-info::t @@ -1818,7 +1818,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210273 + __obj210203 '#f '6 gerbil/core$$#class-type-info::t @@ -1826,99 +1826,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210273 + __obj210203 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210484 |gxc[1]#_g210485_|)) + (let ((__tmp210414 |gxc[1]#_g210415_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210273 - __tmp210484 + __obj210203 + __tmp210414 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210486 |gxc[1]#_g210487_|)) + (let ((__tmp210416 |gxc[1]#_g210417_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210273 - __tmp210486 + __obj210203 + __tmp210416 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210488 |gxc[1]#_g210489_|)) + (let ((__tmp210418 |gxc[1]#_g210419_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210273 - __tmp210488 + __obj210203 + __tmp210418 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210490 - (let ((__tmp210491 - (let ((__tmp210492 |gxc[1]#_g210493_|)) + (let ((__tmp210420 + (let ((__tmp210421 + (let ((__tmp210422 |gxc[1]#_g210423_|)) (declare (not safe)) - (cons 'id __tmp210492)))) + (cons 'id __tmp210422)))) (declare (not safe)) - (cons __tmp210491 '())))) + (cons __tmp210421 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210273 - __tmp210490 + __obj210203 + __tmp210420 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210494 - (let ((__tmp210495 - (let ((__tmp210496 |gxc[1]#_g210497_|)) + (let ((__tmp210424 + (let ((__tmp210425 + (let ((__tmp210426 |gxc[1]#_g210427_|)) (declare (not safe)) - (cons 'id __tmp210496)))) + (cons 'id __tmp210426)))) (declare (not safe)) - (cons __tmp210495 '())))) + (cons __tmp210425 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210273 - __tmp210494 + __obj210203 + __tmp210424 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210498 - (let ((__tmp210499 - (let ((__tmp210500 |gxc[1]#_g210501_|)) + (let ((__tmp210428 + (let ((__tmp210429 + (let ((__tmp210430 |gxc[1]#_g210431_|)) (declare (not safe)) - (cons 'id __tmp210500)))) + (cons 'id __tmp210430)))) (declare (not safe)) - (cons __tmp210499 '())))) + (cons __tmp210429 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210273 - __tmp210498 + __obj210203 + __tmp210428 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210502 - (let ((__tmp210503 - (let ((__tmp210504 |gxc[1]#_g210505_|)) + (let ((__tmp210432 + (let ((__tmp210433 + (let ((__tmp210434 |gxc[1]#_g210435_|)) (declare (not safe)) - (cons 'id __tmp210504)))) + (cons 'id __tmp210434)))) (declare (not safe)) - (cons __tmp210503 '())))) + (cons __tmp210433 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210273 - __tmp210502 + __obj210203 + __tmp210432 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210273)) + __obj210203)) (define |gxc[:0:]#!alias| - (let ((__obj210274 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210204 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210274 + __obj210204 'gxc#!alias::t '1 gerbil/core$$#class-type-info::t @@ -1926,7 +1926,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210274 + __obj210204 '!alias '2 gerbil/core$$#class-type-info::t @@ -1934,26 +1934,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210274 + __obj210204 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210506 - (let ((__tmp210507 |gxc[1]#_g210508_|)) + (let ((__tmp210436 + (let ((__tmp210437 |gxc[1]#_g210438_|)) (declare (not safe)) - (cons __tmp210507 '())))) + (cons __tmp210437 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210274 - __tmp210506 + __obj210204 + __tmp210436 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210274 + __obj210204 '#t '5 gerbil/core$$#class-type-info::t @@ -1961,7 +1961,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210274 + __obj210204 '#f '6 gerbil/core$$#class-type-info::t @@ -1969,99 +1969,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210274 + __obj210204 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210509 |gxc[1]#_g210510_|)) + (let ((__tmp210439 |gxc[1]#_g210440_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210274 - __tmp210509 + __obj210204 + __tmp210439 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210511 |gxc[1]#_g210512_|)) + (let ((__tmp210441 |gxc[1]#_g210442_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210274 - __tmp210511 + __obj210204 + __tmp210441 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210513 |gxc[1]#_g210514_|)) + (let ((__tmp210443 |gxc[1]#_g210444_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210274 - __tmp210513 + __obj210204 + __tmp210443 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210515 - (let ((__tmp210516 - (let ((__tmp210517 |gxc[1]#_g210518_|)) + (let ((__tmp210445 + (let ((__tmp210446 + (let ((__tmp210447 |gxc[1]#_g210448_|)) (declare (not safe)) - (cons 'id __tmp210517)))) + (cons 'id __tmp210447)))) (declare (not safe)) - (cons __tmp210516 '())))) + (cons __tmp210446 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210274 - __tmp210515 + __obj210204 + __tmp210445 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210519 - (let ((__tmp210520 - (let ((__tmp210521 |gxc[1]#_g210522_|)) + (let ((__tmp210449 + (let ((__tmp210450 + (let ((__tmp210451 |gxc[1]#_g210452_|)) (declare (not safe)) - (cons 'id __tmp210521)))) + (cons 'id __tmp210451)))) (declare (not safe)) - (cons __tmp210520 '())))) + (cons __tmp210450 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210274 - __tmp210519 + __obj210204 + __tmp210449 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210523 - (let ((__tmp210524 - (let ((__tmp210525 |gxc[1]#_g210526_|)) + (let ((__tmp210453 + (let ((__tmp210454 + (let ((__tmp210455 |gxc[1]#_g210456_|)) (declare (not safe)) - (cons 'id __tmp210525)))) + (cons 'id __tmp210455)))) (declare (not safe)) - (cons __tmp210524 '())))) + (cons __tmp210454 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210274 - __tmp210523 + __obj210204 + __tmp210453 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210527 - (let ((__tmp210528 - (let ((__tmp210529 |gxc[1]#_g210530_|)) + (let ((__tmp210457 + (let ((__tmp210458 + (let ((__tmp210459 |gxc[1]#_g210460_|)) (declare (not safe)) - (cons 'id __tmp210529)))) + (cons 'id __tmp210459)))) (declare (not safe)) - (cons __tmp210528 '())))) + (cons __tmp210458 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210274 - __tmp210527 + __obj210204 + __tmp210457 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210274)) + __obj210204)) (define |gxc[:0:]#!procedure| - (let ((__obj210275 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210205 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210275 + __obj210205 'gxc#!procedure::t '1 gerbil/core$$#class-type-info::t @@ -2069,7 +2069,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210275 + __obj210205 '!procedure '2 gerbil/core$$#class-type-info::t @@ -2077,26 +2077,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210275 + __obj210205 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210531 - (let ((__tmp210532 |gxc[1]#_g210508_|)) + (let ((__tmp210461 + (let ((__tmp210462 |gxc[1]#_g210438_|)) (declare (not safe)) - (cons __tmp210532 '())))) + (cons __tmp210462 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210275 - __tmp210531 + __obj210205 + __tmp210461 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210275 + __obj210205 '#t '5 gerbil/core$$#class-type-info::t @@ -2104,7 +2104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210275 + __obj210205 '#f '6 gerbil/core$$#class-type-info::t @@ -2112,99 +2112,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210275 + __obj210205 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210533 |gxc[1]#_g210534_|)) + (let ((__tmp210463 |gxc[1]#_g210464_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210275 - __tmp210533 + __obj210205 + __tmp210463 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210535 |gxc[1]#_g210536_|)) + (let ((__tmp210465 |gxc[1]#_g210466_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210275 - __tmp210535 + __obj210205 + __tmp210465 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210537 |gxc[1]#_g210538_|)) + (let ((__tmp210467 |gxc[1]#_g210468_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210275 - __tmp210537 + __obj210205 + __tmp210467 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210539 - (let ((__tmp210540 - (let ((__tmp210541 |gxc[1]#_g210542_|)) + (let ((__tmp210469 + (let ((__tmp210470 + (let ((__tmp210471 |gxc[1]#_g210472_|)) (declare (not safe)) - (cons 'id __tmp210541)))) + (cons 'id __tmp210471)))) (declare (not safe)) - (cons __tmp210540 '())))) + (cons __tmp210470 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210275 - __tmp210539 + __obj210205 + __tmp210469 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210543 - (let ((__tmp210544 - (let ((__tmp210545 |gxc[1]#_g210546_|)) + (let ((__tmp210473 + (let ((__tmp210474 + (let ((__tmp210475 |gxc[1]#_g210476_|)) (declare (not safe)) - (cons 'id __tmp210545)))) + (cons 'id __tmp210475)))) (declare (not safe)) - (cons __tmp210544 '())))) + (cons __tmp210474 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210275 - __tmp210543 + __obj210205 + __tmp210473 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210547 - (let ((__tmp210548 - (let ((__tmp210549 |gxc[1]#_g210550_|)) + (let ((__tmp210477 + (let ((__tmp210478 + (let ((__tmp210479 |gxc[1]#_g210480_|)) (declare (not safe)) - (cons 'id __tmp210549)))) + (cons 'id __tmp210479)))) (declare (not safe)) - (cons __tmp210548 '())))) + (cons __tmp210478 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210275 - __tmp210547 + __obj210205 + __tmp210477 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210551 - (let ((__tmp210552 - (let ((__tmp210553 |gxc[1]#_g210554_|)) + (let ((__tmp210481 + (let ((__tmp210482 + (let ((__tmp210483 |gxc[1]#_g210484_|)) (declare (not safe)) - (cons 'id __tmp210553)))) + (cons 'id __tmp210483)))) (declare (not safe)) - (cons __tmp210552 '())))) + (cons __tmp210482 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210275 - __tmp210551 + __obj210205 + __tmp210481 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210275)) + __obj210205)) (define |gxc[:0:]#!class| - (let ((__obj210276 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210206 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210276 + __obj210206 'gxc#!class::t '1 gerbil/core$$#class-type-info::t @@ -2212,7 +2212,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210276 + __obj210206 '!class '2 gerbil/core$$#class-type-info::t @@ -2220,7 +2220,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210276 + __obj210206 '(super precedence-list slots fields @@ -2231,21 +2231,21 @@ '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210555 - (let ((__tmp210556 |gxc[1]#_g210508_|)) + (let ((__tmp210485 + (let ((__tmp210486 |gxc[1]#_g210438_|)) (declare (not safe)) - (cons __tmp210556 '())))) + (cons __tmp210486 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210276 - __tmp210555 + __obj210206 + __tmp210485 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210276 + __obj210206 '#t '5 gerbil/core$$#class-type-info::t @@ -2253,7 +2253,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210276 + __obj210206 '#f '6 gerbil/core$$#class-type-info::t @@ -2261,355 +2261,355 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210276 + __obj210206 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210557 |gxc[1]#_g210558_|)) + (let ((__tmp210487 |gxc[1]#_g210488_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210276 - __tmp210557 + __obj210206 + __tmp210487 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210559 |gxc[1]#_g210560_|)) + (let ((__tmp210489 |gxc[1]#_g210490_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210276 - __tmp210559 + __obj210206 + __tmp210489 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210561 |gxc[1]#_g210562_|)) + (let ((__tmp210491 |gxc[1]#_g210492_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210276 - __tmp210561 + __obj210206 + __tmp210491 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210563 - (let ((__tmp210596 - (let ((__tmp210597 |gxc[1]#_g210598_|)) + (let ((__tmp210493 + (let ((__tmp210526 + (let ((__tmp210527 |gxc[1]#_g210528_|)) (declare (not safe)) - (cons 'super __tmp210597))) - (__tmp210564 - (let ((__tmp210593 - (let ((__tmp210594 |gxc[1]#_g210595_|)) + (cons 'super __tmp210527))) + (__tmp210494 + (let ((__tmp210523 + (let ((__tmp210524 |gxc[1]#_g210525_|)) (declare (not safe)) - (cons 'precedence-list __tmp210594))) - (__tmp210565 - (let ((__tmp210590 - (let ((__tmp210591 |gxc[1]#_g210592_|)) + (cons 'precedence-list __tmp210524))) + (__tmp210495 + (let ((__tmp210520 + (let ((__tmp210521 |gxc[1]#_g210522_|)) (declare (not safe)) - (cons 'slots __tmp210591))) - (__tmp210566 - (let ((__tmp210587 - (let ((__tmp210588 - |gxc[1]#_g210589_|)) + (cons 'slots __tmp210521))) + (__tmp210496 + (let ((__tmp210517 + (let ((__tmp210518 + |gxc[1]#_g210519_|)) (declare (not safe)) - (cons 'fields __tmp210588))) - (__tmp210567 - (let ((__tmp210584 - (let ((__tmp210585 - |gxc[1]#_g210586_|)) + (cons 'fields __tmp210518))) + (__tmp210497 + (let ((__tmp210514 + (let ((__tmp210515 + |gxc[1]#_g210516_|)) (declare (not safe)) (cons 'constructor - __tmp210585))) - (__tmp210568 - (let ((__tmp210581 - (let ((__tmp210582 - |gxc[1]#_g210583_|)) + __tmp210515))) + (__tmp210498 + (let ((__tmp210511 + (let ((__tmp210512 + |gxc[1]#_g210513_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp210582))) - (__tmp210569 - (let ((__tmp210578 - (let ((__tmp210579 |gxc[1]#_g210580_|)) + __tmp210512))) + (__tmp210499 + (let ((__tmp210508 + (let ((__tmp210509 |gxc[1]#_g210510_|)) (declare (not safe)) - (cons 'final? __tmp210579))) - (__tmp210570 - (let ((__tmp210575 - (let ((__tmp210576 |gxc[1]#_g210577_|)) + (cons 'final? __tmp210509))) + (__tmp210500 + (let ((__tmp210505 + (let ((__tmp210506 |gxc[1]#_g210507_|)) (declare (not safe)) - (cons 'methods __tmp210576))) - (__tmp210571 - (let ((__tmp210572 - (let ((__tmp210573 |gxc[1]#_g210574_|)) + (cons 'methods __tmp210506))) + (__tmp210501 + (let ((__tmp210502 + (let ((__tmp210503 |gxc[1]#_g210504_|)) (declare (not safe)) - (cons 'id __tmp210573)))) + (cons 'id __tmp210503)))) (declare (not safe)) - (cons __tmp210572 '())))) + (cons __tmp210502 '())))) (declare (not safe)) - (cons __tmp210575 __tmp210571)))) + (cons __tmp210505 __tmp210501)))) (declare (not safe)) - (cons __tmp210578 __tmp210570)))) + (cons __tmp210508 __tmp210500)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210581 - __tmp210569)))) + (cons __tmp210511 + __tmp210499)))) (declare (not safe)) - (cons __tmp210584 __tmp210568)))) + (cons __tmp210514 __tmp210498)))) (declare (not safe)) - (cons __tmp210587 __tmp210567)))) + (cons __tmp210517 __tmp210497)))) (declare (not safe)) - (cons __tmp210590 __tmp210566)))) + (cons __tmp210520 __tmp210496)))) (declare (not safe)) - (cons __tmp210593 __tmp210565)))) + (cons __tmp210523 __tmp210495)))) (declare (not safe)) - (cons __tmp210596 __tmp210564)))) + (cons __tmp210526 __tmp210494)))) (declare (not safe)) (##unchecked-structure-set! - __obj210276 - __tmp210563 + __obj210206 + __tmp210493 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210599 - (let ((__tmp210632 - (let ((__tmp210633 |gxc[1]#_g210634_|)) + (let ((__tmp210529 + (let ((__tmp210562 + (let ((__tmp210563 |gxc[1]#_g210564_|)) (declare (not safe)) - (cons 'super __tmp210633))) - (__tmp210600 - (let ((__tmp210629 - (let ((__tmp210630 |gxc[1]#_g210631_|)) + (cons 'super __tmp210563))) + (__tmp210530 + (let ((__tmp210559 + (let ((__tmp210560 |gxc[1]#_g210561_|)) (declare (not safe)) - (cons 'precedence-list __tmp210630))) - (__tmp210601 - (let ((__tmp210626 - (let ((__tmp210627 |gxc[1]#_g210628_|)) + (cons 'precedence-list __tmp210560))) + (__tmp210531 + (let ((__tmp210556 + (let ((__tmp210557 |gxc[1]#_g210558_|)) (declare (not safe)) - (cons 'slots __tmp210627))) - (__tmp210602 - (let ((__tmp210623 - (let ((__tmp210624 - |gxc[1]#_g210625_|)) + (cons 'slots __tmp210557))) + (__tmp210532 + (let ((__tmp210553 + (let ((__tmp210554 + |gxc[1]#_g210555_|)) (declare (not safe)) - (cons 'fields __tmp210624))) - (__tmp210603 - (let ((__tmp210620 - (let ((__tmp210621 - |gxc[1]#_g210622_|)) + (cons 'fields __tmp210554))) + (__tmp210533 + (let ((__tmp210550 + (let ((__tmp210551 + |gxc[1]#_g210552_|)) (declare (not safe)) (cons 'constructor - __tmp210621))) - (__tmp210604 - (let ((__tmp210617 - (let ((__tmp210618 - |gxc[1]#_g210619_|)) + __tmp210551))) + (__tmp210534 + (let ((__tmp210547 + (let ((__tmp210548 + |gxc[1]#_g210549_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp210618))) - (__tmp210605 - (let ((__tmp210614 - (let ((__tmp210615 |gxc[1]#_g210616_|)) + __tmp210548))) + (__tmp210535 + (let ((__tmp210544 + (let ((__tmp210545 |gxc[1]#_g210546_|)) (declare (not safe)) - (cons 'final? __tmp210615))) - (__tmp210606 - (let ((__tmp210611 - (let ((__tmp210612 |gxc[1]#_g210613_|)) + (cons 'final? __tmp210545))) + (__tmp210536 + (let ((__tmp210541 + (let ((__tmp210542 |gxc[1]#_g210543_|)) (declare (not safe)) - (cons 'methods __tmp210612))) - (__tmp210607 - (let ((__tmp210608 - (let ((__tmp210609 |gxc[1]#_g210610_|)) + (cons 'methods __tmp210542))) + (__tmp210537 + (let ((__tmp210538 + (let ((__tmp210539 |gxc[1]#_g210540_|)) (declare (not safe)) - (cons 'id __tmp210609)))) + (cons 'id __tmp210539)))) (declare (not safe)) - (cons __tmp210608 '())))) + (cons __tmp210538 '())))) (declare (not safe)) - (cons __tmp210611 __tmp210607)))) + (cons __tmp210541 __tmp210537)))) (declare (not safe)) - (cons __tmp210614 __tmp210606)))) + (cons __tmp210544 __tmp210536)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210617 - __tmp210605)))) + (cons __tmp210547 + __tmp210535)))) (declare (not safe)) - (cons __tmp210620 __tmp210604)))) + (cons __tmp210550 __tmp210534)))) (declare (not safe)) - (cons __tmp210623 __tmp210603)))) + (cons __tmp210553 __tmp210533)))) (declare (not safe)) - (cons __tmp210626 __tmp210602)))) + (cons __tmp210556 __tmp210532)))) (declare (not safe)) - (cons __tmp210629 __tmp210601)))) + (cons __tmp210559 __tmp210531)))) (declare (not safe)) - (cons __tmp210632 __tmp210600)))) + (cons __tmp210562 __tmp210530)))) (declare (not safe)) (##unchecked-structure-set! - __obj210276 - __tmp210599 + __obj210206 + __tmp210529 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210635 - (let ((__tmp210668 - (let ((__tmp210669 |gxc[1]#_g210670_|)) + (let ((__tmp210565 + (let ((__tmp210598 + (let ((__tmp210599 |gxc[1]#_g210600_|)) (declare (not safe)) - (cons 'super __tmp210669))) - (__tmp210636 - (let ((__tmp210665 - (let ((__tmp210666 |gxc[1]#_g210667_|)) + (cons 'super __tmp210599))) + (__tmp210566 + (let ((__tmp210595 + (let ((__tmp210596 |gxc[1]#_g210597_|)) (declare (not safe)) - (cons 'precedence-list __tmp210666))) - (__tmp210637 - (let ((__tmp210662 - (let ((__tmp210663 |gxc[1]#_g210664_|)) + (cons 'precedence-list __tmp210596))) + (__tmp210567 + (let ((__tmp210592 + (let ((__tmp210593 |gxc[1]#_g210594_|)) (declare (not safe)) - (cons 'slots __tmp210663))) - (__tmp210638 - (let ((__tmp210659 - (let ((__tmp210660 - |gxc[1]#_g210661_|)) + (cons 'slots __tmp210593))) + (__tmp210568 + (let ((__tmp210589 + (let ((__tmp210590 + |gxc[1]#_g210591_|)) (declare (not safe)) - (cons 'fields __tmp210660))) - (__tmp210639 - (let ((__tmp210656 - (let ((__tmp210657 - |gxc[1]#_g210658_|)) + (cons 'fields __tmp210590))) + (__tmp210569 + (let ((__tmp210586 + (let ((__tmp210587 + |gxc[1]#_g210588_|)) (declare (not safe)) (cons 'constructor - __tmp210657))) - (__tmp210640 - (let ((__tmp210653 - (let ((__tmp210654 - |gxc[1]#_g210655_|)) + __tmp210587))) + (__tmp210570 + (let ((__tmp210583 + (let ((__tmp210584 + |gxc[1]#_g210585_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp210654))) - (__tmp210641 - (let ((__tmp210650 - (let ((__tmp210651 |gxc[1]#_g210652_|)) + __tmp210584))) + (__tmp210571 + (let ((__tmp210580 + (let ((__tmp210581 |gxc[1]#_g210582_|)) (declare (not safe)) - (cons 'final? __tmp210651))) - (__tmp210642 - (let ((__tmp210647 - (let ((__tmp210648 |gxc[1]#_g210649_|)) + (cons 'final? __tmp210581))) + (__tmp210572 + (let ((__tmp210577 + (let ((__tmp210578 |gxc[1]#_g210579_|)) (declare (not safe)) - (cons 'methods __tmp210648))) - (__tmp210643 - (let ((__tmp210644 - (let ((__tmp210645 |gxc[1]#_g210646_|)) + (cons 'methods __tmp210578))) + (__tmp210573 + (let ((__tmp210574 + (let ((__tmp210575 |gxc[1]#_g210576_|)) (declare (not safe)) - (cons 'id __tmp210645)))) + (cons 'id __tmp210575)))) (declare (not safe)) - (cons __tmp210644 '())))) + (cons __tmp210574 '())))) (declare (not safe)) - (cons __tmp210647 __tmp210643)))) + (cons __tmp210577 __tmp210573)))) (declare (not safe)) - (cons __tmp210650 __tmp210642)))) + (cons __tmp210580 __tmp210572)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210653 - __tmp210641)))) + (cons __tmp210583 + __tmp210571)))) (declare (not safe)) - (cons __tmp210656 __tmp210640)))) + (cons __tmp210586 __tmp210570)))) (declare (not safe)) - (cons __tmp210659 __tmp210639)))) + (cons __tmp210589 __tmp210569)))) (declare (not safe)) - (cons __tmp210662 __tmp210638)))) + (cons __tmp210592 __tmp210568)))) (declare (not safe)) - (cons __tmp210665 __tmp210637)))) + (cons __tmp210595 __tmp210567)))) (declare (not safe)) - (cons __tmp210668 __tmp210636)))) + (cons __tmp210598 __tmp210566)))) (declare (not safe)) (##unchecked-structure-set! - __obj210276 - __tmp210635 + __obj210206 + __tmp210565 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210671 - (let ((__tmp210704 - (let ((__tmp210705 |gxc[1]#_g210706_|)) + (let ((__tmp210601 + (let ((__tmp210634 + (let ((__tmp210635 |gxc[1]#_g210636_|)) (declare (not safe)) - (cons 'super __tmp210705))) - (__tmp210672 - (let ((__tmp210701 - (let ((__tmp210702 |gxc[1]#_g210703_|)) + (cons 'super __tmp210635))) + (__tmp210602 + (let ((__tmp210631 + (let ((__tmp210632 |gxc[1]#_g210633_|)) (declare (not safe)) - (cons 'precedence-list __tmp210702))) - (__tmp210673 - (let ((__tmp210698 - (let ((__tmp210699 |gxc[1]#_g210700_|)) + (cons 'precedence-list __tmp210632))) + (__tmp210603 + (let ((__tmp210628 + (let ((__tmp210629 |gxc[1]#_g210630_|)) (declare (not safe)) - (cons 'slots __tmp210699))) - (__tmp210674 - (let ((__tmp210695 - (let ((__tmp210696 - |gxc[1]#_g210697_|)) + (cons 'slots __tmp210629))) + (__tmp210604 + (let ((__tmp210625 + (let ((__tmp210626 + |gxc[1]#_g210627_|)) (declare (not safe)) - (cons 'fields __tmp210696))) - (__tmp210675 - (let ((__tmp210692 - (let ((__tmp210693 - |gxc[1]#_g210694_|)) + (cons 'fields __tmp210626))) + (__tmp210605 + (let ((__tmp210622 + (let ((__tmp210623 + |gxc[1]#_g210624_|)) (declare (not safe)) (cons 'constructor - __tmp210693))) - (__tmp210676 - (let ((__tmp210689 - (let ((__tmp210690 - |gxc[1]#_g210691_|)) + __tmp210623))) + (__tmp210606 + (let ((__tmp210619 + (let ((__tmp210620 + |gxc[1]#_g210621_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp210690))) - (__tmp210677 - (let ((__tmp210686 - (let ((__tmp210687 |gxc[1]#_g210688_|)) + __tmp210620))) + (__tmp210607 + (let ((__tmp210616 + (let ((__tmp210617 |gxc[1]#_g210618_|)) (declare (not safe)) - (cons 'final? __tmp210687))) - (__tmp210678 - (let ((__tmp210683 - (let ((__tmp210684 |gxc[1]#_g210685_|)) + (cons 'final? __tmp210617))) + (__tmp210608 + (let ((__tmp210613 + (let ((__tmp210614 |gxc[1]#_g210615_|)) (declare (not safe)) - (cons 'methods __tmp210684))) - (__tmp210679 - (let ((__tmp210680 - (let ((__tmp210681 |gxc[1]#_g210682_|)) + (cons 'methods __tmp210614))) + (__tmp210609 + (let ((__tmp210610 + (let ((__tmp210611 |gxc[1]#_g210612_|)) (declare (not safe)) - (cons 'id __tmp210681)))) + (cons 'id __tmp210611)))) (declare (not safe)) - (cons __tmp210680 '())))) + (cons __tmp210610 '())))) (declare (not safe)) - (cons __tmp210683 __tmp210679)))) + (cons __tmp210613 __tmp210609)))) (declare (not safe)) - (cons __tmp210686 __tmp210678)))) + (cons __tmp210616 __tmp210608)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210689 - __tmp210677)))) + (cons __tmp210619 + __tmp210607)))) (declare (not safe)) - (cons __tmp210692 __tmp210676)))) + (cons __tmp210622 __tmp210606)))) (declare (not safe)) - (cons __tmp210695 __tmp210675)))) + (cons __tmp210625 __tmp210605)))) (declare (not safe)) - (cons __tmp210698 __tmp210674)))) + (cons __tmp210628 __tmp210604)))) (declare (not safe)) - (cons __tmp210701 __tmp210673)))) + (cons __tmp210631 __tmp210603)))) (declare (not safe)) - (cons __tmp210704 __tmp210672)))) + (cons __tmp210634 __tmp210602)))) (declare (not safe)) (##unchecked-structure-set! - __obj210276 - __tmp210671 + __obj210206 + __tmp210601 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210276)) + __obj210206)) (define |gxc[:0:]#!predicate| - (let ((__obj210277 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210207 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210277 + __obj210207 'gxc#!predicate::t '1 gerbil/core$$#class-type-info::t @@ -2617,7 +2617,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210277 + __obj210207 '!predicate '2 gerbil/core$$#class-type-info::t @@ -2625,26 +2625,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210277 + __obj210207 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210707 - (let ((__tmp210708 |gxc[1]#_g210709_|)) + (let ((__tmp210637 + (let ((__tmp210638 |gxc[1]#_g210639_|)) (declare (not safe)) - (cons __tmp210708 '())))) + (cons __tmp210638 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210277 - __tmp210707 + __obj210207 + __tmp210637 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210277 + __obj210207 '#t '5 gerbil/core$$#class-type-info::t @@ -2652,7 +2652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210277 + __obj210207 '#f '6 gerbil/core$$#class-type-info::t @@ -2660,99 +2660,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210277 + __obj210207 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210710 |gxc[1]#_g210711_|)) + (let ((__tmp210640 |gxc[1]#_g210641_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210277 - __tmp210710 + __obj210207 + __tmp210640 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210712 |gxc[1]#_g210713_|)) + (let ((__tmp210642 |gxc[1]#_g210643_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210277 - __tmp210712 + __obj210207 + __tmp210642 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210714 |gxc[1]#_g210715_|)) + (let ((__tmp210644 |gxc[1]#_g210645_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210277 - __tmp210714 + __obj210207 + __tmp210644 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210716 - (let ((__tmp210717 - (let ((__tmp210718 |gxc[1]#_g210719_|)) + (let ((__tmp210646 + (let ((__tmp210647 + (let ((__tmp210648 |gxc[1]#_g210649_|)) (declare (not safe)) - (cons 'id __tmp210718)))) + (cons 'id __tmp210648)))) (declare (not safe)) - (cons __tmp210717 '())))) + (cons __tmp210647 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210277 - __tmp210716 + __obj210207 + __tmp210646 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210720 - (let ((__tmp210721 - (let ((__tmp210722 |gxc[1]#_g210723_|)) + (let ((__tmp210650 + (let ((__tmp210651 + (let ((__tmp210652 |gxc[1]#_g210653_|)) (declare (not safe)) - (cons 'id __tmp210722)))) + (cons 'id __tmp210652)))) (declare (not safe)) - (cons __tmp210721 '())))) + (cons __tmp210651 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210277 - __tmp210720 + __obj210207 + __tmp210650 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210724 - (let ((__tmp210725 - (let ((__tmp210726 |gxc[1]#_g210727_|)) + (let ((__tmp210654 + (let ((__tmp210655 + (let ((__tmp210656 |gxc[1]#_g210657_|)) (declare (not safe)) - (cons 'id __tmp210726)))) + (cons 'id __tmp210656)))) (declare (not safe)) - (cons __tmp210725 '())))) + (cons __tmp210655 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210277 - __tmp210724 + __obj210207 + __tmp210654 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210728 - (let ((__tmp210729 - (let ((__tmp210730 |gxc[1]#_g210731_|)) + (let ((__tmp210658 + (let ((__tmp210659 + (let ((__tmp210660 |gxc[1]#_g210661_|)) (declare (not safe)) - (cons 'id __tmp210730)))) + (cons 'id __tmp210660)))) (declare (not safe)) - (cons __tmp210729 '())))) + (cons __tmp210659 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210277 - __tmp210728 + __obj210207 + __tmp210658 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210277)) + __obj210207)) (define |gxc[:0:]#!constructor| - (let ((__obj210278 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210208 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210278 + __obj210208 'gxc#!constructor::t '1 gerbil/core$$#class-type-info::t @@ -2760,7 +2760,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210278 + __obj210208 '!constructor '2 gerbil/core$$#class-type-info::t @@ -2768,26 +2768,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210278 + __obj210208 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210732 - (let ((__tmp210733 |gxc[1]#_g210709_|)) + (let ((__tmp210662 + (let ((__tmp210663 |gxc[1]#_g210639_|)) (declare (not safe)) - (cons __tmp210733 '())))) + (cons __tmp210663 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210278 - __tmp210732 + __obj210208 + __tmp210662 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210278 + __obj210208 '#t '5 gerbil/core$$#class-type-info::t @@ -2795,7 +2795,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210278 + __obj210208 '#f '6 gerbil/core$$#class-type-info::t @@ -2803,99 +2803,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210278 + __obj210208 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210734 |gxc[1]#_g210735_|)) + (let ((__tmp210664 |gxc[1]#_g210665_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210278 - __tmp210734 + __obj210208 + __tmp210664 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210736 |gxc[1]#_g210737_|)) + (let ((__tmp210666 |gxc[1]#_g210667_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210278 - __tmp210736 + __obj210208 + __tmp210666 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210738 |gxc[1]#_g210739_|)) + (let ((__tmp210668 |gxc[1]#_g210669_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210278 - __tmp210738 + __obj210208 + __tmp210668 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210740 - (let ((__tmp210741 - (let ((__tmp210742 |gxc[1]#_g210743_|)) + (let ((__tmp210670 + (let ((__tmp210671 + (let ((__tmp210672 |gxc[1]#_g210673_|)) (declare (not safe)) - (cons 'id __tmp210742)))) + (cons 'id __tmp210672)))) (declare (not safe)) - (cons __tmp210741 '())))) + (cons __tmp210671 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210278 - __tmp210740 + __obj210208 + __tmp210670 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210744 - (let ((__tmp210745 - (let ((__tmp210746 |gxc[1]#_g210747_|)) + (let ((__tmp210674 + (let ((__tmp210675 + (let ((__tmp210676 |gxc[1]#_g210677_|)) (declare (not safe)) - (cons 'id __tmp210746)))) + (cons 'id __tmp210676)))) (declare (not safe)) - (cons __tmp210745 '())))) + (cons __tmp210675 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210278 - __tmp210744 + __obj210208 + __tmp210674 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210748 - (let ((__tmp210749 - (let ((__tmp210750 |gxc[1]#_g210751_|)) + (let ((__tmp210678 + (let ((__tmp210679 + (let ((__tmp210680 |gxc[1]#_g210681_|)) (declare (not safe)) - (cons 'id __tmp210750)))) + (cons 'id __tmp210680)))) (declare (not safe)) - (cons __tmp210749 '())))) + (cons __tmp210679 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210278 - __tmp210748 + __obj210208 + __tmp210678 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210752 - (let ((__tmp210753 - (let ((__tmp210754 |gxc[1]#_g210755_|)) + (let ((__tmp210682 + (let ((__tmp210683 + (let ((__tmp210684 |gxc[1]#_g210685_|)) (declare (not safe)) - (cons 'id __tmp210754)))) + (cons 'id __tmp210684)))) (declare (not safe)) - (cons __tmp210753 '())))) + (cons __tmp210683 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210278 - __tmp210752 + __obj210208 + __tmp210682 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210278)) + __obj210208)) (define |gxc[:0:]#!accessor| - (let ((__obj210279 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210209 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210279 + __obj210209 'gxc#!accessor::t '1 gerbil/core$$#class-type-info::t @@ -2903,7 +2903,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210279 + __obj210209 '!accessor '2 gerbil/core$$#class-type-info::t @@ -2911,26 +2911,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210279 + __obj210209 '(slot checked?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210756 - (let ((__tmp210757 |gxc[1]#_g210709_|)) + (let ((__tmp210686 + (let ((__tmp210687 |gxc[1]#_g210639_|)) (declare (not safe)) - (cons __tmp210757 '())))) + (cons __tmp210687 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210279 - __tmp210756 + __obj210209 + __tmp210686 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210279 + __obj210209 '#t '5 gerbil/core$$#class-type-info::t @@ -2938,7 +2938,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210279 + __obj210209 '#f '6 gerbil/core$$#class-type-info::t @@ -2946,155 +2946,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210279 + __obj210209 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210758 |gxc[1]#_g210759_|)) + (let ((__tmp210688 |gxc[1]#_g210689_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210279 - __tmp210758 + __obj210209 + __tmp210688 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210760 |gxc[1]#_g210761_|)) + (let ((__tmp210690 |gxc[1]#_g210691_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210279 - __tmp210760 + __obj210209 + __tmp210690 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210762 |gxc[1]#_g210763_|)) + (let ((__tmp210692 |gxc[1]#_g210693_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210279 - __tmp210762 + __obj210209 + __tmp210692 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210764 - (let ((__tmp210773 - (let ((__tmp210774 |gxc[1]#_g210775_|)) + (let ((__tmp210694 + (let ((__tmp210703 + (let ((__tmp210704 |gxc[1]#_g210705_|)) (declare (not safe)) - (cons 'slot __tmp210774))) - (__tmp210765 - (let ((__tmp210770 - (let ((__tmp210771 |gxc[1]#_g210772_|)) + (cons 'slot __tmp210704))) + (__tmp210695 + (let ((__tmp210700 + (let ((__tmp210701 |gxc[1]#_g210702_|)) (declare (not safe)) - (cons 'checked? __tmp210771))) - (__tmp210766 - (let ((__tmp210767 - (let ((__tmp210768 |gxc[1]#_g210769_|)) + (cons 'checked? __tmp210701))) + (__tmp210696 + (let ((__tmp210697 + (let ((__tmp210698 |gxc[1]#_g210699_|)) (declare (not safe)) - (cons 'id __tmp210768)))) + (cons 'id __tmp210698)))) (declare (not safe)) - (cons __tmp210767 '())))) + (cons __tmp210697 '())))) (declare (not safe)) - (cons __tmp210770 __tmp210766)))) + (cons __tmp210700 __tmp210696)))) (declare (not safe)) - (cons __tmp210773 __tmp210765)))) + (cons __tmp210703 __tmp210695)))) (declare (not safe)) (##unchecked-structure-set! - __obj210279 - __tmp210764 + __obj210209 + __tmp210694 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210776 - (let ((__tmp210785 - (let ((__tmp210786 |gxc[1]#_g210787_|)) + (let ((__tmp210706 + (let ((__tmp210715 + (let ((__tmp210716 |gxc[1]#_g210717_|)) (declare (not safe)) - (cons 'slot __tmp210786))) - (__tmp210777 - (let ((__tmp210782 - (let ((__tmp210783 |gxc[1]#_g210784_|)) + (cons 'slot __tmp210716))) + (__tmp210707 + (let ((__tmp210712 + (let ((__tmp210713 |gxc[1]#_g210714_|)) (declare (not safe)) - (cons 'checked? __tmp210783))) - (__tmp210778 - (let ((__tmp210779 - (let ((__tmp210780 |gxc[1]#_g210781_|)) + (cons 'checked? __tmp210713))) + (__tmp210708 + (let ((__tmp210709 + (let ((__tmp210710 |gxc[1]#_g210711_|)) (declare (not safe)) - (cons 'id __tmp210780)))) + (cons 'id __tmp210710)))) (declare (not safe)) - (cons __tmp210779 '())))) + (cons __tmp210709 '())))) (declare (not safe)) - (cons __tmp210782 __tmp210778)))) + (cons __tmp210712 __tmp210708)))) (declare (not safe)) - (cons __tmp210785 __tmp210777)))) + (cons __tmp210715 __tmp210707)))) (declare (not safe)) (##unchecked-structure-set! - __obj210279 - __tmp210776 + __obj210209 + __tmp210706 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210788 - (let ((__tmp210797 - (let ((__tmp210798 |gxc[1]#_g210799_|)) + (let ((__tmp210718 + (let ((__tmp210727 + (let ((__tmp210728 |gxc[1]#_g210729_|)) (declare (not safe)) - (cons 'slot __tmp210798))) - (__tmp210789 - (let ((__tmp210794 - (let ((__tmp210795 |gxc[1]#_g210796_|)) + (cons 'slot __tmp210728))) + (__tmp210719 + (let ((__tmp210724 + (let ((__tmp210725 |gxc[1]#_g210726_|)) (declare (not safe)) - (cons 'checked? __tmp210795))) - (__tmp210790 - (let ((__tmp210791 - (let ((__tmp210792 |gxc[1]#_g210793_|)) + (cons 'checked? __tmp210725))) + (__tmp210720 + (let ((__tmp210721 + (let ((__tmp210722 |gxc[1]#_g210723_|)) (declare (not safe)) - (cons 'id __tmp210792)))) + (cons 'id __tmp210722)))) (declare (not safe)) - (cons __tmp210791 '())))) + (cons __tmp210721 '())))) (declare (not safe)) - (cons __tmp210794 __tmp210790)))) + (cons __tmp210724 __tmp210720)))) (declare (not safe)) - (cons __tmp210797 __tmp210789)))) + (cons __tmp210727 __tmp210719)))) (declare (not safe)) (##unchecked-structure-set! - __obj210279 - __tmp210788 + __obj210209 + __tmp210718 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210800 - (let ((__tmp210809 - (let ((__tmp210810 |gxc[1]#_g210811_|)) + (let ((__tmp210730 + (let ((__tmp210739 + (let ((__tmp210740 |gxc[1]#_g210741_|)) (declare (not safe)) - (cons 'slot __tmp210810))) - (__tmp210801 - (let ((__tmp210806 - (let ((__tmp210807 |gxc[1]#_g210808_|)) + (cons 'slot __tmp210740))) + (__tmp210731 + (let ((__tmp210736 + (let ((__tmp210737 |gxc[1]#_g210738_|)) (declare (not safe)) - (cons 'checked? __tmp210807))) - (__tmp210802 - (let ((__tmp210803 - (let ((__tmp210804 |gxc[1]#_g210805_|)) + (cons 'checked? __tmp210737))) + (__tmp210732 + (let ((__tmp210733 + (let ((__tmp210734 |gxc[1]#_g210735_|)) (declare (not safe)) - (cons 'id __tmp210804)))) + (cons 'id __tmp210734)))) (declare (not safe)) - (cons __tmp210803 '())))) + (cons __tmp210733 '())))) (declare (not safe)) - (cons __tmp210806 __tmp210802)))) + (cons __tmp210736 __tmp210732)))) (declare (not safe)) - (cons __tmp210809 __tmp210801)))) + (cons __tmp210739 __tmp210731)))) (declare (not safe)) (##unchecked-structure-set! - __obj210279 - __tmp210800 + __obj210209 + __tmp210730 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210279)) + __obj210209)) (define |gxc[:0:]#!mutator| - (let ((__obj210280 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210210 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210280 + __obj210210 'gxc#!mutator::t '1 gerbil/core$$#class-type-info::t @@ -3102,7 +3102,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210280 + __obj210210 '!mutator '2 gerbil/core$$#class-type-info::t @@ -3110,26 +3110,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210280 + __obj210210 '(slot checked?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210812 - (let ((__tmp210813 |gxc[1]#_g210709_|)) + (let ((__tmp210742 + (let ((__tmp210743 |gxc[1]#_g210639_|)) (declare (not safe)) - (cons __tmp210813 '())))) + (cons __tmp210743 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210280 - __tmp210812 + __obj210210 + __tmp210742 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210280 + __obj210210 '#t '5 gerbil/core$$#class-type-info::t @@ -3137,7 +3137,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210280 + __obj210210 '#f '6 gerbil/core$$#class-type-info::t @@ -3145,155 +3145,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210280 + __obj210210 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210814 |gxc[1]#_g210815_|)) + (let ((__tmp210744 |gxc[1]#_g210745_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210280 - __tmp210814 + __obj210210 + __tmp210744 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210816 |gxc[1]#_g210817_|)) + (let ((__tmp210746 |gxc[1]#_g210747_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210280 - __tmp210816 + __obj210210 + __tmp210746 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210818 |gxc[1]#_g210819_|)) + (let ((__tmp210748 |gxc[1]#_g210749_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210280 - __tmp210818 + __obj210210 + __tmp210748 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210820 - (let ((__tmp210829 - (let ((__tmp210830 |gxc[1]#_g210831_|)) + (let ((__tmp210750 + (let ((__tmp210759 + (let ((__tmp210760 |gxc[1]#_g210761_|)) (declare (not safe)) - (cons 'slot __tmp210830))) - (__tmp210821 - (let ((__tmp210826 - (let ((__tmp210827 |gxc[1]#_g210828_|)) + (cons 'slot __tmp210760))) + (__tmp210751 + (let ((__tmp210756 + (let ((__tmp210757 |gxc[1]#_g210758_|)) (declare (not safe)) - (cons 'checked? __tmp210827))) - (__tmp210822 - (let ((__tmp210823 - (let ((__tmp210824 |gxc[1]#_g210825_|)) + (cons 'checked? __tmp210757))) + (__tmp210752 + (let ((__tmp210753 + (let ((__tmp210754 |gxc[1]#_g210755_|)) (declare (not safe)) - (cons 'id __tmp210824)))) + (cons 'id __tmp210754)))) (declare (not safe)) - (cons __tmp210823 '())))) + (cons __tmp210753 '())))) (declare (not safe)) - (cons __tmp210826 __tmp210822)))) + (cons __tmp210756 __tmp210752)))) (declare (not safe)) - (cons __tmp210829 __tmp210821)))) + (cons __tmp210759 __tmp210751)))) (declare (not safe)) (##unchecked-structure-set! - __obj210280 - __tmp210820 + __obj210210 + __tmp210750 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210832 - (let ((__tmp210841 - (let ((__tmp210842 |gxc[1]#_g210843_|)) + (let ((__tmp210762 + (let ((__tmp210771 + (let ((__tmp210772 |gxc[1]#_g210773_|)) (declare (not safe)) - (cons 'slot __tmp210842))) - (__tmp210833 - (let ((__tmp210838 - (let ((__tmp210839 |gxc[1]#_g210840_|)) + (cons 'slot __tmp210772))) + (__tmp210763 + (let ((__tmp210768 + (let ((__tmp210769 |gxc[1]#_g210770_|)) (declare (not safe)) - (cons 'checked? __tmp210839))) - (__tmp210834 - (let ((__tmp210835 - (let ((__tmp210836 |gxc[1]#_g210837_|)) + (cons 'checked? __tmp210769))) + (__tmp210764 + (let ((__tmp210765 + (let ((__tmp210766 |gxc[1]#_g210767_|)) (declare (not safe)) - (cons 'id __tmp210836)))) + (cons 'id __tmp210766)))) (declare (not safe)) - (cons __tmp210835 '())))) + (cons __tmp210765 '())))) (declare (not safe)) - (cons __tmp210838 __tmp210834)))) + (cons __tmp210768 __tmp210764)))) (declare (not safe)) - (cons __tmp210841 __tmp210833)))) + (cons __tmp210771 __tmp210763)))) (declare (not safe)) (##unchecked-structure-set! - __obj210280 - __tmp210832 + __obj210210 + __tmp210762 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210844 - (let ((__tmp210853 - (let ((__tmp210854 |gxc[1]#_g210855_|)) + (let ((__tmp210774 + (let ((__tmp210783 + (let ((__tmp210784 |gxc[1]#_g210785_|)) (declare (not safe)) - (cons 'slot __tmp210854))) - (__tmp210845 - (let ((__tmp210850 - (let ((__tmp210851 |gxc[1]#_g210852_|)) + (cons 'slot __tmp210784))) + (__tmp210775 + (let ((__tmp210780 + (let ((__tmp210781 |gxc[1]#_g210782_|)) (declare (not safe)) - (cons 'checked? __tmp210851))) - (__tmp210846 - (let ((__tmp210847 - (let ((__tmp210848 |gxc[1]#_g210849_|)) + (cons 'checked? __tmp210781))) + (__tmp210776 + (let ((__tmp210777 + (let ((__tmp210778 |gxc[1]#_g210779_|)) (declare (not safe)) - (cons 'id __tmp210848)))) + (cons 'id __tmp210778)))) (declare (not safe)) - (cons __tmp210847 '())))) + (cons __tmp210777 '())))) (declare (not safe)) - (cons __tmp210850 __tmp210846)))) + (cons __tmp210780 __tmp210776)))) (declare (not safe)) - (cons __tmp210853 __tmp210845)))) + (cons __tmp210783 __tmp210775)))) (declare (not safe)) (##unchecked-structure-set! - __obj210280 - __tmp210844 + __obj210210 + __tmp210774 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210856 - (let ((__tmp210865 - (let ((__tmp210866 |gxc[1]#_g210867_|)) + (let ((__tmp210786 + (let ((__tmp210795 + (let ((__tmp210796 |gxc[1]#_g210797_|)) (declare (not safe)) - (cons 'slot __tmp210866))) - (__tmp210857 - (let ((__tmp210862 - (let ((__tmp210863 |gxc[1]#_g210864_|)) + (cons 'slot __tmp210796))) + (__tmp210787 + (let ((__tmp210792 + (let ((__tmp210793 |gxc[1]#_g210794_|)) (declare (not safe)) - (cons 'checked? __tmp210863))) - (__tmp210858 - (let ((__tmp210859 - (let ((__tmp210860 |gxc[1]#_g210861_|)) + (cons 'checked? __tmp210793))) + (__tmp210788 + (let ((__tmp210789 + (let ((__tmp210790 |gxc[1]#_g210791_|)) (declare (not safe)) - (cons 'id __tmp210860)))) + (cons 'id __tmp210790)))) (declare (not safe)) - (cons __tmp210859 '())))) + (cons __tmp210789 '())))) (declare (not safe)) - (cons __tmp210862 __tmp210858)))) + (cons __tmp210792 __tmp210788)))) (declare (not safe)) - (cons __tmp210865 __tmp210857)))) + (cons __tmp210795 __tmp210787)))) (declare (not safe)) (##unchecked-structure-set! - __obj210280 - __tmp210856 + __obj210210 + __tmp210786 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210280)) + __obj210210)) (define |gxc[:0:]#!lambda| - (let ((__obj210281 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210211 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210281 + __obj210211 'gxc#!lambda::t '1 gerbil/core$$#class-type-info::t @@ -3301,7 +3301,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210281 + __obj210211 '!lambda '2 gerbil/core$$#class-type-info::t @@ -3309,26 +3309,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210281 + __obj210211 '(arity dispatch inline inline-typedecl) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210868 - (let ((__tmp210869 |gxc[1]#_g210709_|)) + (let ((__tmp210798 + (let ((__tmp210799 |gxc[1]#_g210639_|)) (declare (not safe)) - (cons __tmp210869 '())))) + (cons __tmp210799 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210281 - __tmp210868 + __obj210211 + __tmp210798 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210281 + __obj210211 '#t '5 gerbil/core$$#class-type-info::t @@ -3336,7 +3336,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210281 + __obj210211 '#f '6 gerbil/core$$#class-type-info::t @@ -3344,223 +3344,223 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210281 + __obj210211 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210870 |gxc[1]#_g210871_|)) + (let ((__tmp210800 |gxc[1]#_g210801_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210281 - __tmp210870 + __obj210211 + __tmp210800 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210872 |gxc[1]#_g210873_|)) + (let ((__tmp210802 |gxc[1]#_g210803_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210281 - __tmp210872 + __obj210211 + __tmp210802 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210874 |gxc[1]#_g210875_|)) + (let ((__tmp210804 |gxc[1]#_g210805_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210281 - __tmp210874 + __obj210211 + __tmp210804 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210876 - (let ((__tmp210893 - (let ((__tmp210894 |gxc[1]#_g210895_|)) + (let ((__tmp210806 + (let ((__tmp210823 + (let ((__tmp210824 |gxc[1]#_g210825_|)) (declare (not safe)) - (cons 'arity __tmp210894))) - (__tmp210877 - (let ((__tmp210890 - (let ((__tmp210891 |gxc[1]#_g210892_|)) + (cons 'arity __tmp210824))) + (__tmp210807 + (let ((__tmp210820 + (let ((__tmp210821 |gxc[1]#_g210822_|)) (declare (not safe)) - (cons 'dispatch __tmp210891))) - (__tmp210878 - (let ((__tmp210887 - (let ((__tmp210888 |gxc[1]#_g210889_|)) + (cons 'dispatch __tmp210821))) + (__tmp210808 + (let ((__tmp210817 + (let ((__tmp210818 |gxc[1]#_g210819_|)) (declare (not safe)) - (cons 'inline __tmp210888))) - (__tmp210879 - (let ((__tmp210884 - (let ((__tmp210885 - |gxc[1]#_g210886_|)) + (cons 'inline __tmp210818))) + (__tmp210809 + (let ((__tmp210814 + (let ((__tmp210815 + |gxc[1]#_g210816_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp210885))) - (__tmp210880 - (let ((__tmp210881 - (let ((__tmp210882 - |gxc[1]#_g210883_|)) + __tmp210815))) + (__tmp210810 + (let ((__tmp210811 + (let ((__tmp210812 + |gxc[1]#_g210813_|)) (declare (not safe)) - (cons 'id __tmp210882)))) + (cons 'id __tmp210812)))) (declare (not safe)) - (cons __tmp210881 '())))) + (cons __tmp210811 '())))) (declare (not safe)) - (cons __tmp210884 __tmp210880)))) + (cons __tmp210814 __tmp210810)))) (declare (not safe)) - (cons __tmp210887 __tmp210879)))) + (cons __tmp210817 __tmp210809)))) (declare (not safe)) - (cons __tmp210890 __tmp210878)))) + (cons __tmp210820 __tmp210808)))) (declare (not safe)) - (cons __tmp210893 __tmp210877)))) + (cons __tmp210823 __tmp210807)))) (declare (not safe)) (##unchecked-structure-set! - __obj210281 - __tmp210876 + __obj210211 + __tmp210806 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210896 - (let ((__tmp210913 - (let ((__tmp210914 |gxc[1]#_g210915_|)) + (let ((__tmp210826 + (let ((__tmp210843 + (let ((__tmp210844 |gxc[1]#_g210845_|)) (declare (not safe)) - (cons 'arity __tmp210914))) - (__tmp210897 - (let ((__tmp210910 - (let ((__tmp210911 |gxc[1]#_g210912_|)) + (cons 'arity __tmp210844))) + (__tmp210827 + (let ((__tmp210840 + (let ((__tmp210841 |gxc[1]#_g210842_|)) (declare (not safe)) - (cons 'dispatch __tmp210911))) - (__tmp210898 - (let ((__tmp210907 - (let ((__tmp210908 |gxc[1]#_g210909_|)) + (cons 'dispatch __tmp210841))) + (__tmp210828 + (let ((__tmp210837 + (let ((__tmp210838 |gxc[1]#_g210839_|)) (declare (not safe)) - (cons 'inline __tmp210908))) - (__tmp210899 - (let ((__tmp210904 - (let ((__tmp210905 - |gxc[1]#_g210906_|)) + (cons 'inline __tmp210838))) + (__tmp210829 + (let ((__tmp210834 + (let ((__tmp210835 + |gxc[1]#_g210836_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp210905))) - (__tmp210900 - (let ((__tmp210901 - (let ((__tmp210902 - |gxc[1]#_g210903_|)) + __tmp210835))) + (__tmp210830 + (let ((__tmp210831 + (let ((__tmp210832 + |gxc[1]#_g210833_|)) (declare (not safe)) - (cons 'id __tmp210902)))) + (cons 'id __tmp210832)))) (declare (not safe)) - (cons __tmp210901 '())))) + (cons __tmp210831 '())))) (declare (not safe)) - (cons __tmp210904 __tmp210900)))) + (cons __tmp210834 __tmp210830)))) (declare (not safe)) - (cons __tmp210907 __tmp210899)))) + (cons __tmp210837 __tmp210829)))) (declare (not safe)) - (cons __tmp210910 __tmp210898)))) + (cons __tmp210840 __tmp210828)))) (declare (not safe)) - (cons __tmp210913 __tmp210897)))) + (cons __tmp210843 __tmp210827)))) (declare (not safe)) (##unchecked-structure-set! - __obj210281 - __tmp210896 + __obj210211 + __tmp210826 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210916 - (let ((__tmp210933 - (let ((__tmp210934 |gxc[1]#_g210935_|)) + (let ((__tmp210846 + (let ((__tmp210863 + (let ((__tmp210864 |gxc[1]#_g210865_|)) (declare (not safe)) - (cons 'arity __tmp210934))) - (__tmp210917 - (let ((__tmp210930 - (let ((__tmp210931 |gxc[1]#_g210932_|)) + (cons 'arity __tmp210864))) + (__tmp210847 + (let ((__tmp210860 + (let ((__tmp210861 |gxc[1]#_g210862_|)) (declare (not safe)) - (cons 'dispatch __tmp210931))) - (__tmp210918 - (let ((__tmp210927 - (let ((__tmp210928 |gxc[1]#_g210929_|)) + (cons 'dispatch __tmp210861))) + (__tmp210848 + (let ((__tmp210857 + (let ((__tmp210858 |gxc[1]#_g210859_|)) (declare (not safe)) - (cons 'inline __tmp210928))) - (__tmp210919 - (let ((__tmp210924 - (let ((__tmp210925 - |gxc[1]#_g210926_|)) + (cons 'inline __tmp210858))) + (__tmp210849 + (let ((__tmp210854 + (let ((__tmp210855 + |gxc[1]#_g210856_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp210925))) - (__tmp210920 - (let ((__tmp210921 - (let ((__tmp210922 - |gxc[1]#_g210923_|)) + __tmp210855))) + (__tmp210850 + (let ((__tmp210851 + (let ((__tmp210852 + |gxc[1]#_g210853_|)) (declare (not safe)) - (cons 'id __tmp210922)))) + (cons 'id __tmp210852)))) (declare (not safe)) - (cons __tmp210921 '())))) + (cons __tmp210851 '())))) (declare (not safe)) - (cons __tmp210924 __tmp210920)))) + (cons __tmp210854 __tmp210850)))) (declare (not safe)) - (cons __tmp210927 __tmp210919)))) + (cons __tmp210857 __tmp210849)))) (declare (not safe)) - (cons __tmp210930 __tmp210918)))) + (cons __tmp210860 __tmp210848)))) (declare (not safe)) - (cons __tmp210933 __tmp210917)))) + (cons __tmp210863 __tmp210847)))) (declare (not safe)) (##unchecked-structure-set! - __obj210281 - __tmp210916 + __obj210211 + __tmp210846 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210936 - (let ((__tmp210953 - (let ((__tmp210954 |gxc[1]#_g210955_|)) + (let ((__tmp210866 + (let ((__tmp210883 + (let ((__tmp210884 |gxc[1]#_g210885_|)) (declare (not safe)) - (cons 'arity __tmp210954))) - (__tmp210937 - (let ((__tmp210950 - (let ((__tmp210951 |gxc[1]#_g210952_|)) + (cons 'arity __tmp210884))) + (__tmp210867 + (let ((__tmp210880 + (let ((__tmp210881 |gxc[1]#_g210882_|)) (declare (not safe)) - (cons 'dispatch __tmp210951))) - (__tmp210938 - (let ((__tmp210947 - (let ((__tmp210948 |gxc[1]#_g210949_|)) + (cons 'dispatch __tmp210881))) + (__tmp210868 + (let ((__tmp210877 + (let ((__tmp210878 |gxc[1]#_g210879_|)) (declare (not safe)) - (cons 'inline __tmp210948))) - (__tmp210939 - (let ((__tmp210944 - (let ((__tmp210945 - |gxc[1]#_g210946_|)) + (cons 'inline __tmp210878))) + (__tmp210869 + (let ((__tmp210874 + (let ((__tmp210875 + |gxc[1]#_g210876_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp210945))) - (__tmp210940 - (let ((__tmp210941 - (let ((__tmp210942 - |gxc[1]#_g210943_|)) + __tmp210875))) + (__tmp210870 + (let ((__tmp210871 + (let ((__tmp210872 + |gxc[1]#_g210873_|)) (declare (not safe)) - (cons 'id __tmp210942)))) + (cons 'id __tmp210872)))) (declare (not safe)) - (cons __tmp210941 '())))) + (cons __tmp210871 '())))) (declare (not safe)) - (cons __tmp210944 __tmp210940)))) + (cons __tmp210874 __tmp210870)))) (declare (not safe)) - (cons __tmp210947 __tmp210939)))) + (cons __tmp210877 __tmp210869)))) (declare (not safe)) - (cons __tmp210950 __tmp210938)))) + (cons __tmp210880 __tmp210868)))) (declare (not safe)) - (cons __tmp210953 __tmp210937)))) + (cons __tmp210883 __tmp210867)))) (declare (not safe)) (##unchecked-structure-set! - __obj210281 - __tmp210936 + __obj210211 + __tmp210866 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210281)) + __obj210211)) (define |gxc[:0:]#!case-lambda| - (let ((__obj210282 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210212 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210282 + __obj210212 'gxc#!case-lambda::t '1 gerbil/core$$#class-type-info::t @@ -3568,7 +3568,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210282 + __obj210212 '!case-lambda '2 gerbil/core$$#class-type-info::t @@ -3576,26 +3576,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210282 + __obj210212 '(clauses) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210956 - (let ((__tmp210957 |gxc[1]#_g210709_|)) + (let ((__tmp210886 + (let ((__tmp210887 |gxc[1]#_g210639_|)) (declare (not safe)) - (cons __tmp210957 '())))) + (cons __tmp210887 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210282 - __tmp210956 + __obj210212 + __tmp210886 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210282 + __obj210212 '#t '5 gerbil/core$$#class-type-info::t @@ -3603,7 +3603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210282 + __obj210212 '#f '6 gerbil/core$$#class-type-info::t @@ -3611,127 +3611,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210282 + __obj210212 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210958 |gxc[1]#_g210959_|)) + (let ((__tmp210888 |gxc[1]#_g210889_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210282 - __tmp210958 + __obj210212 + __tmp210888 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210960 |gxc[1]#_g210961_|)) + (let ((__tmp210890 |gxc[1]#_g210891_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210282 - __tmp210960 + __obj210212 + __tmp210890 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210962 |gxc[1]#_g210963_|)) + (let ((__tmp210892 |gxc[1]#_g210893_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210282 - __tmp210962 + __obj210212 + __tmp210892 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210964 - (let ((__tmp210969 - (let ((__tmp210970 |gxc[1]#_g210971_|)) + (let ((__tmp210894 + (let ((__tmp210899 + (let ((__tmp210900 |gxc[1]#_g210901_|)) (declare (not safe)) - (cons 'clauses __tmp210970))) - (__tmp210965 - (let ((__tmp210966 - (let ((__tmp210967 |gxc[1]#_g210968_|)) + (cons 'clauses __tmp210900))) + (__tmp210895 + (let ((__tmp210896 + (let ((__tmp210897 |gxc[1]#_g210898_|)) (declare (not safe)) - (cons 'id __tmp210967)))) + (cons 'id __tmp210897)))) (declare (not safe)) - (cons __tmp210966 '())))) + (cons __tmp210896 '())))) (declare (not safe)) - (cons __tmp210969 __tmp210965)))) + (cons __tmp210899 __tmp210895)))) (declare (not safe)) (##unchecked-structure-set! - __obj210282 - __tmp210964 + __obj210212 + __tmp210894 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210972 - (let ((__tmp210977 - (let ((__tmp210978 |gxc[1]#_g210979_|)) + (let ((__tmp210902 + (let ((__tmp210907 + (let ((__tmp210908 |gxc[1]#_g210909_|)) (declare (not safe)) - (cons 'clauses __tmp210978))) - (__tmp210973 - (let ((__tmp210974 - (let ((__tmp210975 |gxc[1]#_g210976_|)) + (cons 'clauses __tmp210908))) + (__tmp210903 + (let ((__tmp210904 + (let ((__tmp210905 |gxc[1]#_g210906_|)) (declare (not safe)) - (cons 'id __tmp210975)))) + (cons 'id __tmp210905)))) (declare (not safe)) - (cons __tmp210974 '())))) + (cons __tmp210904 '())))) (declare (not safe)) - (cons __tmp210977 __tmp210973)))) + (cons __tmp210907 __tmp210903)))) (declare (not safe)) (##unchecked-structure-set! - __obj210282 - __tmp210972 + __obj210212 + __tmp210902 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210980 - (let ((__tmp210985 - (let ((__tmp210986 |gxc[1]#_g210987_|)) + (let ((__tmp210910 + (let ((__tmp210915 + (let ((__tmp210916 |gxc[1]#_g210917_|)) (declare (not safe)) - (cons 'clauses __tmp210986))) - (__tmp210981 - (let ((__tmp210982 - (let ((__tmp210983 |gxc[1]#_g210984_|)) + (cons 'clauses __tmp210916))) + (__tmp210911 + (let ((__tmp210912 + (let ((__tmp210913 |gxc[1]#_g210914_|)) (declare (not safe)) - (cons 'id __tmp210983)))) + (cons 'id __tmp210913)))) (declare (not safe)) - (cons __tmp210982 '())))) + (cons __tmp210912 '())))) (declare (not safe)) - (cons __tmp210985 __tmp210981)))) + (cons __tmp210915 __tmp210911)))) (declare (not safe)) (##unchecked-structure-set! - __obj210282 - __tmp210980 + __obj210212 + __tmp210910 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210988 - (let ((__tmp210993 - (let ((__tmp210994 |gxc[1]#_g210995_|)) + (let ((__tmp210918 + (let ((__tmp210923 + (let ((__tmp210924 |gxc[1]#_g210925_|)) (declare (not safe)) - (cons 'clauses __tmp210994))) - (__tmp210989 - (let ((__tmp210990 - (let ((__tmp210991 |gxc[1]#_g210992_|)) + (cons 'clauses __tmp210924))) + (__tmp210919 + (let ((__tmp210920 + (let ((__tmp210921 |gxc[1]#_g210922_|)) (declare (not safe)) - (cons 'id __tmp210991)))) + (cons 'id __tmp210921)))) (declare (not safe)) - (cons __tmp210990 '())))) + (cons __tmp210920 '())))) (declare (not safe)) - (cons __tmp210993 __tmp210989)))) + (cons __tmp210923 __tmp210919)))) (declare (not safe)) (##unchecked-structure-set! - __obj210282 - __tmp210988 + __obj210212 + __tmp210918 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210282)) + __obj210212)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj210283 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210213 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210283 + __obj210213 'gxc#!kw-lambda::t '1 gerbil/core$$#class-type-info::t @@ -3739,7 +3739,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210283 + __obj210213 '!kw-lambda '2 gerbil/core$$#class-type-info::t @@ -3747,26 +3747,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210283 + __obj210213 '(table dispatch) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210996 - (let ((__tmp210997 |gxc[1]#_g210709_|)) + (let ((__tmp210926 + (let ((__tmp210927 |gxc[1]#_g210639_|)) (declare (not safe)) - (cons __tmp210997 '())))) + (cons __tmp210927 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210283 - __tmp210996 + __obj210213 + __tmp210926 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210283 + __obj210213 '#t '5 gerbil/core$$#class-type-info::t @@ -3774,7 +3774,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210283 + __obj210213 '#f '6 gerbil/core$$#class-type-info::t @@ -3782,155 +3782,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210283 + __obj210213 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp210998 |gxc[1]#_g210999_|)) + (let ((__tmp210928 |gxc[1]#_g210929_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210283 - __tmp210998 + __obj210213 + __tmp210928 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211000 |gxc[1]#_g211001_|)) + (let ((__tmp210930 |gxc[1]#_g210931_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210283 - __tmp211000 + __obj210213 + __tmp210930 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211002 |gxc[1]#_g211003_|)) + (let ((__tmp210932 |gxc[1]#_g210933_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210283 - __tmp211002 + __obj210213 + __tmp210932 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211004 - (let ((__tmp211013 - (let ((__tmp211014 |gxc[1]#_g211015_|)) + (let ((__tmp210934 + (let ((__tmp210943 + (let ((__tmp210944 |gxc[1]#_g210945_|)) (declare (not safe)) - (cons 'table __tmp211014))) - (__tmp211005 - (let ((__tmp211010 - (let ((__tmp211011 |gxc[1]#_g211012_|)) + (cons 'table __tmp210944))) + (__tmp210935 + (let ((__tmp210940 + (let ((__tmp210941 |gxc[1]#_g210942_|)) (declare (not safe)) - (cons 'dispatch __tmp211011))) - (__tmp211006 - (let ((__tmp211007 - (let ((__tmp211008 |gxc[1]#_g211009_|)) + (cons 'dispatch __tmp210941))) + (__tmp210936 + (let ((__tmp210937 + (let ((__tmp210938 |gxc[1]#_g210939_|)) (declare (not safe)) - (cons 'id __tmp211008)))) + (cons 'id __tmp210938)))) (declare (not safe)) - (cons __tmp211007 '())))) + (cons __tmp210937 '())))) (declare (not safe)) - (cons __tmp211010 __tmp211006)))) + (cons __tmp210940 __tmp210936)))) (declare (not safe)) - (cons __tmp211013 __tmp211005)))) + (cons __tmp210943 __tmp210935)))) (declare (not safe)) (##unchecked-structure-set! - __obj210283 - __tmp211004 + __obj210213 + __tmp210934 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211016 - (let ((__tmp211025 - (let ((__tmp211026 |gxc[1]#_g211027_|)) + (let ((__tmp210946 + (let ((__tmp210955 + (let ((__tmp210956 |gxc[1]#_g210957_|)) (declare (not safe)) - (cons 'table __tmp211026))) - (__tmp211017 - (let ((__tmp211022 - (let ((__tmp211023 |gxc[1]#_g211024_|)) + (cons 'table __tmp210956))) + (__tmp210947 + (let ((__tmp210952 + (let ((__tmp210953 |gxc[1]#_g210954_|)) (declare (not safe)) - (cons 'dispatch __tmp211023))) - (__tmp211018 - (let ((__tmp211019 - (let ((__tmp211020 |gxc[1]#_g211021_|)) + (cons 'dispatch __tmp210953))) + (__tmp210948 + (let ((__tmp210949 + (let ((__tmp210950 |gxc[1]#_g210951_|)) (declare (not safe)) - (cons 'id __tmp211020)))) + (cons 'id __tmp210950)))) (declare (not safe)) - (cons __tmp211019 '())))) + (cons __tmp210949 '())))) (declare (not safe)) - (cons __tmp211022 __tmp211018)))) + (cons __tmp210952 __tmp210948)))) (declare (not safe)) - (cons __tmp211025 __tmp211017)))) + (cons __tmp210955 __tmp210947)))) (declare (not safe)) (##unchecked-structure-set! - __obj210283 - __tmp211016 + __obj210213 + __tmp210946 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211028 - (let ((__tmp211037 - (let ((__tmp211038 |gxc[1]#_g211039_|)) + (let ((__tmp210958 + (let ((__tmp210967 + (let ((__tmp210968 |gxc[1]#_g210969_|)) (declare (not safe)) - (cons 'table __tmp211038))) - (__tmp211029 - (let ((__tmp211034 - (let ((__tmp211035 |gxc[1]#_g211036_|)) + (cons 'table __tmp210968))) + (__tmp210959 + (let ((__tmp210964 + (let ((__tmp210965 |gxc[1]#_g210966_|)) (declare (not safe)) - (cons 'dispatch __tmp211035))) - (__tmp211030 - (let ((__tmp211031 - (let ((__tmp211032 |gxc[1]#_g211033_|)) + (cons 'dispatch __tmp210965))) + (__tmp210960 + (let ((__tmp210961 + (let ((__tmp210962 |gxc[1]#_g210963_|)) (declare (not safe)) - (cons 'id __tmp211032)))) + (cons 'id __tmp210962)))) (declare (not safe)) - (cons __tmp211031 '())))) + (cons __tmp210961 '())))) (declare (not safe)) - (cons __tmp211034 __tmp211030)))) + (cons __tmp210964 __tmp210960)))) (declare (not safe)) - (cons __tmp211037 __tmp211029)))) + (cons __tmp210967 __tmp210959)))) (declare (not safe)) (##unchecked-structure-set! - __obj210283 - __tmp211028 + __obj210213 + __tmp210958 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211040 - (let ((__tmp211049 - (let ((__tmp211050 |gxc[1]#_g211051_|)) + (let ((__tmp210970 + (let ((__tmp210979 + (let ((__tmp210980 |gxc[1]#_g210981_|)) (declare (not safe)) - (cons 'table __tmp211050))) - (__tmp211041 - (let ((__tmp211046 - (let ((__tmp211047 |gxc[1]#_g211048_|)) + (cons 'table __tmp210980))) + (__tmp210971 + (let ((__tmp210976 + (let ((__tmp210977 |gxc[1]#_g210978_|)) (declare (not safe)) - (cons 'dispatch __tmp211047))) - (__tmp211042 - (let ((__tmp211043 - (let ((__tmp211044 |gxc[1]#_g211045_|)) + (cons 'dispatch __tmp210977))) + (__tmp210972 + (let ((__tmp210973 + (let ((__tmp210974 |gxc[1]#_g210975_|)) (declare (not safe)) - (cons 'id __tmp211044)))) + (cons 'id __tmp210974)))) (declare (not safe)) - (cons __tmp211043 '())))) + (cons __tmp210973 '())))) (declare (not safe)) - (cons __tmp211046 __tmp211042)))) + (cons __tmp210976 __tmp210972)))) (declare (not safe)) - (cons __tmp211049 __tmp211041)))) + (cons __tmp210979 __tmp210971)))) (declare (not safe)) (##unchecked-structure-set! - __obj210283 - __tmp211040 + __obj210213 + __tmp210970 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210283)) + __obj210213)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj210284 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210214 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210284 + __obj210214 'gxc#!kw-lambda-primary::t '1 gerbil/core$$#class-type-info::t @@ -3938,7 +3938,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210284 + __obj210214 '!kw-lambda-primary '2 gerbil/core$$#class-type-info::t @@ -3946,26 +3946,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210284 + __obj210214 '(keys main) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211052 - (let ((__tmp211053 |gxc[1]#_g210709_|)) + (let ((__tmp210982 + (let ((__tmp210983 |gxc[1]#_g210639_|)) (declare (not safe)) - (cons __tmp211053 '())))) + (cons __tmp210983 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj210284 - __tmp211052 + __obj210214 + __tmp210982 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210284 + __obj210214 '#t '5 gerbil/core$$#class-type-info::t @@ -3973,7 +3973,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210284 + __obj210214 '#f '6 gerbil/core$$#class-type-info::t @@ -3981,155 +3981,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210284 + __obj210214 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211054 |gxc[1]#_g211055_|)) + (let ((__tmp210984 |gxc[1]#_g210985_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210284 - __tmp211054 + __obj210214 + __tmp210984 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211056 |gxc[1]#_g211057_|)) + (let ((__tmp210986 |gxc[1]#_g210987_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210284 - __tmp211056 + __obj210214 + __tmp210986 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211058 |gxc[1]#_g211059_|)) + (let ((__tmp210988 |gxc[1]#_g210989_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210284 - __tmp211058 + __obj210214 + __tmp210988 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211060 - (let ((__tmp211069 - (let ((__tmp211070 |gxc[1]#_g211071_|)) + (let ((__tmp210990 + (let ((__tmp210999 + (let ((__tmp211000 |gxc[1]#_g211001_|)) (declare (not safe)) - (cons 'keys __tmp211070))) - (__tmp211061 - (let ((__tmp211066 - (let ((__tmp211067 |gxc[1]#_g211068_|)) + (cons 'keys __tmp211000))) + (__tmp210991 + (let ((__tmp210996 + (let ((__tmp210997 |gxc[1]#_g210998_|)) (declare (not safe)) - (cons 'main __tmp211067))) - (__tmp211062 - (let ((__tmp211063 - (let ((__tmp211064 |gxc[1]#_g211065_|)) + (cons 'main __tmp210997))) + (__tmp210992 + (let ((__tmp210993 + (let ((__tmp210994 |gxc[1]#_g210995_|)) (declare (not safe)) - (cons 'id __tmp211064)))) + (cons 'id __tmp210994)))) (declare (not safe)) - (cons __tmp211063 '())))) + (cons __tmp210993 '())))) (declare (not safe)) - (cons __tmp211066 __tmp211062)))) + (cons __tmp210996 __tmp210992)))) (declare (not safe)) - (cons __tmp211069 __tmp211061)))) + (cons __tmp210999 __tmp210991)))) (declare (not safe)) (##unchecked-structure-set! - __obj210284 - __tmp211060 + __obj210214 + __tmp210990 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211072 - (let ((__tmp211081 - (let ((__tmp211082 |gxc[1]#_g211083_|)) + (let ((__tmp211002 + (let ((__tmp211011 + (let ((__tmp211012 |gxc[1]#_g211013_|)) (declare (not safe)) - (cons 'keys __tmp211082))) - (__tmp211073 - (let ((__tmp211078 - (let ((__tmp211079 |gxc[1]#_g211080_|)) + (cons 'keys __tmp211012))) + (__tmp211003 + (let ((__tmp211008 + (let ((__tmp211009 |gxc[1]#_g211010_|)) (declare (not safe)) - (cons 'main __tmp211079))) - (__tmp211074 - (let ((__tmp211075 - (let ((__tmp211076 |gxc[1]#_g211077_|)) + (cons 'main __tmp211009))) + (__tmp211004 + (let ((__tmp211005 + (let ((__tmp211006 |gxc[1]#_g211007_|)) (declare (not safe)) - (cons 'id __tmp211076)))) + (cons 'id __tmp211006)))) (declare (not safe)) - (cons __tmp211075 '())))) + (cons __tmp211005 '())))) (declare (not safe)) - (cons __tmp211078 __tmp211074)))) + (cons __tmp211008 __tmp211004)))) (declare (not safe)) - (cons __tmp211081 __tmp211073)))) + (cons __tmp211011 __tmp211003)))) (declare (not safe)) (##unchecked-structure-set! - __obj210284 - __tmp211072 + __obj210214 + __tmp211002 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211084 - (let ((__tmp211093 - (let ((__tmp211094 |gxc[1]#_g211095_|)) + (let ((__tmp211014 + (let ((__tmp211023 + (let ((__tmp211024 |gxc[1]#_g211025_|)) (declare (not safe)) - (cons 'keys __tmp211094))) - (__tmp211085 - (let ((__tmp211090 - (let ((__tmp211091 |gxc[1]#_g211092_|)) + (cons 'keys __tmp211024))) + (__tmp211015 + (let ((__tmp211020 + (let ((__tmp211021 |gxc[1]#_g211022_|)) (declare (not safe)) - (cons 'main __tmp211091))) - (__tmp211086 - (let ((__tmp211087 - (let ((__tmp211088 |gxc[1]#_g211089_|)) + (cons 'main __tmp211021))) + (__tmp211016 + (let ((__tmp211017 + (let ((__tmp211018 |gxc[1]#_g211019_|)) (declare (not safe)) - (cons 'id __tmp211088)))) + (cons 'id __tmp211018)))) (declare (not safe)) - (cons __tmp211087 '())))) + (cons __tmp211017 '())))) (declare (not safe)) - (cons __tmp211090 __tmp211086)))) + (cons __tmp211020 __tmp211016)))) (declare (not safe)) - (cons __tmp211093 __tmp211085)))) + (cons __tmp211023 __tmp211015)))) (declare (not safe)) (##unchecked-structure-set! - __obj210284 - __tmp211084 + __obj210214 + __tmp211014 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211096 - (let ((__tmp211105 - (let ((__tmp211106 |gxc[1]#_g211107_|)) + (let ((__tmp211026 + (let ((__tmp211035 + (let ((__tmp211036 |gxc[1]#_g211037_|)) (declare (not safe)) - (cons 'keys __tmp211106))) - (__tmp211097 - (let ((__tmp211102 - (let ((__tmp211103 |gxc[1]#_g211104_|)) + (cons 'keys __tmp211036))) + (__tmp211027 + (let ((__tmp211032 + (let ((__tmp211033 |gxc[1]#_g211034_|)) (declare (not safe)) - (cons 'main __tmp211103))) - (__tmp211098 - (let ((__tmp211099 - (let ((__tmp211100 |gxc[1]#_g211101_|)) + (cons 'main __tmp211033))) + (__tmp211028 + (let ((__tmp211029 + (let ((__tmp211030 |gxc[1]#_g211031_|)) (declare (not safe)) - (cons 'id __tmp211100)))) + (cons 'id __tmp211030)))) (declare (not safe)) - (cons __tmp211099 '())))) + (cons __tmp211029 '())))) (declare (not safe)) - (cons __tmp211102 __tmp211098)))) + (cons __tmp211032 __tmp211028)))) (declare (not safe)) - (cons __tmp211105 __tmp211097)))) + (cons __tmp211035 __tmp211027)))) (declare (not safe)) (##unchecked-structure-set! - __obj210284 - __tmp211096 + __obj210214 + __tmp211026 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210284)) + __obj210214)) (define |gxc[:0:]#!primitive| - (let ((__obj210285 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210215 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 'gxc#!primitive::t '1 gerbil/core$$#class-type-info::t @@ -4137,7 +4137,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 '!primitive '2 gerbil/core$$#class-type-info::t @@ -4145,7 +4145,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 '() '4 gerbil/core$$#class-type-info::t @@ -4153,7 +4153,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 '() '3 gerbil/core$$#class-type-info::t @@ -4161,7 +4161,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 '#f '5 gerbil/core$$#class-type-info::t @@ -4169,7 +4169,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 '#f '6 gerbil/core$$#class-type-info::t @@ -4177,39 +4177,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211108 |gxc[1]#_g211109_|)) + (let ((__tmp211038 |gxc[1]#_g211039_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210285 - __tmp211108 + __obj210215 + __tmp211038 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211110 |gxc[1]#_g211111_|)) + (let ((__tmp211040 |gxc[1]#_g211041_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210285 - __tmp211110 + __obj210215 + __tmp211040 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211112 |gxc[1]#_g211113_|)) + (let ((__tmp211042 |gxc[1]#_g211043_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210285 - __tmp211112 + __obj210215 + __tmp211042 '10 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 '() '11 gerbil/core$$#class-type-info::t @@ -4217,7 +4217,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 '() '12 gerbil/core$$#class-type-info::t @@ -4225,7 +4225,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 '() '13 gerbil/core$$#class-type-info::t @@ -4233,19 +4233,19 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210285 + __obj210215 '() '14 gerbil/core$$#class-type-info::t '#f)) - __obj210285)) + __obj210215)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj210286 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210216 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210286 + __obj210216 'gxc#!primitive-lambda::t '1 gerbil/core$$#class-type-info::t @@ -4253,7 +4253,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210286 + __obj210216 '!primitive-lambda '2 gerbil/core$$#class-type-info::t @@ -4261,30 +4261,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210286 + __obj210216 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211114 - (let ((__tmp211118 |gxc[1]#_g211119_|) - (__tmp211115 - (let ((__tmp211116 |gxc[1]#_g211117_|)) + (let ((__tmp211044 + (let ((__tmp211048 |gxc[1]#_g211049_|) + (__tmp211045 + (let ((__tmp211046 |gxc[1]#_g211047_|)) (declare (not safe)) - (cons __tmp211116 '())))) + (cons __tmp211046 '())))) (declare (not safe)) - (cons __tmp211118 __tmp211115)))) + (cons __tmp211048 __tmp211045)))) (declare (not safe)) (##unchecked-structure-set! - __obj210286 - __tmp211114 + __obj210216 + __tmp211044 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210286 + __obj210216 '#f '5 gerbil/core$$#class-type-info::t @@ -4292,7 +4292,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210286 + __obj210216 '#f '6 gerbil/core$$#class-type-info::t @@ -4300,223 +4300,223 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210286 + __obj210216 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211120 |gxc[1]#_g211121_|)) + (let ((__tmp211050 |gxc[1]#_g211051_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210286 - __tmp211120 + __obj210216 + __tmp211050 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211122 |gxc[1]#_g211123_|)) + (let ((__tmp211052 |gxc[1]#_g211053_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210286 - __tmp211122 + __obj210216 + __tmp211052 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211124 |gxc[1]#_g211125_|)) + (let ((__tmp211054 |gxc[1]#_g211055_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210286 - __tmp211124 + __obj210216 + __tmp211054 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211126 - (let ((__tmp211143 - (let ((__tmp211144 |gxc[1]#_g211145_|)) + (let ((__tmp211056 + (let ((__tmp211073 + (let ((__tmp211074 |gxc[1]#_g211075_|)) (declare (not safe)) - (cons 'arity __tmp211144))) - (__tmp211127 - (let ((__tmp211140 - (let ((__tmp211141 |gxc[1]#_g211142_|)) + (cons 'arity __tmp211074))) + (__tmp211057 + (let ((__tmp211070 + (let ((__tmp211071 |gxc[1]#_g211072_|)) (declare (not safe)) - (cons 'dispatch __tmp211141))) - (__tmp211128 - (let ((__tmp211137 - (let ((__tmp211138 |gxc[1]#_g211139_|)) + (cons 'dispatch __tmp211071))) + (__tmp211058 + (let ((__tmp211067 + (let ((__tmp211068 |gxc[1]#_g211069_|)) (declare (not safe)) - (cons 'inline __tmp211138))) - (__tmp211129 - (let ((__tmp211134 - (let ((__tmp211135 - |gxc[1]#_g211136_|)) + (cons 'inline __tmp211068))) + (__tmp211059 + (let ((__tmp211064 + (let ((__tmp211065 + |gxc[1]#_g211066_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp211135))) - (__tmp211130 - (let ((__tmp211131 - (let ((__tmp211132 - |gxc[1]#_g211133_|)) + __tmp211065))) + (__tmp211060 + (let ((__tmp211061 + (let ((__tmp211062 + |gxc[1]#_g211063_|)) (declare (not safe)) - (cons 'id __tmp211132)))) + (cons 'id __tmp211062)))) (declare (not safe)) - (cons __tmp211131 '())))) + (cons __tmp211061 '())))) (declare (not safe)) - (cons __tmp211134 __tmp211130)))) + (cons __tmp211064 __tmp211060)))) (declare (not safe)) - (cons __tmp211137 __tmp211129)))) + (cons __tmp211067 __tmp211059)))) (declare (not safe)) - (cons __tmp211140 __tmp211128)))) + (cons __tmp211070 __tmp211058)))) (declare (not safe)) - (cons __tmp211143 __tmp211127)))) + (cons __tmp211073 __tmp211057)))) (declare (not safe)) (##unchecked-structure-set! - __obj210286 - __tmp211126 + __obj210216 + __tmp211056 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211146 - (let ((__tmp211163 - (let ((__tmp211164 |gxc[1]#_g211165_|)) + (let ((__tmp211076 + (let ((__tmp211093 + (let ((__tmp211094 |gxc[1]#_g211095_|)) (declare (not safe)) - (cons 'arity __tmp211164))) - (__tmp211147 - (let ((__tmp211160 - (let ((__tmp211161 |gxc[1]#_g211162_|)) + (cons 'arity __tmp211094))) + (__tmp211077 + (let ((__tmp211090 + (let ((__tmp211091 |gxc[1]#_g211092_|)) (declare (not safe)) - (cons 'dispatch __tmp211161))) - (__tmp211148 - (let ((__tmp211157 - (let ((__tmp211158 |gxc[1]#_g211159_|)) + (cons 'dispatch __tmp211091))) + (__tmp211078 + (let ((__tmp211087 + (let ((__tmp211088 |gxc[1]#_g211089_|)) (declare (not safe)) - (cons 'inline __tmp211158))) - (__tmp211149 - (let ((__tmp211154 - (let ((__tmp211155 - |gxc[1]#_g211156_|)) + (cons 'inline __tmp211088))) + (__tmp211079 + (let ((__tmp211084 + (let ((__tmp211085 + |gxc[1]#_g211086_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp211155))) - (__tmp211150 - (let ((__tmp211151 - (let ((__tmp211152 - |gxc[1]#_g211153_|)) + __tmp211085))) + (__tmp211080 + (let ((__tmp211081 + (let ((__tmp211082 + |gxc[1]#_g211083_|)) (declare (not safe)) - (cons 'id __tmp211152)))) + (cons 'id __tmp211082)))) (declare (not safe)) - (cons __tmp211151 '())))) + (cons __tmp211081 '())))) (declare (not safe)) - (cons __tmp211154 __tmp211150)))) + (cons __tmp211084 __tmp211080)))) (declare (not safe)) - (cons __tmp211157 __tmp211149)))) + (cons __tmp211087 __tmp211079)))) (declare (not safe)) - (cons __tmp211160 __tmp211148)))) + (cons __tmp211090 __tmp211078)))) (declare (not safe)) - (cons __tmp211163 __tmp211147)))) + (cons __tmp211093 __tmp211077)))) (declare (not safe)) (##unchecked-structure-set! - __obj210286 - __tmp211146 + __obj210216 + __tmp211076 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211166 - (let ((__tmp211183 - (let ((__tmp211184 |gxc[1]#_g211185_|)) + (let ((__tmp211096 + (let ((__tmp211113 + (let ((__tmp211114 |gxc[1]#_g211115_|)) (declare (not safe)) - (cons 'arity __tmp211184))) - (__tmp211167 - (let ((__tmp211180 - (let ((__tmp211181 |gxc[1]#_g211182_|)) + (cons 'arity __tmp211114))) + (__tmp211097 + (let ((__tmp211110 + (let ((__tmp211111 |gxc[1]#_g211112_|)) (declare (not safe)) - (cons 'dispatch __tmp211181))) - (__tmp211168 - (let ((__tmp211177 - (let ((__tmp211178 |gxc[1]#_g211179_|)) + (cons 'dispatch __tmp211111))) + (__tmp211098 + (let ((__tmp211107 + (let ((__tmp211108 |gxc[1]#_g211109_|)) (declare (not safe)) - (cons 'inline __tmp211178))) - (__tmp211169 - (let ((__tmp211174 - (let ((__tmp211175 - |gxc[1]#_g211176_|)) + (cons 'inline __tmp211108))) + (__tmp211099 + (let ((__tmp211104 + (let ((__tmp211105 + |gxc[1]#_g211106_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp211175))) - (__tmp211170 - (let ((__tmp211171 - (let ((__tmp211172 - |gxc[1]#_g211173_|)) + __tmp211105))) + (__tmp211100 + (let ((__tmp211101 + (let ((__tmp211102 + |gxc[1]#_g211103_|)) (declare (not safe)) - (cons 'id __tmp211172)))) + (cons 'id __tmp211102)))) (declare (not safe)) - (cons __tmp211171 '())))) + (cons __tmp211101 '())))) (declare (not safe)) - (cons __tmp211174 __tmp211170)))) + (cons __tmp211104 __tmp211100)))) (declare (not safe)) - (cons __tmp211177 __tmp211169)))) + (cons __tmp211107 __tmp211099)))) (declare (not safe)) - (cons __tmp211180 __tmp211168)))) + (cons __tmp211110 __tmp211098)))) (declare (not safe)) - (cons __tmp211183 __tmp211167)))) + (cons __tmp211113 __tmp211097)))) (declare (not safe)) (##unchecked-structure-set! - __obj210286 - __tmp211166 + __obj210216 + __tmp211096 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211186 - (let ((__tmp211203 - (let ((__tmp211204 |gxc[1]#_g211205_|)) + (let ((__tmp211116 + (let ((__tmp211133 + (let ((__tmp211134 |gxc[1]#_g211135_|)) (declare (not safe)) - (cons 'arity __tmp211204))) - (__tmp211187 - (let ((__tmp211200 - (let ((__tmp211201 |gxc[1]#_g211202_|)) + (cons 'arity __tmp211134))) + (__tmp211117 + (let ((__tmp211130 + (let ((__tmp211131 |gxc[1]#_g211132_|)) (declare (not safe)) - (cons 'dispatch __tmp211201))) - (__tmp211188 - (let ((__tmp211197 - (let ((__tmp211198 |gxc[1]#_g211199_|)) + (cons 'dispatch __tmp211131))) + (__tmp211118 + (let ((__tmp211127 + (let ((__tmp211128 |gxc[1]#_g211129_|)) (declare (not safe)) - (cons 'inline __tmp211198))) - (__tmp211189 - (let ((__tmp211194 - (let ((__tmp211195 - |gxc[1]#_g211196_|)) + (cons 'inline __tmp211128))) + (__tmp211119 + (let ((__tmp211124 + (let ((__tmp211125 + |gxc[1]#_g211126_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp211195))) - (__tmp211190 - (let ((__tmp211191 - (let ((__tmp211192 - |gxc[1]#_g211193_|)) + __tmp211125))) + (__tmp211120 + (let ((__tmp211121 + (let ((__tmp211122 + |gxc[1]#_g211123_|)) (declare (not safe)) - (cons 'id __tmp211192)))) + (cons 'id __tmp211122)))) (declare (not safe)) - (cons __tmp211191 '())))) + (cons __tmp211121 '())))) (declare (not safe)) - (cons __tmp211194 __tmp211190)))) + (cons __tmp211124 __tmp211120)))) (declare (not safe)) - (cons __tmp211197 __tmp211189)))) + (cons __tmp211127 __tmp211119)))) (declare (not safe)) - (cons __tmp211200 __tmp211188)))) + (cons __tmp211130 __tmp211118)))) (declare (not safe)) - (cons __tmp211203 __tmp211187)))) + (cons __tmp211133 __tmp211117)))) (declare (not safe)) (##unchecked-structure-set! - __obj210286 - __tmp211186 + __obj210216 + __tmp211116 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210286)) + __obj210216)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj210287 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj210217 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210287 + __obj210217 'gxc#!primitive-case-lambda::t '1 gerbil/core$$#class-type-info::t @@ -4524,7 +4524,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210287 + __obj210217 '!primitive-case-lambda '2 gerbil/core$$#class-type-info::t @@ -4532,30 +4532,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210287 + __obj210217 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211206 - (let ((__tmp211210 |gxc[1]#_g211119_|) - (__tmp211207 - (let ((__tmp211208 |gxc[1]#_g211209_|)) + (let ((__tmp211136 + (let ((__tmp211140 |gxc[1]#_g211049_|) + (__tmp211137 + (let ((__tmp211138 |gxc[1]#_g211139_|)) (declare (not safe)) - (cons __tmp211208 '())))) + (cons __tmp211138 '())))) (declare (not safe)) - (cons __tmp211210 __tmp211207)))) + (cons __tmp211140 __tmp211137)))) (declare (not safe)) (##unchecked-structure-set! - __obj210287 - __tmp211206 + __obj210217 + __tmp211136 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj210287 + __obj210217 '#f '5 gerbil/core$$#class-type-info::t @@ -4563,7 +4563,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210287 + __obj210217 '#f '6 gerbil/core$$#class-type-info::t @@ -4571,117 +4571,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210287 + __obj210217 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211211 |gxc[1]#_g211212_|)) + (let ((__tmp211141 |gxc[1]#_g211142_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210287 - __tmp211211 + __obj210217 + __tmp211141 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211213 |gxc[1]#_g211214_|)) + (let ((__tmp211143 |gxc[1]#_g211144_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210287 - __tmp211213 + __obj210217 + __tmp211143 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211215 |gxc[1]#_g211216_|)) + (let ((__tmp211145 |gxc[1]#_g211146_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210287 - __tmp211215 + __obj210217 + __tmp211145 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211217 - (let ((__tmp211222 - (let ((__tmp211223 |gxc[1]#_g211224_|)) + (let ((__tmp211147 + (let ((__tmp211152 + (let ((__tmp211153 |gxc[1]#_g211154_|)) (declare (not safe)) - (cons 'clauses __tmp211223))) - (__tmp211218 - (let ((__tmp211219 - (let ((__tmp211220 |gxc[1]#_g211221_|)) + (cons 'clauses __tmp211153))) + (__tmp211148 + (let ((__tmp211149 + (let ((__tmp211150 |gxc[1]#_g211151_|)) (declare (not safe)) - (cons 'id __tmp211220)))) + (cons 'id __tmp211150)))) (declare (not safe)) - (cons __tmp211219 '())))) + (cons __tmp211149 '())))) (declare (not safe)) - (cons __tmp211222 __tmp211218)))) + (cons __tmp211152 __tmp211148)))) (declare (not safe)) (##unchecked-structure-set! - __obj210287 - __tmp211217 + __obj210217 + __tmp211147 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211225 - (let ((__tmp211230 - (let ((__tmp211231 |gxc[1]#_g211232_|)) + (let ((__tmp211155 + (let ((__tmp211160 + (let ((__tmp211161 |gxc[1]#_g211162_|)) (declare (not safe)) - (cons 'clauses __tmp211231))) - (__tmp211226 - (let ((__tmp211227 - (let ((__tmp211228 |gxc[1]#_g211229_|)) + (cons 'clauses __tmp211161))) + (__tmp211156 + (let ((__tmp211157 + (let ((__tmp211158 |gxc[1]#_g211159_|)) (declare (not safe)) - (cons 'id __tmp211228)))) + (cons 'id __tmp211158)))) (declare (not safe)) - (cons __tmp211227 '())))) + (cons __tmp211157 '())))) (declare (not safe)) - (cons __tmp211230 __tmp211226)))) + (cons __tmp211160 __tmp211156)))) (declare (not safe)) (##unchecked-structure-set! - __obj210287 - __tmp211225 + __obj210217 + __tmp211155 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211233 - (let ((__tmp211238 - (let ((__tmp211239 |gxc[1]#_g211240_|)) + (let ((__tmp211163 + (let ((__tmp211168 + (let ((__tmp211169 |gxc[1]#_g211170_|)) (declare (not safe)) - (cons 'clauses __tmp211239))) - (__tmp211234 - (let ((__tmp211235 - (let ((__tmp211236 |gxc[1]#_g211237_|)) + (cons 'clauses __tmp211169))) + (__tmp211164 + (let ((__tmp211165 + (let ((__tmp211166 |gxc[1]#_g211167_|)) (declare (not safe)) - (cons 'id __tmp211236)))) + (cons 'id __tmp211166)))) (declare (not safe)) - (cons __tmp211235 '())))) + (cons __tmp211165 '())))) (declare (not safe)) - (cons __tmp211238 __tmp211234)))) + (cons __tmp211168 __tmp211164)))) (declare (not safe)) (##unchecked-structure-set! - __obj210287 - __tmp211233 + __obj210217 + __tmp211163 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211241 - (let ((__tmp211246 - (let ((__tmp211247 |gxc[1]#_g211248_|)) + (let ((__tmp211171 + (let ((__tmp211176 + (let ((__tmp211177 |gxc[1]#_g211178_|)) (declare (not safe)) - (cons 'clauses __tmp211247))) - (__tmp211242 - (let ((__tmp211243 - (let ((__tmp211244 |gxc[1]#_g211245_|)) + (cons 'clauses __tmp211177))) + (__tmp211172 + (let ((__tmp211173 + (let ((__tmp211174 |gxc[1]#_g211175_|)) (declare (not safe)) - (cons 'id __tmp211244)))) + (cons 'id __tmp211174)))) (declare (not safe)) - (cons __tmp211243 '())))) + (cons __tmp211173 '())))) (declare (not safe)) - (cons __tmp211246 __tmp211242)))) + (cons __tmp211176 __tmp211172)))) (declare (not safe)) (##unchecked-structure-set! - __obj210287 - __tmp211241 + __obj210217 + __tmp211171 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210287)))) + __obj210217)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index b5ad6dd0b..56a8ba431 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 1707423046) + (define gerbil/compiler/optimize-call::timestamp 1707565666) (begin (define gxc#&optimize-call (make-promise (lambda () - (let ((_tbl265888_ + (let ((_tbl265818_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp270373 (force gxc#&basic-xform))) + (let ((__tmp270303 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl265888_ __tmp270373)) + (hash-copy! _tbl265818_ __tmp270303)) (let () (declare (not safe)) - (table-set! _tbl265888_ '%#call gxc#optimize-call%)) - _tbl265888_)))) + (table-set! _tbl265818_ '%#call gxc#optimize-call%)) + _tbl265818_)))) (define gxc#apply-optimize-call - (lambda (_stx265871_ . _args265873_) - (let ((__tmp270375 + (lambda (_stx265801_ . _args265803_) + (let ((__tmp270305 (lambda () (declare (not safe)) - (if (null? _args265873_) - (gxc#compile-e__0 _stx265871_) - (let ((_arg1265878_ (car _args265873_)) - (_rest265880_ (cdr _args265873_))) - (if (null? _rest265880_) - (gxc#compile-e__1 _stx265871_ _arg1265878_) - (let ((_arg2265883_ (car _rest265880_)) - (_rest265885_ (cdr _rest265880_))) - (if (null? _rest265885_) + (if (null? _args265803_) + (gxc#compile-e__0 _stx265801_) + (let ((_arg1265808_ (car _args265803_)) + (_rest265810_ (cdr _args265803_))) + (if (null? _rest265810_) + (gxc#compile-e__1 _stx265801_ _arg1265808_) + (let ((_arg2265813_ (car _rest265810_)) + (_rest265815_ (cdr _rest265810_))) + (if (null? _rest265815_) (gxc#compile-e__2 - _stx265871_ - _arg1265878_ - _arg2265883_) + _stx265801_ + _arg1265808_ + _arg2265813_) (apply gxc#compile-e - _stx265871_ - _arg1265878_ - _arg2265883_ - _rest265885_)))))))) - (__tmp270374 (force gxc#&optimize-call))) + _stx265801_ + _arg1265808_ + _arg2265813_ + _rest265815_)))))))) + (__tmp270304 (force gxc#&optimize-call))) (declare (not safe)) (call-with-parameters - __tmp270375 + __tmp270305 gxc#current-compile-methods - __tmp270374)))) + __tmp270304)))) (define gxc#optimize-call% - (lambda (_stx265726_) - (let* ((___stx270123270124_ _stx265726_) - (_g265729265749_ + (lambda (_stx265656_) + (let* ((___stx270053270054_ _stx265656_) + (_g265659265679_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270123270124_))))) - (let ((___kont270125270126_ - (lambda (_L265793_ _L265794_) - (let* ((_rator-id265812_ + ___stx270053270054_))))) + (let ((___kont270055270056_ + (lambda (_L265723_ _L265724_) + (let* ((_rator-id265742_ (let () (declare (not safe)) - (gxc#identifier-symbol _L265794_))) - (_rator-type265814_ + (gxc#identifier-symbol _L265724_))) + (_rator-type265744_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _rator-id265812_)))) + (gxc#optimizer-resolve-type _rator-id265742_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _rator-type265814_ + _rator-type265744_ 'gxc#!procedure::t)) (begin - (let ((__tmp270376 + (let ((__tmp270306 (##structure-ref - _rator-type265814_ + _rator-type265744_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#verbose '"optimize-call " - _rator-id265812_ + _rator-id265742_ '" => " - _rator-type265814_ + _rator-type265744_ '" " - __tmp270376)) - (let ((_optimized265817_ - (let ((__method270371 + __tmp270306)) + (let ((_optimized265747_ + (let ((__method270301 (let () (declare (not safe)) (method-ref - _rator-type265814_ + _rator-type265744_ 'optimize-call)))) - (if __method270371 - (__method270371 - _rator-type265814_ - _stx265726_ - _L265793_) + (if __method270301 + (__method270301 + _rator-type265744_ + _stx265656_ + _L265723_) (error '"Missing method" - _rator-type265814_ + _rator-type265744_ 'optimize-call))))) (if (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _rator-type265814_)) - _optimized265817_ - (let* ((___stx270105270106_ _optimized265817_) - (_g265820265830_ + _rator-type265744_)) + _optimized265747_ + (let* ((___stx270035270036_ _optimized265747_) + (_g265750265760_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270105270106_))))) - (let ((___kont270107270108_ - (lambda (_L265850_) - (let ((__tmp270377 + ___stx270035270036_))))) + (let ((___kont270037270038_ + (lambda (_L265780_) + (let ((__tmp270307 (let () (declare (not safe)) (cons '%#call-unchecked - _L265850_)))) + _L265780_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270377 - _stx265726_)))) - (___kont270109270110_ - (lambda () _optimized265817_))) + __tmp270307 + _stx265656_)))) + (___kont270039270040_ + (lambda () _optimized265747_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx270105270106_)) - (let ((_e265825265842_ + (gx#stx-pair? ___stx270035270036_)) + (let ((_e265755265772_ (let () (declare (not safe)) (gx#stx-e - ___stx270105270106_)))) - (let ((_tl265823265847_ + ___stx270035270036_)))) + (let ((_tl265753265777_ (let () (declare (not safe)) - (##cdr _e265825265842_))) - (_hd265824265845_ + (##cdr _e265755265772_))) + (_hd265754265775_ (let () (declare (not safe)) - (##car _e265825265842_)))) + (##car _e265755265772_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd265824265845_)) + _hd265754265775_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd265824265845_)) - (___kont270107270108_ - _tl265823265847_) - (___kont270109270110_)) - (___kont270109270110_)))) - (___kont270109270110_))))))) + _hd265754265775_)) + (___kont270037270038_ + _tl265753265777_) + (___kont270039270040_)) + (___kont270039270040_)))) + (___kont270039270040_))))))) (if (let () (declare (not safe)) - (not _rator-type265814_)) + (not _rator-type265744_)) (let () (declare (not safe)) - (gxc#xform-call% _stx265726_)) + (gxc#xform-call% _stx265656_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _stx265726_ - _rator-type265814_))))))) - (___kont270127270128_ + _stx265656_ + _rator-type265744_))))))) + (___kont270057270058_ (lambda () (let () (declare (not safe)) - (gxc#xform-call% _stx265726_))))) + (gxc#xform-call% _stx265656_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx270123270124_)) - (let ((_e265735265761_ + (gx#stx-pair? ___stx270053270054_)) + (let ((_e265665265691_ (let () (declare (not safe)) - (gx#stx-e ___stx270123270124_)))) - (let ((_tl265733265766_ - (let () (declare (not safe)) (##cdr _e265735265761_))) - (_hd265734265764_ + (gx#stx-e ___stx270053270054_)))) + (let ((_tl265663265696_ + (let () (declare (not safe)) (##cdr _e265665265691_))) + (_hd265664265694_ (let () (declare (not safe)) - (##car _e265735265761_)))) + (##car _e265665265691_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265733265766_)) - (let ((_e265738265769_ + (gx#stx-pair? _tl265663265696_)) + (let ((_e265668265699_ (let () (declare (not safe)) - (gx#stx-e _tl265733265766_)))) - (let ((_tl265736265774_ + (gx#stx-e _tl265663265696_)))) + (let ((_tl265666265704_ (let () (declare (not safe)) - (##cdr _e265738265769_))) - (_hd265737265772_ + (##cdr _e265668265699_))) + (_hd265667265702_ (let () (declare (not safe)) - (##car _e265738265769_)))) + (##car _e265668265699_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd265737265772_)) - (let ((_e265741265777_ + (gx#stx-pair? _hd265667265702_)) + (let ((_e265671265707_ (let () (declare (not safe)) - (gx#stx-e _hd265737265772_)))) - (let ((_tl265739265782_ + (gx#stx-e _hd265667265702_)))) + (let ((_tl265669265712_ (let () (declare (not safe)) - (##cdr _e265741265777_))) - (_hd265740265780_ + (##cdr _e265671265707_))) + (_hd265670265710_ (let () (declare (not safe)) - (##car _e265741265777_)))) + (##car _e265671265707_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd265740265780_)) + (gx#identifier? _hd265670265710_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd265740265780_)) + _hd265670265710_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl265739265782_)) - (let ((_e265744265785_ + _tl265669265712_)) + (let ((_e265674265715_ (let () (declare (not safe)) (gx#stx-e - _tl265739265782_)))) - (let ((_tl265742265790_ + _tl265669265712_)))) + (let ((_tl265672265720_ (let () (declare (not safe)) - (##cdr _e265744265785_))) - (_hd265743265788_ + (##cdr _e265674265715_))) + (_hd265673265718_ (let () (declare (not safe)) - (##car _e265744265785_)))) + (##car _e265674265715_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl265742265790_)) - (___kont270125270126_ - _tl265736265774_ - _hd265743265788_) - (___kont270127270128_)))) - (___kont270127270128_)) - (___kont270127270128_)) - (___kont270127270128_)))) - (___kont270127270128_)))) - (___kont270127270128_)))) - (___kont270127270128_)))))) + _tl265672265720_)) + (___kont270055270056_ + _tl265666265704_ + _hd265673265718_) + (___kont270057270058_)))) + (___kont270057270058_)) + (___kont270057270058_)) + (___kont270057270058_)))) + (___kont270057270058_)))) + (___kont270057270058_)))) + (___kont270057270058_)))))) (define gxc#!predicate::optimize-call - (lambda (_self265680_ _stx265681_ _args265682_) - (let* ((_g265684265694_ - (lambda (_g265685265691_) + (lambda (_self265610_ _stx265611_ _args265612_) + (let* ((_g265614265624_ + (lambda (_g265615265621_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g265685265691_)))) - (_g265683265723_ - (lambda (_g265685265697_) + _g265615265621_)))) + (_g265613265653_ + (lambda (_g265615265627_) (if (let () (declare (not safe)) - (gx#stx-pair? _g265685265697_)) - (let ((_e265689265699_ + (gx#stx-pair? _g265615265627_)) + (let ((_e265619265629_ (let () (declare (not safe)) - (gx#stx-e _g265685265697_)))) - (let ((_hd265688265702_ + (gx#stx-e _g265615265627_)))) + (let ((_hd265618265632_ (let () (declare (not safe)) - (##car _e265689265699_))) - (_tl265687265704_ + (##car _e265619265629_))) + (_tl265617265634_ (let () (declare (not safe)) - (##cdr _e265689265699_)))) + (##cdr _e265619265629_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265687265704_)) - ((lambda (_L265707_) - (let* ((_klass265718_ - (let ((__tmp270378 + (gx#stx-null? _tl265617265634_)) + ((lambda (_L265637_) + (let* ((_klass265648_ + (let ((__tmp270308 (##structure-ref - _self265680_ + _self265610_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx265681_ - __tmp270378))) - (_object265720_ + _stx265611_ + __tmp270308))) + (_object265650_ (let () (declare (not safe)) - (gxc#compile-e__0 _L265707_)))) + (gxc#compile-e__0 _L265637_)))) (if (##structure-ref - _klass265718_ + _klass265648_ '8 gxc#!class::t '#f) - (let ((__tmp270394 - (let ((__tmp270395 - (let ((__tmp270397 - (let ((__tmp270398 + (let ((__tmp270324 + (let ((__tmp270325 + (let ((__tmp270327 + (let ((__tmp270328 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270399 + (let ((__tmp270329 (##structure-ref - _klass265718_ + _klass265648_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270399 '())))) + (cons __tmp270329 '())))) (declare (not safe)) - (cons '%#quote __tmp270398))) - (__tmp270396 - (let () (declare (not safe)) (cons _object265720_ '())))) + (cons '%#quote __tmp270328))) + (__tmp270326 + (let () (declare (not safe)) (cons _object265650_ '())))) (declare (not safe)) - (cons __tmp270397 __tmp270396)))) + (cons __tmp270327 __tmp270326)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp270395)))) + __tmp270325)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270394 - _stx265681_)) + __tmp270324 + _stx265611_)) (if (##structure-ref - _klass265718_ + _klass265648_ '7 gxc#!class::t '#f) - (let ((__tmp270388 - (let ((__tmp270389 - (let ((__tmp270391 - (let ((__tmp270392 + (let ((__tmp270318 + (let ((__tmp270319 + (let ((__tmp270321 + (let ((__tmp270322 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270393 + (let ((__tmp270323 (##structure-ref - _klass265718_ + _klass265648_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270393 '())))) + (cons __tmp270323 '())))) (declare (not safe)) - (cons '%#quote __tmp270392))) - (__tmp270390 + (cons '%#quote __tmp270322))) + (__tmp270320 (let () (declare (not safe)) - (cons _object265720_ '())))) + (cons _object265650_ '())))) (declare (not safe)) - (cons __tmp270391 __tmp270390)))) + (cons __tmp270321 __tmp270320)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-instance? - __tmp270389)))) + __tmp270319)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270388 - _stx265681_)) - (let ((__tmp270379 - (let ((__tmp270380 - (let ((__tmp270386 - (let ((__tmp270387 + __tmp270318 + _stx265611_)) + (let ((__tmp270309 + (let ((__tmp270310 + (let ((__tmp270316 + (let ((__tmp270317 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp270387))) - (__tmp270381 - (let ((__tmp270383 - (let ((__tmp270384 - (let ((__tmp270385 + (cons '%#ref __tmp270317))) + (__tmp270311 + (let ((__tmp270313 + (let ((__tmp270314 + (let ((__tmp270315 (##structure-ref - _self265680_ + _self265610_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270385 '())))) + (cons __tmp270315 '())))) (declare (not safe)) - (cons '%#ref __tmp270384))) - (__tmp270382 + (cons '%#ref __tmp270314))) + (__tmp270312 (let () (declare (not safe)) - (cons _object265720_ '())))) + (cons _object265650_ '())))) (declare (not safe)) - (cons __tmp270383 __tmp270382)))) + (cons __tmp270313 __tmp270312)))) (declare (not safe)) - (cons __tmp270386 __tmp270381)))) + (cons __tmp270316 __tmp270311)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp270380)))) + __tmp270310)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270379 - _stx265681_)))))) - _hd265688265702_) + __tmp270309 + _stx265611_)))))) + _hd265618265632_) (let () (declare (not safe)) - (_g265684265694_ _g265685265697_))))) + (_g265614265624_ _g265615265627_))))) (let () (declare (not safe)) - (_g265684265694_ _g265685265697_)))))) + (_g265614265624_ _g265615265627_)))))) (declare (not safe)) - (_g265683265723_ _args265682_)))) + (_g265613265653_ _args265612_)))) (define gxc#!predicate::optimize-call::specialize - (lambda (__t270084) - (let ((__id270085 - (let ((__tmp270086 + (lambda (__t270014) + (let ((__id270015 + (let ((__tmp270016 (let () (declare (not safe)) - (class-slot-offset* __t270084 'id)))) - (if __tmp270086 __tmp270086 (error '"Unknown slot" 'id))))) - (lambda (_self265680_ _stx265681_ _args265682_) - (let* ((_g265684265694_ - (lambda (_g265685265691_) + (class-slot-offset __t270014 'id)))) + (if __tmp270016 __tmp270016 (error '"Unknown slot" 'id))))) + (lambda (_self265610_ _stx265611_ _args265612_) + (let* ((_g265614265624_ + (lambda (_g265615265621_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g265685265691_)))) - (_g265683265723_ - (lambda (_g265685265697_) + _g265615265621_)))) + (_g265613265653_ + (lambda (_g265615265627_) (if (let () (declare (not safe)) - (gx#stx-pair? _g265685265697_)) - (let ((_e265689265699_ + (gx#stx-pair? _g265615265627_)) + (let ((_e265619265629_ (let () (declare (not safe)) - (gx#stx-e _g265685265697_)))) - (let ((_hd265688265702_ + (gx#stx-e _g265615265627_)))) + (let ((_hd265618265632_ (let () (declare (not safe)) - (##car _e265689265699_))) - (_tl265687265704_ + (##car _e265619265629_))) + (_tl265617265634_ (let () (declare (not safe)) - (##cdr _e265689265699_)))) + (##cdr _e265619265629_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265687265704_)) - ((lambda (_L265707_) - (let* ((_klass265718_ - (let ((__tmp270400 + (gx#stx-null? _tl265617265634_)) + ((lambda (_L265637_) + (let* ((_klass265648_ + (let ((__tmp270330 (let () (declare (not safe)) (##unchecked-structure-ref - _self265680_ - __id270085 - __t270084 + _self265610_ + __id270015 + __t270014 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx265681_ - __tmp270400))) - (_object265720_ + _stx265611_ + __tmp270330))) + (_object265650_ (let () (declare (not safe)) - (gxc#compile-e__0 _L265707_)))) + (gxc#compile-e__0 _L265637_)))) (if (##structure-ref - _klass265718_ + _klass265648_ '8 gxc#!class::t '#f) - (let ((__tmp270416 - (let ((__tmp270417 - (let ((__tmp270419 - (let ((__tmp270420 + (let ((__tmp270346 + (let ((__tmp270347 + (let ((__tmp270349 + (let ((__tmp270350 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270421 + (let ((__tmp270351 (##structure-ref - _klass265718_ + _klass265648_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270421 '())))) + (cons __tmp270351 '())))) (declare (not safe)) - (cons '%#quote __tmp270420))) - (__tmp270418 + (cons '%#quote __tmp270350))) + (__tmp270348 (let () (declare (not safe)) - (cons _object265720_ '())))) + (cons _object265650_ '())))) (declare (not safe)) - (cons __tmp270419 __tmp270418)))) + (cons __tmp270349 __tmp270348)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp270417)))) + __tmp270347)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270416 - _stx265681_)) + __tmp270346 + _stx265611_)) (if (##structure-ref - _klass265718_ + _klass265648_ '7 gxc#!class::t '#f) - (let ((__tmp270410 - (let ((__tmp270411 - (let ((__tmp270413 + (let ((__tmp270340 + (let ((__tmp270341 + (let ((__tmp270343 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270414 - (let ((__tmp270415 + (let ((__tmp270344 + (let ((__tmp270345 (##structure-ref - _klass265718_ + _klass265648_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270415 '())))) + (cons __tmp270345 '())))) (declare (not safe)) - (cons '%#quote __tmp270414))) - (__tmp270412 + (cons '%#quote __tmp270344))) + (__tmp270342 (let () (declare (not safe)) - (cons _object265720_ '())))) + (cons _object265650_ '())))) (declare (not safe)) - (cons __tmp270413 __tmp270412)))) + (cons __tmp270343 __tmp270342)))) (declare (not safe)) - (cons '%#struct-instance? __tmp270411)))) + (cons '%#struct-instance? __tmp270341)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp270410 - _stx265681_)) - (let ((__tmp270401 - (let ((__tmp270402 - (let ((__tmp270408 + __tmp270340 + _stx265611_)) + (let ((__tmp270331 + (let ((__tmp270332 + (let ((__tmp270338 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270409 + (let ((__tmp270339 (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp270409))) - (__tmp270403 - (let ((__tmp270405 - (let ((__tmp270406 - (let ((__tmp270407 + (cons '%#ref __tmp270339))) + (__tmp270333 + (let ((__tmp270335 + (let ((__tmp270336 + (let ((__tmp270337 (let () (declare (not safe)) (##unchecked-structure-ref - _self265680_ - __id270085 - __t270084 + _self265610_ + __id270015 + __t270014 '#f)))) (declare (not safe)) - (cons __tmp270407 '())))) + (cons __tmp270337 '())))) (declare (not safe)) - (cons '%#ref __tmp270406))) - (__tmp270404 + (cons '%#ref __tmp270336))) + (__tmp270334 (let () (declare (not safe)) - (cons _object265720_ '())))) + (cons _object265650_ '())))) (declare (not safe)) - (cons __tmp270405 __tmp270404)))) + (cons __tmp270335 __tmp270334)))) (declare (not safe)) - (cons __tmp270408 __tmp270403)))) + (cons __tmp270338 __tmp270333)))) (declare (not safe)) - (cons '%#call __tmp270402)))) + (cons '%#call __tmp270332)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp270401 - _stx265681_)))))) - _hd265688265702_) + __tmp270331 + _stx265611_)))))) + _hd265618265632_) (let () (declare (not safe)) - (_g265684265694_ _g265685265697_))))) + (_g265614265624_ _g265615265627_))))) (let () (declare (not safe)) - (_g265684265694_ _g265685265697_)))))) + (_g265614265624_ _g265615265627_)))))) (declare (not safe)) - (_g265683265723_ _args265682_)))))) + (_g265613265653_ _args265612_)))))) (let () (declare (not safe)) (bind-specializer! @@ -600,240 +600,240 @@ gxc#!predicate::optimize-call '#f)) (define gxc#!constructor::optimize-call - (lambda (_self265414_ _stx265415_ _args265416_) - (let* ((_klass265418_ - (let ((__tmp270422 - (##structure-ref _self265414_ '1 gxc#!type::t '#f))) + (lambda (_self265344_ _stx265345_ _args265346_) + (let* ((_klass265348_ + (let ((__tmp270352 + (##structure-ref _self265344_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx265415_ __tmp270422))) - (_fields265420_ - (let ((__tmp270423 + (gxc#optimizer-resolve-class _stx265345_ __tmp270352))) + (_fields265350_ + (let ((__tmp270353 (length (##structure-ref - _klass265418_ + _klass265348_ '5 gxc#!class::t '#f)))) (declare (not safe)) - (fx+ __tmp270423 '1))) - (_args265422_ (map gxc#compile-e _args265416_))) - (let ((_$e265425_ - (##structure-ref _klass265418_ '6 gxc#!class::t '#f))) - (if _$e265425_ - ((lambda (_ctor265428_) - (let ((_$obj265430_ - (let ((__tmp270507 (gensym '__obj))) + (fx+ __tmp270353 '1))) + (_args265352_ (map gxc#compile-e _args265346_))) + (let ((_$e265355_ + (##structure-ref _klass265348_ '6 gxc#!class::t '#f))) + (if _$e265355_ + ((lambda (_ctor265358_) + (let ((_$obj265360_ + (let ((__tmp270437 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp270507))) - (_ctor-impl265431_ + (make-symbol__0 __tmp270437))) + (_ctor-impl265361_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass265418_ - _ctor265428_)))) - (let ((__tmp270508 - (let ((__tmp270509 - (let ((__tmp270574 - (let ((__tmp270575 - (let ((__tmp270588 + _klass265348_ + _ctor265358_)))) + (let ((__tmp270438 + (let ((__tmp270439 + (let ((__tmp270504 + (let ((__tmp270505 + (let ((__tmp270518 (let () (declare (not safe)) - (cons _$obj265430_ + (cons _$obj265360_ '()))) - (__tmp270576 - (let ((__tmp270577 - (let ((__tmp270578 + (__tmp270506 + (let ((__tmp270507 + (let ((__tmp270508 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270586 - (let ((__tmp270587 + (let ((__tmp270516 + (let ((__tmp270517 (let () (declare (not safe)) - (cons 'make-object* '())))) + (cons 'make-object '())))) (declare (not safe)) - (cons '%#ref __tmp270587))) - (__tmp270579 - (let ((__tmp270583 - (let ((__tmp270584 - (let ((__tmp270585 + (cons '%#ref __tmp270517))) + (__tmp270509 + (let ((__tmp270513 + (let ((__tmp270514 + (let ((__tmp270515 (##structure-ref - _self265414_ + _self265344_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270585 '())))) + (cons __tmp270515 '())))) (declare (not safe)) - (cons '%#ref __tmp270584))) - (__tmp270580 - (let ((__tmp270581 - (let ((__tmp270582 + (cons '%#ref __tmp270514))) + (__tmp270510 + (let ((__tmp270511 + (let ((__tmp270512 (let () (declare (not safe)) - (cons _fields265420_ + (cons _fields265350_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp270582)))) + __tmp270512)))) (declare (not safe)) - (cons __tmp270581 '())))) + (cons __tmp270511 '())))) (declare (not safe)) - (cons __tmp270583 __tmp270580)))) + (cons __tmp270513 __tmp270510)))) (declare (not safe)) - (cons __tmp270586 __tmp270579)))) + (cons __tmp270516 __tmp270509)))) (declare (not safe)) - (cons '%#call __tmp270578)))) + (cons '%#call __tmp270508)))) (declare (not safe)) - (cons __tmp270577 '())))) + (cons __tmp270507 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270588 - __tmp270576)))) + (cons __tmp270518 + __tmp270506)))) (declare (not safe)) - (cons __tmp270575 '()))) - (__tmp270510 - (let ((__tmp270511 - (let ((__tmp270512 - (let ((__tmp270516 - (if _ctor-impl265431_ + (cons __tmp270505 '()))) + (__tmp270440 + (let ((__tmp270441 + (let ((__tmp270442 + (let ((__tmp270446 + (if _ctor-impl265361_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270568 - (let ((__tmp270572 - (let ((__tmp270573 + (let ((__tmp270498 + (let ((__tmp270502 + (let ((__tmp270503 (let () (declare (not safe)) - (cons _ctor-impl265431_ + (cons _ctor-impl265361_ '())))) (declare (not safe)) - (cons '%#ref __tmp270573))) - (__tmp270569 - (let ((__tmp270570 - (let ((__tmp270571 + (cons '%#ref __tmp270503))) + (__tmp270499 + (let ((__tmp270500 + (let ((__tmp270501 (let () (declare (not safe)) - (cons _$obj265430_ + (cons _$obj265360_ '())))) (declare (not safe)) - (cons '%#ref __tmp270571)))) + (cons '%#ref __tmp270501)))) (declare (not safe)) - (cons __tmp270570 _args265422_)))) + (cons __tmp270500 _args265352_)))) (declare (not safe)) - (cons __tmp270572 __tmp270569)))) + (cons __tmp270502 __tmp270499)))) (declare (not safe)) - (cons '%#call __tmp270568)) - (let* ((_$ctor265433_ - (let ((__tmp270517 (gensym '__constructor))) + (cons '%#call __tmp270498)) + (let* ((_$ctor265363_ + (let ((__tmp270447 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp270517))) - (__tmp270518 - (let ((__tmp270553 - (let ((__tmp270554 - (let ((__tmp270567 + (make-symbol__0 __tmp270447))) + (__tmp270448 + (let ((__tmp270483 + (let ((__tmp270484 + (let ((__tmp270497 (let () (declare (not safe)) - (cons _$ctor265433_ + (cons _$ctor265363_ '()))) - (__tmp270555 - (let ((__tmp270556 - (let ((__tmp270557 + (__tmp270485 + (let ((__tmp270486 + (let ((__tmp270487 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270565 - (let ((__tmp270566 + (let ((__tmp270495 + (let ((__tmp270496 (let () (declare (not safe)) (cons 'find-method '())))) (declare (not safe)) - (cons '%#ref __tmp270566))) - (__tmp270558 - (let ((__tmp270562 - (let ((__tmp270563 - (let ((__tmp270564 + (cons '%#ref __tmp270496))) + (__tmp270488 + (let ((__tmp270492 + (let ((__tmp270493 + (let ((__tmp270494 (##structure-ref - _self265414_ + _self265344_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270564 '())))) + (cons __tmp270494 '())))) (declare (not safe)) - (cons '%#ref __tmp270563))) - (__tmp270559 - (let ((__tmp270560 - (let ((__tmp270561 + (cons '%#ref __tmp270493))) + (__tmp270489 + (let ((__tmp270490 + (let ((__tmp270491 (let () (declare (not safe)) - (cons _ctor265428_ + (cons _ctor265358_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp270561)))) + __tmp270491)))) (declare (not safe)) - (cons __tmp270560 '())))) + (cons __tmp270490 '())))) (declare (not safe)) - (cons __tmp270562 __tmp270559)))) + (cons __tmp270492 __tmp270489)))) (declare (not safe)) - (cons __tmp270565 __tmp270558)))) + (cons __tmp270495 __tmp270488)))) (declare (not safe)) - (cons '%#call __tmp270557)))) + (cons '%#call __tmp270487)))) (declare (not safe)) - (cons __tmp270556 '())))) + (cons __tmp270486 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270567 - __tmp270555)))) + (cons __tmp270497 + __tmp270485)))) (declare (not safe)) - (cons __tmp270554 '()))) - (__tmp270519 - (let ((__tmp270520 - (let ((__tmp270521 - (let ((__tmp270551 - (let ((__tmp270552 + (cons __tmp270484 '()))) + (__tmp270449 + (let ((__tmp270450 + (let ((__tmp270451 + (let ((__tmp270481 + (let ((__tmp270482 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$ctor265433_ '())))) + (cons _$ctor265363_ '())))) (declare (not safe)) - (cons '%#ref __tmp270552))) - (__tmp270522 - (let ((__tmp270544 - (let ((__tmp270545 - (let ((__tmp270549 - (let ((__tmp270550 + (cons '%#ref __tmp270482))) + (__tmp270452 + (let ((__tmp270474 + (let ((__tmp270475 + (let ((__tmp270479 + (let ((__tmp270480 (let () (declare (not safe)) - (cons _$ctor265433_ + (cons _$ctor265363_ '())))) (declare (not safe)) - (cons '%#ref __tmp270550))) - (__tmp270546 - (let ((__tmp270547 - (let ((__tmp270548 + (cons '%#ref __tmp270480))) + (__tmp270476 + (let ((__tmp270477 + (let ((__tmp270478 (let () (declare (not safe)) - (cons _$obj265430_ + (cons _$obj265360_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp270548)))) + __tmp270478)))) (declare (not safe)) - (cons __tmp270547 - _args265422_)))) + (cons __tmp270477 + _args265352_)))) (declare (not safe)) - (cons __tmp270549 __tmp270546)))) + (cons __tmp270479 __tmp270476)))) (declare (not safe)) - (cons '%#call __tmp270545))) - (__tmp270523 - (let ((__tmp270524 - (let ((__tmp270525 - (let ((__tmp270542 - (let ((__tmp270543 + (cons '%#call __tmp270475))) + (__tmp270453 + (let ((__tmp270454 + (let ((__tmp270455 + (let ((__tmp270472 + (let ((__tmp270473 (let () (declare (not safe)) @@ -843,434 +843,434 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp270543))) - (__tmp270526 - (let ((__tmp270540 - (let ((__tmp270541 + __tmp270473))) + (__tmp270456 + (let ((__tmp270470 + (let ((__tmp270471 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp270541))) - (__tmp270527 - (let ((__tmp270538 - (let ((__tmp270539 + (cons '%#quote __tmp270471))) + (__tmp270457 + (let ((__tmp270468 + (let ((__tmp270469 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp270539))) - (__tmp270528 - (let ((__tmp270535 - (let ((__tmp270536 - (let ((__tmp270537 + (cons '%#quote __tmp270469))) + (__tmp270458 + (let ((__tmp270465 + (let ((__tmp270466 + (let ((__tmp270467 (##structure-ref - _self265414_ + _self265344_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270537 '())))) + (cons __tmp270467 '())))) (declare (not safe)) - (cons '%#ref __tmp270536))) - (__tmp270529 - (let ((__tmp270533 - (let ((__tmp270534 + (cons '%#ref __tmp270466))) + (__tmp270459 + (let ((__tmp270463 + (let ((__tmp270464 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp270534))) - (__tmp270530 - (let ((__tmp270531 - (let ((__tmp270532 + (cons '%#quote __tmp270464))) + (__tmp270460 + (let ((__tmp270461 + (let ((__tmp270462 (let () (declare (not safe)) - (cons _ctor265428_ + (cons _ctor265358_ '())))) (declare (not safe)) - (cons '%#quote __tmp270532)))) + (cons '%#quote __tmp270462)))) (declare (not safe)) - (cons __tmp270531 '())))) + (cons __tmp270461 '())))) (declare (not safe)) - (cons __tmp270533 __tmp270530)))) + (cons __tmp270463 __tmp270460)))) (declare (not safe)) - (cons __tmp270535 __tmp270529)))) + (cons __tmp270465 __tmp270459)))) (declare (not safe)) - (cons __tmp270538 __tmp270528)))) + (cons __tmp270468 __tmp270458)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270540 - __tmp270527)))) + (cons __tmp270470 + __tmp270457)))) (declare (not safe)) - (cons __tmp270542 __tmp270526)))) + (cons __tmp270472 __tmp270456)))) (declare (not safe)) - (cons '%#call __tmp270525)))) + (cons '%#call __tmp270455)))) (declare (not safe)) - (cons __tmp270524 '())))) + (cons __tmp270454 '())))) (declare (not safe)) - (cons __tmp270544 __tmp270523)))) + (cons __tmp270474 __tmp270453)))) (declare (not safe)) - (cons __tmp270551 __tmp270522)))) + (cons __tmp270481 __tmp270452)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp270521)))) + (cons '%#if __tmp270451)))) (declare (not safe)) - (cons __tmp270520 '())))) + (cons __tmp270450 '())))) (declare (not safe)) - (cons __tmp270553 __tmp270519)))) + (cons __tmp270483 __tmp270449)))) (declare (not safe)) - (cons '%#let-values __tmp270518)))) - (__tmp270513 - (let ((__tmp270514 - (let ((__tmp270515 + (cons '%#let-values __tmp270448)))) + (__tmp270443 + (let ((__tmp270444 + (let ((__tmp270445 (let () (declare (not safe)) - (cons _$obj265430_ '())))) + (cons _$obj265360_ '())))) (declare (not safe)) - (cons '%#ref __tmp270515)))) + (cons '%#ref __tmp270445)))) (declare (not safe)) - (cons __tmp270514 '())))) + (cons __tmp270444 '())))) (declare (not safe)) - (cons __tmp270516 __tmp270513)))) + (cons __tmp270446 __tmp270443)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#begin - __tmp270512)))) + __tmp270442)))) (declare (not safe)) - (cons __tmp270511 '())))) + (cons __tmp270441 '())))) (declare (not safe)) - (cons __tmp270574 __tmp270510)))) + (cons __tmp270504 __tmp270440)))) (declare (not safe)) - (cons '%#let-values __tmp270509)))) + (cons '%#let-values __tmp270439)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270508 _stx265415_)))) - _$e265425_) - (if (##structure-ref _klass265418_ '7 gxc#!class::t '#f) - (if (fx= (length _args265422_) + (gxc#xform-wrap-source __tmp270438 _stx265345_)))) + _$e265355_) + (if (##structure-ref _klass265348_ '7 gxc#!class::t '#f) + (if (fx= (length _args265352_) (let () (declare (not safe)) - (fx- _fields265420_ '1))) - (let ((__tmp270499 - (let ((__tmp270500 - (let ((__tmp270505 - (let ((__tmp270506 + (fx- _fields265350_ '1))) + (let ((__tmp270429 + (let ((__tmp270430 + (let ((__tmp270435 + (let ((__tmp270436 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp270506))) - (__tmp270501 - (let ((__tmp270502 - (let ((__tmp270503 - (let ((__tmp270504 + (cons '%#ref __tmp270436))) + (__tmp270431 + (let ((__tmp270432 + (let ((__tmp270433 + (let ((__tmp270434 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self265414_ '1 gxc#!type::t '#f))) + (##structure-ref _self265344_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270504 '())))) + (cons __tmp270434 '())))) (declare (not safe)) - (cons '%#ref __tmp270503)))) + (cons '%#ref __tmp270433)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270502 - _args265422_)))) + (cons __tmp270432 + _args265352_)))) (declare (not safe)) - (cons __tmp270505 __tmp270501)))) + (cons __tmp270435 __tmp270431)))) (declare (not safe)) - (cons '%#call __tmp270500)))) + (cons '%#call __tmp270430)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270499 _stx265415_)) - (let ((__tmp270498 + (gxc#xform-wrap-source __tmp270429 _stx265345_)) + (let ((__tmp270428 (##structure-ref - _self265414_ + _self265344_ '1 gxc#!type::t '#f)) - (__tmp270497 + (__tmp270427 (length (##structure-ref - _klass265418_ + _klass265348_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx265415_ - __tmp270498 - __tmp270497))) - (let ((_$obj265435_ - (let ((__tmp270424 (gensym '__obj))) + _stx265345_ + __tmp270428 + __tmp270427))) + (let ((_$obj265365_ + (let ((__tmp270354 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp270424)))) - (let _lp265437_ ((_rest265439_ _args265422_) - (_initializers265440_ '())) - (let* ((___stx270161270162_ _rest265439_) - (_g265444265465_ + (make-symbol__0 __tmp270354)))) + (let _lp265367_ ((_rest265369_ _args265352_) + (_initializers265370_ '())) + (let* ((___stx270091270092_ _rest265369_) + (_g265374265395_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270161270162_))))) - (let ((___kont270163270164_ - (lambda (_L265519_ _L265520_ _L265521_) - (let* ((_slot265550_ + ___stx270091270092_))))) + (let ((___kont270093270094_ + (lambda (_L265449_ _L265450_ _L265451_) + (let* ((_slot265480_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L265521_)))) - (_off265552_ + (gx#stx-e _L265451_)))) + (_off265482_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass265418_ - _slot265550_)))) - (if _off265552_ - (let ((__tmp270426 - (let ((__tmp270427 + _klass265348_ + _slot265480_)))) + (if _off265482_ + (let ((__tmp270356 + (let ((__tmp270357 (let () (declare (not safe)) - (cons _off265552_ - _L265520_)))) + (cons _off265482_ + _L265450_)))) (declare (not safe)) - (cons __tmp270427 - _initializers265440_)))) + (cons __tmp270357 + _initializers265370_)))) (declare (not safe)) - (_lp265437_ _L265519_ __tmp270426)) - (let ((__tmp270425 + (_lp265367_ _L265449_ __tmp270356)) + (let ((__tmp270355 (##structure-ref - _self265414_ + _self265344_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx265415_ - __tmp270425 - _slot265550_)))))) - (___kont270165270166_ + _stx265345_ + __tmp270355 + _slot265480_)))))) + (___kont270095270096_ (lambda () - (let ((__tmp270428 - (let ((__tmp270429 - (let ((__tmp270452 - (let ((__tmp270453 - (let ((__tmp270466 + (let ((__tmp270358 + (let ((__tmp270359 + (let ((__tmp270382 + (let ((__tmp270383 + (let ((__tmp270396 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj265435_ '()))) - (__tmp270454 - (let ((__tmp270455 - (let ((__tmp270456 - (let ((__tmp270464 - (let ((__tmp270465 + (cons _$obj265365_ '()))) + (__tmp270384 + (let ((__tmp270385 + (let ((__tmp270386 + (let ((__tmp270394 + (let ((__tmp270395 (let () (declare (not safe)) - (cons 'make-object* + (cons 'make-object ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp270465))) - (__tmp270457 - (let ((__tmp270461 - (let ((__tmp270462 + __tmp270395))) + (__tmp270387 + (let ((__tmp270391 + (let ((__tmp270392 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270463 + (let ((__tmp270393 (##structure-ref - _self265414_ + _self265344_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270463 '())))) + (cons __tmp270393 '())))) (declare (not safe)) - (cons '%#ref __tmp270462))) - (__tmp270458 - (let ((__tmp270459 - (let ((__tmp270460 + (cons '%#ref __tmp270392))) + (__tmp270388 + (let ((__tmp270389 + (let ((__tmp270390 (let () (declare (not safe)) - (cons _fields265420_ '())))) + (cons _fields265350_ '())))) (declare (not safe)) - (cons '%#quote __tmp270460)))) + (cons '%#quote __tmp270390)))) (declare (not safe)) - (cons __tmp270459 '())))) + (cons __tmp270389 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270461 - __tmp270458)))) + (cons __tmp270391 + __tmp270388)))) (declare (not safe)) - (cons __tmp270464 __tmp270457)))) + (cons __tmp270394 __tmp270387)))) (declare (not safe)) - (cons '%#call __tmp270456)))) + (cons '%#call __tmp270386)))) (declare (not safe)) - (cons __tmp270455 '())))) + (cons __tmp270385 '())))) (declare (not safe)) - (cons __tmp270466 __tmp270454)))) + (cons __tmp270396 __tmp270384)))) (declare (not safe)) - (cons __tmp270453 '()))) - (__tmp270430 - (let ((__tmp270431 - (let ((__tmp270432 - (let ((__tmp270449 - (let ((__tmp270450 - (let ((__tmp270451 + (cons __tmp270383 '()))) + (__tmp270360 + (let ((__tmp270361 + (let ((__tmp270362 + (let ((__tmp270379 + (let ((__tmp270380 + (let ((__tmp270381 (let () (declare (not safe)) - (cons _$obj265435_ '())))) + (cons _$obj265365_ '())))) (declare (not safe)) - (cons '%#ref __tmp270451)))) + (cons '%#ref __tmp270381)))) (declare (not safe)) - (cons __tmp270450 '()))) - (__tmp270433 - (let ((__tmp270434 - (lambda (_i265479_ _r265480_) - (let ((__tmp270435 - (let ((__tmp270436 - (let ((__tmp270446 + (cons __tmp270380 '()))) + (__tmp270363 + (let ((__tmp270364 + (lambda (_i265409_ _r265410_) + (let ((__tmp270365 + (let ((__tmp270366 + (let ((__tmp270376 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270447 - (let ((__tmp270448 + (let ((__tmp270377 + (let ((__tmp270378 (##structure-ref - _self265414_ + _self265344_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270448 '())))) + (cons __tmp270378 '())))) (declare (not safe)) - (cons '%#ref __tmp270447))) - (__tmp270437 - (let ((__tmp270443 - (let ((__tmp270444 - (let ((__tmp270445 (car _i265479_))) + (cons '%#ref __tmp270377))) + (__tmp270367 + (let ((__tmp270373 + (let ((__tmp270374 + (let ((__tmp270375 (car _i265409_))) (declare (not safe)) - (cons __tmp270445 '())))) + (cons __tmp270375 '())))) (declare (not safe)) - (cons '%#quote __tmp270444))) - (__tmp270438 - (let ((__tmp270441 - (let ((__tmp270442 + (cons '%#quote __tmp270374))) + (__tmp270368 + (let ((__tmp270371 + (let ((__tmp270372 (let () (declare (not safe)) - (cons _$obj265435_ '())))) + (cons _$obj265365_ '())))) (declare (not safe)) - (cons '%#ref __tmp270442))) - (__tmp270439 - (let ((__tmp270440 (cdr _i265479_))) + (cons '%#ref __tmp270372))) + (__tmp270369 + (let ((__tmp270370 (cdr _i265409_))) (declare (not safe)) - (cons __tmp270440 '())))) + (cons __tmp270370 '())))) (declare (not safe)) - (cons __tmp270441 __tmp270439)))) + (cons __tmp270371 __tmp270369)))) (declare (not safe)) - (cons __tmp270443 __tmp270438)))) + (cons __tmp270373 __tmp270368)))) (declare (not safe)) - (cons __tmp270446 __tmp270437)))) + (cons __tmp270376 __tmp270367)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp270436)))) + (cons '%#struct-unchecked-set! __tmp270366)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270435 - _r265480_))))) + (cons __tmp270365 + _r265410_))))) (declare (not safe)) - (foldl1 __tmp270434 + (foldl1 __tmp270364 '() - _initializers265440_)))) + _initializers265370_)))) (declare (not safe)) - (foldr1 cons __tmp270449 __tmp270433)))) + (foldr1 cons __tmp270379 __tmp270363)))) (declare (not safe)) - (cons '%#begin __tmp270432)))) + (cons '%#begin __tmp270362)))) (declare (not safe)) - (cons __tmp270431 '())))) + (cons __tmp270361 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270452 - __tmp270430)))) + (cons __tmp270382 + __tmp270360)))) (declare (not safe)) - (cons '%#let-values __tmp270429)))) + (cons '%#let-values __tmp270359)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270428 - _stx265415_)))) - (___kont270167270168_ + __tmp270358 + _stx265345_)))) + (___kont270097270098_ (lambda () - (let ((__tmp270467 - (let ((__tmp270468 - (let ((__tmp270482 - (let ((__tmp270483 - (let ((__tmp270496 + (let ((__tmp270397 + (let ((__tmp270398 + (let ((__tmp270412 + (let ((__tmp270413 + (let ((__tmp270426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj265435_ '()))) - (__tmp270484 - (let ((__tmp270485 - (let ((__tmp270486 - (let ((__tmp270494 - (let ((__tmp270495 + (cons _$obj265365_ '()))) + (__tmp270414 + (let ((__tmp270415 + (let ((__tmp270416 + (let ((__tmp270424 + (let ((__tmp270425 (let () (declare (not safe)) - (cons 'make-object* + (cons 'make-object ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp270495))) - (__tmp270487 - (let ((__tmp270491 - (let ((__tmp270492 + __tmp270425))) + (__tmp270417 + (let ((__tmp270421 + (let ((__tmp270422 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270493 + (let ((__tmp270423 (##structure-ref - _self265414_ + _self265344_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270493 '())))) + (cons __tmp270423 '())))) (declare (not safe)) - (cons '%#ref __tmp270492))) - (__tmp270488 - (let ((__tmp270489 - (let ((__tmp270490 + (cons '%#ref __tmp270422))) + (__tmp270418 + (let ((__tmp270419 + (let ((__tmp270420 (let () (declare (not safe)) - (cons _fields265420_ '())))) + (cons _fields265350_ '())))) (declare (not safe)) - (cons '%#quote __tmp270490)))) + (cons '%#quote __tmp270420)))) (declare (not safe)) - (cons __tmp270489 '())))) + (cons __tmp270419 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270491 - __tmp270488)))) + (cons __tmp270421 + __tmp270418)))) (declare (not safe)) - (cons __tmp270494 __tmp270487)))) + (cons __tmp270424 __tmp270417)))) (declare (not safe)) - (cons '%#call __tmp270486)))) + (cons '%#call __tmp270416)))) (declare (not safe)) - (cons __tmp270485 '())))) + (cons __tmp270415 '())))) (declare (not safe)) - (cons __tmp270496 __tmp270484)))) + (cons __tmp270426 __tmp270414)))) (declare (not safe)) - (cons __tmp270483 '()))) - (__tmp270469 - (let ((__tmp270470 - (let ((__tmp270471 - (let ((__tmp270475 - (let ((__tmp270476 - (let ((__tmp270480 - (let ((__tmp270481 + (cons __tmp270413 '()))) + (__tmp270399 + (let ((__tmp270400 + (let ((__tmp270401 + (let ((__tmp270405 + (let ((__tmp270406 + (let ((__tmp270410 + (let ((__tmp270411 (let () (declare (not safe)) @@ -1280,1073 +1280,1073 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp270481))) - (__tmp270477 - (let ((__tmp270478 - (let ((__tmp270479 + __tmp270411))) + (__tmp270407 + (let ((__tmp270408 + (let ((__tmp270409 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj265435_ '())))) + (cons _$obj265365_ '())))) (declare (not safe)) - (cons '%#ref __tmp270479)))) + (cons '%#ref __tmp270409)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270478 - _args265422_)))) + (cons __tmp270408 + _args265352_)))) (declare (not safe)) - (cons __tmp270480 __tmp270477)))) + (cons __tmp270410 __tmp270407)))) (declare (not safe)) - (cons '%#call __tmp270476))) - (__tmp270472 - (let ((__tmp270473 - (let ((__tmp270474 + (cons '%#call __tmp270406))) + (__tmp270402 + (let ((__tmp270403 + (let ((__tmp270404 (let () (declare (not safe)) - (cons _$obj265435_ '())))) + (cons _$obj265365_ '())))) (declare (not safe)) - (cons '%#ref __tmp270474)))) + (cons '%#ref __tmp270404)))) (declare (not safe)) - (cons __tmp270473 '())))) + (cons __tmp270403 '())))) (declare (not safe)) - (cons __tmp270475 __tmp270472)))) + (cons __tmp270405 __tmp270402)))) (declare (not safe)) - (cons '%#begin __tmp270471)))) + (cons '%#begin __tmp270401)))) (declare (not safe)) - (cons __tmp270470 '())))) + (cons __tmp270400 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270482 - __tmp270469)))) + (cons __tmp270412 + __tmp270399)))) (declare (not safe)) - (cons '%#let-values __tmp270468)))) + (cons '%#let-values __tmp270398)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270467 - _stx265415_))))) - (let* ((_g265442265482_ + __tmp270397 + _stx265345_))))) + (let* ((_g265372265412_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? ___stx270161270162_)) - (___kont270165270166_) - (___kont270167270168_)))) - (___match270198270199_ - (lambda (_e265451265487_ - _hd265450265490_ - _tl265449265492_ - _e265454265495_ - _hd265453265498_ - _tl265452265500_ - _e265457265503_ - _hd265456265506_ - _tl265455265508_ - _e265460265511_ - _hd265459265514_ - _tl265458265516_) - (let ((_L265519_ _tl265458265516_) - (_L265520_ _hd265459265514_) - (_L265521_ _hd265456265506_)) + (gx#stx-null? ___stx270091270092_)) + (___kont270095270096_) + (___kont270097270098_)))) + (___match270128270129_ + (lambda (_e265381265417_ + _hd265380265420_ + _tl265379265422_ + _e265384265425_ + _hd265383265428_ + _tl265382265430_ + _e265387265433_ + _hd265386265436_ + _tl265385265438_ + _e265390265441_ + _hd265389265444_ + _tl265388265446_) + (let ((_L265449_ _tl265388265446_) + (_L265450_ _hd265389265444_) + (_L265451_ _hd265386265436_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L265521_)) - (___kont270163270164_ - _L265519_ - _L265520_ - _L265521_) - (___kont270167270168_)))))) + (gx#stx-keyword? _L265451_)) + (___kont270093270094_ + _L265449_ + _L265450_ + _L265451_) + (___kont270097270098_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx270161270162_)) - (let ((_e265451265487_ + (gx#stx-pair? ___stx270091270092_)) + (let ((_e265381265417_ (let () (declare (not safe)) - (gx#stx-e ___stx270161270162_)))) - (let ((_tl265449265492_ + (gx#stx-e ___stx270091270092_)))) + (let ((_tl265379265422_ (let () (declare (not safe)) - (##cdr _e265451265487_))) - (_hd265450265490_ + (##cdr _e265381265417_))) + (_hd265380265420_ (let () (declare (not safe)) - (##car _e265451265487_)))) + (##car _e265381265417_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd265450265490_)) - (let ((_e265454265495_ + (gx#stx-pair? _hd265380265420_)) + (let ((_e265384265425_ (let () (declare (not safe)) (gx#stx-e - _hd265450265490_)))) - (let ((_tl265452265500_ + _hd265380265420_)))) + (let ((_tl265382265430_ (let () (declare (not safe)) - (##cdr _e265454265495_))) - (_hd265453265498_ + (##cdr _e265384265425_))) + (_hd265383265428_ (let () (declare (not safe)) - (##car _e265454265495_)))) + (##car _e265384265425_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd265453265498_)) + _hd265383265428_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd265453265498_)) + _hd265383265428_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl265452265500_)) - (let ((_e265457265503_ + _tl265382265430_)) + (let ((_e265387265433_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl265452265500_)))) - (let ((_tl265455265508_ + (gx#stx-e _tl265382265430_)))) + (let ((_tl265385265438_ (let () (declare (not safe)) - (##cdr _e265457265503_))) - (_hd265456265506_ + (##cdr _e265387265433_))) + (_hd265386265436_ (let () (declare (not safe)) - (##car _e265457265503_)))) + (##car _e265387265433_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265455265508_)) + (gx#stx-null? _tl265385265438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265449265492_)) - (let ((_e265460265511_ + (gx#stx-pair? _tl265379265422_)) + (let ((_e265390265441_ (let () (declare (not safe)) - (gx#stx-e _tl265449265492_)))) - (let ((_tl265458265516_ + (gx#stx-e _tl265379265422_)))) + (let ((_tl265388265446_ (let () (declare (not safe)) - (##cdr _e265460265511_))) - (_hd265459265514_ + (##cdr _e265390265441_))) + (_hd265389265444_ (let () (declare (not safe)) - (##car _e265460265511_)))) - (___match270198270199_ - _e265451265487_ - _hd265450265490_ - _tl265449265492_ - _e265454265495_ - _hd265453265498_ - _tl265452265500_ - _e265457265503_ - _hd265456265506_ - _tl265455265508_ - _e265460265511_ - _hd265459265514_ - _tl265458265516_))) - (___kont270167270168_)) - (___kont270167270168_)))) - (___kont270167270168_)) - (___kont270167270168_)) + (##car _e265390265441_)))) + (___match270128270129_ + _e265381265417_ + _hd265380265420_ + _tl265379265422_ + _e265384265425_ + _hd265383265428_ + _tl265382265430_ + _e265387265433_ + _hd265386265436_ + _tl265385265438_ + _e265390265441_ + _hd265389265444_ + _tl265388265446_))) + (___kont270097270098_)) + (___kont270097270098_)))) + (___kont270097270098_)) + (___kont270097270098_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270167270168_)))) - (___kont270167270168_)))) + (___kont270097270098_)))) + (___kont270097270098_)))) (let () (declare (not safe)) - (_g265442265482_)))))))))))))) + (_g265372265412_)))))))))))))) (define gxc#!constructor::optimize-call::specialize - (lambda (__t270087) - (let ((__id270088 - (let ((__tmp270089 + (lambda (__t270017) + (let ((__id270018 + (let ((__tmp270019 (let () (declare (not safe)) - (class-slot-offset* __t270087 'id)))) - (if __tmp270089 __tmp270089 (error '"Unknown slot" 'id))))) - (lambda (_self265414_ _stx265415_ _args265416_) - (let* ((_klass265418_ - (let ((__tmp270589 + (class-slot-offset __t270017 'id)))) + (if __tmp270019 __tmp270019 (error '"Unknown slot" 'id))))) + (lambda (_self265344_ _stx265345_ _args265346_) + (let* ((_klass265348_ + (let ((__tmp270519 (let () (declare (not safe)) (##unchecked-structure-ref - _self265414_ - __id270088 - __t270087 + _self265344_ + __id270018 + __t270017 '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx265415_ __tmp270589))) - (_fields265420_ - (let ((__tmp270590 + (gxc#optimizer-resolve-class _stx265345_ __tmp270519))) + (_fields265350_ + (let ((__tmp270520 (length (##structure-ref - _klass265418_ + _klass265348_ '5 gxc#!class::t '#f)))) (declare (not safe)) - (fx+ __tmp270590 '1))) - (_args265422_ (map gxc#compile-e _args265416_))) - (let ((_$e265425_ - (##structure-ref _klass265418_ '6 gxc#!class::t '#f))) - (if _$e265425_ - ((lambda (_ctor265428_) - (let ((_$obj265430_ - (let ((__tmp270674 (gensym '__obj))) + (fx+ __tmp270520 '1))) + (_args265352_ (map gxc#compile-e _args265346_))) + (let ((_$e265355_ + (##structure-ref _klass265348_ '6 gxc#!class::t '#f))) + (if _$e265355_ + ((lambda (_ctor265358_) + (let ((_$obj265360_ + (let ((__tmp270604 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp270674))) - (_ctor-impl265431_ + (make-symbol__0 __tmp270604))) + (_ctor-impl265361_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass265418_ - _ctor265428_)))) - (let ((__tmp270675 - (let ((__tmp270676 - (let ((__tmp270741 - (let ((__tmp270742 - (let ((__tmp270755 + _klass265348_ + _ctor265358_)))) + (let ((__tmp270605 + (let ((__tmp270606 + (let ((__tmp270671 + (let ((__tmp270672 + (let ((__tmp270685 (let () (declare (not safe)) - (cons _$obj265430_ + (cons _$obj265360_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp270743 - (let ((__tmp270744 - (let ((__tmp270745 - (let ((__tmp270753 - (let ((__tmp270754 + (__tmp270673 + (let ((__tmp270674 + (let ((__tmp270675 + (let ((__tmp270683 + (let ((__tmp270684 (let () (declare (not safe)) - (cons 'make-object* '())))) + (cons 'make-object '())))) (declare (not safe)) - (cons '%#ref __tmp270754))) - (__tmp270746 - (let ((__tmp270750 - (let ((__tmp270751 - (let ((__tmp270752 + (cons '%#ref __tmp270684))) + (__tmp270676 + (let ((__tmp270680 + (let ((__tmp270681 + (let ((__tmp270682 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self265414_ - __id270088 - __t270087 + _self265344_ + __id270018 + __t270017 '#f)))) (declare (not safe)) - (cons __tmp270752 '())))) + (cons __tmp270682 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp270751))) - (__tmp270747 - (let ((__tmp270748 - (let ((__tmp270749 + (cons '%#ref __tmp270681))) + (__tmp270677 + (let ((__tmp270678 + (let ((__tmp270679 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _fields265420_ '())))) + (cons _fields265350_ '())))) (declare (not safe)) - (cons '%#quote __tmp270749)))) + (cons '%#quote __tmp270679)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270748 '())))) + (cons __tmp270678 '())))) (declare (not safe)) - (cons __tmp270750 __tmp270747)))) + (cons __tmp270680 __tmp270677)))) (declare (not safe)) - (cons __tmp270753 __tmp270746)))) + (cons __tmp270683 __tmp270676)))) (declare (not safe)) - (cons '%#call __tmp270745)))) + (cons '%#call __tmp270675)))) (declare (not safe)) - (cons __tmp270744 '())))) + (cons __tmp270674 '())))) (declare (not safe)) - (cons __tmp270755 __tmp270743)))) + (cons __tmp270685 __tmp270673)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270742 '()))) - (__tmp270677 - (let ((__tmp270678 - (let ((__tmp270679 - (let ((__tmp270683 + (cons __tmp270672 '()))) + (__tmp270607 + (let ((__tmp270608 + (let ((__tmp270609 + (let ((__tmp270613 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _ctor-impl265431_ - (let ((__tmp270735 - (let ((__tmp270739 - (let ((__tmp270740 + (if _ctor-impl265361_ + (let ((__tmp270665 + (let ((__tmp270669 + (let ((__tmp270670 (let () (declare (not safe)) - (cons _ctor-impl265431_ + (cons _ctor-impl265361_ '())))) (declare (not safe)) - (cons '%#ref __tmp270740))) - (__tmp270736 - (let ((__tmp270737 - (let ((__tmp270738 + (cons '%#ref __tmp270670))) + (__tmp270666 + (let ((__tmp270667 + (let ((__tmp270668 (let () (declare (not safe)) - (cons _$obj265430_ + (cons _$obj265360_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp270738)))) + (cons '%#ref __tmp270668)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270737 - _args265422_)))) + (cons __tmp270667 + _args265352_)))) (declare (not safe)) - (cons __tmp270739 __tmp270736)))) + (cons __tmp270669 __tmp270666)))) (declare (not safe)) - (cons '%#call __tmp270735)) - (let* ((_$ctor265433_ - (let ((__tmp270684 + (cons '%#call __tmp270665)) + (let* ((_$ctor265363_ + (let ((__tmp270614 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp270684))) - (__tmp270685 - (let ((__tmp270720 - (let ((__tmp270721 - (let ((__tmp270734 + (make-symbol__0 __tmp270614))) + (__tmp270615 + (let ((__tmp270650 + (let ((__tmp270651 + (let ((__tmp270664 (let () (declare (not safe)) - (cons _$ctor265433_ + (cons _$ctor265363_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp270722 - (let ((__tmp270723 - (let ((__tmp270724 - (let ((__tmp270732 - (let ((__tmp270733 + (__tmp270652 + (let ((__tmp270653 + (let ((__tmp270654 + (let ((__tmp270662 + (let ((__tmp270663 (let () (declare (not safe)) (cons 'find-method '())))) (declare (not safe)) - (cons '%#ref __tmp270733))) - (__tmp270725 - (let ((__tmp270729 - (let ((__tmp270730 - (let ((__tmp270731 + (cons '%#ref __tmp270663))) + (__tmp270655 + (let ((__tmp270659 + (let ((__tmp270660 + (let ((__tmp270661 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self265414_ - __id270088 - __t270087 + _self265344_ + __id270018 + __t270017 '#f)))) (declare (not safe)) - (cons __tmp270731 '())))) + (cons __tmp270661 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp270730))) - (__tmp270726 - (let ((__tmp270727 - (let ((__tmp270728 + (cons '%#ref __tmp270660))) + (__tmp270656 + (let ((__tmp270657 + (let ((__tmp270658 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _ctor265428_ '())))) + (cons _ctor265358_ '())))) (declare (not safe)) - (cons '%#quote __tmp270728)))) + (cons '%#quote __tmp270658)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270727 '())))) + (cons __tmp270657 '())))) (declare (not safe)) - (cons __tmp270729 __tmp270726)))) + (cons __tmp270659 __tmp270656)))) (declare (not safe)) - (cons __tmp270732 __tmp270725)))) + (cons __tmp270662 __tmp270655)))) (declare (not safe)) - (cons '%#call __tmp270724)))) + (cons '%#call __tmp270654)))) (declare (not safe)) - (cons __tmp270723 '())))) + (cons __tmp270653 '())))) (declare (not safe)) - (cons __tmp270734 __tmp270722)))) + (cons __tmp270664 __tmp270652)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270721 '()))) - (__tmp270686 - (let ((__tmp270687 - (let ((__tmp270688 - (let ((__tmp270718 + (cons __tmp270651 '()))) + (__tmp270616 + (let ((__tmp270617 + (let ((__tmp270618 + (let ((__tmp270648 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270719 + (let ((__tmp270649 (let () (declare (not safe)) - (cons _$ctor265433_ '())))) + (cons _$ctor265363_ '())))) (declare (not safe)) - (cons '%#ref __tmp270719))) - (__tmp270689 - (let ((__tmp270711 - (let ((__tmp270712 - (let ((__tmp270716 - (let ((__tmp270717 + (cons '%#ref __tmp270649))) + (__tmp270619 + (let ((__tmp270641 + (let ((__tmp270642 + (let ((__tmp270646 + (let ((__tmp270647 (let () (declare (not safe)) - (cons _$ctor265433_ + (cons _$ctor265363_ '())))) (declare (not safe)) - (cons '%#ref __tmp270717))) - (__tmp270713 - (let ((__tmp270714 - (let ((__tmp270715 + (cons '%#ref __tmp270647))) + (__tmp270643 + (let ((__tmp270644 + (let ((__tmp270645 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj265430_ '())))) + (cons _$obj265360_ '())))) (declare (not safe)) - (cons '%#ref __tmp270715)))) + (cons '%#ref __tmp270645)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270714 - _args265422_)))) + (cons __tmp270644 + _args265352_)))) (declare (not safe)) - (cons __tmp270716 __tmp270713)))) + (cons __tmp270646 __tmp270643)))) (declare (not safe)) - (cons '%#call __tmp270712))) - (__tmp270690 - (let ((__tmp270691 - (let ((__tmp270692 - (let ((__tmp270709 - (let ((__tmp270710 + (cons '%#call __tmp270642))) + (__tmp270620 + (let ((__tmp270621 + (let ((__tmp270622 + (let ((__tmp270639 + (let ((__tmp270640 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp270710))) - (__tmp270693 - (let ((__tmp270707 - (let ((__tmp270708 + (cons '%#ref __tmp270640))) + (__tmp270623 + (let ((__tmp270637 + (let ((__tmp270638 (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp270708))) - (__tmp270694 - (let ((__tmp270705 - (let ((__tmp270706 + (cons '%#quote __tmp270638))) + (__tmp270624 + (let ((__tmp270635 + (let ((__tmp270636 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp270706))) - (__tmp270695 - (let ((__tmp270702 - (let ((__tmp270703 - (let ((__tmp270704 + (cons '%#quote __tmp270636))) + (__tmp270625 + (let ((__tmp270632 + (let ((__tmp270633 + (let ((__tmp270634 (let () (declare (not safe)) (##unchecked-structure-ref - _self265414_ - __id270088 - __t270087 + _self265344_ + __id270018 + __t270017 '#f)))) (declare (not safe)) - (cons __tmp270704 '())))) + (cons __tmp270634 '())))) (declare (not safe)) - (cons '%#ref __tmp270703))) - (__tmp270696 - (let ((__tmp270700 - (let ((__tmp270701 + (cons '%#ref __tmp270633))) + (__tmp270626 + (let ((__tmp270630 + (let ((__tmp270631 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp270701))) - (__tmp270697 - (let ((__tmp270698 - (let ((__tmp270699 + (cons '%#quote __tmp270631))) + (__tmp270627 + (let ((__tmp270628 + (let ((__tmp270629 (let () (declare (not safe)) - (cons _ctor265428_ + (cons _ctor265358_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp270699)))) + __tmp270629)))) (declare (not safe)) - (cons __tmp270698 '())))) + (cons __tmp270628 '())))) (declare (not safe)) - (cons __tmp270700 __tmp270697)))) + (cons __tmp270630 __tmp270627)))) (declare (not safe)) - (cons __tmp270702 __tmp270696)))) + (cons __tmp270632 __tmp270626)))) (declare (not safe)) - (cons __tmp270705 __tmp270695)))) + (cons __tmp270635 __tmp270625)))) (declare (not safe)) - (cons __tmp270707 __tmp270694)))) + (cons __tmp270637 __tmp270624)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270709 - __tmp270693)))) + (cons __tmp270639 + __tmp270623)))) (declare (not safe)) - (cons '%#call __tmp270692)))) + (cons '%#call __tmp270622)))) (declare (not safe)) - (cons __tmp270691 '())))) + (cons __tmp270621 '())))) (declare (not safe)) - (cons __tmp270711 __tmp270690)))) + (cons __tmp270641 __tmp270620)))) (declare (not safe)) - (cons __tmp270718 __tmp270689)))) + (cons __tmp270648 __tmp270619)))) (declare (not safe)) - (cons '%#if __tmp270688)))) + (cons '%#if __tmp270618)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270687 '())))) + (cons __tmp270617 '())))) (declare (not safe)) - (cons __tmp270720 __tmp270686)))) + (cons __tmp270650 __tmp270616)))) (declare (not safe)) - (cons '%#let-values __tmp270685)))) - (__tmp270680 - (let ((__tmp270681 - (let ((__tmp270682 + (cons '%#let-values __tmp270615)))) + (__tmp270610 + (let ((__tmp270611 + (let ((__tmp270612 (let () (declare (not safe)) - (cons _$obj265430_ '())))) + (cons _$obj265360_ '())))) (declare (not safe)) - (cons '%#ref __tmp270682)))) + (cons '%#ref __tmp270612)))) (declare (not safe)) - (cons __tmp270681 '())))) + (cons __tmp270611 '())))) (declare (not safe)) - (cons __tmp270683 __tmp270680)))) + (cons __tmp270613 __tmp270610)))) (declare (not safe)) - (cons '%#begin __tmp270679)))) + (cons '%#begin __tmp270609)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270678 '())))) + (cons __tmp270608 '())))) (declare (not safe)) - (cons __tmp270741 __tmp270677)))) + (cons __tmp270671 __tmp270607)))) (declare (not safe)) - (cons '%#let-values __tmp270676)))) + (cons '%#let-values __tmp270606)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270675 _stx265415_)))) - _$e265425_) - (if (##structure-ref _klass265418_ '7 gxc#!class::t '#f) - (if (fx= (length _args265422_) + (gxc#xform-wrap-source __tmp270605 _stx265345_)))) + _$e265355_) + (if (##structure-ref _klass265348_ '7 gxc#!class::t '#f) + (if (fx= (length _args265352_) (let () (declare (not safe)) - (fx- _fields265420_ '1))) - (let ((__tmp270666 - (let ((__tmp270667 - (let ((__tmp270672 - (let ((__tmp270673 + (fx- _fields265350_ '1))) + (let ((__tmp270596 + (let ((__tmp270597 + (let ((__tmp270602 + (let ((__tmp270603 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp270673))) - (__tmp270668 - (let ((__tmp270669 - (let ((__tmp270670 - (let ((__tmp270671 + (cons '%#ref __tmp270603))) + (__tmp270598 + (let ((__tmp270599 + (let ((__tmp270600 + (let ((__tmp270601 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self265414_ - __id270088 - __t270087 + _self265344_ + __id270018 + __t270017 '#f)))) (declare (not safe)) - (cons __tmp270671 '())))) + (cons __tmp270601 '())))) (declare (not safe)) - (cons '%#ref __tmp270670)))) + (cons '%#ref __tmp270600)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270669 - _args265422_)))) + (cons __tmp270599 + _args265352_)))) (declare (not safe)) - (cons __tmp270672 __tmp270668)))) + (cons __tmp270602 __tmp270598)))) (declare (not safe)) - (cons '%#call __tmp270667)))) + (cons '%#call __tmp270597)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270666 _stx265415_)) - (let ((__tmp270665 + (gxc#xform-wrap-source __tmp270596 _stx265345_)) + (let ((__tmp270595 (let () (declare (not safe)) (##unchecked-structure-ref - _self265414_ - __id270088 - __t270087 + _self265344_ + __id270018 + __t270017 '#f))) - (__tmp270664 + (__tmp270594 (length (##structure-ref - _klass265418_ + _klass265348_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx265415_ - __tmp270665 - __tmp270664))) - (let ((_$obj265435_ - (let ((__tmp270591 (gensym '__obj))) + _stx265345_ + __tmp270595 + __tmp270594))) + (let ((_$obj265365_ + (let ((__tmp270521 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp270591)))) - (let _lp265437_ ((_rest265439_ _args265422_) - (_initializers265440_ '())) - (let* ((___stx270203270204_ _rest265439_) - (_g265444265465_ + (make-symbol__0 __tmp270521)))) + (let _lp265367_ ((_rest265369_ _args265352_) + (_initializers265370_ '())) + (let* ((___stx270133270134_ _rest265369_) + (_g265374265395_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270203270204_))))) - (let ((___kont270205270206_ - (lambda (_L265519_ _L265520_ _L265521_) - (let* ((_slot265550_ + ___stx270133270134_))))) + (let ((___kont270135270136_ + (lambda (_L265449_ _L265450_ _L265451_) + (let* ((_slot265480_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L265521_)))) - (_off265552_ + (gx#stx-e _L265451_)))) + (_off265482_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass265418_ - _slot265550_)))) - (if _off265552_ - (let ((__tmp270593 - (let ((__tmp270594 + _klass265348_ + _slot265480_)))) + (if _off265482_ + (let ((__tmp270523 + (let ((__tmp270524 (let () (declare (not safe)) - (cons _off265552_ + (cons _off265482_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L265520_)))) + _L265450_)))) (declare (not safe)) - (cons __tmp270594 _initializers265440_)))) + (cons __tmp270524 _initializers265370_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp265437_ - _L265519_ - __tmp270593)) - (let ((__tmp270592 + (_lp265367_ + _L265449_ + __tmp270523)) + (let ((__tmp270522 (let () (declare (not safe)) (##unchecked-structure-ref - _self265414_ - __id270088 - __t270087 + _self265344_ + __id270018 + __t270017 '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx265415_ - __tmp270592 - _slot265550_)))))) - (___kont270207270208_ + _stx265345_ + __tmp270522 + _slot265480_)))))) + (___kont270137270138_ (lambda () - (let ((__tmp270595 - (let ((__tmp270596 - (let ((__tmp270619 - (let ((__tmp270620 + (let ((__tmp270525 + (let ((__tmp270526 + (let ((__tmp270549 + (let ((__tmp270550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270633 + (let ((__tmp270563 (let () (declare (not safe)) - (cons _$obj265435_ '()))) - (__tmp270621 - (let ((__tmp270622 - (let ((__tmp270623 - (let ((__tmp270631 - (let ((__tmp270632 + (cons _$obj265365_ '()))) + (__tmp270551 + (let ((__tmp270552 + (let ((__tmp270553 + (let ((__tmp270561 + (let ((__tmp270562 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons 'make-object* '())))) + (cons 'make-object '())))) (declare (not safe)) - (cons '%#ref __tmp270632))) - (__tmp270624 - (let ((__tmp270628 - (let ((__tmp270629 - (let ((__tmp270630 + (cons '%#ref __tmp270562))) + (__tmp270554 + (let ((__tmp270558 + (let ((__tmp270559 + (let ((__tmp270560 (let () (declare (not safe)) (##unchecked-structure-ref - _self265414_ - __id270088 - __t270087 + _self265344_ + __id270018 + __t270017 '#f)))) (declare (not safe)) - (cons __tmp270630 '())))) + (cons __tmp270560 '())))) (declare (not safe)) - (cons '%#ref __tmp270629))) - (__tmp270625 - (let ((__tmp270626 - (let ((__tmp270627 + (cons '%#ref __tmp270559))) + (__tmp270555 + (let ((__tmp270556 + (let ((__tmp270557 (let () (declare (not safe)) - (cons _fields265420_ '())))) + (cons _fields265350_ '())))) (declare (not safe)) - (cons '%#quote __tmp270627)))) + (cons '%#quote __tmp270557)))) (declare (not safe)) - (cons __tmp270626 '())))) + (cons __tmp270556 '())))) (declare (not safe)) - (cons __tmp270628 __tmp270625)))) + (cons __tmp270558 __tmp270555)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270631 - __tmp270624)))) + (cons __tmp270561 + __tmp270554)))) (declare (not safe)) - (cons '%#call __tmp270623)))) + (cons '%#call __tmp270553)))) (declare (not safe)) - (cons __tmp270622 '())))) + (cons __tmp270552 '())))) (declare (not safe)) - (cons __tmp270633 __tmp270621)))) + (cons __tmp270563 __tmp270551)))) (declare (not safe)) - (cons __tmp270620 '()))) - (__tmp270597 - (let ((__tmp270598 - (let ((__tmp270599 - (let ((__tmp270616 - (let ((__tmp270617 - (let ((__tmp270618 + (cons __tmp270550 '()))) + (__tmp270527 + (let ((__tmp270528 + (let ((__tmp270529 + (let ((__tmp270546 + (let ((__tmp270547 + (let ((__tmp270548 (let () (declare (not safe)) - (cons _$obj265435_ + (cons _$obj265365_ '())))) (declare (not safe)) - (cons '%#ref __tmp270618)))) + (cons '%#ref __tmp270548)))) (declare (not safe)) - (cons __tmp270617 '()))) - (__tmp270600 - (let ((__tmp270601 - (lambda (_i265479_ _r265480_) - (let ((__tmp270602 - (let ((__tmp270603 - (let ((__tmp270613 + (cons __tmp270547 '()))) + (__tmp270530 + (let ((__tmp270531 + (lambda (_i265409_ _r265410_) + (let ((__tmp270532 + (let ((__tmp270533 + (let ((__tmp270543 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270614 - (let ((__tmp270615 + (let ((__tmp270544 + (let ((__tmp270545 (let () (declare (not safe)) (##unchecked-structure-ref - _self265414_ - __id270088 - __t270087 + _self265344_ + __id270018 + __t270017 '#f)))) (declare (not safe)) - (cons __tmp270615 '())))) + (cons __tmp270545 '())))) (declare (not safe)) - (cons '%#ref __tmp270614))) - (__tmp270604 - (let ((__tmp270610 - (let ((__tmp270611 - (let ((__tmp270612 - (car _i265479_))) + (cons '%#ref __tmp270544))) + (__tmp270534 + (let ((__tmp270540 + (let ((__tmp270541 + (let ((__tmp270542 + (car _i265409_))) (declare (not safe)) - (cons __tmp270612 '())))) + (cons __tmp270542 '())))) (declare (not safe)) - (cons '%#quote __tmp270611))) - (__tmp270605 - (let ((__tmp270608 - (let ((__tmp270609 + (cons '%#quote __tmp270541))) + (__tmp270535 + (let ((__tmp270538 + (let ((__tmp270539 (let () (declare (not safe)) - (cons _$obj265435_ + (cons _$obj265365_ '())))) (declare (not safe)) - (cons '%#ref __tmp270609))) - (__tmp270606 - (let ((__tmp270607 - (cdr _i265479_))) + (cons '%#ref __tmp270539))) + (__tmp270536 + (let ((__tmp270537 + (cdr _i265409_))) (declare (not safe)) - (cons __tmp270607 '())))) + (cons __tmp270537 '())))) (declare (not safe)) - (cons __tmp270608 __tmp270606)))) + (cons __tmp270538 __tmp270536)))) (declare (not safe)) - (cons __tmp270610 __tmp270605)))) + (cons __tmp270540 __tmp270535)))) (declare (not safe)) - (cons __tmp270613 __tmp270604)))) + (cons __tmp270543 __tmp270534)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp270603)))) + (cons '%#struct-unchecked-set! __tmp270533)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270602 - _r265480_))))) + (cons __tmp270532 + _r265410_))))) (declare (not safe)) - (foldl1 __tmp270601 + (foldl1 __tmp270531 '() - _initializers265440_)))) + _initializers265370_)))) (declare (not safe)) - (foldr1 cons __tmp270616 __tmp270600)))) + (foldr1 cons __tmp270546 __tmp270530)))) (declare (not safe)) - (cons '%#begin __tmp270599)))) + (cons '%#begin __tmp270529)))) (declare (not safe)) - (cons __tmp270598 '())))) + (cons __tmp270528 '())))) (declare (not safe)) - (cons __tmp270619 __tmp270597)))) + (cons __tmp270549 __tmp270527)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp270596)))) + __tmp270526)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270595 - _stx265415_)))) - (___kont270209270210_ + __tmp270525 + _stx265345_)))) + (___kont270139270140_ (lambda () - (let ((__tmp270634 - (let ((__tmp270635 - (let ((__tmp270649 - (let ((__tmp270650 + (let ((__tmp270564 + (let ((__tmp270565 + (let ((__tmp270579 + (let ((__tmp270580 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270663 + (let ((__tmp270593 (let () (declare (not safe)) - (cons _$obj265435_ '()))) - (__tmp270651 - (let ((__tmp270652 - (let ((__tmp270653 - (let ((__tmp270661 - (let ((__tmp270662 + (cons _$obj265365_ '()))) + (__tmp270581 + (let ((__tmp270582 + (let ((__tmp270583 + (let ((__tmp270591 + (let ((__tmp270592 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons 'make-object* '())))) + (cons 'make-object '())))) (declare (not safe)) - (cons '%#ref __tmp270662))) - (__tmp270654 - (let ((__tmp270658 - (let ((__tmp270659 - (let ((__tmp270660 + (cons '%#ref __tmp270592))) + (__tmp270584 + (let ((__tmp270588 + (let ((__tmp270589 + (let ((__tmp270590 (let () (declare (not safe)) (##unchecked-structure-ref - _self265414_ - __id270088 - __t270087 + _self265344_ + __id270018 + __t270017 '#f)))) (declare (not safe)) - (cons __tmp270660 '())))) + (cons __tmp270590 '())))) (declare (not safe)) - (cons '%#ref __tmp270659))) - (__tmp270655 - (let ((__tmp270656 - (let ((__tmp270657 + (cons '%#ref __tmp270589))) + (__tmp270585 + (let ((__tmp270586 + (let ((__tmp270587 (let () (declare (not safe)) - (cons _fields265420_ '())))) + (cons _fields265350_ '())))) (declare (not safe)) - (cons '%#quote __tmp270657)))) + (cons '%#quote __tmp270587)))) (declare (not safe)) - (cons __tmp270656 '())))) + (cons __tmp270586 '())))) (declare (not safe)) - (cons __tmp270658 __tmp270655)))) + (cons __tmp270588 __tmp270585)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270661 - __tmp270654)))) + (cons __tmp270591 + __tmp270584)))) (declare (not safe)) - (cons '%#call __tmp270653)))) + (cons '%#call __tmp270583)))) (declare (not safe)) - (cons __tmp270652 '())))) + (cons __tmp270582 '())))) (declare (not safe)) - (cons __tmp270663 __tmp270651)))) + (cons __tmp270593 __tmp270581)))) (declare (not safe)) - (cons __tmp270650 '()))) - (__tmp270636 - (let ((__tmp270637 - (let ((__tmp270638 - (let ((__tmp270642 - (let ((__tmp270643 - (let ((__tmp270647 - (let ((__tmp270648 + (cons __tmp270580 '()))) + (__tmp270566 + (let ((__tmp270567 + (let ((__tmp270568 + (let ((__tmp270572 + (let ((__tmp270573 + (let ((__tmp270577 + (let ((__tmp270578 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp270648))) - (__tmp270644 - (let ((__tmp270645 - (let ((__tmp270646 + (cons '%#ref __tmp270578))) + (__tmp270574 + (let ((__tmp270575 + (let ((__tmp270576 (let () (declare (not safe)) - (cons _$obj265435_ '())))) + (cons _$obj265365_ '())))) (declare (not safe)) - (cons '%#ref __tmp270646)))) + (cons '%#ref __tmp270576)))) (declare (not safe)) - (cons __tmp270645 _args265422_)))) + (cons __tmp270575 _args265352_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270647 - __tmp270644)))) + (cons __tmp270577 + __tmp270574)))) (declare (not safe)) - (cons '%#call __tmp270643))) - (__tmp270639 - (let ((__tmp270640 - (let ((__tmp270641 + (cons '%#call __tmp270573))) + (__tmp270569 + (let ((__tmp270570 + (let ((__tmp270571 (let () (declare (not safe)) - (cons _$obj265435_ + (cons _$obj265365_ '())))) (declare (not safe)) - (cons '%#ref __tmp270641)))) + (cons '%#ref __tmp270571)))) (declare (not safe)) - (cons __tmp270640 '())))) + (cons __tmp270570 '())))) (declare (not safe)) - (cons __tmp270642 __tmp270639)))) + (cons __tmp270572 __tmp270569)))) (declare (not safe)) - (cons '%#begin __tmp270638)))) + (cons '%#begin __tmp270568)))) (declare (not safe)) - (cons __tmp270637 '())))) + (cons __tmp270567 '())))) (declare (not safe)) - (cons __tmp270649 __tmp270636)))) + (cons __tmp270579 __tmp270566)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp270635)))) + __tmp270565)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270634 - _stx265415_))))) - (let* ((_g265442265482_ + __tmp270564 + _stx265345_))))) + (let* ((_g265372265412_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx270203270204_)) - (___kont270207270208_) - (___kont270209270210_)))) - (___match270240270241_ - (lambda (_e265451265487_ - _hd265450265490_ - _tl265449265492_ - _e265454265495_ - _hd265453265498_ - _tl265452265500_ - _e265457265503_ - _hd265456265506_ - _tl265455265508_ - _e265460265511_ - _hd265459265514_ - _tl265458265516_) - (let ((_L265519_ _tl265458265516_) - (_L265520_ _hd265459265514_) - (_L265521_ _hd265456265506_)) + ___stx270133270134_)) + (___kont270137270138_) + (___kont270139270140_)))) + (___match270170270171_ + (lambda (_e265381265417_ + _hd265380265420_ + _tl265379265422_ + _e265384265425_ + _hd265383265428_ + _tl265382265430_ + _e265387265433_ + _hd265386265436_ + _tl265385265438_ + _e265390265441_ + _hd265389265444_ + _tl265388265446_) + (let ((_L265449_ _tl265388265446_) + (_L265450_ _hd265389265444_) + (_L265451_ _hd265386265436_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L265521_)) - (___kont270205270206_ - _L265519_ - _L265520_ - _L265521_) - (___kont270209270210_)))))) + (gx#stx-keyword? _L265451_)) + (___kont270135270136_ + _L265449_ + _L265450_ + _L265451_) + (___kont270139270140_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx270203270204_)) - (let ((_e265451265487_ + (gx#stx-pair? ___stx270133270134_)) + (let ((_e265381265417_ (let () (declare (not safe)) (gx#stx-e - ___stx270203270204_)))) - (let ((_tl265449265492_ + ___stx270133270134_)))) + (let ((_tl265379265422_ (let () (declare (not safe)) - (##cdr _e265451265487_))) - (_hd265450265490_ + (##cdr _e265381265417_))) + (_hd265380265420_ (let () (declare (not safe)) - (##car _e265451265487_)))) + (##car _e265381265417_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd265450265490_)) - (let ((_e265454265495_ + _hd265380265420_)) + (let ((_e265384265425_ (let () (declare (not safe)) (gx#stx-e - _hd265450265490_)))) - (let ((_tl265452265500_ + _hd265380265420_)))) + (let ((_tl265382265430_ (let () (declare (not safe)) - (##cdr _e265454265495_))) - (_hd265453265498_ + (##cdr _e265384265425_))) + (_hd265383265428_ (let () (declare (not safe)) - (##car _e265454265495_)))) + (##car _e265384265425_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd265453265498_)) + _hd265383265428_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd265453265498_)) + _hd265383265428_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl265452265500_)) - (let ((_e265457265503_ + (gx#stx-pair? _tl265382265430_)) + (let ((_e265387265433_ (let () (declare (not safe)) - (gx#stx-e _tl265452265500_)))) - (let ((_tl265455265508_ + (gx#stx-e _tl265382265430_)))) + (let ((_tl265385265438_ (let () (declare (not safe)) - (##cdr _e265457265503_))) - (_hd265456265506_ + (##cdr _e265387265433_))) + (_hd265386265436_ (let () (declare (not safe)) - (##car _e265457265503_)))) + (##car _e265387265433_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265455265508_)) + (gx#stx-null? _tl265385265438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265449265492_)) - (let ((_e265460265511_ + (gx#stx-pair? _tl265379265422_)) + (let ((_e265390265441_ (let () (declare (not safe)) - (gx#stx-e _tl265449265492_)))) - (let ((_tl265458265516_ + (gx#stx-e _tl265379265422_)))) + (let ((_tl265388265446_ (let () (declare (not safe)) - (##cdr _e265460265511_))) - (_hd265459265514_ + (##cdr _e265390265441_))) + (_hd265389265444_ (let () (declare (not safe)) - (##car _e265460265511_)))) - (___match270240270241_ - _e265451265487_ - _hd265450265490_ - _tl265449265492_ - _e265454265495_ - _hd265453265498_ - _tl265452265500_ - _e265457265503_ - _hd265456265506_ - _tl265455265508_ - _e265460265511_ - _hd265459265514_ - _tl265458265516_))) - (___kont270209270210_)) - (___kont270209270210_)))) - (___kont270209270210_)) - (___kont270209270210_)) - (___kont270209270210_)))) + (##car _e265390265441_)))) + (___match270170270171_ + _e265381265417_ + _hd265380265420_ + _tl265379265422_ + _e265384265425_ + _hd265383265428_ + _tl265382265430_ + _e265387265433_ + _hd265386265436_ + _tl265385265438_ + _e265390265441_ + _hd265389265444_ + _tl265388265446_))) + (___kont270139270140_)) + (___kont270139270140_)))) + (___kont270139270140_)) + (___kont270139270140_)) + (___kont270139270140_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270209270210_)))) + (___kont270139270140_)))) (let () (declare (not safe)) - (_g265442265482_)))))))))))))))) + (_g265372265412_)))))))))))))))) (let () (declare (not safe)) (bind-specializer! @@ -2360,944 +2360,944 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_self265237_ _stx265238_ _args265239_) - (let* ((_g265241265251_ - (lambda (_g265242265248_) + (lambda (_self265167_ _stx265168_ _args265169_) + (let* ((_g265171265181_ + (lambda (_g265172265178_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g265242265248_)))) - (_g265240265289_ - (lambda (_g265242265254_) + _g265172265178_)))) + (_g265170265219_ + (lambda (_g265172265184_) (if (let () (declare (not safe)) - (gx#stx-pair? _g265242265254_)) - (let ((_e265246265256_ + (gx#stx-pair? _g265172265184_)) + (let ((_e265176265186_ (let () (declare (not safe)) - (gx#stx-e _g265242265254_)))) - (let ((_hd265245265259_ + (gx#stx-e _g265172265184_)))) + (let ((_hd265175265189_ (let () (declare (not safe)) - (##car _e265246265256_))) - (_tl265244265261_ + (##car _e265176265186_))) + (_tl265174265191_ (let () (declare (not safe)) - (##cdr _e265246265256_)))) + (##cdr _e265176265186_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265244265261_)) - ((lambda (_L265264_) - (let* ((_klass265275_ - (let ((__tmp270756 + (gx#stx-null? _tl265174265191_)) + ((lambda (_L265194_) + (let* ((_klass265205_ + (let ((__tmp270686 (##structure-ref - _self265237_ + _self265167_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx265238_ - __tmp270756))) - (_field265277_ - (let ((__tmp270757 + _stx265168_ + __tmp270686))) + (_field265207_ + (let ((__tmp270687 (##structure-ref - _self265237_ + _self265167_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass265275_ - __tmp270757))) - (_object265279_ + _klass265205_ + __tmp270687))) + (_object265209_ (let () (declare (not safe)) - (gxc#compile-e__0 _L265264_)))) + (gxc#compile-e__0 _L265194_)))) (if (##structure-ref - _klass265275_ + _klass265205_ '8 gxc#!class::t '#f) - (let ((__tmp270834 - (let ((__tmp270843 + (let ((__tmp270764 + (let ((__tmp270773 (if (##structure-ref - _self265237_ + _self265167_ '3 gxc#!accessor::t '#f) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp270835 - (let ((__tmp270840 - (let ((__tmp270841 + (__tmp270765 + (let ((__tmp270770 + (let ((__tmp270771 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270842 + (let ((__tmp270772 (##structure-ref - _self265237_ + _self265167_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270842 '())))) + (cons __tmp270772 '())))) (declare (not safe)) - (cons '%#ref __tmp270841))) - (__tmp270836 - (let ((__tmp270838 - (let ((__tmp270839 + (cons '%#ref __tmp270771))) + (__tmp270766 + (let ((__tmp270768 + (let ((__tmp270769 (let () (declare (not safe)) - (cons _field265277_ '())))) + (cons _field265207_ '())))) (declare (not safe)) - (cons '%#quote __tmp270839))) - (__tmp270837 + (cons '%#quote __tmp270769))) + (__tmp270767 (let () (declare (not safe)) - (cons _object265279_ '())))) + (cons _object265209_ '())))) (declare (not safe)) - (cons __tmp270838 __tmp270837)))) + (cons __tmp270768 __tmp270767)))) (declare (not safe)) - (cons __tmp270840 __tmp270836)))) + (cons __tmp270770 __tmp270766)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270843 - __tmp270835)))) + (cons __tmp270773 + __tmp270765)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270834 - _stx265238_)) + __tmp270764 + _stx265168_)) (if (##structure-ref - _klass265275_ + _klass265205_ '7 gxc#!class::t '#f) - (let ((__tmp270824 - (let ((__tmp270833 + (let ((__tmp270754 + (let ((__tmp270763 (if (##structure-ref - _self265237_ + _self265167_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp270825 - (let ((__tmp270830 - (let ((__tmp270831 + (__tmp270755 + (let ((__tmp270760 + (let ((__tmp270761 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270832 + (let ((__tmp270762 (##structure-ref - _self265237_ + _self265167_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270832 '())))) + (cons __tmp270762 '())))) (declare (not safe)) - (cons '%#ref __tmp270831))) - (__tmp270826 - (let ((__tmp270828 - (let ((__tmp270829 + (cons '%#ref __tmp270761))) + (__tmp270756 + (let ((__tmp270758 + (let ((__tmp270759 (let () (declare (not safe)) - (cons _field265277_ '())))) + (cons _field265207_ '())))) (declare (not safe)) - (cons '%#quote __tmp270829))) - (__tmp270827 + (cons '%#quote __tmp270759))) + (__tmp270757 (let () (declare (not safe)) - (cons _object265279_ '())))) + (cons _object265209_ '())))) (declare (not safe)) - (cons __tmp270828 __tmp270827)))) + (cons __tmp270758 __tmp270757)))) (declare (not safe)) - (cons __tmp270830 __tmp270826)))) + (cons __tmp270760 __tmp270756)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270833 - __tmp270825)))) + (cons __tmp270763 + __tmp270755)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270824 - _stx265238_)) - (let ((_$e265282_ - (let ((__tmp270758 + __tmp270754 + _stx265168_)) + (let ((_$e265212_ + (let ((__tmp270688 (##structure-ref - _self265237_ + _self265167_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass265275_ - __tmp270758)))) - (if _$e265282_ - ((lambda (_klass265285_) - (let ((__tmp270814 - (let ((__tmp270823 + _klass265205_ + __tmp270688)))) + (if _$e265212_ + ((lambda (_klass265215_) + (let ((__tmp270744 + (let ((__tmp270753 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self265237_ + _self265167_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp270815 - (let ((__tmp270820 - (let ((__tmp270821 - (let ((__tmp270822 + (__tmp270745 + (let ((__tmp270750 + (let ((__tmp270751 + (let ((__tmp270752 (##structure-ref - _self265237_ + _self265167_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270822 '())))) + (cons __tmp270752 '())))) (declare (not safe)) - (cons '%#ref __tmp270821))) - (__tmp270816 - (let ((__tmp270818 - (let ((__tmp270819 + (cons '%#ref __tmp270751))) + (__tmp270746 + (let ((__tmp270748 + (let ((__tmp270749 (let () (declare (not safe)) - (cons _field265277_ '())))) + (cons _field265207_ '())))) (declare (not safe)) - (cons '%#quote __tmp270819))) - (__tmp270817 + (cons '%#quote __tmp270749))) + (__tmp270747 (let () (declare (not safe)) - (cons _object265279_ '())))) + (cons _object265209_ '())))) (declare (not safe)) - (cons __tmp270818 __tmp270817)))) + (cons __tmp270748 __tmp270747)))) (declare (not safe)) - (cons __tmp270820 __tmp270816)))) + (cons __tmp270750 __tmp270746)))) (declare (not safe)) - (cons __tmp270823 __tmp270815)))) + (cons __tmp270753 __tmp270745)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270814 _stx265238_))) + (gxc#xform-wrap-source __tmp270744 _stx265168_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e265282_) + _$e265212_) (if (##structure-ref - _self265237_ + _self265167_ '3 gxc#!accessor::t '#f) - (let ((__tmp270768 - (let* ((_$obj265287_ + (let ((__tmp270698 + (let* ((_$obj265217_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270769 (gensym '__obj))) + (let ((__tmp270699 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp270769))) - (__tmp270770 - (let ((__tmp270810 - (let ((__tmp270811 - (let ((__tmp270813 + (make-symbol__0 __tmp270699))) + (__tmp270700 + (let ((__tmp270740 + (let ((__tmp270741 + (let ((__tmp270743 (let () (declare (not safe)) - (cons _$obj265287_ '()))) - (__tmp270812 + (cons _$obj265217_ '()))) + (__tmp270742 (let () (declare (not safe)) - (cons _object265279_ '())))) + (cons _object265209_ '())))) (declare (not safe)) - (cons __tmp270813 __tmp270812)))) + (cons __tmp270743 __tmp270742)))) (declare (not safe)) - (cons __tmp270811 '()))) - (__tmp270771 - (let ((__tmp270772 - (let ((__tmp270773 - (let ((__tmp270802 - (let ((__tmp270803 - (let ((__tmp270807 + (cons __tmp270741 '()))) + (__tmp270701 + (let ((__tmp270702 + (let ((__tmp270703 + (let ((__tmp270732 + (let ((__tmp270733 + (let ((__tmp270737 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270808 - (let ((__tmp270809 + (let ((__tmp270738 + (let ((__tmp270739 (##structure-ref - _klass265275_ + _klass265205_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270809 '())))) + (cons __tmp270739 '())))) (declare (not safe)) - (cons '%#quote __tmp270808))) - (__tmp270804 - (let ((__tmp270805 - (let ((__tmp270806 + (cons '%#quote __tmp270738))) + (__tmp270734 + (let ((__tmp270735 + (let ((__tmp270736 (let () (declare (not safe)) - (cons _$obj265287_ '())))) + (cons _$obj265217_ '())))) (declare (not safe)) - (cons '%#ref __tmp270806)))) + (cons '%#ref __tmp270736)))) (declare (not safe)) - (cons __tmp270805 '())))) + (cons __tmp270735 '())))) (declare (not safe)) - (cons __tmp270807 __tmp270804)))) + (cons __tmp270737 __tmp270734)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp270803))) - (__tmp270774 - (let ((__tmp270791 - (let ((__tmp270792 - (let ((__tmp270799 - (let ((__tmp270800 - (let ((__tmp270801 + (cons '%#struct-direct-instance? __tmp270733))) + (__tmp270704 + (let ((__tmp270721 + (let ((__tmp270722 + (let ((__tmp270729 + (let ((__tmp270730 + (let ((__tmp270731 (##structure-ref - _self265237_ + _self265167_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270801 '())))) + (cons __tmp270731 '())))) (declare (not safe)) - (cons '%#ref __tmp270800))) - (__tmp270793 - (let ((__tmp270797 - (let ((__tmp270798 + (cons '%#ref __tmp270730))) + (__tmp270723 + (let ((__tmp270727 + (let ((__tmp270728 (let () (declare (not safe)) - (cons _field265277_ + (cons _field265207_ '())))) (declare (not safe)) - (cons '%#quote __tmp270798))) - (__tmp270794 - (let ((__tmp270795 - (let ((__tmp270796 + (cons '%#quote __tmp270728))) + (__tmp270724 + (let ((__tmp270725 + (let ((__tmp270726 (let () (declare (not safe)) - (cons _$obj265287_ + (cons _$obj265217_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp270796)))) + __tmp270726)))) (declare (not safe)) - (cons __tmp270795 '())))) + (cons __tmp270725 '())))) (declare (not safe)) - (cons __tmp270797 __tmp270794)))) + (cons __tmp270727 __tmp270724)))) (declare (not safe)) - (cons __tmp270799 __tmp270793)))) + (cons __tmp270729 __tmp270723)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp270792))) - (__tmp270775 - (let ((__tmp270776 - (let ((__tmp270777 - (let ((__tmp270789 - (let ((__tmp270790 + (cons '%#struct-unchecked-ref __tmp270722))) + (__tmp270705 + (let ((__tmp270706 + (let ((__tmp270707 + (let ((__tmp270719 + (let ((__tmp270720 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp270790))) - (__tmp270778 - (let ((__tmp270786 - (let ((__tmp270787 - (let ((__tmp270788 + (cons '%#ref __tmp270720))) + (__tmp270708 + (let ((__tmp270716 + (let ((__tmp270717 + (let ((__tmp270718 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self265237_ '1 gxc#!type::t '#f))) + (##structure-ref _self265167_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270788 '())))) + (cons __tmp270718 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp270787))) - (__tmp270779 - (let ((__tmp270784 - (let ((__tmp270785 + __tmp270717))) + (__tmp270709 + (let ((__tmp270714 + (let ((__tmp270715 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj265287_ '())))) + (cons _$obj265217_ '())))) (declare (not safe)) - (cons '%#ref __tmp270785))) - (__tmp270780 - (let ((__tmp270781 - (let ((__tmp270782 - (let ((__tmp270783 + (cons '%#ref __tmp270715))) + (__tmp270710 + (let ((__tmp270711 + (let ((__tmp270712 + (let ((__tmp270713 (##structure-ref - _self265237_ + _self265167_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp270783 '())))) + (cons __tmp270713 '())))) (declare (not safe)) - (cons '%#quote __tmp270782)))) + (cons '%#quote __tmp270712)))) (declare (not safe)) - (cons __tmp270781 '())))) + (cons __tmp270711 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270784 - __tmp270780)))) + (cons __tmp270714 + __tmp270710)))) (declare (not safe)) - (cons __tmp270786 __tmp270779)))) + (cons __tmp270716 __tmp270709)))) (declare (not safe)) - (cons __tmp270789 __tmp270778)))) + (cons __tmp270719 __tmp270708)))) (declare (not safe)) - (cons '%#call __tmp270777)))) + (cons '%#call __tmp270707)))) (declare (not safe)) - (cons __tmp270776 '())))) + (cons __tmp270706 '())))) (declare (not safe)) - (cons __tmp270791 __tmp270775)))) + (cons __tmp270721 __tmp270705)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270802 - __tmp270774)))) + (cons __tmp270732 + __tmp270704)))) (declare (not safe)) - (cons '%#if __tmp270773)))) + (cons '%#if __tmp270703)))) (declare (not safe)) - (cons __tmp270772 '())))) + (cons __tmp270702 '())))) (declare (not safe)) - (cons __tmp270810 __tmp270771)))) + (cons __tmp270740 __tmp270701)))) (declare (not safe)) - (cons '%#let-values __tmp270770)))) + (cons '%#let-values __tmp270700)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270768 _stx265238_)) + (gxc#xform-wrap-source __tmp270698 _stx265168_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp270759 - (let ((__tmp270760 + (let ((__tmp270689 + (let ((__tmp270690 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270766 - (let ((__tmp270767 + (let ((__tmp270696 + (let ((__tmp270697 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp270767))) - (__tmp270761 - (let ((__tmp270762 - (let ((__tmp270763 - (let ((__tmp270764 - (let ((__tmp270765 + (cons '%#ref __tmp270697))) + (__tmp270691 + (let ((__tmp270692 + (let ((__tmp270693 + (let ((__tmp270694 + (let ((__tmp270695 (##structure-ref - _self265237_ + _self265167_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp270765 + (cons __tmp270695 '())))) (declare (not safe)) (cons '%#quote - __tmp270764)))) + __tmp270694)))) (declare (not safe)) - (cons __tmp270763 '())))) + (cons __tmp270693 '())))) (declare (not safe)) - (cons _object265279_ __tmp270762)))) + (cons _object265209_ __tmp270692)))) (declare (not safe)) - (cons __tmp270766 __tmp270761)))) + (cons __tmp270696 __tmp270691)))) (declare (not safe)) - (cons '%#call __tmp270760)))) + (cons '%#call __tmp270690)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270759 _stx265238_))))))))) + (gxc#xform-wrap-source __tmp270689 _stx265168_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd265245265259_) + _hd265175265189_) (let () (declare (not safe)) - (_g265241265251_ _g265242265254_))))) + (_g265171265181_ _g265172265184_))))) (let () (declare (not safe)) - (_g265241265251_ _g265242265254_)))))) + (_g265171265181_ _g265172265184_)))))) (declare (not safe)) - (_g265240265289_ _args265239_)))) + (_g265170265219_ _args265169_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__t270090) - (let ((__id270091 - (let ((__tmp270094 + (lambda (__t270020) + (let ((__id270021 + (let ((__tmp270024 (let () (declare (not safe)) - (class-slot-offset* __t270090 'id)))) - (if __tmp270094 __tmp270094 (error '"Unknown slot" 'id)))) - (__slot270092 - (let ((__tmp270095 + (class-slot-offset __t270020 'id)))) + (if __tmp270024 __tmp270024 (error '"Unknown slot" 'id)))) + (__slot270022 + (let ((__tmp270025 (let () (declare (not safe)) - (class-slot-offset* __t270090 'slot)))) - (if __tmp270095 __tmp270095 (error '"Unknown slot" 'slot)))) - (__checked?270093 - (let ((__tmp270096 + (class-slot-offset __t270020 'slot)))) + (if __tmp270025 __tmp270025 (error '"Unknown slot" 'slot)))) + (__checked?270023 + (let ((__tmp270026 (let () (declare (not safe)) - (class-slot-offset* __t270090 'checked?)))) - (if __tmp270096 - __tmp270096 + (class-slot-offset __t270020 'checked?)))) + (if __tmp270026 + __tmp270026 (error '"Unknown slot" 'checked?))))) - (lambda (_self265237_ _stx265238_ _args265239_) - (let* ((_g265241265251_ - (lambda (_g265242265248_) + (lambda (_self265167_ _stx265168_ _args265169_) + (let* ((_g265171265181_ + (lambda (_g265172265178_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g265242265248_)))) - (_g265240265289_ - (lambda (_g265242265254_) + _g265172265178_)))) + (_g265170265219_ + (lambda (_g265172265184_) (if (let () (declare (not safe)) - (gx#stx-pair? _g265242265254_)) - (let ((_e265246265256_ + (gx#stx-pair? _g265172265184_)) + (let ((_e265176265186_ (let () (declare (not safe)) - (gx#stx-e _g265242265254_)))) - (let ((_hd265245265259_ + (gx#stx-e _g265172265184_)))) + (let ((_hd265175265189_ (let () (declare (not safe)) - (##car _e265246265256_))) - (_tl265244265261_ + (##car _e265176265186_))) + (_tl265174265191_ (let () (declare (not safe)) - (##cdr _e265246265256_)))) + (##cdr _e265176265186_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265244265261_)) - ((lambda (_L265264_) - (let* ((_klass265275_ - (let ((__tmp270844 + (gx#stx-null? _tl265174265191_)) + ((lambda (_L265194_) + (let* ((_klass265205_ + (let ((__tmp270774 (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __id270091 - __t270090 + _self265167_ + __id270021 + __t270020 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx265238_ - __tmp270844))) - (_field265277_ - (let ((__tmp270845 + _stx265168_ + __tmp270774))) + (_field265207_ + (let ((__tmp270775 (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __slot270092 - __t270090 + _self265167_ + __slot270022 + __t270020 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass265275_ - __tmp270845))) - (_object265279_ + _klass265205_ + __tmp270775))) + (_object265209_ (let () (declare (not safe)) - (gxc#compile-e__0 _L265264_)))) + (gxc#compile-e__0 _L265194_)))) (if (##structure-ref - _klass265275_ + _klass265205_ '8 gxc#!class::t '#f) - (let ((__tmp270922 - (let ((__tmp270931 + (let ((__tmp270852 + (let ((__tmp270861 (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self265237_ - __checked?270093 - __t270090 + _self265167_ + __checked?270023 + __t270020 '#f)) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp270923 - (let ((__tmp270928 - (let ((__tmp270929 - (let ((__tmp270930 + (__tmp270853 + (let ((__tmp270858 + (let ((__tmp270859 + (let ((__tmp270860 (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __id270091 - __t270090 + _self265167_ + __id270021 + __t270020 '#f)))) (declare (not safe)) - (cons __tmp270930 '())))) + (cons __tmp270860 '())))) (declare (not safe)) - (cons '%#ref __tmp270929))) - (__tmp270924 - (let ((__tmp270926 - (let ((__tmp270927 + (cons '%#ref __tmp270859))) + (__tmp270854 + (let ((__tmp270856 + (let ((__tmp270857 (let () (declare (not safe)) - (cons _field265277_ '())))) + (cons _field265207_ '())))) (declare (not safe)) - (cons '%#quote __tmp270927))) - (__tmp270925 + (cons '%#quote __tmp270857))) + (__tmp270855 (let () (declare (not safe)) - (cons _object265279_ '())))) + (cons _object265209_ '())))) (declare (not safe)) - (cons __tmp270926 __tmp270925)))) + (cons __tmp270856 __tmp270855)))) (declare (not safe)) - (cons __tmp270928 __tmp270924)))) + (cons __tmp270858 __tmp270854)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270931 - __tmp270923)))) + (cons __tmp270861 + __tmp270853)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp270922 - _stx265238_)) + __tmp270852 + _stx265168_)) (if (##structure-ref - _klass265275_ + _klass265205_ '7 gxc#!class::t '#f) - (let ((__tmp270912 - (let ((__tmp270921 + (let ((__tmp270842 + (let ((__tmp270851 (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __checked?270093 - __t270090 + _self265167_ + __checked?270023 + __t270020 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp270913 - (let ((__tmp270918 - (let ((__tmp270919 - (let ((__tmp270920 + (__tmp270843 + (let ((__tmp270848 + (let ((__tmp270849 + (let ((__tmp270850 (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __id270091 - __t270090 + _self265167_ + __id270021 + __t270020 '#f)))) (declare (not safe)) - (cons __tmp270920 '())))) + (cons __tmp270850 '())))) (declare (not safe)) - (cons '%#ref __tmp270919))) - (__tmp270914 - (let ((__tmp270916 - (let ((__tmp270917 + (cons '%#ref __tmp270849))) + (__tmp270844 + (let ((__tmp270846 + (let ((__tmp270847 (let () (declare (not safe)) - (cons _field265277_ '())))) + (cons _field265207_ '())))) (declare (not safe)) - (cons '%#quote __tmp270917))) - (__tmp270915 + (cons '%#quote __tmp270847))) + (__tmp270845 (let () (declare (not safe)) - (cons _object265279_ '())))) + (cons _object265209_ '())))) (declare (not safe)) - (cons __tmp270916 __tmp270915)))) + (cons __tmp270846 __tmp270845)))) (declare (not safe)) - (cons __tmp270918 __tmp270914)))) + (cons __tmp270848 __tmp270844)))) (declare (not safe)) - (cons __tmp270921 __tmp270913)))) + (cons __tmp270851 __tmp270843)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp270912 - _stx265238_)) - (let ((_$e265282_ - (let ((__tmp270846 + __tmp270842 + _stx265168_)) + (let ((_$e265212_ + (let ((__tmp270776 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self265237_ - __slot270092 - __t270090 + _self265167_ + __slot270022 + __t270020 '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass265275_ __tmp270846)))) + (gxc#!class-slot-find-struct _klass265205_ __tmp270776)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e265282_ - ((lambda (_klass265285_) - (let ((__tmp270902 - (let ((__tmp270911 + (if _$e265212_ + ((lambda (_klass265215_) + (let ((__tmp270832 + (let ((__tmp270841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __checked?270093 - __t270090 + _self265167_ + __checked?270023 + __t270020 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp270903 - (let ((__tmp270908 - (let ((__tmp270909 - (let ((__tmp270910 + (__tmp270833 + (let ((__tmp270838 + (let ((__tmp270839 + (let ((__tmp270840 (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __id270091 - __t270090 + _self265167_ + __id270021 + __t270020 '#f)))) (declare (not safe)) - (cons __tmp270910 '())))) + (cons __tmp270840 '())))) (declare (not safe)) - (cons '%#ref __tmp270909))) - (__tmp270904 - (let ((__tmp270906 - (let ((__tmp270907 + (cons '%#ref __tmp270839))) + (__tmp270834 + (let ((__tmp270836 + (let ((__tmp270837 (let () (declare (not safe)) - (cons _field265277_ + (cons _field265207_ '())))) (declare (not safe)) - (cons '%#quote __tmp270907))) - (__tmp270905 + (cons '%#quote __tmp270837))) + (__tmp270835 (let () (declare (not safe)) - (cons _object265279_ '())))) + (cons _object265209_ '())))) (declare (not safe)) - (cons __tmp270906 __tmp270905)))) + (cons __tmp270836 __tmp270835)))) (declare (not safe)) - (cons __tmp270908 __tmp270904)))) + (cons __tmp270838 __tmp270834)))) (declare (not safe)) - (cons __tmp270911 __tmp270903)))) + (cons __tmp270841 __tmp270833)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270902 _stx265238_))) - _$e265282_) + (gxc#xform-wrap-source __tmp270832 _stx265168_))) + _$e265212_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __checked?270093 - __t270090 + _self265167_ + __checked?270023 + __t270020 '#f)) - (let ((__tmp270856 - (let* ((_$obj265287_ + (let ((__tmp270786 + (let* ((_$obj265217_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270857 (gensym '__obj))) + (let ((__tmp270787 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp270857))) - (__tmp270858 - (let ((__tmp270898 - (let ((__tmp270899 - (let ((__tmp270901 + (make-symbol__0 __tmp270787))) + (__tmp270788 + (let ((__tmp270828 + (let ((__tmp270829 + (let ((__tmp270831 (let () (declare (not safe)) - (cons _$obj265287_ + (cons _$obj265217_ '()))) - (__tmp270900 + (__tmp270830 (let () (declare (not safe)) - (cons _object265279_ + (cons _object265209_ '())))) (declare (not safe)) - (cons __tmp270901 - __tmp270900)))) + (cons __tmp270831 + __tmp270830)))) (declare (not safe)) - (cons __tmp270899 '()))) - (__tmp270859 - (let ((__tmp270860 - (let ((__tmp270861 - (let ((__tmp270890 - (let ((__tmp270891 + (cons __tmp270829 '()))) + (__tmp270789 + (let ((__tmp270790 + (let ((__tmp270791 + (let ((__tmp270820 + (let ((__tmp270821 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270895 - (let ((__tmp270896 - (let ((__tmp270897 + (let ((__tmp270825 + (let ((__tmp270826 + (let ((__tmp270827 (##structure-ref - _klass265275_ + _klass265205_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270897 '())))) + (cons __tmp270827 '())))) (declare (not safe)) - (cons '%#quote __tmp270896))) - (__tmp270892 - (let ((__tmp270893 - (let ((__tmp270894 + (cons '%#quote __tmp270826))) + (__tmp270822 + (let ((__tmp270823 + (let ((__tmp270824 (let () (declare (not safe)) - (cons _$obj265287_ '())))) + (cons _$obj265217_ '())))) (declare (not safe)) - (cons '%#ref __tmp270894)))) + (cons '%#ref __tmp270824)))) (declare (not safe)) - (cons __tmp270893 '())))) + (cons __tmp270823 '())))) (declare (not safe)) - (cons __tmp270895 __tmp270892)))) + (cons __tmp270825 __tmp270822)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp270891))) - (__tmp270862 - (let ((__tmp270879 - (let ((__tmp270880 - (let ((__tmp270887 - (let ((__tmp270888 - (let ((__tmp270889 + (cons '%#struct-direct-instance? __tmp270821))) + (__tmp270792 + (let ((__tmp270809 + (let ((__tmp270810 + (let ((__tmp270817 + (let ((__tmp270818 + (let ((__tmp270819 (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __id270091 - __t270090 + _self265167_ + __id270021 + __t270020 '#f)))) (declare (not safe)) - (cons __tmp270889 '())))) + (cons __tmp270819 '())))) (declare (not safe)) - (cons '%#ref __tmp270888))) - (__tmp270881 - (let ((__tmp270885 - (let ((__tmp270886 + (cons '%#ref __tmp270818))) + (__tmp270811 + (let ((__tmp270815 + (let ((__tmp270816 (let () (declare (not safe)) - (cons _field265277_ + (cons _field265207_ '())))) (declare (not safe)) - (cons '%#quote __tmp270886))) - (__tmp270882 - (let ((__tmp270883 - (let ((__tmp270884 + (cons '%#quote __tmp270816))) + (__tmp270812 + (let ((__tmp270813 + (let ((__tmp270814 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj265287_ '())))) + (cons _$obj265217_ '())))) (declare (not safe)) - (cons '%#ref __tmp270884)))) + (cons '%#ref __tmp270814)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270883 '())))) + (cons __tmp270813 '())))) (declare (not safe)) - (cons __tmp270885 __tmp270882)))) + (cons __tmp270815 __tmp270812)))) (declare (not safe)) - (cons __tmp270887 __tmp270881)))) + (cons __tmp270817 __tmp270811)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp270880))) - (__tmp270863 - (let ((__tmp270864 - (let ((__tmp270865 - (let ((__tmp270877 - (let ((__tmp270878 + (cons '%#struct-unchecked-ref __tmp270810))) + (__tmp270793 + (let ((__tmp270794 + (let ((__tmp270795 + (let ((__tmp270807 + (let ((__tmp270808 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp270878))) - (__tmp270866 - (let ((__tmp270874 - (let ((__tmp270875 - (let ((__tmp270876 + (cons '%#ref __tmp270808))) + (__tmp270796 + (let ((__tmp270804 + (let ((__tmp270805 + (let ((__tmp270806 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __id270091 - __t270090 + _self265167_ + __id270021 + __t270020 '#f)))) (declare (not safe)) - (cons __tmp270876 '())))) + (cons __tmp270806 '())))) (declare (not safe)) - (cons '%#ref __tmp270875))) - (__tmp270867 - (let ((__tmp270872 - (let ((__tmp270873 + (cons '%#ref __tmp270805))) + (__tmp270797 + (let ((__tmp270802 + (let ((__tmp270803 (let () (declare (not safe)) - (cons _$obj265287_ '())))) + (cons _$obj265217_ '())))) (declare (not safe)) - (cons '%#ref __tmp270873))) - (__tmp270868 - (let ((__tmp270869 - (let ((__tmp270870 - (let ((__tmp270871 + (cons '%#ref __tmp270803))) + (__tmp270798 + (let ((__tmp270799 + (let ((__tmp270800 + (let ((__tmp270801 (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __slot270092 - __t270090 + _self265167_ + __slot270022 + __t270020 '#f)))) (declare (not safe)) - (cons __tmp270871 '())))) + (cons __tmp270801 '())))) (declare (not safe)) - (cons '%#quote __tmp270870)))) + (cons '%#quote __tmp270800)))) (declare (not safe)) - (cons __tmp270869 '())))) + (cons __tmp270799 '())))) (declare (not safe)) - (cons __tmp270872 __tmp270868)))) + (cons __tmp270802 __tmp270798)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270874 - __tmp270867)))) + (cons __tmp270804 + __tmp270797)))) (declare (not safe)) - (cons __tmp270877 __tmp270866)))) + (cons __tmp270807 __tmp270796)))) (declare (not safe)) - (cons '%#call __tmp270865)))) + (cons '%#call __tmp270795)))) (declare (not safe)) - (cons __tmp270864 '())))) + (cons __tmp270794 '())))) (declare (not safe)) - (cons __tmp270879 __tmp270863)))) + (cons __tmp270809 __tmp270793)))) (declare (not safe)) - (cons __tmp270890 __tmp270862)))) + (cons __tmp270820 __tmp270792)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp270861)))) + (cons '%#if __tmp270791)))) (declare (not safe)) - (cons __tmp270860 '())))) + (cons __tmp270790 '())))) (declare (not safe)) - (cons __tmp270898 __tmp270859)))) + (cons __tmp270828 __tmp270789)))) (declare (not safe)) - (cons '%#let-values __tmp270858)))) + (cons '%#let-values __tmp270788)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270856 _stx265238_)) - (let ((__tmp270847 - (let ((__tmp270848 - (let ((__tmp270854 - (let ((__tmp270855 + (gxc#xform-wrap-source __tmp270786 _stx265168_)) + (let ((__tmp270777 + (let ((__tmp270778 + (let ((__tmp270784 + (let ((__tmp270785 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp270855))) - (__tmp270849 - (let ((__tmp270850 - (let ((__tmp270851 - (let ((__tmp270852 - (let ((__tmp270853 + (cons '%#ref __tmp270785))) + (__tmp270779 + (let ((__tmp270780 + (let ((__tmp270781 + (let ((__tmp270782 + (let ((__tmp270783 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self265237_ - __slot270092 - __t270090 + _self265167_ + __slot270022 + __t270020 '#f)))) (declare (not safe)) - (cons __tmp270853 '())))) + (cons __tmp270783 '())))) (declare (not safe)) - (cons '%#quote __tmp270852)))) + (cons '%#quote __tmp270782)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270851 '())))) + (cons __tmp270781 '())))) (declare (not safe)) - (cons _object265279_ __tmp270850)))) + (cons _object265209_ __tmp270780)))) (declare (not safe)) - (cons __tmp270854 __tmp270849)))) + (cons __tmp270784 __tmp270779)))) (declare (not safe)) - (cons '%#call __tmp270848)))) + (cons '%#call __tmp270778)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270847 _stx265238_))))))))) + (gxc#xform-wrap-source __tmp270777 _stx265168_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd265245265259_) + _hd265175265189_) (let () (declare (not safe)) - (_g265241265251_ _g265242265254_))))) + (_g265171265181_ _g265172265184_))))) (let () (declare (not safe)) - (_g265241265251_ _g265242265254_)))))) + (_g265171265181_ _g265172265184_)))))) (declare (not safe)) - (_g265240265289_ _args265239_)))))) + (_g265170265219_ _args265169_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3311,363 +3311,363 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_self265042_ _stx265043_ _args265044_) - (let* ((_g265046265060_ - (lambda (_g265047265057_) + (lambda (_self264972_ _stx264973_ _args264974_) + (let* ((_g264976264990_ + (lambda (_g264977264987_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g265047265057_)))) - (_g265045265112_ - (lambda (_g265047265063_) + _g264977264987_)))) + (_g264975265042_ + (lambda (_g264977264993_) (if (let () (declare (not safe)) - (gx#stx-pair? _g265047265063_)) - (let ((_e265052265065_ + (gx#stx-pair? _g264977264993_)) + (let ((_e264982264995_ (let () (declare (not safe)) - (gx#stx-e _g265047265063_)))) - (let ((_hd265051265068_ + (gx#stx-e _g264977264993_)))) + (let ((_hd264981264998_ (let () (declare (not safe)) - (##car _e265052265065_))) - (_tl265050265070_ + (##car _e264982264995_))) + (_tl264980265000_ (let () (declare (not safe)) - (##cdr _e265052265065_)))) + (##cdr _e264982264995_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265050265070_)) - (let ((_e265055265073_ + (gx#stx-pair? _tl264980265000_)) + (let ((_e264985265003_ (let () (declare (not safe)) - (gx#stx-e _tl265050265070_)))) - (let ((_hd265054265076_ + (gx#stx-e _tl264980265000_)))) + (let ((_hd264984265006_ (let () (declare (not safe)) - (##car _e265055265073_))) - (_tl265053265078_ + (##car _e264985265003_))) + (_tl264983265008_ (let () (declare (not safe)) - (##cdr _e265055265073_)))) + (##cdr _e264985265003_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265053265078_)) - ((lambda (_L265081_ _L265082_) - (let* ((_klass265096_ - (let ((__tmp270932 + (gx#stx-null? _tl264983265008_)) + ((lambda (_L265011_ _L265012_) + (let* ((_klass265026_ + (let ((__tmp270862 (##structure-ref - _self265042_ + _self264972_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx265043_ - __tmp270932))) - (_field265098_ - (let ((__tmp270933 + _stx264973_ + __tmp270862))) + (_field265028_ + (let ((__tmp270863 (##structure-ref - _self265042_ + _self264972_ '2 gxc#!mutator::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass265096_ - __tmp270933))) - (_object265100_ + _klass265026_ + __tmp270863))) + (_object265030_ (let () (declare (not safe)) (gxc#compile-e__0 - _L265082_))) - (_value265102_ + _L265012_))) + (_value265032_ (let () (declare (not safe)) (gxc#compile-e__0 - _L265081_)))) + _L265011_)))) (if (##structure-ref - _klass265096_ + _klass265026_ '8 gxc#!class::t '#f) - (let ((__tmp271015 - (let ((__tmp271025 + (let ((__tmp270945 + (let ((__tmp270955 (if (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _self265042_ + _self264972_ '3 gxc#!mutator::t '#f) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp271016 - (let ((__tmp271022 - (let ((__tmp271023 - (let ((__tmp271024 + (__tmp270946 + (let ((__tmp270952 + (let ((__tmp270953 + (let ((__tmp270954 (##structure-ref - _self265042_ + _self264972_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp271024 '())))) + (cons __tmp270954 '())))) (declare (not safe)) - (cons '%#ref __tmp271023))) - (__tmp271017 - (let ((__tmp271020 - (let ((__tmp271021 + (cons '%#ref __tmp270953))) + (__tmp270947 + (let ((__tmp270950 + (let ((__tmp270951 (let () (declare (not safe)) - (cons _field265098_ '())))) + (cons _field265028_ '())))) (declare (not safe)) - (cons '%#quote __tmp271021))) - (__tmp271018 - (let ((__tmp271019 + (cons '%#quote __tmp270951))) + (__tmp270948 + (let ((__tmp270949 (let () (declare (not safe)) - (cons _value265102_ '())))) + (cons _value265032_ '())))) (declare (not safe)) - (cons _object265100_ __tmp271019)))) + (cons _object265030_ __tmp270949)))) (declare (not safe)) - (cons __tmp271020 __tmp271018)))) + (cons __tmp270950 __tmp270948)))) (declare (not safe)) - (cons __tmp271022 __tmp271017)))) + (cons __tmp270952 __tmp270947)))) (declare (not safe)) - (cons __tmp271025 __tmp271016)))) + (cons __tmp270955 __tmp270946)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp271015 - _stx265043_)) + __tmp270945 + _stx264973_)) (if (##structure-ref - _klass265096_ + _klass265026_ '7 gxc#!class::t '#f) - (let ((__tmp271004 - (let ((__tmp271014 + (let ((__tmp270934 + (let ((__tmp270944 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self265042_ + _self264972_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp271005 - (let ((__tmp271011 - (let ((__tmp271012 - (let ((__tmp271013 + (__tmp270935 + (let ((__tmp270941 + (let ((__tmp270942 + (let ((__tmp270943 (##structure-ref - _self265042_ + _self264972_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp271013 '())))) + (cons __tmp270943 '())))) (declare (not safe)) - (cons '%#ref __tmp271012))) - (__tmp271006 - (let ((__tmp271009 - (let ((__tmp271010 + (cons '%#ref __tmp270942))) + (__tmp270936 + (let ((__tmp270939 + (let ((__tmp270940 (let () (declare (not safe)) - (cons _field265098_ '())))) + (cons _field265028_ '())))) (declare (not safe)) - (cons '%#quote __tmp271010))) - (__tmp271007 - (let ((__tmp271008 + (cons '%#quote __tmp270940))) + (__tmp270937 + (let ((__tmp270938 (let () (declare (not safe)) - (cons _value265102_ '())))) + (cons _value265032_ '())))) (declare (not safe)) - (cons _object265100_ __tmp271008)))) + (cons _object265030_ __tmp270938)))) (declare (not safe)) - (cons __tmp271009 __tmp271007)))) + (cons __tmp270939 __tmp270937)))) (declare (not safe)) - (cons __tmp271011 __tmp271006)))) + (cons __tmp270941 __tmp270936)))) (declare (not safe)) - (cons __tmp271014 __tmp271005)))) + (cons __tmp270944 __tmp270935)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp271004 - _stx265043_)) - (let ((_$e265105_ - (let ((__tmp270934 + __tmp270934 + _stx264973_)) + (let ((_$e265035_ + (let ((__tmp270864 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self265042_ + _self264972_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass265096_ __tmp270934)))) + (gxc#!class-slot-find-struct _klass265026_ __tmp270864)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e265105_ - ((lambda (_klass265108_) - (let ((__tmp270993 + (if _$e265035_ + ((lambda (_klass265038_) + (let ((__tmp270923 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271003 + (let ((__tmp270933 (if (##structure-ref - _self265042_ + _self264972_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp270994 - (let ((__tmp271000 - (let ((__tmp271001 - (let ((__tmp271002 + (__tmp270924 + (let ((__tmp270930 + (let ((__tmp270931 + (let ((__tmp270932 (##structure-ref - _self265042_ + _self264972_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp271002 '())))) + (cons __tmp270932 '())))) (declare (not safe)) - (cons '%#ref __tmp271001))) - (__tmp270995 - (let ((__tmp270998 - (let ((__tmp270999 + (cons '%#ref __tmp270931))) + (__tmp270925 + (let ((__tmp270928 + (let ((__tmp270929 (let () (declare (not safe)) - (cons _field265098_ + (cons _field265028_ '())))) (declare (not safe)) - (cons '%#quote __tmp270999))) - (__tmp270996 - (let ((__tmp270997 + (cons '%#quote __tmp270929))) + (__tmp270926 + (let ((__tmp270927 (let () (declare (not safe)) - (cons _value265102_ + (cons _value265032_ '())))) (declare (not safe)) - (cons _object265100_ - __tmp270997)))) + (cons _object265030_ + __tmp270927)))) (declare (not safe)) - (cons __tmp270998 __tmp270996)))) + (cons __tmp270928 __tmp270926)))) (declare (not safe)) - (cons __tmp271000 __tmp270995)))) + (cons __tmp270930 __tmp270925)))) (declare (not safe)) - (cons __tmp271003 __tmp270994)))) + (cons __tmp270933 __tmp270924)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270993 _stx265043_))) - _$e265105_) - (if (##structure-ref _self265042_ '3 gxc#!mutator::t '#f) - (let ((__tmp270945 - (let* ((_$obj265110_ - (let ((__tmp270946 (gensym '__obj))) + (gxc#xform-wrap-source __tmp270923 _stx264973_))) + _$e265035_) + (if (##structure-ref _self264972_ '3 gxc#!mutator::t '#f) + (let ((__tmp270875 + (let* ((_$obj265040_ + (let ((__tmp270876 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp270946))) - (__tmp270947 - (let ((__tmp270989 - (let ((__tmp270990 - (let ((__tmp270992 + (make-symbol__0 __tmp270876))) + (__tmp270877 + (let ((__tmp270919 + (let ((__tmp270920 + (let ((__tmp270922 (let () (declare (not safe)) - (cons _$obj265110_ + (cons _$obj265040_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp270991 - (let () (declare (not safe)) (cons _object265100_ '())))) + (__tmp270921 + (let () (declare (not safe)) (cons _object265030_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270992 - __tmp270991)))) + (cons __tmp270922 + __tmp270921)))) (declare (not safe)) - (cons __tmp270990 '()))) - (__tmp270948 - (let ((__tmp270949 - (let ((__tmp270950 - (let ((__tmp270981 - (let ((__tmp270982 + (cons __tmp270920 '()))) + (__tmp270878 + (let ((__tmp270879 + (let ((__tmp270880 + (let ((__tmp270911 + (let ((__tmp270912 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270986 - (let ((__tmp270987 - (let ((__tmp270988 + (let ((__tmp270916 + (let ((__tmp270917 + (let ((__tmp270918 (##structure-ref - _klass265096_ + _klass265026_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270988 '())))) + (cons __tmp270918 '())))) (declare (not safe)) - (cons '%#quote __tmp270987))) - (__tmp270983 - (let ((__tmp270984 - (let ((__tmp270985 + (cons '%#quote __tmp270917))) + (__tmp270913 + (let ((__tmp270914 + (let ((__tmp270915 (let () (declare (not safe)) - (cons _$obj265110_ + (cons _$obj265040_ '())))) (declare (not safe)) - (cons '%#ref __tmp270985)))) + (cons '%#ref __tmp270915)))) (declare (not safe)) - (cons __tmp270984 '())))) + (cons __tmp270914 '())))) (declare (not safe)) - (cons __tmp270986 __tmp270983)))) + (cons __tmp270916 __tmp270913)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp270982))) - (__tmp270951 - (let ((__tmp270969 - (let ((__tmp270970 - (let ((__tmp270978 - (let ((__tmp270979 - (let ((__tmp270980 + (cons '%#struct-direct-instance? __tmp270912))) + (__tmp270881 + (let ((__tmp270899 + (let ((__tmp270900 + (let ((__tmp270908 + (let ((__tmp270909 + (let ((__tmp270910 (##structure-ref - _self265042_ + _self264972_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270980 '())))) + (cons __tmp270910 '())))) (declare (not safe)) - (cons '%#ref __tmp270979))) - (__tmp270971 - (let ((__tmp270976 - (let ((__tmp270977 + (cons '%#ref __tmp270909))) + (__tmp270901 + (let ((__tmp270906 + (let ((__tmp270907 (let () (declare (not safe)) - (cons _field265098_ + (cons _field265028_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp270977))) + (cons '%#quote __tmp270907))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp270972 - (let ((__tmp270974 - (let ((__tmp270975 + (__tmp270902 + (let ((__tmp270904 + (let ((__tmp270905 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj265110_ '())))) + (cons _$obj265040_ '())))) (declare (not safe)) - (cons '%#ref __tmp270975))) - (__tmp270973 - (let () (declare (not safe)) (cons _value265102_ '())))) + (cons '%#ref __tmp270905))) + (__tmp270903 + (let () (declare (not safe)) (cons _value265032_ '())))) (declare (not safe)) - (cons __tmp270974 __tmp270973)))) + (cons __tmp270904 __tmp270903)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270976 - __tmp270972)))) + (cons __tmp270906 + __tmp270902)))) (declare (not safe)) - (cons __tmp270978 __tmp270971)))) + (cons __tmp270908 __tmp270901)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp270970))) - (__tmp270952 - (let ((__tmp270953 - (let ((__tmp270954 - (let ((__tmp270967 - (let ((__tmp270968 + (cons '%#struct-unchecked-set! __tmp270900))) + (__tmp270882 + (let ((__tmp270883 + (let ((__tmp270884 + (let ((__tmp270897 + (let ((__tmp270898 (let () (declare (not safe)) @@ -3675,674 +3675,674 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp270968))) + (cons '%#ref __tmp270898))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp270955 - (let ((__tmp270964 - (let ((__tmp270965 + (__tmp270885 + (let ((__tmp270894 + (let ((__tmp270895 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp270966 + (let ((__tmp270896 (##structure-ref - _self265042_ + _self264972_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp270966 '())))) + (cons __tmp270896 '())))) (declare (not safe)) - (cons '%#ref __tmp270965))) - (__tmp270956 - (let ((__tmp270962 - (let ((__tmp270963 + (cons '%#ref __tmp270895))) + (__tmp270886 + (let ((__tmp270892 + (let ((__tmp270893 (let () (declare (not safe)) - (cons _$obj265110_ '())))) + (cons _$obj265040_ '())))) (declare (not safe)) - (cons '%#ref __tmp270963))) - (__tmp270957 - (let ((__tmp270959 - (let ((__tmp270960 - (let ((__tmp270961 + (cons '%#ref __tmp270893))) + (__tmp270887 + (let ((__tmp270889 + (let ((__tmp270890 + (let ((__tmp270891 (##structure-ref - _self265042_ + _self264972_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp270961 '())))) + (cons __tmp270891 '())))) (declare (not safe)) - (cons '%#quote __tmp270960))) - (__tmp270958 + (cons '%#quote __tmp270890))) + (__tmp270888 (let () (declare (not safe)) - (cons _value265102_ '())))) + (cons _value265032_ '())))) (declare (not safe)) - (cons __tmp270959 __tmp270958)))) + (cons __tmp270889 __tmp270888)))) (declare (not safe)) - (cons __tmp270962 __tmp270957)))) + (cons __tmp270892 __tmp270887)))) (declare (not safe)) - (cons __tmp270964 __tmp270956)))) + (cons __tmp270894 __tmp270886)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270967 - __tmp270955)))) + (cons __tmp270897 + __tmp270885)))) (declare (not safe)) - (cons '%#call __tmp270954)))) + (cons '%#call __tmp270884)))) (declare (not safe)) - (cons __tmp270953 '())))) + (cons __tmp270883 '())))) (declare (not safe)) - (cons __tmp270969 __tmp270952)))) + (cons __tmp270899 __tmp270882)))) (declare (not safe)) - (cons __tmp270981 __tmp270951)))) + (cons __tmp270911 __tmp270881)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp270950)))) + (cons '%#if __tmp270880)))) (declare (not safe)) - (cons __tmp270949 '())))) + (cons __tmp270879 '())))) (declare (not safe)) - (cons __tmp270989 __tmp270948)))) + (cons __tmp270919 __tmp270878)))) (declare (not safe)) - (cons '%#let-values __tmp270947)))) + (cons '%#let-values __tmp270877)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270945 _stx265043_)) - (let ((__tmp270935 - (let ((__tmp270936 - (let ((__tmp270943 - (let ((__tmp270944 + (gxc#xform-wrap-source __tmp270875 _stx264973_)) + (let ((__tmp270865 + (let ((__tmp270866 + (let ((__tmp270873 + (let ((__tmp270874 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp270944))) - (__tmp270937 - (let ((__tmp270938 - (let ((__tmp270940 - (let ((__tmp270941 - (let ((__tmp270942 + (cons '%#ref __tmp270874))) + (__tmp270867 + (let ((__tmp270868 + (let ((__tmp270870 + (let ((__tmp270871 + (let ((__tmp270872 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self265042_ + _self264972_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp270942 '())))) + (cons __tmp270872 '())))) (declare (not safe)) - (cons '%#quote __tmp270941))) - (__tmp270939 - (let () (declare (not safe)) (cons _value265102_ '())))) + (cons '%#quote __tmp270871))) + (__tmp270869 + (let () (declare (not safe)) (cons _value265032_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp270940 - __tmp270939)))) + (cons __tmp270870 + __tmp270869)))) (declare (not safe)) - (cons _object265100_ - __tmp270938)))) + (cons _object265030_ + __tmp270868)))) (declare (not safe)) - (cons __tmp270943 __tmp270937)))) + (cons __tmp270873 __tmp270867)))) (declare (not safe)) - (cons '%#call __tmp270936)))) + (cons '%#call __tmp270866)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp270935 _stx265043_))))))))) + (gxc#xform-wrap-source __tmp270865 _stx264973_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd265054265076_ - _hd265051265068_) + _hd264984265006_ + _hd264981264998_) (let () (declare (not safe)) - (_g265046265060_ _g265047265063_))))) + (_g264976264990_ _g264977264993_))))) (let () (declare (not safe)) - (_g265046265060_ _g265047265063_))))) + (_g264976264990_ _g264977264993_))))) (let () (declare (not safe)) - (_g265046265060_ _g265047265063_)))))) + (_g264976264990_ _g264977264993_)))))) (declare (not safe)) - (_g265045265112_ _args265044_)))) + (_g264975265042_ _args264974_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__t270097) - (let ((__id270098 - (let ((__tmp270101 + (lambda (__t270027) + (let ((__id270028 + (let ((__tmp270031 (let () (declare (not safe)) - (class-slot-offset* __t270097 'id)))) - (if __tmp270101 __tmp270101 (error '"Unknown slot" 'id)))) - (__slot270099 - (let ((__tmp270102 + (class-slot-offset __t270027 'id)))) + (if __tmp270031 __tmp270031 (error '"Unknown slot" 'id)))) + (__slot270029 + (let ((__tmp270032 (let () (declare (not safe)) - (class-slot-offset* __t270097 'slot)))) - (if __tmp270102 __tmp270102 (error '"Unknown slot" 'slot)))) - (__checked?270100 - (let ((__tmp270103 + (class-slot-offset __t270027 'slot)))) + (if __tmp270032 __tmp270032 (error '"Unknown slot" 'slot)))) + (__checked?270030 + (let ((__tmp270033 (let () (declare (not safe)) - (class-slot-offset* __t270097 'checked?)))) - (if __tmp270103 - __tmp270103 + (class-slot-offset __t270027 'checked?)))) + (if __tmp270033 + __tmp270033 (error '"Unknown slot" 'checked?))))) - (lambda (_self265042_ _stx265043_ _args265044_) - (let* ((_g265046265060_ - (lambda (_g265047265057_) + (lambda (_self264972_ _stx264973_ _args264974_) + (let* ((_g264976264990_ + (lambda (_g264977264987_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g265047265057_)))) - (_g265045265112_ - (lambda (_g265047265063_) + _g264977264987_)))) + (_g264975265042_ + (lambda (_g264977264993_) (if (let () (declare (not safe)) - (gx#stx-pair? _g265047265063_)) - (let ((_e265052265065_ + (gx#stx-pair? _g264977264993_)) + (let ((_e264982264995_ (let () (declare (not safe)) - (gx#stx-e _g265047265063_)))) - (let ((_hd265051265068_ + (gx#stx-e _g264977264993_)))) + (let ((_hd264981264998_ (let () (declare (not safe)) - (##car _e265052265065_))) - (_tl265050265070_ + (##car _e264982264995_))) + (_tl264980265000_ (let () (declare (not safe)) - (##cdr _e265052265065_)))) + (##cdr _e264982264995_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265050265070_)) - (let ((_e265055265073_ + (gx#stx-pair? _tl264980265000_)) + (let ((_e264985265003_ (let () (declare (not safe)) - (gx#stx-e _tl265050265070_)))) - (let ((_hd265054265076_ + (gx#stx-e _tl264980265000_)))) + (let ((_hd264984265006_ (let () (declare (not safe)) - (##car _e265055265073_))) - (_tl265053265078_ + (##car _e264985265003_))) + (_tl264983265008_ (let () (declare (not safe)) - (##cdr _e265055265073_)))) + (##cdr _e264985265003_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265053265078_)) - ((lambda (_L265081_ _L265082_) - (let* ((_klass265096_ - (let ((__tmp271026 + (gx#stx-null? _tl264983265008_)) + ((lambda (_L265011_ _L265012_) + (let* ((_klass265026_ + (let ((__tmp270956 (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __id270098 - __t270097 + _self264972_ + __id270028 + __t270027 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx265043_ - __tmp271026))) - (_field265098_ - (let ((__tmp271027 + _stx264973_ + __tmp270956))) + (_field265028_ + (let ((__tmp270957 (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __slot270099 - __t270097 + _self264972_ + __slot270029 + __t270027 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass265096_ - __tmp271027))) - (_object265100_ + _klass265026_ + __tmp270957))) + (_object265030_ (let () (declare (not safe)) (gxc#compile-e__0 - _L265082_))) - (_value265102_ + _L265012_))) + (_value265032_ (let () (declare (not safe)) (gxc#compile-e__0 - _L265081_)))) + _L265011_)))) (if (##structure-ref - _klass265096_ + _klass265026_ '8 gxc#!class::t '#f) - (let ((__tmp271109 - (let ((__tmp271119 + (let ((__tmp271039 + (let ((__tmp271049 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __checked?270100 - __t270097 + _self264972_ + __checked?270030 + __t270027 '#f)) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp271110 - (let ((__tmp271116 - (let ((__tmp271117 - (let ((__tmp271118 + (__tmp271040 + (let ((__tmp271046 + (let ((__tmp271047 + (let ((__tmp271048 (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __id270098 - __t270097 + _self264972_ + __id270028 + __t270027 '#f)))) (declare (not safe)) - (cons __tmp271118 '())))) + (cons __tmp271048 '())))) (declare (not safe)) - (cons '%#ref __tmp271117))) - (__tmp271111 - (let ((__tmp271114 - (let ((__tmp271115 + (cons '%#ref __tmp271047))) + (__tmp271041 + (let ((__tmp271044 + (let ((__tmp271045 (let () (declare (not safe)) - (cons _field265098_ '())))) + (cons _field265028_ '())))) (declare (not safe)) - (cons '%#quote __tmp271115))) - (__tmp271112 - (let ((__tmp271113 + (cons '%#quote __tmp271045))) + (__tmp271042 + (let ((__tmp271043 (let () (declare (not safe)) - (cons _value265102_ '())))) + (cons _value265032_ '())))) (declare (not safe)) - (cons _object265100_ __tmp271113)))) + (cons _object265030_ __tmp271043)))) (declare (not safe)) - (cons __tmp271114 __tmp271112)))) + (cons __tmp271044 __tmp271042)))) (declare (not safe)) - (cons __tmp271116 __tmp271111)))) + (cons __tmp271046 __tmp271041)))) (declare (not safe)) - (cons __tmp271119 __tmp271110)))) + (cons __tmp271049 __tmp271040)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp271109 - _stx265043_)) + __tmp271039 + _stx264973_)) (if (##structure-ref - _klass265096_ + _klass265026_ '7 gxc#!class::t '#f) - (let ((__tmp271098 - (let ((__tmp271108 + (let ((__tmp271028 + (let ((__tmp271038 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __checked?270100 - __t270097 + _self264972_ + __checked?270030 + __t270027 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp271099 - (let ((__tmp271105 - (let ((__tmp271106 - (let ((__tmp271107 + (__tmp271029 + (let ((__tmp271035 + (let ((__tmp271036 + (let ((__tmp271037 (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __id270098 - __t270097 + _self264972_ + __id270028 + __t270027 '#f)))) (declare (not safe)) - (cons __tmp271107 '())))) + (cons __tmp271037 '())))) (declare (not safe)) - (cons '%#ref __tmp271106))) - (__tmp271100 - (let ((__tmp271103 - (let ((__tmp271104 + (cons '%#ref __tmp271036))) + (__tmp271030 + (let ((__tmp271033 + (let ((__tmp271034 (let () (declare (not safe)) - (cons _field265098_ '())))) + (cons _field265028_ '())))) (declare (not safe)) - (cons '%#quote __tmp271104))) - (__tmp271101 - (let ((__tmp271102 + (cons '%#quote __tmp271034))) + (__tmp271031 + (let ((__tmp271032 (let () (declare (not safe)) - (cons _value265102_ '())))) + (cons _value265032_ '())))) (declare (not safe)) - (cons _object265100_ - __tmp271102)))) + (cons _object265030_ + __tmp271032)))) (declare (not safe)) - (cons __tmp271103 __tmp271101)))) + (cons __tmp271033 __tmp271031)))) (declare (not safe)) - (cons __tmp271105 __tmp271100)))) + (cons __tmp271035 __tmp271030)))) (declare (not safe)) - (cons __tmp271108 __tmp271099)))) + (cons __tmp271038 __tmp271029)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp271098 _stx265043_)) - (let ((_$e265105_ - (let ((__tmp271028 + (gxc#xform-wrap-source __tmp271028 _stx264973_)) + (let ((_$e265035_ + (let ((__tmp270958 (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __slot270099 - __t270097 + _self264972_ + __slot270029 + __t270027 '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass265096_ - __tmp271028)))) - (if _$e265105_ - ((lambda (_klass265108_) - (let ((__tmp271087 - (let ((__tmp271097 + _klass265026_ + __tmp270958)))) + (if _$e265035_ + ((lambda (_klass265038_) + (let ((__tmp271017 + (let ((__tmp271027 (if (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __checked?270100 - __t270097 + _self264972_ + __checked?270030 + __t270027 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp271088 - (let ((__tmp271094 - (let ((__tmp271095 - (let ((__tmp271096 + (__tmp271018 + (let ((__tmp271024 + (let ((__tmp271025 + (let ((__tmp271026 (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __id270098 - __t270097 + _self264972_ + __id270028 + __t270027 '#f)))) (declare (not safe)) - (cons __tmp271096 '())))) + (cons __tmp271026 '())))) (declare (not safe)) - (cons '%#ref __tmp271095))) - (__tmp271089 - (let ((__tmp271092 - (let ((__tmp271093 + (cons '%#ref __tmp271025))) + (__tmp271019 + (let ((__tmp271022 + (let ((__tmp271023 (let () (declare (not safe)) - (cons _field265098_ + (cons _field265028_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp271093))) + (cons '%#quote __tmp271023))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp271090 - (let ((__tmp271091 + (__tmp271020 + (let ((__tmp271021 (let () (declare (not safe)) - (cons _value265102_ + (cons _value265032_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _object265100_ __tmp271091)))) + (cons _object265030_ __tmp271021)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271092 - __tmp271090)))) + (cons __tmp271022 + __tmp271020)))) (declare (not safe)) - (cons __tmp271094 __tmp271089)))) + (cons __tmp271024 __tmp271019)))) (declare (not safe)) - (cons __tmp271097 __tmp271088)))) + (cons __tmp271027 __tmp271018)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp271087 _stx265043_))) - _$e265105_) + (gxc#xform-wrap-source __tmp271017 _stx264973_))) + _$e265035_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __checked?270100 - __t270097 + _self264972_ + __checked?270030 + __t270027 '#f)) - (let ((__tmp271039 - (let* ((_$obj265110_ - (let ((__tmp271040 (gensym '__obj))) + (let ((__tmp270969 + (let* ((_$obj265040_ + (let ((__tmp270970 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp271040))) - (__tmp271041 - (let ((__tmp271083 - (let ((__tmp271084 - (let ((__tmp271086 + (make-symbol__0 __tmp270970))) + (__tmp270971 + (let ((__tmp271013 + (let ((__tmp271014 + (let ((__tmp271016 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj265110_ '()))) - (__tmp271085 - (let () (declare (not safe)) (cons _object265100_ '())))) + (cons _$obj265040_ '()))) + (__tmp271015 + (let () (declare (not safe)) (cons _object265030_ '())))) (declare (not safe)) - (cons __tmp271086 __tmp271085)))) + (cons __tmp271016 __tmp271015)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271084 '()))) - (__tmp271042 - (let ((__tmp271043 - (let ((__tmp271044 - (let ((__tmp271075 + (cons __tmp271014 '()))) + (__tmp270972 + (let ((__tmp270973 + (let ((__tmp270974 + (let ((__tmp271005 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271076 - (let ((__tmp271080 - (let ((__tmp271081 - (let ((__tmp271082 + (let ((__tmp271006 + (let ((__tmp271010 + (let ((__tmp271011 + (let ((__tmp271012 (##structure-ref - _klass265096_ + _klass265026_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp271082 '())))) + (cons __tmp271012 '())))) (declare (not safe)) - (cons '%#quote __tmp271081))) - (__tmp271077 - (let ((__tmp271078 - (let ((__tmp271079 + (cons '%#quote __tmp271011))) + (__tmp271007 + (let ((__tmp271008 + (let ((__tmp271009 (let () (declare (not safe)) - (cons _$obj265110_ + (cons _$obj265040_ '())))) (declare (not safe)) - (cons '%#ref __tmp271079)))) + (cons '%#ref __tmp271009)))) (declare (not safe)) - (cons __tmp271078 '())))) + (cons __tmp271008 '())))) (declare (not safe)) - (cons __tmp271080 __tmp271077)))) + (cons __tmp271010 __tmp271007)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp271076))) - (__tmp271045 - (let ((__tmp271063 - (let ((__tmp271064 - (let ((__tmp271072 - (let ((__tmp271073 - (let ((__tmp271074 + (cons '%#struct-direct-instance? __tmp271006))) + (__tmp270975 + (let ((__tmp270993 + (let ((__tmp270994 + (let ((__tmp271002 + (let ((__tmp271003 + (let ((__tmp271004 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __id270098 - __t270097 + _self264972_ + __id270028 + __t270027 '#f)))) (declare (not safe)) - (cons __tmp271074 '())))) + (cons __tmp271004 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp271073))) - (__tmp271065 - (let ((__tmp271070 - (let ((__tmp271071 + (cons '%#ref __tmp271003))) + (__tmp270995 + (let ((__tmp271000 + (let ((__tmp271001 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _field265098_ '())))) + (cons _field265028_ '())))) (declare (not safe)) - (cons '%#quote __tmp271071))) - (__tmp271066 - (let ((__tmp271068 - (let ((__tmp271069 + (cons '%#quote __tmp271001))) + (__tmp270996 + (let ((__tmp270998 + (let ((__tmp270999 (let () (declare (not safe)) - (cons _$obj265110_ '())))) + (cons _$obj265040_ '())))) (declare (not safe)) - (cons '%#ref __tmp271069))) - (__tmp271067 - (let () (declare (not safe)) (cons _value265102_ '())))) + (cons '%#ref __tmp270999))) + (__tmp270997 + (let () (declare (not safe)) (cons _value265032_ '())))) (declare (not safe)) - (cons __tmp271068 __tmp271067)))) + (cons __tmp270998 __tmp270997)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271070 - __tmp271066)))) + (cons __tmp271000 + __tmp270996)))) (declare (not safe)) - (cons __tmp271072 __tmp271065)))) + (cons __tmp271002 __tmp270995)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp271064))) - (__tmp271046 - (let ((__tmp271047 - (let ((__tmp271048 - (let ((__tmp271061 - (let ((__tmp271062 + __tmp270994))) + (__tmp270976 + (let ((__tmp270977 + (let ((__tmp270978 + (let ((__tmp270991 + (let ((__tmp270992 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp271062))) - (__tmp271049 - (let ((__tmp271058 - (let ((__tmp271059 - (let ((__tmp271060 + (cons '%#ref __tmp270992))) + (__tmp270979 + (let ((__tmp270988 + (let ((__tmp270989 + (let ((__tmp270990 (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __id270098 - __t270097 + _self264972_ + __id270028 + __t270027 '#f)))) (declare (not safe)) - (cons __tmp271060 '())))) + (cons __tmp270990 '())))) (declare (not safe)) - (cons '%#ref __tmp271059))) - (__tmp271050 - (let ((__tmp271056 - (let ((__tmp271057 + (cons '%#ref __tmp270989))) + (__tmp270980 + (let ((__tmp270986 + (let ((__tmp270987 (let () (declare (not safe)) - (cons _$obj265110_ '())))) + (cons _$obj265040_ '())))) (declare (not safe)) - (cons '%#ref __tmp271057))) - (__tmp271051 - (let ((__tmp271053 - (let ((__tmp271054 - (let ((__tmp271055 + (cons '%#ref __tmp270987))) + (__tmp270981 + (let ((__tmp270983 + (let ((__tmp270984 + (let ((__tmp270985 (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __slot270099 - __t270097 + _self264972_ + __slot270029 + __t270027 '#f)))) (declare (not safe)) - (cons __tmp271055 '())))) + (cons __tmp270985 '())))) (declare (not safe)) - (cons '%#quote __tmp271054))) - (__tmp271052 + (cons '%#quote __tmp270984))) + (__tmp270982 (let () (declare (not safe)) - (cons _value265102_ '())))) + (cons _value265032_ '())))) (declare (not safe)) - (cons __tmp271053 __tmp271052)))) + (cons __tmp270983 __tmp270982)))) (declare (not safe)) - (cons __tmp271056 __tmp271051)))) + (cons __tmp270986 __tmp270981)))) (declare (not safe)) - (cons __tmp271058 __tmp271050)))) + (cons __tmp270988 __tmp270980)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271061 - __tmp271049)))) + (cons __tmp270991 + __tmp270979)))) (declare (not safe)) - (cons '%#call __tmp271048)))) + (cons '%#call __tmp270978)))) (declare (not safe)) - (cons __tmp271047 '())))) + (cons __tmp270977 '())))) (declare (not safe)) - (cons __tmp271063 __tmp271046)))) + (cons __tmp270993 __tmp270976)))) (declare (not safe)) - (cons __tmp271075 __tmp271045)))) + (cons __tmp271005 __tmp270975)))) (declare (not safe)) - (cons '%#if __tmp271044)))) + (cons '%#if __tmp270974)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271043 '())))) + (cons __tmp270973 '())))) (declare (not safe)) - (cons __tmp271083 __tmp271042)))) + (cons __tmp271013 __tmp270972)))) (declare (not safe)) - (cons '%#let-values __tmp271041)))) + (cons '%#let-values __tmp270971)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp271039 _stx265043_)) - (let ((__tmp271029 - (let ((__tmp271030 - (let ((__tmp271037 - (let ((__tmp271038 + (gxc#xform-wrap-source __tmp270969 _stx264973_)) + (let ((__tmp270959 + (let ((__tmp270960 + (let ((__tmp270967 + (let ((__tmp270968 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp271038))) - (__tmp271031 - (let ((__tmp271032 - (let ((__tmp271034 - (let ((__tmp271035 + (cons '%#ref __tmp270968))) + (__tmp270961 + (let ((__tmp270962 + (let ((__tmp270964 + (let ((__tmp270965 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271036 + (let ((__tmp270966 (let () (declare (not safe)) (##unchecked-structure-ref - _self265042_ - __slot270099 - __t270097 + _self264972_ + __slot270029 + __t270027 '#f)))) (declare (not safe)) - (cons __tmp271036 '())))) + (cons __tmp270966 '())))) (declare (not safe)) - (cons '%#quote __tmp271035))) - (__tmp271033 - (let () (declare (not safe)) (cons _value265102_ '())))) + (cons '%#quote __tmp270965))) + (__tmp270963 + (let () (declare (not safe)) (cons _value265032_ '())))) (declare (not safe)) - (cons __tmp271034 __tmp271033)))) + (cons __tmp270964 __tmp270963)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _object265100_ - __tmp271032)))) + (cons _object265030_ + __tmp270962)))) (declare (not safe)) - (cons __tmp271037 __tmp271031)))) + (cons __tmp270967 __tmp270961)))) (declare (not safe)) - (cons '%#call __tmp271030)))) + (cons '%#call __tmp270960)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp271029 - _stx265043_))))))))) + __tmp270959 + _stx264973_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd265054265076_ - _hd265051265068_) + _hd264984265006_ + _hd264981264998_) (let () (declare (not safe)) - (_g265046265060_ - _g265047265063_))))) + (_g264976264990_ + _g264977264993_))))) (let () (declare (not safe)) - (_g265046265060_ _g265047265063_))))) + (_g264976264990_ _g264977264993_))))) (let () (declare (not safe)) - (_g265046265060_ _g265047265063_)))))) + (_g264976264990_ _g264977264993_)))))) (declare (not safe)) - (_g265045265112_ _args265044_)))))) + (_g264975265042_ _args264974_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4356,113 +4356,113 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_self264876_ _stx264877_ _args264878_) - (let* ((_self264879264888_ _self264876_) - (_E264881264892_ - (lambda () (error '"No clause matching" _self264879264888_))) - (_K264882264899_ - (lambda (_inline264895_ _dispatch264896_ _arity264897_) + (lambda (_self264806_ _stx264807_ _args264808_) + (let* ((_self264809264818_ _self264806_) + (_E264811264822_ + (lambda () (error '"No clause matching" _self264809264818_))) + (_K264812264829_ + (lambda (_inline264825_ _dispatch264826_ _arity264827_) (if (let () (declare (not safe)) - (gxc#!lambda-arity-match? _self264876_ _args264878_)) + (gxc#!lambda-arity-match? _self264806_ _args264808_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _stx264877_ - _arity264897_))) - (if _inline264895_ + _stx264807_ + _arity264827_))) + (if _inline264825_ (begin (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp271125 - (let ((__tmp271126 - (_inline264895_ _stx264877_))) + (let ((__tmp271055 + (let ((__tmp271056 + (_inline264825_ _stx264807_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp271126 - _stx264877_)))) + __tmp271056 + _stx264807_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp271125))) - (if _dispatch264896_ + (gxc#compile-e__0 __tmp271055))) + (if _dispatch264826_ (begin (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _dispatch264896_)) - (let ((__tmp271120 - (let ((__tmp271121 - (let ((__tmp271122 - (let ((__tmp271123 - (let ((__tmp271124 + _dispatch264826_)) + (let ((__tmp271050 + (let ((__tmp271051 + (let ((__tmp271052 + (let ((__tmp271053 + (let ((__tmp271054 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _dispatch264896_ '())))) + (cons _dispatch264826_ '())))) (declare (not safe)) - (cons '%#ref __tmp271124)))) + (cons '%#ref __tmp271054)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271123 - _args264878_)))) + (cons __tmp271053 + _args264808_)))) (declare (not safe)) - (cons '%#call __tmp271122)))) + (cons '%#call __tmp271052)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp271121 - _stx264877_)))) + __tmp271051 + _stx264807_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp271120))) + (gxc#compile-e__0 __tmp271050))) (let () (declare (not safe)) - (gxc#xform-call% _stx264877_))))))) + (gxc#xform-call% _stx264807_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self264879264888_ 'gxc#!lambda::t)) - (let* ((_e264883264902_ + (##structure-instance-of? _self264809264818_ 'gxc#!lambda::t)) + (let* ((_e264813264832_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264879264888_ + _self264809264818_ '1 gxc#!type::t '#f))) - (_e264884264905_ + (_e264814264835_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264879264888_ + _self264809264818_ '2 gxc#!lambda::t '#f))) - (_arity264908_ _e264884264905_) - (_e264885264910_ + (_arity264838_ _e264814264835_) + (_e264815264840_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264879264888_ + _self264809264818_ '3 gxc#!lambda::t '#f))) - (_dispatch264913_ _e264885264910_) - (_e264886264915_ + (_dispatch264843_ _e264815264840_) + (_e264816264845_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264879264888_ + _self264809264818_ '4 gxc#!lambda::t '#f))) - (_inline264918_ _e264886264915_)) + (_inline264848_ _e264816264845_)) (declare (not safe)) - (_K264882264899_ - _inline264918_ - _dispatch264913_ - _arity264908_)) - (let () (declare (not safe)) (_E264881264892_)))))) + (_K264812264829_ + _inline264848_ + _dispatch264843_ + _arity264838_)) + (let () (declare (not safe)) (_E264811264822_)))))) (let () (declare (not safe)) (bind-method! @@ -4471,71 +4471,71 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_self264715_ _stx264716_ _args264717_) - (let* ((_self264718264725_ _self264715_) - (_E264720264729_ - (lambda () (error '"No clause matching" _self264718264725_))) - (_K264721264743_ - (lambda (_clauses264732_) - (let ((_$e264738_ - (let ((__tmp271127 - (lambda (_g264733264735_) + (lambda (_self264645_ _stx264646_ _args264647_) + (let* ((_self264648264655_ _self264645_) + (_E264650264659_ + (lambda () (error '"No clause matching" _self264648264655_))) + (_K264651264673_ + (lambda (_clauses264662_) + (let ((_$e264668_ + (let ((__tmp271057 + (lambda (_g264663264665_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _g264733264735_ - _args264717_))))) + _g264663264665_ + _args264647_))))) (declare (not safe)) - (find __tmp271127 _clauses264732_)))) - (if _$e264738_ - ((lambda (_clause264741_) - (let ((__method270372 + (find __tmp271057 _clauses264662_)))) + (if _$e264668_ + ((lambda (_clause264671_) + (let ((__method270302 (let () (declare (not safe)) (method-ref - _clause264741_ + _clause264671_ 'optimize-call)))) - (if __method270372 - (__method270372 - _clause264741_ - _stx264716_ - _args264717_) + (if __method270302 + (__method270302 + _clause264671_ + _stx264646_ + _args264647_) (error '"Missing method" - _clause264741_ + _clause264671_ 'optimize-call)))) - _$e264738_) - (let ((__tmp271128 - (map gxc#!lambda-arity _clauses264732_))) + _$e264668_) + (let ((__tmp271058 + (map gxc#!lambda-arity _clauses264662_))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _stx264716_ - __tmp271128))))))) + _stx264646_ + __tmp271058))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self264718264725_ + _self264648264655_ 'gxc#!case-lambda::t)) - (let* ((_e264722264746_ + (let* ((_e264652264676_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264718264725_ + _self264648264655_ '1 gxc#!type::t '#f))) - (_e264723264749_ + (_e264653264679_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264718264725_ + _self264648264655_ '2 gxc#!case-lambda::t '#f))) - (_clauses264752_ _e264723264749_)) + (_clauses264682_ _e264653264679_)) (declare (not safe)) - (_K264721264743_ _clauses264752_)) - (let () (declare (not safe)) (_E264720264729_)))))) + (_K264651264673_ _clauses264682_)) + (let () (declare (not safe)) (_E264650264659_)))))) (let () (declare (not safe)) (bind-method! @@ -4544,484 +4544,484 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!lambda-arity-match? - (lambda (_self264529_ _args264530_) - (let* ((_self264531264538_ _self264529_) - (_E264533264542_ - (lambda () (error '"No clause matching" _self264531264538_))) - (_K264534264582_ - (lambda (_arity264545_) - (let* ((_arity264546264555_ _arity264545_) - (_E264549264559_ + (lambda (_self264459_ _args264460_) + (let* ((_self264461264468_ _self264459_) + (_E264463264472_ + (lambda () (error '"No clause matching" _self264461264468_))) + (_K264464264512_ + (lambda (_arity264475_) + (let* ((_arity264476264485_ _arity264475_) + (_E264479264489_ (lambda () (error '"No clause matching" - _arity264546264555_)))) - (let ((_K264553264579_ + _arity264476264485_)))) + (let ((_K264483264509_ (lambda () - (fx= (length _args264530_) _arity264545_))) - (_K264550264565_ - (lambda (_arity264563_) - (fx>= (length _args264530_) _arity264563_)))) - (let ((_try-match264548264575_ + (fx= (length _args264460_) _arity264475_))) + (_K264480264495_ + (lambda (_arity264493_) + (fx>= (length _args264460_) _arity264493_)))) + (let ((_try-match264478264505_ (lambda () (if (let () (declare (not safe)) - (##pair? _arity264546264555_)) - (let ((_tl264552264570_ + (##pair? _arity264476264485_)) + (let ((_tl264482264500_ (let () (declare (not safe)) - (##cdr _arity264546264555_))) - (_hd264551264568_ + (##cdr _arity264476264485_))) + (_hd264481264498_ (let () (declare (not safe)) - (##car _arity264546264555_)))) + (##car _arity264476264485_)))) (if (let () (declare (not safe)) - (##null? _tl264552264570_)) - (let ((_arity264573_ - _hd264551264568_)) + (##null? _tl264482264500_)) + (let ((_arity264503_ + _hd264481264498_)) (declare (not safe)) - (_K264550264565_ _arity264573_)) + (_K264480264495_ _arity264503_)) (let () (declare (not safe)) - (_E264549264559_)))) + (_E264479264489_)))) (let () (declare (not safe)) - (_E264549264559_)))))) - (if (fixnum? _arity264546264555_) - (let () (declare (not safe)) (_K264553264579_)) + (_E264479264489_)))))) + (if (fixnum? _arity264476264485_) + (let () (declare (not safe)) (_K264483264509_)) (let () (declare (not safe)) - (_try-match264548264575_))))))))) + (_try-match264478264505_))))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self264531264538_ 'gxc#!lambda::t)) - (let* ((_e264535264585_ + (##structure-instance-of? _self264461264468_ 'gxc#!lambda::t)) + (let* ((_e264465264515_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264531264538_ + _self264461264468_ '1 gxc#!type::t '#f))) - (_e264536264588_ + (_e264466264518_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264531264538_ + _self264461264468_ '2 gxc#!lambda::t '#f))) - (_arity264591_ _e264536264588_)) + (_arity264521_ _e264466264518_)) (declare (not safe)) - (_K264534264582_ _arity264591_)) - (let () (declare (not safe)) (_E264533264542_)))))) + (_K264464264512_ _arity264521_)) + (let () (declare (not safe)) (_E264463264472_)))))) (define gxc#!kw-lambda::optimize-call - (lambda (_self264414_ _stx264415_ _args264416_) - (let* ((_self264417264425_ _self264414_) - (_E264419264429_ - (lambda () (error '"No clause matching" _self264417264425_))) - (_K264420264513_ - (lambda (_dispatch264432_ _table264433_) - (let* ((_g264434264443_ + (lambda (_self264344_ _stx264345_ _args264346_) + (let* ((_self264347264355_ _self264344_) + (_E264349264359_ + (lambda () (error '"No clause matching" _self264347264355_))) + (_K264350264443_ + (lambda (_dispatch264362_ _table264363_) + (let* ((_g264364264373_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _dispatch264432_))) - (_else264436264451_ + (gxc#optimizer-lookup-type _dispatch264362_))) + (_else264366264381_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _dispatch264432_)) + _dispatch264362_)) (let () (declare (not safe)) - (gxc#xform-call% _stx264415_)))) - (_K264438264497_ - (lambda (_main264454_ _keys264455_) - (let ((_g271129_ + (gxc#xform-call% _stx264345_)))) + (_K264368264427_ + (lambda (_main264384_ _keys264385_) + (let ((_g271059_ (let () (declare (not safe)) (gxc#!kw-lambda-split-args - _stx264415_ - _args264416_)))) + _stx264345_ + _args264346_)))) (begin - (let ((_g271130_ + (let ((_g271060_ (let () (declare (not safe)) - (if (##values? _g271129_) - (##vector-length _g271129_) + (if (##values? _g271059_) + (##vector-length _g271059_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g271130_ 2))) + (##fx= _g271060_ 2))) (error "Context expects 2 values" - _g271130_))) - (let ((_pargs264457_ + _g271060_))) + (let ((_pargs264387_ (let () (declare (not safe)) - (##vector-ref _g271129_ 0))) - (_kwargs264458_ + (##vector-ref _g271059_ 0))) + (_kwargs264388_ (let () (declare (not safe)) - (##vector-ref _g271129_ 1)))) + (##vector-ref _g271059_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _main264454_)) - (if _table264433_ - (let ((_xargs264465_ - (map (lambda (_key264460_) - (let ((_$e264462_ + _main264384_)) + (if _table264363_ + (let ((_xargs264395_ + (map (lambda (_key264390_) + (let ((_$e264392_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _key264460_ _kwargs264458_)))) - (if _$e264462_ (values _$e264462_) '(%#ref absent-value)))) + (assgetq _key264390_ _kwargs264388_)))) + (if _$e264392_ (values _$e264392_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys264455_))) + _keys264385_))) (for-each - (lambda (_kw264467_) - (if (memq (car _kw264467_) - _keys264455_) + (lambda (_kw264397_) + (if (memq (car _kw264397_) + _keys264385_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _stx264415_ - _keys264455_ - _kw264467_)))) - _kwargs264458_) - (let ((__tmp271182 - (let ((__tmp271183 - (let ((__tmp271184 - (let ((__tmp271189 + _stx264345_ + _keys264385_ + _kw264397_)))) + _kwargs264388_) + (let ((__tmp271112 + (let ((__tmp271113 + (let ((__tmp271114 + (let ((__tmp271119 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271190 + (let ((__tmp271120 (let () (declare (not safe)) - (cons _main264454_ '())))) + (cons _main264384_ '())))) (declare (not safe)) - (cons '%#ref __tmp271190))) - (__tmp271185 - (let ((__tmp271187 - (let ((__tmp271188 + (cons '%#ref __tmp271120))) + (__tmp271115 + (let ((__tmp271117 + (let ((__tmp271118 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp271188))) - (__tmp271186 + (cons '%#quote __tmp271118))) + (__tmp271116 (let () (declare (not safe)) (foldr1 cons - _pargs264457_ - _xargs264465_)))) + _pargs264387_ + _xargs264395_)))) (declare (not safe)) - (cons __tmp271187 __tmp271186)))) + (cons __tmp271117 __tmp271116)))) (declare (not safe)) - (cons __tmp271189 __tmp271185)))) + (cons __tmp271119 __tmp271115)))) (declare (not safe)) - (cons '%#call __tmp271184)))) + (cons '%#call __tmp271114)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp271183 - _stx264415_)))) + __tmp271113 + _stx264345_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp271182))) - (let* ((_kwt264469_ - (let ((__tmp271131 + (gxc#compile-e__0 __tmp271112))) + (let* ((_kwt264399_ + (let ((__tmp271061 (gensym '__kwt))) (declare (not safe)) (make-symbol__0 - __tmp271131))) - (_kwvars264472_ - (map (lambda (_g271132_) - (let ((__tmp271133 + __tmp271061))) + (_kwvars264402_ + (map (lambda (_g271062_) + (let ((__tmp271063 (gensym '__kw))) (declare (not safe)) (make-symbol__0 - __tmp271133))) - _kwargs264458_)) - (_kwbind264477_ - (map (lambda (_kw264474_ - _kwvar264475_) - (let ((__tmp271136 + __tmp271063))) + _kwargs264388_)) + (_kwbind264407_ + (map (lambda (_kw264404_ + _kwvar264405_) + (let ((__tmp271066 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _kwvar264475_ '()))) - (__tmp271134 - (let ((__tmp271135 (cdr _kw264474_))) + (cons _kwvar264405_ '()))) + (__tmp271064 + (let ((__tmp271065 (cdr _kw264404_))) (declare (not safe)) - (cons __tmp271135 '())))) + (cons __tmp271065 '())))) (declare (not safe)) - (cons __tmp271136 __tmp271134))) + (cons __tmp271066 __tmp271064))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs264458_ - _kwvars264472_)) - (_kwset264482_ - (map (lambda (_kw264479_ - _kwvar264480_) - (let ((__tmp271137 - (let ((__tmp271138 + _kwargs264388_ + _kwvars264402_)) + (_kwset264412_ + (map (lambda (_kw264409_ + _kwvar264410_) + (let ((__tmp271067 + (let ((__tmp271068 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271146 - (let ((__tmp271147 + (let ((__tmp271076 + (let ((__tmp271077 (let () (declare (not safe)) - (cons _kwt264469_ '())))) + (cons _kwt264399_ '())))) (declare (not safe)) - (cons '%#ref __tmp271147))) - (__tmp271139 - (let ((__tmp271143 - (let ((__tmp271144 - (let ((__tmp271145 - (car _kw264479_))) + (cons '%#ref __tmp271077))) + (__tmp271069 + (let ((__tmp271073 + (let ((__tmp271074 + (let ((__tmp271075 + (car _kw264409_))) (declare (not safe)) - (cons __tmp271145 '())))) + (cons __tmp271075 '())))) (declare (not safe)) - (cons '%#quote __tmp271144))) - (__tmp271140 - (let ((__tmp271141 - (let ((__tmp271142 + (cons '%#quote __tmp271074))) + (__tmp271070 + (let ((__tmp271071 + (let ((__tmp271072 (let () (declare (not safe)) - (cons _kwvar264480_ + (cons _kwvar264410_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp271142)))) + __tmp271072)))) (declare (not safe)) - (cons __tmp271141 '())))) + (cons __tmp271071 '())))) (declare (not safe)) - (cons __tmp271143 __tmp271140)))) + (cons __tmp271073 __tmp271070)))) (declare (not safe)) - (cons __tmp271146 __tmp271139)))) + (cons __tmp271076 __tmp271069)))) (declare (not safe)) - (cons '(%#ref hash-put!) __tmp271138)))) + (cons '(%#ref hash-put!) __tmp271068)))) (declare (not safe)) - (cons '%#call __tmp271137))) + (cons '%#call __tmp271067))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs264458_ - _kwvars264472_)) - (_xkwargs264487_ - (map (lambda (_kw264484_ - _kwvar264485_) - (let ((__tmp271150 - (car _kw264484_)) - (__tmp271148 - (let ((__tmp271149 + _kwargs264388_ + _kwvars264402_)) + (_xkwargs264417_ + (map (lambda (_kw264414_ + _kwvar264415_) + (let ((__tmp271080 + (car _kw264414_)) + (__tmp271078 + (let ((__tmp271079 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kwvar264485_ '())))) + (cons _kwvar264415_ '())))) (declare (not safe)) - (cons '%#ref __tmp271149)))) + (cons '%#ref __tmp271079)))) (declare (not safe)) - (cons __tmp271150 __tmp271148))) + (cons __tmp271080 __tmp271078))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs264458_ - _kwvars264472_)) - (_xargs264494_ - (map (lambda (_key264489_) - (let ((_$e264491_ + _kwargs264388_ + _kwvars264402_)) + (_xargs264424_ + (map (lambda (_key264419_) + (let ((_$e264421_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _key264489_ _xkwargs264487_)))) - (if _$e264491_ (values _$e264491_) '(%#ref absent-value)))) + (assgetq _key264419_ _xkwargs264417_)))) + (if _$e264421_ (values _$e264421_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys264455_))) - (let ((__tmp271151 - (let ((__tmp271152 - (let ((__tmp271153 - (let ((__tmp271154 + _keys264385_))) + (let ((__tmp271081 + (let ((__tmp271082 + (let ((__tmp271083 + (let ((__tmp271084 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271155 - (let ((__tmp271156 - (let ((__tmp271170 - (let ((__tmp271171 - (let ((__tmp271181 + (let ((__tmp271085 + (let ((__tmp271086 + (let ((__tmp271100 + (let ((__tmp271101 + (let ((__tmp271111 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _kwt264469_ '()))) - (__tmp271172 - (let ((__tmp271173 - (let ((__tmp271174 - (let ((__tmp271175 - (let ((__tmp271176 - (let ((__tmp271177 - (let ((__tmp271178 + (let () (declare (not safe)) (cons _kwt264399_ '()))) + (__tmp271102 + (let ((__tmp271103 + (let ((__tmp271104 + (let ((__tmp271105 + (let ((__tmp271106 + (let ((__tmp271107 + (let ((__tmp271108 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271179 - (let ((__tmp271180 (length _kwargs264458_))) + (let ((__tmp271109 + (let ((__tmp271110 (length _kwargs264388_))) (declare (not safe)) - (cons __tmp271180 '())))) + (cons __tmp271110 '())))) (declare (not safe)) - (cons '%#quote __tmp271179)))) + (cons '%#quote __tmp271109)))) (declare (not safe)) - (cons __tmp271178 '())))) + (cons __tmp271108 '())))) (declare (not safe)) - (cons '(%#quote size:) __tmp271177)))) + (cons '(%#quote size:) __tmp271107)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(%#ref make-hash-table-eq) - __tmp271176)))) + __tmp271106)))) (declare (not safe)) - (cons '%#call __tmp271175)))) + (cons '%#call __tmp271105)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp271174 - _stx264415_)))) + __tmp271104 + _stx264345_)))) (declare (not safe)) - (cons __tmp271173 '())))) + (cons __tmp271103 '())))) (declare (not safe)) - (cons __tmp271181 __tmp271172)))) + (cons __tmp271111 __tmp271102)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271171 '()))) - (__tmp271157 - (let ((__tmp271158 - (let ((__tmp271159 + (cons __tmp271101 '()))) + (__tmp271087 + (let ((__tmp271088 + (let ((__tmp271089 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271160 - (let ((__tmp271161 - (let ((__tmp271162 - (let ((__tmp271163 - (let ((__tmp271168 - (let ((__tmp271169 + (let ((__tmp271090 + (let ((__tmp271091 + (let ((__tmp271092 + (let ((__tmp271093 + (let ((__tmp271098 + (let ((__tmp271099 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main264454_ '())))) + (cons _main264384_ '())))) (declare (not safe)) - (cons '%#ref __tmp271169))) - (__tmp271164 - (let ((__tmp271166 - (let ((__tmp271167 + (cons '%#ref __tmp271099))) + (__tmp271094 + (let ((__tmp271096 + (let ((__tmp271097 (let () (declare (not safe)) - (cons _kwt264469_ '())))) + (cons _kwt264399_ '())))) (declare (not safe)) - (cons '%#ref __tmp271167))) - (__tmp271165 + (cons '%#ref __tmp271097))) + (__tmp271095 (let () (declare (not safe)) - (foldr1 cons _pargs264457_ _xargs264494_)))) + (foldr1 cons _pargs264387_ _xargs264424_)))) (declare (not safe)) - (cons __tmp271166 __tmp271165)))) + (cons __tmp271096 __tmp271095)))) (declare (not safe)) - (cons __tmp271168 __tmp271164)))) + (cons __tmp271098 __tmp271094)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp271163)))) + (cons '%#call __tmp271093)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp271162 - _stx264415_)))) + __tmp271092 + _stx264345_)))) (declare (not safe)) - (cons __tmp271161 '())))) + (cons __tmp271091 '())))) (declare (not safe)) - (foldr1 cons __tmp271160 _kwset264482_)))) + (foldr1 cons __tmp271090 _kwset264412_)))) (declare (not safe)) - (cons '%#begin __tmp271159)))) + (cons '%#begin __tmp271089)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271158 '())))) + (cons __tmp271088 '())))) (declare (not safe)) - (cons __tmp271170 __tmp271157)))) + (cons __tmp271100 __tmp271087)))) (declare (not safe)) - (cons '%#let-values __tmp271156)))) + (cons '%#let-values __tmp271086)))) (declare (not safe)) - (cons __tmp271155 '())))) + (cons __tmp271085 '())))) (declare (not safe)) - (cons _kwbind264477_ __tmp271154)))) + (cons _kwbind264407_ __tmp271084)))) (declare (not safe)) - (cons '%#let-values __tmp271153)))) + (cons '%#let-values __tmp271083)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp271152 - _stx264415_)))) + __tmp271082 + _stx264345_)))) (declare (not safe)) (gxc#compile-e__0 - __tmp271151))))))))))) + __tmp271081))))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g264434264443_ + _g264364264373_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e264439264500_ + (let* ((_e264369264430_ (let () (declare (not safe)) (##unchecked-structure-ref - _g264434264443_ + _g264364264373_ '1 gxc#!type::t '#f))) - (_e264440264503_ + (_e264370264433_ (let () (declare (not safe)) (##unchecked-structure-ref - _g264434264443_ + _g264364264373_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys264506_ _e264440264503_) - (_e264441264508_ + (_keys264436_ _e264370264433_) + (_e264371264438_ (let () (declare (not safe)) (##unchecked-structure-ref - _g264434264443_ + _g264364264373_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main264511_ _e264441264508_)) + (_main264441_ _e264371264438_)) (declare (not safe)) - (_K264438264497_ _main264511_ _keys264506_)) - (let () (declare (not safe)) (_else264436264451_))))))) + (_K264368264427_ _main264441_ _keys264436_)) + (let () (declare (not safe)) (_else264366264381_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self264417264425_ + _self264347264355_ 'gxc#!kw-lambda::t)) - (let* ((_e264421264516_ + (let* ((_e264351264446_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264417264425_ + _self264347264355_ '1 gxc#!type::t '#f))) - (_e264422264519_ + (_e264352264449_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264417264425_ + _self264347264355_ '2 gxc#!kw-lambda::t '#f))) - (_table264522_ _e264422264519_) - (_e264423264524_ + (_table264452_ _e264352264449_) + (_e264353264454_ (let () (declare (not safe)) (##unchecked-structure-ref - _self264417264425_ + _self264347264355_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch264527_ _e264423264524_)) + (_dispatch264457_ _e264353264454_)) (declare (not safe)) - (_K264420264513_ _dispatch264527_ _table264522_)) - (let () (declare (not safe)) (_E264419264429_)))))) + (_K264350264443_ _dispatch264457_ _table264452_)) + (let () (declare (not safe)) (_E264349264359_)))))) (let () (declare (not safe)) (bind-method! @@ -5030,300 +5030,300 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_stx264027_ _args264028_) - (let _lp264030_ ((_rest264032_ _args264028_) - (_pargs264033_ '()) - (_kwargs264034_ '())) - (let* ((___stx270254270255_ _rest264032_) - (_g264040264092_ + (lambda (_stx263957_ _args263958_) + (let _lp263960_ ((_rest263962_ _args263958_) + (_pargs263963_ '()) + (_kwargs263964_ '())) + (let* ((___stx270184270185_ _rest263962_) + (_g263970264022_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270254270255_))))) - (let ((___kont270256270257_ - (lambda (_L264271_ _L264272_) - (let ((__tmp271191 + ___stx270184270185_))))) + (let ((___kont270186270187_ + (lambda (_L264201_ _L264202_) + (let ((__tmp271121 (let () (declare (not safe)) - (cons _L264272_ _pargs264033_)))) + (cons _L264202_ _pargs263963_)))) (declare (not safe)) - (_lp264030_ _L264271_ __tmp271191 _kwargs264034_)))) - (___kont270258270259_ - (lambda (_L264217_) + (_lp263960_ _L264201_ __tmp271121 _kwargs263964_)))) + (___kont270188270189_ + (lambda (_L264147_) (values (let () (declare (not safe)) - (foldl1 cons _L264217_ _pargs264033_)) - (reverse _kwargs264034_)))) - (___kont270260270261_ - (lambda (_L264164_ _L264165_ _L264166_) - (let ((_kw264183_ + (foldl1 cons _L264147_ _pargs263963_)) + (reverse _kwargs263964_)))) + (___kont270190270191_ + (lambda (_L264094_ _L264095_ _L264096_) + (let ((_kw264113_ (let () (declare (not safe)) - (gx#stx-e _L264166_)))) - (if (assq _kw264183_ _kwargs264034_) + (gx#stx-e _L264096_)))) + (if (assq _kw264113_ _kwargs263964_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _stx264027_ - _kw264183_)) - (let ((__tmp271192 - (let ((__tmp271193 + _stx263957_ + _kw264113_)) + (let ((__tmp271122 + (let ((__tmp271123 (let () (declare (not safe)) - (cons _kw264183_ _L264165_)))) + (cons _kw264113_ _L264095_)))) (declare (not safe)) - (cons __tmp271193 _kwargs264034_)))) + (cons __tmp271123 _kwargs263964_)))) (declare (not safe)) - (_lp264030_ - _L264164_ - _pargs264033_ - __tmp271192)))))) - (___kont270262270263_ - (lambda (_L264112_ _L264113_) - (let ((__tmp271194 + (_lp263960_ + _L264094_ + _pargs263963_ + __tmp271122)))))) + (___kont270192270193_ + (lambda (_L264042_ _L264043_) + (let ((__tmp271124 (let () (declare (not safe)) - (cons _L264113_ _pargs264033_)))) + (cons _L264043_ _pargs263963_)))) (declare (not safe)) - (_lp264030_ _L264112_ __tmp271194 _kwargs264034_)))) - (___kont270264270265_ + (_lp263960_ _L264042_ __tmp271124 _kwargs263964_)))) + (___kont270194270195_ (lambda () - (values (reverse _pargs264033_) - (reverse _kwargs264034_))))) - (let* ((_g264039264099_ + (values (reverse _pargs263963_) + (reverse _kwargs263964_))))) + (let* ((_g263969264029_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? ___stx270254270255_)) - (___kont270264270265_) - (let () (declare (not safe)) (_g264040264092_))))) - (___match270361270362_ - (lambda (_e264073264132_ - _hd264072264135_ - _tl264071264137_ - _e264076264140_ - _hd264075264143_ - _tl264074264145_ - _e264079264148_ - _hd264078264151_ - _tl264077264153_ - _e264082264156_ - _hd264081264159_ - _tl264080264161_) - (let ((_L264164_ _tl264080264161_) - (_L264165_ _hd264081264159_) - (_L264166_ _hd264078264151_)) + (gx#stx-null? ___stx270184270185_)) + (___kont270194270195_) + (let () (declare (not safe)) (_g263970264022_))))) + (___match270291270292_ + (lambda (_e264003264062_ + _hd264002264065_ + _tl264001264067_ + _e264006264070_ + _hd264005264073_ + _tl264004264075_ + _e264009264078_ + _hd264008264081_ + _tl264007264083_ + _e264012264086_ + _hd264011264089_ + _tl264010264091_) + (let ((_L264094_ _tl264010264091_) + (_L264095_ _hd264011264089_) + (_L264096_ _hd264008264081_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L264166_)) - (___kont270260270261_ - _L264164_ - _L264165_ - _L264166_) - (___kont270262270263_ - _tl264071264137_ - _hd264072264135_)))))) + (gx#stx-keyword? _L264096_)) + (___kont270190270191_ + _L264094_ + _L264095_ + _L264096_) + (___kont270192270193_ + _tl264001264067_ + _hd264002264065_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx270254270255_)) - (let ((_e264046264236_ + (gx#stx-pair? ___stx270184270185_)) + (let ((_e263976264166_ (let () (declare (not safe)) - (gx#stx-e ___stx270254270255_)))) - (let ((_tl264044264241_ + (gx#stx-e ___stx270184270185_)))) + (let ((_tl263974264171_ (let () (declare (not safe)) - (##cdr _e264046264236_))) - (_hd264045264239_ + (##cdr _e263976264166_))) + (_hd263975264169_ (let () (declare (not safe)) - (##car _e264046264236_)))) + (##car _e263976264166_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd264045264239_)) - (let ((_e264049264244_ + (gx#stx-pair? _hd263975264169_)) + (let ((_e263979264174_ (let () (declare (not safe)) - (gx#stx-e _hd264045264239_)))) - (let ((_tl264047264249_ + (gx#stx-e _hd263975264169_)))) + (let ((_tl263977264179_ (let () (declare (not safe)) - (##cdr _e264049264244_))) - (_hd264048264247_ + (##cdr _e263979264174_))) + (_hd263978264177_ (let () (declare (not safe)) - (##car _e264049264244_)))) + (##car _e263979264174_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd264048264247_)) + (gx#identifier? _hd263978264177_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd264048264247_)) + _hd263978264177_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264047264249_)) - (let ((_e264052264252_ + (gx#stx-pair? _tl263977264179_)) + (let ((_e263982264182_ (let () (declare (not safe)) (gx#stx-e - _tl264047264249_)))) - (let ((_tl264050264257_ + _tl263977264179_)))) + (let ((_tl263980264187_ (let () (declare (not safe)) - (##cdr _e264052264252_))) - (_hd264051264255_ + (##cdr _e263982264182_))) + (_hd263981264185_ (let () (declare (not safe)) - (##car _e264052264252_)))) + (##car _e263982264182_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd264051264255_)) - (let ((_e264053264260_ + _hd263981264185_)) + (let ((_e263983264190_ (let () (declare (not safe)) (gx#stx-e - _hd264051264255_)))) + _hd263981264185_)))) (if (let () (declare (not safe)) - (equal? _e264053264260_ + (equal? _e263983264190_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264050264257_)) + (gx#stx-null? _tl263980264187_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264044264241_)) - (let ((_e264056264263_ + (gx#stx-pair? _tl263974264171_)) + (let ((_e263986264193_ (let () (declare (not safe)) - (gx#stx-e _tl264044264241_)))) - (let ((_tl264054264268_ + (gx#stx-e _tl263974264171_)))) + (let ((_tl263984264198_ (let () (declare (not safe)) - (##cdr _e264056264263_))) - (_hd264055264266_ + (##cdr _e263986264193_))) + (_hd263985264196_ (let () (declare (not safe)) - (##car _e264056264263_)))) - (___kont270256270257_ - _tl264054264268_ - _hd264055264266_))) - (___kont270262270263_ - _tl264044264241_ - _hd264045264239_)) - (___kont270262270263_ _tl264044264241_ _hd264045264239_)) + (##car _e263986264193_)))) + (___kont270186270187_ + _tl263984264198_ + _hd263985264196_))) + (___kont270192270193_ + _tl263974264171_ + _hd263975264169_)) + (___kont270192270193_ _tl263974264171_ _hd263975264169_)) (if (let () (declare (not safe)) - (equal? _e264053264260_ '#!rest)) + (equal? _e263983264190_ '#!rest)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264050264257_)) - (___kont270258270259_ _tl264044264241_) - (___kont270262270263_ - _tl264044264241_ - _hd264045264239_)) + (gx#stx-null? _tl263980264187_)) + (___kont270188270189_ _tl263974264171_) + (___kont270192270193_ + _tl263974264171_ + _hd263975264169_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264050264257_)) + (gx#stx-null? _tl263980264187_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264044264241_)) - (let ((_e264082264156_ + (gx#stx-pair? _tl263974264171_)) + (let ((_e264012264086_ (let () (declare (not safe)) - (gx#stx-e _tl264044264241_)))) - (let ((_tl264080264161_ + (gx#stx-e _tl263974264171_)))) + (let ((_tl264010264091_ (let () (declare (not safe)) - (##cdr _e264082264156_))) - (_hd264081264159_ + (##cdr _e264012264086_))) + (_hd264011264089_ (let () (declare (not safe)) - (##car _e264082264156_)))) - (___match270361270362_ - _e264046264236_ - _hd264045264239_ - _tl264044264241_ - _e264049264244_ - _hd264048264247_ - _tl264047264249_ - _e264052264252_ - _hd264051264255_ - _tl264050264257_ - _e264082264156_ - _hd264081264159_ - _tl264080264161_))) - (___kont270262270263_ - _tl264044264241_ - _hd264045264239_)) - (___kont270262270263_ - _tl264044264241_ - _hd264045264239_))))) + (##car _e264012264086_)))) + (___match270291270292_ + _e263976264166_ + _hd263975264169_ + _tl263974264171_ + _e263979264174_ + _hd263978264177_ + _tl263977264179_ + _e263982264182_ + _hd263981264185_ + _tl263980264187_ + _e264012264086_ + _hd264011264089_ + _tl264010264091_))) + (___kont270192270193_ + _tl263974264171_ + _hd263975264169_)) + (___kont270192270193_ + _tl263974264171_ + _hd263975264169_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl264050264257_)) + _tl263980264187_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264044264241_)) - (let ((_e264082264156_ + _tl263974264171_)) + (let ((_e264012264086_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl264044264241_)))) - (let ((_tl264080264161_ + (gx#stx-e _tl263974264171_)))) + (let ((_tl264010264091_ (let () (declare (not safe)) - (##cdr _e264082264156_))) - (_hd264081264159_ + (##cdr _e264012264086_))) + (_hd264011264089_ (let () (declare (not safe)) - (##car _e264082264156_)))) - (___match270361270362_ - _e264046264236_ - _hd264045264239_ - _tl264044264241_ - _e264049264244_ - _hd264048264247_ - _tl264047264249_ - _e264052264252_ - _hd264051264255_ - _tl264050264257_ - _e264082264156_ - _hd264081264159_ - _tl264080264161_))) - (___kont270262270263_ _tl264044264241_ _hd264045264239_)) - (___kont270262270263_ _tl264044264241_ _hd264045264239_))))) + (##car _e264012264086_)))) + (___match270291270292_ + _e263976264166_ + _hd263975264169_ + _tl263974264171_ + _e263979264174_ + _hd263978264177_ + _tl263977264179_ + _e263982264182_ + _hd263981264185_ + _tl263980264187_ + _e264012264086_ + _hd264011264089_ + _tl264010264091_))) + (___kont270192270193_ _tl263974264171_ _hd263975264169_)) + (___kont270192270193_ _tl263974264171_ _hd263975264169_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270262270263_ - _tl264044264241_ - _hd264045264239_)) - (___kont270262270263_ - _tl264044264241_ - _hd264045264239_)) - (___kont270262270263_ - _tl264044264241_ - _hd264045264239_)))) - (___kont270262270263_ - _tl264044264241_ - _hd264045264239_)))) - (let () (declare (not safe)) (_g264039264099_))))))))) + (___kont270192270193_ + _tl263974264171_ + _hd263975264169_)) + (___kont270192270193_ + _tl263974264171_ + _hd263975264169_)) + (___kont270192270193_ + _tl263974264171_ + _hd263975264169_)))) + (___kont270192270193_ + _tl263974264171_ + _hd263975264169_)))) + (let () (declare (not safe)) (_g263969264029_))))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_self264023_ _stx264024_ _args264025_) - (let () (declare (not safe)) (gxc#xform-call% _stx264024_)))) + (lambda (_self263953_ _stx263954_ _args263955_) + (let () (declare (not safe)) (gxc#xform-call% _stx263954_)))) (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 8363630a6..1f9d30424 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 1707423043) + (define gerbil/compiler/optimize-spec::timestamp 1707565663) (begin (define gxc#&generate-method-specializers (make-promise (lambda () - (let ((_tbl239030_ + (let ((_tbl238960_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp244352 (force gxc#&identity))) + (let ((__tmp244282 (force gxc#&identity))) (declare (not safe)) - (hash-copy! _tbl239030_ __tmp244352)) + (hash-copy! _tbl238960_ __tmp244282)) (let () (declare (not safe)) - (table-set! _tbl239030_ '%#begin gxc#xform-begin%)) + (table-set! _tbl238960_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl239030_ '%#begin-syntax gxc#xform-begin-syntax%)) + (table-set! _tbl238960_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl239030_ '%#module gxc#xform-module%)) + (table-set! _tbl238960_ '%#module gxc#xform-module%)) (let () (declare (not safe)) (table-set! - _tbl239030_ + _tbl238960_ '%#define-values gxc#generate-method-specializers-define-values%)) - _tbl239030_)))) + _tbl238960_)))) (define gxc#apply-generate-method-specializers - (lambda (_stx239013_ . _args239015_) - (let ((__tmp244354 + (lambda (_stx238943_ . _args238945_) + (let ((__tmp244284 (lambda () (declare (not safe)) - (if (null? _args239015_) - (gxc#compile-e__0 _stx239013_) - (let ((_arg1239020_ (car _args239015_)) - (_rest239022_ (cdr _args239015_))) - (if (null? _rest239022_) - (gxc#compile-e__1 _stx239013_ _arg1239020_) - (let ((_arg2239025_ (car _rest239022_)) - (_rest239027_ (cdr _rest239022_))) - (if (null? _rest239027_) + (if (null? _args238945_) + (gxc#compile-e__0 _stx238943_) + (let ((_arg1238950_ (car _args238945_)) + (_rest238952_ (cdr _args238945_))) + (if (null? _rest238952_) + (gxc#compile-e__1 _stx238943_ _arg1238950_) + (let ((_arg2238955_ (car _rest238952_)) + (_rest238957_ (cdr _rest238952_))) + (if (null? _rest238957_) (gxc#compile-e__2 - _stx239013_ - _arg1239020_ - _arg2239025_) + _stx238943_ + _arg1238950_ + _arg2238955_) (apply gxc#compile-e - _stx239013_ - _arg1239020_ - _arg2239025_ - _rest239027_)))))))) - (__tmp244353 (force gxc#&generate-method-specializers))) + _stx238943_ + _arg1238950_ + _arg2238955_ + _rest238957_)))))))) + (__tmp244283 (force gxc#&generate-method-specializers))) (declare (not safe)) (call-with-parameters - __tmp244354 + __tmp244284 gxc#current-compile-methods - __tmp244353)))) + __tmp244283)))) (define gxc#&collect-object-refs (make-promise (lambda () - (let ((_tbl239010_ + (let ((_tbl238940_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp244355 (force gxc#&void))) + (let ((__tmp244285 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl239010_ __tmp244355)) + (hash-copy! _tbl238940_ __tmp244285)) (let () (declare (not safe)) - (table-set! _tbl239010_ '%#begin gxc#collect-begin%)) + (table-set! _tbl238940_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl239010_ + _tbl238940_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl239010_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl238940_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl239010_ + _tbl238940_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl239010_ + _tbl238940_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl239010_ + _tbl238940_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl239010_ + _tbl238940_ '%#letrec-values* gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl239010_ '%#call gxc#collect-object-refs-call%)) + (table-set! _tbl238940_ '%#call gxc#collect-object-refs-call%)) (let () (declare (not safe)) - (table-set! _tbl239010_ '%#if gxc#collect-operands)) + (table-set! _tbl238940_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl239010_ '%#set! gxc#collect-body-setq%)) + (table-set! _tbl238940_ '%#set! gxc#collect-body-setq%)) (let () (declare (not safe)) - (table-set! _tbl239010_ '%#struct-ref gxc#collect-operands)) + (table-set! _tbl238940_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl239010_ '%#struct-set! gxc#collect-operands)) + (table-set! _tbl238940_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl239010_ + _tbl238940_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl239010_ + _tbl238940_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl239010_ + _tbl238940_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl239010_ + _tbl238940_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl239010_)))) + _tbl238940_)))) (define gxc#apply-collect-object-refs - (lambda (_stx238993_ . _args238995_) - (let ((__tmp244357 + (lambda (_stx238923_ . _args238925_) + (let ((__tmp244287 (lambda () (declare (not safe)) - (if (null? _args238995_) - (gxc#compile-e__0 _stx238993_) - (let ((_arg1239000_ (car _args238995_)) - (_rest239002_ (cdr _args238995_))) - (if (null? _rest239002_) - (gxc#compile-e__1 _stx238993_ _arg1239000_) - (let ((_arg2239005_ (car _rest239002_)) - (_rest239007_ (cdr _rest239002_))) - (if (null? _rest239007_) + (if (null? _args238925_) + (gxc#compile-e__0 _stx238923_) + (let ((_arg1238930_ (car _args238925_)) + (_rest238932_ (cdr _args238925_))) + (if (null? _rest238932_) + (gxc#compile-e__1 _stx238923_ _arg1238930_) + (let ((_arg2238935_ (car _rest238932_)) + (_rest238937_ (cdr _rest238932_))) + (if (null? _rest238937_) (gxc#compile-e__2 - _stx238993_ - _arg1239000_ - _arg2239005_) + _stx238923_ + _arg1238930_ + _arg2238935_) (apply gxc#compile-e - _stx238993_ - _arg1239000_ - _arg2239005_ - _rest239007_)))))))) - (__tmp244356 (force gxc#&collect-object-refs))) + _stx238923_ + _arg1238930_ + _arg2238935_ + _rest238937_)))))))) + (__tmp244286 (force gxc#&collect-object-refs))) (declare (not safe)) (call-with-parameters - __tmp244357 + __tmp244287 gxc#current-compile-methods - __tmp244356)))) + __tmp244286)))) (define gxc#&subst-object-refs (make-promise (lambda () - (let ((_tbl238990_ + (let ((_tbl238920_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp244358 (force gxc#&basic-xform-expression))) + (let ((__tmp244288 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl238990_ __tmp244358)) + (hash-copy! _tbl238920_ __tmp244288)) (let () (declare (not safe)) - (table-set! _tbl238990_ '%#begin gxc#xform-begin%)) + (table-set! _tbl238920_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl238990_ '%#call gxc#subst-object-refs-call%)) - _tbl238990_)))) + (table-set! _tbl238920_ '%#call gxc#subst-object-refs-call%)) + _tbl238920_)))) (define gxc#apply-subst-object-refs - (lambda (_stx238973_ . _args238975_) - (let ((__tmp244360 + (lambda (_stx238903_ . _args238905_) + (let ((__tmp244290 (lambda () (declare (not safe)) - (if (null? _args238975_) - (gxc#compile-e__0 _stx238973_) - (let ((_arg1238980_ (car _args238975_)) - (_rest238982_ (cdr _args238975_))) - (if (null? _rest238982_) - (gxc#compile-e__1 _stx238973_ _arg1238980_) - (let ((_arg2238985_ (car _rest238982_)) - (_rest238987_ (cdr _rest238982_))) - (if (null? _rest238987_) + (if (null? _args238905_) + (gxc#compile-e__0 _stx238903_) + (let ((_arg1238910_ (car _args238905_)) + (_rest238912_ (cdr _args238905_))) + (if (null? _rest238912_) + (gxc#compile-e__1 _stx238903_ _arg1238910_) + (let ((_arg2238915_ (car _rest238912_)) + (_rest238917_ (cdr _rest238912_))) + (if (null? _rest238917_) (gxc#compile-e__2 - _stx238973_ - _arg1238980_ - _arg2238985_) + _stx238903_ + _arg1238910_ + _arg2238915_) (apply gxc#compile-e - _stx238973_ - _arg1238980_ - _arg2238985_ - _rest238987_)))))))) - (__tmp244359 (force gxc#&subst-object-refs))) + _stx238903_ + _arg1238910_ + _arg2238915_ + _rest238917_)))))))) + (__tmp244289 (force gxc#&subst-object-refs))) (declare (not safe)) (call-with-parameters - __tmp244360 + __tmp244290 gxc#current-compile-methods - __tmp244359)))) + __tmp244289)))) (define gxc#generate-method-specializers-define-values% - (lambda (_stx235643_) - (letrec ((_generate-method-bind235645_ - (lambda (_$t238967_ _id238968_ _$id238969_) - (let ((_$tmp238971_ - (let ((__tmp244361 (gensym '__tmp))) + (lambda (_stx235573_) + (letrec ((_generate-method-bind235575_ + (lambda (_$t238897_ _id238898_ _$id238899_) + (let ((_$tmp238901_ + (let ((__tmp244291 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp244361)))) - (let ((__tmp244406 + (make-symbol__0 __tmp244291)))) + (let ((__tmp244336 (let () (declare (not safe)) - (cons _$id238969_ '()))) - (__tmp244362 - (let ((__tmp244363 - (let ((__tmp244364 - (let ((__tmp244404 - (let ((__tmp244405 + (cons _$id238899_ '()))) + (__tmp244292 + (let ((__tmp244293 + (let ((__tmp244294 + (let ((__tmp244334 + (let ((__tmp244335 (let () (declare (not safe)) (cons 'make-promise @@ -236,1268 +236,1268 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp244405))) - (__tmp244365 - (let ((__tmp244366 - (let ((__tmp244367 - (let ((__tmp244368 + (cons '%#ref __tmp244335))) + (__tmp244295 + (let ((__tmp244296 + (let ((__tmp244297 + (let ((__tmp244298 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244369 - (let ((__tmp244370 - (let ((__tmp244390 - (let ((__tmp244391 - (let ((__tmp244403 + (let ((__tmp244299 + (let ((__tmp244300 + (let ((__tmp244320 + (let ((__tmp244321 + (let ((__tmp244333 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$tmp238971_ '()))) - (__tmp244392 - (let ((__tmp244393 - (let ((__tmp244394 - (let ((__tmp244401 - (let ((__tmp244402 + (cons _$tmp238901_ '()))) + (__tmp244322 + (let ((__tmp244323 + (let ((__tmp244324 + (let ((__tmp244331 + (let ((__tmp244332 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp244402))) - (__tmp244395 - (let ((__tmp244399 - (let ((__tmp244400 + (cons '%#ref __tmp244332))) + (__tmp244325 + (let ((__tmp244329 + (let ((__tmp244330 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$t238967_ '())))) + (cons _$t238897_ '())))) (declare (not safe)) - (cons '%#ref __tmp244400))) + (cons '%#ref __tmp244330))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp244396 - (let ((__tmp244397 - (let ((__tmp244398 + (__tmp244326 + (let ((__tmp244327 + (let ((__tmp244328 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id238968_ '())))) + (cons _id238898_ '())))) (declare (not safe)) - (cons '%#quote __tmp244398)))) + (cons '%#quote __tmp244328)))) (declare (not safe)) - (cons __tmp244397 '())))) + (cons __tmp244327 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244399 - __tmp244396)))) + (cons __tmp244329 + __tmp244326)))) (declare (not safe)) - (cons __tmp244401 __tmp244395)))) + (cons __tmp244331 __tmp244325)))) (declare (not safe)) - (cons '%#call __tmp244394)))) + (cons '%#call __tmp244324)))) (declare (not safe)) - (cons __tmp244393 '())))) + (cons __tmp244323 '())))) (declare (not safe)) - (cons __tmp244403 __tmp244392)))) + (cons __tmp244333 __tmp244322)))) (declare (not safe)) - (cons __tmp244391 '()))) + (cons __tmp244321 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp244371 - (let ((__tmp244372 - (let ((__tmp244373 + (__tmp244301 + (let ((__tmp244302 + (let ((__tmp244303 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244388 - (let ((__tmp244389 + (let ((__tmp244318 + (let ((__tmp244319 (let () (declare (not safe)) - (cons _$tmp238971_ '())))) + (cons _$tmp238901_ '())))) (declare (not safe)) - (cons '%#ref __tmp244389))) - (__tmp244374 - (let ((__tmp244386 - (let ((__tmp244387 + (cons '%#ref __tmp244319))) + (__tmp244304 + (let ((__tmp244316 + (let ((__tmp244317 (let () (declare (not safe)) - (cons _$tmp238971_ '())))) + (cons _$tmp238901_ '())))) (declare (not safe)) - (cons '%#ref __tmp244387))) - (__tmp244375 - (let ((__tmp244376 - (let ((__tmp244377 - (let ((__tmp244384 - (let ((__tmp244385 + (cons '%#ref __tmp244317))) + (__tmp244305 + (let ((__tmp244306 + (let ((__tmp244307 + (let ((__tmp244314 + (let ((__tmp244315 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp244385))) - (__tmp244378 - (let ((__tmp244382 - (let ((__tmp244383 + (cons '%#ref __tmp244315))) + (__tmp244308 + (let ((__tmp244312 + (let ((__tmp244313 (let () (declare (not safe)) (cons '"Missing method" '())))) (declare (not safe)) - (cons '%#quote __tmp244383))) - (__tmp244379 - (let ((__tmp244380 - (let ((__tmp244381 + (cons '%#quote __tmp244313))) + (__tmp244309 + (let ((__tmp244310 + (let ((__tmp244311 (let () (declare (not safe)) - (cons _id238968_ '())))) + (cons _id238898_ '())))) (declare (not safe)) - (cons '%#quote __tmp244381)))) + (cons '%#quote __tmp244311)))) (declare (not safe)) - (cons __tmp244380 '())))) + (cons __tmp244310 '())))) (declare (not safe)) - (cons __tmp244382 __tmp244379)))) + (cons __tmp244312 __tmp244309)))) (declare (not safe)) - (cons __tmp244384 __tmp244378)))) + (cons __tmp244314 __tmp244308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp244377)))) + (cons '%#call __tmp244307)))) (declare (not safe)) - (cons __tmp244376 '())))) + (cons __tmp244306 '())))) (declare (not safe)) - (cons __tmp244386 __tmp244375)))) + (cons __tmp244316 __tmp244305)))) (declare (not safe)) - (cons __tmp244388 __tmp244374)))) + (cons __tmp244318 __tmp244304)))) (declare (not safe)) - (cons '%#if __tmp244373)))) + (cons '%#if __tmp244303)))) (declare (not safe)) - (cons __tmp244372 '())))) + (cons __tmp244302 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244390 - __tmp244371)))) + (cons __tmp244320 + __tmp244301)))) (declare (not safe)) - (cons '%#let-values __tmp244370)))) + (cons '%#let-values __tmp244300)))) (declare (not safe)) - (cons __tmp244369 '())))) + (cons __tmp244299 '())))) (declare (not safe)) - (cons '() __tmp244368)))) + (cons '() __tmp244298)))) (declare (not safe)) - (cons '%#lambda __tmp244367)))) + (cons '%#lambda __tmp244297)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244366 '())))) + (cons __tmp244296 '())))) (declare (not safe)) - (cons __tmp244404 __tmp244365)))) + (cons __tmp244334 __tmp244295)))) (declare (not safe)) - (cons '%#call __tmp244364)))) + (cons '%#call __tmp244294)))) (declare (not safe)) - (cons __tmp244363 '())))) + (cons __tmp244293 '())))) (declare (not safe)) - (cons __tmp244406 __tmp244362))))) - (_generate-slot-bind235646_ - (lambda (_$t238961_ _id238962_ _$id238963_) - (let ((_$tmp238965_ - (let ((__tmp244407 (gensym '__tmp))) + (cons __tmp244336 __tmp244292))))) + (_generate-slot-bind235576_ + (lambda (_$t238891_ _id238892_ _$id238893_) + (let ((_$tmp238895_ + (let ((__tmp244337 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp244407)))) - (let ((__tmp244444 + (make-symbol__0 __tmp244337)))) + (let ((__tmp244374 (let () (declare (not safe)) - (cons _$id238963_ '()))) - (__tmp244408 - (let ((__tmp244409 - (let ((__tmp244410 - (let ((__tmp244430 - (let ((__tmp244431 - (let ((__tmp244443 + (cons _$id238893_ '()))) + (__tmp244338 + (let ((__tmp244339 + (let ((__tmp244340 + (let ((__tmp244360 + (let ((__tmp244361 + (let ((__tmp244373 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tmp238965_ '()))) - (__tmp244432 - (let ((__tmp244433 - (let ((__tmp244434 - (let ((__tmp244441 - (let ((__tmp244442 + (cons _$tmp238895_ '()))) + (__tmp244362 + (let ((__tmp244363 + (let ((__tmp244364 + (let ((__tmp244371 + (let ((__tmp244372 (let () (declare (not safe)) - (cons 'class-slot-offset* + (cons 'class-slot-offset '())))) (declare (not safe)) - (cons '%#ref __tmp244442))) - (__tmp244435 - (let ((__tmp244439 - (let ((__tmp244440 + (cons '%#ref __tmp244372))) + (__tmp244365 + (let ((__tmp244369 + (let ((__tmp244370 (let () (declare (not safe)) - (cons _$t238961_ + (cons _$t238891_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp244440))) + (cons '%#ref __tmp244370))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp244436 - (let ((__tmp244437 - (let ((__tmp244438 + (__tmp244366 + (let ((__tmp244367 + (let ((__tmp244368 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id238962_ '())))) + (let () (declare (not safe)) (cons _id238892_ '())))) (declare (not safe)) - (cons '%#quote __tmp244438)))) + (cons '%#quote __tmp244368)))) (declare (not safe)) - (cons __tmp244437 '())))) + (cons __tmp244367 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244439 - __tmp244436)))) + (cons __tmp244369 + __tmp244366)))) (declare (not safe)) - (cons __tmp244441 __tmp244435)))) + (cons __tmp244371 __tmp244365)))) (declare (not safe)) - (cons '%#call __tmp244434)))) + (cons '%#call __tmp244364)))) (declare (not safe)) - (cons __tmp244433 '())))) + (cons __tmp244363 '())))) (declare (not safe)) - (cons __tmp244443 __tmp244432)))) + (cons __tmp244373 __tmp244362)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244431 '()))) - (__tmp244411 - (let ((__tmp244412 - (let ((__tmp244413 - (let ((__tmp244428 + (cons __tmp244361 '()))) + (__tmp244341 + (let ((__tmp244342 + (let ((__tmp244343 + (let ((__tmp244358 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244429 + (let ((__tmp244359 (let () (declare (not safe)) - (cons _$tmp238965_ '())))) + (cons _$tmp238895_ '())))) (declare (not safe)) - (cons '%#ref __tmp244429))) - (__tmp244414 - (let ((__tmp244426 - (let ((__tmp244427 + (cons '%#ref __tmp244359))) + (__tmp244344 + (let ((__tmp244356 + (let ((__tmp244357 (let () (declare (not safe)) - (cons _$tmp238965_ '())))) + (cons _$tmp238895_ '())))) (declare (not safe)) - (cons '%#ref __tmp244427))) - (__tmp244415 - (let ((__tmp244416 - (let ((__tmp244417 - (let ((__tmp244424 - (let ((__tmp244425 + (cons '%#ref __tmp244357))) + (__tmp244345 + (let ((__tmp244346 + (let ((__tmp244347 + (let ((__tmp244354 + (let ((__tmp244355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp244425))) - (__tmp244418 - (let ((__tmp244422 - (let ((__tmp244423 + (cons '%#ref __tmp244355))) + (__tmp244348 + (let ((__tmp244352 + (let ((__tmp244353 (let () (declare (not safe)) (cons '"Unknown slot" '())))) (declare (not safe)) - (cons '%#quote __tmp244423))) - (__tmp244419 - (let ((__tmp244420 - (let ((__tmp244421 + (cons '%#quote __tmp244353))) + (__tmp244349 + (let ((__tmp244350 + (let ((__tmp244351 (let () (declare (not safe)) - (cons _id238962_ '())))) + (cons _id238892_ '())))) (declare (not safe)) - (cons '%#quote __tmp244421)))) + (cons '%#quote __tmp244351)))) (declare (not safe)) - (cons __tmp244420 '())))) + (cons __tmp244350 '())))) (declare (not safe)) - (cons __tmp244422 __tmp244419)))) + (cons __tmp244352 __tmp244349)))) (declare (not safe)) - (cons __tmp244424 __tmp244418)))) + (cons __tmp244354 __tmp244348)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp244417)))) + (cons '%#call __tmp244347)))) (declare (not safe)) - (cons __tmp244416 '())))) + (cons __tmp244346 '())))) (declare (not safe)) - (cons __tmp244426 __tmp244415)))) + (cons __tmp244356 __tmp244345)))) (declare (not safe)) - (cons __tmp244428 __tmp244414)))) + (cons __tmp244358 __tmp244344)))) (declare (not safe)) - (cons '%#if __tmp244413)))) + (cons '%#if __tmp244343)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244412 '())))) + (cons __tmp244342 '())))) (declare (not safe)) - (cons __tmp244430 __tmp244411)))) + (cons __tmp244360 __tmp244341)))) (declare (not safe)) - (cons '%#let-values __tmp244410)))) + (cons '%#let-values __tmp244340)))) (declare (not safe)) - (cons __tmp244409 '())))) + (cons __tmp244339 '())))) (declare (not safe)) - (cons __tmp244444 __tmp244408))))) - (_generate-class-check-bind235647_ - (lambda (_$t238957_ _class-type238958_ _$class-type238959_) - (let ((__tmp244456 + (cons __tmp244374 __tmp244338))))) + (_generate-class-check-bind235577_ + (lambda (_$t238887_ _class-type238888_ _$class-type238889_) + (let ((__tmp244386 (let () (declare (not safe)) - (cons _$class-type238959_ '()))) - (__tmp244445 - (let ((__tmp244446 - (let ((__tmp244447 - (let ((__tmp244454 - (let ((__tmp244455 + (cons _$class-type238889_ '()))) + (__tmp244375 + (let ((__tmp244376 + (let ((__tmp244377 + (let ((__tmp244384 + (let ((__tmp244385 (let () (declare (not safe)) - (cons 'class-subtype? + (cons 'subclass? '())))) (declare (not safe)) - (cons '%#ref __tmp244455))) - (__tmp244448 - (let ((__tmp244452 - (let ((__tmp244453 + (cons '%#ref __tmp244385))) + (__tmp244378 + (let ((__tmp244382 + (let ((__tmp244383 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _class-type238958_ '())))) + (cons _$t238887_ '())))) (declare (not safe)) - (cons '%#ref __tmp244453))) - (__tmp244449 - (let ((__tmp244450 - (let ((__tmp244451 + (cons '%#ref __tmp244383))) + (__tmp244379 + (let ((__tmp244380 + (let ((__tmp244381 (let () (declare (not safe)) - (cons _$t238957_ '())))) + (cons _class-type238888_ '())))) (declare (not safe)) - (cons '%#ref __tmp244451)))) + (cons '%#ref __tmp244381)))) (declare (not safe)) - (cons __tmp244450 '())))) + (cons __tmp244380 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244452 - __tmp244449)))) + (cons __tmp244382 + __tmp244379)))) (declare (not safe)) - (cons __tmp244454 __tmp244448)))) + (cons __tmp244384 __tmp244378)))) (declare (not safe)) - (cons '%#call __tmp244447)))) + (cons '%#call __tmp244377)))) (declare (not safe)) - (cons __tmp244446 '())))) + (cons __tmp244376 '())))) (declare (not safe)) - (cons __tmp244456 __tmp244445)))) - (_generate-struct-check-bind235648_ - (lambda (_$t238953_ _class-type238954_ _$class-type238955_) - (let ((__tmp244468 + (cons __tmp244386 __tmp244375)))) + (_generate-struct-check-bind235578_ + (lambda (_$t238883_ _class-type238884_ _$class-type238885_) + (let ((__tmp244398 (let () (declare (not safe)) - (cons _$class-type238955_ '()))) - (__tmp244457 - (let ((__tmp244458 - (let ((__tmp244459 - (let ((__tmp244466 - (let ((__tmp244467 + (cons _$class-type238885_ '()))) + (__tmp244387 + (let ((__tmp244388 + (let ((__tmp244389 + (let ((__tmp244396 + (let ((__tmp244397 (let () (declare (not safe)) - (cons 'struct-subtype? + (cons 'substruct? '())))) (declare (not safe)) - (cons '%#ref __tmp244467))) - (__tmp244460 - (let ((__tmp244464 - (let ((__tmp244465 + (cons '%#ref __tmp244397))) + (__tmp244390 + (let ((__tmp244394 + (let ((__tmp244395 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _class-type238954_ '())))) + (cons _$t238883_ '())))) (declare (not safe)) - (cons '%#ref __tmp244465))) - (__tmp244461 - (let ((__tmp244462 - (let ((__tmp244463 + (cons '%#ref __tmp244395))) + (__tmp244391 + (let ((__tmp244392 + (let ((__tmp244393 (let () (declare (not safe)) - (cons _$t238953_ '())))) + (cons _class-type238884_ '())))) (declare (not safe)) - (cons '%#ref __tmp244463)))) + (cons '%#ref __tmp244393)))) (declare (not safe)) - (cons __tmp244462 '())))) + (cons __tmp244392 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244464 - __tmp244461)))) + (cons __tmp244394 + __tmp244391)))) (declare (not safe)) - (cons __tmp244466 __tmp244460)))) + (cons __tmp244396 __tmp244390)))) (declare (not safe)) - (cons '%#call __tmp244459)))) + (cons '%#call __tmp244389)))) (declare (not safe)) - (cons __tmp244458 '())))) + (cons __tmp244388 '())))) (declare (not safe)) - (cons __tmp244468 __tmp244457)))) - (_generate-specializer-impl235649_ - (lambda (_$t238902_ - _methods-bind238903_ - _slots-bind238904_ - _class-check-bind238905_ - _struct-check-bind238906_ - _specializer-impl238907_ - _lifted-specializer-id238908_ - _unchecked-specializer-impl238909_) - (let ((__tmp244469 - (let ((__tmp244470 - (let ((__tmp244496 + (cons __tmp244398 __tmp244387)))) + (_generate-specializer-impl235579_ + (lambda (_$t238832_ + _methods-bind238833_ + _slots-bind238834_ + _class-check-bind238835_ + _struct-check-bind238836_ + _specializer-impl238837_ + _lifted-specializer-id238838_ + _unchecked-specializer-impl238839_) + (let ((__tmp244399 + (let ((__tmp244400 + (let ((__tmp244426 (let () (declare (not safe)) - (cons _$t238902_ '()))) - (__tmp244471 - (let ((__tmp244472 - (let ((__tmp244473 - (let ((__tmp244493 - (let ((__tmp244494 + (cons _$t238832_ '()))) + (__tmp244401 + (let ((__tmp244402 + (let ((__tmp244403 + (let ((__tmp244423 + (let ((__tmp244424 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244495 + (let ((__tmp244425 (let () (declare (not safe)) (foldr1 cons - _struct-check-bind238906_ - _class-check-bind238905_)))) + _struct-check-bind238836_ + _class-check-bind238835_)))) (declare (not safe)) - (foldr1 cons __tmp244495 _slots-bind238904_)))) + (foldr1 cons __tmp244425 _slots-bind238834_)))) (declare (not safe)) - (foldr1 cons __tmp244494 _methods-bind238903_))) - (__tmp244474 - (let ((__tmp244475 - (if (or _lifted-specializer-id238908_ - _unchecked-specializer-impl238909_) - (let* ((_$specializer238914_ - (let ((__tmp244476 + (foldr1 cons __tmp244424 _methods-bind238833_))) + (__tmp244404 + (let ((__tmp244405 + (if (or _lifted-specializer-id238838_ + _unchecked-specializer-impl238839_) + (let* ((_$specializer238844_ + (let ((__tmp244406 (gensym '__specializer))) (declare (not safe)) - (make-symbol__0 __tmp244476))) - (__tmp244477 - (let ((__tmp244489 - (let ((__tmp244490 - (let ((__tmp244492 + (make-symbol__0 __tmp244406))) + (__tmp244407 + (let ((__tmp244419 + (let ((__tmp244420 + (let ((__tmp244422 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$specializer238914_ '()))) - (__tmp244491 + (cons _$specializer238844_ '()))) + (__tmp244421 (let () (declare (not safe)) - (cons _specializer-impl238907_ '())))) + (cons _specializer-impl238837_ '())))) (declare (not safe)) - (cons __tmp244492 __tmp244491)))) + (cons __tmp244422 __tmp244421)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244490 '()))) - (__tmp244478 - (let ((__tmp244479 - (let _recur238916_ ((_rest238918_ + (cons __tmp244420 '()))) + (__tmp244408 + (let ((__tmp244409 + (let _recur238846_ ((_rest238848_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _struct-check-bind238906_))) - (let* ((_rest238919238927_ _rest238918_) - (_else238921238935_ + (map caar _struct-check-bind238836_))) + (let* ((_rest238849238857_ _rest238848_) + (_else238851238865_ (lambda () - (if _lifted-specializer-id238908_ - (let ((__tmp244480 + (if _lifted-specializer-id238838_ + (let ((__tmp244410 (let () (declare (not safe)) - (cons _lifted-specializer-id238908_ + (cons _lifted-specializer-id238838_ '())))) (declare (not safe)) - (cons '%#ref __tmp244480)) - _unchecked-specializer-impl238909_))) - (_K238923238941_ - (lambda (_rest238938_ _checkq238939_) - (let ((__tmp244481 - (let ((__tmp244487 - (let ((__tmp244488 + (cons '%#ref __tmp244410)) + _unchecked-specializer-impl238839_))) + (_K238853238871_ + (lambda (_rest238868_ _checkq238869_) + (let ((__tmp244411 + (let ((__tmp244417 + (let ((__tmp244418 (let () (declare (not safe)) - (cons _checkq238939_ '())))) + (cons _checkq238869_ '())))) (declare (not safe)) - (cons '%#ref __tmp244488))) - (__tmp244482 - (let ((__tmp244486 + (cons '%#ref __tmp244418))) + (__tmp244412 + (let ((__tmp244416 (let () (declare (not safe)) - (_recur238916_ - _rest238938_))) - (__tmp244483 - (let ((__tmp244484 - (let ((__tmp244485 + (_recur238846_ + _rest238868_))) + (__tmp244413 + (let ((__tmp244414 + (let ((__tmp244415 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$specializer238914_ '())))) + (cons _$specializer238844_ '())))) (declare (not safe)) - (cons '%#ref __tmp244485)))) + (cons '%#ref __tmp244415)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244484 '())))) + (cons __tmp244414 '())))) (declare (not safe)) - (cons __tmp244486 __tmp244483)))) + (cons __tmp244416 __tmp244413)))) (declare (not safe)) - (cons __tmp244487 __tmp244482)))) + (cons __tmp244417 __tmp244412)))) (declare (not safe)) - (cons '%#if __tmp244481))))) + (cons '%#if __tmp244411))))) (if (let () (declare (not safe)) - (##pair? _rest238919238927_)) - (let ((_hd238924238944_ + (##pair? _rest238849238857_)) + (let ((_hd238854238874_ (let () (declare (not safe)) - (##car _rest238919238927_))) - (_tl238925238946_ + (##car _rest238849238857_))) + (_tl238855238876_ (let () (declare (not safe)) - (##cdr _rest238919238927_)))) - (let* ((_checkq238949_ _hd238924238944_) - (_rest238951_ _tl238925238946_)) + (##cdr _rest238849238857_)))) + (let* ((_checkq238879_ _hd238854238874_) + (_rest238881_ _tl238855238876_)) (declare (not safe)) - (_K238923238941_ _rest238951_ _checkq238949_))) - (let () (declare (not safe)) (_else238921238935_))))))) + (_K238853238871_ _rest238881_ _checkq238879_))) + (let () (declare (not safe)) (_else238851238865_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244479 '())))) + (cons __tmp244409 '())))) (declare (not safe)) - (cons __tmp244489 __tmp244478)))) + (cons __tmp244419 __tmp244408)))) (declare (not safe)) - (cons '%#let-values __tmp244477)) - _specializer-impl238907_))) + (cons '%#let-values __tmp244407)) + _specializer-impl238837_))) (declare (not safe)) - (cons __tmp244475 '())))) + (cons __tmp244405 '())))) (declare (not safe)) - (cons __tmp244493 __tmp244474)))) + (cons __tmp244423 __tmp244404)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp244473)))) + __tmp244403)))) (declare (not safe)) - (cons __tmp244472 '())))) + (cons __tmp244402 '())))) (declare (not safe)) - (cons __tmp244496 __tmp244471)))) + (cons __tmp244426 __tmp244401)))) (declare (not safe)) - (cons '%#lambda __tmp244470)))) + (cons '%#lambda __tmp244400)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244469 _stx235643_)))) - (_generate-specializer-def235650_ - (lambda (_id238896_ - _specializer-id238897_ - _specializer-impl238898_ - _lifted-specializer-id238899_ - _unchecked-specializer-impl238900_) - (let ((__tmp244497 - (let ((__tmp244498 - (let ((__tmp244499 - (let ((__tmp244519 - (let ((__tmp244520 - (let ((__tmp244521 - (let ((__tmp244523 + (gxc#xform-wrap-source __tmp244399 _stx235573_)))) + (_generate-specializer-def235580_ + (lambda (_id238826_ + _specializer-id238827_ + _specializer-impl238828_ + _lifted-specializer-id238829_ + _unchecked-specializer-impl238830_) + (let ((__tmp244427 + (let ((__tmp244428 + (let ((__tmp244429 + (let ((__tmp244449 + (let ((__tmp244450 + (let ((__tmp244451 + (let ((__tmp244453 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _specializer-id238897_ '()))) - (__tmp244522 + (cons _specializer-id238827_ '()))) + (__tmp244452 (let () (declare (not safe)) - (cons _specializer-impl238898_ '())))) + (cons _specializer-impl238828_ '())))) (declare (not safe)) - (cons __tmp244523 __tmp244522)))) + (cons __tmp244453 __tmp244452)))) (declare (not safe)) - (cons '%#define-values __tmp244521)))) + (cons '%#define-values __tmp244451)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp244520 - _stx235643_))) - (__tmp244500 - (let ((__tmp244507 - (let ((__tmp244508 - (let ((__tmp244509 + __tmp244450 + _stx235573_))) + (__tmp244430 + (let ((__tmp244437 + (let ((__tmp244438 + (let ((__tmp244439 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244510 - (let ((__tmp244517 - (let ((__tmp244518 + (let ((__tmp244440 + (let ((__tmp244447 + (let ((__tmp244448 (let () (declare (not safe)) (cons 'bind-specializer! '())))) (declare (not safe)) - (cons '%#ref __tmp244518))) - (__tmp244511 - (let ((__tmp244515 - (let ((__tmp244516 + (cons '%#ref __tmp244448))) + (__tmp244441 + (let ((__tmp244445 + (let ((__tmp244446 (let () (declare (not safe)) - (cons _id238896_ + (cons _id238826_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp244516))) - (__tmp244512 - (let ((__tmp244513 - (let ((__tmp244514 + (cons '%#ref __tmp244446))) + (__tmp244442 + (let ((__tmp244443 + (let ((__tmp244444 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _specializer-id238897_ '())))) + (cons _specializer-id238827_ '())))) (declare (not safe)) - (cons '%#ref __tmp244514)))) + (cons '%#ref __tmp244444)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244513 '())))) + (cons __tmp244443 '())))) (declare (not safe)) - (cons __tmp244515 __tmp244512)))) + (cons __tmp244445 __tmp244442)))) (declare (not safe)) - (cons __tmp244517 __tmp244511)))) + (cons __tmp244447 __tmp244441)))) (declare (not safe)) - (cons '%#call __tmp244510)))) + (cons '%#call __tmp244440)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244509 _stx235643_)))) + (gxc#xform-wrap-source __tmp244439 _stx235573_)))) (declare (not safe)) - (cons __tmp244508 '()))) - (__tmp244501 - (if _lifted-specializer-id238899_ - (let ((__tmp244502 - (let ((__tmp244503 - (let ((__tmp244504 - (let ((__tmp244506 + (cons __tmp244438 '()))) + (__tmp244431 + (if _lifted-specializer-id238829_ + (let ((__tmp244432 + (let ((__tmp244433 + (let ((__tmp244434 + (let ((__tmp244436 (let () (declare (not safe)) - (cons _lifted-specializer-id238899_ + (cons _lifted-specializer-id238829_ '()))) - (__tmp244505 + (__tmp244435 (let () (declare (not safe)) - (cons _unchecked-specializer-impl238900_ + (cons _unchecked-specializer-impl238830_ '())))) (declare (not safe)) - (cons __tmp244506 __tmp244505)))) + (cons __tmp244436 __tmp244435)))) (declare (not safe)) - (cons '%#define-values __tmp244504)))) + (cons '%#define-values __tmp244434)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244503 _stx235643_)))) + (gxc#xform-wrap-source __tmp244433 _stx235573_)))) (declare (not safe)) - (cons __tmp244502 '())) + (cons __tmp244432 '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp244507 - __tmp244501)))) + __tmp244437 + __tmp244431)))) (declare (not safe)) - (cons __tmp244519 __tmp244500)))) + (cons __tmp244449 __tmp244430)))) (declare (not safe)) - (cons _stx235643_ __tmp244499)))) + (cons _stx235573_ __tmp244429)))) (declare (not safe)) - (cons '%#begin __tmp244498)))) + (cons '%#begin __tmp244428)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244497 _stx235643_))))) - (let* ((___stx243313243314_ _stx235643_) - (_g235653235673_ + (gxc#xform-wrap-source __tmp244427 _stx235573_))))) + (let* ((___stx243243243244_ _stx235573_) + (_g235583235603_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243313243314_))))) - (let ((___kont243315243316_ - (lambda (_L235717_ _L235718_) - (let ((_method-calls235737_ + ___stx243243243244_))))) + (let ((___kont243245243246_ + (lambda (_L235647_ _L235648_) + (let ((_method-calls235667_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_slot-refs235738_ + (_slot-refs235668_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_class-type-check235739_ + (_class-type-check235669_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_struct-type-check235740_ + (_struct-type-check235670_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_struct-type-assert235741_ + (_struct-type-assert235671_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_empty235742_ + (_empty235672_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (letrec ((_no-specializer?235744_ + (letrec ((_no-specializer?235674_ (lambda () - (if (let ((__tmp244528 + (if (let ((__tmp244458 (let () (declare (not safe)) (table-length - _method-calls235737_)))) + _method-calls235667_)))) (declare (not safe)) - (fxzero? __tmp244528)) - (if (let ((__tmp244527 + (fxzero? __tmp244458)) + (if (let ((__tmp244457 (let () (declare (not safe)) (table-length - _slot-refs235738_)))) + _slot-refs235668_)))) (declare (not safe)) - (fxzero? __tmp244527)) - (if (let ((__tmp244526 + (fxzero? __tmp244457)) + (if (let ((__tmp244456 (let () (declare (not safe)) (table-length - _class-type-check235739_)))) + _class-type-check235669_)))) (declare (not safe)) - (fxzero? __tmp244526)) - (if (let ((__tmp244525 + (fxzero? __tmp244456)) + (if (let ((__tmp244455 (let () (declare (not safe)) (table-length - _struct-type-check235740_)))) + _struct-type-check235670_)))) (declare (not safe)) - (fxzero? __tmp244525)) - (let ((__tmp244524 + (fxzero? __tmp244455)) + (let ((__tmp244454 (let () (declare (not safe)) (table-length - _struct-type-assert235741_)))) + _struct-type-assert235671_)))) (declare (not safe)) - (fxzero? __tmp244524)) + (fxzero? __tmp244454)) '#f) '#f) '#f) '#f))) - (_unchecked-specializer?235745_ + (_unchecked-specializer?235675_ (lambda () - (let ((_$e238889_ - (let ((__tmp244529 - (let ((__tmp244530 + (let ((_$e238819_ + (let ((__tmp244459 + (let ((__tmp244460 (let () (declare (not safe)) (table-length - _struct-type-check235740_)))) + _struct-type-check235670_)))) (declare (not safe)) - (fxzero? __tmp244530)))) + (fxzero? __tmp244460)))) (declare (not safe)) - (not __tmp244529)))) - (if _$e238889_ - _$e238889_ - (let ((__tmp244531 - (let ((__tmp244532 + (not __tmp244459)))) + (if _$e238819_ + _$e238819_ + (let ((__tmp244461 + (let ((__tmp244462 (let () (declare (not safe)) (table-length - _struct-type-assert235741_)))) + _struct-type-assert235671_)))) (declare (not safe)) - (fxzero? __tmp244532)))) + (fxzero? __tmp244462)))) (declare (not safe)) - (not __tmp244531)))))) - (_lift-unchecked-specializer?235746_ + (not __tmp244461)))))) + (_lift-unchecked-specializer?235676_ (lambda () - (if (let ((__tmp244535 + (if (let ((__tmp244465 (let () (declare (not safe)) (table-length - _method-calls235737_)))) + _method-calls235667_)))) (declare (not safe)) - (fxzero? __tmp244535)) - (if (let ((__tmp244534 + (fxzero? __tmp244465)) + (if (let ((__tmp244464 (let () (declare (not safe)) (table-length - _slot-refs235738_)))) + _slot-refs235668_)))) (declare (not safe)) - (fxzero? __tmp244534)) - (let ((__tmp244533 + (fxzero? __tmp244464)) + (let ((__tmp244463 (let () (declare (not safe)) (table-length - _class-type-check235739_)))) + _class-type-check235669_)))) (declare (not safe)) - (fxzero? __tmp244533)) + (fxzero? __tmp244463)) '#f) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L235717_)) - (let* ((___stx243227243228_ _L235717_) - (_g236259236277_ + (gxc#lambda-expr? _L235647_)) + (let* ((___stx243157243158_ _L235647_) + (_g236189236207_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243227243228_))))) - (let ((___kont243229243230_ - (lambda (_L236313_ _L236314_ _L236315_) + ___stx243157243158_))))) + (let ((___kont243159243160_ + (lambda (_L236243_ _L236244_ _L236245_) (for-each - (lambda (_g236330236332_) + (lambda (_g236260236262_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g236330236332_ - _L236315_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check235740_ - _struct-type-assert235741_))) - _L236313_) + _g236260236262_ + _L236245_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check235670_ + _struct-type-assert235671_))) + _L236243_) (if (let () (declare (not safe)) - (_no-specializer?235744_)) - _stx235643_ - (let* ((_specializer-id236341_ - (let* ((_id236335_ - (let ((__tmp244685 + (_no-specializer?235674_)) + _stx235573_ + (let* ((_specializer-id236271_ + (let* ((_id236265_ + (let ((__tmp244615 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L235718_)))) + (let () (declare (not safe)) (gx#stx-e _L235648_)))) (declare (not safe)) - (make-symbol__1 __tmp244685 '"::specialize"))) - (_specializer-id236338_ - (let ((__tmp244686 + (make-symbol__1 __tmp244615 '"::specialize"))) + (_specializer-id236268_ + (let ((__tmp244616 (let () (declare (not safe)) - (gx#stx-source _stx235643_)))) + (gx#stx-source _stx235573_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id236335_ __tmp244686)))) + (gx#core-quote-syntax__1 _id236265_ __tmp244616)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id236338_)) - _specializer-id236338_)) + (gx#core-bind-runtime!__0 _specializer-id236268_)) + _specializer-id236268_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lifted-specializer-id236348_ + (_lifted-specializer-id236278_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?235746_)) - (let* ((_id236343_ - (let ((__tmp244687 + (_lift-unchecked-specializer?235676_)) + (let* ((_id236273_ + (let ((__tmp244617 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L235718_)))) + (gx#stx-e _L235648_)))) (declare (not safe)) (make-symbol__1 - __tmp244687 + __tmp244617 '"::specialize::unchecked"))) - (_lifted-specializer-id236345_ - (let ((__tmp244688 + (_lifted-specializer-id236275_ + (let ((__tmp244618 (let () (declare (not safe)) - (gx#stx-source _stx235643_)))) + (gx#stx-source _stx235573_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id236343_ __tmp244688)))) + (gx#core-quote-syntax__1 _id236273_ __tmp244618)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lifted-specializer-id236345_)) - _lifted-specializer-id236345_) + (gx#core-bind-runtime!__0 _lifted-specializer-id236275_)) + _lifted-specializer-id236275_) '#f)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$t236350_ - (let ((__tmp244689 + (_$t236280_ + (let ((__tmp244619 (gensym '__t))) (declare (not safe)) (make-symbol__0 - __tmp244689))) - (_methods236352_ + __tmp244619))) + (_methods236282_ (let () (declare (not safe)) (hash-keys - _method-calls235737_))) - (_$methods236356_ - (map (lambda (_id236354_) - (let ((__tmp244690 + _method-calls235667_))) + (_$methods236286_ + (map (lambda (_id236284_) + (let ((__tmp244620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id236354_))) + (gensym _id236284_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp244690))) - _methods236352_)) + (make-symbol__1 '"__" __tmp244620))) + _methods236282_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g244691_ + (_g244621_ (for-each - (lambda (_g236357236360_ - _g236358236362_) + (lambda (_g236287236290_ + _g236288236292_) (let () (declare (not safe)) (table-set! - _method-calls235737_ - _g236357236360_ - _g236358236362_))) - _methods236352_ - _$methods236356_)) - (_methods-bind236373_ - (map (lambda (_g236365236368_ + _method-calls235667_ + _g236287236290_ + _g236288236292_))) + _methods236282_ + _$methods236286_)) + (_methods-bind236303_ + (map (lambda (_g236295236298_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g236366236370_) + _g236296236300_) (let () (declare (not safe)) - (_generate-method-bind235645_ - _$t236350_ - _g236365236368_ - _g236366236370_))) - _methods236352_ - _$methods236356_)) + (_generate-method-bind235575_ + _$t236280_ + _g236295236298_ + _g236296236300_))) + _methods236282_ + _$methods236286_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots236375_ + (_slots236305_ (let () (declare (not safe)) (hash-keys - _slot-refs235738_))) - (_$slots236379_ - (map (lambda (_id236377_) - (let ((__tmp244692 + _slot-refs235668_))) + (_$slots236309_ + (map (lambda (_id236307_) + (let ((__tmp244622 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id236377_))) + (gensym _id236307_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp244692))) - _slots236375_)) + (make-symbol__1 '"__" __tmp244622))) + _slots236305_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g244693_ + (_g244623_ (for-each - (lambda (_g236380236383_ - _g236381236385_) + (lambda (_g236310236313_ + _g236311236315_) (let () (declare (not safe)) (table-set! - _slot-refs235738_ - _g236380236383_ - _g236381236385_))) - _slots236375_ - _$slots236379_)) - (_slots-bind236396_ - (map (lambda (_g236388236391_ + _slot-refs235668_ + _g236310236313_ + _g236311236315_))) + _slots236305_ + _$slots236309_)) + (_slots-bind236326_ + (map (lambda (_g236318236321_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g236389236393_) + _g236319236323_) (let () (declare (not safe)) - (_generate-slot-bind235646_ - _$t236350_ - _g236388236391_ - _g236389236393_))) - _slots236375_ - _$slots236379_)) + (_generate-slot-bind235576_ + _$t236280_ + _g236318236321_ + _g236319236323_))) + _slots236305_ + _$slots236309_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_class-check236398_ + (_class-check236328_ (let () (declare (not safe)) (hash-keys - _class-type-check235739_))) - (_$class-check236401_ - (map (lambda (_g244694_) - (let ((__tmp244695 + _class-type-check235669_))) + (_$class-check236331_ + (map (lambda (_g244624_) + (let ((__tmp244625 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp244695))) - _class-check236398_)) + (make-symbol__0 __tmp244625))) + _class-check236328_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g244696_ + (_g244626_ (for-each - (lambda (_g236402236405_ - _g236403236407_) + (lambda (_g236332236335_ + _g236333236337_) (let () (declare (not safe)) (table-set! - _class-type-check235739_ - _g236402236405_ - _g236403236407_))) - _class-check236398_ - _$class-check236401_)) - (_class-check-bind236418_ - (map (lambda (_g236410236413_ + _class-type-check235669_ + _g236332236335_ + _g236333236337_))) + _class-check236328_ + _$class-check236331_)) + (_class-check-bind236348_ + (map (lambda (_g236340236343_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g236411236415_) + _g236341236345_) (let () (declare (not safe)) - (_generate-class-check-bind235647_ - _$t236350_ - _g236410236413_ - _g236411236415_))) - _class-check236398_ - _$class-check236401_)) + (_generate-class-check-bind235577_ + _$t236280_ + _g236340236343_ + _g236341236345_))) + _class-check236328_ + _$class-check236331_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-check-all236420_ + (_struct-check-all236350_ (let () (declare (not safe)) (hash-merge - _struct-type-check235740_ - _struct-type-assert235741_))) - (_struct-check236422_ + _struct-type-check235670_ + _struct-type-assert235671_))) + (_struct-check236352_ (let () (declare (not safe)) (hash-keys - _struct-check-all236420_))) - (_$struct-check236425_ - (map (lambda (_g244697_) - (let ((__tmp244698 + _struct-check-all236350_))) + (_$struct-check236355_ + (map (lambda (_g244627_) + (let ((__tmp244628 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp244698))) - _struct-check236422_)) + (make-symbol__0 __tmp244628))) + _struct-check236352_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g244699_ + (_g244629_ (for-each - (lambda (_g236426236429_ - _g236427236431_) + (lambda (_g236356236359_ + _g236357236361_) (let () (declare (not safe)) (table-set! - _struct-check-all236420_ - _g236426236429_ - _g236427236431_))) - _struct-check236422_ - _$struct-check236425_)) - (_struct-check-bind236442_ - (map (lambda (_g236434236437_ + _struct-check-all236350_ + _g236356236359_ + _g236357236361_))) + _struct-check236352_ + _$struct-check236355_)) + (_struct-check-bind236372_ + (map (lambda (_g236364236367_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g236435236439_) + _g236365236369_) (let () (declare (not safe)) - (_generate-struct-check-bind235648_ - _$t236350_ - _g236434236437_ - _g236435236439_))) - _struct-check236422_ - _$struct-check236425_)) + (_generate-struct-check-bind235578_ + _$t236280_ + _g236364236367_ + _g236365236369_))) + _struct-check236352_ + _$struct-check236355_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-impl236453_ - (lambda (_struct-type-check1236444_ - _struct-type-check2236445_) - (let* ((_specializer-body236451_ - (map (lambda (_g236446236448_) + (_make-specializer-impl236383_ + (lambda (_struct-type-check1236374_ + _struct-type-check2236375_) + (let* ((_specializer-body236381_ + (map (lambda (_g236376236378_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g236446236448_ - _L236315_ - _$t236350_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check1236444_ - _struct-type-check2236445_))) - _L236313_)) - (__tmp244700 - (let ((__tmp244701 - (let ((__tmp244702 + _g236376236378_ + _L236245_ + _$t236280_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check1236374_ + _struct-type-check2236375_))) + _L236243_)) + (__tmp244630 + (let ((__tmp244631 + (let ((__tmp244632 (let () (declare (not safe)) - (cons _L236315_ _L236314_)))) + (cons _L236245_ _L236244_)))) (declare (not safe)) - (cons __tmp244702 _specializer-body236451_)))) + (cons __tmp244632 _specializer-body236381_)))) (declare (not safe)) - (cons '%#lambda __tmp244701)))) + (cons '%#lambda __tmp244631)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244700 _stx235643_)))) + (gxc#xform-wrap-source __tmp244630 _stx235573_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl236455_ + (_specializer-impl236385_ (let () (declare (not safe)) - (_make-specializer-impl236453_ - _struct-check-all236420_ - _empty235742_))) - (_unchecked-specializer-impl236457_ + (_make-specializer-impl236383_ + _struct-check-all236350_ + _empty235672_))) + (_unchecked-specializer-impl236387_ (if (let () (declare (not safe)) - (_unchecked-specializer?235745_)) + (_unchecked-specializer?235675_)) (let () (declare (not safe)) - (_make-specializer-impl236453_ - _empty235742_ - _struct-check-all236420_)) + (_make-specializer-impl236383_ + _empty235672_ + _struct-check-all236350_)) '#f)) - (_specializer-impl236459_ + (_specializer-impl236389_ (let () (declare (not safe)) - (_generate-specializer-impl235649_ - _$t236350_ - _methods-bind236373_ - _slots-bind236396_ - _class-check-bind236418_ - _struct-check-bind236442_ - _specializer-impl236455_ - _lifted-specializer-id236348_ - _unchecked-specializer-impl236457_)))) - (let ((__tmp244704 + (_generate-specializer-impl235579_ + _$t236280_ + _methods-bind236303_ + _slots-bind236326_ + _class-check-bind236348_ + _struct-check-bind236372_ + _specializer-impl236385_ + _lifted-specializer-id236278_ + _unchecked-specializer-impl236387_)))) + (let ((__tmp244634 (let () (declare (not safe)) - (gx#stx-e _L235718_))) - (__tmp244703 + (gx#stx-e _L235648_))) + (__tmp244633 (let () (declare (not safe)) (gx#stx-e - _specializer-id236341_)))) + _specializer-id236271_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp244704 + __tmp244634 '" => " - __tmp244703)) + __tmp244633)) (let () (declare (not safe)) - (_generate-specializer-def235650_ - _L235718_ - _specializer-id236341_ - _specializer-impl236459_ - _lifted-specializer-id236348_ - _unchecked-specializer-impl236457_)))))) - (___kont243231243232_ - (lambda () _stx235643_))) + (_generate-specializer-def235580_ + _L235648_ + _specializer-id236271_ + _specializer-impl236389_ + _lifted-specializer-id236278_ + _unchecked-specializer-impl236387_)))))) + (___kont243161243162_ + (lambda () _stx235573_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243227243228_)) - (let ((_e236266236289_ + (gx#stx-pair? ___stx243157243158_)) + (let ((_e236196236219_ (let () (declare (not safe)) - (gx#stx-e ___stx243227243228_)))) - (let ((_tl236264236294_ + (gx#stx-e ___stx243157243158_)))) + (let ((_tl236194236224_ (let () (declare (not safe)) - (##cdr _e236266236289_))) - (_hd236265236292_ + (##cdr _e236196236219_))) + (_hd236195236222_ (let () (declare (not safe)) - (##car _e236266236289_)))) + (##car _e236196236219_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236264236294_)) - (let ((_e236269236297_ + (gx#stx-pair? _tl236194236224_)) + (let ((_e236199236227_ (let () (declare (not safe)) (gx#stx-e - _tl236264236294_)))) - (let ((_tl236267236302_ + _tl236194236224_)))) + (let ((_tl236197236232_ (let () (declare (not safe)) - (##cdr _e236269236297_))) - (_hd236268236300_ + (##cdr _e236199236227_))) + (_hd236198236230_ (let () (declare (not safe)) - (##car _e236269236297_)))) + (##car _e236199236227_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd236268236300_)) - (let ((_e236272236305_ + _hd236198236230_)) + (let ((_e236202236235_ (let () (declare (not safe)) (gx#stx-e - _hd236268236300_)))) - (let ((_tl236270236310_ + _hd236198236230_)))) + (let ((_tl236200236240_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e236272236305_))) - (_hd236271236308_ - (let () (declare (not safe)) (##car _e236272236305_)))) - (___kont243229243230_ - _tl236267236302_ - _tl236270236310_ - _hd236271236308_))) + (##cdr _e236202236235_))) + (_hd236201236238_ + (let () (declare (not safe)) (##car _e236202236235_)))) + (___kont243159243160_ + _tl236197236232_ + _tl236200236240_ + _hd236201236238_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243231243232_)))) - (___kont243231243232_)))) - (___kont243231243232_)))) + (___kont243161243162_)))) + (___kont243161243162_)))) + (___kont243161243162_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _L235717_)) - (let* ((_g236465236484_ - (lambda (_g236466236481_) + (gxc#case-lambda-expr? _L235647_)) + (let* ((_g236395236414_ + (lambda (_g236396236411_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g236466236481_)))) - (_g236464236835_ - (lambda (_g236466236487_) + _g236396236411_)))) + (_g236394236765_ + (lambda (_g236396236417_) (if (let () (declare (not safe)) (gx#stx-pair? - _g236466236487_)) - (let ((_e236470236489_ + _g236396236417_)) + (let ((_e236400236419_ (let () (declare (not safe)) (gx#stx-e - _g236466236487_)))) - (let ((_hd236469236492_ + _g236396236417_)))) + (let ((_hd236399236422_ (let () (declare (not safe)) - (##car _e236470236489_))) - (_tl236468236494_ + (##car _e236400236419_))) + (_tl236398236424_ (let () (declare (not safe)) - (##cdr _e236470236489_)))) + (##cdr _e236400236419_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236468236494_)) - (let ((_g244661_ + _tl236398236424_)) + (let ((_g244591_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl236468236494_ '0)))) + (gx#syntax-split-splice _tl236398236424_ '0)))) (begin - (let ((_g244662_ + (let ((_g244592_ (let () (declare (not safe)) - (if (##values? _g244661_) - (##vector-length _g244661_) + (if (##values? _g244591_) + (##vector-length _g244591_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244662_ 2))) - (error "Context expects 2 values" _g244662_))) - (let ((_target236471236497_ + (##fx= _g244592_ 2))) + (error "Context expects 2 values" _g244592_))) + (let ((_target236401236427_ (let () (declare (not safe)) - (##vector-ref _g244661_ 0))) - (_tl236473236499_ + (##vector-ref _g244591_ 0))) + (_tl236403236429_ (let () (declare (not safe)) - (##vector-ref _g244661_ 1)))) + (##vector-ref _g244591_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236473236499_)) - (letrec ((_loop236474236502_ - (lambda (_hd236472236505_ - _clause236478236507_) + (gx#stx-null? _tl236403236429_)) + (letrec ((_loop236404236432_ + (lambda (_hd236402236435_ + _clause236408236437_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236472236505_)) - (let ((_e236475236510_ + (gx#stx-pair? _hd236402236435_)) + (let ((_e236405236440_ (let () (declare (not safe)) (gx#stx-e - _hd236472236505_)))) - (let ((_lp-hd236476236513_ + _hd236402236435_)))) + (let ((_lp-hd236406236443_ (let () (declare (not safe)) - (##car _e236475236510_))) - (_lp-tl236477236515_ + (##car _e236405236440_))) + (_lp-tl236407236445_ (let () (declare (not safe)) - (##cdr _e236475236510_)))) - (let ((__tmp244684 + (##cdr _e236405236440_)))) + (let ((__tmp244614 (let () (declare (not safe)) - (cons _lp-hd236476236513_ - _clause236478236507_)))) + (cons _lp-hd236406236443_ + _clause236408236437_)))) (declare (not safe)) - (_loop236474236502_ - _lp-tl236477236515_ - __tmp244684)))) - (let ((_clause236479236518_ - (reverse _clause236478236507_))) - ((lambda (_L236521_) + (_loop236404236432_ + _lp-tl236407236445_ + __tmp244614)))) + (let ((_clause236409236448_ + (reverse _clause236408236437_))) + ((lambda (_L236451_) (for-each - (lambda (_clause236534_) - (let* ((___stx243253243254_ - _clause236534_) - (_g236537236552_ + (lambda (_clause236464_) + (let* ((___stx243183243184_ + _clause236464_) + (_g236467236482_ (lambda () (let () (declare @@ -1505,8193 +1505,8193 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243253243254_))))) - (let ((___kont243255243256_ - (lambda (_L236580_ + ___stx243183243184_))))) + (let ((___kont243185243186_ + (lambda (_L236510_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L236581_ - _L236582_) + _L236511_ + _L236512_) (for-each - (lambda (_g236597236599_) + (lambda (_g236527236529_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g236597236599_ - _L236582_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check235740_ - _struct-type-assert235741_))) - _L236580_))) - (___kont243257243258_ (lambda () '#!void))) + _g236527236529_ + _L236512_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check235670_ + _struct-type-assert235671_))) + _L236510_))) + (___kont243187243188_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx243253243254_)) - (let ((_e236544236564_ + ___stx243183243184_)) + (let ((_e236474236494_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx243253243254_)))) - (let ((_tl236542236569_ + (gx#stx-e ___stx243183243184_)))) + (let ((_tl236472236499_ (let () (declare (not safe)) - (##cdr _e236544236564_))) - (_hd236543236567_ + (##cdr _e236474236494_))) + (_hd236473236497_ (let () (declare (not safe)) - (##car _e236544236564_)))) + (##car _e236474236494_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236543236567_)) - (let ((_e236547236572_ + (gx#stx-pair? _hd236473236497_)) + (let ((_e236477236502_ (let () (declare (not safe)) - (gx#stx-e _hd236543236567_)))) - (let ((_tl236545236577_ + (gx#stx-e _hd236473236497_)))) + (let ((_tl236475236507_ (let () (declare (not safe)) - (##cdr _e236547236572_))) - (_hd236546236575_ + (##cdr _e236477236502_))) + (_hd236476236505_ (let () (declare (not safe)) - (##car _e236547236572_)))) - (___kont243255243256_ - _tl236542236569_ - _tl236545236577_ - _hd236546236575_))) - (___kont243257243258_)))) - (___kont243257243258_))))) + (##car _e236477236502_)))) + (___kont243185243186_ + _tl236472236499_ + _tl236475236507_ + _hd236476236505_))) + (___kont243187243188_)))) + (___kont243187243188_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp244663 - (lambda (_g236604236607_ - _g236605236609_) + (let ((__tmp244593 + (lambda (_g236534236537_ + _g236535236539_) (let () (declare (not safe)) - (cons _g236604236607_ - _g236605236609_))))) + (cons _g236534236537_ + _g236535236539_))))) (declare (not safe)) - (foldr1 __tmp244663 + (foldr1 __tmp244593 '() - _L236521_))) + _L236451_))) (if (let () (declare (not safe)) - (_no-specializer?235744_)) - _stx235643_ - (let* ((_specializer-id236618_ - (let* ((_id236612_ + (_no-specializer?235674_)) + _stx235573_ + (let* ((_specializer-id236548_ + (let* ((_id236542_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244664 + (let ((__tmp244594 (let () (declare (not safe)) - (gx#stx-e _L235718_)))) + (gx#stx-e _L235648_)))) (declare (not safe)) - (make-symbol__1 __tmp244664 '"::specialize"))) - (_specializer-id236615_ - (let ((__tmp244665 + (make-symbol__1 __tmp244594 '"::specialize"))) + (_specializer-id236545_ + (let ((__tmp244595 (let () (declare (not safe)) - (gx#stx-source _stx235643_)))) + (gx#stx-source _stx235573_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id236612_ __tmp244665)))) + (gx#core-quote-syntax__1 _id236542_ __tmp244595)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id236615_)) - _specializer-id236615_)) - (_lifted-specializer-id236625_ + (gx#core-bind-runtime!__0 _specializer-id236545_)) + _specializer-id236545_)) + (_lifted-specializer-id236555_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?235746_)) - (let* ((_id236620_ - (let ((__tmp244666 + (_lift-unchecked-specializer?235676_)) + (let* ((_id236550_ + (let ((__tmp244596 (let () (declare (not safe)) - (gx#stx-e _L235718_)))) + (gx#stx-e _L235648_)))) (declare (not safe)) (make-symbol__1 - __tmp244666 + __tmp244596 '"::specialize::unchecked"))) - (_lifted-specializer-id236622_ - (let ((__tmp244667 + (_lifted-specializer-id236552_ + (let ((__tmp244597 (let () (declare (not safe)) - (gx#stx-source _stx235643_)))) + (gx#stx-source _stx235573_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id236620_ - __tmp244667)))) + _id236550_ + __tmp244597)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id236622_)) - _lifted-specializer-id236622_) + _lifted-specializer-id236552_)) + _lifted-specializer-id236552_) '#f)) - (_$t236627_ - (let ((__tmp244668 (gensym '__t))) + (_$t236557_ + (let ((__tmp244598 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp244668))) - (_methods236629_ + (make-symbol__0 __tmp244598))) + (_methods236559_ (let () (declare (not safe)) - (hash-keys _method-calls235737_))) - (_$methods236633_ - (map (lambda (_id236631_) - (let ((__tmp244669 (gensym _id236631_))) + (hash-keys _method-calls235667_))) + (_$methods236563_ + (map (lambda (_id236561_) + (let ((__tmp244599 (gensym _id236561_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp244669))) - _methods236629_)) - (_g244670_ + (make-symbol__1 '"__" __tmp244599))) + _methods236559_)) + (_g244600_ (for-each - (lambda (_g236634236637_ _g236635236639_) + (lambda (_g236564236567_ _g236565236569_) (let () (declare (not safe)) (table-set! - _method-calls235737_ - _g236634236637_ - _g236635236639_))) - _methods236629_ - _$methods236633_)) - (_methods-bind236650_ - (map (lambda (_g236642236645_ _g236643236647_) + _method-calls235667_ + _g236564236567_ + _g236565236569_))) + _methods236559_ + _$methods236563_)) + (_methods-bind236580_ + (map (lambda (_g236572236575_ _g236573236577_) (let () (declare (not safe)) - (_generate-method-bind235645_ - _$t236627_ - _g236642236645_ - _g236643236647_))) - _methods236629_ - _$methods236633_)) - (_slots236652_ - (let () (declare (not safe)) (hash-keys _slot-refs235738_))) - (_$slots236656_ - (map (lambda (_id236654_) - (let ((__tmp244671 (gensym _id236654_))) + (_generate-method-bind235575_ + _$t236557_ + _g236572236575_ + _g236573236577_))) + _methods236559_ + _$methods236563_)) + (_slots236582_ + (let () (declare (not safe)) (hash-keys _slot-refs235668_))) + (_$slots236586_ + (map (lambda (_id236584_) + (let ((__tmp244601 (gensym _id236584_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp244671))) - _slots236652_)) - (_g244672_ + (make-symbol__1 '"__" __tmp244601))) + _slots236582_)) + (_g244602_ (for-each - (lambda (_g236657236660_ _g236658236662_) + (lambda (_g236587236590_ _g236588236592_) (let () (declare (not safe)) (table-set! - _slot-refs235738_ - _g236657236660_ - _g236658236662_))) - _slots236652_ - _$slots236656_)) - (_slots-bind236673_ - (map (lambda (_g236665236668_ _g236666236670_) + _slot-refs235668_ + _g236587236590_ + _g236588236592_))) + _slots236582_ + _$slots236586_)) + (_slots-bind236603_ + (map (lambda (_g236595236598_ _g236596236600_) (let () (declare (not safe)) - (_generate-slot-bind235646_ - _$t236627_ - _g236665236668_ - _g236666236670_))) - _slots236652_ - _$slots236656_)) - (_class-check236675_ + (_generate-slot-bind235576_ + _$t236557_ + _g236595236598_ + _g236596236600_))) + _slots236582_ + _$slots236586_)) + (_class-check236605_ (let () (declare (not safe)) - (hash-keys _class-type-check235739_))) - (_$class-check236678_ - (map (lambda (_g244673_) - (let ((__tmp244674 (gensym '__class))) + (hash-keys _class-type-check235669_))) + (_$class-check236608_ + (map (lambda (_g244603_) + (let ((__tmp244604 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp244674))) - _class-check236675_)) - (_g244675_ + (make-symbol__0 __tmp244604))) + _class-check236605_)) + (_g244605_ (for-each - (lambda (_g236679236682_ _g236680236684_) + (lambda (_g236609236612_ _g236610236614_) (let () (declare (not safe)) (table-set! - _class-type-check235739_ - _g236679236682_ - _g236680236684_))) - _class-check236675_ - _$class-check236678_)) - (_class-check-bind236695_ - (map (lambda (_g236687236690_ _g236688236692_) + _class-type-check235669_ + _g236609236612_ + _g236610236614_))) + _class-check236605_ + _$class-check236608_)) + (_class-check-bind236625_ + (map (lambda (_g236617236620_ _g236618236622_) (let () (declare (not safe)) - (_generate-class-check-bind235647_ - _$t236627_ - _g236687236690_ - _g236688236692_))) - _class-check236675_ - _$class-check236678_)) - (_struct-check-all236697_ + (_generate-class-check-bind235577_ + _$t236557_ + _g236617236620_ + _g236618236622_))) + _class-check236605_ + _$class-check236608_)) + (_struct-check-all236627_ (let () (declare (not safe)) (hash-merge - _struct-type-check235740_ - _struct-type-assert235741_))) - (_struct-check236699_ + _struct-type-check235670_ + _struct-type-assert235671_))) + (_struct-check236629_ (let () (declare (not safe)) - (hash-keys _struct-check-all236697_))) - (_$struct-check236702_ - (map (lambda (_g244676_) - (let ((__tmp244677 (gensym '__class))) + (hash-keys _struct-check-all236627_))) + (_$struct-check236632_ + (map (lambda (_g244606_) + (let ((__tmp244607 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp244677))) - _struct-check236699_)) - (_g244678_ + (make-symbol__0 __tmp244607))) + _struct-check236629_)) + (_g244608_ (for-each - (lambda (_g236703236706_ _g236704236708_) + (lambda (_g236633236636_ _g236634236638_) (let () (declare (not safe)) (table-set! - _struct-check-all236697_ - _g236703236706_ - _g236704236708_))) - _struct-check236699_ - _$struct-check236702_)) - (_struct-check-bind236719_ - (map (lambda (_g236711236714_ _g236712236716_) + _struct-check-all236627_ + _g236633236636_ + _g236634236638_))) + _struct-check236629_ + _$struct-check236632_)) + (_struct-check-bind236649_ + (map (lambda (_g236641236644_ _g236642236646_) (let () (declare (not safe)) - (_generate-struct-check-bind235648_ - _$t236627_ - _g236711236714_ - _g236712236716_))) - _struct-check236699_ - _$struct-check236702_)) - (_make-specializer-impl236826_ - (lambda (_struct-type-check1236721_ - _struct-type-check2236722_) - (let* ((_specializer-clauses236824_ - (map (lambda (_clause236724_) - (let* ((___stx243273243274_ _clause236724_) - (_g236727236742_ + (_generate-struct-check-bind235578_ + _$t236557_ + _g236641236644_ + _g236642236646_))) + _struct-check236629_ + _$struct-check236632_)) + (_make-specializer-impl236756_ + (lambda (_struct-type-check1236651_ + _struct-type-check2236652_) + (let* ((_specializer-clauses236754_ + (map (lambda (_clause236654_) + (let* ((___stx243203243204_ _clause236654_) + (_g236657236672_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243273243274_))))) - (let ((___kont243275243276_ - (lambda (_L236770_ - _L236771_ - _L236772_) - (let* ((_body236812_ - (map (lambda (_g236807236809_) + ___stx243203243204_))))) + (let ((___kont243205243206_ + (lambda (_L236700_ + _L236701_ + _L236702_) + (let* ((_body236742_ + (map (lambda (_g236737236739_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#apply-subst-object-refs - _g236807236809_ - _L236772_ - _$t236627_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check1236721_ - _struct-type-check2236722_))) - _L236770_)) + _g236737236739_ + _L236702_ + _$t236557_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check1236651_ + _struct-type-check2236652_))) + _L236700_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp244679 + (__tmp244609 (let () (declare (not safe)) - (cons _L236772_ - _L236771_)))) + (cons _L236702_ + _L236701_)))) (declare (not safe)) - (cons __tmp244679 - _body236812_)))) - (___kont243277243278_ - (lambda () _clause236724_))) + (cons __tmp244609 + _body236742_)))) + (___kont243207243208_ + (lambda () _clause236654_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx243273243274_)) - (let ((_e236734236754_ + ___stx243203243204_)) + (let ((_e236664236684_ (let () (declare (not safe)) (gx#stx-e - ___stx243273243274_)))) - (let ((_tl236732236759_ + ___stx243203243204_)))) + (let ((_tl236662236689_ (let () (declare (not safe)) - (##cdr _e236734236754_))) - (_hd236733236757_ + (##cdr _e236664236684_))) + (_hd236663236687_ (let () (declare (not safe)) - (##car _e236734236754_)))) + (##car _e236664236684_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd236733236757_)) - (let ((_e236737236762_ + _hd236663236687_)) + (let ((_e236667236692_ (let () (declare (not safe)) (gx#stx-e - _hd236733236757_)))) - (let ((_tl236735236767_ + _hd236663236687_)))) + (let ((_tl236665236697_ (let () (declare (not safe)) - (##cdr _e236737236762_))) - (_hd236736236765_ + (##cdr _e236667236692_))) + (_hd236666236695_ (let () (declare (not safe)) - (##car _e236737236762_)))) - (___kont243275243276_ - _tl236732236759_ - _tl236735236767_ - _hd236736236765_))) - (___kont243277243278_)))) - (___kont243277243278_))))) - (let ((__tmp244680 - (lambda (_g236816236819_ - _g236817236821_) + (##car _e236667236692_)))) + (___kont243205243206_ + _tl236662236689_ + _tl236665236697_ + _hd236666236695_))) + (___kont243207243208_)))) + (___kont243207243208_))))) + (let ((__tmp244610 + (lambda (_g236746236749_ + _g236747236751_) (let () (declare (not safe)) - (cons _g236816236819_ - _g236817236821_))))) + (cons _g236746236749_ + _g236747236751_))))) (declare (not safe)) - (foldr1 __tmp244680 '() _L236521_)))) - (__tmp244681 + (foldr1 __tmp244610 '() _L236451_)))) + (__tmp244611 (let () (declare (not safe)) (cons '%#case-lambda - _specializer-clauses236824_)))) + _specializer-clauses236754_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244681 _stx235643_)))) - (_specializer-impl236828_ + (gxc#xform-wrap-source __tmp244611 _stx235573_)))) + (_specializer-impl236758_ (let () (declare (not safe)) - (_make-specializer-impl236826_ - _struct-check-all236697_ - _empty235742_))) - (_unchecked-specializer-impl236830_ + (_make-specializer-impl236756_ + _struct-check-all236627_ + _empty235672_))) + (_unchecked-specializer-impl236760_ (if (let () (declare (not safe)) - (_unchecked-specializer?235745_)) + (_unchecked-specializer?235675_)) (let () (declare (not safe)) - (_make-specializer-impl236826_ - _empty235742_ - _struct-check-all236697_)) + (_make-specializer-impl236756_ + _empty235672_ + _struct-check-all236627_)) '#f)) - (_specializer-impl236832_ + (_specializer-impl236762_ (let () (declare (not safe)) - (_generate-specializer-impl235649_ - _$t236627_ - _methods-bind236650_ - _slots-bind236673_ - _class-check-bind236695_ - _struct-check-bind236719_ - _specializer-impl236828_ - _lifted-specializer-id236625_ - _unchecked-specializer-impl236830_)))) + (_generate-specializer-impl235579_ + _$t236557_ + _methods-bind236580_ + _slots-bind236603_ + _class-check-bind236625_ + _struct-check-bind236649_ + _specializer-impl236758_ + _lifted-specializer-id236555_ + _unchecked-specializer-impl236760_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp244683 + (let ((__tmp244613 (let () (declare (not safe)) (gx#stx-e - _L235718_))) - (__tmp244682 + _L235648_))) + (__tmp244612 (let () (declare (not safe)) (gx#stx-e - _specializer-id236618_)))) + _specializer-id236548_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp244683 + __tmp244613 '" => " - __tmp244682)) + __tmp244612)) (let () (declare (not safe)) - (_generate-specializer-def235650_ - _L235718_ - _specializer-id236618_ - _specializer-impl236832_ - _lifted-specializer-id236625_ - _unchecked-specializer-impl236830_))))) - _clause236479236518_)))))) + (_generate-specializer-def235580_ + _L235648_ + _specializer-id236548_ + _specializer-impl236762_ + _lifted-specializer-id236555_ + _unchecked-specializer-impl236760_))))) + _clause236409236448_)))))) (let () (declare (not safe)) - (_loop236474236502_ _target236471236497_ '()))) + (_loop236404236432_ _target236401236427_ '()))) (let () (declare (not safe)) - (_g236465236484_ _g236466236487_)))))) + (_g236395236414_ _g236396236417_)))))) (let () (declare (not safe)) - (_g236465236484_ _g236466236487_))))) + (_g236395236414_ _g236396236417_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g236465236484_ - _g236466236487_)))))) + (_g236395236414_ + _g236396236417_)))))) (declare (not safe)) - (_g236464236835_ _L235717_)) + (_g236394236765_ _L235647_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L235717_)) - (let* ((_g236838236868_ - (lambda (_g236839236865_) + (gxc#opt-lambda-expr? _L235647_)) + (let* ((_g236768236798_ + (lambda (_g236769236795_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g236839236865_)))) - (_g236837237556_ - (lambda (_g236839236871_) + _g236769236795_)))) + (_g236767237486_ + (lambda (_g236769236801_) (if (let () (declare (not safe)) (gx#stx-pair? - _g236839236871_)) - (let ((_e236845236873_ + _g236769236801_)) + (let ((_e236775236803_ (let () (declare (not safe)) (gx#stx-e - _g236839236871_)))) - (let ((_hd236844236876_ + _g236769236801_)))) + (let ((_hd236774236806_ (let () (declare (not safe)) - (##car _e236845236873_))) - (_tl236843236878_ + (##car _e236775236803_))) + (_tl236773236808_ (let () (declare (not safe)) - (##cdr _e236845236873_)))) + (##cdr _e236775236803_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236843236878_)) - (let ((_e236848236881_ + _tl236773236808_)) + (let ((_e236778236811_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl236843236878_)))) - (let ((_hd236847236884_ + (gx#stx-e _tl236773236808_)))) + (let ((_hd236777236814_ (let () (declare (not safe)) - (##car _e236848236881_))) - (_tl236846236886_ + (##car _e236778236811_))) + (_tl236776236816_ (let () (declare (not safe)) - (##cdr _e236848236881_)))) + (##cdr _e236778236811_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236847236884_)) - (let ((_e236851236889_ + (gx#stx-pair? _hd236777236814_)) + (let ((_e236781236819_ (let () (declare (not safe)) - (gx#stx-e _hd236847236884_)))) - (let ((_hd236850236892_ + (gx#stx-e _hd236777236814_)))) + (let ((_hd236780236822_ (let () (declare (not safe)) - (##car _e236851236889_))) - (_tl236849236894_ + (##car _e236781236819_))) + (_tl236779236824_ (let () (declare (not safe)) - (##cdr _e236851236889_)))) + (##cdr _e236781236819_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236850236892_)) - (let ((_e236854236897_ + (gx#stx-pair? _hd236780236822_)) + (let ((_e236784236827_ (let () (declare (not safe)) - (gx#stx-e _hd236850236892_)))) - (let ((_hd236853236900_ + (gx#stx-e _hd236780236822_)))) + (let ((_hd236783236830_ (let () (declare (not safe)) - (##car _e236854236897_))) - (_tl236852236902_ + (##car _e236784236827_))) + (_tl236782236832_ (let () (declare (not safe)) - (##cdr _e236854236897_)))) + (##cdr _e236784236827_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236853236900_)) - (let ((_e236857236905_ + (gx#stx-pair? _hd236783236830_)) + (let ((_e236787236835_ (let () (declare (not safe)) (gx#stx-e - _hd236853236900_)))) - (let ((_hd236856236908_ + _hd236783236830_)))) + (let ((_hd236786236838_ (let () (declare (not safe)) - (##car _e236857236905_))) - (_tl236855236910_ + (##car _e236787236835_))) + (_tl236785236840_ (let () (declare (not safe)) - (##cdr _e236857236905_)))) + (##cdr _e236787236835_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236855236910_)) + _tl236785236840_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236852236902_)) - (let ((_e236860236913_ + _tl236782236832_)) + (let ((_e236790236843_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl236852236902_)))) - (let ((_hd236859236916_ - (let () (declare (not safe)) (##car _e236860236913_))) - (_tl236858236918_ - (let () (declare (not safe)) (##cdr _e236860236913_)))) + (gx#stx-e _tl236782236832_)))) + (let ((_hd236789236846_ + (let () (declare (not safe)) (##car _e236790236843_))) + (_tl236788236848_ + (let () (declare (not safe)) (##cdr _e236790236843_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236858236918_)) + (gx#stx-null? _tl236788236848_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl236849236894_)) + (gx#stx-null? _tl236779236824_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236846236886_)) - (let ((_e236863236921_ + (gx#stx-pair? _tl236776236816_)) + (let ((_e236793236851_ (let () (declare (not safe)) - (gx#stx-e _tl236846236886_)))) - (let ((_hd236862236924_ + (gx#stx-e _tl236776236816_)))) + (let ((_hd236792236854_ (let () (declare (not safe)) - (##car _e236863236921_))) - (_tl236861236926_ + (##car _e236793236851_))) + (_tl236791236856_ (let () (declare (not safe)) - (##cdr _e236863236921_)))) + (##cdr _e236793236851_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236861236926_)) - ((lambda (_L236929_ _L236930_ _L236931_) - (let* ((_g236954236972_ - (lambda (_g236955236969_) + (gx#stx-null? _tl236791236856_)) + ((lambda (_L236859_ _L236860_ _L236861_) + (let* ((_g236884236902_ + (lambda (_g236885236899_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g236955236969_)))) - (_g236953237023_ - (lambda (_g236955236975_) + _g236885236899_)))) + (_g236883236953_ + (lambda (_g236885236905_) (if (let () (declare (not safe)) (gx#stx-pair? - _g236955236975_)) - (let ((_e236961236977_ + _g236885236905_)) + (let ((_e236891236907_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g236955236975_)))) - (let ((_hd236960236980_ - (let () (declare (not safe)) (##car _e236961236977_))) - (_tl236959236982_ + (gx#stx-e _g236885236905_)))) + (let ((_hd236890236910_ + (let () (declare (not safe)) (##car _e236891236907_))) + (_tl236889236912_ (let () (declare (not safe)) - (##cdr _e236961236977_)))) + (##cdr _e236891236907_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236959236982_)) - (let ((_e236964236985_ + (gx#stx-pair? _tl236889236912_)) + (let ((_e236894236915_ (let () (declare (not safe)) - (gx#stx-e _tl236959236982_)))) - (let ((_hd236963236988_ + (gx#stx-e _tl236889236912_)))) + (let ((_hd236893236918_ (let () (declare (not safe)) - (##car _e236964236985_))) - (_tl236962236990_ + (##car _e236894236915_))) + (_tl236892236920_ (let () (declare (not safe)) - (##cdr _e236964236985_)))) + (##cdr _e236894236915_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236963236988_)) - (let ((_e236967236993_ + (gx#stx-pair? _hd236893236918_)) + (let ((_e236897236923_ (let () (declare (not safe)) - (gx#stx-e _hd236963236988_)))) - (let ((_hd236966236996_ + (gx#stx-e _hd236893236918_)))) + (let ((_hd236896236926_ (let () (declare (not safe)) - (##car _e236967236993_))) - (_tl236965236998_ + (##car _e236897236923_))) + (_tl236895236928_ (let () (declare (not safe)) - (##cdr _e236967236993_)))) - ((lambda (_L237001_ _L237002_ _L237003_) + (##cdr _e236897236923_)))) + ((lambda (_L236931_ _L236932_ _L236933_) (for-each - (lambda (_g237018237020_) + (lambda (_g236948236950_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g237018237020_ - _L237003_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check235740_ - _struct-type-assert235741_))) - _L237001_)) - _tl236962236990_ - _tl236965236998_ - _hd236966236996_))) + _g236948236950_ + _L236933_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check235670_ + _struct-type-assert235671_))) + _L236931_)) + _tl236892236920_ + _tl236895236928_ + _hd236896236926_))) (let () (declare (not safe)) - (_g236954236972_ _g236955236975_))))) + (_g236884236902_ _g236885236905_))))) (let () (declare (not safe)) - (_g236954236972_ _g236955236975_))))) + (_g236884236902_ _g236885236905_))))) (let () (declare (not safe)) - (_g236954236972_ _g236955236975_)))))) + (_g236884236902_ _g236885236905_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g236953237023_ _L236930_)) - (let* ((_g237026237045_ - (lambda (_g237027237042_) + (_g236883236953_ _L236860_)) + (let* ((_g236956236975_ + (lambda (_g236957236972_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g237027237042_)))) - (_g237025237164_ - (lambda (_g237027237048_) + _g236957236972_)))) + (_g236955237094_ + (lambda (_g236957236978_) (if (let () (declare (not safe)) (gx#stx-pair? - _g237027237048_)) - (let ((_e237031237050_ + _g236957236978_)) + (let ((_e236961236980_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g237027237048_)))) - (let ((_hd237030237053_ - (let () (declare (not safe)) (##car _e237031237050_))) - (_tl237029237055_ + (gx#stx-e _g236957236978_)))) + (let ((_hd236960236983_ + (let () (declare (not safe)) (##car _e236961236980_))) + (_tl236959236985_ (let () (declare (not safe)) - (##cdr _e237031237050_)))) + (##cdr _e236961236980_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237029237055_)) - (let ((_g244624_ + (gx#stx-pair/null? _tl236959236985_)) + (let ((_g244554_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237029237055_ + _tl236959236985_ '0)))) (begin - (let ((_g244625_ + (let ((_g244555_ (let () (declare (not safe)) - (if (##values? _g244624_) - (##vector-length _g244624_) + (if (##values? _g244554_) + (##vector-length _g244554_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244625_ 2))) + (##fx= _g244555_ 2))) (error "Context expects 2 values" - _g244625_))) - (let ((_target237032237058_ + _g244555_))) + (let ((_target236962236988_ (let () (declare (not safe)) - (##vector-ref _g244624_ 0))) - (_tl237034237060_ + (##vector-ref _g244554_ 0))) + (_tl236964236990_ (let () (declare (not safe)) - (##vector-ref _g244624_ 1)))) + (##vector-ref _g244554_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237034237060_)) - (letrec ((_loop237035237063_ - (lambda (_hd237033237066_ - _clause237039237068_) + (gx#stx-null? _tl236964236990_)) + (letrec ((_loop236965236993_ + (lambda (_hd236963236996_ + _clause236969236998_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd237033237066_)) - (let ((_e237036237071_ + _hd236963236996_)) + (let ((_e236966237001_ (let () (declare (not safe)) (gx#stx-e - _hd237033237066_)))) - (let ((_lp-hd237037237074_ + _hd236963236996_)))) + (let ((_lp-hd236967237004_ (let () (declare (not safe)) - (##car _e237036237071_))) - (_lp-tl237038237076_ + (##car _e236966237001_))) + (_lp-tl236968237006_ (let () (declare (not safe)) - (##cdr _e237036237071_)))) - (let ((__tmp244627 + (##cdr _e236966237001_)))) + (let ((__tmp244557 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd237037237074_ _clause237039237068_)))) + (cons _lp-hd236967237004_ _clause236969236998_)))) (declare (not safe)) - (_loop237035237063_ _lp-tl237038237076_ __tmp244627)))) + (_loop236965236993_ _lp-tl236968237006_ __tmp244557)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_clause237040237079_ - (reverse _clause237039237068_))) - ((lambda (_L237082_) + (let ((_clause236970237009_ + (reverse _clause236969236998_))) + ((lambda (_L237012_) (for-each - (lambda (_clause237095_) - (let* ((_g237097237112_ + (lambda (_clause237025_) + (let* ((_g237027237042_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g237098237109_) + (lambda (_g237028237039_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g237098237109_)))) - (_g237096237154_ - (lambda (_g237098237115_) + _g237028237039_)))) + (_g237026237084_ + (lambda (_g237028237045_) (if (let () (declare (not safe)) - (gx#stx-pair? _g237098237115_)) - (let ((_e237104237117_ + (gx#stx-pair? _g237028237045_)) + (let ((_e237034237047_ (let () (declare (not safe)) - (gx#stx-e _g237098237115_)))) - (let ((_hd237103237120_ + (gx#stx-e _g237028237045_)))) + (let ((_hd237033237050_ (let () (declare (not safe)) - (##car _e237104237117_))) - (_tl237102237122_ + (##car _e237034237047_))) + (_tl237032237052_ (let () (declare (not safe)) - (##cdr _e237104237117_)))) + (##cdr _e237034237047_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237103237120_)) - (let ((_e237107237125_ + (gx#stx-pair? _hd237033237050_)) + (let ((_e237037237055_ (let () (declare (not safe)) - (gx#stx-e _hd237103237120_)))) - (let ((_hd237106237128_ + (gx#stx-e _hd237033237050_)))) + (let ((_hd237036237058_ (let () (declare (not safe)) - (##car _e237107237125_))) - (_tl237105237130_ + (##car _e237037237055_))) + (_tl237035237060_ (let () (declare (not safe)) - (##cdr _e237107237125_)))) - ((lambda (_L237133_ - _L237134_ - _L237135_) + (##cdr _e237037237055_)))) + ((lambda (_L237063_ + _L237064_ + _L237065_) (for-each - (lambda (_g237149237151_) + (lambda (_g237079237081_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g237149237151_ - _L237135_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check235740_ - _struct-type-assert235741_))) - _L237133_)) - _tl237102237122_ - _tl237105237130_ - _hd237106237128_))) + _g237079237081_ + _L237065_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check235670_ + _struct-type-assert235671_))) + _L237063_)) + _tl237032237052_ + _tl237035237060_ + _hd237036237058_))) (let () (declare (not safe)) - (_g237097237112_ _g237098237115_))))) + (_g237027237042_ _g237028237045_))))) (let () (declare (not safe)) - (_g237097237112_ _g237098237115_)))))) + (_g237027237042_ _g237028237045_)))))) (declare (not safe)) - (_g237096237154_ _clause237095_))) - (let ((__tmp244626 - (lambda (_g237156237159_ _g237157237161_) + (_g237026237084_ _clause237025_))) + (let ((__tmp244556 + (lambda (_g237086237089_ _g237087237091_) (let () (declare (not safe)) - (cons _g237156237159_ _g237157237161_))))) + (cons _g237086237089_ _g237087237091_))))) (declare (not safe)) - (foldr1 __tmp244626 '() _L237082_)))) + (foldr1 __tmp244556 '() _L237012_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause237040237079_)))))) + _clause236970237009_)))))) (let () (declare (not safe)) - (_loop237035237063_ - _target237032237058_ + (_loop236965236993_ + _target236962236988_ '()))) (let () (declare (not safe)) - (_g237026237045_ _g237027237048_)))))) + (_g236956236975_ _g236957236978_)))))) (let () (declare (not safe)) - (_g237026237045_ _g237027237048_))))) + (_g236956236975_ _g236957236978_))))) (let () (declare (not safe)) - (_g237026237045_ _g237027237048_)))))) + (_g236956236975_ _g236957236978_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g237025237164_ _L236929_)) + (_g236955237094_ _L236859_)) (if (let () (declare (not safe)) - (_no-specializer?235744_)) - _stx235643_ - (let* ((_specializer-id237173_ - (let* ((_id237167_ - (let ((__tmp244628 + (_no-specializer?235674_)) + _stx235573_ + (let* ((_specializer-id237103_ + (let* ((_id237097_ + (let ((__tmp244558 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L235718_)))) + (gx#stx-e _L235648_)))) (declare (not safe)) - (make-symbol__1 __tmp244628 '"::specialize"))) - (_specializer-id237170_ - (let ((__tmp244629 + (make-symbol__1 __tmp244558 '"::specialize"))) + (_specializer-id237100_ + (let ((__tmp244559 (let () (declare (not safe)) - (gx#stx-source _stx235643_)))) + (gx#stx-source _stx235573_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id237167_ __tmp244629)))) + (gx#core-quote-syntax__1 _id237097_ __tmp244559)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id237170_)) - _specializer-id237170_)) + (gx#core-bind-runtime!__0 _specializer-id237100_)) + _specializer-id237100_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lifted-specializer-id237180_ + (_lifted-specializer-id237110_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?235746_)) - (let* ((_id237175_ + (_lift-unchecked-specializer?235676_)) + (let* ((_id237105_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244630 + (let ((__tmp244560 (let () (declare (not safe)) - (gx#stx-e _L235718_)))) + (gx#stx-e _L235648_)))) (declare (not safe)) (make-symbol__1 - __tmp244630 + __tmp244560 '"::specialize::unchecked"))) - (_lifted-specializer-id237177_ - (let ((__tmp244631 + (_lifted-specializer-id237107_ + (let ((__tmp244561 (let () (declare (not safe)) - (gx#stx-source _stx235643_)))) + (gx#stx-source _stx235573_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id237175_ __tmp244631)))) + (gx#core-quote-syntax__1 _id237105_ __tmp244561)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lifted-specializer-id237177_)) - _lifted-specializer-id237177_) + (gx#core-bind-runtime!__0 _lifted-specializer-id237107_)) + _lifted-specializer-id237107_) '#f)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$t237182_ - (let ((__tmp244632 + (_$t237112_ + (let ((__tmp244562 (gensym '__t))) (declare (not safe)) (make-symbol__0 - __tmp244632))) - (_methods237184_ + __tmp244562))) + (_methods237114_ (let () (declare (not safe)) (hash-keys - _method-calls235737_))) - (_$methods237188_ - (map (lambda (_id237186_) - (let ((__tmp244633 + _method-calls235667_))) + (_$methods237118_ + (map (lambda (_id237116_) + (let ((__tmp244563 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id237186_))) + (gensym _id237116_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp244633))) - _methods237184_)) + (make-symbol__1 '"__" __tmp244563))) + _methods237114_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g244634_ + (_g244564_ (for-each - (lambda (_g237189237192_ - _g237190237194_) + (lambda (_g237119237122_ + _g237120237124_) (let () (declare (not safe)) (table-set! - _method-calls235737_ - _g237189237192_ - _g237190237194_))) - _methods237184_ - _$methods237188_)) - (_methods-bind237205_ - (map (lambda (_g237197237200_ + _method-calls235667_ + _g237119237122_ + _g237120237124_))) + _methods237114_ + _$methods237118_)) + (_methods-bind237135_ + (map (lambda (_g237127237130_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g237198237202_) + _g237128237132_) (let () (declare (not safe)) - (_generate-method-bind235645_ - _$t237182_ - _g237197237200_ - _g237198237202_))) - _methods237184_ - _$methods237188_)) + (_generate-method-bind235575_ + _$t237112_ + _g237127237130_ + _g237128237132_))) + _methods237114_ + _$methods237118_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots237207_ + (_slots237137_ (let () (declare (not safe)) (hash-keys - _slot-refs235738_))) - (_$slots237211_ - (map (lambda (_id237209_) - (let ((__tmp244635 + _slot-refs235668_))) + (_$slots237141_ + (map (lambda (_id237139_) + (let ((__tmp244565 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id237209_))) + (gensym _id237139_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp244635))) - _slots237207_)) + (make-symbol__1 '"__" __tmp244565))) + _slots237137_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g244636_ + (_g244566_ (for-each - (lambda (_g237212237215_ - _g237213237217_) + (lambda (_g237142237145_ + _g237143237147_) (let () (declare (not safe)) (table-set! - _slot-refs235738_ - _g237212237215_ - _g237213237217_))) - _slots237207_ - _$slots237211_)) - (_slots-bind237228_ - (map (lambda (_g237220237223_ + _slot-refs235668_ + _g237142237145_ + _g237143237147_))) + _slots237137_ + _$slots237141_)) + (_slots-bind237158_ + (map (lambda (_g237150237153_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g237221237225_) + _g237151237155_) (let () (declare (not safe)) - (_generate-slot-bind235646_ - _$t237182_ - _g237220237223_ - _g237221237225_))) - _slots237207_ - _$slots237211_)) + (_generate-slot-bind235576_ + _$t237112_ + _g237150237153_ + _g237151237155_))) + _slots237137_ + _$slots237141_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_class-check237230_ + (_class-check237160_ (let () (declare (not safe)) (hash-keys - _class-type-check235739_))) - (_$class-check237233_ - (map (lambda (_g244637_) - (let ((__tmp244638 + _class-type-check235669_))) + (_$class-check237163_ + (map (lambda (_g244567_) + (let ((__tmp244568 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp244638))) - _class-check237230_)) + (make-symbol__0 __tmp244568))) + _class-check237160_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g244639_ + (_g244569_ (for-each - (lambda (_g237234237237_ - _g237235237239_) + (lambda (_g237164237167_ + _g237165237169_) (let () (declare (not safe)) (table-set! - _class-type-check235739_ - _g237234237237_ - _g237235237239_))) - _class-check237230_ - _$class-check237233_)) - (_class-check-bind237250_ - (map (lambda (_g237242237245_ + _class-type-check235669_ + _g237164237167_ + _g237165237169_))) + _class-check237160_ + _$class-check237163_)) + (_class-check-bind237180_ + (map (lambda (_g237172237175_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g237243237247_) + _g237173237177_) (let () (declare (not safe)) - (_generate-class-check-bind235647_ - _$t237182_ - _g237242237245_ - _g237243237247_))) - _class-check237230_ - _$class-check237233_)) + (_generate-class-check-bind235577_ + _$t237112_ + _g237172237175_ + _g237173237177_))) + _class-check237160_ + _$class-check237163_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-check-all237252_ + (_struct-check-all237182_ (let () (declare (not safe)) (hash-merge - _struct-type-check235740_ - _struct-type-assert235741_))) - (_struct-check237254_ + _struct-type-check235670_ + _struct-type-assert235671_))) + (_struct-check237184_ (let () (declare (not safe)) (hash-keys - _struct-check-all237252_))) - (_$struct-check237257_ - (map (lambda (_g244640_) - (let ((__tmp244641 + _struct-check-all237182_))) + (_$struct-check237187_ + (map (lambda (_g244570_) + (let ((__tmp244571 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp244641))) - _struct-check237254_)) + (make-symbol__0 __tmp244571))) + _struct-check237184_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g244642_ + (_g244572_ (for-each - (lambda (_g237258237261_ - _g237259237263_) + (lambda (_g237188237191_ + _g237189237193_) (let () (declare (not safe)) (table-set! - _struct-check-all237252_ - _g237258237261_ - _g237259237263_))) - _struct-check237254_ - _$struct-check237257_)) - (_struct-check-bind237274_ - (map (lambda (_g237266237269_ + _struct-check-all237182_ + _g237188237191_ + _g237189237193_))) + _struct-check237184_ + _$struct-check237187_)) + (_struct-check-bind237204_ + (map (lambda (_g237196237199_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g237267237271_) + _g237197237201_) (let () (declare (not safe)) - (_generate-struct-check-bind235648_ - _$t237182_ - _g237266237269_ - _g237267237271_))) - _struct-check237254_ - _$struct-check237257_)) + (_generate-struct-check-bind235578_ + _$t237112_ + _g237196237199_ + _g237197237201_))) + _struct-check237184_ + _$struct-check237187_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-lambda-expr237373_ - (lambda (_struct-type-check1237276_ - _struct-type-check2237277_) - (let* ((_g237279237297_ - (lambda (_g237280237294_) + (_make-specializer-lambda-expr237303_ + (lambda (_struct-type-check1237206_ + _struct-type-check2237207_) + (let* ((_g237209237227_ + (lambda (_g237210237224_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g237280237294_)))) - (_g237278237370_ - (lambda (_g237280237300_) + _g237210237224_)))) + (_g237208237300_ + (lambda (_g237210237230_) (if (let () (declare (not safe)) - (gx#stx-pair? _g237280237300_)) - (let ((_e237286237302_ + (gx#stx-pair? _g237210237230_)) + (let ((_e237216237232_ (let () (declare (not safe)) - (gx#stx-e _g237280237300_)))) - (let ((_hd237285237305_ + (gx#stx-e _g237210237230_)))) + (let ((_hd237215237235_ (let () (declare (not safe)) - (##car _e237286237302_))) - (_tl237284237307_ + (##car _e237216237232_))) + (_tl237214237237_ (let () (declare (not safe)) - (##cdr _e237286237302_)))) + (##cdr _e237216237232_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237284237307_)) - (let ((_e237289237310_ + (gx#stx-pair? _tl237214237237_)) + (let ((_e237219237240_ (let () (declare (not safe)) - (gx#stx-e _tl237284237307_)))) - (let ((_hd237288237313_ + (gx#stx-e _tl237214237237_)))) + (let ((_hd237218237243_ (let () (declare (not safe)) - (##car _e237289237310_))) - (_tl237287237315_ + (##car _e237219237240_))) + (_tl237217237245_ (let () (declare (not safe)) - (##cdr _e237289237310_)))) + (##cdr _e237219237240_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd237288237313_)) - (let ((_e237292237318_ + _hd237218237243_)) + (let ((_e237222237248_ (let () (declare (not safe)) (gx#stx-e - _hd237288237313_)))) - (let ((_hd237291237321_ + _hd237218237243_)))) + (let ((_hd237221237251_ (let () (declare (not safe)) - (##car _e237292237318_))) - (_tl237290237323_ + (##car _e237222237248_))) + (_tl237220237253_ (let () (declare (not safe)) - (##cdr _e237292237318_)))) - ((lambda (_L237326_ - _L237327_ - _L237328_) - (let* ((_body237368_ - (map (lambda (_g237363237365_) + (##cdr _e237222237248_)))) + ((lambda (_L237256_ + _L237257_ + _L237258_) + (let* ((_body237298_ + (map (lambda (_g237293237295_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g237363237365_ - _L237328_ - _$t237182_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check1237276_ - _struct-type-check2237277_))) - _L237326_)) - (__tmp244643 - (let ((__tmp244644 - (let ((__tmp244645 + _g237293237295_ + _L237258_ + _$t237112_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check1237206_ + _struct-type-check2237207_))) + _L237256_)) + (__tmp244573 + (let ((__tmp244574 + (let ((__tmp244575 (let () (declare (not safe)) - (cons _L237328_ _L237327_)))) + (cons _L237258_ _L237257_)))) (declare (not safe)) - (cons __tmp244645 _body237368_)))) + (cons __tmp244575 _body237298_)))) (declare (not safe)) - (cons '%#lambda __tmp244644)))) + (cons '%#lambda __tmp244574)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244643 _L236930_))) + (gxc#xform-wrap-source __tmp244573 _L236860_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl237287237315_ - _tl237290237323_ - _hd237291237321_))) + _tl237217237245_ + _tl237220237253_ + _hd237221237251_))) (let () (declare (not safe)) - (_g237279237297_ - _g237280237300_))))) + (_g237209237227_ + _g237210237230_))))) (let () (declare (not safe)) - (_g237279237297_ _g237280237300_))))) + (_g237209237227_ _g237210237230_))))) (let () (declare (not safe)) - (_g237279237297_ _g237280237300_)))))) + (_g237209237227_ _g237210237230_)))))) (declare (not safe)) - (_g237278237370_ _L236930_)))) + (_g237208237300_ _L236860_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-case-lambda-expr237534_ - (lambda (_struct-type-check1237375_ - _struct-type-check2237376_) - (let* ((_g237378237397_ - (lambda (_g237379237394_) + (_make-specializer-case-lambda-expr237464_ + (lambda (_struct-type-check1237305_ + _struct-type-check2237306_) + (let* ((_g237308237327_ + (lambda (_g237309237324_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g237379237394_)))) - (_g237377237531_ - (lambda (_g237379237400_) + _g237309237324_)))) + (_g237307237461_ + (lambda (_g237309237330_) (if (let () (declare (not safe)) - (gx#stx-pair? _g237379237400_)) - (let ((_e237383237402_ + (gx#stx-pair? _g237309237330_)) + (let ((_e237313237332_ (let () (declare (not safe)) - (gx#stx-e _g237379237400_)))) - (let ((_hd237382237405_ + (gx#stx-e _g237309237330_)))) + (let ((_hd237312237335_ (let () (declare (not safe)) - (##car _e237383237402_))) - (_tl237381237407_ + (##car _e237313237332_))) + (_tl237311237337_ (let () (declare (not safe)) - (##cdr _e237383237402_)))) + (##cdr _e237313237332_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237381237407_)) - (let ((_g244646_ + (gx#stx-pair/null? _tl237311237337_)) + (let ((_g244576_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237381237407_ + _tl237311237337_ '0)))) (begin - (let ((_g244647_ + (let ((_g244577_ (let () (declare (not safe)) - (if (##values? _g244646_) + (if (##values? _g244576_) (##vector-length - _g244646_) + _g244576_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244647_ 2))) + (##fx= _g244577_ 2))) (error "Context expects 2 values" - _g244647_))) - (let ((_target237384237410_ + _g244577_))) + (let ((_target237314237340_ (let () (declare (not safe)) - (##vector-ref _g244646_ 0))) - (_tl237386237412_ + (##vector-ref _g244576_ 0))) + (_tl237316237342_ (let () (declare (not safe)) (##vector-ref - _g244646_ + _g244576_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237386237412_)) - (letrec ((_loop237387237415_ - (lambda (_hd237385237418_ + _tl237316237342_)) + (letrec ((_loop237317237345_ + (lambda (_hd237315237348_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause237391237420_) + _clause237321237350_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237385237418_)) - (let ((_e237388237423_ + (gx#stx-pair? _hd237315237348_)) + (let ((_e237318237353_ (let () (declare (not safe)) - (gx#stx-e _hd237385237418_)))) - (let ((_lp-hd237389237426_ + (gx#stx-e _hd237315237348_)))) + (let ((_lp-hd237319237356_ (let () (declare (not safe)) - (##car _e237388237423_))) - (_lp-tl237390237428_ + (##car _e237318237353_))) + (_lp-tl237320237358_ (let () (declare (not safe)) - (##cdr _e237388237423_)))) - (let ((__tmp244651 + (##cdr _e237318237353_)))) + (let ((__tmp244581 (let () (declare (not safe)) - (cons _lp-hd237389237426_ - _clause237391237420_)))) + (cons _lp-hd237319237356_ + _clause237321237350_)))) (declare (not safe)) - (_loop237387237415_ - _lp-tl237390237428_ - __tmp244651)))) - (let ((_clause237392237431_ - (reverse _clause237391237420_))) - ((lambda (_L237434_) - (let* ((_clauses237529_ - (map (lambda (_clause237449_) - (let* ((___stx243293243294_ - _clause237449_) - (_g237452237467_ + (_loop237317237345_ + _lp-tl237320237358_ + __tmp244581)))) + (let ((_clause237322237361_ + (reverse _clause237321237350_))) + ((lambda (_L237364_) + (let* ((_clauses237459_ + (map (lambda (_clause237379_) + (let* ((___stx243223243224_ + _clause237379_) + (_g237382237397_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243293243294_))))) - (let ((___kont243295243296_ - (lambda (_L237495_ - _L237496_ - _L237497_) - (let* ((_body237517_ - (map (lambda (_g237512237514_) + ___stx243223243224_))))) + (let ((___kont243225243226_ + (lambda (_L237425_ + _L237426_ + _L237427_) + (let* ((_body237447_ + (map (lambda (_g237442237444_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g237512237514_ - _L237497_ - _$t237182_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check1237375_ - _struct-type-check2237376_))) - _L237495_)) - (__tmp244648 + _g237442237444_ + _L237427_ + _$t237112_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check1237305_ + _struct-type-check2237306_))) + _L237425_)) + (__tmp244578 (let () (declare (not safe)) - (cons _L237497_ _L237496_)))) + (cons _L237427_ _L237426_)))) (declare (not safe)) - (cons __tmp244648 _body237517_)))) + (cons __tmp244578 _body237447_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243297243298_ + (___kont243227243228_ (lambda () - _clause237449_))) + _clause237379_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx243293243294_)) - (let ((_e237459237479_ + ___stx243223243224_)) + (let ((_e237389237409_ (let () (declare (not safe)) (gx#stx-e - ___stx243293243294_)))) - (let ((_tl237457237484_ + ___stx243223243224_)))) + (let ((_tl237387237414_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e237459237479_))) - (_hd237458237482_ - (let () (declare (not safe)) (##car _e237459237479_)))) + (##cdr _e237389237409_))) + (_hd237388237412_ + (let () (declare (not safe)) (##car _e237389237409_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237458237482_)) - (let ((_e237462237487_ + (gx#stx-pair? _hd237388237412_)) + (let ((_e237392237417_ (let () (declare (not safe)) - (gx#stx-e _hd237458237482_)))) - (let ((_tl237460237492_ + (gx#stx-e _hd237388237412_)))) + (let ((_tl237390237422_ (let () (declare (not safe)) - (##cdr _e237462237487_))) - (_hd237461237490_ + (##cdr _e237392237417_))) + (_hd237391237420_ (let () (declare (not safe)) - (##car _e237462237487_)))) - (___kont243295243296_ - _tl237457237484_ - _tl237460237492_ - _hd237461237490_))) - (___kont243297243298_)))) + (##car _e237392237417_)))) + (___kont243225243226_ + _tl237387237414_ + _tl237390237422_ + _hd237391237420_))) + (___kont243227243228_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243297243298_))))) - (let ((__tmp244649 - (lambda (_g237521237524_ - _g237522237526_) + (___kont243227243228_))))) + (let ((__tmp244579 + (lambda (_g237451237454_ + _g237452237456_) (let () (declare (not safe)) - (cons _g237521237524_ - _g237522237526_))))) + (cons _g237451237454_ + _g237452237456_))))) (declare (not safe)) - (foldr1 __tmp244649 + (foldr1 __tmp244579 '() - _L237434_)))) - (__tmp244650 + _L237364_)))) + (__tmp244580 (let () (declare (not safe)) - (cons '%#case-lambda _clauses237529_)))) + (cons '%#case-lambda _clauses237459_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244650 _L236929_))) - _clause237392237431_)))))) + (gxc#xform-wrap-source __tmp244580 _L236859_))) + _clause237322237361_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop237387237415_ - _target237384237410_ + (_loop237317237345_ + _target237314237340_ '()))) (let () (declare (not safe)) - (_g237378237397_ - _g237379237400_)))))) + (_g237308237327_ + _g237309237330_)))))) (let () (declare (not safe)) - (_g237378237397_ _g237379237400_))))) + (_g237308237327_ _g237309237330_))))) (let () (declare (not safe)) - (_g237378237397_ _g237379237400_)))))) + (_g237308237327_ _g237309237330_)))))) (declare (not safe)) - (_g237377237531_ _L236929_)))) + (_g237307237461_ _L236859_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-impl237539_ - (lambda (_specializer-lambda-expr237536_ - _specializer-case-lambda-expr237537_) - (let ((__tmp244652 - (let ((__tmp244653 + (_make-specializer-impl237469_ + (lambda (_specializer-lambda-expr237466_ + _specializer-case-lambda-expr237467_) + (let ((__tmp244582 + (let ((__tmp244583 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244655 - (let ((__tmp244656 - (let ((__tmp244658 + (let ((__tmp244585 + (let ((__tmp244586 + (let ((__tmp244588 (let () (declare (not safe)) - (cons _L236931_ '()))) - (__tmp244657 + (cons _L236861_ '()))) + (__tmp244587 (let () (declare (not safe)) - (cons _specializer-lambda-expr237536_ + (cons _specializer-lambda-expr237466_ '())))) (declare (not safe)) - (cons __tmp244658 __tmp244657)))) + (cons __tmp244588 __tmp244587)))) (declare (not safe)) - (cons __tmp244656 '()))) - (__tmp244654 + (cons __tmp244586 '()))) + (__tmp244584 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr237537_ + (cons _specializer-case-lambda-expr237467_ '())))) (declare (not safe)) - (cons __tmp244655 __tmp244654)))) + (cons __tmp244585 __tmp244584)))) (declare (not safe)) - (cons '%#let-values __tmp244653)))) + (cons '%#let-values __tmp244583)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244652 _stx235643_)))) + (gxc#xform-wrap-source __tmp244582 _stx235573_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-lambda-expr237541_ + (_specializer-lambda-expr237471_ (let () (declare (not safe)) - (_make-specializer-lambda-expr237373_ - _struct-check-all237252_ - _empty235742_))) - (_specializer-case-lambda-expr237543_ + (_make-specializer-lambda-expr237303_ + _struct-check-all237182_ + _empty235672_))) + (_specializer-case-lambda-expr237473_ (let () (declare (not safe)) - (_make-specializer-case-lambda-expr237534_ - _struct-check-all237252_ - _empty235742_))) - (_specializer-impl237545_ + (_make-specializer-case-lambda-expr237464_ + _struct-check-all237182_ + _empty235672_))) + (_specializer-impl237475_ (let () (declare (not safe)) - (_make-specializer-impl237539_ - _specializer-lambda-expr237541_ - _specializer-case-lambda-expr237543_))) - (_unchecked-specializer-lambda-expr237547_ + (_make-specializer-impl237469_ + _specializer-lambda-expr237471_ + _specializer-case-lambda-expr237473_))) + (_unchecked-specializer-lambda-expr237477_ (if (let () (declare (not safe)) - (_unchecked-specializer?235745_)) + (_unchecked-specializer?235675_)) (let () (declare (not safe)) - (_make-specializer-lambda-expr237373_ - _empty235742_ - _struct-check-all237252_)) + (_make-specializer-lambda-expr237303_ + _empty235672_ + _struct-check-all237182_)) '#f)) - (_unchecked-specializer-case-lambda-expr237549_ + (_unchecked-specializer-case-lambda-expr237479_ (if (let () (declare (not safe)) - (_unchecked-specializer?235745_)) + (_unchecked-specializer?235675_)) (let () (declare (not safe)) - (_make-specializer-case-lambda-expr237534_ - _empty235742_ - _struct-check-all237252_)) + (_make-specializer-case-lambda-expr237464_ + _empty235672_ + _struct-check-all237182_)) '#f)) - (_unchecked-specializer-impl237551_ + (_unchecked-specializer-impl237481_ (if (let () (declare (not safe)) - (_unchecked-specializer?235745_)) + (_unchecked-specializer?235675_)) (let () (declare (not safe)) - (_make-specializer-impl237539_ - _unchecked-specializer-lambda-expr237547_ - _unchecked-specializer-case-lambda-expr237549_)) + (_make-specializer-impl237469_ + _unchecked-specializer-lambda-expr237477_ + _unchecked-specializer-case-lambda-expr237479_)) '#f)) - (_specializer-impl237553_ + (_specializer-impl237483_ (let () (declare (not safe)) - (_generate-specializer-impl235649_ - _$t237182_ - _methods-bind237205_ - _slots-bind237228_ - _class-check-bind237250_ - _struct-check-bind237274_ - _specializer-impl237545_ - _lifted-specializer-id237180_ - _unchecked-specializer-impl237551_)))) - (let ((__tmp244660 + (_generate-specializer-impl235579_ + _$t237112_ + _methods-bind237135_ + _slots-bind237158_ + _class-check-bind237180_ + _struct-check-bind237204_ + _specializer-impl237475_ + _lifted-specializer-id237110_ + _unchecked-specializer-impl237481_)))) + (let ((__tmp244590 (let () (declare (not safe)) - (gx#stx-e _L235718_))) - (__tmp244659 + (gx#stx-e _L235648_))) + (__tmp244589 (let () (declare (not safe)) (gx#stx-e - _specializer-id237173_)))) + _specializer-id237103_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp244660 + __tmp244590 '" => " - __tmp244659)) + __tmp244589)) (let () (declare (not safe)) - (_generate-specializer-def235650_ - _L235718_ - _specializer-id237173_ - _specializer-impl237553_ - _lifted-specializer-id237180_ - _unchecked-specializer-impl237551_))))) - _hd236862236924_ - _hd236859236916_ - _hd236856236908_) + (_generate-specializer-def235580_ + _L235648_ + _specializer-id237103_ + _specializer-impl237483_ + _lifted-specializer-id237110_ + _unchecked-specializer-impl237481_))))) + _hd236792236854_ + _hd236789236846_ + _hd236786236838_) (let () (declare (not safe)) - (_g236838236868_ _g236839236871_))))) + (_g236768236798_ _g236769236801_))))) (let () (declare (not safe)) - (_g236838236868_ _g236839236871_))) + (_g236768236798_ _g236769236801_))) (let () (declare (not safe)) - (_g236838236868_ _g236839236871_))) + (_g236768236798_ _g236769236801_))) (let () (declare (not safe)) - (_g236838236868_ _g236839236871_))))) - (let () (declare (not safe)) (_g236838236868_ _g236839236871_))) + (_g236768236798_ _g236769236801_))))) + (let () (declare (not safe)) (_g236768236798_ _g236769236801_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g236838236868_ - _g236839236871_))))) + (_g236768236798_ + _g236769236801_))))) (let () (declare (not safe)) - (_g236838236868_ - _g236839236871_))))) + (_g236768236798_ + _g236769236801_))))) (let () (declare (not safe)) - (_g236838236868_ _g236839236871_))))) + (_g236768236798_ _g236769236801_))))) (let () (declare (not safe)) - (_g236838236868_ _g236839236871_))))) + (_g236768236798_ _g236769236801_))))) (let () (declare (not safe)) - (_g236838236868_ _g236839236871_))))) + (_g236768236798_ _g236769236801_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g236838236868_ - _g236839236871_)))))) + (_g236768236798_ + _g236769236801_)))))) (declare (not safe)) - (_g236837237556_ _L235717_)) + (_g236767237486_ _L235647_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L235717_)) - (let* ((_g237559237612_ - (lambda (_g237560237609_) + (gxc#kw-lambda-expr? _L235647_)) + (let* ((_g237489237542_ + (lambda (_g237490237539_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g237560237609_)))) - (_g237558238884_ - (lambda (_g237560237615_) + _g237490237539_)))) + (_g237488238814_ + (lambda (_g237490237545_) (if (let () (declare (not safe)) (gx#stx-pair? - _g237560237615_)) - (let ((_e237568237617_ + _g237490237545_)) + (let ((_e237498237547_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g237560237615_)))) - (let ((_hd237567237620_ - (let () (declare (not safe)) (##car _e237568237617_))) - (_tl237566237622_ - (let () (declare (not safe)) (##cdr _e237568237617_)))) + (gx#stx-e _g237490237545_)))) + (let ((_hd237497237550_ + (let () (declare (not safe)) (##car _e237498237547_))) + (_tl237496237552_ + (let () (declare (not safe)) (##cdr _e237498237547_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd237567237620_)) + (gx#identifier? _hd237497237550_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd237567237620_)) + (gx#stx-eq? '%#let-values _hd237497237550_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237566237622_)) - (let ((_e237571237625_ + (gx#stx-pair? _tl237496237552_)) + (let ((_e237501237555_ (let () (declare (not safe)) - (gx#stx-e _tl237566237622_)))) - (let ((_hd237570237628_ + (gx#stx-e _tl237496237552_)))) + (let ((_hd237500237558_ (let () (declare (not safe)) - (##car _e237571237625_))) - (_tl237569237630_ + (##car _e237501237555_))) + (_tl237499237560_ (let () (declare (not safe)) - (##cdr _e237571237625_)))) + (##cdr _e237501237555_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237570237628_)) - (let ((_e237574237633_ + (gx#stx-pair? _hd237500237558_)) + (let ((_e237504237563_ (let () (declare (not safe)) - (gx#stx-e _hd237570237628_)))) - (let ((_hd237573237636_ + (gx#stx-e _hd237500237558_)))) + (let ((_hd237503237566_ (let () (declare (not safe)) - (##car _e237574237633_))) - (_tl237572237638_ + (##car _e237504237563_))) + (_tl237502237568_ (let () (declare (not safe)) - (##cdr _e237574237633_)))) + (##cdr _e237504237563_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd237573237636_)) - (let ((_e237577237641_ + _hd237503237566_)) + (let ((_e237507237571_ (let () (declare (not safe)) (gx#stx-e - _hd237573237636_)))) - (let ((_hd237576237644_ + _hd237503237566_)))) + (let ((_hd237506237574_ (let () (declare (not safe)) - (##car _e237577237641_))) - (_tl237575237646_ + (##car _e237507237571_))) + (_tl237505237576_ (let () (declare (not safe)) - (##cdr _e237577237641_)))) + (##cdr _e237507237571_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd237576237644_)) - (let ((_e237580237649_ + _hd237506237574_)) + (let ((_e237510237579_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd237576237644_)))) - (let ((_hd237579237652_ - (let () (declare (not safe)) (##car _e237580237649_))) - (_tl237578237654_ - (let () (declare (not safe)) (##cdr _e237580237649_)))) + (gx#stx-e _hd237506237574_)))) + (let ((_hd237509237582_ + (let () (declare (not safe)) (##car _e237510237579_))) + (_tl237508237584_ + (let () (declare (not safe)) (##cdr _e237510237579_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237578237654_)) + (gx#stx-null? _tl237508237584_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237575237646_)) - (let ((_e237583237657_ + (gx#stx-pair? _tl237505237576_)) + (let ((_e237513237587_ (let () (declare (not safe)) - (gx#stx-e _tl237575237646_)))) - (let ((_hd237582237660_ + (gx#stx-e _tl237505237576_)))) + (let ((_hd237512237590_ (let () (declare (not safe)) - (##car _e237583237657_))) - (_tl237581237662_ + (##car _e237513237587_))) + (_tl237511237592_ (let () (declare (not safe)) - (##cdr _e237583237657_)))) + (##cdr _e237513237587_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237582237660_)) - (let ((_e237586237665_ + (gx#stx-pair? _hd237512237590_)) + (let ((_e237516237595_ (let () (declare (not safe)) - (gx#stx-e _hd237582237660_)))) - (let ((_hd237585237668_ + (gx#stx-e _hd237512237590_)))) + (let ((_hd237515237598_ (let () (declare (not safe)) - (##car _e237586237665_))) - (_tl237584237670_ + (##car _e237516237595_))) + (_tl237514237600_ (let () (declare (not safe)) - (##cdr _e237586237665_)))) + (##cdr _e237516237595_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd237585237668_)) + (gx#identifier? _hd237515237598_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd237585237668_)) + _hd237515237598_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237584237670_)) - (let ((_e237589237673_ + _tl237514237600_)) + (let ((_e237519237603_ (let () (declare (not safe)) (gx#stx-e - _tl237584237670_)))) - (let ((_hd237588237676_ + _tl237514237600_)))) + (let ((_hd237518237606_ (let () (declare (not safe)) - (##car _e237589237673_))) - (_tl237587237678_ + (##car _e237519237603_))) + (_tl237517237608_ (let () (declare (not safe)) - (##cdr _e237589237673_)))) + (##cdr _e237519237603_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd237588237676_)) - (let ((_e237592237681_ + _hd237518237606_)) + (let ((_e237522237611_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd237588237676_)))) - (let ((_hd237591237684_ + (gx#stx-e _hd237518237606_)))) + (let ((_hd237521237614_ (let () (declare (not safe)) - (##car _e237592237681_))) - (_tl237590237686_ + (##car _e237522237611_))) + (_tl237520237616_ (let () (declare (not safe)) - (##cdr _e237592237681_)))) + (##cdr _e237522237611_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237591237684_)) - (let ((_e237595237689_ + (gx#stx-pair? _hd237521237614_)) + (let ((_e237525237619_ (let () (declare (not safe)) - (gx#stx-e _hd237591237684_)))) - (let ((_hd237594237692_ + (gx#stx-e _hd237521237614_)))) + (let ((_hd237524237622_ (let () (declare (not safe)) - (##car _e237595237689_))) - (_tl237593237694_ + (##car _e237525237619_))) + (_tl237523237624_ (let () (declare (not safe)) - (##cdr _e237595237689_)))) + (##cdr _e237525237619_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237594237692_)) - (let ((_e237598237697_ + (gx#stx-pair? _hd237524237622_)) + (let ((_e237528237627_ (let () (declare (not safe)) - (gx#stx-e _hd237594237692_)))) - (let ((_hd237597237700_ + (gx#stx-e _hd237524237622_)))) + (let ((_hd237527237630_ (let () (declare (not safe)) - (##car _e237598237697_))) - (_tl237596237702_ + (##car _e237528237627_))) + (_tl237526237632_ (let () (declare (not safe)) - (##cdr _e237598237697_)))) + (##cdr _e237528237627_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237596237702_)) + (gx#stx-null? _tl237526237632_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237593237694_)) - (let ((_e237601237705_ + _tl237523237624_)) + (let ((_e237531237635_ (let () (declare (not safe)) (gx#stx-e - _tl237593237694_)))) - (let ((_hd237600237708_ + _tl237523237624_)))) + (let ((_hd237530237638_ (let () (declare (not safe)) - (##car _e237601237705_))) - (_tl237599237710_ + (##car _e237531237635_))) + (_tl237529237640_ (let () (declare (not safe)) - (##cdr _e237601237705_)))) + (##cdr _e237531237635_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237599237710_)) + _tl237529237640_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl237590237686_)) + _tl237520237616_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl237587237678_)) - (let ((_e237604237713_ + (gx#stx-pair? _tl237517237608_)) + (let ((_e237534237643_ (let () (declare (not safe)) - (gx#stx-e _tl237587237678_)))) - (let ((_hd237603237716_ + (gx#stx-e _tl237517237608_)))) + (let ((_hd237533237646_ (let () (declare (not safe)) - (##car _e237604237713_))) - (_tl237602237718_ + (##car _e237534237643_))) + (_tl237532237648_ (let () (declare (not safe)) - (##cdr _e237604237713_)))) + (##cdr _e237534237643_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237602237718_)) + (gx#stx-null? _tl237532237648_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl237581237662_)) + (gx#stx-null? _tl237511237592_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl237572237638_)) + (gx#stx-null? _tl237502237568_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237569237630_)) - (let ((_e237607237721_ + (gx#stx-pair? _tl237499237560_)) + (let ((_e237537237651_ (let () (declare (not safe)) (gx#stx-e - _tl237569237630_)))) - (let ((_hd237606237724_ + _tl237499237560_)))) + (let ((_hd237536237654_ (let () (declare (not safe)) - (##car _e237607237721_))) - (_tl237605237726_ + (##car _e237537237651_))) + (_tl237535237656_ (let () (declare (not safe)) - (##cdr _e237607237721_)))) + (##cdr _e237537237651_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237605237726_)) - ((lambda (_L237729_ - _L237730_ - _L237731_ - _L237732_ - _L237733_) - (let* ((_g237772237834_ - (lambda (_g237773237831_) + _tl237535237656_)) + ((lambda (_L237659_ + _L237660_ + _L237661_ + _L237662_ + _L237663_) + (let* ((_g237702237764_ + (lambda (_g237703237761_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g237773237831_)))) - (_g237771238881_ - (lambda (_g237773237837_) + _g237703237761_)))) + (_g237701238811_ + (lambda (_g237703237767_) (if (let () (declare (not safe)) - (gx#stx-pair? _g237773237837_)) - (let ((_e237781237839_ + (gx#stx-pair? _g237703237767_)) + (let ((_e237711237769_ (let () (declare (not safe)) - (gx#stx-e _g237773237837_)))) - (let ((_hd237780237842_ + (gx#stx-e _g237703237767_)))) + (let ((_hd237710237772_ (let () (declare (not safe)) - (##car _e237781237839_))) - (_tl237779237844_ + (##car _e237711237769_))) + (_tl237709237774_ (let () (declare (not safe)) - (##cdr _e237781237839_)))) + (##cdr _e237711237769_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd237780237842_)) + (gx#identifier? _hd237710237772_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd237780237842_)) + _hd237710237772_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237779237844_)) - (let ((_e237784237847_ + (gx#stx-pair? _tl237709237774_)) + (let ((_e237714237777_ (let () (declare (not safe)) (gx#stx-e - _tl237779237844_)))) - (let ((_hd237783237850_ + _tl237709237774_)))) + (let ((_hd237713237780_ (let () (declare (not safe)) - (##car _e237784237847_))) - (_tl237782237852_ + (##car _e237714237777_))) + (_tl237712237782_ (let () (declare (not safe)) - (##cdr _e237784237847_)))) + (##cdr _e237714237777_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237782237852_)) - (let ((_e237787237855_ + _tl237712237782_)) + (let ((_e237717237785_ (let () (declare (not safe)) (gx#stx-e - _tl237782237852_)))) - (let ((_hd237786237858_ + _tl237712237782_)))) + (let ((_hd237716237788_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e237787237855_))) - (_tl237785237860_ - (let () (declare (not safe)) (##cdr _e237787237855_)))) + (##car _e237717237785_))) + (_tl237715237790_ + (let () (declare (not safe)) (##cdr _e237717237785_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237786237858_)) - (let ((_e237790237863_ + (gx#stx-pair? _hd237716237788_)) + (let ((_e237720237793_ (let () (declare (not safe)) - (gx#stx-e _hd237786237858_)))) - (let ((_hd237789237866_ + (gx#stx-e _hd237716237788_)))) + (let ((_hd237719237796_ (let () (declare (not safe)) - (##car _e237790237863_))) - (_tl237788237868_ + (##car _e237720237793_))) + (_tl237718237798_ (let () (declare (not safe)) - (##cdr _e237790237863_)))) + (##cdr _e237720237793_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd237789237866_)) + (gx#identifier? _hd237719237796_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd237789237866_)) + (gx#stx-eq? '%#call _hd237719237796_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237788237868_)) - (let ((_e237793237871_ + (gx#stx-pair? _tl237718237798_)) + (let ((_e237723237801_ (let () (declare (not safe)) - (gx#stx-e _tl237788237868_)))) - (let ((_hd237792237874_ + (gx#stx-e _tl237718237798_)))) + (let ((_hd237722237804_ (let () (declare (not safe)) - (##car _e237793237871_))) - (_tl237791237876_ + (##car _e237723237801_))) + (_tl237721237806_ (let () (declare (not safe)) - (##cdr _e237793237871_)))) + (##cdr _e237723237801_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237792237874_)) - (let ((_e237796237879_ + (gx#stx-pair? _hd237722237804_)) + (let ((_e237726237809_ (let () (declare (not safe)) (gx#stx-e - _hd237792237874_)))) - (let ((_hd237795237882_ + _hd237722237804_)))) + (let ((_hd237725237812_ (let () (declare (not safe)) - (##car _e237796237879_))) - (_tl237794237884_ + (##car _e237726237809_))) + (_tl237724237814_ (let () (declare (not safe)) - (##cdr _e237796237879_)))) + (##cdr _e237726237809_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd237795237882_)) + _hd237725237812_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd237795237882_)) + _hd237725237812_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237794237884_)) - (let ((_e237799237887_ + _tl237724237814_)) + (let ((_e237729237817_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl237794237884_)))) - (let ((_hd237798237890_ + (gx#stx-e _tl237724237814_)))) + (let ((_hd237728237820_ (let () (declare (not safe)) - (##car _e237799237887_))) - (_tl237797237892_ + (##car _e237729237817_))) + (_tl237727237822_ (let () (declare (not safe)) - (##cdr _e237799237887_)))) + (##cdr _e237729237817_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237797237892_)) + (gx#stx-null? _tl237727237822_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237791237876_)) - (let ((_e237802237895_ + (gx#stx-pair? _tl237721237806_)) + (let ((_e237732237825_ (let () (declare (not safe)) - (gx#stx-e _tl237791237876_)))) - (let ((_hd237801237898_ + (gx#stx-e _tl237721237806_)))) + (let ((_hd237731237828_ (let () (declare (not safe)) - (##car _e237802237895_))) - (_tl237800237900_ + (##car _e237732237825_))) + (_tl237730237830_ (let () (declare (not safe)) - (##cdr _e237802237895_)))) + (##cdr _e237732237825_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237801237898_)) - (let ((_e237805237903_ + (gx#stx-pair? _hd237731237828_)) + (let ((_e237735237833_ (let () (declare (not safe)) - (gx#stx-e _hd237801237898_)))) - (let ((_hd237804237906_ + (gx#stx-e _hd237731237828_)))) + (let ((_hd237734237836_ (let () (declare (not safe)) - (##car _e237805237903_))) - (_tl237803237908_ + (##car _e237735237833_))) + (_tl237733237838_ (let () (declare (not safe)) - (##cdr _e237805237903_)))) + (##cdr _e237735237833_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd237804237906_)) + _hd237734237836_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd237804237906_)) + _hd237734237836_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237803237908_)) - (let ((_e237808237911_ + _tl237733237838_)) + (let ((_e237738237841_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl237803237908_)))) - (let ((_hd237807237914_ - (let () (declare (not safe)) (##car _e237808237911_))) - (_tl237806237916_ + (gx#stx-e _tl237733237838_)))) + (let ((_hd237737237844_ + (let () (declare (not safe)) (##car _e237738237841_))) + (_tl237736237846_ (let () (declare (not safe)) - (##cdr _e237808237911_)))) + (##cdr _e237738237841_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237806237916_)) + (gx#stx-null? _tl237736237846_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237800237900_)) - (let ((_e237811237919_ + (gx#stx-pair? _tl237730237830_)) + (let ((_e237741237849_ (let () (declare (not safe)) - (gx#stx-e _tl237800237900_)))) - (let ((_hd237810237922_ + (gx#stx-e _tl237730237830_)))) + (let ((_hd237740237852_ (let () (declare (not safe)) - (##car _e237811237919_))) - (_tl237809237924_ + (##car _e237741237849_))) + (_tl237739237854_ (let () (declare (not safe)) - (##cdr _e237811237919_)))) + (##cdr _e237741237849_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237810237922_)) - (let ((_e237814237927_ + (gx#stx-pair? _hd237740237852_)) + (let ((_e237744237857_ (let () (declare (not safe)) - (gx#stx-e _hd237810237922_)))) - (let ((_hd237813237930_ + (gx#stx-e _hd237740237852_)))) + (let ((_hd237743237860_ (let () (declare (not safe)) - (##car _e237814237927_))) - (_tl237812237932_ + (##car _e237744237857_))) + (_tl237742237862_ (let () (declare (not safe)) - (##cdr _e237814237927_)))) + (##cdr _e237744237857_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd237813237930_)) + _hd237743237860_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd237813237930_)) + _hd237743237860_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237812237932_)) - (let ((_e237817237935_ + _tl237742237862_)) + (let ((_e237747237865_ (let () (declare (not safe)) (gx#stx-e - _tl237812237932_)))) - (let ((_hd237816237938_ + _tl237742237862_)))) + (let ((_hd237746237868_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e237817237935_))) - (_tl237815237940_ - (let () (declare (not safe)) (##cdr _e237817237935_)))) + (##car _e237747237865_))) + (_tl237745237870_ + (let () (declare (not safe)) (##cdr _e237747237865_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237815237940_)) + (gx#stx-null? _tl237745237870_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237809237924_)) + (gx#stx-pair/null? _tl237739237854_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl237809237924_)) + (gx#stx-length _tl237739237854_)) '1) - (let ((_g244536_ + (let ((_g244466_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237809237924_ + _tl237739237854_ '1)))) (begin - (let ((_g244537_ + (let ((_g244467_ (let () (declare (not safe)) - (if (##values? _g244536_) - (##vector-length _g244536_) + (if (##values? _g244466_) + (##vector-length _g244466_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244537_ 2))) + (##fx= _g244467_ 2))) (error "Context expects 2 values" - _g244537_))) - (let ((_target237818237943_ + _g244467_))) + (let ((_target237748237873_ (let () (declare (not safe)) - (##vector-ref _g244536_ 0))) - (_tl237820237945_ + (##vector-ref _g244466_ 0))) + (_tl237750237875_ (let () (declare (not safe)) - (##vector-ref _g244536_ 1)))) + (##vector-ref _g244466_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237820237945_)) - (let ((_e237829237948_ + (gx#stx-pair? _tl237750237875_)) + (let ((_e237759237878_ (let () (declare (not safe)) - (gx#stx-e _tl237820237945_)))) - (let ((_hd237828237951_ + (gx#stx-e _tl237750237875_)))) + (let ((_hd237758237881_ (let () (declare (not safe)) - (##car _e237829237948_))) - (_tl237827237953_ + (##car _e237759237878_))) + (_tl237757237883_ (let () (declare (not safe)) - (##cdr _e237829237948_)))) + (##cdr _e237759237878_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237827237953_)) - (letrec ((_loop237821237956_ - (lambda (_hd237819237959_ + _tl237757237883_)) + (letrec ((_loop237751237886_ + (lambda (_hd237749237889_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kw-ref237825237961_) + _kw-ref237755237891_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237819237959_)) - (let ((_e237822237964_ + (gx#stx-pair? _hd237749237889_)) + (let ((_e237752237894_ (let () (declare (not safe)) - (gx#stx-e _hd237819237959_)))) - (let ((_lp-hd237823237967_ + (gx#stx-e _hd237749237889_)))) + (let ((_lp-hd237753237897_ (let () (declare (not safe)) - (##car _e237822237964_))) - (_lp-tl237824237969_ + (##car _e237752237894_))) + (_lp-tl237754237899_ (let () (declare (not safe)) - (##cdr _e237822237964_)))) - (let ((__tmp244623 + (##cdr _e237752237894_)))) + (let ((__tmp244553 (let () (declare (not safe)) - (cons _lp-hd237823237967_ - _kw-ref237825237961_)))) + (cons _lp-hd237753237897_ + _kw-ref237755237891_)))) (declare (not safe)) - (_loop237821237956_ - _lp-tl237824237969_ - __tmp244623)))) - (let ((_kw-ref237826237972_ - (reverse _kw-ref237825237961_))) + (_loop237751237886_ + _lp-tl237754237899_ + __tmp244553)))) + (let ((_kw-ref237756237902_ + (reverse _kw-ref237755237891_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237785237860_)) - ((lambda (_L237975_ - _L237976_ - _L237977_ - _L237978_ - _L237979_) - (let* ((_kw-count238030_ - (length (let ((__tmp244538 - (lambda (_g238022238025_ - _g238023238027_) + (gx#stx-null? _tl237715237790_)) + ((lambda (_L237905_ + _L237906_ + _L237907_ + _L237908_ + _L237909_) + (let* ((_kw-count237960_ + (length (let ((__tmp244468 + (lambda (_g237952237955_ + _g237953237957_) (let () (declare (not safe)) - (cons _g238022238025_ - _g238023238027_))))) + (cons _g237952237955_ + _g237953237957_))))) (declare (not safe)) - (foldr1 __tmp244538 + (foldr1 __tmp244468 '() - _L237976_)))) - (_self-index238032_ + _L237906_)))) + (_self-index237962_ (let () (declare (not safe)) - (fx+ _kw-count238030_ '1)))) + (fx+ _kw-count237960_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L237731_)) - (let* ((_g238035238049_ - (lambda (_g238036238046_) + (gxc#lambda-expr? _L237661_)) + (let* ((_g237965237979_ + (lambda (_g237966237976_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g238036238046_)))) - (_g238034238220_ - (lambda (_g238036238052_) + _g237966237976_)))) + (_g237964238150_ + (lambda (_g237966237982_) (if (let () (declare (not safe)) (gx#stx-pair? - _g238036238052_)) - (let ((_e238041238054_ + _g237966237982_)) + (let ((_e237971237984_ (let () (declare (not safe)) (gx#stx-e - _g238036238052_)))) - (let ((_hd238040238057_ + _g237966237982_)))) + (let ((_hd237970237987_ (let () (declare (not safe)) - (##car _e238041238054_))) - (_tl238039238059_ + (##car _e237971237984_))) + (_tl237969237989_ (let () (declare (not safe)) - (##cdr _e238041238054_)))) + (##cdr _e237971237984_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl238039238059_)) - (let ((_e238044238062_ + _tl237969237989_)) + (let ((_e237974237992_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl238039238059_)))) - (let ((_hd238043238065_ + (gx#stx-e _tl237969237989_)))) + (let ((_hd237973237995_ (let () (declare (not safe)) - (##car _e238044238062_))) - (_tl238042238067_ + (##car _e237974237992_))) + (_tl237972237997_ (let () (declare (not safe)) - (##cdr _e238044238062_)))) - ((lambda (_L238070_ _L238071_) - (let ((_self238087_ - (list-ref _L238071_ _self-index238032_))) + (##cdr _e237974237992_)))) + ((lambda (_L238000_ _L238001_) + (let ((_self238017_ + (list-ref _L238001_ _self-index237962_))) (for-each - (lambda (_g238088238090_) + (lambda (_g238018238020_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g238088238090_ - _self238087_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check235740_ - _struct-type-assert235741_))) - _L238070_) + _g238018238020_ + _self238017_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check235670_ + _struct-type-assert235671_))) + _L238000_) (if (let () (declare (not safe)) - (_no-specializer?235744_)) - _stx235643_ - (let* ((_specializer-id238099_ - (let* ((_id238093_ - (let ((__tmp244589 + (_no-specializer?235674_)) + _stx235573_ + (let* ((_specializer-id238029_ + (let* ((_id238023_ + (let ((__tmp244519 (let () (declare (not safe)) (gx#stx-e - _L235718_)))) + _L235648_)))) (declare (not safe)) (make-symbol__1 - __tmp244589 + __tmp244519 '"::specialize"))) - (_specializer-id238096_ - (let ((__tmp244590 + (_specializer-id238026_ + (let ((__tmp244520 (let () (declare (not safe)) (gx#stx-source - _stx235643_)))) + _stx235573_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id238093_ - __tmp244590)))) + _id238023_ + __tmp244520)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _specializer-id238096_)) - _specializer-id238096_)) - (_lifted-specializer-id238106_ + _specializer-id238026_)) + _specializer-id238026_)) + (_lifted-specializer-id238036_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?235746_)) - (let* ((_id238101_ - (let ((__tmp244591 + (_lift-unchecked-specializer?235676_)) + (let* ((_id238031_ + (let ((__tmp244521 (let () (declare (not safe)) (gx#stx-e - _L235718_)))) + _L235648_)))) (declare (not safe)) (make-symbol__1 - __tmp244591 + __tmp244521 '"::specialize::unchecked"))) - (_lifted-specializer-id238103_ - (let ((__tmp244592 + (_lifted-specializer-id238033_ + (let ((__tmp244522 (let () (declare (not safe)) (gx#stx-source - _stx235643_)))) + _stx235573_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id238101_ - __tmp244592)))) + _id238031_ + __tmp244522)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id238103_)) - _lifted-specializer-id238103_) + _lifted-specializer-id238033_)) + _lifted-specializer-id238033_) '#f)) - (_$t238108_ - (let ((__tmp244593 (gensym '__t))) + (_$t238038_ + (let ((__tmp244523 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp244593))) - (_methods238110_ + (make-symbol__0 __tmp244523))) + (_methods238040_ (let () (declare (not safe)) - (hash-keys _method-calls235737_))) - (_$methods238114_ - (map (lambda (_id238112_) - (let ((__tmp244594 - (gensym _id238112_))) + (hash-keys _method-calls235667_))) + (_$methods238044_ + (map (lambda (_id238042_) + (let ((__tmp244524 + (gensym _id238042_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp244594))) - _methods238110_)) - (_g244595_ + __tmp244524))) + _methods238040_)) + (_g244525_ (for-each - (lambda (_g238115238118_ - _g238116238120_) + (lambda (_g238045238048_ + _g238046238050_) (let () (declare (not safe)) (table-set! - _method-calls235737_ - _g238115238118_ - _g238116238120_))) - _methods238110_ - _$methods238114_)) - (_methods-bind238131_ - (map (lambda (_g238123238126_ - _g238124238128_) + _method-calls235667_ + _g238045238048_ + _g238046238050_))) + _methods238040_ + _$methods238044_)) + (_methods-bind238061_ + (map (lambda (_g238053238056_ + _g238054238058_) (let () (declare (not safe)) - (_generate-method-bind235645_ - _$t238108_ - _g238123238126_ - _g238124238128_))) - _methods238110_ - _$methods238114_)) - (_slots238133_ + (_generate-method-bind235575_ + _$t238038_ + _g238053238056_ + _g238054238058_))) + _methods238040_ + _$methods238044_)) + (_slots238063_ (let () (declare (not safe)) - (hash-keys _slot-refs235738_))) - (_$slots238137_ - (map (lambda (_id238135_) - (let ((__tmp244596 - (gensym _id238135_))) + (hash-keys _slot-refs235668_))) + (_$slots238067_ + (map (lambda (_id238065_) + (let ((__tmp244526 + (gensym _id238065_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp244596))) - _slots238133_)) - (_g244597_ + __tmp244526))) + _slots238063_)) + (_g244527_ (for-each - (lambda (_g238138238141_ - _g238139238143_) + (lambda (_g238068238071_ + _g238069238073_) (let () (declare (not safe)) (table-set! - _slot-refs235738_ - _g238138238141_ - _g238139238143_))) - _slots238133_ - _$slots238137_)) - (_slots-bind238154_ - (map (lambda (_g238146238149_ - _g238147238151_) + _slot-refs235668_ + _g238068238071_ + _g238069238073_))) + _slots238063_ + _$slots238067_)) + (_slots-bind238084_ + (map (lambda (_g238076238079_ + _g238077238081_) (let () (declare (not safe)) - (_generate-slot-bind235646_ - _$t238108_ - _g238146238149_ - _g238147238151_))) - _slots238133_ - _$slots238137_)) - (_class-check238156_ + (_generate-slot-bind235576_ + _$t238038_ + _g238076238079_ + _g238077238081_))) + _slots238063_ + _$slots238067_)) + (_class-check238086_ (let () (declare (not safe)) (hash-keys - _class-type-check235739_))) - (_$class-check238159_ - (map (lambda (_g244598_) - (let ((__tmp244599 + _class-type-check235669_))) + (_$class-check238089_ + (map (lambda (_g244528_) + (let ((__tmp244529 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp244599))) - _class-check238156_)) - (_g244600_ + (make-symbol__0 __tmp244529))) + _class-check238086_)) + (_g244530_ (for-each - (lambda (_g238160238163_ - _g238161238165_) + (lambda (_g238090238093_ + _g238091238095_) (let () (declare (not safe)) (table-set! - _class-type-check235739_ - _g238160238163_ - _g238161238165_))) - _class-check238156_ - _$class-check238159_)) - (_class-check-bind238176_ - (map (lambda (_g238168238171_ - _g238169238173_) + _class-type-check235669_ + _g238090238093_ + _g238091238095_))) + _class-check238086_ + _$class-check238089_)) + (_class-check-bind238106_ + (map (lambda (_g238098238101_ + _g238099238103_) (let () (declare (not safe)) - (_generate-class-check-bind235647_ - _$t238108_ - _g238168238171_ - _g238169238173_))) - _class-check238156_ - _$class-check238159_)) - (_struct-check-all238178_ + (_generate-class-check-bind235577_ + _$t238038_ + _g238098238101_ + _g238099238103_))) + _class-check238086_ + _$class-check238089_)) + (_struct-check-all238108_ (let () (declare (not safe)) (hash-merge - _struct-type-check235740_ - _struct-type-assert235741_))) - (_struct-check238180_ + _struct-type-check235670_ + _struct-type-assert235671_))) + (_struct-check238110_ (let () (declare (not safe)) (hash-keys - _struct-check-all238178_))) - (_$struct-check238183_ - (map (lambda (_g244601_) - (let ((__tmp244602 + _struct-check-all238108_))) + (_$struct-check238113_ + (map (lambda (_g244531_) + (let ((__tmp244532 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp244602))) - _struct-check238180_)) - (_g244603_ + (make-symbol__0 __tmp244532))) + _struct-check238110_)) + (_g244533_ (for-each - (lambda (_g238184238187_ - _g238185238189_) + (lambda (_g238114238117_ + _g238115238119_) (let () (declare (not safe)) (table-set! - _struct-check-all238178_ - _g238184238187_ - _g238185238189_))) - _struct-check238180_ - _$struct-check238183_)) - (_struct-check-bind238200_ - (map (lambda (_g238192238195_ - _g238193238197_) + _struct-check-all238108_ + _g238114238117_ + _g238115238119_))) + _struct-check238110_ + _$struct-check238113_)) + (_struct-check-bind238130_ + (map (lambda (_g238122238125_ + _g238123238127_) (let () (declare (not safe)) - (_generate-struct-check-bind235648_ - _$t238108_ - _g238192238195_ - _g238193238197_))) - _struct-check238180_ - _$struct-check238183_)) - (_make-specializer-impl238211_ - (lambda (_struct-type-check1238202_ - _struct-type-check2238203_) - (let* ((_specializer-body238209_ - (map (lambda (_g238204238206_) + (_generate-struct-check-bind235578_ + _$t238038_ + _g238122238125_ + _g238123238127_))) + _struct-check238110_ + _$struct-check238113_)) + (_make-specializer-impl238141_ + (lambda (_struct-type-check1238132_ + _struct-type-check2238133_) + (let* ((_specializer-body238139_ + (map (lambda (_g238134238136_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g238204238206_ - _self238087_ - _$t238108_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check1238202_ - _struct-type-check2238203_))) - _L238070_)) - (__tmp244604 - (let ((__tmp244605 - (let ((__tmp244607 - (let ((__tmp244608 + _g238134238136_ + _self238017_ + _$t238038_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check1238132_ + _struct-type-check2238133_))) + _L238000_)) + (__tmp244534 + (let ((__tmp244535 + (let ((__tmp244537 + (let ((__tmp244538 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244620 + (let ((__tmp244550 (let () (declare (not safe)) - (cons _L237733_ '()))) - (__tmp244609 - (let ((__tmp244610 - (let ((__tmp244611 - (let ((__tmp244613 - (let ((__tmp244614 + (cons _L237663_ '()))) + (__tmp244539 + (let ((__tmp244540 + (let ((__tmp244541 + (let ((__tmp244543 + (let ((__tmp244544 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244619 + (let ((__tmp244549 (let () (declare (not safe)) - (cons _L237732_ '()))) - (__tmp244615 - (let ((__tmp244616 - (let ((__tmp244617 - (let ((__tmp244618 + (cons _L237662_ '()))) + (__tmp244545 + (let ((__tmp244546 + (let ((__tmp244547 + (let ((__tmp244548 (let () (declare (not safe)) - (cons _L238071_ - _specializer-body238209_)))) + (cons _L238001_ + _specializer-body238139_)))) (declare (not safe)) (cons '%#lambda - __tmp244618)))) + __tmp244548)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp244617 - _L237731_)))) + __tmp244547 + _L237661_)))) (declare (not safe)) - (cons __tmp244616 '())))) + (cons __tmp244546 '())))) (declare (not safe)) - (cons __tmp244619 __tmp244615)))) + (cons __tmp244549 __tmp244545)))) (declare (not safe)) - (cons __tmp244614 '()))) - (__tmp244612 - (let () (declare (not safe)) (cons _L237730_ '())))) + (cons __tmp244544 '()))) + (__tmp244542 + (let () (declare (not safe)) (cons _L237660_ '())))) (declare (not safe)) - (cons __tmp244613 __tmp244612)))) + (cons __tmp244543 __tmp244542)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp244611)))) + __tmp244541)))) (declare (not safe)) - (cons __tmp244610 '())))) + (cons __tmp244540 '())))) (declare (not safe)) - (cons __tmp244620 __tmp244609)))) + (cons __tmp244550 __tmp244539)))) (declare (not safe)) - (cons __tmp244608 '()))) - (__tmp244606 - (let () (declare (not safe)) (cons _L237729_ '())))) + (cons __tmp244538 '()))) + (__tmp244536 + (let () (declare (not safe)) (cons _L237659_ '())))) (declare (not safe)) - (cons __tmp244607 __tmp244606)))) + (cons __tmp244537 __tmp244536)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp244605)))) + __tmp244535)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp244604 - _stx235643_)))) - (_specializer-impl238213_ + __tmp244534 + _stx235573_)))) + (_specializer-impl238143_ (let () (declare (not safe)) - (_make-specializer-impl238211_ - _struct-check-all238178_ - _empty235742_))) - (_unchecked-specializer-impl238215_ + (_make-specializer-impl238141_ + _struct-check-all238108_ + _empty235672_))) + (_unchecked-specializer-impl238145_ (if (let () (declare (not safe)) - (_unchecked-specializer?235745_)) + (_unchecked-specializer?235675_)) (let () (declare (not safe)) - (_make-specializer-impl238211_ - _empty235742_ - _struct-check-all238178_)) + (_make-specializer-impl238141_ + _empty235672_ + _struct-check-all238108_)) '#f)) - (_specializer-impl238217_ + (_specializer-impl238147_ (let () (declare (not safe)) - (_generate-specializer-impl235649_ - _$t238108_ - _methods-bind238131_ - _slots-bind238154_ - _class-check-bind238176_ - _struct-check-bind238200_ - _specializer-impl238213_ - _lifted-specializer-id238106_ - _unchecked-specializer-impl238215_)))) - (let ((__tmp244622 + (_generate-specializer-impl235579_ + _$t238038_ + _methods-bind238061_ + _slots-bind238084_ + _class-check-bind238106_ + _struct-check-bind238130_ + _specializer-impl238143_ + _lifted-specializer-id238036_ + _unchecked-specializer-impl238145_)))) + (let ((__tmp244552 (let () (declare (not safe)) - (gx#stx-e _L235718_))) - (__tmp244621 + (gx#stx-e _L235648_))) + (__tmp244551 (let () (declare (not safe)) - (gx#stx-e _specializer-id238099_)))) + (gx#stx-e _specializer-id238029_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp244622 + __tmp244552 '" => " - __tmp244621)) + __tmp244551)) (let () (declare (not safe)) - (_generate-specializer-def235650_ - _L235718_ - _specializer-id238099_ - _specializer-impl238217_ - _lifted-specializer-id238106_ - _unchecked-specializer-impl238215_)))))) - _tl238042238067_ - _hd238043238065_))) + (_generate-specializer-def235580_ + _L235648_ + _specializer-id238029_ + _specializer-impl238147_ + _lifted-specializer-id238036_ + _unchecked-specializer-impl238145_)))))) + _tl237972237997_ + _hd237973237995_))) (let () (declare (not safe)) - (_g238035238049_ _g238036238052_))))) + (_g237965237979_ _g237966237982_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g238035238049_ - _g238036238052_)))))) + (_g237965237979_ + _g237966237982_)))))) (declare (not safe)) - (_g238034238220_ _L237731_)) + (_g237964238150_ _L237661_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L237731_)) - (let* ((_g238223238253_ - (lambda (_g238224238250_) + (gxc#opt-lambda-expr? _L237661_)) + (let* ((_g238153238183_ + (lambda (_g238154238180_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g238224238250_)))) - (_g238222238878_ - (lambda (_g238224238256_) + _g238154238180_)))) + (_g238152238808_ + (lambda (_g238154238186_) (if (let () (declare (not safe)) (gx#stx-pair? - _g238224238256_)) - (let ((_e238230238258_ + _g238154238186_)) + (let ((_e238160238188_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g238224238256_)))) - (let ((_hd238229238261_ - (let () (declare (not safe)) (##car _e238230238258_))) - (_tl238228238263_ - (let () (declare (not safe)) (##cdr _e238230238258_)))) + (gx#stx-e _g238154238186_)))) + (let ((_hd238159238191_ + (let () (declare (not safe)) (##car _e238160238188_))) + (_tl238158238193_ + (let () (declare (not safe)) (##cdr _e238160238188_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl238228238263_)) - (let ((_e238233238266_ + (gx#stx-pair? _tl238158238193_)) + (let ((_e238163238196_ (let () (declare (not safe)) - (gx#stx-e _tl238228238263_)))) - (let ((_hd238232238269_ + (gx#stx-e _tl238158238193_)))) + (let ((_hd238162238199_ (let () (declare (not safe)) - (##car _e238233238266_))) - (_tl238231238271_ + (##car _e238163238196_))) + (_tl238161238201_ (let () (declare (not safe)) - (##cdr _e238233238266_)))) + (##cdr _e238163238196_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd238232238269_)) - (let ((_e238236238274_ + (gx#stx-pair? _hd238162238199_)) + (let ((_e238166238204_ (let () (declare (not safe)) - (gx#stx-e _hd238232238269_)))) - (let ((_hd238235238277_ + (gx#stx-e _hd238162238199_)))) + (let ((_hd238165238207_ (let () (declare (not safe)) - (##car _e238236238274_))) - (_tl238234238279_ + (##car _e238166238204_))) + (_tl238164238209_ (let () (declare (not safe)) - (##cdr _e238236238274_)))) + (##cdr _e238166238204_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd238235238277_)) - (let ((_e238239238282_ + (gx#stx-pair? _hd238165238207_)) + (let ((_e238169238212_ (let () (declare (not safe)) - (gx#stx-e _hd238235238277_)))) - (let ((_hd238238238285_ + (gx#stx-e _hd238165238207_)))) + (let ((_hd238168238215_ (let () (declare (not safe)) - (##car _e238239238282_))) - (_tl238237238287_ + (##car _e238169238212_))) + (_tl238167238217_ (let () (declare (not safe)) - (##cdr _e238239238282_)))) + (##cdr _e238169238212_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd238238238285_)) - (let ((_e238242238290_ + _hd238168238215_)) + (let ((_e238172238220_ (let () (declare (not safe)) (gx#stx-e - _hd238238238285_)))) - (let ((_hd238241238293_ + _hd238168238215_)))) + (let ((_hd238171238223_ (let () (declare (not safe)) - (##car _e238242238290_))) - (_tl238240238295_ + (##car _e238172238220_))) + (_tl238170238225_ (let () (declare (not safe)) - (##cdr _e238242238290_)))) + (##cdr _e238172238220_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl238240238295_)) + _tl238170238225_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl238237238287_)) - (let ((_e238245238298_ + _tl238167238217_)) + (let ((_e238175238228_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl238237238287_)))) - (let ((_hd238244238301_ + (gx#stx-e _tl238167238217_)))) + (let ((_hd238174238231_ (let () (declare (not safe)) - (##car _e238245238298_))) - (_tl238243238303_ + (##car _e238175238228_))) + (_tl238173238233_ (let () (declare (not safe)) - (##cdr _e238245238298_)))) + (##cdr _e238175238228_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl238243238303_)) + (gx#stx-null? _tl238173238233_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl238234238279_)) + (gx#stx-null? _tl238164238209_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl238231238271_)) - (let ((_e238248238306_ + (gx#stx-pair? _tl238161238201_)) + (let ((_e238178238236_ (let () (declare (not safe)) - (gx#stx-e _tl238231238271_)))) - (let ((_hd238247238309_ + (gx#stx-e _tl238161238201_)))) + (let ((_hd238177238239_ (let () (declare (not safe)) - (##car _e238248238306_))) - (_tl238246238311_ + (##car _e238178238236_))) + (_tl238176238241_ (let () (declare (not safe)) - (##cdr _e238248238306_)))) + (##cdr _e238178238236_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl238246238311_)) - ((lambda (_L238314_ - _L238315_ - _L238316_) - (let* ((_g238339238353_ - (lambda (_g238340238350_) + (gx#stx-null? _tl238176238241_)) + ((lambda (_L238244_ + _L238245_ + _L238246_) + (let* ((_g238269238283_ + (lambda (_g238270238280_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g238340238350_)))) - (_g238338238394_ - (lambda (_g238340238356_) + _g238270238280_)))) + (_g238268238324_ + (lambda (_g238270238286_) (if (let () (declare (not safe)) (gx#stx-pair? - _g238340238356_)) - (let ((_e238345238358_ + _g238270238286_)) + (let ((_e238275238288_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g238340238356_)))) - (let ((_hd238344238361_ + (gx#stx-e _g238270238286_)))) + (let ((_hd238274238291_ (let () (declare (not safe)) - (##car _e238345238358_))) - (_tl238343238363_ + (##car _e238275238288_))) + (_tl238273238293_ (let () (declare (not safe)) - (##cdr _e238345238358_)))) + (##cdr _e238275238288_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl238343238363_)) - (let ((_e238348238366_ + (gx#stx-pair? _tl238273238293_)) + (let ((_e238278238296_ (let () (declare (not safe)) - (gx#stx-e _tl238343238363_)))) - (let ((_hd238347238369_ + (gx#stx-e _tl238273238293_)))) + (let ((_hd238277238299_ (let () (declare (not safe)) - (##car _e238348238366_))) - (_tl238346238371_ + (##car _e238278238296_))) + (_tl238276238301_ (let () (declare (not safe)) - (##cdr _e238348238366_)))) - ((lambda (_L238374_ _L238375_) - (let ((_self238388_ + (##cdr _e238278238296_)))) + ((lambda (_L238304_ _L238305_) + (let ((_self238318_ (list-ref - _L238375_ - _self-index238032_))) + _L238305_ + _self-index237962_))) (for-each - (lambda (_g238389238391_) + (lambda (_g238319238321_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g238389238391_ - _self238388_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check235740_ - _struct-type-assert235741_))) - _L238374_))) - _tl238346238371_ - _hd238347238369_))) + _g238319238321_ + _self238318_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check235670_ + _struct-type-assert235671_))) + _L238304_))) + _tl238276238301_ + _hd238277238299_))) (let () (declare (not safe)) - (_g238339238353_ _g238340238356_))))) + (_g238269238283_ _g238270238286_))))) (let () (declare (not safe)) - (_g238339238353_ _g238340238356_)))))) + (_g238269238283_ _g238270238286_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g238338238394_ _L238315_)) - (let* ((_g238397238416_ - (lambda (_g238398238413_) + (_g238268238324_ _L238245_)) + (let* ((_g238327238346_ + (lambda (_g238328238343_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g238398238413_)))) - (_g238396238521_ - (lambda (_g238398238419_) + _g238328238343_)))) + (_g238326238451_ + (lambda (_g238328238349_) (if (let () (declare (not safe)) (gx#stx-pair? - _g238398238419_)) - (let ((_e238402238421_ + _g238328238349_)) + (let ((_e238332238351_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g238398238419_)))) - (let ((_hd238401238424_ + (gx#stx-e _g238328238349_)))) + (let ((_hd238331238354_ (let () (declare (not safe)) - (##car _e238402238421_))) - (_tl238400238426_ + (##car _e238332238351_))) + (_tl238330238356_ (let () (declare (not safe)) - (##cdr _e238402238421_)))) + (##cdr _e238332238351_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl238400238426_)) - (let ((_g244539_ + (gx#stx-pair/null? _tl238330238356_)) + (let ((_g244469_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl238400238426_ + _tl238330238356_ '0)))) (begin - (let ((_g244540_ + (let ((_g244470_ (let () (declare (not safe)) - (if (##values? _g244539_) - (##vector-length _g244539_) + (if (##values? _g244469_) + (##vector-length _g244469_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244540_ 2))) + (##fx= _g244470_ 2))) (error "Context expects 2 values" - _g244540_))) - (let ((_target238403238429_ + _g244470_))) + (let ((_target238333238359_ (let () (declare (not safe)) - (##vector-ref _g244539_ 0))) - (_tl238405238431_ + (##vector-ref _g244469_ 0))) + (_tl238335238361_ (let () (declare (not safe)) - (##vector-ref _g244539_ 1)))) + (##vector-ref _g244469_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl238405238431_)) - (letrec ((_loop238406238434_ - (lambda (_hd238404238437_ - _clause238410238439_) + (gx#stx-null? _tl238335238361_)) + (letrec ((_loop238336238364_ + (lambda (_hd238334238367_ + _clause238340238369_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd238404238437_)) - (let ((_e238407238442_ + _hd238334238367_)) + (let ((_e238337238372_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd238404238437_)))) - (let ((_lp-hd238408238445_ - (let () (declare (not safe)) (##car _e238407238442_))) - (_lp-tl238409238447_ - (let () (declare (not safe)) (##cdr _e238407238442_)))) - (let ((__tmp244542 + (gx#stx-e _hd238334238367_)))) + (let ((_lp-hd238338238375_ + (let () (declare (not safe)) (##car _e238337238372_))) + (_lp-tl238339238377_ + (let () (declare (not safe)) (##cdr _e238337238372_)))) + (let ((__tmp244472 (let () (declare (not safe)) - (cons _lp-hd238408238445_ _clause238410238439_)))) + (cons _lp-hd238338238375_ _clause238340238369_)))) (declare (not safe)) - (_loop238406238434_ _lp-tl238409238447_ __tmp244542)))) - (let ((_clause238411238450_ (reverse _clause238410238439_))) - ((lambda (_L238453_) + (_loop238336238364_ _lp-tl238339238377_ __tmp244472)))) + (let ((_clause238341238380_ (reverse _clause238340238369_))) + ((lambda (_L238383_) (for-each - (lambda (_clause238466_) - (let* ((_g238468238479_ - (lambda (_g238469238476_) + (lambda (_clause238396_) + (let* ((_g238398238409_ + (lambda (_g238399238406_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g238469238476_)))) - (_g238467238511_ - (lambda (_g238469238482_) + _g238399238406_)))) + (_g238397238441_ + (lambda (_g238399238412_) (if (let () (declare (not safe)) - (gx#stx-pair? _g238469238482_)) - (let ((_e238474238484_ + (gx#stx-pair? _g238399238412_)) + (let ((_e238404238414_ (let () (declare (not safe)) - (gx#stx-e _g238469238482_)))) - (let ((_hd238473238487_ + (gx#stx-e _g238399238412_)))) + (let ((_hd238403238417_ (let () (declare (not safe)) - (##car _e238474238484_))) - (_tl238472238489_ + (##car _e238404238414_))) + (_tl238402238419_ (let () (declare (not safe)) - (##cdr _e238474238484_)))) - ((lambda (_L238492_ _L238493_) - (let ((_self238505_ + (##cdr _e238404238414_)))) + ((lambda (_L238422_ _L238423_) + (let ((_self238435_ (list-ref - _L238493_ - _self-index238032_))) + _L238423_ + _self-index237962_))) (for-each - (lambda (_g238506238508_) + (lambda (_g238436238438_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g238506238508_ - _self238505_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check235740_ - _struct-type-assert235741_))) - _L238492_))) - _tl238472238489_ - _hd238473238487_))) + _g238436238438_ + _self238435_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check235670_ + _struct-type-assert235671_))) + _L238422_))) + _tl238402238419_ + _hd238403238417_))) (let () (declare (not safe)) - (_g238468238479_ _g238469238482_)))))) + (_g238398238409_ _g238399238412_)))))) (declare (not safe)) - (_g238467238511_ _clause238466_))) - (let ((__tmp244541 - (lambda (_g238513238516_ _g238514238518_) + (_g238397238441_ _clause238396_))) + (let ((__tmp244471 + (lambda (_g238443238446_ _g238444238448_) (let () (declare (not safe)) - (cons _g238513238516_ _g238514238518_))))) + (cons _g238443238446_ _g238444238448_))))) (declare (not safe)) - (foldr1 __tmp244541 '() _L238453_)))) - _clause238411238450_)))))) + (foldr1 __tmp244471 '() _L238383_)))) + _clause238341238380_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop238406238434_ - _target238403238429_ + (_loop238336238364_ + _target238333238359_ '()))) (let () (declare (not safe)) - (_g238397238416_ _g238398238419_)))))) + (_g238327238346_ _g238328238349_)))))) (let () (declare (not safe)) - (_g238397238416_ _g238398238419_))))) + (_g238327238346_ _g238328238349_))))) (let () (declare (not safe)) - (_g238397238416_ _g238398238419_)))))) + (_g238327238346_ _g238328238349_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g238396238521_ _L238314_)) + (_g238326238451_ _L238244_)) (if (let () (declare (not safe)) - (_no-specializer?235744_)) - _stx235643_ - (let* ((_specializer-id238530_ - (let* ((_id238524_ + (_no-specializer?235674_)) + _stx235573_ + (let* ((_specializer-id238460_ + (let* ((_id238454_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244543 + (let ((__tmp244473 (let () (declare (not safe)) - (gx#stx-e _L235718_)))) + (gx#stx-e _L235648_)))) (declare (not safe)) - (make-symbol__1 __tmp244543 '"::specialize"))) - (_specializer-id238527_ - (let ((__tmp244544 + (make-symbol__1 __tmp244473 '"::specialize"))) + (_specializer-id238457_ + (let ((__tmp244474 (let () (declare (not safe)) - (gx#stx-source _stx235643_)))) + (gx#stx-source _stx235573_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id238524_ __tmp244544)))) + (gx#core-quote-syntax__1 _id238454_ __tmp244474)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id238527_)) - _specializer-id238527_)) - (_lifted-specializer-id238537_ + (gx#core-bind-runtime!__0 _specializer-id238457_)) + _specializer-id238457_)) + (_lifted-specializer-id238467_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?235746_)) - (let* ((_id238532_ - (let ((__tmp244545 + (_lift-unchecked-specializer?235676_)) + (let* ((_id238462_ + (let ((__tmp244475 (let () (declare (not safe)) - (gx#stx-e _L235718_)))) + (gx#stx-e _L235648_)))) (declare (not safe)) (make-symbol__1 - __tmp244545 + __tmp244475 '"::specialize::unchecked"))) - (_lifted-specializer-id238534_ - (let ((__tmp244546 + (_lifted-specializer-id238464_ + (let ((__tmp244476 (let () (declare (not safe)) - (gx#stx-source _stx235643_)))) + (gx#stx-source _stx235573_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id238532_ - __tmp244546)))) + _id238462_ + __tmp244476)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id238534_)) - _lifted-specializer-id238534_) + _lifted-specializer-id238464_)) + _lifted-specializer-id238464_) '#f)) - (_$t238539_ - (let ((__tmp244547 (gensym '__t))) + (_$t238469_ + (let ((__tmp244477 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp244547))) - (_methods238541_ + (make-symbol__0 __tmp244477))) + (_methods238471_ (let () (declare (not safe)) - (hash-keys _method-calls235737_))) - (_$methods238545_ - (map (lambda (_id238543_) - (let ((__tmp244548 (gensym _id238543_))) + (hash-keys _method-calls235667_))) + (_$methods238475_ + (map (lambda (_id238473_) + (let ((__tmp244478 (gensym _id238473_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp244548))) - _methods238541_)) - (_g244549_ + (make-symbol__1 '"__" __tmp244478))) + _methods238471_)) + (_g244479_ (for-each - (lambda (_g238546238549_ _g238547238551_) + (lambda (_g238476238479_ _g238477238481_) (let () (declare (not safe)) (table-set! - _method-calls235737_ - _g238546238549_ - _g238547238551_))) - _methods238541_ - _$methods238545_)) - (_methods-bind238562_ - (map (lambda (_g238554238557_ _g238555238559_) + _method-calls235667_ + _g238476238479_ + _g238477238481_))) + _methods238471_ + _$methods238475_)) + (_methods-bind238492_ + (map (lambda (_g238484238487_ _g238485238489_) (let () (declare (not safe)) - (_generate-method-bind235645_ - _$t238539_ - _g238554238557_ - _g238555238559_))) - _methods238541_ - _$methods238545_)) - (_slots238564_ - (let () (declare (not safe)) (hash-keys _slot-refs235738_))) - (_$slots238568_ - (map (lambda (_id238566_) - (let ((__tmp244550 (gensym _id238566_))) + (_generate-method-bind235575_ + _$t238469_ + _g238484238487_ + _g238485238489_))) + _methods238471_ + _$methods238475_)) + (_slots238494_ + (let () (declare (not safe)) (hash-keys _slot-refs235668_))) + (_$slots238498_ + (map (lambda (_id238496_) + (let ((__tmp244480 (gensym _id238496_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp244550))) - _slots238564_)) - (_g244551_ + (make-symbol__1 '"__" __tmp244480))) + _slots238494_)) + (_g244481_ (for-each - (lambda (_g238569238572_ _g238570238574_) + (lambda (_g238499238502_ _g238500238504_) (let () (declare (not safe)) (table-set! - _slot-refs235738_ - _g238569238572_ - _g238570238574_))) - _slots238564_ - _$slots238568_)) - (_slots-bind238585_ - (map (lambda (_g238577238580_ _g238578238582_) + _slot-refs235668_ + _g238499238502_ + _g238500238504_))) + _slots238494_ + _$slots238498_)) + (_slots-bind238515_ + (map (lambda (_g238507238510_ _g238508238512_) (let () (declare (not safe)) - (_generate-slot-bind235646_ - _$t238539_ - _g238577238580_ - _g238578238582_))) - _slots238564_ - _$slots238568_)) - (_class-check238587_ + (_generate-slot-bind235576_ + _$t238469_ + _g238507238510_ + _g238508238512_))) + _slots238494_ + _$slots238498_)) + (_class-check238517_ (let () (declare (not safe)) - (hash-keys _class-type-check235739_))) - (_$class-check238590_ - (map (lambda (_g244552_) - (let ((__tmp244553 (gensym '__class))) + (hash-keys _class-type-check235669_))) + (_$class-check238520_ + (map (lambda (_g244482_) + (let ((__tmp244483 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp244553))) - _class-check238587_)) - (_g244554_ + (make-symbol__0 __tmp244483))) + _class-check238517_)) + (_g244484_ (for-each - (lambda (_g238591238594_ _g238592238596_) + (lambda (_g238521238524_ _g238522238526_) (let () (declare (not safe)) (table-set! - _class-type-check235739_ - _g238591238594_ - _g238592238596_))) - _class-check238587_ - _$class-check238590_)) - (_class-check-bind238607_ - (map (lambda (_g238599238602_ _g238600238604_) + _class-type-check235669_ + _g238521238524_ + _g238522238526_))) + _class-check238517_ + _$class-check238520_)) + (_class-check-bind238537_ + (map (lambda (_g238529238532_ _g238530238534_) (let () (declare (not safe)) - (_generate-class-check-bind235647_ - _$t238539_ - _g238599238602_ - _g238600238604_))) - _class-check238587_ - _$class-check238590_)) - (_struct-check-all238609_ + (_generate-class-check-bind235577_ + _$t238469_ + _g238529238532_ + _g238530238534_))) + _class-check238517_ + _$class-check238520_)) + (_struct-check-all238539_ (let () (declare (not safe)) (hash-merge - _struct-type-check235740_ - _struct-type-assert235741_))) - (_struct-check238611_ + _struct-type-check235670_ + _struct-type-assert235671_))) + (_struct-check238541_ (let () (declare (not safe)) - (hash-keys _struct-check-all238609_))) - (_$struct-check238614_ - (map (lambda (_g244555_) - (let ((__tmp244556 (gensym '__class))) + (hash-keys _struct-check-all238539_))) + (_$struct-check238544_ + (map (lambda (_g244485_) + (let ((__tmp244486 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp244556))) - _struct-check238611_)) - (_g244557_ + (make-symbol__0 __tmp244486))) + _struct-check238541_)) + (_g244487_ (for-each - (lambda (_g238615238618_ _g238616238620_) + (lambda (_g238545238548_ _g238546238550_) (let () (declare (not safe)) (table-set! - _struct-check-all238609_ - _g238615238618_ - _g238616238620_))) - _struct-check238611_ - _$struct-check238614_)) - (_struct-check-bind238631_ - (map (lambda (_g238623238626_ _g238624238628_) + _struct-check-all238539_ + _g238545238548_ + _g238546238550_))) + _struct-check238541_ + _$struct-check238544_)) + (_struct-check-bind238561_ + (map (lambda (_g238553238556_ _g238554238558_) (let () (declare (not safe)) - (_generate-struct-check-bind235648_ - _$t238539_ - _g238623238626_ - _g238624238628_))) - _struct-check238611_ - _$struct-check238614_)) - (_make-specializer-lambda-expr238717_ - (lambda (_struct-type-check1238633_ - _struct-type-check2238634_) - (let* ((_g238636238650_ - (lambda (_g238637238647_) + (_generate-struct-check-bind235578_ + _$t238469_ + _g238553238556_ + _g238554238558_))) + _struct-check238541_ + _$struct-check238544_)) + (_make-specializer-lambda-expr238647_ + (lambda (_struct-type-check1238563_ + _struct-type-check2238564_) + (let* ((_g238566238580_ + (lambda (_g238567238577_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g238637238647_)))) - (_g238635238714_ - (lambda (_g238637238653_) + _g238567238577_)))) + (_g238565238644_ + (lambda (_g238567238583_) (if (let () (declare (not safe)) - (gx#stx-pair? _g238637238653_)) - (let ((_e238642238655_ + (gx#stx-pair? _g238567238583_)) + (let ((_e238572238585_ (let () (declare (not safe)) - (gx#stx-e _g238637238653_)))) - (let ((_hd238641238658_ + (gx#stx-e _g238567238583_)))) + (let ((_hd238571238588_ (let () (declare (not safe)) - (##car _e238642238655_))) - (_tl238640238660_ + (##car _e238572238585_))) + (_tl238570238590_ (let () (declare (not safe)) - (##cdr _e238642238655_)))) + (##cdr _e238572238585_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl238640238660_)) - (let ((_e238645238663_ + (gx#stx-pair? _tl238570238590_)) + (let ((_e238575238593_ (let () (declare (not safe)) (gx#stx-e - _tl238640238660_)))) - (let ((_hd238644238666_ + _tl238570238590_)))) + (let ((_hd238574238596_ (let () (declare (not safe)) - (##car _e238645238663_))) - (_tl238643238668_ + (##car _e238575238593_))) + (_tl238573238598_ (let () (declare (not safe)) - (##cdr _e238645238663_)))) - ((lambda (_L238671_ _L238672_) - (let* ((_self238705_ + (##cdr _e238575238593_)))) + ((lambda (_L238601_ _L238602_) + (let* ((_self238635_ (list-ref - _L238672_ - _self-index238032_)) - (_body238711_ - (map (lambda (_g238706238708_) + _L238602_ + _self-index237962_)) + (_body238641_ + (map (lambda (_g238636238638_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#apply-subst-object-refs - _g238706238708_ - _self238705_ - _$t238539_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check1238633_ - _struct-type-check2238634_))) - _L238671_))) + _g238636238638_ + _self238635_ + _$t238469_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check1238563_ + _struct-type-check2238564_))) + _L238601_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp244558 - (let ((__tmp244559 + (let ((__tmp244488 + (let ((__tmp244489 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L238672_ _body238711_)))) + (cons _L238602_ _body238641_)))) (declare (not safe)) - (cons '%#lambda __tmp244559)))) + (cons '%#lambda __tmp244489)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp244558 - _L238315_)))) - _tl238643238668_ - _hd238644238666_))) + __tmp244488 + _L238245_)))) + _tl238573238598_ + _hd238574238596_))) (let () (declare (not safe)) - (_g238636238650_ - _g238637238653_))))) + (_g238566238580_ + _g238567238583_))))) (let () (declare (not safe)) - (_g238636238650_ _g238637238653_)))))) + (_g238566238580_ _g238567238583_)))))) (declare (not safe)) - (_g238635238714_ _L238315_)))) - (_make-specializer-case-lambda-expr238856_ - (lambda (_struct-type-check1238719_ - _struct-type-check2238720_) - (let* ((_g238722238741_ - (lambda (_g238723238738_) + (_g238565238644_ _L238245_)))) + (_make-specializer-case-lambda-expr238786_ + (lambda (_struct-type-check1238649_ + _struct-type-check2238650_) + (let* ((_g238652238671_ + (lambda (_g238653238668_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g238723238738_)))) - (_g238721238853_ - (lambda (_g238723238744_) + _g238653238668_)))) + (_g238651238783_ + (lambda (_g238653238674_) (if (let () (declare (not safe)) - (gx#stx-pair? _g238723238744_)) - (let ((_e238727238746_ + (gx#stx-pair? _g238653238674_)) + (let ((_e238657238676_ (let () (declare (not safe)) - (gx#stx-e _g238723238744_)))) - (let ((_hd238726238749_ + (gx#stx-e _g238653238674_)))) + (let ((_hd238656238679_ (let () (declare (not safe)) - (##car _e238727238746_))) - (_tl238725238751_ + (##car _e238657238676_))) + (_tl238655238681_ (let () (declare (not safe)) - (##cdr _e238727238746_)))) + (##cdr _e238657238676_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl238725238751_)) - (let ((_g244560_ + _tl238655238681_)) + (let ((_g244490_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl238725238751_ + _tl238655238681_ '0)))) (begin - (let ((_g244561_ + (let ((_g244491_ (let () (declare (not safe)) (if (##values? - _g244560_) + _g244490_) (##vector-length - _g244560_) + _g244490_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244561_ + (##fx= _g244491_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g244561_))) - (let ((_target238728238754_ + _g244491_))) + (let ((_target238658238684_ (let () (declare (not safe)) (##vector-ref - _g244560_ + _g244490_ 0))) - (_tl238730238756_ + (_tl238660238686_ (let () (declare (not safe)) (##vector-ref - _g244560_ + _g244490_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl238730238756_)) - (letrec ((_loop238731238759_ - (lambda (_hd238729238762_ + _tl238660238686_)) + (letrec ((_loop238661238689_ + (lambda (_hd238659238692_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause238735238764_) + _clause238665238694_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd238729238762_)) - (let ((_e238732238767_ + (gx#stx-pair? _hd238659238692_)) + (let ((_e238662238697_ (let () (declare (not safe)) - (gx#stx-e _hd238729238762_)))) - (let ((_lp-hd238733238770_ + (gx#stx-e _hd238659238692_)))) + (let ((_lp-hd238663238700_ (let () (declare (not safe)) - (##car _e238732238767_))) - (_lp-tl238734238772_ + (##car _e238662238697_))) + (_lp-tl238664238702_ (let () (declare (not safe)) - (##cdr _e238732238767_)))) - (let ((__tmp244564 + (##cdr _e238662238697_)))) + (let ((__tmp244494 (let () (declare (not safe)) - (cons _lp-hd238733238770_ - _clause238735238764_)))) + (cons _lp-hd238663238700_ + _clause238665238694_)))) (declare (not safe)) - (_loop238731238759_ - _lp-tl238734238772_ - __tmp244564)))) - (let ((_clause238736238775_ - (reverse _clause238735238764_))) - ((lambda (_L238778_) - (let* ((_clauses238851_ - (map (lambda (_clause238793_) - (let* ((_g238795238806_ - (lambda (_g238796238803_) + (_loop238661238689_ + _lp-tl238664238702_ + __tmp244494)))) + (let ((_clause238666238705_ + (reverse _clause238665238694_))) + ((lambda (_L238708_) + (let* ((_clauses238781_ + (map (lambda (_clause238723_) + (let* ((_g238725238736_ + (lambda (_g238726238733_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g238796238803_)))) - (_g238794238841_ - (lambda (_g238796238809_) + _g238726238733_)))) + (_g238724238771_ + (lambda (_g238726238739_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _g238796238809_)) - (let ((_e238801238811_ + (gx#stx-pair? _g238726238739_)) + (let ((_e238731238741_ (let () (declare (not safe)) - (gx#stx-e _g238796238809_)))) - (let ((_hd238800238814_ + (gx#stx-e _g238726238739_)))) + (let ((_hd238730238744_ (let () (declare (not safe)) - (##car _e238801238811_))) - (_tl238799238816_ + (##car _e238731238741_))) + (_tl238729238746_ (let () (declare (not safe)) - (##cdr _e238801238811_)))) - ((lambda (_L238819_ _L238820_) - (let* ((_self238832_ - (list-ref _L238820_ _self-index238032_)) - (_body238838_ - (map (lambda (_g238833238835_) + (##cdr _e238731238741_)))) + ((lambda (_L238749_ _L238750_) + (let* ((_self238762_ + (list-ref _L238750_ _self-index237962_)) + (_body238768_ + (map (lambda (_g238763238765_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g238833238835_ - _self238832_ - _$t238539_ - _method-calls235737_ - _slot-refs235738_ - _class-type-check235739_ - _struct-type-check1238719_ - _struct-type-check2238720_))) - _L238819_))) + _g238763238765_ + _self238762_ + _$t238469_ + _method-calls235667_ + _slot-refs235668_ + _class-type-check235669_ + _struct-type-check1238649_ + _struct-type-check2238650_))) + _L238749_))) (let () (declare (not safe)) - (cons _L238820_ _body238838_)))) - _tl238799238816_ - _hd238800238814_))) + (cons _L238750_ _body238768_)))) + _tl238729238746_ + _hd238730238744_))) (let () (declare (not safe)) - (_g238795238806_ _g238796238809_)))))) + (_g238725238736_ _g238726238739_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g238794238841_ - _clause238793_))) - (let ((__tmp244562 - (lambda (_g238843238846_ - _g238844238848_) + (_g238724238771_ + _clause238723_))) + (let ((__tmp244492 + (lambda (_g238773238776_ + _g238774238778_) (let () (declare (not safe)) - (cons _g238843238846_ - _g238844238848_))))) + (cons _g238773238776_ + _g238774238778_))))) (declare (not safe)) - (foldr1 __tmp244562 + (foldr1 __tmp244492 '() - _L238778_)))) - (__tmp244563 + _L238708_)))) + (__tmp244493 (let () (declare (not safe)) (cons '%#case-lambda - _clauses238851_)))) + _clauses238781_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp244563 - _L238314_))) - _clause238736238775_)))))) + __tmp244493 + _L238244_))) + _clause238666238705_)))))) (let () (declare (not safe)) - (_loop238731238759_ _target238728238754_ '()))) + (_loop238661238689_ _target238658238684_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g238722238741_ - _g238723238744_)))))) + (_g238652238671_ + _g238653238674_)))))) (let () (declare (not safe)) - (_g238722238741_ - _g238723238744_))))) + (_g238652238671_ + _g238653238674_))))) (let () (declare (not safe)) - (_g238722238741_ _g238723238744_)))))) + (_g238652238671_ _g238653238674_)))))) (declare (not safe)) - (_g238721238853_ _L238314_)))) - (_make-specializer-impl238861_ - (lambda (_specializer-lambda-expr238858_ - _specializer-case-lambda-expr238859_) - (let ((__tmp244565 - (let ((__tmp244566 - (let ((__tmp244568 - (let ((__tmp244569 - (let ((__tmp244586 + (_g238651238783_ _L238244_)))) + (_make-specializer-impl238791_ + (lambda (_specializer-lambda-expr238788_ + _specializer-case-lambda-expr238789_) + (let ((__tmp244495 + (let ((__tmp244496 + (let ((__tmp244498 + (let ((__tmp244499 + (let ((__tmp244516 (let () (declare (not safe)) - (cons _L237733_ '()))) - (__tmp244570 - (let ((__tmp244571 - (let ((__tmp244572 + (cons _L237663_ '()))) + (__tmp244500 + (let ((__tmp244501 + (let ((__tmp244502 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244574 - (let ((__tmp244575 - (let ((__tmp244585 + (let ((__tmp244504 + (let ((__tmp244505 + (let ((__tmp244515 (let () (declare (not safe)) - (cons _L237732_ '()))) - (__tmp244576 - (let ((__tmp244577 - (let ((__tmp244578 - (let ((__tmp244579 + (cons _L237662_ '()))) + (__tmp244506 + (let ((__tmp244507 + (let ((__tmp244508 + (let ((__tmp244509 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244581 - (let ((__tmp244582 - (let ((__tmp244584 + (let ((__tmp244511 + (let ((__tmp244512 + (let ((__tmp244514 (let () (declare (not safe)) - (cons _L238316_ '()))) - (__tmp244583 + (cons _L238246_ '()))) + (__tmp244513 (let () (declare (not safe)) - (cons _specializer-lambda-expr238858_ + (cons _specializer-lambda-expr238788_ '())))) (declare (not safe)) - (cons __tmp244584 - __tmp244583)))) + (cons __tmp244514 + __tmp244513)))) (declare (not safe)) - (cons __tmp244582 '()))) - (__tmp244580 + (cons __tmp244512 '()))) + (__tmp244510 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr238859_ + (cons _specializer-case-lambda-expr238789_ '())))) (declare (not safe)) - (cons __tmp244581 __tmp244580)))) + (cons __tmp244511 __tmp244510)))) (declare (not safe)) - (cons '%#let-values __tmp244579)))) + (cons '%#let-values __tmp244509)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244578 _stx235643_)))) + (gxc#xform-wrap-source __tmp244508 _stx235573_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244577 '())))) + (cons __tmp244507 '())))) (declare (not safe)) - (cons __tmp244585 __tmp244576)))) + (cons __tmp244515 __tmp244506)))) (declare (not safe)) - (cons __tmp244575 '()))) - (__tmp244573 + (cons __tmp244505 '()))) + (__tmp244503 (let () (declare (not safe)) - (cons _L237730_ '())))) + (cons _L237660_ '())))) (declare (not safe)) - (cons __tmp244574 __tmp244573)))) + (cons __tmp244504 __tmp244503)))) (declare (not safe)) - (cons '%#let-values __tmp244572)))) + (cons '%#let-values __tmp244502)))) (declare (not safe)) - (cons __tmp244571 '())))) + (cons __tmp244501 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244586 - __tmp244570)))) + (cons __tmp244516 + __tmp244500)))) (declare (not safe)) - (cons __tmp244569 '()))) - (__tmp244567 + (cons __tmp244499 '()))) + (__tmp244497 (let () (declare (not safe)) - (cons _L237729_ '())))) + (cons _L237659_ '())))) (declare (not safe)) - (cons __tmp244568 __tmp244567)))) + (cons __tmp244498 __tmp244497)))) (declare (not safe)) - (cons '%#let-values __tmp244566)))) + (cons '%#let-values __tmp244496)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244565 _stx235643_)))) - (_specializer-lambda-expr238863_ + (gxc#xform-wrap-source __tmp244495 _stx235573_)))) + (_specializer-lambda-expr238793_ (let () (declare (not safe)) - (_make-specializer-lambda-expr238717_ - _struct-check-all238609_ - _empty235742_))) - (_specializer-case-lambda-expr238865_ + (_make-specializer-lambda-expr238647_ + _struct-check-all238539_ + _empty235672_))) + (_specializer-case-lambda-expr238795_ (let () (declare (not safe)) - (_make-specializer-case-lambda-expr238856_ - _struct-check-all238609_ - _empty235742_))) - (_specializer-impl238867_ + (_make-specializer-case-lambda-expr238786_ + _struct-check-all238539_ + _empty235672_))) + (_specializer-impl238797_ (let () (declare (not safe)) - (_make-specializer-impl238861_ - _specializer-lambda-expr238863_ - _specializer-case-lambda-expr238865_))) - (_unchecked-specializer-lambda-expr238869_ + (_make-specializer-impl238791_ + _specializer-lambda-expr238793_ + _specializer-case-lambda-expr238795_))) + (_unchecked-specializer-lambda-expr238799_ (if (let () (declare (not safe)) - (_unchecked-specializer?235745_)) + (_unchecked-specializer?235675_)) (let () (declare (not safe)) - (_make-specializer-lambda-expr238717_ - _empty235742_ - _struct-check-all238609_)) + (_make-specializer-lambda-expr238647_ + _empty235672_ + _struct-check-all238539_)) '#f)) - (_unchecked-specializer-case-lambda-expr238871_ + (_unchecked-specializer-case-lambda-expr238801_ (if (let () (declare (not safe)) - (_unchecked-specializer?235745_)) + (_unchecked-specializer?235675_)) (let () (declare (not safe)) - (_make-specializer-case-lambda-expr238856_ - _empty235742_ - _struct-check-all238609_)) + (_make-specializer-case-lambda-expr238786_ + _empty235672_ + _struct-check-all238539_)) '#f)) - (_unchecked-specializer-impl238873_ + (_unchecked-specializer-impl238803_ (if (let () (declare (not safe)) - (_unchecked-specializer?235745_)) + (_unchecked-specializer?235675_)) (let () (declare (not safe)) - (_make-specializer-impl238861_ - _unchecked-specializer-lambda-expr238869_ - _unchecked-specializer-case-lambda-expr238871_)) + (_make-specializer-impl238791_ + _unchecked-specializer-lambda-expr238799_ + _unchecked-specializer-case-lambda-expr238801_)) '#f)) - (_specializer-impl238875_ + (_specializer-impl238805_ (let () (declare (not safe)) - (_generate-specializer-impl235649_ - _$t238539_ - _methods-bind238562_ - _slots-bind238585_ - _class-check-bind238607_ - _struct-check-bind238631_ - _specializer-impl238867_ - _lifted-specializer-id238537_ - _unchecked-specializer-impl238873_)))) + (_generate-specializer-impl235579_ + _$t238469_ + _methods-bind238492_ + _slots-bind238515_ + _class-check-bind238537_ + _struct-check-bind238561_ + _specializer-impl238797_ + _lifted-specializer-id238467_ + _unchecked-specializer-impl238803_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp244588 + (let ((__tmp244518 (let () (declare (not safe)) (gx#stx-e - _L235718_))) - (__tmp244587 + _L235648_))) + (__tmp244517 (let () (declare (not safe)) (gx#stx-e - _specializer-id238530_)))) + _specializer-id238460_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp244588 + __tmp244518 '" => " - __tmp244587)) + __tmp244517)) (let () (declare (not safe)) - (_generate-specializer-def235650_ - _L235718_ - _specializer-id238530_ - _specializer-impl238875_ - _lifted-specializer-id238537_ - _unchecked-specializer-impl238873_))))) - _hd238247238309_ - _hd238244238301_ - _hd238241238293_) + (_generate-specializer-def235580_ + _L235648_ + _specializer-id238460_ + _specializer-impl238805_ + _lifted-specializer-id238467_ + _unchecked-specializer-impl238803_))))) + _hd238177238239_ + _hd238174238231_ + _hd238171238223_) (let () (declare (not safe)) - (_g238223238253_ - _g238224238256_))))) + (_g238153238183_ + _g238154238186_))))) (let () (declare (not safe)) - (_g238223238253_ _g238224238256_))) + (_g238153238183_ _g238154238186_))) (let () (declare (not safe)) - (_g238223238253_ _g238224238256_))) + (_g238153238183_ _g238154238186_))) (let () (declare (not safe)) - (_g238223238253_ _g238224238256_))))) + (_g238153238183_ _g238154238186_))))) (let () (declare (not safe)) - (_g238223238253_ _g238224238256_))) + (_g238153238183_ _g238154238186_))) (let () (declare (not safe)) - (_g238223238253_ _g238224238256_))))) + (_g238153238183_ _g238154238186_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g238223238253_ - _g238224238256_))))) + (_g238153238183_ + _g238154238186_))))) (let () (declare (not safe)) - (_g238223238253_ _g238224238256_))))) + (_g238153238183_ _g238154238186_))))) (let () (declare (not safe)) - (_g238223238253_ _g238224238256_))))) + (_g238153238183_ _g238154238186_))))) (let () (declare (not safe)) - (_g238223238253_ _g238224238256_))))) + (_g238153238183_ _g238154238186_))))) (let () (declare (not safe)) - (_g238223238253_ _g238224238256_)))))) + (_g238153238183_ _g238154238186_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g238222238878_ _L237731_)) - _stx235643_)))) - _hd237828237951_ - _kw-ref237826237972_ - _hd237816237938_ - _hd237807237914_ - _hd237798237890_) + (_g238152238808_ _L237661_)) + _stx235573_)))) + _hd237758237881_ + _kw-ref237756237902_ + _hd237746237868_ + _hd237737237844_ + _hd237728237820_) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_)))))))) + (_g237702237764_ _g237703237767_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop237821237956_ - _target237818237943_ + (_loop237751237886_ + _target237748237873_ '()))) (let () (declare (not safe)) - (_g237772237834_ - _g237773237837_))))) + (_g237702237764_ + _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_)))))) + (_g237702237764_ _g237703237767_)))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))) + (_g237702237764_ _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))) + (_g237702237764_ _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))))) + (_g237702237764_ _g237703237767_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g237772237834_ - _g237773237837_))) + (_g237702237764_ + _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ - _g237773237837_))) + (_g237702237764_ + _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ - _g237773237837_))))) + (_g237702237764_ + _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))))) + (_g237702237764_ _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))) + (_g237702237764_ _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))))) + (_g237702237764_ _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))) + (_g237702237764_ _g237703237767_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g237772237834_ - _g237773237837_))) + (_g237702237764_ + _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ - _g237773237837_))))) + (_g237702237764_ + _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))))) + (_g237702237764_ _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))) + (_g237702237764_ _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))))) + (_g237702237764_ _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))) + (_g237702237764_ _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))) + (_g237702237764_ _g237703237767_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g237772237834_ - _g237773237837_))))) + (_g237702237764_ + _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ - _g237773237837_))))) + (_g237702237764_ + _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))) + (_g237702237764_ _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))) + (_g237702237764_ _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))))) + (_g237702237764_ _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))))) + (_g237702237764_ _g237703237767_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g237772237834_ - _g237773237837_))))) + (_g237702237764_ + _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ - _g237773237837_))) + (_g237702237764_ + _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))) + (_g237702237764_ _g237703237767_))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_))))) + (_g237702237764_ _g237703237767_))))) (let () (declare (not safe)) - (_g237772237834_ _g237773237837_)))))) + (_g237702237764_ _g237703237767_)))))) (declare (not safe)) - (_g237771238881_ _L237730_))) + (_g237701238811_ _L237660_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd237606237724_ - _hd237603237716_ - _hd237600237708_ - _hd237597237700_ - _hd237579237652_) + _hd237536237654_ + _hd237533237646_ + _hd237530237638_ + _hd237527237630_ + _hd237509237582_) (let () (declare (not safe)) - (_g237559237612_ - _g237560237615_))))) + (_g237489237542_ + _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ - _g237560237615_))) + (_g237489237542_ + _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))) + (_g237489237542_ _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))) + (_g237489237542_ _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))))) + (_g237489237542_ _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))) + (_g237489237542_ _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))) + (_g237489237542_ _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))))) + (_g237489237542_ _g237490237545_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g237559237612_ - _g237560237615_))) + (_g237489237542_ + _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ - _g237560237615_))))) + (_g237489237542_ + _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))))) + (_g237489237542_ _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))))) + (_g237489237542_ _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))))) + (_g237489237542_ _g237490237545_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g237559237612_ - _g237560237615_))) + (_g237489237542_ + _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ - _g237560237615_))) + (_g237489237542_ + _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ - _g237560237615_))))) + (_g237489237542_ + _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))))) + (_g237489237542_ _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))) + (_g237489237542_ _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))))) + (_g237489237542_ _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))))) + (_g237489237542_ _g237490237545_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g237559237612_ - _g237560237615_))))) + (_g237489237542_ + _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))))) + (_g237489237542_ _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))) + (_g237489237542_ _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))) + (_g237489237542_ _g237490237545_))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_))))) + (_g237489237542_ _g237490237545_))))) (let () (declare (not safe)) - (_g237559237612_ _g237560237615_)))))) + (_g237489237542_ _g237490237545_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g237558238884_ _L235717_)) - _stx235643_)))))))) - (___kont243317243318_ (lambda () _stx235643_))) - (let ((___match243346243347_ - (lambda (_e235659235685_ - _hd235658235688_ - _tl235657235690_ - _e235662235693_ - _hd235661235696_ - _tl235660235698_ - _e235665235701_ - _hd235664235704_ - _tl235663235706_ - _e235668235709_ - _hd235667235712_ - _tl235666235714_) - (let ((_L235717_ _hd235667235712_) - (_L235718_ _hd235664235704_)) - (if (let ((__tmp244705 + (_g237488238814_ _L235647_)) + _stx235573_)))))))) + (___kont243247243248_ (lambda () _stx235573_))) + (let ((___match243276243277_ + (lambda (_e235589235615_ + _hd235588235618_ + _tl235587235620_ + _e235592235623_ + _hd235591235626_ + _tl235590235628_ + _e235595235631_ + _hd235594235634_ + _tl235593235636_ + _e235598235639_ + _hd235597235642_ + _tl235596235644_) + (let ((_L235647_ _hd235597235642_) + (_L235648_ _hd235594235634_)) + (if (let ((__tmp244635 (let () (declare (not safe)) - (gxc#identifier-symbol _L235718_)))) + (gxc#identifier-symbol _L235648_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp244705)) - (___kont243315243316_ _L235717_ _L235718_) - (___kont243317243318_)))))) + (gxc#optimizer-top-level-method? __tmp244635)) + (___kont243245243246_ _L235647_ _L235648_) + (___kont243247243248_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243313243314_)) - (let ((_e235659235685_ + (gx#stx-pair? ___stx243243243244_)) + (let ((_e235589235615_ (let () (declare (not safe)) - (gx#stx-e ___stx243313243314_)))) - (let ((_tl235657235690_ + (gx#stx-e ___stx243243243244_)))) + (let ((_tl235587235620_ (let () (declare (not safe)) - (##cdr _e235659235685_))) - (_hd235658235688_ + (##cdr _e235589235615_))) + (_hd235588235618_ (let () (declare (not safe)) - (##car _e235659235685_)))) + (##car _e235589235615_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235657235690_)) - (let ((_e235662235693_ + (gx#stx-pair? _tl235587235620_)) + (let ((_e235592235623_ (let () (declare (not safe)) - (gx#stx-e _tl235657235690_)))) - (let ((_tl235660235698_ + (gx#stx-e _tl235587235620_)))) + (let ((_tl235590235628_ (let () (declare (not safe)) - (##cdr _e235662235693_))) - (_hd235661235696_ + (##cdr _e235592235623_))) + (_hd235591235626_ (let () (declare (not safe)) - (##car _e235662235693_)))) + (##car _e235592235623_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235661235696_)) - (let ((_e235665235701_ + (gx#stx-pair? _hd235591235626_)) + (let ((_e235595235631_ (let () (declare (not safe)) - (gx#stx-e _hd235661235696_)))) - (let ((_tl235663235706_ + (gx#stx-e _hd235591235626_)))) + (let ((_tl235593235636_ (let () (declare (not safe)) - (##cdr _e235665235701_))) - (_hd235664235704_ + (##cdr _e235595235631_))) + (_hd235594235634_ (let () (declare (not safe)) - (##car _e235665235701_)))) + (##car _e235595235631_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl235663235706_)) + (gx#stx-null? _tl235593235636_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235660235698_)) - (let ((_e235668235709_ + _tl235590235628_)) + (let ((_e235598235639_ (let () (declare (not safe)) (gx#stx-e - _tl235660235698_)))) - (let ((_tl235666235714_ + _tl235590235628_)))) + (let ((_tl235596235644_ (let () (declare (not safe)) - (##cdr _e235668235709_))) - (_hd235667235712_ + (##cdr _e235598235639_))) + (_hd235597235642_ (let () (declare (not safe)) - (##car _e235668235709_)))) + (##car _e235598235639_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl235666235714_)) - (___match243346243347_ - _e235659235685_ - _hd235658235688_ - _tl235657235690_ - _e235662235693_ - _hd235661235696_ - _tl235660235698_ - _e235665235701_ - _hd235664235704_ - _tl235663235706_ - _e235668235709_ - _hd235667235712_ - _tl235666235714_) - (___kont243317243318_)))) - (___kont243317243318_)) - (___kont243317243318_)))) - (___kont243317243318_)))) - (___kont243317243318_)))) - (___kont243317243318_)))))))) + _tl235596235644_)) + (___match243276243277_ + _e235589235615_ + _hd235588235618_ + _tl235587235620_ + _e235592235623_ + _hd235591235626_ + _tl235590235628_ + _e235595235631_ + _hd235594235634_ + _tl235593235636_ + _e235598235639_ + _hd235597235642_ + _tl235596235644_) + (___kont243247243248_)))) + (___kont243247243248_)) + (___kont243247243248_)))) + (___kont243247243248_)))) + (___kont243247243248_)))) + (___kont243247243248_)))))))) (define gxc#collect-object-refs-call% - (lambda (_stx234619_ - _self234620_ - _methods234621_ - _slots234622_ - _class-check234623_ - _struct-check234624_ - _struct-assert234625_) - (let* ((___stx243349243350_ _stx234619_) - (_g234633234855_ + (lambda (_stx234549_ + _self234550_ + _methods234551_ + _slots234552_ + _class-check234553_ + _struct-check234554_ + _struct-assert234555_) + (let* ((___stx243279243280_ _stx234549_) + (_g234563234785_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243349243350_))))) - (let ((___kont243351243352_ - (lambda (_L235592_ _L235593_ _L235594_ _L235595_) - (let ((__tmp244706 - (let () (declare (not safe)) (gx#stx-e _L235593_)))) + ___stx243279243280_))))) + (let ((___kont243281243282_ + (lambda (_L235522_ _L235523_ _L235524_ _L235525_) + (let ((__tmp244636 + (let () (declare (not safe)) (gx#stx-e _L235523_)))) (declare (not safe)) - (table-set! _methods234621_ __tmp244706 '#t)) + (table-set! _methods234551_ __tmp244636 '#t)) (for-each - (lambda (_g235628235630_) + (lambda (_g235558235560_) (let () (declare (not safe)) (gxc#compile-e__3 - _g235628235630_ - _self234620_ - _methods234621_ - _slots234622_ - _class-check234623_ - _struct-check234624_ - _struct-assert234625_))) - (let ((__tmp244707 - (lambda (_g235632235635_ _g235633235637_) + _g235558235560_ + _self234550_ + _methods234551_ + _slots234552_ + _class-check234553_ + _struct-check234554_ + _struct-assert234555_))) + (let ((__tmp244637 + (lambda (_g235562235565_ _g235563235567_) (let () (declare (not safe)) - (cons _g235632235635_ _g235633235637_))))) + (cons _g235562235565_ _g235563235567_))))) (declare (not safe)) - (foldr1 __tmp244707 '() _L235592_))))) - (___kont243355243356_ - (lambda (_L235427_ _L235428_ _L235429_ _L235430_ _L235431_) - (let ((__tmp244708 - (let () (declare (not safe)) (gx#stx-e _L235428_)))) + (foldr1 __tmp244637 '() _L235522_))))) + (___kont243285243286_ + (lambda (_L235357_ _L235358_ _L235359_ _L235360_ _L235361_) + (let ((__tmp244638 + (let () (declare (not safe)) (gx#stx-e _L235358_)))) (declare (not safe)) - (table-set! _methods234621_ __tmp244708 '#t)) + (table-set! _methods234551_ __tmp244638 '#t)) (for-each - (lambda (_g235471235473_) + (lambda (_g235401235403_) (let () (declare (not safe)) (gxc#compile-e__3 - _g235471235473_ - _self234620_ - _methods234621_ - _slots234622_ - _class-check234623_ - _struct-check234624_ - _struct-assert234625_))) - (let ((__tmp244709 - (lambda (_g235475235478_ _g235476235480_) + _g235401235403_ + _self234550_ + _methods234551_ + _slots234552_ + _class-check234553_ + _struct-check234554_ + _struct-assert234555_))) + (let ((__tmp244639 + (lambda (_g235405235408_ _g235406235410_) (let () (declare (not safe)) - (cons _g235475235478_ _g235476235480_))))) + (cons _g235405235408_ _g235406235410_))))) (declare (not safe)) - (foldr1 __tmp244709 '() _L235427_))))) - (___kont243359243360_ - (lambda (_L235260_ _L235261_ _L235262_) - (let ((__tmp244710 - (let () (declare (not safe)) (gx#stx-e _L235260_)))) + (foldr1 __tmp244639 '() _L235357_))))) + (___kont243289243290_ + (lambda (_L235190_ _L235191_ _L235192_) + (let ((__tmp244640 + (let () (declare (not safe)) (gx#stx-e _L235190_)))) (declare (not safe)) - (table-set! _slots234622_ __tmp244710 '#t)))) - (___kont243361243362_ - (lambda (_L235137_ _L235138_ _L235139_ _L235140_) - (let ((__tmp244711 - (let () (declare (not safe)) (gx#stx-e _L235138_)))) + (table-set! _slots234552_ __tmp244640 '#t)))) + (___kont243291243292_ + (lambda (_L235067_ _L235068_ _L235069_ _L235070_) + (let ((__tmp244641 + (let () (declare (not safe)) (gx#stx-e _L235068_)))) (declare (not safe)) - (table-set! _slots234622_ __tmp244711 '#t)) + (table-set! _slots234552_ __tmp244641 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L235137_ - _self234620_ - _methods234621_ - _slots234622_ - _class-check234623_ - _struct-check234624_ - _struct-assert234625_)))) - (___kont243363243364_ - (lambda (_L235021_ _L235022_) - (let ((__tmp244712 + _L235067_ + _self234550_ + _methods234551_ + _slots234552_ + _class-check234553_ + _struct-check234554_ + _struct-assert234555_)))) + (___kont243293243294_ + (lambda (_L234951_ _L234952_) + (let ((__tmp244642 (##structure-ref - (let ((__tmp244713 + (let ((__tmp244643 (let () (declare (not safe)) - (gxc#identifier-symbol _L235022_)))) + (gxc#identifier-symbol _L234952_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp244713)) + (gxc#optimizer-resolve-type __tmp244643)) '2 gxc#!accessor::t '#f))) (declare (not safe)) - (table-set! _slots234622_ __tmp244712 '#t)))) - (___kont243365243366_ - (lambda (_L234931_ _L234932_ _L234933_) - (let ((__tmp244714 + (table-set! _slots234552_ __tmp244642 '#t)))) + (___kont243295243296_ + (lambda (_L234861_ _L234862_ _L234863_) + (let ((__tmp244644 (##structure-ref - (let ((__tmp244715 + (let ((__tmp244645 (let () (declare (not safe)) - (gxc#identifier-symbol _L234933_)))) + (gxc#identifier-symbol _L234863_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp244715)) + (gxc#optimizer-resolve-type __tmp244645)) '2 gxc#!mutator::t '#f))) (declare (not safe)) - (table-set! _slots234622_ __tmp244714 '#t)) + (table-set! _slots234552_ __tmp244644 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L234931_ - _self234620_ - _methods234621_ - _slots234622_ - _class-check234623_ - _struct-check234624_ - _struct-assert234625_)))) - (___kont243367243368_ + _L234861_ + _self234550_ + _methods234551_ + _slots234552_ + _class-check234553_ + _struct-check234554_ + _struct-assert234555_)))) + (___kont243297243298_ (lambda () (let () (declare (not safe)) (gxc#collect-operands - _stx234619_ - _self234620_ - _methods234621_ - _slots234622_ - _class-check234623_ - _struct-check234624_ - _struct-assert234625_))))) - (let* ((___match243848243849_ - (lambda (_e234829234867_ - _hd234828234870_ - _tl234827234872_ - _e234832234875_ - _hd234831234878_ - _tl234830234880_ - _e234835234883_ - _hd234834234886_ - _tl234833234888_ - _e234838234891_ - _hd234837234894_ - _tl234836234896_ - _e234841234899_ - _hd234840234902_ - _tl234839234904_ - _e234844234907_ - _hd234843234910_ - _tl234842234912_ - _e234847234915_ - _hd234846234918_ - _tl234845234920_ - _e234850234923_ - _hd234849234926_ - _tl234848234928_) - (let ((_L234931_ _hd234849234926_) - (_L234932_ _hd234846234918_) - (_L234933_ _hd234837234894_)) - (if (and (let ((__tmp244716 - (let ((__tmp244717 + _stx234549_ + _self234550_ + _methods234551_ + _slots234552_ + _class-check234553_ + _struct-check234554_ + _struct-assert234555_))))) + (let* ((___match243778243779_ + (lambda (_e234759234797_ + _hd234758234800_ + _tl234757234802_ + _e234762234805_ + _hd234761234808_ + _tl234760234810_ + _e234765234813_ + _hd234764234816_ + _tl234763234818_ + _e234768234821_ + _hd234767234824_ + _tl234766234826_ + _e234771234829_ + _hd234770234832_ + _tl234769234834_ + _e234774234837_ + _hd234773234840_ + _tl234772234842_ + _e234777234845_ + _hd234776234848_ + _tl234775234850_ + _e234780234853_ + _hd234779234856_ + _tl234778234858_) + (let ((_L234861_ _hd234779234856_) + (_L234862_ _hd234776234848_) + (_L234863_ _hd234767234824_)) + (if (and (let ((__tmp244646 + (let ((__tmp244647 (let () (declare (not safe)) (gxc#identifier-symbol - _L234933_)))) + _L234863_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp244717)))) + __tmp244647)))) (declare (not safe)) (##structure-instance-of? - __tmp244716 + __tmp244646 'gxc#!mutator::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L234932_ - _self234620_))) - (___kont243365243366_ - _L234931_ - _L234932_ - _L234933_) - (___kont243367243368_))))) - (___match243846243847_ - (lambda (_e234829234867_ - _hd234828234870_ - _tl234827234872_ - _e234832234875_ - _hd234831234878_ - _tl234830234880_ - _e234835234883_ - _hd234834234886_ - _tl234833234888_ - _e234838234891_ - _hd234837234894_ - _tl234836234896_ - _e234841234899_ - _hd234840234902_ - _tl234839234904_ - _e234844234907_ - _hd234843234910_ - _tl234842234912_ - _e234847234915_ - _hd234846234918_ - _tl234845234920_ - _e234850234923_ - _hd234849234926_ - _tl234848234928_) + _L234862_ + _self234550_))) + (___kont243295243296_ + _L234861_ + _L234862_ + _L234863_) + (___kont243297243298_))))) + (___match243776243777_ + (lambda (_e234759234797_ + _hd234758234800_ + _tl234757234802_ + _e234762234805_ + _hd234761234808_ + _tl234760234810_ + _e234765234813_ + _hd234764234816_ + _tl234763234818_ + _e234768234821_ + _hd234767234824_ + _tl234766234826_ + _e234771234829_ + _hd234770234832_ + _tl234769234834_ + _e234774234837_ + _hd234773234840_ + _tl234772234842_ + _e234777234845_ + _hd234776234848_ + _tl234775234850_ + _e234780234853_ + _hd234779234856_ + _tl234778234858_) (if (let () (declare (not safe)) - (gx#stx-null? _tl234848234928_)) - (___match243848243849_ - _e234829234867_ - _hd234828234870_ - _tl234827234872_ - _e234832234875_ - _hd234831234878_ - _tl234830234880_ - _e234835234883_ - _hd234834234886_ - _tl234833234888_ - _e234838234891_ - _hd234837234894_ - _tl234836234896_ - _e234841234899_ - _hd234840234902_ - _tl234839234904_ - _e234844234907_ - _hd234843234910_ - _tl234842234912_ - _e234847234915_ - _hd234846234918_ - _tl234845234920_ - _e234850234923_ - _hd234849234926_ - _tl234848234928_) - (___kont243367243368_)))) - (___match243840243841_ - (lambda (_e234829234867_ - _hd234828234870_ - _tl234827234872_ - _e234832234875_ - _hd234831234878_ - _tl234830234880_ - _e234835234883_ - _hd234834234886_ - _tl234833234888_ - _e234838234891_ - _hd234837234894_ - _tl234836234896_ - _e234841234899_ - _hd234840234902_ - _tl234839234904_ - _e234844234907_ - _hd234843234910_ - _tl234842234912_ - _e234847234915_ - _hd234846234918_ - _tl234845234920_) + (gx#stx-null? _tl234778234858_)) + (___match243778243779_ + _e234759234797_ + _hd234758234800_ + _tl234757234802_ + _e234762234805_ + _hd234761234808_ + _tl234760234810_ + _e234765234813_ + _hd234764234816_ + _tl234763234818_ + _e234768234821_ + _hd234767234824_ + _tl234766234826_ + _e234771234829_ + _hd234770234832_ + _tl234769234834_ + _e234774234837_ + _hd234773234840_ + _tl234772234842_ + _e234777234845_ + _hd234776234848_ + _tl234775234850_ + _e234780234853_ + _hd234779234856_ + _tl234778234858_) + (___kont243297243298_)))) + (___match243770243771_ + (lambda (_e234759234797_ + _hd234758234800_ + _tl234757234802_ + _e234762234805_ + _hd234761234808_ + _tl234760234810_ + _e234765234813_ + _hd234764234816_ + _tl234763234818_ + _e234768234821_ + _hd234767234824_ + _tl234766234826_ + _e234771234829_ + _hd234770234832_ + _tl234769234834_ + _e234774234837_ + _hd234773234840_ + _tl234772234842_ + _e234777234845_ + _hd234776234848_ + _tl234775234850_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234839234904_)) - (let ((_e234850234923_ + (gx#stx-pair? _tl234769234834_)) + (let ((_e234780234853_ (let () (declare (not safe)) - (gx#stx-e _tl234839234904_)))) - (let ((_tl234848234928_ + (gx#stx-e _tl234769234834_)))) + (let ((_tl234778234858_ (let () (declare (not safe)) - (##cdr _e234850234923_))) - (_hd234849234926_ + (##cdr _e234780234853_))) + (_hd234779234856_ (let () (declare (not safe)) - (##car _e234850234923_)))) + (##car _e234780234853_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234848234928_)) - (___match243848243849_ - _e234829234867_ - _hd234828234870_ - _tl234827234872_ - _e234832234875_ - _hd234831234878_ - _tl234830234880_ - _e234835234883_ - _hd234834234886_ - _tl234833234888_ - _e234838234891_ - _hd234837234894_ - _tl234836234896_ - _e234841234899_ - _hd234840234902_ - _tl234839234904_ - _e234844234907_ - _hd234843234910_ - _tl234842234912_ - _e234847234915_ - _hd234846234918_ - _tl234845234920_ - _e234850234923_ - _hd234849234926_ - _tl234848234928_) - (___kont243367243368_)))) - (___kont243367243368_)))) - (___match243786243787_ - (lambda (_e234805234965_ - _hd234804234968_ - _tl234803234970_ - _e234808234973_ - _hd234807234976_ - _tl234806234978_ - _e234811234981_ - _hd234810234984_ - _tl234809234986_ - _e234814234989_ - _hd234813234992_ - _tl234812234994_ - _e234817234997_ - _hd234816235000_ - _tl234815235002_ - _e234820235005_ - _hd234819235008_ - _tl234818235010_ - _e234823235013_ - _hd234822235016_ - _tl234821235018_) - (let ((_L235021_ _hd234822235016_) - (_L235022_ _hd234813234992_)) - (if (and (let ((__tmp244718 - (let ((__tmp244719 + (gx#stx-null? _tl234778234858_)) + (___match243778243779_ + _e234759234797_ + _hd234758234800_ + _tl234757234802_ + _e234762234805_ + _hd234761234808_ + _tl234760234810_ + _e234765234813_ + _hd234764234816_ + _tl234763234818_ + _e234768234821_ + _hd234767234824_ + _tl234766234826_ + _e234771234829_ + _hd234770234832_ + _tl234769234834_ + _e234774234837_ + _hd234773234840_ + _tl234772234842_ + _e234777234845_ + _hd234776234848_ + _tl234775234850_ + _e234780234853_ + _hd234779234856_ + _tl234778234858_) + (___kont243297243298_)))) + (___kont243297243298_)))) + (___match243716243717_ + (lambda (_e234735234895_ + _hd234734234898_ + _tl234733234900_ + _e234738234903_ + _hd234737234906_ + _tl234736234908_ + _e234741234911_ + _hd234740234914_ + _tl234739234916_ + _e234744234919_ + _hd234743234922_ + _tl234742234924_ + _e234747234927_ + _hd234746234930_ + _tl234745234932_ + _e234750234935_ + _hd234749234938_ + _tl234748234940_ + _e234753234943_ + _hd234752234946_ + _tl234751234948_) + (let ((_L234951_ _hd234752234946_) + (_L234952_ _hd234743234922_)) + (if (and (let ((__tmp244648 + (let ((__tmp244649 (let () (declare (not safe)) (gxc#identifier-symbol - _L235022_)))) + _L234952_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp244719)))) + __tmp244649)))) (declare (not safe)) (##structure-instance-of? - __tmp244718 + __tmp244648 'gxc#!accessor::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L235021_ - _self234620_))) - (___kont243363243364_ _L235021_ _L235022_) - (___kont243367243368_))))) - (___match243784243785_ - (lambda (_e234805234965_ - _hd234804234968_ - _tl234803234970_ - _e234808234973_ - _hd234807234976_ - _tl234806234978_ - _e234811234981_ - _hd234810234984_ - _tl234809234986_ - _e234814234989_ - _hd234813234992_ - _tl234812234994_ - _e234817234997_ - _hd234816235000_ - _tl234815235002_ - _e234820235005_ - _hd234819235008_ - _tl234818235010_ - _e234823235013_ - _hd234822235016_ - _tl234821235018_) + _L234951_ + _self234550_))) + (___kont243293243294_ _L234951_ _L234952_) + (___kont243297243298_))))) + (___match243714243715_ + (lambda (_e234735234895_ + _hd234734234898_ + _tl234733234900_ + _e234738234903_ + _hd234737234906_ + _tl234736234908_ + _e234741234911_ + _hd234740234914_ + _tl234739234916_ + _e234744234919_ + _hd234743234922_ + _tl234742234924_ + _e234747234927_ + _hd234746234930_ + _tl234745234932_ + _e234750234935_ + _hd234749234938_ + _tl234748234940_ + _e234753234943_ + _hd234752234946_ + _tl234751234948_) (if (let () (declare (not safe)) - (gx#stx-null? _tl234815235002_)) - (___match243786243787_ - _e234805234965_ - _hd234804234968_ - _tl234803234970_ - _e234808234973_ - _hd234807234976_ - _tl234806234978_ - _e234811234981_ - _hd234810234984_ - _tl234809234986_ - _e234814234989_ - _hd234813234992_ - _tl234812234994_ - _e234817234997_ - _hd234816235000_ - _tl234815235002_ - _e234820235005_ - _hd234819235008_ - _tl234818235010_ - _e234823235013_ - _hd234822235016_ - _tl234821235018_) - (___match243840243841_ - _e234805234965_ - _hd234804234968_ - _tl234803234970_ - _e234808234973_ - _hd234807234976_ - _tl234806234978_ - _e234811234981_ - _hd234810234984_ - _tl234809234986_ - _e234814234989_ - _hd234813234992_ - _tl234812234994_ - _e234817234997_ - _hd234816235000_ - _tl234815235002_ - _e234820235005_ - _hd234819235008_ - _tl234818235010_ - _e234823235013_ - _hd234822235016_ - _tl234821235018_)))) - (___match243730243731_ - (lambda (_e234770235049_ - _hd234769235052_ - _tl234768235054_ - _e234773235057_ - _hd234772235060_ - _tl234771235062_ - _e234776235065_ - _hd234775235068_ - _tl234774235070_ - _e234779235073_ - _hd234778235076_ - _tl234777235078_ - _e234782235081_ - _hd234781235084_ - _tl234780235086_ - _e234785235089_ - _hd234784235092_ - _tl234783235094_ - _e234788235097_ - _hd234787235100_ - _tl234786235102_ - _e234791235105_ - _hd234790235108_ - _tl234789235110_ - _e234794235113_ - _hd234793235116_ - _tl234792235118_ - _e234797235121_ - _hd234796235124_ - _tl234795235126_ - _e234800235129_ - _hd234799235132_ - _tl234798235134_) - (let ((_L235137_ _hd234799235132_) - (_L235138_ _hd234796235124_) - (_L235139_ _hd234787235100_) - (_L235140_ _hd234778235076_)) + (gx#stx-null? _tl234745234932_)) + (___match243716243717_ + _e234735234895_ + _hd234734234898_ + _tl234733234900_ + _e234738234903_ + _hd234737234906_ + _tl234736234908_ + _e234741234911_ + _hd234740234914_ + _tl234739234916_ + _e234744234919_ + _hd234743234922_ + _tl234742234924_ + _e234747234927_ + _hd234746234930_ + _tl234745234932_ + _e234750234935_ + _hd234749234938_ + _tl234748234940_ + _e234753234943_ + _hd234752234946_ + _tl234751234948_) + (___match243770243771_ + _e234735234895_ + _hd234734234898_ + _tl234733234900_ + _e234738234903_ + _hd234737234906_ + _tl234736234908_ + _e234741234911_ + _hd234740234914_ + _tl234739234916_ + _e234744234919_ + _hd234743234922_ + _tl234742234924_ + _e234747234927_ + _hd234746234930_ + _tl234745234932_ + _e234750234935_ + _hd234749234938_ + _tl234748234940_ + _e234753234943_ + _hd234752234946_ + _tl234751234948_)))) + (___match243660243661_ + (lambda (_e234700234979_ + _hd234699234982_ + _tl234698234984_ + _e234703234987_ + _hd234702234990_ + _tl234701234992_ + _e234706234995_ + _hd234705234998_ + _tl234704235000_ + _e234709235003_ + _hd234708235006_ + _tl234707235008_ + _e234712235011_ + _hd234711235014_ + _tl234710235016_ + _e234715235019_ + _hd234714235022_ + _tl234713235024_ + _e234718235027_ + _hd234717235030_ + _tl234716235032_ + _e234721235035_ + _hd234720235038_ + _tl234719235040_ + _e234724235043_ + _hd234723235046_ + _tl234722235048_ + _e234727235051_ + _hd234726235054_ + _tl234725235056_ + _e234730235059_ + _hd234729235062_ + _tl234728235064_) + (let ((_L235067_ _hd234729235062_) + (_L235068_ _hd234726235054_) + (_L235069_ _hd234717235030_) + (_L235070_ _hd234708235006_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L235140_ + _L235070_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L235140_ + _L235070_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L235139_ - _self234620_))) - (___kont243361243362_ - _L235137_ - _L235138_ - _L235139_ - _L235140_) - (___kont243367243368_))))) - (___match243722243723_ - (lambda (_e234770235049_ - _hd234769235052_ - _tl234768235054_ - _e234773235057_ - _hd234772235060_ - _tl234771235062_ - _e234776235065_ - _hd234775235068_ - _tl234774235070_ - _e234779235073_ - _hd234778235076_ - _tl234777235078_ - _e234782235081_ - _hd234781235084_ - _tl234780235086_ - _e234785235089_ - _hd234784235092_ - _tl234783235094_ - _e234788235097_ - _hd234787235100_ - _tl234786235102_ - _e234791235105_ - _hd234790235108_ - _tl234789235110_ - _e234794235113_ - _hd234793235116_ - _tl234792235118_ - _e234797235121_ - _hd234796235124_ - _tl234795235126_) + _L235069_ + _self234550_))) + (___kont243291243292_ + _L235067_ + _L235068_ + _L235069_ + _L235070_) + (___kont243297243298_))))) + (___match243652243653_ + (lambda (_e234700234979_ + _hd234699234982_ + _tl234698234984_ + _e234703234987_ + _hd234702234990_ + _tl234701234992_ + _e234706234995_ + _hd234705234998_ + _tl234704235000_ + _e234709235003_ + _hd234708235006_ + _tl234707235008_ + _e234712235011_ + _hd234711235014_ + _tl234710235016_ + _e234715235019_ + _hd234714235022_ + _tl234713235024_ + _e234718235027_ + _hd234717235030_ + _tl234716235032_ + _e234721235035_ + _hd234720235038_ + _tl234719235040_ + _e234724235043_ + _hd234723235046_ + _tl234722235048_ + _e234727235051_ + _hd234726235054_ + _tl234725235056_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234789235110_)) - (let ((_e234800235129_ + (gx#stx-pair? _tl234719235040_)) + (let ((_e234730235059_ (let () (declare (not safe)) - (gx#stx-e _tl234789235110_)))) - (let ((_tl234798235134_ + (gx#stx-e _tl234719235040_)))) + (let ((_tl234728235064_ (let () (declare (not safe)) - (##cdr _e234800235129_))) - (_hd234799235132_ + (##cdr _e234730235059_))) + (_hd234729235062_ (let () (declare (not safe)) - (##car _e234800235129_)))) + (##car _e234730235059_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234798235134_)) - (___match243730243731_ - _e234770235049_ - _hd234769235052_ - _tl234768235054_ - _e234773235057_ - _hd234772235060_ - _tl234771235062_ - _e234776235065_ - _hd234775235068_ - _tl234774235070_ - _e234779235073_ - _hd234778235076_ - _tl234777235078_ - _e234782235081_ - _hd234781235084_ - _tl234780235086_ - _e234785235089_ - _hd234784235092_ - _tl234783235094_ - _e234788235097_ - _hd234787235100_ - _tl234786235102_ - _e234791235105_ - _hd234790235108_ - _tl234789235110_ - _e234794235113_ - _hd234793235116_ - _tl234792235118_ - _e234797235121_ - _hd234796235124_ - _tl234795235126_ - _e234800235129_ - _hd234799235132_ - _tl234798235134_) - (___kont243367243368_)))) - (___match243846243847_ - _e234770235049_ - _hd234769235052_ - _tl234768235054_ - _e234773235057_ - _hd234772235060_ - _tl234771235062_ - _e234776235065_ - _hd234775235068_ - _tl234774235070_ - _e234779235073_ - _hd234778235076_ - _tl234777235078_ - _e234782235081_ - _hd234781235084_ - _tl234780235086_ - _e234785235089_ - _hd234784235092_ - _tl234783235094_ - _e234788235097_ - _hd234787235100_ - _tl234786235102_ - _e234791235105_ - _hd234790235108_ - _tl234789235110_)))) - (___match243644243645_ - (lambda (_e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_ - _e234760235244_ - _hd234759235247_ - _tl234758235249_ - _e234763235252_ - _hd234762235255_ - _tl234761235257_) - (let ((_L235260_ _hd234762235255_) - (_L235261_ _hd234753235231_) - (_L235262_ _hd234744235207_)) + (gx#stx-null? _tl234728235064_)) + (___match243660243661_ + _e234700234979_ + _hd234699234982_ + _tl234698234984_ + _e234703234987_ + _hd234702234990_ + _tl234701234992_ + _e234706234995_ + _hd234705234998_ + _tl234704235000_ + _e234709235003_ + _hd234708235006_ + _tl234707235008_ + _e234712235011_ + _hd234711235014_ + _tl234710235016_ + _e234715235019_ + _hd234714235022_ + _tl234713235024_ + _e234718235027_ + _hd234717235030_ + _tl234716235032_ + _e234721235035_ + _hd234720235038_ + _tl234719235040_ + _e234724235043_ + _hd234723235046_ + _tl234722235048_ + _e234727235051_ + _hd234726235054_ + _tl234725235056_ + _e234730235059_ + _hd234729235062_ + _tl234728235064_) + (___kont243297243298_)))) + (___match243776243777_ + _e234700234979_ + _hd234699234982_ + _tl234698234984_ + _e234703234987_ + _hd234702234990_ + _tl234701234992_ + _e234706234995_ + _hd234705234998_ + _tl234704235000_ + _e234709235003_ + _hd234708235006_ + _tl234707235008_ + _e234712235011_ + _hd234711235014_ + _tl234710235016_ + _e234715235019_ + _hd234714235022_ + _tl234713235024_ + _e234718235027_ + _hd234717235030_ + _tl234716235032_ + _e234721235035_ + _hd234720235038_ + _tl234719235040_)))) + (___match243574243575_ + (lambda (_e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_ + _e234690235174_ + _hd234689235177_ + _tl234688235179_ + _e234693235182_ + _hd234692235185_ + _tl234691235187_) + (let ((_L235190_ _hd234692235185_) + (_L235191_ _hd234683235161_) + (_L235192_ _hd234674235137_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L235262_ + _L235192_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L235262_ + _L235192_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L235261_ - _self234620_))) - (___kont243359243360_ - _L235260_ - _L235261_ - _L235262_) - (___match243848243849_ - _e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_))))) - (___match243642243643_ - (lambda (_e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_ - _e234760235244_ - _hd234759235247_ - _tl234758235249_ - _e234763235252_ - _hd234762235255_ - _tl234761235257_) + _L235191_ + _self234550_))) + (___kont243289243290_ + _L235190_ + _L235191_ + _L235192_) + (___match243778243779_ + _e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_))))) + (___match243572243573_ + (lambda (_e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_ + _e234690235174_ + _hd234689235177_ + _tl234688235179_ + _e234693235182_ + _hd234692235185_ + _tl234691235187_) (if (let () (declare (not safe)) - (gx#stx-null? _tl234755235241_)) - (___match243644243645_ - _e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_ - _e234760235244_ - _hd234759235247_ - _tl234758235249_ - _e234763235252_ - _hd234762235255_ - _tl234761235257_) - (___match243722243723_ - _e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_ - _e234760235244_ - _hd234759235247_ - _tl234758235249_ - _e234763235252_ - _hd234762235255_ - _tl234761235257_)))) - (___match243632243633_ - (lambda (_e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_ - _e234760235244_ - _hd234759235247_ - _tl234758235249_) + (gx#stx-null? _tl234685235171_)) + (___match243574243575_ + _e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_ + _e234690235174_ + _hd234689235177_ + _tl234688235179_ + _e234693235182_ + _hd234692235185_ + _tl234691235187_) + (___match243652243653_ + _e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_ + _e234690235174_ + _hd234689235177_ + _tl234688235179_ + _e234693235182_ + _hd234692235185_ + _tl234691235187_)))) + (___match243562243563_ + (lambda (_e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_ + _e234690235174_ + _hd234689235177_ + _tl234688235179_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd234759235247_)) + (gx#stx-eq? '%#quote _hd234689235177_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234758235249_)) - (let ((_e234763235252_ + (gx#stx-pair? _tl234688235179_)) + (let ((_e234693235182_ (let () (declare (not safe)) - (gx#stx-e _tl234758235249_)))) - (let ((_tl234761235257_ + (gx#stx-e _tl234688235179_)))) + (let ((_tl234691235187_ (let () (declare (not safe)) - (##cdr _e234763235252_))) - (_hd234762235255_ + (##cdr _e234693235182_))) + (_hd234692235185_ (let () (declare (not safe)) - (##car _e234763235252_)))) + (##car _e234693235182_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234761235257_)) + (gx#stx-null? _tl234691235187_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl234755235241_)) - (___match243644243645_ - _e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_ - _e234760235244_ - _hd234759235247_ - _tl234758235249_ - _e234763235252_ - _hd234762235255_ - _tl234761235257_) - (___match243722243723_ - _e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_ - _e234760235244_ - _hd234759235247_ - _tl234758235249_ - _e234763235252_ - _hd234762235255_ - _tl234761235257_)) - (___match243846243847_ - _e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_)))) - (___match243846243847_ - _e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_)) - (___match243846243847_ - _e234736235180_ - _hd234735235183_ - _tl234734235185_ - _e234739235188_ - _hd234738235191_ - _tl234737235193_ - _e234742235196_ - _hd234741235199_ - _tl234740235201_ - _e234745235204_ - _hd234744235207_ - _tl234743235209_ - _e234748235212_ - _hd234747235215_ - _tl234746235217_ - _e234751235220_ - _hd234750235223_ - _tl234749235225_ - _e234754235228_ - _hd234753235231_ - _tl234752235233_ - _e234757235236_ - _hd234756235239_ - _tl234755235241_)))) - (___match243564243565_ - (lambda (_e234685235299_ - _hd234684235302_ - _tl234683235304_ - _e234688235307_ - _hd234687235310_ - _tl234686235312_ - _e234691235315_ - _hd234690235318_ - _tl234689235320_ - _e234694235323_ - _hd234693235326_ - _tl234692235328_ - _e234697235331_ - _hd234696235334_ - _tl234695235336_ - _e234700235339_ - _hd234699235342_ - _tl234698235344_ - _e234703235347_ - _hd234702235350_ - _tl234701235352_ - _e234706235355_ - _hd234705235358_ - _tl234704235360_ - _e234709235363_ - _hd234708235366_ - _tl234707235368_ - _e234712235371_ - _hd234711235374_ - _tl234710235376_ - _e234715235379_ - _hd234714235382_ - _tl234713235384_ - _e234718235387_ - _hd234717235390_ - _tl234716235392_ - _e234721235395_ - _hd234720235398_ - _tl234719235400_ - ___splice243357243358_ - _target234722235403_ - _tl234724235405_) - (letrec ((_loop234725235408_ - (lambda (_hd234723235411_ _args234729235413_) + (gx#stx-null? _tl234685235171_)) + (___match243574243575_ + _e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_ + _e234690235174_ + _hd234689235177_ + _tl234688235179_ + _e234693235182_ + _hd234692235185_ + _tl234691235187_) + (___match243652243653_ + _e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_ + _e234690235174_ + _hd234689235177_ + _tl234688235179_ + _e234693235182_ + _hd234692235185_ + _tl234691235187_)) + (___match243776243777_ + _e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_)))) + (___match243776243777_ + _e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_)) + (___match243776243777_ + _e234666235110_ + _hd234665235113_ + _tl234664235115_ + _e234669235118_ + _hd234668235121_ + _tl234667235123_ + _e234672235126_ + _hd234671235129_ + _tl234670235131_ + _e234675235134_ + _hd234674235137_ + _tl234673235139_ + _e234678235142_ + _hd234677235145_ + _tl234676235147_ + _e234681235150_ + _hd234680235153_ + _tl234679235155_ + _e234684235158_ + _hd234683235161_ + _tl234682235163_ + _e234687235166_ + _hd234686235169_ + _tl234685235171_)))) + (___match243494243495_ + (lambda (_e234615235229_ + _hd234614235232_ + _tl234613235234_ + _e234618235237_ + _hd234617235240_ + _tl234616235242_ + _e234621235245_ + _hd234620235248_ + _tl234619235250_ + _e234624235253_ + _hd234623235256_ + _tl234622235258_ + _e234627235261_ + _hd234626235264_ + _tl234625235266_ + _e234630235269_ + _hd234629235272_ + _tl234628235274_ + _e234633235277_ + _hd234632235280_ + _tl234631235282_ + _e234636235285_ + _hd234635235288_ + _tl234634235290_ + _e234639235293_ + _hd234638235296_ + _tl234637235298_ + _e234642235301_ + _hd234641235304_ + _tl234640235306_ + _e234645235309_ + _hd234644235312_ + _tl234643235314_ + _e234648235317_ + _hd234647235320_ + _tl234646235322_ + _e234651235325_ + _hd234650235328_ + _tl234649235330_ + ___splice243287243288_ + _target234652235333_ + _tl234654235335_) + (letrec ((_loop234655235338_ + (lambda (_hd234653235341_ _args234659235343_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234723235411_)) - (let ((_e234726235416_ + (gx#stx-pair? _hd234653235341_)) + (let ((_e234656235346_ (let () (declare (not safe)) - (gx#stx-e _hd234723235411_)))) - (let ((_lp-tl234728235421_ + (gx#stx-e _hd234653235341_)))) + (let ((_lp-tl234658235351_ (let () (declare (not safe)) - (##cdr _e234726235416_))) - (_lp-hd234727235419_ + (##cdr _e234656235346_))) + (_lp-hd234657235349_ (let () (declare (not safe)) - (##car _e234726235416_)))) - (let ((__tmp244720 + (##car _e234656235346_)))) + (let ((__tmp244650 (let () (declare (not safe)) - (cons _lp-hd234727235419_ - _args234729235413_)))) + (cons _lp-hd234657235349_ + _args234659235343_)))) (declare (not safe)) - (_loop234725235408_ - _lp-tl234728235421_ - __tmp244720)))) - (let ((_args234730235424_ - (reverse _args234729235413_))) - (let ((_L235427_ _args234730235424_) - (_L235428_ _hd234720235398_) - (_L235429_ _hd234711235374_) - (_L235430_ _hd234702235350_) - (_L235431_ _hd234693235326_)) + (_loop234655235338_ + _lp-tl234658235351_ + __tmp244650)))) + (let ((_args234660235354_ + (reverse _args234659235343_))) + (let ((_L235357_ _args234660235354_) + (_L235358_ _hd234650235328_) + (_L235359_ _hd234641235304_) + (_L235360_ _hd234632235280_) + (_L235361_ _hd234623235256_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L235431_ + _L235361_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L235430_ + _L235360_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L235429_ - _self234620_))) - (___kont243355243356_ - _L235427_ - _L235428_ - _L235429_ - _L235430_ - _L235431_) - (___kont243367243368_)))))))) + _L235359_ + _self234550_))) + (___kont243285243286_ + _L235357_ + _L235358_ + _L235359_ + _L235360_ + _L235361_) + (___kont243297243298_)))))))) (let () (declare (not safe)) - (_loop234725235408_ _target234722235403_ '()))))) - (___match243522243523_ - (lambda (_e234685235299_ - _hd234684235302_ - _tl234683235304_ - _e234688235307_ - _hd234687235310_ - _tl234686235312_ - _e234691235315_ - _hd234690235318_ - _tl234689235320_ - _e234694235323_ - _hd234693235326_ - _tl234692235328_ - _e234697235331_ - _hd234696235334_ - _tl234695235336_ - _e234700235339_ - _hd234699235342_ - _tl234698235344_ - _e234703235347_ - _hd234702235350_ - _tl234701235352_ - _e234706235355_ - _hd234705235358_ - _tl234704235360_ - _e234709235363_ - _hd234708235366_ - _tl234707235368_) + (_loop234655235338_ _target234652235333_ '()))))) + (___match243452243453_ + (lambda (_e234615235229_ + _hd234614235232_ + _tl234613235234_ + _e234618235237_ + _hd234617235240_ + _tl234616235242_ + _e234621235245_ + _hd234620235248_ + _tl234619235250_ + _e234624235253_ + _hd234623235256_ + _tl234622235258_ + _e234627235261_ + _hd234626235264_ + _tl234625235266_ + _e234630235269_ + _hd234629235272_ + _tl234628235274_ + _e234633235277_ + _hd234632235280_ + _tl234631235282_ + _e234636235285_ + _hd234635235288_ + _tl234634235290_ + _e234639235293_ + _hd234638235296_ + _tl234637235298_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234708235366_)) + (gx#stx-eq? '%#ref _hd234638235296_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234707235368_)) - (let ((_e234712235371_ + (gx#stx-pair? _tl234637235298_)) + (let ((_e234642235301_ (let () (declare (not safe)) - (gx#stx-e _tl234707235368_)))) - (let ((_tl234710235376_ + (gx#stx-e _tl234637235298_)))) + (let ((_tl234640235306_ (let () (declare (not safe)) - (##cdr _e234712235371_))) - (_hd234711235374_ + (##cdr _e234642235301_))) + (_hd234641235304_ (let () (declare (not safe)) - (##car _e234712235371_)))) + (##car _e234642235301_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234710235376_)) + (gx#stx-null? _tl234640235306_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234704235360_)) - (let ((_e234715235379_ + (gx#stx-pair? _tl234634235290_)) + (let ((_e234645235309_ (let () (declare (not safe)) (gx#stx-e - _tl234704235360_)))) - (let ((_tl234713235384_ + _tl234634235290_)))) + (let ((_tl234643235314_ (let () (declare (not safe)) - (##cdr _e234715235379_))) - (_hd234714235382_ + (##cdr _e234645235309_))) + (_hd234644235312_ (let () (declare (not safe)) - (##car _e234715235379_)))) + (##car _e234645235309_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234714235382_)) - (let ((_e234718235387_ + _hd234644235312_)) + (let ((_e234648235317_ (let () (declare (not safe)) (gx#stx-e - _hd234714235382_)))) - (let ((_tl234716235392_ + _hd234644235312_)))) + (let ((_tl234646235322_ (let () (declare (not safe)) - (##cdr _e234718235387_))) - (_hd234717235390_ + (##cdr _e234648235317_))) + (_hd234647235320_ (let () (declare (not safe)) - (##car _e234718235387_)))) + (##car _e234648235317_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234717235390_)) + _hd234647235320_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd234717235390_)) + (gx#stx-eq? '%#quote _hd234647235320_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234716235392_)) - (let ((_e234721235395_ + (gx#stx-pair? _tl234646235322_)) + (let ((_e234651235325_ (let () (declare (not safe)) - (gx#stx-e _tl234716235392_)))) - (let ((_tl234719235400_ + (gx#stx-e _tl234646235322_)))) + (let ((_tl234649235330_ (let () (declare (not safe)) - (##cdr _e234721235395_))) - (_hd234720235398_ + (##cdr _e234651235325_))) + (_hd234650235328_ (let () (declare (not safe)) - (##car _e234721235395_)))) + (##car _e234651235325_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234719235400_)) + (gx#stx-null? _tl234649235330_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl234713235384_)) - (let ((___splice243357243358_ + (gx#stx-pair/null? _tl234643235314_)) + (let ((___splice243287243288_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl234713235384_ + _tl234643235314_ '0)))) - (let ((_tl234724235405_ + (let ((_tl234654235335_ (let () (declare (not safe)) (##vector-ref - ___splice243357243358_ + ___splice243287243288_ '1))) - (_target234722235403_ + (_target234652235333_ (let () (declare (not safe)) (##vector-ref - ___splice243357243358_ + ___splice243287243288_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234724235405_)) - (___match243564243565_ - _e234685235299_ - _hd234684235302_ - _tl234683235304_ - _e234688235307_ - _hd234687235310_ - _tl234686235312_ - _e234691235315_ - _hd234690235318_ - _tl234689235320_ - _e234694235323_ - _hd234693235326_ - _tl234692235328_ - _e234697235331_ - _hd234696235334_ - _tl234695235336_ - _e234700235339_ - _hd234699235342_ - _tl234698235344_ - _e234703235347_ - _hd234702235350_ - _tl234701235352_ - _e234706235355_ - _hd234705235358_ - _tl234704235360_ - _e234709235363_ - _hd234708235366_ - _tl234707235368_ - _e234712235371_ - _hd234711235374_ - _tl234710235376_ - _e234715235379_ - _hd234714235382_ - _tl234713235384_ - _e234718235387_ - _hd234717235390_ - _tl234716235392_ - _e234721235395_ - _hd234720235398_ - _tl234719235400_ - ___splice243357243358_ - _target234722235403_ - _tl234724235405_) - (___kont243367243368_)))) - (___kont243367243368_)) - (___kont243367243368_)))) - (___kont243367243368_)) - (___kont243367243368_)) - (___kont243367243368_)))) + _tl234654235335_)) + (___match243494243495_ + _e234615235229_ + _hd234614235232_ + _tl234613235234_ + _e234618235237_ + _hd234617235240_ + _tl234616235242_ + _e234621235245_ + _hd234620235248_ + _tl234619235250_ + _e234624235253_ + _hd234623235256_ + _tl234622235258_ + _e234627235261_ + _hd234626235264_ + _tl234625235266_ + _e234630235269_ + _hd234629235272_ + _tl234628235274_ + _e234633235277_ + _hd234632235280_ + _tl234631235282_ + _e234636235285_ + _hd234635235288_ + _tl234634235290_ + _e234639235293_ + _hd234638235296_ + _tl234637235298_ + _e234642235301_ + _hd234641235304_ + _tl234640235306_ + _e234645235309_ + _hd234644235312_ + _tl234643235314_ + _e234648235317_ + _hd234647235320_ + _tl234646235322_ + _e234651235325_ + _hd234650235328_ + _tl234649235330_ + ___splice243287243288_ + _target234652235333_ + _tl234654235335_) + (___kont243297243298_)))) + (___kont243297243298_)) + (___kont243297243298_)))) + (___kont243297243298_)) + (___kont243297243298_)) + (___kont243297243298_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243367243368_)))) - (___match243846243847_ - _e234685235299_ - _hd234684235302_ - _tl234683235304_ - _e234688235307_ - _hd234687235310_ - _tl234686235312_ - _e234691235315_ - _hd234690235318_ - _tl234689235320_ - _e234694235323_ - _hd234693235326_ - _tl234692235328_ - _e234697235331_ - _hd234696235334_ - _tl234695235336_ - _e234700235339_ - _hd234699235342_ - _tl234698235344_ - _e234703235347_ - _hd234702235350_ - _tl234701235352_ - _e234706235355_ - _hd234705235358_ - _tl234704235360_)) - (___match243846243847_ - _e234685235299_ - _hd234684235302_ - _tl234683235304_ - _e234688235307_ - _hd234687235310_ - _tl234686235312_ - _e234691235315_ - _hd234690235318_ - _tl234689235320_ - _e234694235323_ - _hd234693235326_ - _tl234692235328_ - _e234697235331_ - _hd234696235334_ - _tl234695235336_ - _e234700235339_ - _hd234699235342_ - _tl234698235344_ - _e234703235347_ - _hd234702235350_ - _tl234701235352_ - _e234706235355_ - _hd234705235358_ - _tl234704235360_)))) - (___match243846243847_ - _e234685235299_ - _hd234684235302_ - _tl234683235304_ - _e234688235307_ - _hd234687235310_ - _tl234686235312_ - _e234691235315_ - _hd234690235318_ - _tl234689235320_ - _e234694235323_ - _hd234693235326_ - _tl234692235328_ - _e234697235331_ - _hd234696235334_ - _tl234695235336_ - _e234700235339_ - _hd234699235342_ - _tl234698235344_ - _e234703235347_ - _hd234702235350_ - _tl234701235352_ - _e234706235355_ - _hd234705235358_ - _tl234704235360_)) - (___match243632243633_ - _e234685235299_ - _hd234684235302_ - _tl234683235304_ - _e234688235307_ - _hd234687235310_ - _tl234686235312_ - _e234691235315_ - _hd234690235318_ - _tl234689235320_ - _e234694235323_ - _hd234693235326_ - _tl234692235328_ - _e234697235331_ - _hd234696235334_ - _tl234695235336_ - _e234700235339_ - _hd234699235342_ - _tl234698235344_ - _e234703235347_ - _hd234702235350_ - _tl234701235352_ - _e234706235355_ - _hd234705235358_ - _tl234704235360_ - _e234709235363_ - _hd234708235366_ - _tl234707235368_)))) - (___match243454243455_ - (lambda (_e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_ - _e234662235544_ - _hd234661235547_ - _tl234660235549_ - _e234665235552_ - _hd234664235555_ - _tl234663235557_ - _e234668235560_ - _hd234667235563_ - _tl234666235565_ - ___splice243353243354_ - _target234669235568_ - _tl234671235570_) - (letrec ((_loop234672235573_ - (lambda (_hd234670235576_ _args234676235578_) + (___kont243297243298_)))) + (___match243776243777_ + _e234615235229_ + _hd234614235232_ + _tl234613235234_ + _e234618235237_ + _hd234617235240_ + _tl234616235242_ + _e234621235245_ + _hd234620235248_ + _tl234619235250_ + _e234624235253_ + _hd234623235256_ + _tl234622235258_ + _e234627235261_ + _hd234626235264_ + _tl234625235266_ + _e234630235269_ + _hd234629235272_ + _tl234628235274_ + _e234633235277_ + _hd234632235280_ + _tl234631235282_ + _e234636235285_ + _hd234635235288_ + _tl234634235290_)) + (___match243776243777_ + _e234615235229_ + _hd234614235232_ + _tl234613235234_ + _e234618235237_ + _hd234617235240_ + _tl234616235242_ + _e234621235245_ + _hd234620235248_ + _tl234619235250_ + _e234624235253_ + _hd234623235256_ + _tl234622235258_ + _e234627235261_ + _hd234626235264_ + _tl234625235266_ + _e234630235269_ + _hd234629235272_ + _tl234628235274_ + _e234633235277_ + _hd234632235280_ + _tl234631235282_ + _e234636235285_ + _hd234635235288_ + _tl234634235290_)))) + (___match243776243777_ + _e234615235229_ + _hd234614235232_ + _tl234613235234_ + _e234618235237_ + _hd234617235240_ + _tl234616235242_ + _e234621235245_ + _hd234620235248_ + _tl234619235250_ + _e234624235253_ + _hd234623235256_ + _tl234622235258_ + _e234627235261_ + _hd234626235264_ + _tl234625235266_ + _e234630235269_ + _hd234629235272_ + _tl234628235274_ + _e234633235277_ + _hd234632235280_ + _tl234631235282_ + _e234636235285_ + _hd234635235288_ + _tl234634235290_)) + (___match243562243563_ + _e234615235229_ + _hd234614235232_ + _tl234613235234_ + _e234618235237_ + _hd234617235240_ + _tl234616235242_ + _e234621235245_ + _hd234620235248_ + _tl234619235250_ + _e234624235253_ + _hd234623235256_ + _tl234622235258_ + _e234627235261_ + _hd234626235264_ + _tl234625235266_ + _e234630235269_ + _hd234629235272_ + _tl234628235274_ + _e234633235277_ + _hd234632235280_ + _tl234631235282_ + _e234636235285_ + _hd234635235288_ + _tl234634235290_ + _e234639235293_ + _hd234638235296_ + _tl234637235298_)))) + (___match243384243385_ + (lambda (_e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_ + _e234592235474_ + _hd234591235477_ + _tl234590235479_ + _e234595235482_ + _hd234594235485_ + _tl234593235487_ + _e234598235490_ + _hd234597235493_ + _tl234596235495_ + ___splice243283243284_ + _target234599235498_ + _tl234601235500_) + (letrec ((_loop234602235503_ + (lambda (_hd234600235506_ _args234606235508_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234670235576_)) - (let ((_e234673235581_ + (gx#stx-pair? _hd234600235506_)) + (let ((_e234603235511_ (let () (declare (not safe)) - (gx#stx-e _hd234670235576_)))) - (let ((_lp-tl234675235586_ + (gx#stx-e _hd234600235506_)))) + (let ((_lp-tl234605235516_ (let () (declare (not safe)) - (##cdr _e234673235581_))) - (_lp-hd234674235584_ + (##cdr _e234603235511_))) + (_lp-hd234604235514_ (let () (declare (not safe)) - (##car _e234673235581_)))) - (let ((__tmp244721 + (##car _e234603235511_)))) + (let ((__tmp244651 (let () (declare (not safe)) - (cons _lp-hd234674235584_ - _args234676235578_)))) + (cons _lp-hd234604235514_ + _args234606235508_)))) (declare (not safe)) - (_loop234672235573_ - _lp-tl234675235586_ - __tmp244721)))) - (let ((_args234677235589_ - (reverse _args234676235578_))) - (let ((_L235592_ _args234677235589_) - (_L235593_ _hd234667235563_) - (_L235594_ _hd234658235539_) - (_L235595_ _hd234649235515_)) + (_loop234602235503_ + _lp-tl234605235516_ + __tmp244651)))) + (let ((_args234607235519_ + (reverse _args234606235508_))) + (let ((_L235522_ _args234607235519_) + (_L235523_ _hd234597235493_) + (_L235524_ _hd234588235469_) + (_L235525_ _hd234579235445_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L235595_ + _L235525_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L235594_ - _self234620_))) - (___kont243351243352_ - _L235592_ - _L235593_ - _L235594_ - _L235595_) - (___match243642243643_ - _e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_ - _e234662235544_ - _hd234661235547_ - _tl234660235549_ - _e234665235552_ - _hd234664235555_ - _tl234663235557_ - _e234668235560_ - _hd234667235563_ - _tl234666235565_)))))))) + _L235524_ + _self234550_))) + (___kont243281243282_ + _L235522_ + _L235523_ + _L235524_ + _L235525_) + (___match243572243573_ + _e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_ + _e234592235474_ + _hd234591235477_ + _tl234590235479_ + _e234595235482_ + _hd234594235485_ + _tl234593235487_ + _e234598235490_ + _hd234597235493_ + _tl234596235495_)))))))) (let () (declare (not safe)) - (_loop234672235573_ _target234669235568_ '())))))) + (_loop234602235503_ _target234599235498_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243349243350_)) - (let ((_e234641235488_ + (gx#stx-pair? ___stx243279243280_)) + (let ((_e234571235418_ (let () (declare (not safe)) - (gx#stx-e ___stx243349243350_)))) - (let ((_tl234639235493_ + (gx#stx-e ___stx243279243280_)))) + (let ((_tl234569235423_ (let () (declare (not safe)) - (##cdr _e234641235488_))) - (_hd234640235491_ + (##cdr _e234571235418_))) + (_hd234570235421_ (let () (declare (not safe)) - (##car _e234641235488_)))) + (##car _e234571235418_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234639235493_)) - (let ((_e234644235496_ + (gx#stx-pair? _tl234569235423_)) + (let ((_e234574235426_ (let () (declare (not safe)) - (gx#stx-e _tl234639235493_)))) - (let ((_tl234642235501_ + (gx#stx-e _tl234569235423_)))) + (let ((_tl234572235431_ (let () (declare (not safe)) - (##cdr _e234644235496_))) - (_hd234643235499_ + (##cdr _e234574235426_))) + (_hd234573235429_ (let () (declare (not safe)) - (##car _e234644235496_)))) + (##car _e234574235426_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234643235499_)) - (let ((_e234647235504_ + (gx#stx-pair? _hd234573235429_)) + (let ((_e234577235434_ (let () (declare (not safe)) - (gx#stx-e _hd234643235499_)))) - (let ((_tl234645235509_ + (gx#stx-e _hd234573235429_)))) + (let ((_tl234575235439_ (let () (declare (not safe)) - (##cdr _e234647235504_))) - (_hd234646235507_ + (##cdr _e234577235434_))) + (_hd234576235437_ (let () (declare (not safe)) - (##car _e234647235504_)))) + (##car _e234577235434_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234646235507_)) + (gx#identifier? _hd234576235437_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234646235507_)) + _hd234576235437_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234645235509_)) - (let ((_e234650235512_ + _tl234575235439_)) + (let ((_e234580235442_ (let () (declare (not safe)) (gx#stx-e - _tl234645235509_)))) - (let ((_tl234648235517_ + _tl234575235439_)))) + (let ((_tl234578235447_ (let () (declare (not safe)) - (##cdr _e234650235512_))) - (_hd234649235515_ + (##cdr _e234580235442_))) + (_hd234579235445_ (let () (declare (not safe)) - (##car _e234650235512_)))) + (##car _e234580235442_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234648235517_)) + _tl234578235447_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl234642235501_)) - (let ((_e234653235520_ + (gx#stx-pair? _tl234572235431_)) + (let ((_e234583235450_ (let () (declare (not safe)) - (gx#stx-e _tl234642235501_)))) - (let ((_tl234651235525_ + (gx#stx-e _tl234572235431_)))) + (let ((_tl234581235455_ (let () (declare (not safe)) - (##cdr _e234653235520_))) - (_hd234652235523_ + (##cdr _e234583235450_))) + (_hd234582235453_ (let () (declare (not safe)) - (##car _e234653235520_)))) + (##car _e234583235450_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234652235523_)) - (let ((_e234656235528_ + (gx#stx-pair? _hd234582235453_)) + (let ((_e234586235458_ (let () (declare (not safe)) - (gx#stx-e _hd234652235523_)))) - (let ((_tl234654235533_ + (gx#stx-e _hd234582235453_)))) + (let ((_tl234584235463_ (let () (declare (not safe)) - (##cdr _e234656235528_))) - (_hd234655235531_ + (##cdr _e234586235458_))) + (_hd234585235461_ (let () (declare (not safe)) - (##car _e234656235528_)))) + (##car _e234586235458_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234655235531_)) + (gx#identifier? _hd234585235461_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234655235531_)) + _hd234585235461_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234654235533_)) - (let ((_e234659235536_ + _tl234584235463_)) + (let ((_e234589235466_ (let () (declare (not safe)) (gx#stx-e - _tl234654235533_)))) - (let ((_tl234657235541_ + _tl234584235463_)))) + (let ((_tl234587235471_ (let () (declare (not safe)) - (##cdr _e234659235536_))) - (_hd234658235539_ + (##cdr _e234589235466_))) + (_hd234588235469_ (let () (declare (not safe)) - (##car _e234659235536_)))) + (##car _e234589235466_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234657235541_)) + _tl234587235471_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234651235525_)) - (let ((_e234662235544_ + _tl234581235455_)) + (let ((_e234592235474_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl234651235525_)))) - (let ((_tl234660235549_ + (gx#stx-e _tl234581235455_)))) + (let ((_tl234590235479_ (let () (declare (not safe)) - (##cdr _e234662235544_))) - (_hd234661235547_ + (##cdr _e234592235474_))) + (_hd234591235477_ (let () (declare (not safe)) - (##car _e234662235544_)))) + (##car _e234592235474_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234661235547_)) - (let ((_e234665235552_ + (gx#stx-pair? _hd234591235477_)) + (let ((_e234595235482_ (let () (declare (not safe)) - (gx#stx-e _hd234661235547_)))) - (let ((_tl234663235557_ + (gx#stx-e _hd234591235477_)))) + (let ((_tl234593235487_ (let () (declare (not safe)) - (##cdr _e234665235552_))) - (_hd234664235555_ + (##cdr _e234595235482_))) + (_hd234594235485_ (let () (declare (not safe)) - (##car _e234665235552_)))) + (##car _e234595235482_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234664235555_)) + (gx#identifier? _hd234594235485_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd234664235555_)) + (gx#stx-eq? '%#quote _hd234594235485_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234663235557_)) - (let ((_e234668235560_ + (gx#stx-pair? _tl234593235487_)) + (let ((_e234598235490_ (let () (declare (not safe)) (gx#stx-e - _tl234663235557_)))) - (let ((_tl234666235565_ + _tl234593235487_)))) + (let ((_tl234596235495_ (let () (declare (not safe)) - (##cdr _e234668235560_))) - (_hd234667235563_ + (##cdr _e234598235490_))) + (_hd234597235493_ (let () (declare (not safe)) - (##car _e234668235560_)))) + (##car _e234598235490_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234666235565_)) + _tl234596235495_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl234660235549_)) - (let ((___splice243353243354_ + _tl234590235479_)) + (let ((___splice243283243284_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl234660235549_ '0)))) - (let ((_tl234671235570_ + (gx#syntax-split-splice _tl234590235479_ '0)))) + (let ((_tl234601235500_ (let () (declare (not safe)) - (##vector-ref ___splice243353243354_ '1))) - (_target234669235568_ + (##vector-ref ___splice243283243284_ '1))) + (_target234599235498_ (let () (declare (not safe)) - (##vector-ref ___splice243353243354_ '0)))) + (##vector-ref ___splice243283243284_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234671235570_)) - (___match243454243455_ - _e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_ - _e234662235544_ - _hd234661235547_ - _tl234660235549_ - _e234665235552_ - _hd234664235555_ - _tl234663235557_ - _e234668235560_ - _hd234667235563_ - _tl234666235565_ - ___splice243353243354_ - _target234669235568_ - _tl234671235570_) - (___match243642243643_ - _e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_ - _e234662235544_ - _hd234661235547_ - _tl234660235549_ - _e234665235552_ - _hd234664235555_ - _tl234663235557_ - _e234668235560_ - _hd234667235563_ - _tl234666235565_)))) - (___match243642243643_ - _e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_ - _e234662235544_ - _hd234661235547_ - _tl234660235549_ - _e234665235552_ - _hd234664235555_ - _tl234663235557_ - _e234668235560_ - _hd234667235563_ - _tl234666235565_)) + (gx#stx-null? _tl234601235500_)) + (___match243384243385_ + _e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_ + _e234592235474_ + _hd234591235477_ + _tl234590235479_ + _e234595235482_ + _hd234594235485_ + _tl234593235487_ + _e234598235490_ + _hd234597235493_ + _tl234596235495_ + ___splice243283243284_ + _target234599235498_ + _tl234601235500_) + (___match243572243573_ + _e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_ + _e234592235474_ + _hd234591235477_ + _tl234590235479_ + _e234595235482_ + _hd234594235485_ + _tl234593235487_ + _e234598235490_ + _hd234597235493_ + _tl234596235495_)))) + (___match243572243573_ + _e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_ + _e234592235474_ + _hd234591235477_ + _tl234590235479_ + _e234595235482_ + _hd234594235485_ + _tl234593235487_ + _e234598235490_ + _hd234597235493_ + _tl234596235495_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243846243847_ - _e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_ - _e234662235544_ - _hd234661235547_ - _tl234660235549_)))) - (___match243846243847_ - _e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_ - _e234662235544_ - _hd234661235547_ - _tl234660235549_)) - (___match243522243523_ - _e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_ - _e234662235544_ - _hd234661235547_ - _tl234660235549_ - _e234665235552_ - _hd234664235555_ - _tl234663235557_)) - (___match243846243847_ - _e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_ - _e234662235544_ - _hd234661235547_ - _tl234660235549_)))) - (___match243846243847_ - _e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_ - _e234662235544_ - _hd234661235547_ - _tl234660235549_)))) - (___match243784243785_ - _e234641235488_ - _hd234640235491_ - _tl234639235493_ - _e234644235496_ - _hd234643235499_ - _tl234642235501_ - _e234647235504_ - _hd234646235507_ - _tl234645235509_ - _e234650235512_ - _hd234649235515_ - _tl234648235517_ - _e234653235520_ - _hd234652235523_ - _tl234651235525_ - _e234656235528_ - _hd234655235531_ - _tl234654235533_ - _e234659235536_ - _hd234658235539_ - _tl234657235541_)) - (___kont243367243368_)))) + (___match243776243777_ + _e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_ + _e234592235474_ + _hd234591235477_ + _tl234590235479_)))) + (___match243776243777_ + _e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_ + _e234592235474_ + _hd234591235477_ + _tl234590235479_)) + (___match243452243453_ + _e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_ + _e234592235474_ + _hd234591235477_ + _tl234590235479_ + _e234595235482_ + _hd234594235485_ + _tl234593235487_)) + (___match243776243777_ + _e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_ + _e234592235474_ + _hd234591235477_ + _tl234590235479_)))) + (___match243776243777_ + _e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_ + _e234592235474_ + _hd234591235477_ + _tl234590235479_)))) + (___match243714243715_ + _e234571235418_ + _hd234570235421_ + _tl234569235423_ + _e234574235426_ + _hd234573235429_ + _tl234572235431_ + _e234577235434_ + _hd234576235437_ + _tl234575235439_ + _e234580235442_ + _hd234579235445_ + _tl234578235447_ + _e234583235450_ + _hd234582235453_ + _tl234581235455_ + _e234586235458_ + _hd234585235461_ + _tl234584235463_ + _e234589235466_ + _hd234588235469_ + _tl234587235471_)) + (___kont243297243298_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243367243368_)) - (___kont243367243368_)) - (___kont243367243368_)))) - (___kont243367243368_)))) - (___kont243367243368_)) - (___kont243367243368_)))) + (___kont243297243298_)) + (___kont243297243298_)) + (___kont243297243298_)))) + (___kont243297243298_)))) + (___kont243297243298_)) + (___kont243297243298_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243367243368_)) - (___kont243367243368_)) - (___kont243367243368_)))) - (___kont243367243368_)))) - (___kont243367243368_)))) - (___kont243367243368_))))))) + (___kont243297243298_)) + (___kont243297243298_)) + (___kont243297243298_)))) + (___kont243297243298_)))) + (___kont243297243298_)))) + (___kont243297243298_))))))) (define gxc#subst-object-refs-call% - (lambda (_stx233565_ - _self233566_ - _$t233567_ - _methods233568_ - _slots233569_ - _class-check233570_ - _struct-check233571_ - _struct-assert233572_) - (letrec ((_force-e233574_ - (lambda (_what234617_) - (let ((__tmp244722 - (let ((__tmp244726 - (let ((__tmp244727 + (lambda (_stx233495_ + _self233496_ + _$t233497_ + _methods233498_ + _slots233499_ + _class-check233500_ + _struct-check233501_ + _struct-assert233502_) + (letrec ((_force-e233504_ + (lambda (_what234547_) + (let ((__tmp244652 + (let ((__tmp244656 + (let ((__tmp244657 (let () (declare (not safe)) (cons 'force '())))) (declare (not safe)) - (cons '%#ref __tmp244727))) - (__tmp244723 - (let ((__tmp244724 - (let ((__tmp244725 + (cons '%#ref __tmp244657))) + (__tmp244653 + (let ((__tmp244654 + (let ((__tmp244655 (let () (declare (not safe)) - (cons _what234617_ '())))) + (cons _what234547_ '())))) (declare (not safe)) - (cons '%#ref __tmp244725)))) + (cons '%#ref __tmp244655)))) (declare (not safe)) - (cons __tmp244724 '())))) + (cons __tmp244654 '())))) (declare (not safe)) - (cons __tmp244726 __tmp244723)))) + (cons __tmp244656 __tmp244653)))) (declare (not safe)) - (cons '%#call __tmp244722))))) - (let* ((___stx243851243852_ _stx233565_) - (_g233582233804_ + (cons '%#call __tmp244652))))) + (let* ((___stx243781243782_ _stx233495_) + (_g233512233734_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243851243852_))))) - (let ((___kont243853243854_ - (lambda (_L234563_ _L234564_ _L234565_ _L234566_) - (let ((_$method234611_ - (let ((__tmp244728 + ___stx243781243782_))))) + (let ((___kont243783243784_ + (lambda (_L234493_ _L234494_ _L234495_ _L234496_) + (let ((_$method234541_ + (let ((__tmp244658 (let () (declare (not safe)) - (gx#stx-e _L234564_)))) + (gx#stx-e _L234494_)))) (declare (not safe)) - (table-ref _methods233568_ __tmp244728))) - (_args234612_ - (map (lambda (_g234599234601_) + (table-ref _methods233498_ __tmp244658))) + (_args234542_ + (map (lambda (_g234529234531_) (let () (declare (not safe)) (gxc#compile-e__3 - _g234599234601_ - _self233566_ - _$t233567_ - _methods233568_ - _slots233569_ - _class-check233570_ - _struct-check233571_ - _struct-assert233572_))) - (let ((__tmp244729 - (lambda (_g234603234606_ - _g234604234608_) + _g234529234531_ + _self233496_ + _$t233497_ + _methods233498_ + _slots233499_ + _class-check233500_ + _struct-check233501_ + _struct-assert233502_))) + (let ((__tmp244659 + (lambda (_g234533234536_ + _g234534234538_) (let () (declare (not safe)) - (cons _g234603234606_ - _g234604234608_))))) + (cons _g234533234536_ + _g234534234538_))))) (declare (not safe)) - (foldr1 __tmp244729 '() _L234563_))))) - (let ((__tmp244730 - (let ((__tmp244731 - (let ((__tmp244735 + (foldr1 __tmp244659 '() _L234493_))))) + (let ((__tmp244660 + (let ((__tmp244661 + (let ((__tmp244665 (let () (declare (not safe)) - (_force-e233574_ - _$method234611_))) - (__tmp244732 - (let ((__tmp244733 - (let ((__tmp244734 + (_force-e233504_ + _$method234541_))) + (__tmp244662 + (let ((__tmp244663 + (let ((__tmp244664 (let () (declare (not safe)) - (cons _self233566_ + (cons _self233496_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp244734)))) + __tmp244664)))) (declare (not safe)) - (cons __tmp244733 - _args234612_)))) + (cons __tmp244663 + _args234542_)))) (declare (not safe)) - (cons __tmp244735 __tmp244732)))) + (cons __tmp244665 __tmp244662)))) (declare (not safe)) - (cons '%#call __tmp244731)))) + (cons '%#call __tmp244661)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244730 _stx233565_))))) - (___kont243857243858_ - (lambda (_L234395_ _L234396_ _L234397_ _L234398_ _L234399_) - (let ((_$method234451_ - (let ((__tmp244736 + (gxc#xform-wrap-source __tmp244660 _stx233495_))))) + (___kont243787243788_ + (lambda (_L234325_ _L234326_ _L234327_ _L234328_ _L234329_) + (let ((_$method234381_ + (let ((__tmp244666 (let () (declare (not safe)) - (gx#stx-e _L234396_)))) + (gx#stx-e _L234326_)))) (declare (not safe)) - (table-ref _methods233568_ __tmp244736))) - (_args234452_ - (map (lambda (_g234439234441_) + (table-ref _methods233498_ __tmp244666))) + (_args234382_ + (map (lambda (_g234369234371_) (let () (declare (not safe)) (gxc#compile-e__3 - _g234439234441_ - _self233566_ - _$t233567_ - _methods233568_ - _slots233569_ - _class-check233570_ - _struct-check233571_ - _struct-assert233572_))) - (let ((__tmp244737 - (lambda (_g234443234446_ - _g234444234448_) + _g234369234371_ + _self233496_ + _$t233497_ + _methods233498_ + _slots233499_ + _class-check233500_ + _struct-check233501_ + _struct-assert233502_))) + (let ((__tmp244667 + (lambda (_g234373234376_ + _g234374234378_) (let () (declare (not safe)) - (cons _g234443234446_ - _g234444234448_))))) + (cons _g234373234376_ + _g234374234378_))))) (declare (not safe)) - (foldr1 __tmp244737 '() _L234395_))))) - (let ((__tmp244738 - (let ((__tmp244739 - (let ((__tmp244745 - (let ((__tmp244746 + (foldr1 __tmp244667 '() _L234325_))))) + (let ((__tmp244668 + (let ((__tmp244669 + (let ((__tmp244675 + (let ((__tmp244676 (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp244746))) - (__tmp244740 - (let ((__tmp244744 + (cons '%#ref __tmp244676))) + (__tmp244670 + (let ((__tmp244674 (let () (declare (not safe)) - (_force-e233574_ - _$method234451_))) - (__tmp244741 - (let ((__tmp244742 - (let ((__tmp244743 + (_force-e233504_ + _$method234381_))) + (__tmp244671 + (let ((__tmp244672 + (let ((__tmp244673 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self233566_ '())))) + (cons _self233496_ '())))) (declare (not safe)) - (cons '%#ref __tmp244743)))) + (cons '%#ref __tmp244673)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244742 - _args234452_)))) + (cons __tmp244672 + _args234382_)))) (declare (not safe)) - (cons __tmp244744 __tmp244741)))) + (cons __tmp244674 __tmp244671)))) (declare (not safe)) - (cons __tmp244745 __tmp244740)))) + (cons __tmp244675 __tmp244670)))) (declare (not safe)) - (cons '%#call __tmp244739)))) + (cons '%#call __tmp244669)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244738 _stx233565_))))) - (___kont243861243862_ - (lambda (_L234226_ _L234227_ _L234228_) - (let* ((_$field234260_ - (let ((__tmp244747 + (gxc#xform-wrap-source __tmp244668 _stx233495_))))) + (___kont243791243792_ + (lambda (_L234156_ _L234157_ _L234158_) + (let* ((_$field234190_ + (let ((__tmp244677 (let () (declare (not safe)) - (gx#stx-e _L234226_)))) + (gx#stx-e _L234156_)))) (declare (not safe)) - (table-ref _slots233569_ __tmp244747))) - (__tmp244748 - (let ((__tmp244749 - (let ((__tmp244756 - (let ((__tmp244757 + (table-ref _slots233499_ __tmp244677))) + (__tmp244678 + (let ((__tmp244679 + (let ((__tmp244686 + (let ((__tmp244687 (let () (declare (not safe)) - (cons _$t233567_ '())))) + (cons _$t233497_ '())))) (declare (not safe)) - (cons '%#ref __tmp244757))) - (__tmp244750 - (let ((__tmp244754 - (let ((__tmp244755 + (cons '%#ref __tmp244687))) + (__tmp244680 + (let ((__tmp244684 + (let ((__tmp244685 (let () (declare (not safe)) - (cons _$field234260_ + (cons _$field234190_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp244755))) - (__tmp244751 - (let ((__tmp244752 - (let ((__tmp244753 + (cons '%#ref __tmp244685))) + (__tmp244681 + (let ((__tmp244682 + (let ((__tmp244683 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _self233566_ '())))) + (cons _self233496_ '())))) (declare (not safe)) - (cons '%#ref __tmp244753)))) + (cons '%#ref __tmp244683)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244752 '())))) + (cons __tmp244682 '())))) (declare (not safe)) - (cons __tmp244754 __tmp244751)))) + (cons __tmp244684 __tmp244681)))) (declare (not safe)) - (cons __tmp244756 __tmp244750)))) + (cons __tmp244686 __tmp244680)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp244749)))) + (cons '%#struct-unchecked-ref __tmp244679)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244748 _stx233565_)))) - (___kont243863243864_ - (lambda (_L234100_ _L234101_ _L234102_ _L234103_) - (let ((_$field234138_ - (let ((__tmp244758 + (gxc#xform-wrap-source __tmp244678 _stx233495_)))) + (___kont243793243794_ + (lambda (_L234030_ _L234031_ _L234032_ _L234033_) + (let ((_$field234068_ + (let ((__tmp244688 (let () (declare (not safe)) - (gx#stx-e _L234101_)))) + (gx#stx-e _L234031_)))) (declare (not safe)) - (table-ref _slots233569_ __tmp244758))) - (_expr234139_ + (table-ref _slots233499_ __tmp244688))) + (_expr234069_ (let () (declare (not safe)) (gxc#compile-e__3 - _L234100_ - _self233566_ - _$t233567_ - _methods233568_ - _slots233569_ - _class-check233570_ - _struct-check233571_ - _struct-assert233572_)))) - (let ((__tmp244759 - (let ((__tmp244760 - (let ((__tmp244768 - (let ((__tmp244769 + _L234030_ + _self233496_ + _$t233497_ + _methods233498_ + _slots233499_ + _class-check233500_ + _struct-check233501_ + _struct-assert233502_)))) + (let ((__tmp244689 + (let ((__tmp244690 + (let ((__tmp244698 + (let ((__tmp244699 (let () (declare (not safe)) - (cons _$t233567_ '())))) + (cons _$t233497_ '())))) (declare (not safe)) - (cons '%#ref __tmp244769))) - (__tmp244761 - (let ((__tmp244766 - (let ((__tmp244767 + (cons '%#ref __tmp244699))) + (__tmp244691 + (let ((__tmp244696 + (let ((__tmp244697 (let () (declare (not safe)) - (cons _$field234138_ + (cons _$field234068_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp244767))) - (__tmp244762 - (let ((__tmp244764 - (let ((__tmp244765 + __tmp244697))) + (__tmp244692 + (let ((__tmp244694 + (let ((__tmp244695 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self233566_ '())))) + (cons _self233496_ '())))) (declare (not safe)) - (cons '%#ref __tmp244765))) - (__tmp244763 - (let () (declare (not safe)) (cons _expr234139_ '())))) + (cons '%#ref __tmp244695))) + (__tmp244693 + (let () (declare (not safe)) (cons _expr234069_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244764 - __tmp244763)))) + (cons __tmp244694 + __tmp244693)))) (declare (not safe)) - (cons __tmp244766 __tmp244762)))) + (cons __tmp244696 __tmp244692)))) (declare (not safe)) - (cons __tmp244768 __tmp244761)))) + (cons __tmp244698 __tmp244691)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp244760)))) + (cons '%#struct-unchecked-set! __tmp244690)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244759 _stx233565_))))) - (___kont243865243866_ - (lambda (_L233979_ _L233980_) - (let* ((_slot234002_ + (gxc#xform-wrap-source __tmp244689 _stx233495_))))) + (___kont243795243796_ + (lambda (_L233909_ _L233910_) + (let* ((_slot233932_ (##structure-ref - (let ((__tmp244770 + (let ((__tmp244700 (let () (declare (not safe)) - (gxc#identifier-symbol _L233980_)))) + (gxc#identifier-symbol _L233910_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp244770)) + (gxc#optimizer-resolve-type __tmp244700)) '2 gxc#!accessor::t '#f)) - (_$field234004_ + (_$field233934_ (let () (declare (not safe)) - (table-ref _slots233569_ _slot234002_)))) - (let ((__tmp244771 - (let ((__tmp244772 - (let ((__tmp244779 - (let ((__tmp244780 + (table-ref _slots233499_ _slot233932_)))) + (let ((__tmp244701 + (let ((__tmp244702 + (let ((__tmp244709 + (let ((__tmp244710 (let () (declare (not safe)) - (cons _$t233567_ '())))) + (cons _$t233497_ '())))) (declare (not safe)) - (cons '%#ref __tmp244780))) - (__tmp244773 - (let ((__tmp244777 - (let ((__tmp244778 + (cons '%#ref __tmp244710))) + (__tmp244703 + (let ((__tmp244707 + (let ((__tmp244708 (let () (declare (not safe)) - (cons _$field234004_ + (cons _$field233934_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp244778))) - (__tmp244774 - (let ((__tmp244775 - (let ((__tmp244776 + __tmp244708))) + (__tmp244704 + (let ((__tmp244705 + (let ((__tmp244706 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self233566_ '())))) + (cons _self233496_ '())))) (declare (not safe)) - (cons '%#ref __tmp244776)))) + (cons '%#ref __tmp244706)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244775 '())))) + (cons __tmp244705 '())))) (declare (not safe)) - (cons __tmp244777 __tmp244774)))) + (cons __tmp244707 __tmp244704)))) (declare (not safe)) - (cons __tmp244779 __tmp244773)))) + (cons __tmp244709 __tmp244703)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp244772)))) + (cons '%#struct-unchecked-ref __tmp244702)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244771 _stx233565_))))) - (___kont243867243868_ - (lambda (_L233880_ _L233881_ _L233882_) - (let* ((_slot233911_ + (gxc#xform-wrap-source __tmp244701 _stx233495_))))) + (___kont243797243798_ + (lambda (_L233810_ _L233811_ _L233812_) + (let* ((_slot233841_ (##structure-ref - (let ((__tmp244781 + (let ((__tmp244711 (let () (declare (not safe)) - (gxc#identifier-symbol _L233882_)))) + (gxc#identifier-symbol _L233812_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp244781)) + (gxc#optimizer-resolve-type __tmp244711)) '2 gxc#!mutator::t '#f)) - (_$field233913_ + (_$field233843_ (let () (declare (not safe)) - (table-ref _slots233569_ _slot233911_))) - (_expr233915_ + (table-ref _slots233499_ _slot233841_))) + (_expr233845_ (let () (declare (not safe)) (gxc#compile-e__3 - _L233880_ - _self233566_ - _$t233567_ - _methods233568_ - _slots233569_ - _class-check233570_ - _struct-check233571_ - _struct-assert233572_)))) - (let ((__tmp244782 - (let ((__tmp244783 - (let ((__tmp244791 - (let ((__tmp244792 + _L233810_ + _self233496_ + _$t233497_ + _methods233498_ + _slots233499_ + _class-check233500_ + _struct-check233501_ + _struct-assert233502_)))) + (let ((__tmp244712 + (let ((__tmp244713 + (let ((__tmp244721 + (let ((__tmp244722 (let () (declare (not safe)) - (cons _$t233567_ '())))) + (cons _$t233497_ '())))) (declare (not safe)) - (cons '%#ref __tmp244792))) - (__tmp244784 - (let ((__tmp244789 - (let ((__tmp244790 + (cons '%#ref __tmp244722))) + (__tmp244714 + (let ((__tmp244719 + (let ((__tmp244720 (let () (declare (not safe)) - (cons _$field233913_ + (cons _$field233843_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp244790))) - (__tmp244785 - (let ((__tmp244787 - (let ((__tmp244788 + __tmp244720))) + (__tmp244715 + (let ((__tmp244717 + (let ((__tmp244718 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self233566_ '())))) + (cons _self233496_ '())))) (declare (not safe)) - (cons '%#ref __tmp244788))) - (__tmp244786 - (let () (declare (not safe)) (cons _expr233915_ '())))) + (cons '%#ref __tmp244718))) + (__tmp244716 + (let () (declare (not safe)) (cons _expr233845_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244787 - __tmp244786)))) + (cons __tmp244717 + __tmp244716)))) (declare (not safe)) - (cons __tmp244789 __tmp244785)))) + (cons __tmp244719 __tmp244715)))) (declare (not safe)) - (cons __tmp244791 __tmp244784)))) + (cons __tmp244721 __tmp244714)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp244783)))) + (cons '%#struct-unchecked-set! __tmp244713)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244782 _stx233565_))))) - (___kont243869243870_ + (gxc#xform-wrap-source __tmp244712 _stx233495_))))) + (___kont243799243800_ (lambda () (let () (declare (not safe)) (gxc#xform-operands - _stx233565_ - _self233566_ - _$t233567_ - _methods233568_ - _slots233569_ - _class-check233570_ - _struct-check233571_ - _struct-assert233572_))))) - (let* ((___match244350244351_ - (lambda (_e233778233816_ - _hd233777233819_ - _tl233776233821_ - _e233781233824_ - _hd233780233827_ - _tl233779233829_ - _e233784233832_ - _hd233783233835_ - _tl233782233837_ - _e233787233840_ - _hd233786233843_ - _tl233785233845_ - _e233790233848_ - _hd233789233851_ - _tl233788233853_ - _e233793233856_ - _hd233792233859_ - _tl233791233861_ - _e233796233864_ - _hd233795233867_ - _tl233794233869_ - _e233799233872_ - _hd233798233875_ - _tl233797233877_) - (let ((_L233880_ _hd233798233875_) - (_L233881_ _hd233795233867_) - (_L233882_ _hd233786233843_)) + _stx233495_ + _self233496_ + _$t233497_ + _methods233498_ + _slots233499_ + _class-check233500_ + _struct-check233501_ + _struct-assert233502_))))) + (let* ((___match244280244281_ + (lambda (_e233708233746_ + _hd233707233749_ + _tl233706233751_ + _e233711233754_ + _hd233710233757_ + _tl233709233759_ + _e233714233762_ + _hd233713233765_ + _tl233712233767_ + _e233717233770_ + _hd233716233773_ + _tl233715233775_ + _e233720233778_ + _hd233719233781_ + _tl233718233783_ + _e233723233786_ + _hd233722233789_ + _tl233721233791_ + _e233726233794_ + _hd233725233797_ + _tl233724233799_ + _e233729233802_ + _hd233728233805_ + _tl233727233807_) + (let ((_L233810_ _hd233728233805_) + (_L233811_ _hd233725233797_) + (_L233812_ _hd233716233773_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L233881_ - _self233566_)) - (let ((__tmp244793 - (let ((__tmp244794 + _L233811_ + _self233496_)) + (let ((__tmp244723 + (let ((__tmp244724 (let () (declare (not safe)) (gxc#identifier-symbol - _L233882_)))) + _L233812_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp244794)))) + __tmp244724)))) (declare (not safe)) (##structure-instance-of? - __tmp244793 + __tmp244723 'gxc#!mutator::t))) - (___kont243867243868_ - _L233880_ - _L233881_ - _L233882_) - (___kont243869243870_))))) - (___match244348244349_ - (lambda (_e233778233816_ - _hd233777233819_ - _tl233776233821_ - _e233781233824_ - _hd233780233827_ - _tl233779233829_ - _e233784233832_ - _hd233783233835_ - _tl233782233837_ - _e233787233840_ - _hd233786233843_ - _tl233785233845_ - _e233790233848_ - _hd233789233851_ - _tl233788233853_ - _e233793233856_ - _hd233792233859_ - _tl233791233861_ - _e233796233864_ - _hd233795233867_ - _tl233794233869_ - _e233799233872_ - _hd233798233875_ - _tl233797233877_) + (___kont243797243798_ + _L233810_ + _L233811_ + _L233812_) + (___kont243799243800_))))) + (___match244278244279_ + (lambda (_e233708233746_ + _hd233707233749_ + _tl233706233751_ + _e233711233754_ + _hd233710233757_ + _tl233709233759_ + _e233714233762_ + _hd233713233765_ + _tl233712233767_ + _e233717233770_ + _hd233716233773_ + _tl233715233775_ + _e233720233778_ + _hd233719233781_ + _tl233718233783_ + _e233723233786_ + _hd233722233789_ + _tl233721233791_ + _e233726233794_ + _hd233725233797_ + _tl233724233799_ + _e233729233802_ + _hd233728233805_ + _tl233727233807_) (if (let () (declare (not safe)) - (gx#stx-null? _tl233797233877_)) - (___match244350244351_ - _e233778233816_ - _hd233777233819_ - _tl233776233821_ - _e233781233824_ - _hd233780233827_ - _tl233779233829_ - _e233784233832_ - _hd233783233835_ - _tl233782233837_ - _e233787233840_ - _hd233786233843_ - _tl233785233845_ - _e233790233848_ - _hd233789233851_ - _tl233788233853_ - _e233793233856_ - _hd233792233859_ - _tl233791233861_ - _e233796233864_ - _hd233795233867_ - _tl233794233869_ - _e233799233872_ - _hd233798233875_ - _tl233797233877_) - (___kont243869243870_)))) - (___match244342244343_ - (lambda (_e233778233816_ - _hd233777233819_ - _tl233776233821_ - _e233781233824_ - _hd233780233827_ - _tl233779233829_ - _e233784233832_ - _hd233783233835_ - _tl233782233837_ - _e233787233840_ - _hd233786233843_ - _tl233785233845_ - _e233790233848_ - _hd233789233851_ - _tl233788233853_ - _e233793233856_ - _hd233792233859_ - _tl233791233861_ - _e233796233864_ - _hd233795233867_ - _tl233794233869_) + (gx#stx-null? _tl233727233807_)) + (___match244280244281_ + _e233708233746_ + _hd233707233749_ + _tl233706233751_ + _e233711233754_ + _hd233710233757_ + _tl233709233759_ + _e233714233762_ + _hd233713233765_ + _tl233712233767_ + _e233717233770_ + _hd233716233773_ + _tl233715233775_ + _e233720233778_ + _hd233719233781_ + _tl233718233783_ + _e233723233786_ + _hd233722233789_ + _tl233721233791_ + _e233726233794_ + _hd233725233797_ + _tl233724233799_ + _e233729233802_ + _hd233728233805_ + _tl233727233807_) + (___kont243799243800_)))) + (___match244272244273_ + (lambda (_e233708233746_ + _hd233707233749_ + _tl233706233751_ + _e233711233754_ + _hd233710233757_ + _tl233709233759_ + _e233714233762_ + _hd233713233765_ + _tl233712233767_ + _e233717233770_ + _hd233716233773_ + _tl233715233775_ + _e233720233778_ + _hd233719233781_ + _tl233718233783_ + _e233723233786_ + _hd233722233789_ + _tl233721233791_ + _e233726233794_ + _hd233725233797_ + _tl233724233799_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233788233853_)) - (let ((_e233799233872_ + (gx#stx-pair? _tl233718233783_)) + (let ((_e233729233802_ (let () (declare (not safe)) - (gx#stx-e _tl233788233853_)))) - (let ((_tl233797233877_ + (gx#stx-e _tl233718233783_)))) + (let ((_tl233727233807_ (let () (declare (not safe)) - (##cdr _e233799233872_))) - (_hd233798233875_ + (##cdr _e233729233802_))) + (_hd233728233805_ (let () (declare (not safe)) - (##car _e233799233872_)))) + (##car _e233729233802_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233797233877_)) - (___match244350244351_ - _e233778233816_ - _hd233777233819_ - _tl233776233821_ - _e233781233824_ - _hd233780233827_ - _tl233779233829_ - _e233784233832_ - _hd233783233835_ - _tl233782233837_ - _e233787233840_ - _hd233786233843_ - _tl233785233845_ - _e233790233848_ - _hd233789233851_ - _tl233788233853_ - _e233793233856_ - _hd233792233859_ - _tl233791233861_ - _e233796233864_ - _hd233795233867_ - _tl233794233869_ - _e233799233872_ - _hd233798233875_ - _tl233797233877_) - (___kont243869243870_)))) - (___kont243869243870_)))) - (___match244288244289_ - (lambda (_e233754233923_ - _hd233753233926_ - _tl233752233928_ - _e233757233931_ - _hd233756233934_ - _tl233755233936_ - _e233760233939_ - _hd233759233942_ - _tl233758233944_ - _e233763233947_ - _hd233762233950_ - _tl233761233952_ - _e233766233955_ - _hd233765233958_ - _tl233764233960_ - _e233769233963_ - _hd233768233966_ - _tl233767233968_ - _e233772233971_ - _hd233771233974_ - _tl233770233976_) - (let ((_L233979_ _hd233771233974_) - (_L233980_ _hd233762233950_)) + (gx#stx-null? _tl233727233807_)) + (___match244280244281_ + _e233708233746_ + _hd233707233749_ + _tl233706233751_ + _e233711233754_ + _hd233710233757_ + _tl233709233759_ + _e233714233762_ + _hd233713233765_ + _tl233712233767_ + _e233717233770_ + _hd233716233773_ + _tl233715233775_ + _e233720233778_ + _hd233719233781_ + _tl233718233783_ + _e233723233786_ + _hd233722233789_ + _tl233721233791_ + _e233726233794_ + _hd233725233797_ + _tl233724233799_ + _e233729233802_ + _hd233728233805_ + _tl233727233807_) + (___kont243799243800_)))) + (___kont243799243800_)))) + (___match244218244219_ + (lambda (_e233684233853_ + _hd233683233856_ + _tl233682233858_ + _e233687233861_ + _hd233686233864_ + _tl233685233866_ + _e233690233869_ + _hd233689233872_ + _tl233688233874_ + _e233693233877_ + _hd233692233880_ + _tl233691233882_ + _e233696233885_ + _hd233695233888_ + _tl233694233890_ + _e233699233893_ + _hd233698233896_ + _tl233697233898_ + _e233702233901_ + _hd233701233904_ + _tl233700233906_) + (let ((_L233909_ _hd233701233904_) + (_L233910_ _hd233692233880_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L233979_ - _self233566_)) - (let ((__tmp244795 - (let ((__tmp244796 + _L233909_ + _self233496_)) + (let ((__tmp244725 + (let ((__tmp244726 (let () (declare (not safe)) (gxc#identifier-symbol - _L233980_)))) + _L233910_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp244796)))) + __tmp244726)))) (declare (not safe)) (##structure-instance-of? - __tmp244795 + __tmp244725 'gxc#!accessor::t))) - (___kont243865243866_ _L233979_ _L233980_) - (___kont243869243870_))))) - (___match244286244287_ - (lambda (_e233754233923_ - _hd233753233926_ - _tl233752233928_ - _e233757233931_ - _hd233756233934_ - _tl233755233936_ - _e233760233939_ - _hd233759233942_ - _tl233758233944_ - _e233763233947_ - _hd233762233950_ - _tl233761233952_ - _e233766233955_ - _hd233765233958_ - _tl233764233960_ - _e233769233963_ - _hd233768233966_ - _tl233767233968_ - _e233772233971_ - _hd233771233974_ - _tl233770233976_) + (___kont243795243796_ _L233909_ _L233910_) + (___kont243799243800_))))) + (___match244216244217_ + (lambda (_e233684233853_ + _hd233683233856_ + _tl233682233858_ + _e233687233861_ + _hd233686233864_ + _tl233685233866_ + _e233690233869_ + _hd233689233872_ + _tl233688233874_ + _e233693233877_ + _hd233692233880_ + _tl233691233882_ + _e233696233885_ + _hd233695233888_ + _tl233694233890_ + _e233699233893_ + _hd233698233896_ + _tl233697233898_ + _e233702233901_ + _hd233701233904_ + _tl233700233906_) (if (let () (declare (not safe)) - (gx#stx-null? _tl233764233960_)) - (___match244288244289_ - _e233754233923_ - _hd233753233926_ - _tl233752233928_ - _e233757233931_ - _hd233756233934_ - _tl233755233936_ - _e233760233939_ - _hd233759233942_ - _tl233758233944_ - _e233763233947_ - _hd233762233950_ - _tl233761233952_ - _e233766233955_ - _hd233765233958_ - _tl233764233960_ - _e233769233963_ - _hd233768233966_ - _tl233767233968_ - _e233772233971_ - _hd233771233974_ - _tl233770233976_) - (___match244342244343_ - _e233754233923_ - _hd233753233926_ - _tl233752233928_ - _e233757233931_ - _hd233756233934_ - _tl233755233936_ - _e233760233939_ - _hd233759233942_ - _tl233758233944_ - _e233763233947_ - _hd233762233950_ - _tl233761233952_ - _e233766233955_ - _hd233765233958_ - _tl233764233960_ - _e233769233963_ - _hd233768233966_ - _tl233767233968_ - _e233772233971_ - _hd233771233974_ - _tl233770233976_)))) - (___match244232244233_ - (lambda (_e233719234012_ - _hd233718234015_ - _tl233717234017_ - _e233722234020_ - _hd233721234023_ - _tl233720234025_ - _e233725234028_ - _hd233724234031_ - _tl233723234033_ - _e233728234036_ - _hd233727234039_ - _tl233726234041_ - _e233731234044_ - _hd233730234047_ - _tl233729234049_ - _e233734234052_ - _hd233733234055_ - _tl233732234057_ - _e233737234060_ - _hd233736234063_ - _tl233735234065_ - _e233740234068_ - _hd233739234071_ - _tl233738234073_ - _e233743234076_ - _hd233742234079_ - _tl233741234081_ - _e233746234084_ - _hd233745234087_ - _tl233744234089_ - _e233749234092_ - _hd233748234095_ - _tl233747234097_) - (let ((_L234100_ _hd233748234095_) - (_L234101_ _hd233745234087_) - (_L234102_ _hd233736234063_) - (_L234103_ _hd233727234039_)) + (gx#stx-null? _tl233694233890_)) + (___match244218244219_ + _e233684233853_ + _hd233683233856_ + _tl233682233858_ + _e233687233861_ + _hd233686233864_ + _tl233685233866_ + _e233690233869_ + _hd233689233872_ + _tl233688233874_ + _e233693233877_ + _hd233692233880_ + _tl233691233882_ + _e233696233885_ + _hd233695233888_ + _tl233694233890_ + _e233699233893_ + _hd233698233896_ + _tl233697233898_ + _e233702233901_ + _hd233701233904_ + _tl233700233906_) + (___match244272244273_ + _e233684233853_ + _hd233683233856_ + _tl233682233858_ + _e233687233861_ + _hd233686233864_ + _tl233685233866_ + _e233690233869_ + _hd233689233872_ + _tl233688233874_ + _e233693233877_ + _hd233692233880_ + _tl233691233882_ + _e233696233885_ + _hd233695233888_ + _tl233694233890_ + _e233699233893_ + _hd233698233896_ + _tl233697233898_ + _e233702233901_ + _hd233701233904_ + _tl233700233906_)))) + (___match244162244163_ + (lambda (_e233649233942_ + _hd233648233945_ + _tl233647233947_ + _e233652233950_ + _hd233651233953_ + _tl233650233955_ + _e233655233958_ + _hd233654233961_ + _tl233653233963_ + _e233658233966_ + _hd233657233969_ + _tl233656233971_ + _e233661233974_ + _hd233660233977_ + _tl233659233979_ + _e233664233982_ + _hd233663233985_ + _tl233662233987_ + _e233667233990_ + _hd233666233993_ + _tl233665233995_ + _e233670233998_ + _hd233669234001_ + _tl233668234003_ + _e233673234006_ + _hd233672234009_ + _tl233671234011_ + _e233676234014_ + _hd233675234017_ + _tl233674234019_ + _e233679234022_ + _hd233678234025_ + _tl233677234027_) + (let ((_L234030_ _hd233678234025_) + (_L234031_ _hd233675234017_) + (_L234032_ _hd233666233993_) + (_L234033_ _hd233657233969_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L234103_ + _L234033_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L234103_ + _L234033_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L234102_ - _self233566_))) - (___kont243863243864_ - _L234100_ - _L234101_ - _L234102_ - _L234103_) - (___kont243869243870_))))) - (___match244224244225_ - (lambda (_e233719234012_ - _hd233718234015_ - _tl233717234017_ - _e233722234020_ - _hd233721234023_ - _tl233720234025_ - _e233725234028_ - _hd233724234031_ - _tl233723234033_ - _e233728234036_ - _hd233727234039_ - _tl233726234041_ - _e233731234044_ - _hd233730234047_ - _tl233729234049_ - _e233734234052_ - _hd233733234055_ - _tl233732234057_ - _e233737234060_ - _hd233736234063_ - _tl233735234065_ - _e233740234068_ - _hd233739234071_ - _tl233738234073_ - _e233743234076_ - _hd233742234079_ - _tl233741234081_ - _e233746234084_ - _hd233745234087_ - _tl233744234089_) + _L234032_ + _self233496_))) + (___kont243793243794_ + _L234030_ + _L234031_ + _L234032_ + _L234033_) + (___kont243799243800_))))) + (___match244154244155_ + (lambda (_e233649233942_ + _hd233648233945_ + _tl233647233947_ + _e233652233950_ + _hd233651233953_ + _tl233650233955_ + _e233655233958_ + _hd233654233961_ + _tl233653233963_ + _e233658233966_ + _hd233657233969_ + _tl233656233971_ + _e233661233974_ + _hd233660233977_ + _tl233659233979_ + _e233664233982_ + _hd233663233985_ + _tl233662233987_ + _e233667233990_ + _hd233666233993_ + _tl233665233995_ + _e233670233998_ + _hd233669234001_ + _tl233668234003_ + _e233673234006_ + _hd233672234009_ + _tl233671234011_ + _e233676234014_ + _hd233675234017_ + _tl233674234019_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233738234073_)) - (let ((_e233749234092_ + (gx#stx-pair? _tl233668234003_)) + (let ((_e233679234022_ (let () (declare (not safe)) - (gx#stx-e _tl233738234073_)))) - (let ((_tl233747234097_ + (gx#stx-e _tl233668234003_)))) + (let ((_tl233677234027_ (let () (declare (not safe)) - (##cdr _e233749234092_))) - (_hd233748234095_ + (##cdr _e233679234022_))) + (_hd233678234025_ (let () (declare (not safe)) - (##car _e233749234092_)))) + (##car _e233679234022_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233747234097_)) - (___match244232244233_ - _e233719234012_ - _hd233718234015_ - _tl233717234017_ - _e233722234020_ - _hd233721234023_ - _tl233720234025_ - _e233725234028_ - _hd233724234031_ - _tl233723234033_ - _e233728234036_ - _hd233727234039_ - _tl233726234041_ - _e233731234044_ - _hd233730234047_ - _tl233729234049_ - _e233734234052_ - _hd233733234055_ - _tl233732234057_ - _e233737234060_ - _hd233736234063_ - _tl233735234065_ - _e233740234068_ - _hd233739234071_ - _tl233738234073_ - _e233743234076_ - _hd233742234079_ - _tl233741234081_ - _e233746234084_ - _hd233745234087_ - _tl233744234089_ - _e233749234092_ - _hd233748234095_ - _tl233747234097_) - (___kont243869243870_)))) - (___match244348244349_ - _e233719234012_ - _hd233718234015_ - _tl233717234017_ - _e233722234020_ - _hd233721234023_ - _tl233720234025_ - _e233725234028_ - _hd233724234031_ - _tl233723234033_ - _e233728234036_ - _hd233727234039_ - _tl233726234041_ - _e233731234044_ - _hd233730234047_ - _tl233729234049_ - _e233734234052_ - _hd233733234055_ - _tl233732234057_ - _e233737234060_ - _hd233736234063_ - _tl233735234065_ - _e233740234068_ - _hd233739234071_ - _tl233738234073_)))) - (___match244146244147_ - (lambda (_e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_ - _e233709234210_ - _hd233708234213_ - _tl233707234215_ - _e233712234218_ - _hd233711234221_ - _tl233710234223_) - (let ((_L234226_ _hd233711234221_) - (_L234227_ _hd233702234197_) - (_L234228_ _hd233693234173_)) + (gx#stx-null? _tl233677234027_)) + (___match244162244163_ + _e233649233942_ + _hd233648233945_ + _tl233647233947_ + _e233652233950_ + _hd233651233953_ + _tl233650233955_ + _e233655233958_ + _hd233654233961_ + _tl233653233963_ + _e233658233966_ + _hd233657233969_ + _tl233656233971_ + _e233661233974_ + _hd233660233977_ + _tl233659233979_ + _e233664233982_ + _hd233663233985_ + _tl233662233987_ + _e233667233990_ + _hd233666233993_ + _tl233665233995_ + _e233670233998_ + _hd233669234001_ + _tl233668234003_ + _e233673234006_ + _hd233672234009_ + _tl233671234011_ + _e233676234014_ + _hd233675234017_ + _tl233674234019_ + _e233679234022_ + _hd233678234025_ + _tl233677234027_) + (___kont243799243800_)))) + (___match244278244279_ + _e233649233942_ + _hd233648233945_ + _tl233647233947_ + _e233652233950_ + _hd233651233953_ + _tl233650233955_ + _e233655233958_ + _hd233654233961_ + _tl233653233963_ + _e233658233966_ + _hd233657233969_ + _tl233656233971_ + _e233661233974_ + _hd233660233977_ + _tl233659233979_ + _e233664233982_ + _hd233663233985_ + _tl233662233987_ + _e233667233990_ + _hd233666233993_ + _tl233665233995_ + _e233670233998_ + _hd233669234001_ + _tl233668234003_)))) + (___match244076244077_ + (lambda (_e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_ + _e233639234140_ + _hd233638234143_ + _tl233637234145_ + _e233642234148_ + _hd233641234151_ + _tl233640234153_) + (let ((_L234156_ _hd233641234151_) + (_L234157_ _hd233632234127_) + (_L234158_ _hd233623234103_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L234228_ + _L234158_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L234228_ + _L234158_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L234227_ - _self233566_))) - (___kont243861243862_ - _L234226_ - _L234227_ - _L234228_) - (___match244350244351_ - _e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_))))) - (___match244144244145_ - (lambda (_e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_ - _e233709234210_ - _hd233708234213_ - _tl233707234215_ - _e233712234218_ - _hd233711234221_ - _tl233710234223_) + _L234157_ + _self233496_))) + (___kont243791243792_ + _L234156_ + _L234157_ + _L234158_) + (___match244280244281_ + _e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_))))) + (___match244074244075_ + (lambda (_e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_ + _e233639234140_ + _hd233638234143_ + _tl233637234145_ + _e233642234148_ + _hd233641234151_ + _tl233640234153_) (if (let () (declare (not safe)) - (gx#stx-null? _tl233704234207_)) - (___match244146244147_ - _e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_ - _e233709234210_ - _hd233708234213_ - _tl233707234215_ - _e233712234218_ - _hd233711234221_ - _tl233710234223_) - (___match244224244225_ - _e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_ - _e233709234210_ - _hd233708234213_ - _tl233707234215_ - _e233712234218_ - _hd233711234221_ - _tl233710234223_)))) - (___match244134244135_ - (lambda (_e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_ - _e233709234210_ - _hd233708234213_ - _tl233707234215_) + (gx#stx-null? _tl233634234137_)) + (___match244076244077_ + _e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_ + _e233639234140_ + _hd233638234143_ + _tl233637234145_ + _e233642234148_ + _hd233641234151_ + _tl233640234153_) + (___match244154244155_ + _e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_ + _e233639234140_ + _hd233638234143_ + _tl233637234145_ + _e233642234148_ + _hd233641234151_ + _tl233640234153_)))) + (___match244064244065_ + (lambda (_e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_ + _e233639234140_ + _hd233638234143_ + _tl233637234145_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd233708234213_)) + (gx#stx-eq? '%#quote _hd233638234143_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233707234215_)) - (let ((_e233712234218_ + (gx#stx-pair? _tl233637234145_)) + (let ((_e233642234148_ (let () (declare (not safe)) - (gx#stx-e _tl233707234215_)))) - (let ((_tl233710234223_ + (gx#stx-e _tl233637234145_)))) + (let ((_tl233640234153_ (let () (declare (not safe)) - (##cdr _e233712234218_))) - (_hd233711234221_ + (##cdr _e233642234148_))) + (_hd233641234151_ (let () (declare (not safe)) - (##car _e233712234218_)))) + (##car _e233642234148_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233710234223_)) + (gx#stx-null? _tl233640234153_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl233704234207_)) - (___match244146244147_ - _e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_ - _e233709234210_ - _hd233708234213_ - _tl233707234215_ - _e233712234218_ - _hd233711234221_ - _tl233710234223_) - (___match244224244225_ - _e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_ - _e233709234210_ - _hd233708234213_ - _tl233707234215_ - _e233712234218_ - _hd233711234221_ - _tl233710234223_)) - (___match244348244349_ - _e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_)))) - (___match244348244349_ - _e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_)) - (___match244348244349_ - _e233685234146_ - _hd233684234149_ - _tl233683234151_ - _e233688234154_ - _hd233687234157_ - _tl233686234159_ - _e233691234162_ - _hd233690234165_ - _tl233689234167_ - _e233694234170_ - _hd233693234173_ - _tl233692234175_ - _e233697234178_ - _hd233696234181_ - _tl233695234183_ - _e233700234186_ - _hd233699234189_ - _tl233698234191_ - _e233703234194_ - _hd233702234197_ - _tl233701234199_ - _e233706234202_ - _hd233705234205_ - _tl233704234207_)))) - (___match244066244067_ - (lambda (_e233634234267_ - _hd233633234270_ - _tl233632234272_ - _e233637234275_ - _hd233636234278_ - _tl233635234280_ - _e233640234283_ - _hd233639234286_ - _tl233638234288_ - _e233643234291_ - _hd233642234294_ - _tl233641234296_ - _e233646234299_ - _hd233645234302_ - _tl233644234304_ - _e233649234307_ - _hd233648234310_ - _tl233647234312_ - _e233652234315_ - _hd233651234318_ - _tl233650234320_ - _e233655234323_ - _hd233654234326_ - _tl233653234328_ - _e233658234331_ - _hd233657234334_ - _tl233656234336_ - _e233661234339_ - _hd233660234342_ - _tl233659234344_ - _e233664234347_ - _hd233663234350_ - _tl233662234352_ - _e233667234355_ - _hd233666234358_ - _tl233665234360_ - _e233670234363_ - _hd233669234366_ - _tl233668234368_ - ___splice243859243860_ - _target233671234371_ - _tl233673234373_) - (letrec ((_loop233674234376_ - (lambda (_hd233672234379_ _args233678234381_) + (gx#stx-null? _tl233634234137_)) + (___match244076244077_ + _e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_ + _e233639234140_ + _hd233638234143_ + _tl233637234145_ + _e233642234148_ + _hd233641234151_ + _tl233640234153_) + (___match244154244155_ + _e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_ + _e233639234140_ + _hd233638234143_ + _tl233637234145_ + _e233642234148_ + _hd233641234151_ + _tl233640234153_)) + (___match244278244279_ + _e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_)))) + (___match244278244279_ + _e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_)) + (___match244278244279_ + _e233615234076_ + _hd233614234079_ + _tl233613234081_ + _e233618234084_ + _hd233617234087_ + _tl233616234089_ + _e233621234092_ + _hd233620234095_ + _tl233619234097_ + _e233624234100_ + _hd233623234103_ + _tl233622234105_ + _e233627234108_ + _hd233626234111_ + _tl233625234113_ + _e233630234116_ + _hd233629234119_ + _tl233628234121_ + _e233633234124_ + _hd233632234127_ + _tl233631234129_ + _e233636234132_ + _hd233635234135_ + _tl233634234137_)))) + (___match243996243997_ + (lambda (_e233564234197_ + _hd233563234200_ + _tl233562234202_ + _e233567234205_ + _hd233566234208_ + _tl233565234210_ + _e233570234213_ + _hd233569234216_ + _tl233568234218_ + _e233573234221_ + _hd233572234224_ + _tl233571234226_ + _e233576234229_ + _hd233575234232_ + _tl233574234234_ + _e233579234237_ + _hd233578234240_ + _tl233577234242_ + _e233582234245_ + _hd233581234248_ + _tl233580234250_ + _e233585234253_ + _hd233584234256_ + _tl233583234258_ + _e233588234261_ + _hd233587234264_ + _tl233586234266_ + _e233591234269_ + _hd233590234272_ + _tl233589234274_ + _e233594234277_ + _hd233593234280_ + _tl233592234282_ + _e233597234285_ + _hd233596234288_ + _tl233595234290_ + _e233600234293_ + _hd233599234296_ + _tl233598234298_ + ___splice243789243790_ + _target233601234301_ + _tl233603234303_) + (letrec ((_loop233604234306_ + (lambda (_hd233602234309_ _args233608234311_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233672234379_)) - (let ((_e233675234384_ + (gx#stx-pair? _hd233602234309_)) + (let ((_e233605234314_ (let () (declare (not safe)) - (gx#stx-e _hd233672234379_)))) - (let ((_lp-tl233677234389_ + (gx#stx-e _hd233602234309_)))) + (let ((_lp-tl233607234319_ (let () (declare (not safe)) - (##cdr _e233675234384_))) - (_lp-hd233676234387_ + (##cdr _e233605234314_))) + (_lp-hd233606234317_ (let () (declare (not safe)) - (##car _e233675234384_)))) - (let ((__tmp244797 + (##car _e233605234314_)))) + (let ((__tmp244727 (let () (declare (not safe)) - (cons _lp-hd233676234387_ - _args233678234381_)))) + (cons _lp-hd233606234317_ + _args233608234311_)))) (declare (not safe)) - (_loop233674234376_ - _lp-tl233677234389_ - __tmp244797)))) - (let ((_args233679234392_ - (reverse _args233678234381_))) - (let ((_L234395_ _args233679234392_) - (_L234396_ _hd233669234366_) - (_L234397_ _hd233660234342_) - (_L234398_ _hd233651234318_) - (_L234399_ _hd233642234294_)) + (_loop233604234306_ + _lp-tl233607234319_ + __tmp244727)))) + (let ((_args233609234322_ + (reverse _args233608234311_))) + (let ((_L234325_ _args233609234322_) + (_L234326_ _hd233599234296_) + (_L234327_ _hd233590234272_) + (_L234328_ _hd233581234248_) + (_L234329_ _hd233572234224_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L234399_ + _L234329_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L234398_ + _L234328_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L234397_ - _self233566_))) - (___kont243857243858_ - _L234395_ - _L234396_ - _L234397_ - _L234398_ - _L234399_) - (___kont243869243870_)))))))) + _L234327_ + _self233496_))) + (___kont243787243788_ + _L234325_ + _L234326_ + _L234327_ + _L234328_ + _L234329_) + (___kont243799243800_)))))))) (let () (declare (not safe)) - (_loop233674234376_ _target233671234371_ '()))))) - (___match244024244025_ - (lambda (_e233634234267_ - _hd233633234270_ - _tl233632234272_ - _e233637234275_ - _hd233636234278_ - _tl233635234280_ - _e233640234283_ - _hd233639234286_ - _tl233638234288_ - _e233643234291_ - _hd233642234294_ - _tl233641234296_ - _e233646234299_ - _hd233645234302_ - _tl233644234304_ - _e233649234307_ - _hd233648234310_ - _tl233647234312_ - _e233652234315_ - _hd233651234318_ - _tl233650234320_ - _e233655234323_ - _hd233654234326_ - _tl233653234328_ - _e233658234331_ - _hd233657234334_ - _tl233656234336_) + (_loop233604234306_ _target233601234301_ '()))))) + (___match243954243955_ + (lambda (_e233564234197_ + _hd233563234200_ + _tl233562234202_ + _e233567234205_ + _hd233566234208_ + _tl233565234210_ + _e233570234213_ + _hd233569234216_ + _tl233568234218_ + _e233573234221_ + _hd233572234224_ + _tl233571234226_ + _e233576234229_ + _hd233575234232_ + _tl233574234234_ + _e233579234237_ + _hd233578234240_ + _tl233577234242_ + _e233582234245_ + _hd233581234248_ + _tl233580234250_ + _e233585234253_ + _hd233584234256_ + _tl233583234258_ + _e233588234261_ + _hd233587234264_ + _tl233586234266_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233657234334_)) + (gx#stx-eq? '%#ref _hd233587234264_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233656234336_)) - (let ((_e233661234339_ + (gx#stx-pair? _tl233586234266_)) + (let ((_e233591234269_ (let () (declare (not safe)) - (gx#stx-e _tl233656234336_)))) - (let ((_tl233659234344_ + (gx#stx-e _tl233586234266_)))) + (let ((_tl233589234274_ (let () (declare (not safe)) - (##cdr _e233661234339_))) - (_hd233660234342_ + (##cdr _e233591234269_))) + (_hd233590234272_ (let () (declare (not safe)) - (##car _e233661234339_)))) + (##car _e233591234269_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233659234344_)) + (gx#stx-null? _tl233589234274_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233653234328_)) - (let ((_e233664234347_ + (gx#stx-pair? _tl233583234258_)) + (let ((_e233594234277_ (let () (declare (not safe)) (gx#stx-e - _tl233653234328_)))) - (let ((_tl233662234352_ + _tl233583234258_)))) + (let ((_tl233592234282_ (let () (declare (not safe)) - (##cdr _e233664234347_))) - (_hd233663234350_ + (##cdr _e233594234277_))) + (_hd233593234280_ (let () (declare (not safe)) - (##car _e233664234347_)))) + (##car _e233594234277_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233663234350_)) - (let ((_e233667234355_ + _hd233593234280_)) + (let ((_e233597234285_ (let () (declare (not safe)) (gx#stx-e - _hd233663234350_)))) - (let ((_tl233665234360_ + _hd233593234280_)))) + (let ((_tl233595234290_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233667234355_))) - (_hd233666234358_ - (let () (declare (not safe)) (##car _e233667234355_)))) + (##cdr _e233597234285_))) + (_hd233596234288_ + (let () (declare (not safe)) (##car _e233597234285_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233666234358_)) + (gx#identifier? _hd233596234288_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd233666234358_)) + (gx#stx-eq? '%#quote _hd233596234288_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233665234360_)) - (let ((_e233670234363_ + (gx#stx-pair? _tl233595234290_)) + (let ((_e233600234293_ (let () (declare (not safe)) - (gx#stx-e _tl233665234360_)))) - (let ((_tl233668234368_ + (gx#stx-e _tl233595234290_)))) + (let ((_tl233598234298_ (let () (declare (not safe)) - (##cdr _e233670234363_))) - (_hd233669234366_ + (##cdr _e233600234293_))) + (_hd233599234296_ (let () (declare (not safe)) - (##car _e233670234363_)))) + (##car _e233600234293_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233668234368_)) + (gx#stx-null? _tl233598234298_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233662234352_)) - (let ((___splice243859243860_ + (gx#stx-pair/null? _tl233592234282_)) + (let ((___splice243789243790_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233662234352_ + _tl233592234282_ '0)))) - (let ((_tl233673234373_ + (let ((_tl233603234303_ (let () (declare (not safe)) (##vector-ref - ___splice243859243860_ + ___splice243789243790_ '1))) - (_target233671234371_ + (_target233601234301_ (let () (declare (not safe)) (##vector-ref - ___splice243859243860_ + ___splice243789243790_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233673234373_)) - (___match244066244067_ - _e233634234267_ - _hd233633234270_ - _tl233632234272_ - _e233637234275_ - _hd233636234278_ - _tl233635234280_ - _e233640234283_ - _hd233639234286_ - _tl233638234288_ - _e233643234291_ - _hd233642234294_ - _tl233641234296_ - _e233646234299_ - _hd233645234302_ - _tl233644234304_ - _e233649234307_ - _hd233648234310_ - _tl233647234312_ - _e233652234315_ - _hd233651234318_ - _tl233650234320_ - _e233655234323_ - _hd233654234326_ - _tl233653234328_ - _e233658234331_ - _hd233657234334_ - _tl233656234336_ - _e233661234339_ - _hd233660234342_ - _tl233659234344_ - _e233664234347_ - _hd233663234350_ - _tl233662234352_ - _e233667234355_ - _hd233666234358_ - _tl233665234360_ - _e233670234363_ - _hd233669234366_ - _tl233668234368_ - ___splice243859243860_ - _target233671234371_ - _tl233673234373_) - (___kont243869243870_)))) - (___kont243869243870_)) - (___kont243869243870_)))) - (___kont243869243870_)) - (___kont243869243870_)) - (___kont243869243870_)))) + _tl233603234303_)) + (___match243996243997_ + _e233564234197_ + _hd233563234200_ + _tl233562234202_ + _e233567234205_ + _hd233566234208_ + _tl233565234210_ + _e233570234213_ + _hd233569234216_ + _tl233568234218_ + _e233573234221_ + _hd233572234224_ + _tl233571234226_ + _e233576234229_ + _hd233575234232_ + _tl233574234234_ + _e233579234237_ + _hd233578234240_ + _tl233577234242_ + _e233582234245_ + _hd233581234248_ + _tl233580234250_ + _e233585234253_ + _hd233584234256_ + _tl233583234258_ + _e233588234261_ + _hd233587234264_ + _tl233586234266_ + _e233591234269_ + _hd233590234272_ + _tl233589234274_ + _e233594234277_ + _hd233593234280_ + _tl233592234282_ + _e233597234285_ + _hd233596234288_ + _tl233595234290_ + _e233600234293_ + _hd233599234296_ + _tl233598234298_ + ___splice243789243790_ + _target233601234301_ + _tl233603234303_) + (___kont243799243800_)))) + (___kont243799243800_)) + (___kont243799243800_)))) + (___kont243799243800_)) + (___kont243799243800_)) + (___kont243799243800_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243869243870_)))) - (___match244348244349_ - _e233634234267_ - _hd233633234270_ - _tl233632234272_ - _e233637234275_ - _hd233636234278_ - _tl233635234280_ - _e233640234283_ - _hd233639234286_ - _tl233638234288_ - _e233643234291_ - _hd233642234294_ - _tl233641234296_ - _e233646234299_ - _hd233645234302_ - _tl233644234304_ - _e233649234307_ - _hd233648234310_ - _tl233647234312_ - _e233652234315_ - _hd233651234318_ - _tl233650234320_ - _e233655234323_ - _hd233654234326_ - _tl233653234328_)) - (___match244348244349_ - _e233634234267_ - _hd233633234270_ - _tl233632234272_ - _e233637234275_ - _hd233636234278_ - _tl233635234280_ - _e233640234283_ - _hd233639234286_ - _tl233638234288_ - _e233643234291_ - _hd233642234294_ - _tl233641234296_ - _e233646234299_ - _hd233645234302_ - _tl233644234304_ - _e233649234307_ - _hd233648234310_ - _tl233647234312_ - _e233652234315_ - _hd233651234318_ - _tl233650234320_ - _e233655234323_ - _hd233654234326_ - _tl233653234328_)))) - (___match244348244349_ - _e233634234267_ - _hd233633234270_ - _tl233632234272_ - _e233637234275_ - _hd233636234278_ - _tl233635234280_ - _e233640234283_ - _hd233639234286_ - _tl233638234288_ - _e233643234291_ - _hd233642234294_ - _tl233641234296_ - _e233646234299_ - _hd233645234302_ - _tl233644234304_ - _e233649234307_ - _hd233648234310_ - _tl233647234312_ - _e233652234315_ - _hd233651234318_ - _tl233650234320_ - _e233655234323_ - _hd233654234326_ - _tl233653234328_)) - (___match244134244135_ - _e233634234267_ - _hd233633234270_ - _tl233632234272_ - _e233637234275_ - _hd233636234278_ - _tl233635234280_ - _e233640234283_ - _hd233639234286_ - _tl233638234288_ - _e233643234291_ - _hd233642234294_ - _tl233641234296_ - _e233646234299_ - _hd233645234302_ - _tl233644234304_ - _e233649234307_ - _hd233648234310_ - _tl233647234312_ - _e233652234315_ - _hd233651234318_ - _tl233650234320_ - _e233655234323_ - _hd233654234326_ - _tl233653234328_ - _e233658234331_ - _hd233657234334_ - _tl233656234336_)))) - (___match243956243957_ - (lambda (_e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_ - _e233611234515_ - _hd233610234518_ - _tl233609234520_ - _e233614234523_ - _hd233613234526_ - _tl233612234528_ - _e233617234531_ - _hd233616234534_ - _tl233615234536_ - ___splice243855243856_ - _target233618234539_ - _tl233620234541_) - (letrec ((_loop233621234544_ - (lambda (_hd233619234547_ _args233625234549_) + (___kont243799243800_)))) + (___match244278244279_ + _e233564234197_ + _hd233563234200_ + _tl233562234202_ + _e233567234205_ + _hd233566234208_ + _tl233565234210_ + _e233570234213_ + _hd233569234216_ + _tl233568234218_ + _e233573234221_ + _hd233572234224_ + _tl233571234226_ + _e233576234229_ + _hd233575234232_ + _tl233574234234_ + _e233579234237_ + _hd233578234240_ + _tl233577234242_ + _e233582234245_ + _hd233581234248_ + _tl233580234250_ + _e233585234253_ + _hd233584234256_ + _tl233583234258_)) + (___match244278244279_ + _e233564234197_ + _hd233563234200_ + _tl233562234202_ + _e233567234205_ + _hd233566234208_ + _tl233565234210_ + _e233570234213_ + _hd233569234216_ + _tl233568234218_ + _e233573234221_ + _hd233572234224_ + _tl233571234226_ + _e233576234229_ + _hd233575234232_ + _tl233574234234_ + _e233579234237_ + _hd233578234240_ + _tl233577234242_ + _e233582234245_ + _hd233581234248_ + _tl233580234250_ + _e233585234253_ + _hd233584234256_ + _tl233583234258_)))) + (___match244278244279_ + _e233564234197_ + _hd233563234200_ + _tl233562234202_ + _e233567234205_ + _hd233566234208_ + _tl233565234210_ + _e233570234213_ + _hd233569234216_ + _tl233568234218_ + _e233573234221_ + _hd233572234224_ + _tl233571234226_ + _e233576234229_ + _hd233575234232_ + _tl233574234234_ + _e233579234237_ + _hd233578234240_ + _tl233577234242_ + _e233582234245_ + _hd233581234248_ + _tl233580234250_ + _e233585234253_ + _hd233584234256_ + _tl233583234258_)) + (___match244064244065_ + _e233564234197_ + _hd233563234200_ + _tl233562234202_ + _e233567234205_ + _hd233566234208_ + _tl233565234210_ + _e233570234213_ + _hd233569234216_ + _tl233568234218_ + _e233573234221_ + _hd233572234224_ + _tl233571234226_ + _e233576234229_ + _hd233575234232_ + _tl233574234234_ + _e233579234237_ + _hd233578234240_ + _tl233577234242_ + _e233582234245_ + _hd233581234248_ + _tl233580234250_ + _e233585234253_ + _hd233584234256_ + _tl233583234258_ + _e233588234261_ + _hd233587234264_ + _tl233586234266_)))) + (___match243886243887_ + (lambda (_e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_ + _e233541234445_ + _hd233540234448_ + _tl233539234450_ + _e233544234453_ + _hd233543234456_ + _tl233542234458_ + _e233547234461_ + _hd233546234464_ + _tl233545234466_ + ___splice243785243786_ + _target233548234469_ + _tl233550234471_) + (letrec ((_loop233551234474_ + (lambda (_hd233549234477_ _args233555234479_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233619234547_)) - (let ((_e233622234552_ + (gx#stx-pair? _hd233549234477_)) + (let ((_e233552234482_ (let () (declare (not safe)) - (gx#stx-e _hd233619234547_)))) - (let ((_lp-tl233624234557_ + (gx#stx-e _hd233549234477_)))) + (let ((_lp-tl233554234487_ (let () (declare (not safe)) - (##cdr _e233622234552_))) - (_lp-hd233623234555_ + (##cdr _e233552234482_))) + (_lp-hd233553234485_ (let () (declare (not safe)) - (##car _e233622234552_)))) - (let ((__tmp244798 + (##car _e233552234482_)))) + (let ((__tmp244728 (let () (declare (not safe)) - (cons _lp-hd233623234555_ - _args233625234549_)))) + (cons _lp-hd233553234485_ + _args233555234479_)))) (declare (not safe)) - (_loop233621234544_ - _lp-tl233624234557_ - __tmp244798)))) - (let ((_args233626234560_ - (reverse _args233625234549_))) - (let ((_L234563_ _args233626234560_) - (_L234564_ _hd233616234534_) - (_L234565_ _hd233607234510_) - (_L234566_ _hd233598234486_)) + (_loop233551234474_ + _lp-tl233554234487_ + __tmp244728)))) + (let ((_args233556234490_ + (reverse _args233555234479_))) + (let ((_L234493_ _args233556234490_) + (_L234494_ _hd233546234464_) + (_L234495_ _hd233537234440_) + (_L234496_ _hd233528234416_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L234566_ + _L234496_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L234565_ - _self233566_))) - (___kont243853243854_ - _L234563_ - _L234564_ - _L234565_ - _L234566_) - (___match244144244145_ - _e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_ - _e233611234515_ - _hd233610234518_ - _tl233609234520_ - _e233614234523_ - _hd233613234526_ - _tl233612234528_ - _e233617234531_ - _hd233616234534_ - _tl233615234536_)))))))) + _L234495_ + _self233496_))) + (___kont243783243784_ + _L234493_ + _L234494_ + _L234495_ + _L234496_) + (___match244074244075_ + _e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_ + _e233541234445_ + _hd233540234448_ + _tl233539234450_ + _e233544234453_ + _hd233543234456_ + _tl233542234458_ + _e233547234461_ + _hd233546234464_ + _tl233545234466_)))))))) (let () (declare (not safe)) - (_loop233621234544_ _target233618234539_ '())))))) + (_loop233551234474_ _target233548234469_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243851243852_)) - (let ((_e233590234459_ + (gx#stx-pair? ___stx243781243782_)) + (let ((_e233520234389_ (let () (declare (not safe)) - (gx#stx-e ___stx243851243852_)))) - (let ((_tl233588234464_ + (gx#stx-e ___stx243781243782_)))) + (let ((_tl233518234394_ (let () (declare (not safe)) - (##cdr _e233590234459_))) - (_hd233589234462_ + (##cdr _e233520234389_))) + (_hd233519234392_ (let () (declare (not safe)) - (##car _e233590234459_)))) + (##car _e233520234389_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233588234464_)) - (let ((_e233593234467_ + (gx#stx-pair? _tl233518234394_)) + (let ((_e233523234397_ (let () (declare (not safe)) - (gx#stx-e _tl233588234464_)))) - (let ((_tl233591234472_ + (gx#stx-e _tl233518234394_)))) + (let ((_tl233521234402_ (let () (declare (not safe)) - (##cdr _e233593234467_))) - (_hd233592234470_ + (##cdr _e233523234397_))) + (_hd233522234400_ (let () (declare (not safe)) - (##car _e233593234467_)))) + (##car _e233523234397_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233592234470_)) - (let ((_e233596234475_ + (gx#stx-pair? _hd233522234400_)) + (let ((_e233526234405_ (let () (declare (not safe)) - (gx#stx-e _hd233592234470_)))) - (let ((_tl233594234480_ + (gx#stx-e _hd233522234400_)))) + (let ((_tl233524234410_ (let () (declare (not safe)) - (##cdr _e233596234475_))) - (_hd233595234478_ + (##cdr _e233526234405_))) + (_hd233525234408_ (let () (declare (not safe)) - (##car _e233596234475_)))) + (##car _e233526234405_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233595234478_)) + _hd233525234408_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233595234478_)) + _hd233525234408_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233594234480_)) - (let ((_e233599234483_ + _tl233524234410_)) + (let ((_e233529234413_ (let () (declare (not safe)) (gx#stx-e - _tl233594234480_)))) - (let ((_tl233597234488_ + _tl233524234410_)))) + (let ((_tl233527234418_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233599234483_))) - (_hd233598234486_ - (let () (declare (not safe)) (##car _e233599234483_)))) + (##cdr _e233529234413_))) + (_hd233528234416_ + (let () (declare (not safe)) (##car _e233529234413_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233597234488_)) + (gx#stx-null? _tl233527234418_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233591234472_)) - (let ((_e233602234491_ + (gx#stx-pair? _tl233521234402_)) + (let ((_e233532234421_ (let () (declare (not safe)) - (gx#stx-e _tl233591234472_)))) - (let ((_tl233600234496_ + (gx#stx-e _tl233521234402_)))) + (let ((_tl233530234426_ (let () (declare (not safe)) - (##cdr _e233602234491_))) - (_hd233601234494_ + (##cdr _e233532234421_))) + (_hd233531234424_ (let () (declare (not safe)) - (##car _e233602234491_)))) + (##car _e233532234421_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233601234494_)) - (let ((_e233605234499_ + (gx#stx-pair? _hd233531234424_)) + (let ((_e233535234429_ (let () (declare (not safe)) - (gx#stx-e _hd233601234494_)))) - (let ((_tl233603234504_ + (gx#stx-e _hd233531234424_)))) + (let ((_tl233533234434_ (let () (declare (not safe)) - (##cdr _e233605234499_))) - (_hd233604234502_ + (##cdr _e233535234429_))) + (_hd233534234432_ (let () (declare (not safe)) - (##car _e233605234499_)))) + (##car _e233535234429_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233604234502_)) + (gx#identifier? _hd233534234432_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233604234502_)) + _hd233534234432_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233603234504_)) - (let ((_e233608234507_ + _tl233533234434_)) + (let ((_e233538234437_ (let () (declare (not safe)) (gx#stx-e - _tl233603234504_)))) - (let ((_tl233606234512_ + _tl233533234434_)))) + (let ((_tl233536234442_ (let () (declare (not safe)) - (##cdr _e233608234507_))) - (_hd233607234510_ + (##cdr _e233538234437_))) + (_hd233537234440_ (let () (declare (not safe)) - (##car _e233608234507_)))) + (##car _e233538234437_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233606234512_)) + _tl233536234442_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233600234496_)) - (let ((_e233611234515_ + _tl233530234426_)) + (let ((_e233541234445_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl233600234496_)))) - (let ((_tl233609234520_ + (gx#stx-e _tl233530234426_)))) + (let ((_tl233539234450_ (let () (declare (not safe)) - (##cdr _e233611234515_))) - (_hd233610234518_ + (##cdr _e233541234445_))) + (_hd233540234448_ (let () (declare (not safe)) - (##car _e233611234515_)))) + (##car _e233541234445_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233610234518_)) - (let ((_e233614234523_ + (gx#stx-pair? _hd233540234448_)) + (let ((_e233544234453_ (let () (declare (not safe)) - (gx#stx-e _hd233610234518_)))) - (let ((_tl233612234528_ + (gx#stx-e _hd233540234448_)))) + (let ((_tl233542234458_ (let () (declare (not safe)) - (##cdr _e233614234523_))) - (_hd233613234526_ + (##cdr _e233544234453_))) + (_hd233543234456_ (let () (declare (not safe)) - (##car _e233614234523_)))) + (##car _e233544234453_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233613234526_)) + (gx#identifier? _hd233543234456_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd233613234526_)) + _hd233543234456_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233612234528_)) - (let ((_e233617234531_ + (gx#stx-pair? _tl233542234458_)) + (let ((_e233547234461_ (let () (declare (not safe)) (gx#stx-e - _tl233612234528_)))) - (let ((_tl233615234536_ + _tl233542234458_)))) + (let ((_tl233545234466_ (let () (declare (not safe)) - (##cdr _e233617234531_))) - (_hd233616234534_ + (##cdr _e233547234461_))) + (_hd233546234464_ (let () (declare (not safe)) - (##car _e233617234531_)))) + (##car _e233547234461_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233615234536_)) + _tl233545234466_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233609234520_)) - (let ((___splice243855243856_ + _tl233539234450_)) + (let ((___splice243785243786_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl233609234520_ '0)))) - (let ((_tl233620234541_ + (gx#syntax-split-splice _tl233539234450_ '0)))) + (let ((_tl233550234471_ (let () (declare (not safe)) - (##vector-ref ___splice243855243856_ '1))) - (_target233618234539_ + (##vector-ref ___splice243785243786_ '1))) + (_target233548234469_ (let () (declare (not safe)) - (##vector-ref ___splice243855243856_ '0)))) + (##vector-ref ___splice243785243786_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233620234541_)) - (___match243956243957_ - _e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_ - _e233611234515_ - _hd233610234518_ - _tl233609234520_ - _e233614234523_ - _hd233613234526_ - _tl233612234528_ - _e233617234531_ - _hd233616234534_ - _tl233615234536_ - ___splice243855243856_ - _target233618234539_ - _tl233620234541_) - (___match244144244145_ - _e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_ - _e233611234515_ - _hd233610234518_ - _tl233609234520_ - _e233614234523_ - _hd233613234526_ - _tl233612234528_ - _e233617234531_ - _hd233616234534_ - _tl233615234536_)))) - (___match244144244145_ - _e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_ - _e233611234515_ - _hd233610234518_ - _tl233609234520_ - _e233614234523_ - _hd233613234526_ - _tl233612234528_ - _e233617234531_ - _hd233616234534_ - _tl233615234536_)) + (gx#stx-null? _tl233550234471_)) + (___match243886243887_ + _e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_ + _e233541234445_ + _hd233540234448_ + _tl233539234450_ + _e233544234453_ + _hd233543234456_ + _tl233542234458_ + _e233547234461_ + _hd233546234464_ + _tl233545234466_ + ___splice243785243786_ + _target233548234469_ + _tl233550234471_) + (___match244074244075_ + _e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_ + _e233541234445_ + _hd233540234448_ + _tl233539234450_ + _e233544234453_ + _hd233543234456_ + _tl233542234458_ + _e233547234461_ + _hd233546234464_ + _tl233545234466_)))) + (___match244074244075_ + _e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_ + _e233541234445_ + _hd233540234448_ + _tl233539234450_ + _e233544234453_ + _hd233543234456_ + _tl233542234458_ + _e233547234461_ + _hd233546234464_ + _tl233545234466_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match244348244349_ - _e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_ - _e233611234515_ - _hd233610234518_ - _tl233609234520_)))) - (___match244348244349_ - _e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_ - _e233611234515_ - _hd233610234518_ - _tl233609234520_)) - (___match244024244025_ - _e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_ - _e233611234515_ - _hd233610234518_ - _tl233609234520_ - _e233614234523_ - _hd233613234526_ - _tl233612234528_)) - (___match244348244349_ - _e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_ - _e233611234515_ - _hd233610234518_ - _tl233609234520_)))) - (___match244348244349_ - _e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_ - _e233611234515_ - _hd233610234518_ - _tl233609234520_)))) - (___match244286244287_ - _e233590234459_ - _hd233589234462_ - _tl233588234464_ - _e233593234467_ - _hd233592234470_ - _tl233591234472_ - _e233596234475_ - _hd233595234478_ - _tl233594234480_ - _e233599234483_ - _hd233598234486_ - _tl233597234488_ - _e233602234491_ - _hd233601234494_ - _tl233600234496_ - _e233605234499_ - _hd233604234502_ - _tl233603234504_ - _e233608234507_ - _hd233607234510_ - _tl233606234512_)) - (___kont243869243870_)))) + (___match244278244279_ + _e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_ + _e233541234445_ + _hd233540234448_ + _tl233539234450_)))) + (___match244278244279_ + _e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_ + _e233541234445_ + _hd233540234448_ + _tl233539234450_)) + (___match243954243955_ + _e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_ + _e233541234445_ + _hd233540234448_ + _tl233539234450_ + _e233544234453_ + _hd233543234456_ + _tl233542234458_)) + (___match244278244279_ + _e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_ + _e233541234445_ + _hd233540234448_ + _tl233539234450_)))) + (___match244278244279_ + _e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_ + _e233541234445_ + _hd233540234448_ + _tl233539234450_)))) + (___match244216244217_ + _e233520234389_ + _hd233519234392_ + _tl233518234394_ + _e233523234397_ + _hd233522234400_ + _tl233521234402_ + _e233526234405_ + _hd233525234408_ + _tl233524234410_ + _e233529234413_ + _hd233528234416_ + _tl233527234418_ + _e233532234421_ + _hd233531234424_ + _tl233530234426_ + _e233535234429_ + _hd233534234432_ + _tl233533234434_ + _e233538234437_ + _hd233537234440_ + _tl233536234442_)) + (___kont243799243800_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243869243870_)) - (___kont243869243870_)) - (___kont243869243870_)))) - (___kont243869243870_)))) - (___kont243869243870_)) - (___kont243869243870_)))) + (___kont243799243800_)) + (___kont243799243800_)) + (___kont243799243800_)))) + (___kont243799243800_)))) + (___kont243799243800_)) + (___kont243799243800_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243869243870_)) - (___kont243869243870_)) - (___kont243869243870_)))) - (___kont243869243870_)))) - (___kont243869243870_)))) - (___kont243869243870_)))))))))) + (___kont243799243800_)) + (___kont243799243800_)) + (___kont243799243800_)))) + (___kont243799243800_)))) + (___kont243799243800_)))) + (___kont243799243800_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index d22b0f5d5..3718150ca 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 1707423042) + (define gerbil/compiler/optimize-top::timestamp 1707565662) (begin (define gxc#&collect-top-level-type-info (make-promise (lambda () - (let ((_tbl226865_ + (let ((_tbl226795_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp233152 (force gxc#&void))) + (let ((__tmp233082 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl226865_ __tmp233152)) + (hash-copy! _tbl226795_ __tmp233082)) (let () (declare (not safe)) - (table-set! _tbl226865_ '%#begin gxc#collect-begin%)) + (table-set! _tbl226795_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl226865_ + _tbl226795_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl226865_ '%#module gxc#collect-module%)) + (table-set! _tbl226795_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl226865_ + _tbl226795_ '%#define-values gxc#collect-top-level-type-define-values%)) - _tbl226865_)))) + _tbl226795_)))) (define gxc#apply-collect-top-level-type-info - (lambda (_stx226848_ . _args226850_) - (let ((__tmp233154 + (lambda (_stx226778_ . _args226780_) + (let ((__tmp233084 (lambda () (declare (not safe)) - (if (null? _args226850_) - (gxc#compile-e__0 _stx226848_) - (let ((_arg1226855_ (car _args226850_)) - (_rest226857_ (cdr _args226850_))) - (if (null? _rest226857_) - (gxc#compile-e__1 _stx226848_ _arg1226855_) - (let ((_arg2226860_ (car _rest226857_)) - (_rest226862_ (cdr _rest226857_))) - (if (null? _rest226862_) + (if (null? _args226780_) + (gxc#compile-e__0 _stx226778_) + (let ((_arg1226785_ (car _args226780_)) + (_rest226787_ (cdr _args226780_))) + (if (null? _rest226787_) + (gxc#compile-e__1 _stx226778_ _arg1226785_) + (let ((_arg2226790_ (car _rest226787_)) + (_rest226792_ (cdr _rest226787_))) + (if (null? _rest226792_) (gxc#compile-e__2 - _stx226848_ - _arg1226855_ - _arg2226860_) + _stx226778_ + _arg1226785_ + _arg2226790_) (apply gxc#compile-e - _stx226848_ - _arg1226855_ - _arg2226860_ - _rest226862_)))))))) - (__tmp233153 (force gxc#&collect-top-level-type-info))) + _stx226778_ + _arg1226785_ + _arg2226790_ + _rest226792_)))))))) + (__tmp233083 (force gxc#&collect-top-level-type-info))) (declare (not safe)) (call-with-parameters - __tmp233154 + __tmp233084 gxc#current-compile-methods - __tmp233153)))) + __tmp233083)))) (define gxc#&basic-expression-top-level-type (make-promise (lambda () - (let ((_tbl226845_ + (let ((_tbl226775_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp233155 (force gxc#&false))) + (let ((__tmp233085 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl226845_ __tmp233155)) + (hash-copy! _tbl226775_ __tmp233085)) (let () (declare (not safe)) (table-set! - _tbl226845_ + _tbl226775_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl226845_ '%#call gxc#basic-expression-type-call%)) - _tbl226845_)))) + (table-set! _tbl226775_ '%#call gxc#basic-expression-type-call%)) + _tbl226775_)))) (define gxc#apply-basic-expression-top-level-type - (lambda (_stx226828_ . _args226830_) - (let ((__tmp233157 + (lambda (_stx226758_ . _args226760_) + (let ((__tmp233087 (lambda () (declare (not safe)) - (if (null? _args226830_) - (gxc#compile-e__0 _stx226828_) - (let ((_arg1226835_ (car _args226830_)) - (_rest226837_ (cdr _args226830_))) - (if (null? _rest226837_) - (gxc#compile-e__1 _stx226828_ _arg1226835_) - (let ((_arg2226840_ (car _rest226837_)) - (_rest226842_ (cdr _rest226837_))) - (if (null? _rest226842_) + (if (null? _args226760_) + (gxc#compile-e__0 _stx226758_) + (let ((_arg1226765_ (car _args226760_)) + (_rest226767_ (cdr _args226760_))) + (if (null? _rest226767_) + (gxc#compile-e__1 _stx226758_ _arg1226765_) + (let ((_arg2226770_ (car _rest226767_)) + (_rest226772_ (cdr _rest226767_))) + (if (null? _rest226772_) (gxc#compile-e__2 - _stx226828_ - _arg1226835_ - _arg2226840_) + _stx226758_ + _arg1226765_ + _arg2226770_) (apply gxc#compile-e - _stx226828_ - _arg1226835_ - _arg2226840_ - _rest226842_)))))))) - (__tmp233156 (force gxc#&basic-expression-top-level-type))) + _stx226758_ + _arg1226765_ + _arg2226770_ + _rest226772_)))))))) + (__tmp233086 (force gxc#&basic-expression-top-level-type))) (declare (not safe)) (call-with-parameters - __tmp233157 + __tmp233087 gxc#current-compile-methods - __tmp233156)))) + __tmp233086)))) (define gxc#&collect-type-info (make-promise (lambda () - (let ((_tbl226825_ + (let ((_tbl226755_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp233158 (force gxc#&void))) + (let ((__tmp233088 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl226825_ __tmp233158)) + (hash-copy! _tbl226755_ __tmp233088)) (let () (declare (not safe)) - (table-set! _tbl226825_ '%#begin gxc#collect-begin%)) + (table-set! _tbl226755_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl226825_ + _tbl226755_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl226825_ '%#module gxc#collect-module%)) + (table-set! _tbl226755_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl226825_ + _tbl226755_ '%#define-values gxc#collect-type-define-values%)) (let () (declare (not safe)) (table-set! - _tbl226825_ + _tbl226755_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl226825_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl226755_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl226825_ + _tbl226755_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl226825_ + _tbl226755_ '%#let-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl226825_ + _tbl226755_ '%#letrec-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl226825_ + _tbl226755_ '%#letrec*-values gxc#collect-type-let-values%)) (let () (declare (not safe)) - (table-set! _tbl226825_ '%#call gxc#collect-type-call%)) + (table-set! _tbl226755_ '%#call gxc#collect-type-call%)) (let () (declare (not safe)) - (table-set! _tbl226825_ '%#if gxc#collect-operands)) + (table-set! _tbl226755_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl226825_ '%#set! gxc#collect-body-setq%)) - _tbl226825_)))) + (table-set! _tbl226755_ '%#set! gxc#collect-body-setq%)) + _tbl226755_)))) (define gxc#apply-collect-type-info - (lambda (_stx226808_ . _args226810_) - (let ((__tmp233160 + (lambda (_stx226738_ . _args226740_) + (let ((__tmp233090 (lambda () (declare (not safe)) - (if (null? _args226810_) - (gxc#compile-e__0 _stx226808_) - (let ((_arg1226815_ (car _args226810_)) - (_rest226817_ (cdr _args226810_))) - (if (null? _rest226817_) - (gxc#compile-e__1 _stx226808_ _arg1226815_) - (let ((_arg2226820_ (car _rest226817_)) - (_rest226822_ (cdr _rest226817_))) - (if (null? _rest226822_) + (if (null? _args226740_) + (gxc#compile-e__0 _stx226738_) + (let ((_arg1226745_ (car _args226740_)) + (_rest226747_ (cdr _args226740_))) + (if (null? _rest226747_) + (gxc#compile-e__1 _stx226738_ _arg1226745_) + (let ((_arg2226750_ (car _rest226747_)) + (_rest226752_ (cdr _rest226747_))) + (if (null? _rest226752_) (gxc#compile-e__2 - _stx226808_ - _arg1226815_ - _arg2226820_) + _stx226738_ + _arg1226745_ + _arg2226750_) (apply gxc#compile-e - _stx226808_ - _arg1226815_ - _arg2226820_ - _rest226822_)))))))) - (__tmp233159 (force gxc#&collect-type-info))) + _stx226738_ + _arg1226745_ + _arg2226750_ + _rest226752_)))))))) + (__tmp233089 (force gxc#&collect-type-info))) (declare (not safe)) (call-with-parameters - __tmp233160 + __tmp233090 gxc#current-compile-methods - __tmp233159)))) + __tmp233089)))) (define gxc#&basic-expression-type (make-promise (lambda () - (let ((_tbl226805_ + (let ((_tbl226735_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp233161 (force gxc#&false))) + (let ((__tmp233091 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl226805_ __tmp233161)) + (hash-copy! _tbl226735_ __tmp233091)) (let () (declare (not safe)) (table-set! - _tbl226805_ + _tbl226735_ '%#begin gxc#basic-expression-type-begin%)) (let () (declare (not safe)) (table-set! - _tbl226805_ + _tbl226735_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) (table-set! - _tbl226805_ + _tbl226735_ '%#lambda gxc#basic-expression-type-lambda%)) (let () (declare (not safe)) (table-set! - _tbl226805_ + _tbl226735_ '%#case-lambda gxc#basic-expression-type-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl226805_ + _tbl226735_ '%#let-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl226805_ + _tbl226735_ '%#letrec-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl226805_ + _tbl226735_ '%#letrec*-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) - (table-set! _tbl226805_ '%#call gxc#basic-expression-type-call%)) + (table-set! _tbl226735_ '%#call gxc#basic-expression-type-call%)) (let () (declare (not safe)) - (table-set! _tbl226805_ '%#ref gxc#basic-expression-type-ref%)) - _tbl226805_)))) + (table-set! _tbl226735_ '%#ref gxc#basic-expression-type-ref%)) + _tbl226735_)))) (define gxc#apply-basic-expression-type - (lambda (_stx226788_ . _args226790_) - (let ((__tmp233163 + (lambda (_stx226718_ . _args226720_) + (let ((__tmp233093 (lambda () (declare (not safe)) - (if (null? _args226790_) - (gxc#compile-e__0 _stx226788_) - (let ((_arg1226795_ (car _args226790_)) - (_rest226797_ (cdr _args226790_))) - (if (null? _rest226797_) - (gxc#compile-e__1 _stx226788_ _arg1226795_) - (let ((_arg2226800_ (car _rest226797_)) - (_rest226802_ (cdr _rest226797_))) - (if (null? _rest226802_) + (if (null? _args226720_) + (gxc#compile-e__0 _stx226718_) + (let ((_arg1226725_ (car _args226720_)) + (_rest226727_ (cdr _args226720_))) + (if (null? _rest226727_) + (gxc#compile-e__1 _stx226718_ _arg1226725_) + (let ((_arg2226730_ (car _rest226727_)) + (_rest226732_ (cdr _rest226727_))) + (if (null? _rest226732_) (gxc#compile-e__2 - _stx226788_ - _arg1226795_ - _arg2226800_) + _stx226718_ + _arg1226725_ + _arg2226730_) (apply gxc#compile-e - _stx226788_ - _arg1226795_ - _arg2226800_ - _rest226802_)))))))) - (__tmp233162 (force gxc#&basic-expression-type))) + _stx226718_ + _arg1226725_ + _arg2226730_ + _rest226732_)))))))) + (__tmp233092 (force gxc#&basic-expression-type))) (declare (not safe)) (call-with-parameters - __tmp233163 + __tmp233093 gxc#current-compile-methods - __tmp233162)))) + __tmp233092)))) (define gxc#&lift-top-lambdas (make-promise (lambda () - (let ((_tbl226785_ + (let ((_tbl226715_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp233164 (force gxc#&basic-xform))) + (let ((__tmp233094 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl226785_ __tmp233164)) + (hash-copy! _tbl226715_ __tmp233094)) (let () (declare (not safe)) (table-set! - _tbl226785_ + _tbl226715_ '%#define-values gxc#lift-top-lambda-define-values%)) (let () (declare (not safe)) (table-set! - _tbl226785_ + _tbl226715_ '%#let-values gxc#lift-top-lambda-let-values%)) (let () (declare (not safe)) (table-set! - _tbl226785_ + _tbl226715_ '%#letrec-values gxc#lift-top-lambda-letrec-values%)) (let () (declare (not safe)) (table-set! - _tbl226785_ + _tbl226715_ '%#letrec*-values gxc#lift-top-lambda-letrec-values%)) - _tbl226785_)))) + _tbl226715_)))) (define gxc#apply-lift-top-lambdas - (lambda (_stx226768_ . _args226770_) - (let ((__tmp233166 + (lambda (_stx226698_ . _args226700_) + (let ((__tmp233096 (lambda () (declare (not safe)) - (if (null? _args226770_) - (gxc#compile-e__0 _stx226768_) - (let ((_arg1226775_ (car _args226770_)) - (_rest226777_ (cdr _args226770_))) - (if (null? _rest226777_) - (gxc#compile-e__1 _stx226768_ _arg1226775_) - (let ((_arg2226780_ (car _rest226777_)) - (_rest226782_ (cdr _rest226777_))) - (if (null? _rest226782_) + (if (null? _args226700_) + (gxc#compile-e__0 _stx226698_) + (let ((_arg1226705_ (car _args226700_)) + (_rest226707_ (cdr _args226700_))) + (if (null? _rest226707_) + (gxc#compile-e__1 _stx226698_ _arg1226705_) + (let ((_arg2226710_ (car _rest226707_)) + (_rest226712_ (cdr _rest226707_))) + (if (null? _rest226712_) (gxc#compile-e__2 - _stx226768_ - _arg1226775_ - _arg2226780_) + _stx226698_ + _arg1226705_ + _arg2226710_) (apply gxc#compile-e - _stx226768_ - _arg1226775_ - _arg2226780_ - _rest226782_)))))))) - (__tmp233165 (force gxc#&lift-top-lambdas))) + _stx226698_ + _arg1226705_ + _arg2226710_ + _rest226712_)))))))) + (__tmp233095 (force gxc#&lift-top-lambdas))) (declare (not safe)) (call-with-parameters - __tmp233166 + __tmp233096 gxc#current-compile-methods - __tmp233165)))) + __tmp233095)))) (define gxc#collect-top-level-type-define-values% - (lambda (_stx226671_) - (let* ((___stx231072231073_ _stx226671_) - (_g226674226694_ + (lambda (_stx226601_) + (let* ((___stx231002231003_ _stx226601_) + (_g226604226624_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx231072231073_))))) - (let ((___kont231074231075_ - (lambda (_L226738_ _L226739_) - (let ((_sym226757_ + ___stx231002231003_))))) + (let ((___kont231004231005_ + (lambda (_L226668_ _L226669_) + (let ((_sym226687_ (let () (declare (not safe)) - (gxc#identifier-symbol _L226739_)))) - (if (let ((__tmp233167 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L226669_)))) + (if (let ((__tmp233097 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp233167 _sym226757_ '#f)) + (table-ref __tmp233097 _sym226687_ '#f)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym226757_)) - (let ((_type226758226760_ + _sym226687_)) + (let ((_type226688226690_ (let () (declare (not safe)) (gxc#apply-basic-expression-top-level-type - _L226738_)))) - (if _type226758226760_ - (let ((_type226763_ _type226758226760_)) + _L226668_)))) + (if _type226688226690_ + (let ((_type226693_ _type226688226690_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym226757_ - _type226763_)) + _sym226687_ + _type226693_)) '#f)))))) - (___kont231076231077_ (lambda () '#!void))) - (let ((___match231105231106_ - (lambda (_e226680226706_ - _hd226679226709_ - _tl226678226711_ - _e226683226714_ - _hd226682226717_ - _tl226681226719_ - _e226686226722_ - _hd226685226725_ - _tl226684226727_ - _e226689226730_ - _hd226688226733_ - _tl226687226735_) - (let ((_L226738_ _hd226688226733_) - (_L226739_ _hd226685226725_)) + (___kont231006231007_ (lambda () '#!void))) + (let ((___match231035231036_ + (lambda (_e226610226636_ + _hd226609226639_ + _tl226608226641_ + _e226613226644_ + _hd226612226647_ + _tl226611226649_ + _e226616226652_ + _hd226615226655_ + _tl226614226657_ + _e226619226660_ + _hd226618226663_ + _tl226617226665_) + (let ((_L226668_ _hd226618226663_) + (_L226669_ _hd226615226655_)) (if (let () (declare (not safe)) - (gx#identifier? _L226739_)) - (___kont231074231075_ _L226738_ _L226739_) - (___kont231076231077_)))))) + (gx#identifier? _L226669_)) + (___kont231004231005_ _L226668_ _L226669_) + (___kont231006231007_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx231072231073_)) - (let ((_e226680226706_ + (gx#stx-pair? ___stx231002231003_)) + (let ((_e226610226636_ (let () (declare (not safe)) - (gx#stx-e ___stx231072231073_)))) - (let ((_tl226678226711_ + (gx#stx-e ___stx231002231003_)))) + (let ((_tl226608226641_ (let () (declare (not safe)) - (##cdr _e226680226706_))) - (_hd226679226709_ + (##cdr _e226610226636_))) + (_hd226609226639_ (let () (declare (not safe)) - (##car _e226680226706_)))) + (##car _e226610226636_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226678226711_)) - (let ((_e226683226714_ + (gx#stx-pair? _tl226608226641_)) + (let ((_e226613226644_ (let () (declare (not safe)) - (gx#stx-e _tl226678226711_)))) - (let ((_tl226681226719_ + (gx#stx-e _tl226608226641_)))) + (let ((_tl226611226649_ (let () (declare (not safe)) - (##cdr _e226683226714_))) - (_hd226682226717_ + (##cdr _e226613226644_))) + (_hd226612226647_ (let () (declare (not safe)) - (##car _e226683226714_)))) + (##car _e226613226644_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226682226717_)) - (let ((_e226686226722_ + (gx#stx-pair? _hd226612226647_)) + (let ((_e226616226652_ (let () (declare (not safe)) - (gx#stx-e _hd226682226717_)))) - (let ((_tl226684226727_ + (gx#stx-e _hd226612226647_)))) + (let ((_tl226614226657_ (let () (declare (not safe)) - (##cdr _e226686226722_))) - (_hd226685226725_ + (##cdr _e226616226652_))) + (_hd226615226655_ (let () (declare (not safe)) - (##car _e226686226722_)))) + (##car _e226616226652_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226684226727_)) + (gx#stx-null? _tl226614226657_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl226681226719_)) - (let ((_e226689226730_ + _tl226611226649_)) + (let ((_e226619226660_ (let () (declare (not safe)) (gx#stx-e - _tl226681226719_)))) - (let ((_tl226687226735_ + _tl226611226649_)))) + (let ((_tl226617226665_ (let () (declare (not safe)) - (##cdr _e226689226730_))) - (_hd226688226733_ + (##cdr _e226619226660_))) + (_hd226618226663_ (let () (declare (not safe)) - (##car _e226689226730_)))) + (##car _e226619226660_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226687226735_)) - (___match231105231106_ - _e226680226706_ - _hd226679226709_ - _tl226678226711_ - _e226683226714_ - _hd226682226717_ - _tl226681226719_ - _e226686226722_ - _hd226685226725_ - _tl226684226727_ - _e226689226730_ - _hd226688226733_ - _tl226687226735_) - (___kont231076231077_)))) - (___kont231076231077_)) - (___kont231076231077_)))) - (___kont231076231077_)))) - (___kont231076231077_)))) - (___kont231076231077_))))))) + _tl226617226665_)) + (___match231035231036_ + _e226610226636_ + _hd226609226639_ + _tl226608226641_ + _e226613226644_ + _hd226612226647_ + _tl226611226649_ + _e226616226652_ + _hd226615226655_ + _tl226614226657_ + _e226619226660_ + _hd226618226663_ + _tl226617226665_) + (___kont231006231007_)))) + (___kont231006231007_)) + (___kont231006231007_)))) + (___kont231006231007_)))) + (___kont231006231007_)))) + (___kont231006231007_))))))) (define gxc#collect-type-define-values% - (lambda (_stx226527_) - (let* ((___stx231108231109_ _stx226527_) - (_g226530226561_ + (lambda (_stx226457_) + (let* ((___stx231038231039_ _stx226457_) + (_g226460226491_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx231108231109_))))) - (let ((___kont231110231111_ - (lambda (_L226643_ _L226644_) - (let ((_sym226660_ + ___stx231038231039_))))) + (let ((___kont231040231041_ + (lambda (_L226573_ _L226574_) + (let ((_sym226590_ (let () (declare (not safe)) - (gxc#identifier-symbol _L226644_)))) - (if (let ((__tmp233168 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L226574_)))) + (if (let ((__tmp233098 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp233168 _sym226660_ '#f)) + (table-ref __tmp233098 _sym226590_ '#f)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym226660_)) + _sym226590_)) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym226660_)) + (gxc#optimizer-lookup-type _sym226590_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for already declared type " - _sym226660_)) - (let ((_type226661226663_ + _sym226590_)) + (let ((_type226591226593_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _L226643_)))) - (if _type226661226663_ - (let ((_type226666_ _type226661226663_)) + _L226573_)))) + (if _type226591226593_ + (let ((_type226596_ _type226591226593_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym226660_ - _type226666_)) + _sym226590_ + _type226596_)) '#f)))) (let () (declare (not safe)) - (gxc#compile-e__0 _L226643_))))) - (___kont231112231113_ - (lambda (_L226590_ _L226591_) + (gxc#compile-e__0 _L226573_))))) + (___kont231042231043_ + (lambda (_L226520_ _L226521_) (let () (declare (not safe)) - (gxc#compile-e__0 _L226590_))))) - (let ((___match231141231142_ - (lambda (_e226536226611_ - _hd226535226614_ - _tl226534226616_ - _e226539226619_ - _hd226538226622_ - _tl226537226624_ - _e226542226627_ - _hd226541226630_ - _tl226540226632_ - _e226545226635_ - _hd226544226638_ - _tl226543226640_) - (let ((_L226643_ _hd226544226638_) - (_L226644_ _hd226541226630_)) + (gxc#compile-e__0 _L226520_))))) + (let ((___match231071231072_ + (lambda (_e226466226541_ + _hd226465226544_ + _tl226464226546_ + _e226469226549_ + _hd226468226552_ + _tl226467226554_ + _e226472226557_ + _hd226471226560_ + _tl226470226562_ + _e226475226565_ + _hd226474226568_ + _tl226473226570_) + (let ((_L226573_ _hd226474226568_) + (_L226574_ _hd226471226560_)) (if (let () (declare (not safe)) - (gx#identifier? _L226644_)) - (___kont231110231111_ _L226643_ _L226644_) - (___kont231112231113_ - _hd226544226638_ - _hd226538226622_)))))) + (gx#identifier? _L226574_)) + (___kont231040231041_ _L226573_ _L226574_) + (___kont231042231043_ + _hd226474226568_ + _hd226468226552_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx231108231109_)) - (let ((_e226536226611_ + (gx#stx-pair? ___stx231038231039_)) + (let ((_e226466226541_ (let () (declare (not safe)) - (gx#stx-e ___stx231108231109_)))) - (let ((_tl226534226616_ + (gx#stx-e ___stx231038231039_)))) + (let ((_tl226464226546_ (let () (declare (not safe)) - (##cdr _e226536226611_))) - (_hd226535226614_ + (##cdr _e226466226541_))) + (_hd226465226544_ (let () (declare (not safe)) - (##car _e226536226611_)))) + (##car _e226466226541_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226534226616_)) - (let ((_e226539226619_ + (gx#stx-pair? _tl226464226546_)) + (let ((_e226469226549_ (let () (declare (not safe)) - (gx#stx-e _tl226534226616_)))) - (let ((_tl226537226624_ + (gx#stx-e _tl226464226546_)))) + (let ((_tl226467226554_ (let () (declare (not safe)) - (##cdr _e226539226619_))) - (_hd226538226622_ + (##cdr _e226469226549_))) + (_hd226468226552_ (let () (declare (not safe)) - (##car _e226539226619_)))) + (##car _e226469226549_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226538226622_)) - (let ((_e226542226627_ + (gx#stx-pair? _hd226468226552_)) + (let ((_e226472226557_ (let () (declare (not safe)) - (gx#stx-e _hd226538226622_)))) - (let ((_tl226540226632_ + (gx#stx-e _hd226468226552_)))) + (let ((_tl226470226562_ (let () (declare (not safe)) - (##cdr _e226542226627_))) - (_hd226541226630_ + (##cdr _e226472226557_))) + (_hd226471226560_ (let () (declare (not safe)) - (##car _e226542226627_)))) + (##car _e226472226557_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226540226632_)) + (gx#stx-null? _tl226470226562_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl226537226624_)) - (let ((_e226545226635_ + _tl226467226554_)) + (let ((_e226475226565_ (let () (declare (not safe)) (gx#stx-e - _tl226537226624_)))) - (let ((_tl226543226640_ + _tl226467226554_)))) + (let ((_tl226473226570_ (let () (declare (not safe)) - (##cdr _e226545226635_))) - (_hd226544226638_ + (##cdr _e226475226565_))) + (_hd226474226568_ (let () (declare (not safe)) - (##car _e226545226635_)))) + (##car _e226475226565_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226543226640_)) - (___match231141231142_ - _e226536226611_ - _hd226535226614_ - _tl226534226616_ - _e226539226619_ - _hd226538226622_ - _tl226537226624_ - _e226542226627_ - _hd226541226630_ - _tl226540226632_ - _e226545226635_ - _hd226544226638_ - _tl226543226640_) + _tl226473226570_)) + (___match231071231072_ + _e226466226541_ + _hd226465226544_ + _tl226464226546_ + _e226469226549_ + _hd226468226552_ + _tl226467226554_ + _e226472226557_ + _hd226471226560_ + _tl226470226562_ + _e226475226565_ + _hd226474226568_ + _tl226473226570_) (let () (declare (not safe)) - (_g226530226561_))))) + (_g226460226491_))))) (let () (declare (not safe)) - (_g226530226561_))) + (_g226460226491_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl226537226624_)) - (let ((_e226556226582_ + _tl226467226554_)) + (let ((_e226486226512_ (let () (declare (not safe)) (gx#stx-e - _tl226537226624_)))) - (let ((_tl226554226587_ + _tl226467226554_)))) + (let ((_tl226484226517_ (let () (declare (not safe)) - (##cdr _e226556226582_))) - (_hd226555226585_ + (##cdr _e226486226512_))) + (_hd226485226515_ (let () (declare (not safe)) - (##car _e226556226582_)))) + (##car _e226486226512_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226554226587_)) - (___kont231112231113_ - _hd226555226585_ - _hd226538226622_) + _tl226484226517_)) + (___kont231042231043_ + _hd226485226515_ + _hd226468226552_) (let () (declare (not safe)) - (_g226530226561_))))) + (_g226460226491_))))) (let () (declare (not safe)) - (_g226530226561_)))))) + (_g226460226491_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226537226624_)) - (let ((_e226556226582_ + (gx#stx-pair? _tl226467226554_)) + (let ((_e226486226512_ (let () (declare (not safe)) - (gx#stx-e _tl226537226624_)))) - (let ((_tl226554226587_ + (gx#stx-e _tl226467226554_)))) + (let ((_tl226484226517_ (let () (declare (not safe)) - (##cdr _e226556226582_))) - (_hd226555226585_ + (##cdr _e226486226512_))) + (_hd226485226515_ (let () (declare (not safe)) - (##car _e226556226582_)))) + (##car _e226486226512_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226554226587_)) - (___kont231112231113_ - _hd226555226585_ - _hd226538226622_) + _tl226484226517_)) + (___kont231042231043_ + _hd226485226515_ + _hd226468226552_) (let () (declare (not safe)) - (_g226530226561_))))) + (_g226460226491_))))) (let () (declare (not safe)) - (_g226530226561_)))))) - (let () (declare (not safe)) (_g226530226561_))))) - (let () (declare (not safe)) (_g226530226561_)))))))) + (_g226460226491_)))))) + (let () (declare (not safe)) (_g226460226491_))))) + (let () (declare (not safe)) (_g226460226491_)))))))) (define gxc#collect-type-let-values% - (lambda (_stx226312_) - (letrec ((_collect-e226314_ - (lambda (_hd226471_ _expr226472_) - (let* ((___stx231164231165_ _hd226471_) - (_g226475226485_ + (lambda (_stx226242_) + (letrec ((_collect-e226244_ + (lambda (_hd226401_ _expr226402_) + (let* ((___stx231094231095_ _hd226401_) + (_g226405226415_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx231164231165_))))) - (let ((___kont231166231167_ - (lambda (_L226505_) - (let ((_sym226516_ + ___stx231094231095_))))) + (let ((___kont231096231097_ + (lambda (_L226435_) + (let ((_sym226446_ (let () (declare (not safe)) - (gxc#identifier-symbol _L226505_)))) - (if (let ((__tmp233169 + (gxc#identifier-symbol _L226435_)))) + (if (let ((__tmp233099 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp233169 _sym226516_ '#f)) + (table-ref __tmp233099 _sym226446_ '#f)) (let () (declare (not safe)) (gxc#verbose '"skipping type declaration for mutable binding " - _sym226516_)) - (let ((_type226517226519_ + _sym226446_)) + (let ((_type226447226449_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _expr226472_)))) - (if _type226517226519_ - (let ((_type226522_ - _type226517226519_)) + _expr226402_)))) + (if _type226447226449_ + (let ((_type226452_ + _type226447226449_)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym226516_ - _type226522_ + _sym226446_ + _type226452_ '#t)) '#f)))))) - (___kont231168231169_ (lambda () '#!void))) - (let ((___match231177231178_ - (lambda (_e226480226497_ - _hd226479226500_ - _tl226478226502_) - (let ((_L226505_ _hd226479226500_)) + (___kont231098231099_ (lambda () '#!void))) + (let ((___match231107231108_ + (lambda (_e226410226427_ + _hd226409226430_ + _tl226408226432_) + (let ((_L226435_ _hd226409226430_)) (if (let () (declare (not safe)) - (gx#identifier? _L226505_)) - (___kont231166231167_ _L226505_) - (___kont231168231169_)))))) + (gx#identifier? _L226435_)) + (___kont231096231097_ _L226435_) + (___kont231098231099_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx231164231165_)) - (let ((_e226480226497_ + (gx#stx-pair? ___stx231094231095_)) + (let ((_e226410226427_ (let () (declare (not safe)) - (gx#stx-e ___stx231164231165_)))) - (let ((_tl226478226502_ + (gx#stx-e ___stx231094231095_)))) + (let ((_tl226408226432_ (let () (declare (not safe)) - (##cdr _e226480226497_))) - (_hd226479226500_ + (##cdr _e226410226427_))) + (_hd226409226430_ (let () (declare (not safe)) - (##car _e226480226497_)))) + (##car _e226410226427_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226478226502_)) - (___match231177231178_ - _e226480226497_ - _hd226479226500_ - _tl226478226502_) - (___kont231168231169_)))) - (___kont231168231169_)))))))) - (let* ((_g226316226351_ - (lambda (_g226317226348_) + (gx#stx-null? _tl226408226432_)) + (___match231107231108_ + _e226410226427_ + _hd226409226430_ + _tl226408226432_) + (___kont231098231099_)))) + (___kont231098231099_)))))))) + (let* ((_g226246226281_ + (lambda (_g226247226278_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g226317226348_)))) - (_g226315226468_ - (lambda (_g226317226354_) + _g226247226278_)))) + (_g226245226398_ + (lambda (_g226247226284_) (if (let () (declare (not safe)) - (gx#stx-pair? _g226317226354_)) - (let ((_e226323226356_ + (gx#stx-pair? _g226247226284_)) + (let ((_e226253226286_ (let () (declare (not safe)) - (gx#stx-e _g226317226354_)))) - (let ((_hd226322226359_ + (gx#stx-e _g226247226284_)))) + (let ((_hd226252226289_ (let () (declare (not safe)) - (##car _e226323226356_))) - (_tl226321226361_ + (##car _e226253226286_))) + (_tl226251226291_ (let () (declare (not safe)) - (##cdr _e226323226356_)))) + (##cdr _e226253226286_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226321226361_)) - (let ((_e226326226364_ + (gx#stx-pair? _tl226251226291_)) + (let ((_e226256226294_ (let () (declare (not safe)) - (gx#stx-e _tl226321226361_)))) - (let ((_hd226325226367_ + (gx#stx-e _tl226251226291_)))) + (let ((_hd226255226297_ (let () (declare (not safe)) - (##car _e226326226364_))) - (_tl226324226369_ + (##car _e226256226294_))) + (_tl226254226299_ (let () (declare (not safe)) - (##cdr _e226326226364_)))) + (##cdr _e226256226294_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd226325226367_)) - (let ((_g233170_ + (gx#stx-pair/null? _hd226255226297_)) + (let ((_g233100_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd226325226367_ + _hd226255226297_ '0)))) (begin - (let ((_g233171_ + (let ((_g233101_ (let () (declare (not safe)) - (if (##values? _g233170_) + (if (##values? _g233100_) (##vector-length - _g233170_) + _g233100_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g233171_ 2))) + (##fx= _g233101_ 2))) (error "Context expects 2 values" - _g233171_))) - (let ((_target226327226372_ + _g233101_))) + (let ((_target226257226302_ (let () (declare (not safe)) (##vector-ref - _g233170_ + _g233100_ 0))) - (_tl226329226374_ + (_tl226259226304_ (let () (declare (not safe)) (##vector-ref - _g233170_ + _g233100_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226329226374_)) - (letrec ((_loop226330226377_ - (lambda (_hd226328226380_ + _tl226259226304_)) + (letrec ((_loop226260226307_ + (lambda (_hd226258226310_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr226334226382_ - _hd226335226384_) + _expr226264226312_ + _hd226265226314_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226328226380_)) - (let ((_e226331226387_ + (gx#stx-pair? _hd226258226310_)) + (let ((_e226261226317_ (let () (declare (not safe)) - (gx#stx-e _hd226328226380_)))) - (let ((_lp-hd226332226390_ + (gx#stx-e _hd226258226310_)))) + (let ((_lp-hd226262226320_ (let () (declare (not safe)) - (##car _e226331226387_))) - (_lp-tl226333226392_ + (##car _e226261226317_))) + (_lp-tl226263226322_ (let () (declare (not safe)) - (##cdr _e226331226387_)))) + (##cdr _e226261226317_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd226332226390_)) - (let ((_e226340226395_ + (gx#stx-pair? _lp-hd226262226320_)) + (let ((_e226270226325_ (let () (declare (not safe)) - (gx#stx-e _lp-hd226332226390_)))) - (let ((_hd226339226398_ + (gx#stx-e _lp-hd226262226320_)))) + (let ((_hd226269226328_ (let () (declare (not safe)) - (##car _e226340226395_))) - (_tl226338226400_ + (##car _e226270226325_))) + (_tl226268226330_ (let () (declare (not safe)) - (##cdr _e226340226395_)))) + (##cdr _e226270226325_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226338226400_)) - (let ((_e226343226403_ + (gx#stx-pair? _tl226268226330_)) + (let ((_e226273226333_ (let () (declare (not safe)) (gx#stx-e - _tl226338226400_)))) - (let ((_hd226342226406_ + _tl226268226330_)))) + (let ((_hd226272226336_ (let () (declare (not safe)) - (##car _e226343226403_))) - (_tl226341226408_ + (##car _e226273226333_))) + (_tl226271226338_ (let () (declare (not safe)) - (##cdr _e226343226403_)))) + (##cdr _e226273226333_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226341226408_)) - (let ((__tmp233176 + _tl226271226338_)) + (let ((__tmp233106 (let () (declare (not safe)) - (cons _hd226342226406_ + (cons _hd226272226336_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr226334226382_))) - (__tmp233175 + _expr226264226312_))) + (__tmp233105 (let () (declare (not safe)) - (cons _hd226339226398_ _hd226335226384_)))) + (cons _hd226269226328_ _hd226265226314_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop226330226377_ - _lp-tl226333226392_ - __tmp233176 - __tmp233175)) + (_loop226260226307_ + _lp-tl226263226322_ + __tmp233106 + __tmp233105)) (let () (declare (not safe)) - (_g226316226351_ - _g226317226354_))))) + (_g226246226281_ + _g226247226284_))))) (let () (declare (not safe)) - (_g226316226351_ - _g226317226354_))))) + (_g226246226281_ + _g226247226284_))))) (let () (declare (not safe)) - (_g226316226351_ _g226317226354_))))) - (let ((_expr226336226411_ - (reverse _expr226334226382_)) - (_hd226337226413_ (reverse _hd226335226384_))) + (_g226246226281_ _g226247226284_))))) + (let ((_expr226266226341_ + (reverse _expr226264226312_)) + (_hd226267226343_ (reverse _hd226265226314_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226324226369_)) - (let ((_e226346226416_ + (gx#stx-pair? _tl226254226299_)) + (let ((_e226276226346_ (let () (declare (not safe)) - (gx#stx-e _tl226324226369_)))) - (let ((_hd226345226419_ + (gx#stx-e _tl226254226299_)))) + (let ((_hd226275226349_ (let () (declare (not safe)) - (##car _e226346226416_))) - (_tl226344226421_ + (##car _e226276226346_))) + (_tl226274226351_ (let () (declare (not safe)) - (##cdr _e226346226416_)))) + (##cdr _e226276226346_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226344226421_)) - ((lambda (_L226424_ - _L226425_ - _L226426_) + (gx#stx-null? _tl226274226351_)) + ((lambda (_L226354_ + _L226355_ + _L226356_) (for-each - _collect-e226314_ - (let ((__tmp233172 - (lambda (_g226446226449_ - _g226447226451_) + _collect-e226244_ + (let ((__tmp233102 + (lambda (_g226376226379_ + _g226377226381_) (let () (declare (not safe)) - (cons _g226446226449_ - _g226447226451_))))) + (cons _g226376226379_ + _g226377226381_))))) (declare (not safe)) - (foldr1 __tmp233172 + (foldr1 __tmp233102 '() - _L226426_)) - (let ((__tmp233173 - (lambda (_g226453226456_ - _g226454226458_) + _L226356_)) + (let ((__tmp233103 + (lambda (_g226383226386_ + _g226384226388_) (let () (declare (not safe)) - (cons _g226453226456_ - _g226454226458_))))) + (cons _g226383226386_ + _g226384226388_))))) (declare (not safe)) - (foldr1 __tmp233173 + (foldr1 __tmp233103 '() - _L226425_))) + _L226355_))) (for-each gxc#compile-e - (let ((__tmp233174 - (lambda (_g226460226463_ - _g226461226465_) + (let ((__tmp233104 + (lambda (_g226390226393_ + _g226391226395_) (let () (declare (not safe)) - (cons _g226460226463_ - _g226461226465_))))) + (cons _g226390226393_ + _g226391226395_))))) (declare (not safe)) - (foldr1 __tmp233174 + (foldr1 __tmp233104 '() - _L226425_))) + _L226355_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L226424_))) - _hd226345226419_ - _expr226336226411_ - _hd226337226413_) + (gxc#compile-e__0 _L226354_))) + _hd226275226349_ + _expr226266226341_ + _hd226267226343_) (let () (declare (not safe)) - (_g226316226351_ _g226317226354_))))) + (_g226246226281_ _g226247226284_))))) (let () (declare (not safe)) - (_g226316226351_ _g226317226354_)))))))) + (_g226246226281_ _g226247226284_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop226330226377_ - _target226327226372_ + (_loop226260226307_ + _target226257226302_ '() '()))) (let () (declare (not safe)) - (_g226316226351_ - _g226317226354_)))))) + (_g226246226281_ + _g226247226284_)))))) (let () (declare (not safe)) - (_g226316226351_ _g226317226354_))))) + (_g226246226281_ _g226247226284_))))) (let () (declare (not safe)) - (_g226316226351_ _g226317226354_))))) + (_g226246226281_ _g226247226284_))))) (let () (declare (not safe)) - (_g226316226351_ _g226317226354_)))))) + (_g226246226281_ _g226247226284_)))))) (declare (not safe)) - (_g226315226468_ _stx226312_))))) + (_g226245226398_ _stx226242_))))) (define gxc#collect-type-call% - (lambda (_stx225804_) - (let* ((___stx231180231181_ _stx225804_) - (_g225808225923_ + (lambda (_stx225734_) + (let* ((___stx231110231111_ _stx225734_) + (_g225738225853_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx231180231181_))))) - (let ((___kont231182231183_ - (lambda (_L226262_ _L226263_ _L226264_ _L226265_ _L226266_) - (let ((__tmp233180 + ___stx231110231111_))))) + (let ((___kont231112231113_ + (lambda (_L226192_ _L226193_ _L226194_ _L226195_ _L226196_) + (let ((__tmp233110 (let () (declare (not safe)) - (gxc#identifier-symbol _L226265_))) - (__tmp233179 - (let () (declare (not safe)) (gx#stx-e _L226264_))) - (__tmp233178 + (gxc#identifier-symbol _L226195_))) + (__tmp233109 + (let () (declare (not safe)) (gx#stx-e _L226194_))) + (__tmp233108 (let () (declare (not safe)) - (gxc#identifier-symbol _L226263_))) - (__tmp233177 - (let () (declare (not safe)) (gx#stx-e _L226262_)))) + (gxc#identifier-symbol _L226193_))) + (__tmp233107 + (let () (declare (not safe)) (gx#stx-e _L226192_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp233180 - __tmp233179 - __tmp233178 - __tmp233177)))) - (___kont231184231185_ - (lambda (_L226090_ _L226091_ _L226092_ _L226093_) - (let ((__tmp233183 + __tmp233110 + __tmp233109 + __tmp233108 + __tmp233107)))) + (___kont231114231115_ + (lambda (_L226020_ _L226021_ _L226022_ _L226023_) + (let ((__tmp233113 (let () (declare (not safe)) - (gxc#identifier-symbol _L226092_))) - (__tmp233182 - (let () (declare (not safe)) (gx#stx-e _L226091_))) - (__tmp233181 + (gxc#identifier-symbol _L226022_))) + (__tmp233112 + (let () (declare (not safe)) (gx#stx-e _L226021_))) + (__tmp233111 (let () (declare (not safe)) - (gxc#identifier-symbol _L226090_)))) + (gxc#identifier-symbol _L226020_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp233183 - __tmp233182 - __tmp233181 + __tmp233113 + __tmp233112 + __tmp233111 '#f)))) - (___kont231186231187_ - (lambda (_L225960_) + (___kont231116231117_ + (lambda (_L225890_) (for-each gxc#compile-e - (let ((__tmp233184 - (lambda (_g225973225976_ _g225974225978_) + (let ((__tmp233114 + (lambda (_g225903225906_ _g225904225908_) (let () (declare (not safe)) - (cons _g225973225976_ _g225974225978_))))) + (cons _g225903225906_ _g225904225908_))))) (declare (not safe)) - (foldr1 __tmp233184 '() _L225960_)))))) - (let* ((___match231437231438_ - (lambda (_e225909225928_ - _hd225908225931_ - _tl225907225933_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) - (letrec ((_loop225913225941_ - (lambda (_hd225911225944_ _expr225917225946_) + (foldr1 __tmp233114 '() _L225890_)))))) + (let* ((___match231367231368_ + (lambda (_e225839225858_ + _hd225838225861_ + _tl225837225863_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) + (letrec ((_loop225843225871_ + (lambda (_hd225841225874_ _expr225847225876_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd225911225944_)) - (let ((_e225914225949_ + (gx#stx-pair? _hd225841225874_)) + (let ((_e225844225879_ (let () (declare (not safe)) - (gx#stx-e _hd225911225944_)))) - (let ((_lp-tl225916225954_ + (gx#stx-e _hd225841225874_)))) + (let ((_lp-tl225846225884_ (let () (declare (not safe)) - (##cdr _e225914225949_))) - (_lp-hd225915225952_ + (##cdr _e225844225879_))) + (_lp-hd225845225882_ (let () (declare (not safe)) - (##car _e225914225949_)))) - (let ((__tmp233185 + (##car _e225844225879_)))) + (let ((__tmp233115 (let () (declare (not safe)) - (cons _lp-hd225915225952_ - _expr225917225946_)))) + (cons _lp-hd225845225882_ + _expr225847225876_)))) (declare (not safe)) - (_loop225913225941_ - _lp-tl225916225954_ - __tmp233185)))) - (let ((_expr225918225957_ - (reverse _expr225917225946_))) - (___kont231186231187_ - _expr225918225957_)))))) + (_loop225843225871_ + _lp-tl225846225884_ + __tmp233115)))) + (let ((_expr225848225887_ + (reverse _expr225847225876_))) + (___kont231116231117_ + _expr225848225887_)))))) (let () (declare (not safe)) - (_loop225913225941_ _target225910225936_ '()))))) - (___match231317231318_ - (lambda (_e225817226134_ - _hd225816226137_ - _tl225815226139_ - _e225820226142_ - _hd225819226145_ - _tl225818226147_ - _e225823226150_ - _hd225822226153_ - _tl225821226155_ - _e225826226158_ - _hd225825226161_ - _tl225824226163_ - _e225829226166_ - _hd225828226169_ - _tl225827226171_ - _e225832226174_ - _hd225831226177_ - _tl225830226179_ - _e225835226182_ - _hd225834226185_ - _tl225833226187_ - _e225838226190_ - _hd225837226193_ - _tl225836226195_ - _e225841226198_ - _hd225840226201_ - _tl225839226203_ - _e225844226206_ - _hd225843226209_ - _tl225842226211_ - _e225847226214_ - _hd225846226217_ - _tl225845226219_ - _e225850226222_ - _hd225849226225_ - _tl225848226227_ - _e225853226230_ - _hd225852226233_ - _tl225851226235_ - _e225856226238_ - _hd225855226241_ - _tl225854226243_ - _e225859226246_ - _hd225858226249_ - _tl225857226251_ - _e225862226254_ - _hd225861226257_ - _tl225860226259_) - (let ((_L226262_ _hd225861226257_) - (_L226263_ _hd225852226233_) - (_L226264_ _hd225843226209_) - (_L226265_ _hd225834226185_) - (_L226266_ _hd225825226161_)) + (_loop225843225871_ _target225840225866_ '()))))) + (___match231247231248_ + (lambda (_e225747226064_ + _hd225746226067_ + _tl225745226069_ + _e225750226072_ + _hd225749226075_ + _tl225748226077_ + _e225753226080_ + _hd225752226083_ + _tl225751226085_ + _e225756226088_ + _hd225755226091_ + _tl225754226093_ + _e225759226096_ + _hd225758226099_ + _tl225757226101_ + _e225762226104_ + _hd225761226107_ + _tl225760226109_ + _e225765226112_ + _hd225764226115_ + _tl225763226117_ + _e225768226120_ + _hd225767226123_ + _tl225766226125_ + _e225771226128_ + _hd225770226131_ + _tl225769226133_ + _e225774226136_ + _hd225773226139_ + _tl225772226141_ + _e225777226144_ + _hd225776226147_ + _tl225775226149_ + _e225780226152_ + _hd225779226155_ + _tl225778226157_ + _e225783226160_ + _hd225782226163_ + _tl225781226165_ + _e225786226168_ + _hd225785226171_ + _tl225784226173_ + _e225789226176_ + _hd225788226179_ + _tl225787226181_ + _e225792226184_ + _hd225791226187_ + _tl225790226189_) + (let ((_L226192_ _hd225791226187_) + (_L226193_ _hd225782226163_) + (_L226194_ _hd225773226139_) + (_L226195_ _hd225764226115_) + (_L226196_ _hd225755226091_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L226266_ + _L226196_ 'bind-method!)) - (___kont231182231183_ - _L226262_ - _L226263_ - _L226264_ - _L226265_ - _L226266_) + (___kont231112231113_ + _L226192_ + _L226193_ + _L226194_ + _L226195_ + _L226196_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))))) + (_g225738225853_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx231180231181_)) - (let ((_e225817226134_ + (gx#stx-pair? ___stx231110231111_)) + (let ((_e225747226064_ (let () (declare (not safe)) - (gx#stx-e ___stx231180231181_)))) - (let ((_tl225815226139_ + (gx#stx-e ___stx231110231111_)))) + (let ((_tl225745226069_ (let () (declare (not safe)) - (##cdr _e225817226134_))) - (_hd225816226137_ + (##cdr _e225747226064_))) + (_hd225746226067_ (let () (declare (not safe)) - (##car _e225817226134_)))) + (##car _e225747226064_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225815226139_)) - (let ((_e225820226142_ + (gx#stx-pair? _tl225745226069_)) + (let ((_e225750226072_ (let () (declare (not safe)) - (gx#stx-e _tl225815226139_)))) - (let ((_tl225818226147_ + (gx#stx-e _tl225745226069_)))) + (let ((_tl225748226077_ (let () (declare (not safe)) - (##cdr _e225820226142_))) - (_hd225819226145_ + (##cdr _e225750226072_))) + (_hd225749226075_ (let () (declare (not safe)) - (##car _e225820226142_)))) + (##car _e225750226072_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd225819226145_)) - (let ((_e225823226150_ + (gx#stx-pair? _hd225749226075_)) + (let ((_e225753226080_ (let () (declare (not safe)) - (gx#stx-e _hd225819226145_)))) - (let ((_tl225821226155_ + (gx#stx-e _hd225749226075_)))) + (let ((_tl225751226085_ (let () (declare (not safe)) - (##cdr _e225823226150_))) - (_hd225822226153_ + (##cdr _e225753226080_))) + (_hd225752226083_ (let () (declare (not safe)) - (##car _e225823226150_)))) + (##car _e225753226080_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd225822226153_)) + (gx#identifier? _hd225752226083_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd225822226153_)) + _hd225752226083_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl225821226155_)) - (let ((_e225826226158_ + _tl225751226085_)) + (let ((_e225756226088_ (let () (declare (not safe)) (gx#stx-e - _tl225821226155_)))) - (let ((_tl225824226163_ + _tl225751226085_)))) + (let ((_tl225754226093_ (let () (declare (not safe)) - (##cdr _e225826226158_))) - (_hd225825226161_ + (##cdr _e225756226088_))) + (_hd225755226091_ (let () (declare (not safe)) - (##car _e225826226158_)))) + (##car _e225756226088_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225824226163_)) + _tl225754226093_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl225818226147_)) - (let ((_e225829226166_ + (gx#stx-pair? _tl225748226077_)) + (let ((_e225759226096_ (let () (declare (not safe)) - (gx#stx-e _tl225818226147_)))) - (let ((_tl225827226171_ + (gx#stx-e _tl225748226077_)))) + (let ((_tl225757226101_ (let () (declare (not safe)) - (##cdr _e225829226166_))) - (_hd225828226169_ + (##cdr _e225759226096_))) + (_hd225758226099_ (let () (declare (not safe)) - (##car _e225829226166_)))) + (##car _e225759226096_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd225828226169_)) - (let ((_e225832226174_ + (gx#stx-pair? _hd225758226099_)) + (let ((_e225762226104_ (let () (declare (not safe)) - (gx#stx-e _hd225828226169_)))) - (let ((_tl225830226179_ + (gx#stx-e _hd225758226099_)))) + (let ((_tl225760226109_ (let () (declare (not safe)) - (##cdr _e225832226174_))) - (_hd225831226177_ + (##cdr _e225762226104_))) + (_hd225761226107_ (let () (declare (not safe)) - (##car _e225832226174_)))) + (##car _e225762226104_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd225831226177_)) + (gx#identifier? _hd225761226107_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd225831226177_)) + _hd225761226107_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl225830226179_)) - (let ((_e225835226182_ + _tl225760226109_)) + (let ((_e225765226112_ (let () (declare (not safe)) (gx#stx-e - _tl225830226179_)))) - (let ((_tl225833226187_ + _tl225760226109_)))) + (let ((_tl225763226117_ (let () (declare (not safe)) - (##cdr _e225835226182_))) - (_hd225834226185_ + (##cdr _e225765226112_))) + (_hd225764226115_ (let () (declare (not safe)) - (##car _e225835226182_)))) + (##car _e225765226112_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225833226187_)) + _tl225763226117_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl225827226171_)) - (let ((_e225838226190_ + _tl225757226101_)) + (let ((_e225768226120_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl225827226171_)))) - (let ((_tl225836226195_ + (gx#stx-e _tl225757226101_)))) + (let ((_tl225766226125_ (let () (declare (not safe)) - (##cdr _e225838226190_))) - (_hd225837226193_ + (##cdr _e225768226120_))) + (_hd225767226123_ (let () (declare (not safe)) - (##car _e225838226190_)))) + (##car _e225768226120_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd225837226193_)) - (let ((_e225841226198_ + (gx#stx-pair? _hd225767226123_)) + (let ((_e225771226128_ (let () (declare (not safe)) - (gx#stx-e _hd225837226193_)))) - (let ((_tl225839226203_ + (gx#stx-e _hd225767226123_)))) + (let ((_tl225769226133_ (let () (declare (not safe)) - (##cdr _e225841226198_))) - (_hd225840226201_ + (##cdr _e225771226128_))) + (_hd225770226131_ (let () (declare (not safe)) - (##car _e225841226198_)))) + (##car _e225771226128_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd225840226201_)) + (gx#identifier? _hd225770226131_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd225840226201_)) + (gx#stx-eq? '%#quote _hd225770226131_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225839226203_)) - (let ((_e225844226206_ + (gx#stx-pair? _tl225769226133_)) + (let ((_e225774226136_ (let () (declare (not safe)) (gx#stx-e - _tl225839226203_)))) - (let ((_tl225842226211_ + _tl225769226133_)))) + (let ((_tl225772226141_ (let () (declare (not safe)) - (##cdr _e225844226206_))) - (_hd225843226209_ + (##cdr _e225774226136_))) + (_hd225773226139_ (let () (declare (not safe)) - (##car _e225844226206_)))) + (##car _e225774226136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225842226211_)) + _tl225772226141_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl225836226195_)) - (let ((_e225847226214_ + _tl225766226125_)) + (let ((_e225777226144_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl225836226195_)))) - (let ((_tl225845226219_ - (let () (declare (not safe)) (##cdr _e225847226214_))) - (_hd225846226217_ - (let () (declare (not safe)) (##car _e225847226214_)))) + (gx#stx-e _tl225766226125_)))) + (let ((_tl225775226149_ + (let () (declare (not safe)) (##cdr _e225777226144_))) + (_hd225776226147_ + (let () (declare (not safe)) (##car _e225777226144_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd225846226217_)) - (let ((_e225850226222_ + (gx#stx-pair? _hd225776226147_)) + (let ((_e225780226152_ (let () (declare (not safe)) - (gx#stx-e _hd225846226217_)))) - (let ((_tl225848226227_ + (gx#stx-e _hd225776226147_)))) + (let ((_tl225778226157_ (let () (declare (not safe)) - (##cdr _e225850226222_))) - (_hd225849226225_ + (##cdr _e225780226152_))) + (_hd225779226155_ (let () (declare (not safe)) - (##car _e225850226222_)))) + (##car _e225780226152_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd225849226225_)) + (gx#identifier? _hd225779226155_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd225849226225_)) + (gx#stx-eq? '%#ref _hd225779226155_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225848226227_)) - (let ((_e225853226230_ + (gx#stx-pair? _tl225778226157_)) + (let ((_e225783226160_ (let () (declare (not safe)) - (gx#stx-e _tl225848226227_)))) - (let ((_tl225851226235_ + (gx#stx-e _tl225778226157_)))) + (let ((_tl225781226165_ (let () (declare (not safe)) - (##cdr _e225853226230_))) - (_hd225852226233_ + (##cdr _e225783226160_))) + (_hd225782226163_ (let () (declare (not safe)) - (##car _e225853226230_)))) + (##car _e225783226160_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225851226235_)) + _tl225781226165_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl225845226219_)) - (let ((_e225856226238_ + _tl225775226149_)) + (let ((_e225786226168_ (let () (declare (not safe)) (gx#stx-e - _tl225845226219_)))) - (let ((_tl225854226243_ + _tl225775226149_)))) + (let ((_tl225784226173_ (let () (declare (not safe)) - (##cdr _e225856226238_))) - (_hd225855226241_ + (##cdr _e225786226168_))) + (_hd225785226171_ (let () (declare (not safe)) - (##car _e225856226238_)))) + (##car _e225786226168_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd225855226241_)) - (let ((_e225859226246_ + _hd225785226171_)) + (let ((_e225789226176_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd225855226241_)))) - (let ((_tl225857226251_ + (gx#stx-e _hd225785226171_)))) + (let ((_tl225787226181_ (let () (declare (not safe)) - (##cdr _e225859226246_))) - (_hd225858226249_ + (##cdr _e225789226176_))) + (_hd225788226179_ (let () (declare (not safe)) - (##car _e225859226246_)))) + (##car _e225789226176_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd225858226249_)) + (gx#identifier? _hd225788226179_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd225858226249_)) + (gx#stx-eq? '%#quote _hd225788226179_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225857226251_)) - (let ((_e225862226254_ + (gx#stx-pair? _tl225787226181_)) + (let ((_e225792226184_ (let () (declare (not safe)) - (gx#stx-e _tl225857226251_)))) - (let ((_tl225860226259_ + (gx#stx-e _tl225787226181_)))) + (let ((_tl225790226189_ (let () (declare (not safe)) - (##cdr _e225862226254_))) - (_hd225861226257_ + (##cdr _e225792226184_))) + (_hd225791226187_ (let () (declare (not safe)) - (##car _e225862226254_)))) + (##car _e225792226184_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225860226259_)) + (gx#stx-null? _tl225790226189_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl225854226243_)) - (___match231317231318_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - _e225820226142_ - _hd225819226145_ - _tl225818226147_ - _e225823226150_ - _hd225822226153_ - _tl225821226155_ - _e225826226158_ - _hd225825226161_ - _tl225824226163_ - _e225829226166_ - _hd225828226169_ - _tl225827226171_ - _e225832226174_ - _hd225831226177_ - _tl225830226179_ - _e225835226182_ - _hd225834226185_ - _tl225833226187_ - _e225838226190_ - _hd225837226193_ - _tl225836226195_ - _e225841226198_ - _hd225840226201_ - _tl225839226203_ - _e225844226206_ - _hd225843226209_ - _tl225842226211_ - _e225847226214_ - _hd225846226217_ - _tl225845226219_ - _e225850226222_ - _hd225849226225_ - _tl225848226227_ - _e225853226230_ - _hd225852226233_ - _tl225851226235_ - _e225856226238_ - _hd225855226241_ - _tl225854226243_ - _e225859226246_ - _hd225858226249_ - _tl225857226251_ - _e225862226254_ - _hd225861226257_ - _tl225860226259_) + _tl225784226173_)) + (___match231247231248_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + _e225750226072_ + _hd225749226075_ + _tl225748226077_ + _e225753226080_ + _hd225752226083_ + _tl225751226085_ + _e225756226088_ + _hd225755226091_ + _tl225754226093_ + _e225759226096_ + _hd225758226099_ + _tl225757226101_ + _e225762226104_ + _hd225761226107_ + _tl225760226109_ + _e225765226112_ + _hd225764226115_ + _tl225763226117_ + _e225768226120_ + _hd225767226123_ + _tl225766226125_ + _e225771226128_ + _hd225770226131_ + _tl225769226133_ + _e225774226136_ + _hd225773226139_ + _tl225772226141_ + _e225777226144_ + _hd225776226147_ + _tl225775226149_ + _e225780226152_ + _hd225779226155_ + _tl225778226157_ + _e225783226160_ + _hd225782226163_ + _tl225781226165_ + _e225786226168_ + _hd225785226171_ + _tl225784226173_ + _e225789226176_ + _hd225788226179_ + _tl225787226181_ + _e225792226184_ + _hd225791226187_ + _tl225790226189_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))) + (_g225738225853_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) + (_g225738225853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))) + (_g225738225853_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))) + (_g225738225853_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) + (_g225738225853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl225815226139_ '0)))) - (let ((_tl225912225938_ + (gx#syntax-split-splice _tl225745226069_ '0)))) + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '0)))) + (##vector-ref ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_)))))) + (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl225845226219_)) - (if (let ((__tmp233186 + _tl225775226149_)) + (if (let ((__tmp233116 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp233186 'bind-method!)) - (let ((_L226090_ _hd225852226233_) - (_L226091_ _hd225843226209_) - (_L226092_ _hd225834226185_) - (_L226093_ _hd225825226161_)) - (___kont231184231185_ - _L226090_ - _L226091_ - _L226092_ - _L226093_)) + (gxc#runtime-identifier=? __tmp233116 'bind-method!)) + (let ((_L226020_ _hd225782226163_) + (_L226021_ _hd225773226139_) + (_L226022_ _hd225764226115_) + (_L226023_ _hd225755226091_)) + (___kont231114231115_ + _L226020_ + _L226021_ + _L226022_ + _L226023_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl225815226139_ '0)))) - (let ((_tl225912225938_ + (gx#syntax-split-splice _tl225745226069_ '0)))) + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '0)))) + (##vector-ref ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_)))) + (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl225815226139_ '0)))) - (let ((_tl225912225938_ + (gx#syntax-split-splice _tl225745226069_ '0)))) + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '0)))) + (##vector-ref ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) - (let () (declare (not safe)) (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_))))) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) + (let () (declare (not safe)) (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) + (_g225738225853_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))) + (_g225738225853_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))) + (_g225738225853_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) + (_g225738225853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_)))))) + (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl225815226139_ '0)))) - (let ((_tl225912225938_ + (gx#syntax-split-splice _tl225745226069_ '0)))) + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '0)))) + (##vector-ref ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) - (let () (declare (not safe)) (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_)))) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) + (let () (declare (not safe)) (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl225815226139_ '0)))) - (let ((_tl225912225938_ + (gx#syntax-split-splice _tl225745226069_ '0)))) + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '0)))) + (##vector-ref ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) - (let () (declare (not safe)) (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_)))))) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) + (let () (declare (not safe)) (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))) + (_g225738225853_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))) + (_g225738225853_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) + (_g225738225853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) + (_g225738225853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl225815226139_ '0)))) - (let ((_tl225912225938_ + (gx#syntax-split-splice _tl225745226069_ '0)))) + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '0)))) + (##vector-ref ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_)))) + (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl225815226139_ '0)))) - (let ((_tl225912225938_ + (gx#syntax-split-splice _tl225745226069_ '0)))) + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '0)))) + (##vector-ref ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) - (let () (declare (not safe)) (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_)))))) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) + (let () (declare (not safe)) (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))) + (_g225738225853_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))) + (_g225738225853_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) + (_g225738225853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) + (_g225738225853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_)))) + (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl225815226139_ '0)))) - (let ((_tl225912225938_ + (gx#syntax-split-splice _tl225745226069_ '0)))) + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '0)))) + (##vector-ref ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_)))))) + (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl225815226139_ '0)))) - (let ((_tl225912225938_ + (gx#syntax-split-splice _tl225745226069_ '0)))) + (let ((_tl225842225868_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '1))) - (_target225910225936_ + (##vector-ref ___splice231118231119_ '1))) + (_target225840225866_ (let () (declare (not safe)) - (##vector-ref ___splice231188231189_ '0)))) + (##vector-ref ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) - (let () (declare (not safe)) (_g225808225923_))))) - (let () (declare (not safe)) (_g225808225923_)))) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) + (let () (declare (not safe)) (_g225738225853_))))) + (let () (declare (not safe)) (_g225738225853_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))) + (_g225738225853_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl225815226139_)) - (let ((___splice231188231189_ + _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) + (_g225738225853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) + (_g225738225853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl225815226139_)) - (let ((___splice231188231189_ + (gx#stx-pair/null? _tl225745226069_)) + (let ((___splice231118231119_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl225815226139_ + _tl225745226069_ '0)))) - (let ((_tl225912225938_ + (let ((_tl225842225868_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '1))) - (_target225910225936_ + (_target225840225866_ (let () (declare (not safe)) (##vector-ref - ___splice231188231189_ + ___splice231118231119_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225912225938_)) - (___match231437231438_ - _e225817226134_ - _hd225816226137_ - _tl225815226139_ - ___splice231188231189_ - _target225910225936_ - _tl225912225938_) + (gx#stx-null? _tl225842225868_)) + (___match231367231368_ + _e225747226064_ + _hd225746226067_ + _tl225745226069_ + ___splice231118231119_ + _target225840225866_ + _tl225842225868_) (let () (declare (not safe)) - (_g225808225923_))))) + (_g225738225853_))))) (let () (declare (not safe)) - (_g225808225923_)))))) - (let () (declare (not safe)) (_g225808225923_)))))))) + (_g225738225853_)))))) + (let () (declare (not safe)) (_g225738225853_)))))))) (define gxc#current-compile-type-closure (make-parameter '#f)) (define gxc#basic-expression-type-begin% - (lambda (_stx225744_) - (let* ((___stx231440231441_ _stx225744_) - (_g225747225760_ + (lambda (_stx225674_) + (let* ((___stx231370231371_ _stx225674_) + (_g225677225690_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx231440231441_))))) - (let ((___kont231442231443_ - (lambda (_L225788_) - (let () (declare (not safe)) (gxc#compile-e__0 _L225788_)))) - (___kont231444231445_ (lambda () '#f))) + ___stx231370231371_))))) + (let ((___kont231372231373_ + (lambda (_L225718_) + (let () (declare (not safe)) (gxc#compile-e__0 _L225718_)))) + (___kont231374231375_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx231440231441_)) - (let ((_e225752225772_ + (gx#stx-pair? ___stx231370231371_)) + (let ((_e225682225702_ (let () (declare (not safe)) - (gx#stx-e ___stx231440231441_)))) - (let ((_tl225750225777_ - (let () (declare (not safe)) (##cdr _e225752225772_))) - (_hd225751225775_ + (gx#stx-e ___stx231370231371_)))) + (let ((_tl225680225707_ + (let () (declare (not safe)) (##cdr _e225682225702_))) + (_hd225681225705_ (let () (declare (not safe)) - (##car _e225752225772_)))) + (##car _e225682225702_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225750225777_)) - (let ((_e225755225780_ + (gx#stx-pair? _tl225680225707_)) + (let ((_e225685225710_ (let () (declare (not safe)) - (gx#stx-e _tl225750225777_)))) - (let ((_tl225753225785_ + (gx#stx-e _tl225680225707_)))) + (let ((_tl225683225715_ (let () (declare (not safe)) - (##cdr _e225755225780_))) - (_hd225754225783_ + (##cdr _e225685225710_))) + (_hd225684225713_ (let () (declare (not safe)) - (##car _e225755225780_)))) + (##car _e225685225710_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225753225785_)) - (___kont231442231443_ _hd225754225783_) - (___kont231444231445_)))) - (___kont231444231445_)))) - (___kont231444231445_)))))) + (gx#stx-null? _tl225683225715_)) + (___kont231372231373_ _hd225684225713_) + (___kont231374231375_)))) + (___kont231374231375_)))) + (___kont231374231375_)))))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-table 'test: eq?))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_stx225624_) - (let* ((_g225626225643_ - (lambda (_g225627225640_) + (lambda (_stx225554_) + (let* ((_g225556225573_ + (lambda (_g225557225570_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g225627225640_)))) - (_g225625225741_ - (lambda (_g225627225646_) + _g225557225570_)))) + (_g225555225671_ + (lambda (_g225557225576_) (if (let () (declare (not safe)) - (gx#stx-pair? _g225627225646_)) - (let ((_e225632225648_ + (gx#stx-pair? _g225557225576_)) + (let ((_e225562225578_ (let () (declare (not safe)) - (gx#stx-e _g225627225646_)))) - (let ((_hd225631225651_ + (gx#stx-e _g225557225576_)))) + (let ((_hd225561225581_ (let () (declare (not safe)) - (##car _e225632225648_))) - (_tl225630225653_ + (##car _e225562225578_))) + (_tl225560225583_ (let () (declare (not safe)) - (##cdr _e225632225648_)))) + (##cdr _e225562225578_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225630225653_)) - (let ((_e225635225656_ + (gx#stx-pair? _tl225560225583_)) + (let ((_e225565225586_ (let () (declare (not safe)) - (gx#stx-e _tl225630225653_)))) - (let ((_hd225634225659_ + (gx#stx-e _tl225560225583_)))) + (let ((_hd225564225589_ (let () (declare (not safe)) - (##car _e225635225656_))) - (_tl225633225661_ + (##car _e225565225586_))) + (_tl225563225591_ (let () (declare (not safe)) - (##cdr _e225635225656_)))) + (##cdr _e225565225586_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225633225661_)) - (let ((_e225638225664_ + (gx#stx-pair? _tl225563225591_)) + (let ((_e225568225594_ (let () (declare (not safe)) - (gx#stx-e _tl225633225661_)))) - (let ((_hd225637225667_ + (gx#stx-e _tl225563225591_)))) + (let ((_hd225567225597_ (let () (declare (not safe)) - (##car _e225638225664_))) - (_tl225636225669_ + (##car _e225568225594_))) + (_tl225566225599_ (let () (declare (not safe)) - (##cdr _e225638225664_)))) + (##cdr _e225568225594_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225636225669_)) - ((lambda (_L225672_ _L225673_) - (let* ((___stx231462231463_ - _L225673_) - (_g225689225700_ + _tl225566225599_)) + ((lambda (_L225602_ _L225603_) + (let* ((___stx231392231393_ + _L225603_) + (_g225619225630_ (lambda () (let () (declare @@ -2914,649 +2914,649 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx231462231463_))))) - (let ((___kont231464231465_ - (lambda (_L225720_ + ___stx231392231393_))))) + (let ((___kont231394231395_ + (lambda (_L225650_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L225721_) - (let ((_$e225733_ - (let ((__tmp233187 + _L225651_) + (let ((_$e225663_ + (let ((__tmp233117 (let () (declare (not safe)) - (gx#stx-e _L225721_)))) + (gx#stx-e _L225651_)))) (declare (not safe)) (table-ref gxc#basic-expression-type-annotations - __tmp233187 + __tmp233117 '#f)))) - (if _$e225733_ - ((lambda (_type-e225736_) - (_type-e225736_ _stx225624_ _L225673_)) - _$e225733_) + (if _$e225663_ + ((lambda (_type-e225666_) + (_type-e225666_ _stx225554_ _L225603_)) + _$e225663_) (let () (declare (not safe)) - (gxc#compile-e__0 _L225672_)))))) - (___kont231466231467_ + (gxc#compile-e__0 _L225602_)))))) + (___kont231396231397_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__0 _L225672_))))) + (gxc#compile-e__0 _L225602_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match231473231474_ - (lambda (_e225695225712_ + (let ((___match231403231404_ + (lambda (_e225625225642_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd225694225715_ - _tl225693225717_) - (let ((_L225720_ _tl225693225717_) - (_L225721_ _hd225694225715_)) + _hd225624225645_ + _tl225623225647_) + (let ((_L225650_ _tl225623225647_) + (_L225651_ _hd225624225645_)) (if (let () (declare (not safe)) - (gx#identifier? _L225721_)) - (___kont231464231465_ _L225720_ _L225721_) - (___kont231466231467_)))))) + (gx#identifier? _L225651_)) + (___kont231394231395_ _L225650_ _L225651_) + (___kont231396231397_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx231462231463_)) - (let ((_e225695225712_ + (gx#stx-pair? ___stx231392231393_)) + (let ((_e225625225642_ (let () (declare (not safe)) - (gx#stx-e ___stx231462231463_)))) - (let ((_tl225693225717_ + (gx#stx-e ___stx231392231393_)))) + (let ((_tl225623225647_ (let () (declare (not safe)) - (##cdr _e225695225712_))) - (_hd225694225715_ + (##cdr _e225625225642_))) + (_hd225624225645_ (let () (declare (not safe)) - (##car _e225695225712_)))) - (___match231473231474_ - _e225695225712_ - _hd225694225715_ - _tl225693225717_))) - (___kont231466231467_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd225637225667_ - _hd225634225659_) + (##car _e225625225642_)))) + (___match231403231404_ + _e225625225642_ + _hd225624225645_ + _tl225623225647_))) + (___kont231396231397_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd225567225597_ + _hd225564225589_) (let () (declare (not safe)) - (_g225626225643_ - _g225627225646_))))) + (_g225556225573_ + _g225557225576_))))) (let () (declare (not safe)) - (_g225626225643_ _g225627225646_))))) + (_g225556225573_ _g225557225576_))))) (let () (declare (not safe)) - (_g225626225643_ _g225627225646_))))) + (_g225556225573_ _g225557225576_))))) (let () (declare (not safe)) - (_g225626225643_ _g225627225646_)))))) + (_g225556225573_ _g225557225576_)))))) (declare (not safe)) - (_g225625225741_ _stx225624_)))) + (_g225555225671_ _stx225554_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_stx225485_ _ann225486_) - (let* ((_g225488225521_ - (lambda (_g225489225518_) + (lambda (_stx225415_ _ann225416_) + (let* ((_g225418225451_ + (lambda (_g225419225448_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g225489225518_)))) - (_g225487225621_ - (lambda (_g225489225524_) + _g225419225448_)))) + (_g225417225551_ + (lambda (_g225419225454_) (if (let () (declare (not safe)) - (gx#stx-pair? _g225489225524_)) - (let ((_e225498225526_ + (gx#stx-pair? _g225419225454_)) + (let ((_e225428225456_ (let () (declare (not safe)) - (gx#stx-e _g225489225524_)))) - (let ((_hd225497225529_ + (gx#stx-e _g225419225454_)))) + (let ((_hd225427225459_ (let () (declare (not safe)) - (##car _e225498225526_))) - (_tl225496225531_ + (##car _e225428225456_))) + (_tl225426225461_ (let () (declare (not safe)) - (##cdr _e225498225526_)))) + (##cdr _e225428225456_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225496225531_)) - (let ((_e225501225534_ + (gx#stx-pair? _tl225426225461_)) + (let ((_e225431225464_ (let () (declare (not safe)) - (gx#stx-e _tl225496225531_)))) - (let ((_hd225500225537_ + (gx#stx-e _tl225426225461_)))) + (let ((_hd225430225467_ (let () (declare (not safe)) - (##car _e225501225534_))) - (_tl225499225539_ + (##car _e225431225464_))) + (_tl225429225469_ (let () (declare (not safe)) - (##cdr _e225501225534_)))) + (##cdr _e225431225464_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225499225539_)) - (let ((_e225504225542_ + (gx#stx-pair? _tl225429225469_)) + (let ((_e225434225472_ (let () (declare (not safe)) - (gx#stx-e _tl225499225539_)))) - (let ((_hd225503225545_ + (gx#stx-e _tl225429225469_)))) + (let ((_hd225433225475_ (let () (declare (not safe)) - (##car _e225504225542_))) - (_tl225502225547_ + (##car _e225434225472_))) + (_tl225432225477_ (let () (declare (not safe)) - (##cdr _e225504225542_)))) + (##cdr _e225434225472_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl225502225547_)) - (let ((_e225507225550_ + _tl225432225477_)) + (let ((_e225437225480_ (let () (declare (not safe)) (gx#stx-e - _tl225502225547_)))) - (let ((_hd225506225553_ + _tl225432225477_)))) + (let ((_hd225436225483_ (let () (declare (not safe)) - (##car _e225507225550_))) - (_tl225505225555_ + (##car _e225437225480_))) + (_tl225435225485_ (let () (declare (not safe)) - (##cdr _e225507225550_)))) + (##cdr _e225437225480_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl225505225555_)) - (let ((_e225510225558_ + _tl225435225485_)) + (let ((_e225440225488_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl225505225555_)))) - (let ((_hd225509225561_ - (let () (declare (not safe)) (##car _e225510225558_))) - (_tl225508225563_ - (let () (declare (not safe)) (##cdr _e225510225558_)))) + (gx#stx-e _tl225435225485_)))) + (let ((_hd225439225491_ + (let () (declare (not safe)) (##car _e225440225488_))) + (_tl225438225493_ + (let () (declare (not safe)) (##cdr _e225440225488_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225508225563_)) - (let ((_e225513225566_ + (gx#stx-pair? _tl225438225493_)) + (let ((_e225443225496_ (let () (declare (not safe)) - (gx#stx-e _tl225508225563_)))) - (let ((_hd225512225569_ + (gx#stx-e _tl225438225493_)))) + (let ((_hd225442225499_ (let () (declare (not safe)) - (##car _e225513225566_))) - (_tl225511225571_ + (##car _e225443225496_))) + (_tl225441225501_ (let () (declare (not safe)) - (##cdr _e225513225566_)))) + (##cdr _e225443225496_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225511225571_)) - (let ((_e225516225574_ + (gx#stx-pair? _tl225441225501_)) + (let ((_e225446225504_ (let () (declare (not safe)) - (gx#stx-e _tl225511225571_)))) - (let ((_hd225515225577_ + (gx#stx-e _tl225441225501_)))) + (let ((_hd225445225507_ (let () (declare (not safe)) - (##car _e225516225574_))) - (_tl225514225579_ + (##car _e225446225504_))) + (_tl225444225509_ (let () (declare (not safe)) - (##cdr _e225516225574_)))) + (##cdr _e225446225504_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225514225579_)) - ((lambda (_L225582_ - _L225583_ - _L225584_ - _L225585_ - _L225586_ - _L225587_) - (let ((_type-id225614_ + (gx#stx-null? _tl225444225509_)) + ((lambda (_L225512_ + _L225513_ + _L225514_ + _L225515_ + _L225516_ + _L225517_) + (let ((_type-id225544_ (let () (declare (not safe)) - (gx#stx-e _L225587_))) - (_super225615_ + (gx#stx-e _L225517_))) + (_super225545_ (map gxc#identifier-symbol - _L225586_)) - (_slots225616_ - (map gx#stx-e _L225585_)) - (_ctor-method225617_ + _L225516_)) + (_slots225546_ + (map gx#stx-e _L225515_)) + (_ctor-method225547_ (let () (declare (not safe)) - (gx#stx-e _L225584_))) - (_struct?225618_ + (gx#stx-e _L225514_))) + (_struct?225548_ (let () (declare (not safe)) - (gx#stx-e _L225583_))) - (_final?225619_ + (gx#stx-e _L225513_))) + (_final?225549_ (let () (declare (not safe)) - (gx#stx-e _L225582_)))) - (let ((__obj233145 - (make-object* + (gx#stx-e _L225512_)))) + (let ((__obj233075 + (make-object gxc#!class::t '10))) (gxc#!class:::init! - __obj233145 - _type-id225614_ - _super225615_ - _slots225616_ - _ctor-method225617_ - _struct?225618_ - _final?225619_) - __obj233145))) - _hd225515225577_ - _hd225512225569_ - _hd225509225561_ - _hd225506225553_ - _hd225503225545_ - _hd225500225537_) + __obj233075 + _type-id225544_ + _super225545_ + _slots225546_ + _ctor-method225547_ + _struct?225548_ + _final?225549_) + __obj233075))) + _hd225445225507_ + _hd225442225499_ + _hd225439225491_ + _hd225436225483_ + _hd225433225475_ + _hd225430225467_) (let () (declare (not safe)) - (_g225488225521_ _g225489225524_))))) + (_g225418225451_ _g225419225454_))))) (let () (declare (not safe)) - (_g225488225521_ _g225489225524_))))) + (_g225418225451_ _g225419225454_))))) (let () (declare (not safe)) - (_g225488225521_ _g225489225524_))))) + (_g225418225451_ _g225419225454_))))) (let () (declare (not safe)) - (_g225488225521_ _g225489225524_))))) + (_g225418225451_ _g225419225454_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g225488225521_ - _g225489225524_))))) + (_g225418225451_ + _g225419225454_))))) (let () (declare (not safe)) - (_g225488225521_ _g225489225524_))))) + (_g225418225451_ _g225419225454_))))) (let () (declare (not safe)) - (_g225488225521_ _g225489225524_))))) + (_g225418225451_ _g225419225454_))))) (let () (declare (not safe)) - (_g225488225521_ _g225489225524_)))))) + (_g225418225451_ _g225419225454_)))))) (declare (not safe)) - (_g225487225621_ _ann225486_)))) + (_g225417225551_ _ann225416_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_stx225433_ _ann225434_) - (let* ((_g225436225449_ - (lambda (_g225437225446_) + (lambda (_stx225363_ _ann225364_) + (let* ((_g225366225379_ + (lambda (_g225367225376_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g225437225446_)))) - (_g225435225482_ - (lambda (_g225437225452_) + _g225367225376_)))) + (_g225365225412_ + (lambda (_g225367225382_) (if (let () (declare (not safe)) - (gx#stx-pair? _g225437225452_)) - (let ((_e225441225454_ + (gx#stx-pair? _g225367225382_)) + (let ((_e225371225384_ (let () (declare (not safe)) - (gx#stx-e _g225437225452_)))) - (let ((_hd225440225457_ + (gx#stx-e _g225367225382_)))) + (let ((_hd225370225387_ (let () (declare (not safe)) - (##car _e225441225454_))) - (_tl225439225459_ + (##car _e225371225384_))) + (_tl225369225389_ (let () (declare (not safe)) - (##cdr _e225441225454_)))) + (##cdr _e225371225384_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225439225459_)) - (let ((_e225444225462_ + (gx#stx-pair? _tl225369225389_)) + (let ((_e225374225392_ (let () (declare (not safe)) - (gx#stx-e _tl225439225459_)))) - (let ((_hd225443225465_ + (gx#stx-e _tl225369225389_)))) + (let ((_hd225373225395_ (let () (declare (not safe)) - (##car _e225444225462_))) - (_tl225442225467_ + (##car _e225374225392_))) + (_tl225372225397_ (let () (declare (not safe)) - (##cdr _e225444225462_)))) + (##cdr _e225374225392_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225442225467_)) - ((lambda (_L225470_) - (let ((__tmp233188 + (gx#stx-null? _tl225372225397_)) + ((lambda (_L225400_) + (let ((__tmp233118 (let () (declare (not safe)) (gxc#identifier-symbol - _L225470_)))) + _L225400_)))) (declare (not safe)) (##structure gxc#!constructor::t - __tmp233188))) - _hd225443225465_) + __tmp233118))) + _hd225373225395_) (let () (declare (not safe)) - (_g225436225449_ _g225437225452_))))) + (_g225366225379_ _g225367225382_))))) (let () (declare (not safe)) - (_g225436225449_ _g225437225452_))))) + (_g225366225379_ _g225367225382_))))) (let () (declare (not safe)) - (_g225436225449_ _g225437225452_)))))) + (_g225366225379_ _g225367225382_)))))) (declare (not safe)) - (_g225435225482_ _ann225434_)))) + (_g225365225412_ _ann225364_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_stx225381_ _ann225382_) - (let* ((_g225384225397_ - (lambda (_g225385225394_) + (lambda (_stx225311_ _ann225312_) + (let* ((_g225314225327_ + (lambda (_g225315225324_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g225385225394_)))) - (_g225383225430_ - (lambda (_g225385225400_) + _g225315225324_)))) + (_g225313225360_ + (lambda (_g225315225330_) (if (let () (declare (not safe)) - (gx#stx-pair? _g225385225400_)) - (let ((_e225389225402_ + (gx#stx-pair? _g225315225330_)) + (let ((_e225319225332_ (let () (declare (not safe)) - (gx#stx-e _g225385225400_)))) - (let ((_hd225388225405_ + (gx#stx-e _g225315225330_)))) + (let ((_hd225318225335_ (let () (declare (not safe)) - (##car _e225389225402_))) - (_tl225387225407_ + (##car _e225319225332_))) + (_tl225317225337_ (let () (declare (not safe)) - (##cdr _e225389225402_)))) + (##cdr _e225319225332_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225387225407_)) - (let ((_e225392225410_ + (gx#stx-pair? _tl225317225337_)) + (let ((_e225322225340_ (let () (declare (not safe)) - (gx#stx-e _tl225387225407_)))) - (let ((_hd225391225413_ + (gx#stx-e _tl225317225337_)))) + (let ((_hd225321225343_ (let () (declare (not safe)) - (##car _e225392225410_))) - (_tl225390225415_ + (##car _e225322225340_))) + (_tl225320225345_ (let () (declare (not safe)) - (##cdr _e225392225410_)))) + (##cdr _e225322225340_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl225390225415_)) - ((lambda (_L225418_) - (let ((__tmp233189 + (gx#stx-null? _tl225320225345_)) + ((lambda (_L225348_) + (let ((__tmp233119 (let () (declare (not safe)) (gxc#identifier-symbol - _L225418_)))) + _L225348_)))) (declare (not safe)) (##structure gxc#!predicate::t - __tmp233189))) - _hd225391225413_) + __tmp233119))) + _hd225321225343_) (let () (declare (not safe)) - (_g225384225397_ _g225385225400_))))) + (_g225314225327_ _g225315225330_))))) (let () (declare (not safe)) - (_g225384225397_ _g225385225400_))))) + (_g225314225327_ _g225315225330_))))) (let () (declare (not safe)) - (_g225384225397_ _g225385225400_)))))) + (_g225314225327_ _g225315225330_)))))) (declare (not safe)) - (_g225383225430_ _ann225382_)))) + (_g225313225360_ _ann225312_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_stx225297_ _ann225298_) - (let* ((_g225300225321_ - (lambda (_g225301225318_) + (lambda (_stx225227_ _ann225228_) + (let* ((_g225230225251_ + (lambda (_g225231225248_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g225301225318_)))) - (_g225299225378_ - (lambda (_g225301225324_) + _g225231225248_)))) + (_g225229225308_ + (lambda (_g225231225254_) (if (let () (declare (not safe)) - (gx#stx-pair? _g225301225324_)) - (let ((_e225307225326_ + (gx#stx-pair? _g225231225254_)) + (let ((_e225237225256_ (let () (declare (not safe)) - (gx#stx-e _g225301225324_)))) - (let ((_hd225306225329_ + (gx#stx-e _g225231225254_)))) + (let ((_hd225236225259_ (let () (declare (not safe)) - (##car _e225307225326_))) - (_tl225305225331_ + (##car _e225237225256_))) + (_tl225235225261_ (let () (declare (not safe)) - (##cdr _e225307225326_)))) + (##cdr _e225237225256_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225305225331_)) - (let ((_e225310225334_ + (gx#stx-pair? _tl225235225261_)) + (let ((_e225240225264_ (let () (declare (not safe)) - (gx#stx-e _tl225305225331_)))) - (let ((_hd225309225337_ + (gx#stx-e _tl225235225261_)))) + (let ((_hd225239225267_ (let () (declare (not safe)) - (##car _e225310225334_))) - (_tl225308225339_ + (##car _e225240225264_))) + (_tl225238225269_ (let () (declare (not safe)) - (##cdr _e225310225334_)))) + (##cdr _e225240225264_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225308225339_)) - (let ((_e225313225342_ + (gx#stx-pair? _tl225238225269_)) + (let ((_e225243225272_ (let () (declare (not safe)) - (gx#stx-e _tl225308225339_)))) - (let ((_hd225312225345_ + (gx#stx-e _tl225238225269_)))) + (let ((_hd225242225275_ (let () (declare (not safe)) - (##car _e225313225342_))) - (_tl225311225347_ + (##car _e225243225272_))) + (_tl225241225277_ (let () (declare (not safe)) - (##cdr _e225313225342_)))) + (##cdr _e225243225272_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl225311225347_)) - (let ((_e225316225350_ + _tl225241225277_)) + (let ((_e225246225280_ (let () (declare (not safe)) (gx#stx-e - _tl225311225347_)))) - (let ((_hd225315225353_ + _tl225241225277_)))) + (let ((_hd225245225283_ (let () (declare (not safe)) - (##car _e225316225350_))) - (_tl225314225355_ + (##car _e225246225280_))) + (_tl225244225285_ (let () (declare (not safe)) - (##cdr _e225316225350_)))) + (##cdr _e225246225280_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225314225355_)) - ((lambda (_L225358_ - _L225359_ - _L225360_) - (let ((__tmp233192 + _tl225244225285_)) + ((lambda (_L225288_ + _L225289_ + _L225290_) + (let ((__tmp233122 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L225360_))) - (__tmp233191 - (let () (declare (not safe)) (gx#stx-e _L225359_))) - (__tmp233190 - (let () (declare (not safe)) (gx#stx-e _L225358_)))) + (gxc#identifier-symbol _L225290_))) + (__tmp233121 + (let () (declare (not safe)) (gx#stx-e _L225289_))) + (__tmp233120 + (let () (declare (not safe)) (gx#stx-e _L225288_)))) (declare (not safe)) (##structure gxc#!accessor::t - __tmp233192 - __tmp233191 - __tmp233190))) - _hd225315225353_ - _hd225312225345_ - _hd225309225337_) + __tmp233122 + __tmp233121 + __tmp233120))) + _hd225245225283_ + _hd225242225275_ + _hd225239225267_) (let () (declare (not safe)) - (_g225300225321_ _g225301225324_))))) + (_g225230225251_ _g225231225254_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g225300225321_ - _g225301225324_))))) + (_g225230225251_ + _g225231225254_))))) (let () (declare (not safe)) - (_g225300225321_ _g225301225324_))))) + (_g225230225251_ _g225231225254_))))) (let () (declare (not safe)) - (_g225300225321_ _g225301225324_))))) + (_g225230225251_ _g225231225254_))))) (let () (declare (not safe)) - (_g225300225321_ _g225301225324_)))))) + (_g225230225251_ _g225231225254_)))))) (declare (not safe)) - (_g225299225378_ _ann225298_)))) + (_g225229225308_ _ann225228_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_stx225213_ _ann225214_) - (let* ((_g225216225237_ - (lambda (_g225217225234_) + (lambda (_stx225143_ _ann225144_) + (let* ((_g225146225167_ + (lambda (_g225147225164_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g225217225234_)))) - (_g225215225294_ - (lambda (_g225217225240_) + _g225147225164_)))) + (_g225145225224_ + (lambda (_g225147225170_) (if (let () (declare (not safe)) - (gx#stx-pair? _g225217225240_)) - (let ((_e225223225242_ + (gx#stx-pair? _g225147225170_)) + (let ((_e225153225172_ (let () (declare (not safe)) - (gx#stx-e _g225217225240_)))) - (let ((_hd225222225245_ + (gx#stx-e _g225147225170_)))) + (let ((_hd225152225175_ (let () (declare (not safe)) - (##car _e225223225242_))) - (_tl225221225247_ + (##car _e225153225172_))) + (_tl225151225177_ (let () (declare (not safe)) - (##cdr _e225223225242_)))) + (##cdr _e225153225172_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225221225247_)) - (let ((_e225226225250_ + (gx#stx-pair? _tl225151225177_)) + (let ((_e225156225180_ (let () (declare (not safe)) - (gx#stx-e _tl225221225247_)))) - (let ((_hd225225225253_ + (gx#stx-e _tl225151225177_)))) + (let ((_hd225155225183_ (let () (declare (not safe)) - (##car _e225226225250_))) - (_tl225224225255_ + (##car _e225156225180_))) + (_tl225154225185_ (let () (declare (not safe)) - (##cdr _e225226225250_)))) + (##cdr _e225156225180_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl225224225255_)) - (let ((_e225229225258_ + (gx#stx-pair? _tl225154225185_)) + (let ((_e225159225188_ (let () (declare (not safe)) - (gx#stx-e _tl225224225255_)))) - (let ((_hd225228225261_ + (gx#stx-e _tl225154225185_)))) + (let ((_hd225158225191_ (let () (declare (not safe)) - (##car _e225229225258_))) - (_tl225227225263_ + (##car _e225159225188_))) + (_tl225157225193_ (let () (declare (not safe)) - (##cdr _e225229225258_)))) + (##cdr _e225159225188_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl225227225263_)) - (let ((_e225232225266_ + _tl225157225193_)) + (let ((_e225162225196_ (let () (declare (not safe)) (gx#stx-e - _tl225227225263_)))) - (let ((_hd225231225269_ + _tl225157225193_)))) + (let ((_hd225161225199_ (let () (declare (not safe)) - (##car _e225232225266_))) - (_tl225230225271_ + (##car _e225162225196_))) + (_tl225160225201_ (let () (declare (not safe)) - (##cdr _e225232225266_)))) + (##cdr _e225162225196_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl225230225271_)) - ((lambda (_L225274_ - _L225275_ - _L225276_) - (let ((__tmp233195 + _tl225160225201_)) + ((lambda (_L225204_ + _L225205_ + _L225206_) + (let ((__tmp233125 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L225276_))) - (__tmp233194 - (let () (declare (not safe)) (gx#stx-e _L225275_))) - (__tmp233193 - (let () (declare (not safe)) (gx#stx-e _L225274_)))) + (gxc#identifier-symbol _L225206_))) + (__tmp233124 + (let () (declare (not safe)) (gx#stx-e _L225205_))) + (__tmp233123 + (let () (declare (not safe)) (gx#stx-e _L225204_)))) (declare (not safe)) (##structure gxc#!mutator::t - __tmp233195 - __tmp233194 - __tmp233193))) - _hd225231225269_ - _hd225228225261_ - _hd225225225253_) + __tmp233125 + __tmp233124 + __tmp233123))) + _hd225161225199_ + _hd225158225191_ + _hd225155225183_) (let () (declare (not safe)) - (_g225216225237_ _g225217225240_))))) + (_g225146225167_ _g225147225170_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g225216225237_ - _g225217225240_))))) + (_g225146225167_ + _g225147225170_))))) (let () (declare (not safe)) - (_g225216225237_ _g225217225240_))))) + (_g225146225167_ _g225147225170_))))) (let () (declare (not safe)) - (_g225216225237_ _g225217225240_))))) + (_g225146225167_ _g225147225170_))))) (let () (declare (not safe)) - (_g225216225237_ _g225217225240_)))))) + (_g225146225167_ _g225147225170_)))))) (declare (not safe)) - (_g225215225294_ _ann225214_)))) + (_g225145225224_ _ann225144_)))) (let () (declare (not safe)) (table-set! @@ -3588,6988 +3588,6988 @@ '@mop.mutator gxc#basic-expression-type-annotation-mop.mutator)) (define gxc#basic-expression-type-lambda% - (lambda (_stx224333_) - (let* ((___stx231476231477_ _stx224333_) - (_g224339224535_ + (lambda (_stx224263_) + (let* ((___stx231406231407_ _stx224263_) + (_g224269224465_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx231476231477_))))) - (let ((___kont231478231479_ - (lambda (_L225201_) - (let ((__obj233146 (make-object* gxc#!lambda::t '6))) + ___stx231406231407_))))) + (let ((___kont231408231409_ + (lambda (_L225131_) + (let ((__obj233076 (make-object gxc#!lambda::t '6))) (gxc#!lambda:::init! - __obj233146 + __obj233076 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L225201_)) + (gxc#lambda-form-arity _L225131_)) '#f) - __obj233146))) - (___kont231480231481_ - (lambda (_L225128_ - _L225129_ - _L225130_ - _L225131_ - _L225132_ - _L225133_) - (let* ((_tab225183_ - (let () (declare (not safe)) (gx#stx-e _L225130_))) - (_keys225185_ - (if _tab225183_ - (let ((__tmp233196 (vector->list _tab225183_))) + __obj233076))) + (___kont231410231411_ + (lambda (_L225058_ + _L225059_ + _L225060_ + _L225061_ + _L225062_ + _L225063_) + (let* ((_tab225113_ + (let () (declare (not safe)) (gx#stx-e _L225060_))) + (_keys225115_ + (if _tab225113_ + (let ((__tmp233126 (vector->list _tab225113_))) (declare (not safe)) - (filter values __tmp233196)) + (filter values __tmp233126)) '#f))) - (let ((__tmp233197 + (let ((__tmp233127 (let () (declare (not safe)) - (gxc#identifier-symbol _L225129_)))) + (gxc#identifier-symbol _L225059_)))) (declare (not safe)) (##structure gxc#!kw-lambda::t 'kw-lambda - _keys225185_ - __tmp233197))))) - (___kont231482231483_ - (lambda (_L224861_ - _L224862_ - _L224863_ - _L224864_ - _L224865_ - _L224866_ - _L224867_ - _L224868_ - _L224869_ - _L224870_) - (let ((__tmp233199 + _keys225115_ + __tmp233127))))) + (___kont231412231413_ + (lambda (_L224791_ + _L224792_ + _L224793_ + _L224794_ + _L224795_ + _L224796_ + _L224797_ + _L224798_ + _L224799_ + _L224800_) + (let ((__tmp233129 (map gx#stx-e - (let ((__tmp233200 - (lambda (_g224963224966_ _g224964224968_) + (let ((__tmp233130 + (lambda (_g224893224896_ _g224894224898_) (let () (declare (not safe)) - (cons _g224963224966_ - _g224964224968_))))) + (cons _g224893224896_ + _g224894224898_))))) (declare (not safe)) - (foldr1 __tmp233200 '() _L224863_)))) - (__tmp233198 + (foldr1 __tmp233130 '() _L224793_)))) + (__tmp233128 (let () (declare (not safe)) - (gxc#identifier-symbol _L224867_)))) + (gxc#identifier-symbol _L224797_)))) (declare (not safe)) (##structure gxc#!kw-lambda-primary::t 'kw-lambda-dispatch - __tmp233199 - __tmp233198)))) - (___kont231486231487_ - (lambda (_L224571_) - (let ((__obj233147 (make-object* gxc#!lambda::t '6))) + __tmp233129 + __tmp233128)))) + (___kont231416231417_ + (lambda (_L224501_) + (let ((__obj233077 (make-object gxc#!lambda::t '6))) (gxc#!lambda:::init! - __obj233147 + __obj233077 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L224571_)) + (gxc#lambda-form-arity _L224501_)) (let () (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _L224571_))) - __obj233147))) - (___kont231488231489_ - (lambda (_L224548_) - (let ((__obj233148 (make-object* gxc#!lambda::t '6))) + (gxc#dispatch-lambda-form-delegate _L224501_))) + __obj233077))) + (___kont231418231419_ + (lambda (_L224478_) + (let ((__obj233078 (make-object gxc#!lambda::t '6))) (gxc#!lambda:::init! - __obj233148 + __obj233078 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L224548_)) + (gxc#lambda-form-arity _L224478_)) '#f) - __obj233148)))) - (let* ((___match231795231796_ - (lambda (_e224526224563_ _hd224525224566_ _tl224524224568_) - (let ((_L224571_ _tl224524224568_)) + __obj233078)))) + (let* ((___match231725231726_ + (lambda (_e224456224493_ _hd224455224496_ _tl224454224498_) + (let ((_L224501_ _tl224454224498_)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _L224571_)) - (___kont231486231487_ _L224571_) - (___kont231488231489_ _tl224524224568_))))) - (___match231789231790_ - (lambda (_e224420224585_ - _hd224419224588_ - _tl224418224590_ - _e224423224593_ - _hd224422224596_ - _tl224421224598_ - _e224426224601_ - _hd224425224604_ - _tl224424224606_ - _e224429224609_ - _hd224428224612_ - _tl224427224614_ - _e224432224617_ - _hd224431224620_ - _tl224430224622_ - _e224435224625_ - _hd224434224628_ - _tl224433224630_ - _e224438224633_ - _hd224437224636_ - _tl224436224638_ - _e224441224641_ - _hd224440224644_ - _tl224439224646_ - _e224444224649_ - _hd224443224652_ - _tl224442224654_ - _e224447224657_ - _hd224446224660_ - _tl224445224662_ - _e224450224665_ - _hd224449224668_ - _tl224448224670_ - _e224453224673_ - _hd224452224676_ - _tl224451224678_ - _e224456224681_ - _hd224455224684_ - _tl224454224686_ - _e224459224689_ - _hd224458224692_ - _tl224457224694_ - ___splice231484231485_ - _target224460224697_ - _tl224462224699_ - _e224477224702_ - _hd224476224705_ - _tl224475224707_ - _e224480224710_ - _hd224479224713_ - _tl224478224715_ - _e224483224718_ - _hd224482224721_ - _tl224481224723_) - (letrec ((_loop224463224726_ - (lambda (_hd224461224729_ - _-absent-value224467224731_ - _key224468224733_ - _-xkwvar224469224735_ - _-hash-ref224470224737_) + (gxc#dispatch-lambda-form? _L224501_)) + (___kont231416231417_ _L224501_) + (___kont231418231419_ _tl224454224498_))))) + (___match231719231720_ + (lambda (_e224350224515_ + _hd224349224518_ + _tl224348224520_ + _e224353224523_ + _hd224352224526_ + _tl224351224528_ + _e224356224531_ + _hd224355224534_ + _tl224354224536_ + _e224359224539_ + _hd224358224542_ + _tl224357224544_ + _e224362224547_ + _hd224361224550_ + _tl224360224552_ + _e224365224555_ + _hd224364224558_ + _tl224363224560_ + _e224368224563_ + _hd224367224566_ + _tl224366224568_ + _e224371224571_ + _hd224370224574_ + _tl224369224576_ + _e224374224579_ + _hd224373224582_ + _tl224372224584_ + _e224377224587_ + _hd224376224590_ + _tl224375224592_ + _e224380224595_ + _hd224379224598_ + _tl224378224600_ + _e224383224603_ + _hd224382224606_ + _tl224381224608_ + _e224386224611_ + _hd224385224614_ + _tl224384224616_ + _e224389224619_ + _hd224388224622_ + _tl224387224624_ + ___splice231414231415_ + _target224390224627_ + _tl224392224629_ + _e224407224632_ + _hd224406224635_ + _tl224405224637_ + _e224410224640_ + _hd224409224643_ + _tl224408224645_ + _e224413224648_ + _hd224412224651_ + _tl224411224653_) + (letrec ((_loop224393224656_ + (lambda (_hd224391224659_ + _-absent-value224397224661_ + _key224398224663_ + _-xkwvar224399224665_ + _-hash-ref224400224667_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224461224729_)) - (let ((_e224464224740_ + (gx#stx-pair? _hd224391224659_)) + (let ((_e224394224670_ (let () (declare (not safe)) - (gx#stx-e _hd224461224729_)))) - (let ((_lp-tl224466224745_ + (gx#stx-e _hd224391224659_)))) + (let ((_lp-tl224396224675_ (let () (declare (not safe)) - (##cdr _e224464224740_))) - (_lp-hd224465224743_ + (##cdr _e224394224670_))) + (_lp-hd224395224673_ (let () (declare (not safe)) - (##car _e224464224740_)))) + (##car _e224394224670_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd224465224743_)) - (let ((_e224486224748_ + _lp-hd224395224673_)) + (let ((_e224416224678_ (let () (declare (not safe)) (gx#stx-e - _lp-hd224465224743_)))) - (let ((_tl224484224753_ + _lp-hd224395224673_)))) + (let ((_tl224414224683_ (let () (declare (not safe)) - (##cdr _e224486224748_))) - (_hd224485224751_ + (##cdr _e224416224678_))) + (_hd224415224681_ (let () (declare (not safe)) - (##car _e224486224748_)))) + (##car _e224416224678_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd224485224751_)) + _hd224415224681_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd224485224751_)) + _hd224415224681_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl224484224753_)) - (let ((_e224489224756_ + (gx#stx-pair? _tl224414224683_)) + (let ((_e224419224686_ (let () (declare (not safe)) - (gx#stx-e _tl224484224753_)))) - (let ((_tl224487224761_ + (gx#stx-e _tl224414224683_)))) + (let ((_tl224417224691_ (let () (declare (not safe)) - (##cdr _e224489224756_))) - (_hd224488224759_ + (##cdr _e224419224686_))) + (_hd224418224689_ (let () (declare (not safe)) - (##car _e224489224756_)))) + (##car _e224419224686_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224488224759_)) - (let ((_e224492224764_ + (gx#stx-pair? _hd224418224689_)) + (let ((_e224422224694_ (let () (declare (not safe)) - (gx#stx-e _hd224488224759_)))) - (let ((_tl224490224769_ + (gx#stx-e _hd224418224689_)))) + (let ((_tl224420224699_ (let () (declare (not safe)) - (##cdr _e224492224764_))) - (_hd224491224767_ + (##cdr _e224422224694_))) + (_hd224421224697_ (let () (declare (not safe)) - (##car _e224492224764_)))) + (##car _e224422224694_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224491224767_)) + (gx#identifier? _hd224421224697_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd224491224767_)) + _hd224421224697_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224490224769_)) - (let ((_e224495224772_ + _tl224420224699_)) + (let ((_e224425224702_ (let () (declare (not safe)) (gx#stx-e - _tl224490224769_)))) - (let ((_tl224493224777_ + _tl224420224699_)))) + (let ((_tl224423224707_ (let () (declare (not safe)) - (##cdr _e224495224772_))) - (_hd224494224775_ + (##cdr _e224425224702_))) + (_hd224424224705_ (let () (declare (not safe)) - (##car _e224495224772_)))) + (##car _e224425224702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224493224777_)) + _tl224423224707_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224487224761_)) - (let ((_e224498224780_ + _tl224417224691_)) + (let ((_e224428224710_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl224487224761_)))) - (let ((_tl224496224785_ + (gx#stx-e _tl224417224691_)))) + (let ((_tl224426224715_ (let () (declare (not safe)) - (##cdr _e224498224780_))) - (_hd224497224783_ + (##cdr _e224428224710_))) + (_hd224427224713_ (let () (declare (not safe)) - (##car _e224498224780_)))) + (##car _e224428224710_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224497224783_)) - (let ((_e224501224788_ + (gx#stx-pair? _hd224427224713_)) + (let ((_e224431224718_ (let () (declare (not safe)) - (gx#stx-e _hd224497224783_)))) - (let ((_tl224499224793_ + (gx#stx-e _hd224427224713_)))) + (let ((_tl224429224723_ (let () (declare (not safe)) - (##cdr _e224501224788_))) - (_hd224500224791_ + (##cdr _e224431224718_))) + (_hd224430224721_ (let () (declare (not safe)) - (##car _e224501224788_)))) + (##car _e224431224718_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224500224791_)) + (gx#identifier? _hd224430224721_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd224500224791_)) + (gx#stx-eq? '%#ref _hd224430224721_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224499224793_)) - (let ((_e224504224796_ + (gx#stx-pair? _tl224429224723_)) + (let ((_e224434224726_ (let () (declare (not safe)) (gx#stx-e - _tl224499224793_)))) - (let ((_tl224502224801_ + _tl224429224723_)))) + (let ((_tl224432224731_ (let () (declare (not safe)) - (##cdr _e224504224796_))) - (_hd224503224799_ + (##cdr _e224434224726_))) + (_hd224433224729_ (let () (declare (not safe)) - (##car _e224504224796_)))) + (##car _e224434224726_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224502224801_)) + _tl224432224731_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224496224785_)) - (let ((_e224507224804_ + _tl224426224715_)) + (let ((_e224437224734_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl224496224785_)))) - (let ((_tl224505224809_ - (let () (declare (not safe)) (##cdr _e224507224804_))) - (_hd224506224807_ - (let () (declare (not safe)) (##car _e224507224804_)))) + (gx#stx-e _tl224426224715_)))) + (let ((_tl224435224739_ + (let () (declare (not safe)) (##cdr _e224437224734_))) + (_hd224436224737_ + (let () (declare (not safe)) (##car _e224437224734_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224506224807_)) - (let ((_e224510224812_ + (gx#stx-pair? _hd224436224737_)) + (let ((_e224440224742_ (let () (declare (not safe)) - (gx#stx-e _hd224506224807_)))) - (let ((_tl224508224817_ + (gx#stx-e _hd224436224737_)))) + (let ((_tl224438224747_ (let () (declare (not safe)) - (##cdr _e224510224812_))) - (_hd224509224815_ + (##cdr _e224440224742_))) + (_hd224439224745_ (let () (declare (not safe)) - (##car _e224510224812_)))) + (##car _e224440224742_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224509224815_)) + (gx#identifier? _hd224439224745_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd224509224815_)) + (gx#stx-eq? '%#quote _hd224439224745_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224508224817_)) - (let ((_e224513224820_ + (gx#stx-pair? _tl224438224747_)) + (let ((_e224443224750_ (let () (declare (not safe)) - (gx#stx-e _tl224508224817_)))) - (let ((_tl224511224825_ + (gx#stx-e _tl224438224747_)))) + (let ((_tl224441224755_ (let () (declare (not safe)) - (##cdr _e224513224820_))) - (_hd224512224823_ + (##cdr _e224443224750_))) + (_hd224442224753_ (let () (declare (not safe)) - (##car _e224513224820_)))) + (##car _e224443224750_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224511224825_)) + _tl224441224755_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224505224809_)) - (let ((_e224516224828_ + _tl224435224739_)) + (let ((_e224446224758_ (let () (declare (not safe)) (gx#stx-e - _tl224505224809_)))) - (let ((_tl224514224833_ + _tl224435224739_)))) + (let ((_tl224444224763_ (let () (declare (not safe)) - (##cdr _e224516224828_))) - (_hd224515224831_ + (##cdr _e224446224758_))) + (_hd224445224761_ (let () (declare (not safe)) - (##car _e224516224828_)))) + (##car _e224446224758_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd224515224831_)) - (let ((_e224519224836_ + _hd224445224761_)) + (let ((_e224449224766_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd224515224831_)))) - (let ((_tl224517224841_ + (gx#stx-e _hd224445224761_)))) + (let ((_tl224447224771_ (let () (declare (not safe)) - (##cdr _e224519224836_))) - (_hd224518224839_ + (##cdr _e224449224766_))) + (_hd224448224769_ (let () (declare (not safe)) - (##car _e224519224836_)))) + (##car _e224449224766_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224518224839_)) + (gx#identifier? _hd224448224769_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd224518224839_)) + (gx#stx-eq? '%#ref _hd224448224769_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224517224841_)) - (let ((_e224522224844_ + (gx#stx-pair? _tl224447224771_)) + (let ((_e224452224774_ (let () (declare (not safe)) - (gx#stx-e _tl224517224841_)))) - (let ((_tl224520224849_ + (gx#stx-e _tl224447224771_)))) + (let ((_tl224450224779_ (let () (declare (not safe)) - (##cdr _e224522224844_))) - (_hd224521224847_ + (##cdr _e224452224774_))) + (_hd224451224777_ (let () (declare (not safe)) - (##car _e224522224844_)))) + (##car _e224452224774_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl224520224849_)) + (gx#stx-null? _tl224450224779_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl224514224833_)) - (let ((__tmp233215 + _tl224444224763_)) + (let ((__tmp233145 (let () (declare (not safe)) - (cons _hd224521224847_ - _-absent-value224467224731_))) - (__tmp233214 + (cons _hd224451224777_ + _-absent-value224397224661_))) + (__tmp233144 (let () (declare (not safe)) - (cons _hd224512224823_ - _key224468224733_))) - (__tmp233213 + (cons _hd224442224753_ + _key224398224663_))) + (__tmp233143 (let () (declare (not safe)) - (cons _hd224503224799_ - _-xkwvar224469224735_))) - (__tmp233212 + (cons _hd224433224729_ + _-xkwvar224399224665_))) + (__tmp233142 (let () (declare (not safe)) - (cons _hd224494224775_ - _-hash-ref224470224737_)))) + (cons _hd224424224705_ + _-hash-ref224400224667_)))) (declare (not safe)) - (_loop224463224726_ - _lp-tl224466224745_ - __tmp233215 - __tmp233214 - __tmp233213 - __tmp233212)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (let ((_-hash-ref224474224858_ - (reverse _-hash-ref224470224737_)) - (_-xkwvar224473224856_ - (reverse _-xkwvar224469224735_)) - (_key224472224854_ - (reverse _key224468224733_)) - (_-absent-value224471224852_ - (reverse _-absent-value224467224731_))) + (_loop224393224656_ + _lp-tl224396224675_ + __tmp233145 + __tmp233144 + __tmp233143 + __tmp233142)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (let ((_-hash-ref224404224788_ + (reverse _-hash-ref224400224667_)) + (_-xkwvar224403224786_ + (reverse _-xkwvar224399224665_)) + (_key224402224784_ + (reverse _key224398224663_)) + (_-absent-value224401224782_ + (reverse _-absent-value224397224661_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl224427224614_)) - (let ((_L224861_ _hd224482224721_) - (_L224862_ - _-absent-value224471224852_) - (_L224863_ _key224472224854_) - (_L224864_ - _-xkwvar224473224856_) - (_L224865_ - _-hash-ref224474224858_) - (_L224866_ _hd224458224692_) - (_L224867_ _hd224449224668_) - (_L224868_ _hd224440224644_) - (_L224869_ _tl224424224606_) - (_L224870_ _hd224425224604_)) + (gx#stx-null? _tl224357224544_)) + (let ((_L224791_ _hd224412224651_) + (_L224792_ + _-absent-value224401224782_) + (_L224793_ _key224402224784_) + (_L224794_ + _-xkwvar224403224786_) + (_L224795_ + _-hash-ref224404224788_) + (_L224796_ _hd224388224622_) + (_L224797_ _hd224379224598_) + (_L224798_ _hd224370224574_) + (_L224799_ _tl224354224536_) + (_L224800_ _hd224355224534_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L224870_)) + _L224800_)) (let () (declare (not safe)) (gx#identifier? - _L224869_)) + _L224799_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L224868_ + _L224798_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L224870_ - _L224866_)) - (let ((__tmp233210 - (let ((__tmp233211 + _L224800_ + _L224796_)) + (let ((__tmp233140 + (let ((__tmp233141 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g224923224926_ _g224924224928_) + (lambda (_g224853224856_ _g224854224858_) (let () (declare (not safe)) - (cons _g224923224926_ _g224924224928_))))) + (cons _g224853224856_ _g224854224858_))))) (declare (not safe)) - (foldr1 __tmp233211 '() _L224863_)))) + (foldr1 __tmp233141 '() _L224793_)))) (declare (not safe)) - (andmap1 gx#stx-keyword? __tmp233210)) - (let ((__tmp233209 - (lambda (_g224930224932_) + (andmap1 gx#stx-keyword? __tmp233140)) + (let ((__tmp233139 + (lambda (_g224860224862_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g224930224932_ + _g224860224862_ 'hash-ref)))) - (__tmp233207 - (let ((__tmp233208 - (lambda (_g224934224937_ _g224935224939_) + (__tmp233137 + (let ((__tmp233138 + (lambda (_g224864224867_ _g224865224869_) (let () (declare (not safe)) - (cons _g224934224937_ _g224935224939_))))) + (cons _g224864224867_ _g224865224869_))))) (declare (not safe)) - (foldr1 __tmp233208 '() _L224865_)))) + (foldr1 __tmp233138 '() _L224795_)))) (declare (not safe)) - (andmap1 __tmp233209 __tmp233207)) - (let ((__tmp233206 - (lambda (_g224941224943_) + (andmap1 __tmp233139 __tmp233137)) + (let ((__tmp233136 + (lambda (_g224871224873_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g224941224943_ + _g224871224873_ 'absent-value)))) - (__tmp233204 - (let ((__tmp233205 - (lambda (_g224945224948_ _g224946224950_) + (__tmp233134 + (let ((__tmp233135 + (lambda (_g224875224878_ _g224876224880_) (let () (declare (not safe)) - (cons _g224945224948_ _g224946224950_))))) + (cons _g224875224878_ _g224876224880_))))) (declare (not safe)) - (foldr1 __tmp233205 '() _L224862_)))) + (foldr1 __tmp233135 '() _L224792_)))) (declare (not safe)) - (andmap1 __tmp233206 __tmp233204)) - (let ((__tmp233203 - (lambda (_g224952224954_) + (andmap1 __tmp233136 __tmp233134)) + (let ((__tmp233133 + (lambda (_g224882224884_) (let () (declare (not safe)) - (gx#free-identifier=? _g224952224954_ _L224870_)))) - (__tmp233201 - (let ((__tmp233202 - (lambda (_g224956224959_ _g224957224961_) + (gx#free-identifier=? _g224882224884_ _L224800_)))) + (__tmp233131 + (let ((__tmp233132 + (lambda (_g224886224889_ _g224887224891_) (let () (declare (not safe)) - (cons _g224956224959_ _g224957224961_))))) + (cons _g224886224889_ _g224887224891_))))) (declare (not safe)) - (foldr1 __tmp233202 '() _L224864_)))) + (foldr1 __tmp233132 '() _L224794_)))) (declare (not safe)) - (andmap1 __tmp233203 __tmp233201))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont231482231483_ - _L224861_ - _L224862_ - _L224863_ - _L224864_ - _L224865_ - _L224866_ - _L224867_ - _L224868_ - _L224869_ - _L224870_) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_))))))) + (andmap1 __tmp233133 __tmp233131))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont231412231413_ + _L224791_ + _L224792_ + _L224793_ + _L224794_ + _L224795_ + _L224796_ + _L224797_ + _L224798_ + _L224799_ + _L224800_) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_))))))) (let () (declare (not safe)) - (_loop224463224726_ - _target224460224697_ + (_loop224393224656_ + _target224390224627_ '() '() '() '()))))) - (___match231661231662_ - (lambda (_e224420224585_ - _hd224419224588_ - _tl224418224590_ - _e224423224593_ - _hd224422224596_ - _tl224421224598_) + (___match231591231592_ + (lambda (_e224350224515_ + _hd224349224518_ + _tl224348224520_ + _e224353224523_ + _hd224352224526_ + _tl224351224528_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224422224596_)) - (let ((_e224426224601_ + (gx#stx-pair? _hd224352224526_)) + (let ((_e224356224531_ (let () (declare (not safe)) - (gx#stx-e _hd224422224596_)))) - (let ((_tl224424224606_ + (gx#stx-e _hd224352224526_)))) + (let ((_tl224354224536_ (let () (declare (not safe)) - (##cdr _e224426224601_))) - (_hd224425224604_ + (##cdr _e224356224531_))) + (_hd224355224534_ (let () (declare (not safe)) - (##car _e224426224601_)))) + (##car _e224356224531_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224421224598_)) - (let ((_e224429224609_ + (gx#stx-pair? _tl224351224528_)) + (let ((_e224359224539_ (let () (declare (not safe)) - (gx#stx-e _tl224421224598_)))) - (let ((_tl224427224614_ + (gx#stx-e _tl224351224528_)))) + (let ((_tl224357224544_ (let () (declare (not safe)) - (##cdr _e224429224609_))) - (_hd224428224612_ + (##cdr _e224359224539_))) + (_hd224358224542_ (let () (declare (not safe)) - (##car _e224429224609_)))) + (##car _e224359224539_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224428224612_)) - (let ((_e224432224617_ + (gx#stx-pair? _hd224358224542_)) + (let ((_e224362224547_ (let () (declare (not safe)) (gx#stx-e - _hd224428224612_)))) - (let ((_tl224430224622_ + _hd224358224542_)))) + (let ((_tl224360224552_ (let () (declare (not safe)) - (##cdr _e224432224617_))) - (_hd224431224620_ + (##cdr _e224362224547_))) + (_hd224361224550_ (let () (declare (not safe)) - (##car _e224432224617_)))) + (##car _e224362224547_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd224431224620_)) + _hd224361224550_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd224431224620_)) + _hd224361224550_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224430224622_)) - (let ((_e224435224625_ + _tl224360224552_)) + (let ((_e224365224555_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl224430224622_)))) - (let ((_tl224433224630_ + (gx#stx-e _tl224360224552_)))) + (let ((_tl224363224560_ (let () (declare (not safe)) - (##cdr _e224435224625_))) - (_hd224434224628_ + (##cdr _e224365224555_))) + (_hd224364224558_ (let () (declare (not safe)) - (##car _e224435224625_)))) + (##car _e224365224555_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224434224628_)) - (let ((_e224438224633_ + (gx#stx-pair? _hd224364224558_)) + (let ((_e224368224563_ (let () (declare (not safe)) - (gx#stx-e _hd224434224628_)))) - (let ((_tl224436224638_ + (gx#stx-e _hd224364224558_)))) + (let ((_tl224366224568_ (let () (declare (not safe)) - (##cdr _e224438224633_))) - (_hd224437224636_ + (##cdr _e224368224563_))) + (_hd224367224566_ (let () (declare (not safe)) - (##car _e224438224633_)))) + (##car _e224368224563_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224437224636_)) + (gx#identifier? _hd224367224566_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd224437224636_)) + (gx#stx-eq? '%#ref _hd224367224566_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224436224638_)) - (let ((_e224441224641_ + (gx#stx-pair? _tl224366224568_)) + (let ((_e224371224571_ (let () (declare (not safe)) (gx#stx-e - _tl224436224638_)))) - (let ((_tl224439224646_ + _tl224366224568_)))) + (let ((_tl224369224576_ (let () (declare (not safe)) - (##cdr _e224441224641_))) - (_hd224440224644_ + (##cdr _e224371224571_))) + (_hd224370224574_ (let () (declare (not safe)) - (##car _e224441224641_)))) + (##car _e224371224571_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224439224646_)) + _tl224369224576_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224433224630_)) - (let ((_e224444224649_ + _tl224363224560_)) + (let ((_e224374224579_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl224433224630_)))) - (let ((_tl224442224654_ - (let () (declare (not safe)) (##cdr _e224444224649_))) - (_hd224443224652_ - (let () (declare (not safe)) (##car _e224444224649_)))) + (gx#stx-e _tl224363224560_)))) + (let ((_tl224372224584_ + (let () (declare (not safe)) (##cdr _e224374224579_))) + (_hd224373224582_ + (let () (declare (not safe)) (##car _e224374224579_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224443224652_)) - (let ((_e224447224657_ + (gx#stx-pair? _hd224373224582_)) + (let ((_e224377224587_ (let () (declare (not safe)) - (gx#stx-e _hd224443224652_)))) - (let ((_tl224445224662_ + (gx#stx-e _hd224373224582_)))) + (let ((_tl224375224592_ (let () (declare (not safe)) - (##cdr _e224447224657_))) - (_hd224446224660_ + (##cdr _e224377224587_))) + (_hd224376224590_ (let () (declare (not safe)) - (##car _e224447224657_)))) + (##car _e224377224587_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224446224660_)) + (gx#identifier? _hd224376224590_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd224446224660_)) + (gx#stx-eq? '%#ref _hd224376224590_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224445224662_)) - (let ((_e224450224665_ + (gx#stx-pair? _tl224375224592_)) + (let ((_e224380224595_ (let () (declare (not safe)) - (gx#stx-e _tl224445224662_)))) - (let ((_tl224448224670_ + (gx#stx-e _tl224375224592_)))) + (let ((_tl224378224600_ (let () (declare (not safe)) - (##cdr _e224450224665_))) - (_hd224449224668_ + (##cdr _e224380224595_))) + (_hd224379224598_ (let () (declare (not safe)) - (##car _e224450224665_)))) + (##car _e224380224595_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224448224670_)) + _tl224378224600_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224442224654_)) - (let ((_e224453224673_ + _tl224372224584_)) + (let ((_e224383224603_ (let () (declare (not safe)) (gx#stx-e - _tl224442224654_)))) - (let ((_tl224451224678_ + _tl224372224584_)))) + (let ((_tl224381224608_ (let () (declare (not safe)) - (##cdr _e224453224673_))) - (_hd224452224676_ + (##cdr _e224383224603_))) + (_hd224382224606_ (let () (declare (not safe)) - (##car _e224453224673_)))) + (##car _e224383224603_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd224452224676_)) - (let ((_e224456224681_ + _hd224382224606_)) + (let ((_e224386224611_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd224452224676_)))) - (let ((_tl224454224686_ + (gx#stx-e _hd224382224606_)))) + (let ((_tl224384224616_ (let () (declare (not safe)) - (##cdr _e224456224681_))) - (_hd224455224684_ + (##cdr _e224386224611_))) + (_hd224385224614_ (let () (declare (not safe)) - (##car _e224456224681_)))) + (##car _e224386224611_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224455224684_)) + (gx#identifier? _hd224385224614_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd224455224684_)) + (gx#stx-eq? '%#ref _hd224385224614_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224454224686_)) - (let ((_e224459224689_ + (gx#stx-pair? _tl224384224616_)) + (let ((_e224389224619_ (let () (declare (not safe)) - (gx#stx-e _tl224454224686_)))) - (let ((_tl224457224694_ + (gx#stx-e _tl224384224616_)))) + (let ((_tl224387224624_ (let () (declare (not safe)) - (##cdr _e224459224689_))) - (_hd224458224692_ + (##cdr _e224389224619_))) + (_hd224388224622_ (let () (declare (not safe)) - (##car _e224459224689_)))) + (##car _e224389224619_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl224457224694_)) + (gx#stx-null? _tl224387224624_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl224451224678_)) + _tl224381224608_)) (if (fx>= (let () (declare (not safe)) (gx#stx-length - _tl224451224678_)) + _tl224381224608_)) '1) - (let ((___splice231484231485_ + (let ((___splice231414231415_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl224451224678_ + _tl224381224608_ '1)))) - (let ((_tl224462224699_ + (let ((_tl224392224629_ (let () (declare (not safe)) (##vector-ref - ___splice231484231485_ + ___splice231414231415_ '1))) - (_target224460224697_ + (_target224390224627_ (let () (declare (not safe)) (##vector-ref - ___splice231484231485_ + ___splice231414231415_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224462224699_)) - (let ((_e224477224702_ + _tl224392224629_)) + (let ((_e224407224632_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl224462224699_)))) - (let ((_tl224475224707_ + (gx#stx-e _tl224392224629_)))) + (let ((_tl224405224637_ (let () (declare (not safe)) - (##cdr _e224477224702_))) - (_hd224476224705_ + (##cdr _e224407224632_))) + (_hd224406224635_ (let () (declare (not safe)) - (##car _e224477224702_)))) + (##car _e224407224632_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224476224705_)) - (let ((_e224480224710_ + (gx#stx-pair? _hd224406224635_)) + (let ((_e224410224640_ (let () (declare (not safe)) - (gx#stx-e _hd224476224705_)))) - (let ((_tl224478224715_ + (gx#stx-e _hd224406224635_)))) + (let ((_tl224408224645_ (let () (declare (not safe)) - (##cdr _e224480224710_))) - (_hd224479224713_ + (##cdr _e224410224640_))) + (_hd224409224643_ (let () (declare (not safe)) - (##car _e224480224710_)))) + (##car _e224410224640_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224479224713_)) + (gx#identifier? _hd224409224643_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd224479224713_)) + (gx#stx-eq? '%#ref _hd224409224643_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224478224715_)) - (let ((_e224483224718_ + (gx#stx-pair? _tl224408224645_)) + (let ((_e224413224648_ (let () (declare (not safe)) (gx#stx-e - _tl224478224715_)))) - (let ((_tl224481224723_ + _tl224408224645_)))) + (let ((_tl224411224653_ (let () (declare (not safe)) - (##cdr _e224483224718_))) - (_hd224482224721_ + (##cdr _e224413224648_))) + (_hd224412224651_ (let () (declare (not safe)) - (##car _e224483224718_)))) + (##car _e224413224648_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224481224723_)) + _tl224411224653_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl224475224707_)) - (___match231789231790_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_ - _e224423224593_ - _hd224422224596_ - _tl224421224598_ - _e224426224601_ - _hd224425224604_ - _tl224424224606_ - _e224429224609_ - _hd224428224612_ - _tl224427224614_ - _e224432224617_ - _hd224431224620_ - _tl224430224622_ - _e224435224625_ - _hd224434224628_ - _tl224433224630_ - _e224438224633_ - _hd224437224636_ - _tl224436224638_ - _e224441224641_ - _hd224440224644_ - _tl224439224646_ - _e224444224649_ - _hd224443224652_ - _tl224442224654_ - _e224447224657_ - _hd224446224660_ - _tl224445224662_ - _e224450224665_ - _hd224449224668_ - _tl224448224670_ - _e224453224673_ - _hd224452224676_ - _tl224451224678_ - _e224456224681_ - _hd224455224684_ - _tl224454224686_ - _e224459224689_ - _hd224458224692_ - _tl224457224694_ - ___splice231484231485_ - _target224460224697_ - _tl224462224699_ - _e224477224702_ - _hd224476224705_ - _tl224475224707_ - _e224480224710_ - _hd224479224713_ - _tl224478224715_ - _e224483224718_ - _hd224482224721_ - _tl224481224723_) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231795231796_ - _e224420224585_ - _hd224419224588_ - _tl224418224590_)))) - (___match231649231650_ - (lambda (_e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_ - _e224359224992_ - _hd224358224995_ - _tl224357224997_ - _e224362225000_ - _hd224361225003_ - _tl224360225005_ - _e224365225008_ - _hd224364225011_ - _tl224363225013_ - _e224368225016_ - _hd224367225019_ - _tl224366225021_ - _e224371225024_ - _hd224370225027_ - _tl224369225029_ - _e224374225032_ - _hd224373225035_ - _tl224372225037_ - _e224377225040_ - _hd224376225043_ - _tl224375225045_ - _e224380225048_ - _hd224379225051_ - _tl224378225053_ - _e224383225056_ - _hd224382225059_ - _tl224381225061_ - _e224386225064_ - _hd224385225067_ - _tl224384225069_ - _e224389225072_ - _hd224388225075_ - _tl224387225077_ - _e224392225080_ - _hd224391225083_ - _tl224390225085_ - _e224395225088_ - _hd224394225091_ - _tl224393225093_ - _e224398225096_ - _hd224397225099_ - _tl224396225101_ - _e224401225104_ - _hd224400225107_ - _tl224399225109_ - _e224404225112_ - _hd224403225115_ - _tl224402225117_ - _e224407225120_ - _hd224406225123_ - _tl224405225125_) - (let ((_L225128_ _hd224406225123_) - (_L225129_ _hd224397225099_) - (_L225130_ _hd224388225075_) - (_L225131_ _hd224379225051_) - (_L225132_ _hd224370225027_) - (_L225133_ _hd224355224987_)) + _tl224405224637_)) + (___match231719231720_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_ + _e224353224523_ + _hd224352224526_ + _tl224351224528_ + _e224356224531_ + _hd224355224534_ + _tl224354224536_ + _e224359224539_ + _hd224358224542_ + _tl224357224544_ + _e224362224547_ + _hd224361224550_ + _tl224360224552_ + _e224365224555_ + _hd224364224558_ + _tl224363224560_ + _e224368224563_ + _hd224367224566_ + _tl224366224568_ + _e224371224571_ + _hd224370224574_ + _tl224369224576_ + _e224374224579_ + _hd224373224582_ + _tl224372224584_ + _e224377224587_ + _hd224376224590_ + _tl224375224592_ + _e224380224595_ + _hd224379224598_ + _tl224378224600_ + _e224383224603_ + _hd224382224606_ + _tl224381224608_ + _e224386224611_ + _hd224385224614_ + _tl224384224616_ + _e224389224619_ + _hd224388224622_ + _tl224387224624_ + ___splice231414231415_ + _target224390224627_ + _tl224392224629_ + _e224407224632_ + _hd224406224635_ + _tl224405224637_ + _e224410224640_ + _hd224409224643_ + _tl224408224645_ + _e224413224648_ + _hd224412224651_ + _tl224411224653_) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231725231726_ + _e224350224515_ + _hd224349224518_ + _tl224348224520_)))) + (___match231579231580_ + (lambda (_e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_ + _e224289224922_ + _hd224288224925_ + _tl224287224927_ + _e224292224930_ + _hd224291224933_ + _tl224290224935_ + _e224295224938_ + _hd224294224941_ + _tl224293224943_ + _e224298224946_ + _hd224297224949_ + _tl224296224951_ + _e224301224954_ + _hd224300224957_ + _tl224299224959_ + _e224304224962_ + _hd224303224965_ + _tl224302224967_ + _e224307224970_ + _hd224306224973_ + _tl224305224975_ + _e224310224978_ + _hd224309224981_ + _tl224308224983_ + _e224313224986_ + _hd224312224989_ + _tl224311224991_ + _e224316224994_ + _hd224315224997_ + _tl224314224999_ + _e224319225002_ + _hd224318225005_ + _tl224317225007_ + _e224322225010_ + _hd224321225013_ + _tl224320225015_ + _e224325225018_ + _hd224324225021_ + _tl224323225023_ + _e224328225026_ + _hd224327225029_ + _tl224326225031_ + _e224331225034_ + _hd224330225037_ + _tl224329225039_ + _e224334225042_ + _hd224333225045_ + _tl224332225047_ + _e224337225050_ + _hd224336225053_ + _tl224335225055_) + (let ((_L225058_ _hd224336225053_) + (_L225059_ _hd224327225029_) + (_L225060_ _hd224318225005_) + (_L225061_ _hd224309224981_) + (_L225062_ _hd224300224957_) + (_L225063_ _hd224285224917_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L225133_)) + (gx#identifier? _L225063_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L225132_ 'apply)) + (gxc#runtime-identifier=? _L225062_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L225131_ + _L225061_ 'keyword-dispatch)) (let () (declare (not safe)) - (gx#free-identifier=? _L225133_ _L225128_))) - (___kont231480231481_ - _L225128_ - _L225129_ - _L225130_ - _L225131_ - _L225132_ - _L225133_) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_))))) - (___match231503231504_ - (lambda (_e224353224976_ _hd224352224979_ _tl224351224981_) + (gx#free-identifier=? _L225063_ _L225058_))) + (___kont231410231411_ + _L225058_ + _L225059_ + _L225060_ + _L225061_ + _L225062_ + _L225063_) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_))))) + (___match231433231434_ + (lambda (_e224283224906_ _hd224282224909_ _tl224281224911_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224351224981_)) - (let ((_e224356224984_ + (gx#stx-pair? _tl224281224911_)) + (let ((_e224286224914_ (let () (declare (not safe)) - (gx#stx-e _tl224351224981_)))) - (let ((_tl224354224989_ + (gx#stx-e _tl224281224911_)))) + (let ((_tl224284224919_ (let () (declare (not safe)) - (##cdr _e224356224984_))) - (_hd224355224987_ + (##cdr _e224286224914_))) + (_hd224285224917_ (let () (declare (not safe)) - (##car _e224356224984_)))) + (##car _e224286224914_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224354224989_)) - (let ((_e224359224992_ + (gx#stx-pair? _tl224284224919_)) + (let ((_e224289224922_ (let () (declare (not safe)) - (gx#stx-e _tl224354224989_)))) - (let ((_tl224357224997_ + (gx#stx-e _tl224284224919_)))) + (let ((_tl224287224927_ (let () (declare (not safe)) - (##cdr _e224359224992_))) - (_hd224358224995_ + (##cdr _e224289224922_))) + (_hd224288224925_ (let () (declare (not safe)) - (##car _e224359224992_)))) + (##car _e224289224922_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224358224995_)) - (let ((_e224362225000_ + (gx#stx-pair? _hd224288224925_)) + (let ((_e224292224930_ (let () (declare (not safe)) (gx#stx-e - _hd224358224995_)))) - (let ((_tl224360225005_ + _hd224288224925_)))) + (let ((_tl224290224935_ (let () (declare (not safe)) - (##cdr _e224362225000_))) - (_hd224361225003_ + (##cdr _e224292224930_))) + (_hd224291224933_ (let () (declare (not safe)) - (##car _e224362225000_)))) + (##car _e224292224930_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd224361225003_)) + _hd224291224933_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd224361225003_)) + _hd224291224933_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224360225005_)) - (let ((_e224365225008_ + _tl224290224935_)) + (let ((_e224295224938_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl224360225005_)))) - (let ((_tl224363225013_ + (gx#stx-e _tl224290224935_)))) + (let ((_tl224293224943_ (let () (declare (not safe)) - (##cdr _e224365225008_))) - (_hd224364225011_ + (##cdr _e224295224938_))) + (_hd224294224941_ (let () (declare (not safe)) - (##car _e224365225008_)))) + (##car _e224295224938_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224364225011_)) - (let ((_e224368225016_ + (gx#stx-pair? _hd224294224941_)) + (let ((_e224298224946_ (let () (declare (not safe)) - (gx#stx-e _hd224364225011_)))) - (let ((_tl224366225021_ + (gx#stx-e _hd224294224941_)))) + (let ((_tl224296224951_ (let () (declare (not safe)) - (##cdr _e224368225016_))) - (_hd224367225019_ + (##cdr _e224298224946_))) + (_hd224297224949_ (let () (declare (not safe)) - (##car _e224368225016_)))) + (##car _e224298224946_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224367225019_)) + (gx#identifier? _hd224297224949_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd224367225019_)) + (gx#stx-eq? '%#ref _hd224297224949_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224366225021_)) - (let ((_e224371225024_ + (gx#stx-pair? _tl224296224951_)) + (let ((_e224301224954_ (let () (declare (not safe)) (gx#stx-e - _tl224366225021_)))) - (let ((_tl224369225029_ + _tl224296224951_)))) + (let ((_tl224299224959_ (let () (declare (not safe)) - (##cdr _e224371225024_))) - (_hd224370225027_ + (##cdr _e224301224954_))) + (_hd224300224957_ (let () (declare (not safe)) - (##car _e224371225024_)))) + (##car _e224301224954_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224369225029_)) + _tl224299224959_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224363225013_)) - (let ((_e224374225032_ + _tl224293224943_)) + (let ((_e224304224962_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl224363225013_)))) - (let ((_tl224372225037_ - (let () (declare (not safe)) (##cdr _e224374225032_))) - (_hd224373225035_ - (let () (declare (not safe)) (##car _e224374225032_)))) + (gx#stx-e _tl224293224943_)))) + (let ((_tl224302224967_ + (let () (declare (not safe)) (##cdr _e224304224962_))) + (_hd224303224965_ + (let () (declare (not safe)) (##car _e224304224962_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224373225035_)) - (let ((_e224377225040_ + (gx#stx-pair? _hd224303224965_)) + (let ((_e224307224970_ (let () (declare (not safe)) - (gx#stx-e _hd224373225035_)))) - (let ((_tl224375225045_ + (gx#stx-e _hd224303224965_)))) + (let ((_tl224305224975_ (let () (declare (not safe)) - (##cdr _e224377225040_))) - (_hd224376225043_ + (##cdr _e224307224970_))) + (_hd224306224973_ (let () (declare (not safe)) - (##car _e224377225040_)))) + (##car _e224307224970_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224376225043_)) + (gx#identifier? _hd224306224973_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd224376225043_)) + (gx#stx-eq? '%#ref _hd224306224973_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224375225045_)) - (let ((_e224380225048_ + (gx#stx-pair? _tl224305224975_)) + (let ((_e224310224978_ (let () (declare (not safe)) - (gx#stx-e _tl224375225045_)))) - (let ((_tl224378225053_ + (gx#stx-e _tl224305224975_)))) + (let ((_tl224308224983_ (let () (declare (not safe)) - (##cdr _e224380225048_))) - (_hd224379225051_ + (##cdr _e224310224978_))) + (_hd224309224981_ (let () (declare (not safe)) - (##car _e224380225048_)))) + (##car _e224310224978_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224378225053_)) + _tl224308224983_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224372225037_)) - (let ((_e224383225056_ + _tl224302224967_)) + (let ((_e224313224986_ (let () (declare (not safe)) (gx#stx-e - _tl224372225037_)))) - (let ((_tl224381225061_ + _tl224302224967_)))) + (let ((_tl224311224991_ (let () (declare (not safe)) - (##cdr _e224383225056_))) - (_hd224382225059_ + (##cdr _e224313224986_))) + (_hd224312224989_ (let () (declare (not safe)) - (##car _e224383225056_)))) + (##car _e224313224986_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd224382225059_)) - (let ((_e224386225064_ + _hd224312224989_)) + (let ((_e224316224994_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd224382225059_)))) - (let ((_tl224384225069_ + (gx#stx-e _hd224312224989_)))) + (let ((_tl224314224999_ (let () (declare (not safe)) - (##cdr _e224386225064_))) - (_hd224385225067_ + (##cdr _e224316224994_))) + (_hd224315224997_ (let () (declare (not safe)) - (##car _e224386225064_)))) + (##car _e224316224994_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224385225067_)) + (gx#identifier? _hd224315224997_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd224385225067_)) + (gx#stx-eq? '%#quote _hd224315224997_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224384225069_)) - (let ((_e224389225072_ + (gx#stx-pair? _tl224314224999_)) + (let ((_e224319225002_ (let () (declare (not safe)) - (gx#stx-e _tl224384225069_)))) - (let ((_tl224387225077_ + (gx#stx-e _tl224314224999_)))) + (let ((_tl224317225007_ (let () (declare (not safe)) - (##cdr _e224389225072_))) - (_hd224388225075_ + (##cdr _e224319225002_))) + (_hd224318225005_ (let () (declare (not safe)) - (##car _e224389225072_)))) + (##car _e224319225002_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl224387225077_)) + (gx#stx-null? _tl224317225007_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224381225061_)) - (let ((_e224392225080_ + _tl224311224991_)) + (let ((_e224322225010_ (let () (declare (not safe)) (gx#stx-e - _tl224381225061_)))) - (let ((_tl224390225085_ + _tl224311224991_)))) + (let ((_tl224320225015_ (let () (declare (not safe)) - (##cdr _e224392225080_))) - (_hd224391225083_ + (##cdr _e224322225010_))) + (_hd224321225013_ (let () (declare (not safe)) - (##car _e224392225080_)))) + (##car _e224322225010_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd224391225083_)) - (let ((_e224395225088_ + _hd224321225013_)) + (let ((_e224325225018_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd224391225083_)))) - (let ((_tl224393225093_ - (let () (declare (not safe)) (##cdr _e224395225088_))) - (_hd224394225091_ - (let () (declare (not safe)) (##car _e224395225088_)))) + (gx#stx-e _hd224321225013_)))) + (let ((_tl224323225023_ + (let () (declare (not safe)) (##cdr _e224325225018_))) + (_hd224324225021_ + (let () (declare (not safe)) (##car _e224325225018_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224394225091_)) + (gx#identifier? _hd224324225021_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd224394225091_)) + (gx#stx-eq? '%#ref _hd224324225021_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224393225093_)) - (let ((_e224398225096_ + (gx#stx-pair? _tl224323225023_)) + (let ((_e224328225026_ (let () (declare (not safe)) - (gx#stx-e _tl224393225093_)))) - (let ((_tl224396225101_ + (gx#stx-e _tl224323225023_)))) + (let ((_tl224326225031_ (let () (declare (not safe)) - (##cdr _e224398225096_))) - (_hd224397225099_ + (##cdr _e224328225026_))) + (_hd224327225029_ (let () (declare (not safe)) - (##car _e224398225096_)))) + (##car _e224328225026_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl224396225101_)) + (gx#stx-null? _tl224326225031_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224390225085_)) - (let ((_e224401225104_ + (gx#stx-pair? _tl224320225015_)) + (let ((_e224331225034_ (let () (declare (not safe)) (gx#stx-e - _tl224390225085_)))) - (let ((_tl224399225109_ + _tl224320225015_)))) + (let ((_tl224329225039_ (let () (declare (not safe)) - (##cdr _e224401225104_))) - (_hd224400225107_ + (##cdr _e224331225034_))) + (_hd224330225037_ (let () (declare (not safe)) - (##car _e224401225104_)))) + (##car _e224331225034_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd224400225107_)) - (let ((_e224404225112_ + _hd224330225037_)) + (let ((_e224334225042_ (let () (declare (not safe)) (gx#stx-e - _hd224400225107_)))) - (let ((_tl224402225117_ + _hd224330225037_)))) + (let ((_tl224332225047_ (let () (declare (not safe)) - (##cdr _e224404225112_))) - (_hd224403225115_ + (##cdr _e224334225042_))) + (_hd224333225045_ (let () (declare (not safe)) - (##car _e224404225112_)))) + (##car _e224334225042_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd224403225115_)) + _hd224333225045_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd224403225115_)) + (gx#stx-eq? '%#ref _hd224333225045_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224402225117_)) - (let ((_e224407225120_ + (gx#stx-pair? _tl224332225047_)) + (let ((_e224337225050_ (let () (declare (not safe)) - (gx#stx-e _tl224402225117_)))) - (let ((_tl224405225125_ + (gx#stx-e _tl224332225047_)))) + (let ((_tl224335225055_ (let () (declare (not safe)) - (##cdr _e224407225120_))) - (_hd224406225123_ + (##cdr _e224337225050_))) + (_hd224336225053_ (let () (declare (not safe)) - (##car _e224407225120_)))) + (##car _e224337225050_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl224405225125_)) + (gx#stx-null? _tl224335225055_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl224399225109_)) + (gx#stx-null? _tl224329225039_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl224357224997_)) - (___match231649231650_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_ - _e224359224992_ - _hd224358224995_ - _tl224357224997_ - _e224362225000_ - _hd224361225003_ - _tl224360225005_ - _e224365225008_ - _hd224364225011_ - _tl224363225013_ - _e224368225016_ - _hd224367225019_ - _tl224366225021_ - _e224371225024_ - _hd224370225027_ - _tl224369225029_ - _e224374225032_ - _hd224373225035_ - _tl224372225037_ - _e224377225040_ - _hd224376225043_ - _tl224375225045_ - _e224380225048_ - _hd224379225051_ - _tl224378225053_ - _e224383225056_ - _hd224382225059_ - _tl224381225061_ - _e224386225064_ - _hd224385225067_ - _tl224384225069_ - _e224389225072_ - _hd224388225075_ - _tl224387225077_ - _e224392225080_ - _hd224391225083_ - _tl224390225085_ - _e224395225088_ - _hd224394225091_ - _tl224393225093_ - _e224398225096_ - _hd224397225099_ - _tl224396225101_ - _e224401225104_ - _hd224400225107_ - _tl224399225109_ - _e224404225112_ - _hd224403225115_ - _tl224402225117_ - _e224407225120_ - _hd224406225123_ - _tl224405225125_) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231661231662_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_ - _e224356224984_ - _hd224355224987_ - _tl224354224989_)))) - (___match231795231796_ - _e224353224976_ - _hd224352224979_ - _tl224351224981_))))) + (gx#stx-null? _tl224287224927_)) + (___match231579231580_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_ + _e224289224922_ + _hd224288224925_ + _tl224287224927_ + _e224292224930_ + _hd224291224933_ + _tl224290224935_ + _e224295224938_ + _hd224294224941_ + _tl224293224943_ + _e224298224946_ + _hd224297224949_ + _tl224296224951_ + _e224301224954_ + _hd224300224957_ + _tl224299224959_ + _e224304224962_ + _hd224303224965_ + _tl224302224967_ + _e224307224970_ + _hd224306224973_ + _tl224305224975_ + _e224310224978_ + _hd224309224981_ + _tl224308224983_ + _e224313224986_ + _hd224312224989_ + _tl224311224991_ + _e224316224994_ + _hd224315224997_ + _tl224314224999_ + _e224319225002_ + _hd224318225005_ + _tl224317225007_ + _e224322225010_ + _hd224321225013_ + _tl224320225015_ + _e224325225018_ + _hd224324225021_ + _tl224323225023_ + _e224328225026_ + _hd224327225029_ + _tl224326225031_ + _e224331225034_ + _hd224330225037_ + _tl224329225039_ + _e224334225042_ + _hd224333225045_ + _tl224332225047_ + _e224337225050_ + _hd224336225053_ + _tl224335225055_) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231591231592_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_ + _e224286224914_ + _hd224285224917_ + _tl224284224919_)))) + (___match231725231726_ + _e224283224906_ + _hd224282224909_ + _tl224281224911_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx231476231477_)) - (let ((_e224344225193_ + (gx#stx-pair? ___stx231406231407_)) + (let ((_e224274225123_ (let () (declare (not safe)) - (gx#stx-e ___stx231476231477_)))) - (let ((_tl224342225198_ + (gx#stx-e ___stx231406231407_)))) + (let ((_tl224272225128_ (let () (declare (not safe)) - (##cdr _e224344225193_))) - (_hd224343225196_ + (##cdr _e224274225123_))) + (_hd224273225126_ (let () (declare (not safe)) - (##car _e224344225193_)))) + (##car _e224274225123_)))) (if (gxc#current-compile-type-closure) - (let ((_L225201_ _tl224342225198_)) - (___kont231478231479_ _L225201_)) - (___match231503231504_ - _e224344225193_ - _hd224343225196_ - _tl224342225198_)))) - (let () (declare (not safe)) (_g224339224535_)))))))) + (let ((_L225131_ _tl224272225128_)) + (___kont231408231409_ _L225131_)) + (___match231433231434_ + _e224274225123_ + _hd224273225126_ + _tl224272225128_)))) + (let () (declare (not safe)) (_g224269224465_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_stx224288_) - (letrec ((_clause-e224290_ - (lambda (_form224331_) - (let ((__obj233149 (make-object* gxc#!lambda::t '6))) + (lambda (_stx224218_) + (letrec ((_clause-e224220_ + (lambda (_form224261_) + (let ((__obj233079 (make-object gxc#!lambda::t '6))) (gxc#!lambda:::init! - __obj233149 + __obj233079 'case-lambda-clause (let () (declare (not safe)) - (gxc#lambda-form-arity _form224331_)) - (if (let ((__tmp233216 + (gxc#lambda-form-arity _form224261_)) + (if (let ((__tmp233146 (gxc#current-compile-type-closure))) (declare (not safe)) - (not __tmp233216)) + (not __tmp233146)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _form224331_)) + (gxc#dispatch-lambda-form? _form224261_)) (let () (declare (not safe)) (gxc#dispatch-lambda-form-delegate - _form224331_)) + _form224261_)) '#f) '#f)) - __obj233149)))) - (let* ((_g224292224302_ - (lambda (_g224293224299_) + __obj233079)))) + (let* ((_g224222224232_ + (lambda (_g224223224229_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224293224299_)))) - (_g224291224328_ - (lambda (_g224293224305_) + _g224223224229_)))) + (_g224221224258_ + (lambda (_g224223224235_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224293224305_)) - (let ((_e224297224307_ + (gx#stx-pair? _g224223224235_)) + (let ((_e224227224237_ (let () (declare (not safe)) - (gx#stx-e _g224293224305_)))) - (let ((_hd224296224310_ + (gx#stx-e _g224223224235_)))) + (let ((_hd224226224240_ (let () (declare (not safe)) - (##car _e224297224307_))) - (_tl224295224312_ + (##car _e224227224237_))) + (_tl224225224242_ (let () (declare (not safe)) - (##cdr _e224297224307_)))) - ((lambda (_L224315_) - (let ((_clauses224326_ - (map _clause-e224290_ _L224315_))) + (##cdr _e224227224237_)))) + ((lambda (_L224245_) + (let ((_clauses224256_ + (map _clause-e224220_ _L224245_))) (declare (not safe)) (##structure gxc#!case-lambda::t 'case-lambda - _clauses224326_))) - _tl224295224312_))) + _clauses224256_))) + _tl224225224242_))) (let () (declare (not safe)) - (_g224292224302_ _g224293224305_)))))) + (_g224222224232_ _g224223224235_)))))) (declare (not safe)) - (_g224291224328_ _stx224288_))))) + (_g224221224258_ _stx224218_))))) (define gxc#basic-expression-type-let-values% - (lambda (_stx224220_) - (let* ((_g224222224239_ - (lambda (_g224223224236_) + (lambda (_stx224150_) + (let* ((_g224152224169_ + (lambda (_g224153224166_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224223224236_)))) - (_g224221224285_ - (lambda (_g224223224242_) + _g224153224166_)))) + (_g224151224215_ + (lambda (_g224153224172_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224223224242_)) - (let ((_e224228224244_ + (gx#stx-pair? _g224153224172_)) + (let ((_e224158224174_ (let () (declare (not safe)) - (gx#stx-e _g224223224242_)))) - (let ((_hd224227224247_ + (gx#stx-e _g224153224172_)))) + (let ((_hd224157224177_ (let () (declare (not safe)) - (##car _e224228224244_))) - (_tl224226224249_ + (##car _e224158224174_))) + (_tl224156224179_ (let () (declare (not safe)) - (##cdr _e224228224244_)))) + (##cdr _e224158224174_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224226224249_)) - (let ((_e224231224252_ + (gx#stx-pair? _tl224156224179_)) + (let ((_e224161224182_ (let () (declare (not safe)) - (gx#stx-e _tl224226224249_)))) - (let ((_hd224230224255_ + (gx#stx-e _tl224156224179_)))) + (let ((_hd224160224185_ (let () (declare (not safe)) - (##car _e224231224252_))) - (_tl224229224257_ + (##car _e224161224182_))) + (_tl224159224187_ (let () (declare (not safe)) - (##cdr _e224231224252_)))) + (##cdr _e224161224182_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224229224257_)) - (let ((_e224234224260_ + (gx#stx-pair? _tl224159224187_)) + (let ((_e224164224190_ (let () (declare (not safe)) - (gx#stx-e _tl224229224257_)))) - (let ((_hd224233224263_ + (gx#stx-e _tl224159224187_)))) + (let ((_hd224163224193_ (let () (declare (not safe)) - (##car _e224234224260_))) - (_tl224232224265_ + (##car _e224164224190_))) + (_tl224162224195_ (let () (declare (not safe)) - (##cdr _e224234224260_)))) + (##cdr _e224164224190_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224232224265_)) - ((lambda (_L224268_ _L224269_) - (let ((__tmp233217 + _tl224162224195_)) + ((lambda (_L224198_ _L224199_) + (let ((__tmp233147 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L224268_))))) + _L224198_))))) (declare (not safe)) (call-with-parameters - __tmp233217 + __tmp233147 gxc#current-compile-type-closure '#t))) - _hd224233224263_ - _hd224230224255_) + _hd224163224193_ + _hd224160224185_) (let () (declare (not safe)) - (_g224222224239_ - _g224223224242_))))) + (_g224152224169_ + _g224153224172_))))) (let () (declare (not safe)) - (_g224222224239_ _g224223224242_))))) + (_g224152224169_ _g224153224172_))))) (let () (declare (not safe)) - (_g224222224239_ _g224223224242_))))) + (_g224152224169_ _g224153224172_))))) (let () (declare (not safe)) - (_g224222224239_ _g224223224242_)))))) + (_g224152224169_ _g224153224172_)))))) (declare (not safe)) - (_g224221224285_ _stx224220_)))) + (_g224151224215_ _stx224150_)))) (define gxc#basic-expression-type-builtin (let () (declare (not safe)) (make-table 'test: eq?))) (define gxc#basic-expression-type-call% - (lambda (_stx224125_) - (let* ((___stx231804231805_ _stx224125_) - (_g224128224148_ + (lambda (_stx224055_) + (let* ((___stx231734231735_ _stx224055_) + (_g224058224078_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx231804231805_))))) - (let ((___kont231806231807_ - (lambda (_L224192_ _L224193_) - (let ((_type-e224210224212_ - (let ((__tmp233218 + ___stx231734231735_))))) + (let ((___kont231736231737_ + (lambda (_L224122_ _L224123_) + (let ((_type-e224140224142_ + (let ((__tmp233148 (let () (declare (not safe)) - (gxc#identifier-symbol _L224193_)))) + (gxc#identifier-symbol _L224123_)))) (declare (not safe)) (table-ref gxc#basic-expression-type-builtin - __tmp233218 + __tmp233148 '#f)))) - (if _type-e224210224212_ - (let ((_type-e224215_ _type-e224210224212_)) - (_type-e224215_ _stx224125_ _L224192_)) + (if _type-e224140224142_ + (let ((_type-e224145_ _type-e224140224142_)) + (_type-e224145_ _stx224055_ _L224122_)) '#f)))) - (___kont231808231809_ (lambda () '#f))) + (___kont231738231739_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx231804231805_)) - (let ((_e224134224160_ + (gx#stx-pair? ___stx231734231735_)) + (let ((_e224064224090_ (let () (declare (not safe)) - (gx#stx-e ___stx231804231805_)))) - (let ((_tl224132224165_ - (let () (declare (not safe)) (##cdr _e224134224160_))) - (_hd224133224163_ + (gx#stx-e ___stx231734231735_)))) + (let ((_tl224062224095_ + (let () (declare (not safe)) (##cdr _e224064224090_))) + (_hd224063224093_ (let () (declare (not safe)) - (##car _e224134224160_)))) + (##car _e224064224090_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224132224165_)) - (let ((_e224137224168_ + (gx#stx-pair? _tl224062224095_)) + (let ((_e224067224098_ (let () (declare (not safe)) - (gx#stx-e _tl224132224165_)))) - (let ((_tl224135224173_ + (gx#stx-e _tl224062224095_)))) + (let ((_tl224065224103_ (let () (declare (not safe)) - (##cdr _e224137224168_))) - (_hd224136224171_ + (##cdr _e224067224098_))) + (_hd224066224101_ (let () (declare (not safe)) - (##car _e224137224168_)))) + (##car _e224067224098_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224136224171_)) - (let ((_e224140224176_ + (gx#stx-pair? _hd224066224101_)) + (let ((_e224070224106_ (let () (declare (not safe)) - (gx#stx-e _hd224136224171_)))) - (let ((_tl224138224181_ + (gx#stx-e _hd224066224101_)))) + (let ((_tl224068224111_ (let () (declare (not safe)) - (##cdr _e224140224176_))) - (_hd224139224179_ + (##cdr _e224070224106_))) + (_hd224069224109_ (let () (declare (not safe)) - (##car _e224140224176_)))) + (##car _e224070224106_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd224139224179_)) + (gx#identifier? _hd224069224109_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd224139224179_)) + _hd224069224109_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl224138224181_)) - (let ((_e224143224184_ + _tl224068224111_)) + (let ((_e224073224114_ (let () (declare (not safe)) (gx#stx-e - _tl224138224181_)))) - (let ((_tl224141224189_ + _tl224068224111_)))) + (let ((_tl224071224119_ (let () (declare (not safe)) - (##cdr _e224143224184_))) - (_hd224142224187_ + (##cdr _e224073224114_))) + (_hd224072224117_ (let () (declare (not safe)) - (##car _e224143224184_)))) + (##car _e224073224114_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224141224189_)) - (___kont231806231807_ - _tl224135224173_ - _hd224142224187_) - (___kont231808231809_)))) - (___kont231808231809_)) - (___kont231808231809_)) - (___kont231808231809_)))) - (___kont231808231809_)))) - (___kont231808231809_)))) - (___kont231808231809_)))))) + _tl224071224119_)) + (___kont231736231737_ + _tl224065224103_ + _hd224072224117_) + (___kont231738231739_)))) + (___kont231738231739_)) + (___kont231738231739_)) + (___kont231738231739_)))) + (___kont231738231739_)))) + (___kont231738231739_)))) + (___kont231738231739_)))))) (define gxc#basic-expression-type-ref% - (lambda (_stx224074_) - (let* ((_g224076224089_ - (lambda (_g224077224086_) + (lambda (_stx224004_) + (let* ((_g224006224019_ + (lambda (_g224007224016_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224077224086_)))) - (_g224075224122_ - (lambda (_g224077224092_) + _g224007224016_)))) + (_g224005224052_ + (lambda (_g224007224022_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224077224092_)) - (let ((_e224081224094_ + (gx#stx-pair? _g224007224022_)) + (let ((_e224011224024_ (let () (declare (not safe)) - (gx#stx-e _g224077224092_)))) - (let ((_hd224080224097_ + (gx#stx-e _g224007224022_)))) + (let ((_hd224010224027_ (let () (declare (not safe)) - (##car _e224081224094_))) - (_tl224079224099_ + (##car _e224011224024_))) + (_tl224009224029_ (let () (declare (not safe)) - (##cdr _e224081224094_)))) + (##cdr _e224011224024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224079224099_)) - (let ((_e224084224102_ + (gx#stx-pair? _tl224009224029_)) + (let ((_e224014224032_ (let () (declare (not safe)) - (gx#stx-e _tl224079224099_)))) - (let ((_hd224083224105_ + (gx#stx-e _tl224009224029_)))) + (let ((_hd224013224035_ (let () (declare (not safe)) - (##car _e224084224102_))) - (_tl224082224107_ + (##car _e224014224032_))) + (_tl224012224037_ (let () (declare (not safe)) - (##cdr _e224084224102_)))) + (##cdr _e224014224032_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl224082224107_)) - ((lambda (_L224110_) - (let ((__tmp233219 + (gx#stx-null? _tl224012224037_)) + ((lambda (_L224040_) + (let ((__tmp233149 (let () (declare (not safe)) (gxc#identifier-symbol - _L224110_)))) + _L224040_)))) (declare (not safe)) (gxc#optimizer-lookup-type - __tmp233219))) - _hd224083224105_) + __tmp233149))) + _hd224013224035_) (let () (declare (not safe)) - (_g224076224089_ _g224077224092_))))) + (_g224006224019_ _g224007224022_))))) (let () (declare (not safe)) - (_g224076224089_ _g224077224092_))))) + (_g224006224019_ _g224007224022_))))) (let () (declare (not safe)) - (_g224076224089_ _g224077224092_)))))) + (_g224006224019_ _g224007224022_)))))) (declare (not safe)) - (_g224075224122_ _stx224074_)))) + (_g224005224052_ _stx224004_)))) (define gxc#dispatch-lambda-form? - (lambda (_form223308_) - (let* ((___stx231842231843_ _form223308_) - (_g223313223470_ + (lambda (_form223238_) + (let* ((___stx231772231773_ _form223238_) + (_g223243223400_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx231842231843_))))) - (let ((___kont231844231845_ - (lambda (_L223994_ _L223995_ _L223996_) '#t)) - (___kont231850231851_ - (lambda (_L223782_ - _L223783_ - _L223784_ - _L223785_ - _L223786_ - _L223787_) + ___stx231772231773_))))) + (let ((___kont231774231775_ + (lambda (_L223924_ _L223925_ _L223926_) '#t)) + (___kont231780231781_ + (lambda (_L223712_ + _L223713_ + _L223714_ + _L223715_ + _L223716_ + _L223717_) '#t)) - (___kont231856231857_ - (lambda (_L223578_ _L223579_ _L223580_ _L223581_) '#t)) - (___kont231858231859_ (lambda () '#f))) - (let* ((___match231983231984_ - (lambda (_e223432223482_ - _hd223431223485_ - _tl223430223487_ - _e223435223490_ - _hd223434223493_ - _tl223433223495_ - _e223438223498_ - _hd223437223501_ - _tl223436223503_ - _e223441223506_ - _hd223440223509_ - _tl223439223511_ - _e223444223514_ - _hd223443223517_ - _tl223442223519_ - _e223447223522_ - _hd223446223525_ - _tl223445223527_ - _e223450223530_ - _hd223449223533_ - _tl223448223535_ - _e223453223538_ - _hd223452223541_ - _tl223451223543_ - _e223456223546_ - _hd223455223549_ - _tl223454223551_ - _e223459223554_ - _hd223458223557_ - _tl223457223559_ - _e223462223562_ - _hd223461223565_ - _tl223460223567_ - _e223465223570_ - _hd223464223573_ - _tl223463223575_) - (let ((_L223578_ _hd223464223573_) - (_L223579_ _hd223455223549_) - (_L223580_ _hd223446223525_) - (_L223581_ _hd223431223485_)) + (___kont231786231787_ + (lambda (_L223508_ _L223509_ _L223510_ _L223511_) '#t)) + (___kont231788231789_ (lambda () '#f))) + (let* ((___match231913231914_ + (lambda (_e223362223412_ + _hd223361223415_ + _tl223360223417_ + _e223365223420_ + _hd223364223423_ + _tl223363223425_ + _e223368223428_ + _hd223367223431_ + _tl223366223433_ + _e223371223436_ + _hd223370223439_ + _tl223369223441_ + _e223374223444_ + _hd223373223447_ + _tl223372223449_ + _e223377223452_ + _hd223376223455_ + _tl223375223457_ + _e223380223460_ + _hd223379223463_ + _tl223378223465_ + _e223383223468_ + _hd223382223471_ + _tl223381223473_ + _e223386223476_ + _hd223385223479_ + _tl223384223481_ + _e223389223484_ + _hd223388223487_ + _tl223387223489_ + _e223392223492_ + _hd223391223495_ + _tl223390223497_ + _e223395223500_ + _hd223394223503_ + _tl223393223505_) + (let ((_L223508_ _hd223394223503_) + (_L223509_ _hd223385223479_) + (_L223510_ _hd223376223455_) + (_L223511_ _hd223361223415_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L223581_)) + (gx#identifier? _L223511_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L223580_ 'apply)) + (gxc#runtime-identifier=? _L223510_ 'apply)) (let () (declare (not safe)) - (gx#free-identifier=? _L223581_ _L223578_)) - (let ((__tmp233220 + (gx#free-identifier=? _L223511_ _L223508_)) + (let ((__tmp233150 (let () (declare (not safe)) (gx#free-identifier=? - _L223579_ - _L223581_)))) + _L223509_ + _L223511_)))) (declare (not safe)) - (not __tmp233220))) - (___kont231856231857_ - _L223578_ - _L223579_ - _L223580_ - _L223581_) - (___kont231858231859_))))) - (___match231955231956_ - (lambda (_e223432223482_ - _hd223431223485_ - _tl223430223487_ - _e223435223490_ - _hd223434223493_ - _tl223433223495_ - _e223438223498_ - _hd223437223501_ - _tl223436223503_ - _e223441223506_ - _hd223440223509_ - _tl223439223511_ - _e223444223514_ - _hd223443223517_ - _tl223442223519_ - _e223447223522_ - _hd223446223525_ - _tl223445223527_ - _e223450223530_ - _hd223449223533_ - _tl223448223535_ - _e223453223538_ - _hd223452223541_ - _tl223451223543_ - _e223456223546_ - _hd223455223549_ - _tl223454223551_) + (not __tmp233150))) + (___kont231786231787_ + _L223508_ + _L223509_ + _L223510_ + _L223511_) + (___kont231788231789_))))) + (___match231885231886_ + (lambda (_e223362223412_ + _hd223361223415_ + _tl223360223417_ + _e223365223420_ + _hd223364223423_ + _tl223363223425_ + _e223368223428_ + _hd223367223431_ + _tl223366223433_ + _e223371223436_ + _hd223370223439_ + _tl223369223441_ + _e223374223444_ + _hd223373223447_ + _tl223372223449_ + _e223377223452_ + _hd223376223455_ + _tl223375223457_ + _e223380223460_ + _hd223379223463_ + _tl223378223465_ + _e223383223468_ + _hd223382223471_ + _tl223381223473_ + _e223386223476_ + _hd223385223479_ + _tl223384223481_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223448223535_)) - (let ((_e223459223554_ + (gx#stx-pair? _tl223378223465_)) + (let ((_e223389223484_ (let () (declare (not safe)) - (gx#stx-e _tl223448223535_)))) - (let ((_tl223457223559_ + (gx#stx-e _tl223378223465_)))) + (let ((_tl223387223489_ (let () (declare (not safe)) - (##cdr _e223459223554_))) - (_hd223458223557_ + (##cdr _e223389223484_))) + (_hd223388223487_ (let () (declare (not safe)) - (##car _e223459223554_)))) + (##car _e223389223484_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223458223557_)) - (let ((_e223462223562_ + (gx#stx-pair? _hd223388223487_)) + (let ((_e223392223492_ (let () (declare (not safe)) - (gx#stx-e _hd223458223557_)))) - (let ((_tl223460223567_ + (gx#stx-e _hd223388223487_)))) + (let ((_tl223390223497_ (let () (declare (not safe)) - (##cdr _e223462223562_))) - (_hd223461223565_ + (##cdr _e223392223492_))) + (_hd223391223495_ (let () (declare (not safe)) - (##car _e223462223562_)))) + (##car _e223392223492_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223461223565_)) + (gx#identifier? _hd223391223495_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd223461223565_)) + _hd223391223495_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223460223567_)) - (let ((_e223465223570_ + _tl223390223497_)) + (let ((_e223395223500_ (let () (declare (not safe)) (gx#stx-e - _tl223460223567_)))) - (let ((_tl223463223575_ + _tl223390223497_)))) + (let ((_tl223393223505_ (let () (declare (not safe)) - (##cdr _e223465223570_))) - (_hd223464223573_ + (##cdr _e223395223500_))) + (_hd223394223503_ (let () (declare (not safe)) - (##car _e223465223570_)))) + (##car _e223395223500_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223463223575_)) + _tl223393223505_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl223457223559_)) + (gx#stx-null? _tl223387223489_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl223433223495_)) - (___match231983231984_ - _e223432223482_ - _hd223431223485_ - _tl223430223487_ - _e223435223490_ - _hd223434223493_ - _tl223433223495_ - _e223438223498_ - _hd223437223501_ - _tl223436223503_ - _e223441223506_ - _hd223440223509_ - _tl223439223511_ - _e223444223514_ - _hd223443223517_ - _tl223442223519_ - _e223447223522_ - _hd223446223525_ - _tl223445223527_ - _e223450223530_ - _hd223449223533_ - _tl223448223535_ - _e223453223538_ - _hd223452223541_ - _tl223451223543_ - _e223456223546_ - _hd223455223549_ - _tl223454223551_ - _e223459223554_ - _hd223458223557_ - _tl223457223559_ - _e223462223562_ - _hd223461223565_ - _tl223460223567_ - _e223465223570_ - _hd223464223573_ - _tl223463223575_) - (___kont231858231859_)) - (___kont231858231859_)) - (___kont231858231859_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont231858231859_)) - (___kont231858231859_)) - (___kont231858231859_)))) - (___kont231858231859_)))) - (___kont231858231859_)))) - (___match231885231886_ - (lambda (_e223368223622_ - _hd223367223625_ - _tl223366223627_ - ___splice231852231853_ - _target223369223630_ - _tl223371223632_) - (letrec ((_loop223372223635_ - (lambda (_hd223370223638_ _arg223376223640_) + (gx#stx-null? _tl223363223425_)) + (___match231913231914_ + _e223362223412_ + _hd223361223415_ + _tl223360223417_ + _e223365223420_ + _hd223364223423_ + _tl223363223425_ + _e223368223428_ + _hd223367223431_ + _tl223366223433_ + _e223371223436_ + _hd223370223439_ + _tl223369223441_ + _e223374223444_ + _hd223373223447_ + _tl223372223449_ + _e223377223452_ + _hd223376223455_ + _tl223375223457_ + _e223380223460_ + _hd223379223463_ + _tl223378223465_ + _e223383223468_ + _hd223382223471_ + _tl223381223473_ + _e223386223476_ + _hd223385223479_ + _tl223384223481_ + _e223389223484_ + _hd223388223487_ + _tl223387223489_ + _e223392223492_ + _hd223391223495_ + _tl223390223497_ + _e223395223500_ + _hd223394223503_ + _tl223393223505_) + (___kont231788231789_)) + (___kont231788231789_)) + (___kont231788231789_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont231788231789_)) + (___kont231788231789_)) + (___kont231788231789_)))) + (___kont231788231789_)))) + (___kont231788231789_)))) + (___match231815231816_ + (lambda (_e223298223552_ + _hd223297223555_ + _tl223296223557_ + ___splice231782231783_ + _target223299223560_ + _tl223301223562_) + (letrec ((_loop223302223565_ + (lambda (_hd223300223568_ _arg223306223570_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223370223638_)) - (let ((_e223373223643_ + (gx#stx-pair? _hd223300223568_)) + (let ((_e223303223573_ (let () (declare (not safe)) - (gx#stx-e _hd223370223638_)))) - (let ((_lp-tl223375223648_ + (gx#stx-e _hd223300223568_)))) + (let ((_lp-tl223305223578_ (let () (declare (not safe)) - (##cdr _e223373223643_))) - (_lp-hd223374223646_ + (##cdr _e223303223573_))) + (_lp-hd223304223576_ (let () (declare (not safe)) - (##car _e223373223643_)))) - (let ((__tmp233235 + (##car _e223303223573_)))) + (let ((__tmp233165 (let () (declare (not safe)) - (cons _lp-hd223374223646_ - _arg223376223640_)))) + (cons _lp-hd223304223576_ + _arg223306223570_)))) (declare (not safe)) - (_loop223372223635_ - _lp-tl223375223648_ - __tmp233235)))) - (let ((_arg223377223651_ - (reverse _arg223376223640_))) + (_loop223302223565_ + _lp-tl223305223578_ + __tmp233165)))) + (let ((_arg223307223581_ + (reverse _arg223306223570_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223366223627_)) - (let ((_e223380223654_ + (gx#stx-pair? _tl223296223557_)) + (let ((_e223310223584_ (let () (declare (not safe)) (gx#stx-e - _tl223366223627_)))) - (let ((_tl223378223659_ + _tl223296223557_)))) + (let ((_tl223308223589_ (let () (declare (not safe)) - (##cdr _e223380223654_))) - (_hd223379223657_ + (##cdr _e223310223584_))) + (_hd223309223587_ (let () (declare (not safe)) - (##car _e223380223654_)))) + (##car _e223310223584_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd223379223657_)) - (let ((_e223383223662_ + _hd223309223587_)) + (let ((_e223313223592_ (let () (declare (not safe)) (gx#stx-e - _hd223379223657_)))) - (let ((_tl223381223667_ + _hd223309223587_)))) + (let ((_tl223311223597_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e223383223662_))) - (_hd223382223665_ - (let () (declare (not safe)) (##car _e223383223662_)))) + (##cdr _e223313223592_))) + (_hd223312223595_ + (let () (declare (not safe)) (##car _e223313223592_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223382223665_)) + (gx#identifier? _hd223312223595_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd223382223665_)) + (gx#stx-eq? '%#call _hd223312223595_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223381223667_)) - (let ((_e223386223670_ + (gx#stx-pair? _tl223311223597_)) + (let ((_e223316223600_ (let () (declare (not safe)) - (gx#stx-e _tl223381223667_)))) - (let ((_tl223384223675_ + (gx#stx-e _tl223311223597_)))) + (let ((_tl223314223605_ (let () (declare (not safe)) - (##cdr _e223386223670_))) - (_hd223385223673_ + (##cdr _e223316223600_))) + (_hd223315223603_ (let () (declare (not safe)) - (##car _e223386223670_)))) + (##car _e223316223600_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223385223673_)) - (let ((_e223389223678_ + (gx#stx-pair? _hd223315223603_)) + (let ((_e223319223608_ (let () (declare (not safe)) - (gx#stx-e _hd223385223673_)))) - (let ((_tl223387223683_ + (gx#stx-e _hd223315223603_)))) + (let ((_tl223317223613_ (let () (declare (not safe)) - (##cdr _e223389223678_))) - (_hd223388223681_ + (##cdr _e223319223608_))) + (_hd223318223611_ (let () (declare (not safe)) - (##car _e223389223678_)))) + (##car _e223319223608_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd223388223681_)) + _hd223318223611_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd223388223681_)) + _hd223318223611_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223387223683_)) - (let ((_e223392223686_ + _tl223317223613_)) + (let ((_e223322223616_ (let () (declare (not safe)) (gx#stx-e - _tl223387223683_)))) - (let ((_tl223390223691_ + _tl223317223613_)))) + (let ((_tl223320223621_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e223392223686_))) - (_hd223391223689_ - (let () (declare (not safe)) (##car _e223392223686_)))) + (##cdr _e223322223616_))) + (_hd223321223619_ + (let () (declare (not safe)) (##car _e223322223616_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223390223691_)) + (gx#stx-null? _tl223320223621_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223384223675_)) - (let ((_e223395223694_ + (gx#stx-pair? _tl223314223605_)) + (let ((_e223325223624_ (let () (declare (not safe)) - (gx#stx-e _tl223384223675_)))) - (let ((_tl223393223699_ + (gx#stx-e _tl223314223605_)))) + (let ((_tl223323223629_ (let () (declare (not safe)) - (##cdr _e223395223694_))) - (_hd223394223697_ + (##cdr _e223325223624_))) + (_hd223324223627_ (let () (declare (not safe)) - (##car _e223395223694_)))) + (##car _e223325223624_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223394223697_)) - (let ((_e223398223702_ + (gx#stx-pair? _hd223324223627_)) + (let ((_e223328223632_ (let () (declare (not safe)) - (gx#stx-e _hd223394223697_)))) - (let ((_tl223396223707_ + (gx#stx-e _hd223324223627_)))) + (let ((_tl223326223637_ (let () (declare (not safe)) - (##cdr _e223398223702_))) - (_hd223397223705_ + (##cdr _e223328223632_))) + (_hd223327223635_ (let () (declare (not safe)) - (##car _e223398223702_)))) + (##car _e223328223632_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223397223705_)) + (gx#identifier? _hd223327223635_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd223397223705_)) + _hd223327223635_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223396223707_)) - (let ((_e223401223710_ + _tl223326223637_)) + (let ((_e223331223640_ (let () (declare (not safe)) (gx#stx-e - _tl223396223707_)))) - (let ((_tl223399223715_ + _tl223326223637_)))) + (let ((_tl223329223645_ (let () (declare (not safe)) - (##cdr _e223401223710_))) - (_hd223400223713_ + (##cdr _e223331223640_))) + (_hd223330223643_ (let () (declare (not safe)) - (##car _e223401223710_)))) + (##car _e223331223640_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223399223715_)) + _tl223329223645_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl223393223699_)) + _tl223323223629_)) (if (fx>= (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-length _tl223393223699_)) + (gx#stx-length _tl223323223629_)) '1) - (let ((___splice231854231855_ + (let ((___splice231784231785_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl223393223699_ + _tl223323223629_ '1)))) - (let ((_tl223404223720_ + (let ((_tl223334223650_ (let () (declare (not safe)) - (##vector-ref ___splice231854231855_ '1))) - (_target223402223718_ + (##vector-ref ___splice231784231785_ '1))) + (_target223332223648_ (let () (declare (not safe)) - (##vector-ref ___splice231854231855_ '0)))) + (##vector-ref ___splice231784231785_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223404223720_)) - (let ((_e223413223723_ + (gx#stx-pair? _tl223334223650_)) + (let ((_e223343223653_ (let () (declare (not safe)) - (gx#stx-e _tl223404223720_)))) - (let ((_tl223411223728_ + (gx#stx-e _tl223334223650_)))) + (let ((_tl223341223658_ (let () (declare (not safe)) - (##cdr _e223413223723_))) - (_hd223412223726_ + (##cdr _e223343223653_))) + (_hd223342223656_ (let () (declare (not safe)) - (##car _e223413223723_)))) + (##car _e223343223653_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223412223726_)) - (let ((_e223416223731_ + (gx#stx-pair? _hd223342223656_)) + (let ((_e223346223661_ (let () (declare (not safe)) - (gx#stx-e _hd223412223726_)))) - (let ((_tl223414223736_ + (gx#stx-e _hd223342223656_)))) + (let ((_tl223344223666_ (let () (declare (not safe)) - (##cdr _e223416223731_))) - (_hd223415223734_ + (##cdr _e223346223661_))) + (_hd223345223664_ (let () (declare (not safe)) - (##car _e223416223731_)))) + (##car _e223346223661_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd223415223734_)) + _hd223345223664_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd223415223734_)) + _hd223345223664_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223414223736_)) - (let ((_e223419223739_ + _tl223344223666_)) + (let ((_e223349223669_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl223414223736_)))) - (let ((_tl223417223744_ - (let () (declare (not safe)) (##cdr _e223419223739_))) - (_hd223418223742_ + (gx#stx-e _tl223344223666_)))) + (let ((_tl223347223674_ + (let () (declare (not safe)) (##cdr _e223349223669_))) + (_hd223348223672_ (let () (declare (not safe)) - (##car _e223419223739_)))) + (##car _e223349223669_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223417223744_)) + (gx#stx-null? _tl223347223674_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl223411223728_)) - (letrec ((_loop223405223747_ - (lambda (_hd223403223750_ - _xarg223409223752_) + (gx#stx-null? _tl223341223658_)) + (letrec ((_loop223335223677_ + (lambda (_hd223333223680_ + _xarg223339223682_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223403223750_)) - (let ((_e223406223755_ + (gx#stx-pair? _hd223333223680_)) + (let ((_e223336223685_ (let () (declare (not safe)) (gx#stx-e - _hd223403223750_)))) - (let ((_lp-tl223408223760_ + _hd223333223680_)))) + (let ((_lp-tl223338223690_ (let () (declare (not safe)) - (##cdr _e223406223755_))) - (_lp-hd223407223758_ + (##cdr _e223336223685_))) + (_lp-hd223337223688_ (let () (declare (not safe)) - (##car _e223406223755_)))) + (##car _e223336223685_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd223407223758_)) - (let ((_e223422223763_ + _lp-hd223337223688_)) + (let ((_e223352223693_ (let () (declare (not safe)) (gx#stx-e - _lp-hd223407223758_)))) - (let ((_tl223420223768_ + _lp-hd223337223688_)))) + (let ((_tl223350223698_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e223422223763_))) - (_hd223421223766_ - (let () (declare (not safe)) (##car _e223422223763_)))) + (##cdr _e223352223693_))) + (_hd223351223696_ + (let () (declare (not safe)) (##car _e223352223693_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223421223766_)) + (gx#identifier? _hd223351223696_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd223421223766_)) + (gx#stx-eq? '%#ref _hd223351223696_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223420223768_)) - (let ((_e223425223771_ + (gx#stx-pair? _tl223350223698_)) + (let ((_e223355223701_ (let () (declare (not safe)) - (gx#stx-e _tl223420223768_)))) - (let ((_tl223423223776_ + (gx#stx-e _tl223350223698_)))) + (let ((_tl223353223706_ (let () (declare (not safe)) - (##cdr _e223425223771_))) - (_hd223424223774_ + (##cdr _e223355223701_))) + (_hd223354223704_ (let () (declare (not safe)) - (##car _e223425223771_)))) + (##car _e223355223701_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223423223776_)) - (let ((__tmp233234 + (gx#stx-null? _tl223353223706_)) + (let ((__tmp233164 (let () (declare (not safe)) - (cons _hd223424223774_ - _xarg223409223752_)))) + (cons _hd223354223704_ + _xarg223339223682_)))) (declare (not safe)) - (_loop223405223747_ - _lp-tl223408223760_ - __tmp233234)) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)))) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)))) + (_loop223335223677_ + _lp-tl223338223690_ + __tmp233164)) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)))) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)))) - (let ((_xarg223410223779_ - (reverse _xarg223409223752_))) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)))) + (let ((_xarg223340223709_ + (reverse _xarg223339223682_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223378223659_)) - (let ((_L223782_ - _hd223418223742_) - (_L223783_ - _xarg223410223779_) - (_L223784_ - _hd223400223713_) - (_L223785_ - _hd223391223689_) - (_L223786_ - _tl223371223632_) - (_L223787_ - _arg223377223651_)) - (if (and (let ((__tmp233232 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233233 - (lambda (_g223830223833_ _g223831223835_) + _tl223308223589_)) + (let ((_L223712_ + _hd223348223672_) + (_L223713_ + _xarg223340223709_) + (_L223714_ + _hd223330223643_) + (_L223715_ + _hd223321223619_) + (_L223716_ + _tl223301223562_) + (_L223717_ + _arg223307223581_)) + (if (and (let ((__tmp233162 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp233163 + (lambda (_g223760223763_ _g223761223765_) (let () (declare (not safe)) - (cons _g223830223833_ - _g223831223835_))))) + (cons _g223760223763_ + _g223761223765_))))) (declare (not safe)) - (foldr1 __tmp233233 '() _L223787_)))) + (foldr1 __tmp233163 '() _L223717_)))) (declare (not safe)) - (gx#identifier-list? __tmp233232)) - (let () (declare (not safe)) (gx#identifier? _L223786_)) + (gx#identifier-list? __tmp233162)) + (let () (declare (not safe)) (gx#identifier? _L223716_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L223785_ 'apply)) - (fx= (length (let ((__tmp233230 - (lambda (_g223837223840_ - _g223838223842_) + (gxc#runtime-identifier=? _L223715_ 'apply)) + (fx= (length (let ((__tmp233160 + (lambda (_g223767223770_ + _g223768223772_) (let () (declare (not safe)) - (cons _g223837223840_ - _g223838223842_))))) + (cons _g223767223770_ + _g223768223772_))))) (declare (not safe)) - (foldr1 __tmp233230 '() _L223787_))) - (length (let ((__tmp233231 - (lambda (_g223844223847_ - _g223845223849_) + (foldr1 __tmp233160 '() _L223717_))) + (length (let ((__tmp233161 + (lambda (_g223774223777_ + _g223775223779_) (let () (declare (not safe)) - (cons _g223844223847_ - _g223845223849_))))) + (cons _g223774223777_ + _g223775223779_))))) (declare (not safe)) - (foldr1 __tmp233231 '() _L223783_)))) - (let ((__tmp233228 - (let ((__tmp233229 - (lambda (_g223851223854_ _g223852223856_) + (foldr1 __tmp233161 '() _L223713_)))) + (let ((__tmp233158 + (let ((__tmp233159 + (lambda (_g223781223784_ _g223782223786_) (let () (declare (not safe)) - (cons _g223851223854_ - _g223852223856_))))) + (cons _g223781223784_ + _g223782223786_))))) (declare (not safe)) - (foldr1 __tmp233229 '() _L223787_))) - (__tmp233226 - (let ((__tmp233227 - (lambda (_g223858223861_ _g223859223863_) + (foldr1 __tmp233159 '() _L223717_))) + (__tmp233156 + (let ((__tmp233157 + (lambda (_g223788223791_ _g223789223793_) (let () (declare (not safe)) - (cons _g223858223861_ - _g223859223863_))))) + (cons _g223788223791_ + _g223789223793_))))) (declare (not safe)) - (foldr1 __tmp233227 '() _L223783_)))) + (foldr1 __tmp233157 '() _L223713_)))) (declare (not safe)) - (andmap2 gx#free-identifier=? __tmp233228 __tmp233226)) + (andmap2 gx#free-identifier=? __tmp233158 __tmp233156)) (let () (declare (not safe)) - (gx#free-identifier=? _L223786_ _L223782_)) - (let ((__tmp233221 - (let ((__tmp233225 - (lambda (_g223865223867_) + (gx#free-identifier=? _L223716_ _L223712_)) + (let ((__tmp233151 + (let ((__tmp233155 + (lambda (_g223795223797_) (let () (declare (not safe)) (gx#free-identifier=? - _g223865223867_ - _L223784_)))) - (__tmp233222 - (let ((__tmp233224 - (lambda (_g223869223872_ - _g223870223874_) + _g223795223797_ + _L223714_)))) + (__tmp233152 + (let ((__tmp233154 + (lambda (_g223799223802_ + _g223800223804_) (let () (declare (not safe)) - (cons _g223869223872_ - _g223870223874_)))) - (__tmp233223 + (cons _g223799223802_ + _g223800223804_)))) + (__tmp233153 (let () (declare (not safe)) - (cons _L223786_ '())))) + (cons _L223716_ '())))) (declare (not safe)) - (foldr1 __tmp233224 - __tmp233223 - _L223787_)))) + (foldr1 __tmp233154 + __tmp233153 + _L223717_)))) (declare (not safe)) - (find __tmp233225 __tmp233222)))) + (find __tmp233155 __tmp233152)))) (declare (not safe)) - (not __tmp233221))) - (___kont231850231851_ - _L223782_ - _L223783_ - _L223784_ - _L223785_ - _L223786_ - _L223787_) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_))))))) + (not __tmp233151))) + (___kont231780231781_ + _L223712_ + _L223713_ + _L223714_ + _L223715_ + _L223716_ + _L223717_) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_))))))) (let () (declare (not safe)) - (_loop223405223747_ _target223402223718_ '()))) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)))) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)) + (_loop223335223677_ _target223332223648_ '()))) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)))) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)))) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)))) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)))) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)) - (___match231955231956_ - _e223368223622_ - _hd223367223625_ - _tl223366223627_ - _e223380223654_ - _hd223379223657_ - _tl223378223659_ - _e223383223662_ - _hd223382223665_ - _tl223381223667_ - _e223386223670_ - _hd223385223673_ - _tl223384223675_ - _e223389223678_ - _hd223388223681_ - _tl223387223683_ - _e223392223686_ - _hd223391223689_ - _tl223390223691_ - _e223395223694_ - _hd223394223697_ - _tl223393223699_ - _e223398223702_ - _hd223397223705_ - _tl223396223707_ - _e223401223710_ - _hd223400223713_ - _tl223399223715_)) - (___kont231858231859_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont231858231859_)) - (___kont231858231859_)) - (___kont231858231859_)))) - (___kont231858231859_)))) - (___kont231858231859_)) - (___kont231858231859_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont231858231859_)) - (___kont231858231859_)) - (___kont231858231859_)))) - (___kont231858231859_)))) - (___kont231858231859_)) - (___kont231858231859_)) - (___kont231858231859_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont231858231859_)))) - (___kont231858231859_))))))) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)))) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)))) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)))) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)) + (___match231885231886_ + _e223298223552_ + _hd223297223555_ + _tl223296223557_ + _e223310223584_ + _hd223309223587_ + _tl223308223589_ + _e223313223592_ + _hd223312223595_ + _tl223311223597_ + _e223316223600_ + _hd223315223603_ + _tl223314223605_ + _e223319223608_ + _hd223318223611_ + _tl223317223613_ + _e223322223616_ + _hd223321223619_ + _tl223320223621_ + _e223325223624_ + _hd223324223627_ + _tl223323223629_ + _e223328223632_ + _hd223327223635_ + _tl223326223637_ + _e223331223640_ + _hd223330223643_ + _tl223329223645_)) + (___kont231788231789_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont231788231789_)) + (___kont231788231789_)) + (___kont231788231789_)))) + (___kont231788231789_)))) + (___kont231788231789_)) + (___kont231788231789_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont231788231789_)) + (___kont231788231789_)) + (___kont231788231789_)))) + (___kont231788231789_)))) + (___kont231788231789_)) + (___kont231788231789_)) + (___kont231788231789_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont231788231789_)))) + (___kont231788231789_))))))) (let () (declare (not safe)) - (_loop223372223635_ _target223369223630_ '()))))) - (___match231873231874_ - (lambda (_e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_) - (letrec ((_loop223324223895_ - (lambda (_hd223322223898_ _arg223328223900_) + (_loop223302223565_ _target223299223560_ '()))))) + (___match231803231804_ + (lambda (_e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_) + (letrec ((_loop223254223825_ + (lambda (_hd223252223828_ _arg223258223830_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223322223898_)) - (let ((_e223325223903_ + (gx#stx-pair? _hd223252223828_)) + (let ((_e223255223833_ (let () (declare (not safe)) - (gx#stx-e _hd223322223898_)))) - (let ((_lp-tl223327223908_ + (gx#stx-e _hd223252223828_)))) + (let ((_lp-tl223257223838_ (let () (declare (not safe)) - (##cdr _e223325223903_))) - (_lp-hd223326223906_ + (##cdr _e223255223833_))) + (_lp-hd223256223836_ (let () (declare (not safe)) - (##car _e223325223903_)))) - (let ((__tmp233249 + (##car _e223255223833_)))) + (let ((__tmp233179 (let () (declare (not safe)) - (cons _lp-hd223326223906_ - _arg223328223900_)))) + (cons _lp-hd223256223836_ + _arg223258223830_)))) (declare (not safe)) - (_loop223324223895_ - _lp-tl223327223908_ - __tmp233249)))) - (let ((_arg223329223911_ - (reverse _arg223328223900_))) + (_loop223254223825_ + _lp-tl223257223838_ + __tmp233179)))) + (let ((_arg223259223841_ + (reverse _arg223258223830_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223318223887_)) - (let ((_e223332223914_ + (gx#stx-pair? _tl223248223817_)) + (let ((_e223262223844_ (let () (declare (not safe)) (gx#stx-e - _tl223318223887_)))) - (let ((_tl223330223919_ + _tl223248223817_)))) + (let ((_tl223260223849_ (let () (declare (not safe)) - (##cdr _e223332223914_))) - (_hd223331223917_ + (##cdr _e223262223844_))) + (_hd223261223847_ (let () (declare (not safe)) - (##car _e223332223914_)))) + (##car _e223262223844_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd223331223917_)) - (let ((_e223335223922_ + _hd223261223847_)) + (let ((_e223265223852_ (let () (declare (not safe)) (gx#stx-e - _hd223331223917_)))) - (let ((_tl223333223927_ + _hd223261223847_)))) + (let ((_tl223263223857_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e223335223922_))) - (_hd223334223925_ - (let () (declare (not safe)) (##car _e223335223922_)))) + (##cdr _e223265223852_))) + (_hd223264223855_ + (let () (declare (not safe)) (##car _e223265223852_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223334223925_)) + (gx#identifier? _hd223264223855_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd223334223925_)) + (gx#stx-eq? '%#call _hd223264223855_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223333223927_)) - (let ((_e223338223930_ + (gx#stx-pair? _tl223263223857_)) + (let ((_e223268223860_ (let () (declare (not safe)) - (gx#stx-e _tl223333223927_)))) - (let ((_tl223336223935_ + (gx#stx-e _tl223263223857_)))) + (let ((_tl223266223865_ (let () (declare (not safe)) - (##cdr _e223338223930_))) - (_hd223337223933_ + (##cdr _e223268223860_))) + (_hd223267223863_ (let () (declare (not safe)) - (##car _e223338223930_)))) + (##car _e223268223860_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223337223933_)) - (let ((_e223341223938_ + (gx#stx-pair? _hd223267223863_)) + (let ((_e223271223868_ (let () (declare (not safe)) - (gx#stx-e _hd223337223933_)))) - (let ((_tl223339223943_ + (gx#stx-e _hd223267223863_)))) + (let ((_tl223269223873_ (let () (declare (not safe)) - (##cdr _e223341223938_))) - (_hd223340223941_ + (##cdr _e223271223868_))) + (_hd223270223871_ (let () (declare (not safe)) - (##car _e223341223938_)))) + (##car _e223271223868_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd223340223941_)) + _hd223270223871_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd223340223941_)) + _hd223270223871_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223339223943_)) - (let ((_e223344223946_ + _tl223269223873_)) + (let ((_e223274223876_ (let () (declare (not safe)) (gx#stx-e - _tl223339223943_)))) - (let ((_tl223342223951_ + _tl223269223873_)))) + (let ((_tl223272223881_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e223344223946_))) - (_hd223343223949_ - (let () (declare (not safe)) (##car _e223344223946_)))) + (##cdr _e223274223876_))) + (_hd223273223879_ + (let () (declare (not safe)) (##car _e223274223876_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223342223951_)) + (gx#stx-null? _tl223272223881_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl223336223935_)) - (let ((___splice231848231849_ + (gx#stx-pair/null? _tl223266223865_)) + (let ((___splice231778231779_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl223336223935_ + _tl223266223865_ '0)))) - (let ((_tl223347223956_ + (let ((_tl223277223886_ (let () (declare (not safe)) - (##vector-ref ___splice231848231849_ '1))) - (_target223345223954_ + (##vector-ref ___splice231778231779_ '1))) + (_target223275223884_ (let () (declare (not safe)) - (##vector-ref ___splice231848231849_ '0)))) + (##vector-ref ___splice231778231779_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223347223956_)) - (letrec ((_loop223348223959_ - (lambda (_hd223346223962_ - _xarg223352223964_) + (gx#stx-null? _tl223277223886_)) + (letrec ((_loop223278223889_ + (lambda (_hd223276223892_ + _xarg223282223894_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd223346223962_)) - (let ((_e223349223967_ + _hd223276223892_)) + (let ((_e223279223897_ (let () (declare (not safe)) (gx#stx-e - _hd223346223962_)))) - (let ((_lp-tl223351223972_ + _hd223276223892_)))) + (let ((_lp-tl223281223902_ (let () (declare (not safe)) - (##cdr _e223349223967_))) - (_lp-hd223350223970_ + (##cdr _e223279223897_))) + (_lp-hd223280223900_ (let () (declare (not safe)) - (##car _e223349223967_)))) + (##car _e223279223897_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd223350223970_)) - (let ((_e223356223975_ + _lp-hd223280223900_)) + (let ((_e223286223905_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd223350223970_)))) - (let ((_tl223354223980_ - (let () (declare (not safe)) (##cdr _e223356223975_))) - (_hd223355223978_ + (gx#stx-e _lp-hd223280223900_)))) + (let ((_tl223284223910_ + (let () (declare (not safe)) (##cdr _e223286223905_))) + (_hd223285223908_ (let () (declare (not safe)) - (##car _e223356223975_)))) + (##car _e223286223905_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223355223978_)) + (gx#identifier? _hd223285223908_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd223355223978_)) + (gx#stx-eq? '%#ref _hd223285223908_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223354223980_)) - (let ((_e223359223983_ + (gx#stx-pair? _tl223284223910_)) + (let ((_e223289223913_ (let () (declare (not safe)) - (gx#stx-e _tl223354223980_)))) - (let ((_tl223357223988_ + (gx#stx-e _tl223284223910_)))) + (let ((_tl223287223918_ (let () (declare (not safe)) - (##cdr _e223359223983_))) - (_hd223358223986_ + (##cdr _e223289223913_))) + (_hd223288223916_ (let () (declare (not safe)) - (##car _e223359223983_)))) + (##car _e223289223913_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223357223988_)) - (let ((__tmp233248 + (gx#stx-null? _tl223287223918_)) + (let ((__tmp233178 (let () (declare (not safe)) - (cons _hd223358223986_ - _xarg223352223964_)))) + (cons _hd223288223916_ + _xarg223282223894_)))) (declare (not safe)) - (_loop223348223959_ - _lp-tl223351223972_ - __tmp233248)) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)))) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)))) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg223353223991_ - (reverse _xarg223352223964_))) + (_loop223278223889_ + _lp-tl223281223902_ + __tmp233178)) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)))) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)))) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg223283223921_ + (reverse _xarg223282223894_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223330223919_)) - (let ((_L223994_ - _xarg223353223991_) - (_L223995_ - _hd223343223949_) - (_L223996_ - _arg223329223911_)) - (if (and (let ((__tmp233246 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233247 - (lambda (_g224024224027_ - _g224025224029_) + _tl223260223849_)) + (let ((_L223924_ + _xarg223283223921_) + (_L223925_ + _hd223273223879_) + (_L223926_ + _arg223259223841_)) + (if (and (let ((__tmp233176 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp233177 + (lambda (_g223954223957_ + _g223955223959_) (let () (declare (not safe)) - (cons _g224024224027_ - _g224025224029_))))) + (cons _g223954223957_ + _g223955223959_))))) (declare (not safe)) - (foldr1 __tmp233247 '() _L223996_)))) + (foldr1 __tmp233177 '() _L223926_)))) (declare (not safe)) - (gx#identifier-list? __tmp233246)) - (fx= (length (let ((__tmp233244 - (lambda (_g224031224034_ - _g224032224036_) + (gx#identifier-list? __tmp233176)) + (fx= (length (let ((__tmp233174 + (lambda (_g223961223964_ + _g223962223966_) (let () (declare (not safe)) - (cons _g224031224034_ - _g224032224036_))))) + (cons _g223961223964_ + _g223962223966_))))) (declare (not safe)) - (foldr1 __tmp233244 '() _L223996_))) - (length (let ((__tmp233245 - (lambda (_g224038224041_ - _g224039224043_) + (foldr1 __tmp233174 '() _L223926_))) + (length (let ((__tmp233175 + (lambda (_g223968223971_ + _g223969223973_) (let () (declare (not safe)) - (cons _g224038224041_ - _g224039224043_))))) + (cons _g223968223971_ + _g223969223973_))))) (declare (not safe)) - (foldr1 __tmp233245 '() _L223994_)))) - (let ((__tmp233242 - (let ((__tmp233243 - (lambda (_g224045224048_ - _g224046224050_) + (foldr1 __tmp233175 '() _L223924_)))) + (let ((__tmp233172 + (let ((__tmp233173 + (lambda (_g223975223978_ + _g223976223980_) (let () (declare (not safe)) - (cons _g224045224048_ - _g224046224050_))))) + (cons _g223975223978_ + _g223976223980_))))) (declare (not safe)) - (foldr1 __tmp233243 '() _L223996_))) - (__tmp233240 - (let ((__tmp233241 - (lambda (_g224052224055_ - _g224053224057_) + (foldr1 __tmp233173 '() _L223926_))) + (__tmp233170 + (let ((__tmp233171 + (lambda (_g223982223985_ + _g223983223987_) (let () (declare (not safe)) - (cons _g224052224055_ - _g224053224057_))))) + (cons _g223982223985_ + _g223983223987_))))) (declare (not safe)) - (foldr1 __tmp233241 '() _L223994_)))) + (foldr1 __tmp233171 '() _L223924_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp233242 - __tmp233240)) - (let ((__tmp233236 - (let ((__tmp233239 - (lambda (_g224059224061_) + __tmp233172 + __tmp233170)) + (let ((__tmp233166 + (let ((__tmp233169 + (lambda (_g223989223991_) (let () (declare (not safe)) (gx#free-identifier=? - _g224059224061_ - _L223995_)))) - (__tmp233237 - (let ((__tmp233238 - (lambda (_g224063224066_ - _g224064224068_) + _g223989223991_ + _L223925_)))) + (__tmp233167 + (let ((__tmp233168 + (lambda (_g223993223996_ + _g223994223998_) (let () (declare (not safe)) - (cons _g224063224066_ - _g224064224068_))))) + (cons _g223993223996_ + _g223994223998_))))) (declare (not safe)) - (foldr1 __tmp233238 '() _L223996_)))) + (foldr1 __tmp233168 '() _L223926_)))) (declare (not safe)) - (find __tmp233239 __tmp233237)))) + (find __tmp233169 __tmp233167)))) (declare (not safe)) - (not __tmp233236))) - (___kont231844231845_ _L223994_ _L223995_ _L223996_) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_))) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_))))))) + (not __tmp233166))) + (___kont231774231775_ _L223924_ _L223925_ _L223926_) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_))) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop223348223959_ - _target223345223954_ + (_loop223278223889_ + _target223275223884_ '()))) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)))) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)))) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)))) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)))) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_))))))) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)))) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)))) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)))) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)))) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_))))))) (let () (declare (not safe)) - (_loop223324223895_ _target223321223890_ '())))))) + (_loop223254223825_ _target223251223820_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx231842231843_)) - (let ((_e223320223882_ + (gx#stx-pair? ___stx231772231773_)) + (let ((_e223250223812_ (let () (declare (not safe)) - (gx#stx-e ___stx231842231843_)))) - (let ((_tl223318223887_ + (gx#stx-e ___stx231772231773_)))) + (let ((_tl223248223817_ (let () (declare (not safe)) - (##cdr _e223320223882_))) - (_hd223319223885_ + (##cdr _e223250223812_))) + (_hd223249223815_ (let () (declare (not safe)) - (##car _e223320223882_)))) + (##car _e223250223812_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd223319223885_)) - (let ((___splice231846231847_ + (gx#stx-pair/null? _hd223249223815_)) + (let ((___splice231776231777_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd223319223885_ + _hd223249223815_ '0)))) - (let ((_tl223323223892_ + (let ((_tl223253223822_ (let () (declare (not safe)) - (##vector-ref ___splice231846231847_ '1))) - (_target223321223890_ + (##vector-ref ___splice231776231777_ '1))) + (_target223251223820_ (let () (declare (not safe)) (##vector-ref - ___splice231846231847_ + ___splice231776231777_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223323223892_)) - (___match231873231874_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_) - (___match231885231886_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - ___splice231846231847_ - _target223321223890_ - _tl223323223892_)))) + (gx#stx-null? _tl223253223822_)) + (___match231803231804_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_) + (___match231815231816_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + ___splice231776231777_ + _target223251223820_ + _tl223253223822_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223318223887_)) - (let ((_e223435223490_ + (gx#stx-pair? _tl223248223817_)) + (let ((_e223365223420_ (let () (declare (not safe)) - (gx#stx-e _tl223318223887_)))) - (let ((_tl223433223495_ + (gx#stx-e _tl223248223817_)))) + (let ((_tl223363223425_ (let () (declare (not safe)) - (##cdr _e223435223490_))) - (_hd223434223493_ + (##cdr _e223365223420_))) + (_hd223364223423_ (let () (declare (not safe)) - (##car _e223435223490_)))) + (##car _e223365223420_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223434223493_)) - (let ((_e223438223498_ + (gx#stx-pair? _hd223364223423_)) + (let ((_e223368223428_ (let () (declare (not safe)) - (gx#stx-e _hd223434223493_)))) - (let ((_tl223436223503_ + (gx#stx-e _hd223364223423_)))) + (let ((_tl223366223433_ (let () (declare (not safe)) - (##cdr _e223438223498_))) - (_hd223437223501_ + (##cdr _e223368223428_))) + (_hd223367223431_ (let () (declare (not safe)) - (##car _e223438223498_)))) + (##car _e223368223428_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd223437223501_)) + _hd223367223431_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd223437223501_)) + _hd223367223431_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223436223503_)) - (let ((_e223441223506_ + _tl223366223433_)) + (let ((_e223371223436_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl223436223503_)))) - (let ((_tl223439223511_ - (let () (declare (not safe)) (##cdr _e223441223506_))) - (_hd223440223509_ - (let () (declare (not safe)) (##car _e223441223506_)))) + (gx#stx-e _tl223366223433_)))) + (let ((_tl223369223441_ + (let () (declare (not safe)) (##cdr _e223371223436_))) + (_hd223370223439_ + (let () (declare (not safe)) (##car _e223371223436_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223440223509_)) - (let ((_e223444223514_ + (gx#stx-pair? _hd223370223439_)) + (let ((_e223374223444_ (let () (declare (not safe)) - (gx#stx-e _hd223440223509_)))) - (let ((_tl223442223519_ + (gx#stx-e _hd223370223439_)))) + (let ((_tl223372223449_ (let () (declare (not safe)) - (##cdr _e223444223514_))) - (_hd223443223517_ + (##cdr _e223374223444_))) + (_hd223373223447_ (let () (declare (not safe)) - (##car _e223444223514_)))) + (##car _e223374223444_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223443223517_)) + (gx#identifier? _hd223373223447_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd223443223517_)) + (gx#stx-eq? '%#ref _hd223373223447_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223442223519_)) - (let ((_e223447223522_ + (gx#stx-pair? _tl223372223449_)) + (let ((_e223377223452_ (let () (declare (not safe)) - (gx#stx-e _tl223442223519_)))) - (let ((_tl223445223527_ + (gx#stx-e _tl223372223449_)))) + (let ((_tl223375223457_ (let () (declare (not safe)) - (##cdr _e223447223522_))) - (_hd223446223525_ + (##cdr _e223377223452_))) + (_hd223376223455_ (let () (declare (not safe)) - (##car _e223447223522_)))) + (##car _e223377223452_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223445223527_)) + _tl223375223457_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223439223511_)) - (let ((_e223450223530_ + _tl223369223441_)) + (let ((_e223380223460_ (let () (declare (not safe)) (gx#stx-e - _tl223439223511_)))) - (let ((_tl223448223535_ + _tl223369223441_)))) + (let ((_tl223378223465_ (let () (declare (not safe)) - (##cdr _e223450223530_))) - (_hd223449223533_ + (##cdr _e223380223460_))) + (_hd223379223463_ (let () (declare (not safe)) - (##car _e223450223530_)))) + (##car _e223380223460_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd223449223533_)) - (let ((_e223453223538_ + _hd223379223463_)) + (let ((_e223383223468_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd223449223533_)))) - (let ((_tl223451223543_ + (gx#stx-e _hd223379223463_)))) + (let ((_tl223381223473_ (let () (declare (not safe)) - (##cdr _e223453223538_))) - (_hd223452223541_ + (##cdr _e223383223468_))) + (_hd223382223471_ (let () (declare (not safe)) - (##car _e223453223538_)))) + (##car _e223383223468_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223452223541_)) + (gx#identifier? _hd223382223471_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd223452223541_)) + (gx#stx-eq? '%#ref _hd223382223471_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223451223543_)) - (let ((_e223456223546_ + (gx#stx-pair? _tl223381223473_)) + (let ((_e223386223476_ (let () (declare (not safe)) - (gx#stx-e _tl223451223543_)))) - (let ((_tl223454223551_ + (gx#stx-e _tl223381223473_)))) + (let ((_tl223384223481_ (let () (declare (not safe)) - (##cdr _e223456223546_))) - (_hd223455223549_ + (##cdr _e223386223476_))) + (_hd223385223479_ (let () (declare (not safe)) - (##car _e223456223546_)))) + (##car _e223386223476_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223454223551_)) + (gx#stx-null? _tl223384223481_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223448223535_)) - (let ((_e223459223554_ + _tl223378223465_)) + (let ((_e223389223484_ (let () (declare (not safe)) (gx#stx-e - _tl223448223535_)))) - (let ((_tl223457223559_ + _tl223378223465_)))) + (let ((_tl223387223489_ (let () (declare (not safe)) - (##cdr _e223459223554_))) - (_hd223458223557_ + (##cdr _e223389223484_))) + (_hd223388223487_ (let () (declare (not safe)) - (##car _e223459223554_)))) + (##car _e223389223484_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd223458223557_)) - (let ((_e223462223562_ + _hd223388223487_)) + (let ((_e223392223492_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd223458223557_)))) - (let ((_tl223460223567_ - (let () (declare (not safe)) (##cdr _e223462223562_))) - (_hd223461223565_ - (let () (declare (not safe)) (##car _e223462223562_)))) + (gx#stx-e _hd223388223487_)))) + (let ((_tl223390223497_ + (let () (declare (not safe)) (##cdr _e223392223492_))) + (_hd223391223495_ + (let () (declare (not safe)) (##car _e223392223492_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223461223565_)) + (gx#identifier? _hd223391223495_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd223461223565_)) + (gx#stx-eq? '%#ref _hd223391223495_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223460223567_)) - (let ((_e223465223570_ + (gx#stx-pair? _tl223390223497_)) + (let ((_e223395223500_ (let () (declare (not safe)) - (gx#stx-e _tl223460223567_)))) - (let ((_tl223463223575_ + (gx#stx-e _tl223390223497_)))) + (let ((_tl223393223505_ (let () (declare (not safe)) - (##cdr _e223465223570_))) - (_hd223464223573_ + (##cdr _e223395223500_))) + (_hd223394223503_ (let () (declare (not safe)) - (##car _e223465223570_)))) + (##car _e223395223500_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223463223575_)) + (gx#stx-null? _tl223393223505_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl223457223559_)) + (gx#stx-null? _tl223387223489_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl223433223495_)) - (___match231983231984_ - _e223320223882_ - _hd223319223885_ - _tl223318223887_ - _e223435223490_ - _hd223434223493_ - _tl223433223495_ - _e223438223498_ - _hd223437223501_ - _tl223436223503_ - _e223441223506_ - _hd223440223509_ - _tl223439223511_ - _e223444223514_ - _hd223443223517_ - _tl223442223519_ - _e223447223522_ - _hd223446223525_ - _tl223445223527_ - _e223450223530_ - _hd223449223533_ - _tl223448223535_ - _e223453223538_ - _hd223452223541_ - _tl223451223543_ - _e223456223546_ - _hd223455223549_ - _tl223454223551_ - _e223459223554_ - _hd223458223557_ - _tl223457223559_ - _e223462223562_ - _hd223461223565_ - _tl223460223567_ - _e223465223570_ - _hd223464223573_ - _tl223463223575_) - (___kont231858231859_)) - (___kont231858231859_)) - (___kont231858231859_)))) - (___kont231858231859_)) - (___kont231858231859_)) - (___kont231858231859_)))) - (___kont231858231859_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont231858231859_)) - (___kont231858231859_)))) - (___kont231858231859_)) - (___kont231858231859_)) - (___kont231858231859_)))) - (___kont231858231859_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont231858231859_)) - (___kont231858231859_)))) - (___kont231858231859_)) - (___kont231858231859_)) - (___kont231858231859_)))) - (___kont231858231859_)))) - (___kont231858231859_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont231858231859_)) - (___kont231858231859_)))) - (___kont231858231859_)))) - (___kont231858231859_))))) - (___kont231858231859_))))))) + _tl223363223425_)) + (___match231913231914_ + _e223250223812_ + _hd223249223815_ + _tl223248223817_ + _e223365223420_ + _hd223364223423_ + _tl223363223425_ + _e223368223428_ + _hd223367223431_ + _tl223366223433_ + _e223371223436_ + _hd223370223439_ + _tl223369223441_ + _e223374223444_ + _hd223373223447_ + _tl223372223449_ + _e223377223452_ + _hd223376223455_ + _tl223375223457_ + _e223380223460_ + _hd223379223463_ + _tl223378223465_ + _e223383223468_ + _hd223382223471_ + _tl223381223473_ + _e223386223476_ + _hd223385223479_ + _tl223384223481_ + _e223389223484_ + _hd223388223487_ + _tl223387223489_ + _e223392223492_ + _hd223391223495_ + _tl223390223497_ + _e223395223500_ + _hd223394223503_ + _tl223393223505_) + (___kont231788231789_)) + (___kont231788231789_)) + (___kont231788231789_)))) + (___kont231788231789_)) + (___kont231788231789_)) + (___kont231788231789_)))) + (___kont231788231789_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont231788231789_)) + (___kont231788231789_)))) + (___kont231788231789_)) + (___kont231788231789_)) + (___kont231788231789_)))) + (___kont231788231789_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont231788231789_)) + (___kont231788231789_)))) + (___kont231788231789_)) + (___kont231788231789_)) + (___kont231788231789_)))) + (___kont231788231789_)))) + (___kont231788231789_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont231788231789_)) + (___kont231788231789_)))) + (___kont231788231789_)))) + (___kont231788231789_))))) + (___kont231788231789_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form222776_) - (let* ((___stx231986231987_ _form222776_) - (_g222780222904_ + (lambda (_form222706_) + (let* ((___stx231916231917_ _form222706_) + (_g222710222834_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx231986231987_))))) - (let ((___kont231988231989_ - (lambda (_L223274_ _L223275_ _L223276_) + ___stx231916231917_))))) + (let ((___kont231918231919_ + (lambda (_L223204_ _L223205_ _L223206_) (let () (declare (not safe)) - (gxc#identifier-symbol _L223275_)))) - (___kont231994231995_ - (lambda (_L223122_ _L223123_ _L223124_ _L223125_) + (gxc#identifier-symbol _L223205_)))) + (___kont231924231925_ + (lambda (_L223052_ _L223053_ _L223054_ _L223055_) (let () (declare (not safe)) - (gxc#identifier-symbol _L223122_)))) - (___kont231998231999_ - (lambda (_L222989_ _L222990_ _L222991_) + (gxc#identifier-symbol _L223052_)))) + (___kont231928231929_ + (lambda (_L222919_ _L222920_ _L222921_) (let () (declare (not safe)) - (gxc#identifier-symbol _L222989_))))) - (let* ((___match232095232096_ - (lambda (_e222872222909_ - _hd222871222912_ - _tl222870222914_ - _e222875222917_ - _hd222874222920_ - _tl222873222922_ - _e222878222925_ - _hd222877222928_ - _tl222876222930_ - _e222881222933_ - _hd222880222936_ - _tl222879222938_ - _e222884222941_ - _hd222883222944_ - _tl222882222946_ - _e222887222949_ - _hd222886222952_ - _tl222885222954_ - _e222890222957_ - _hd222889222960_ - _tl222888222962_ - _e222893222965_ - _hd222892222968_ - _tl222891222970_ - _e222896222973_ - _hd222895222976_ - _tl222894222978_) + (gxc#identifier-symbol _L222919_))))) + (let* ((___match232025232026_ + (lambda (_e222802222839_ + _hd222801222842_ + _tl222800222844_ + _e222805222847_ + _hd222804222850_ + _tl222803222852_ + _e222808222855_ + _hd222807222858_ + _tl222806222860_ + _e222811222863_ + _hd222810222866_ + _tl222809222868_ + _e222814222871_ + _hd222813222874_ + _tl222812222876_ + _e222817222879_ + _hd222816222882_ + _tl222815222884_ + _e222820222887_ + _hd222819222890_ + _tl222818222892_ + _e222823222895_ + _hd222822222898_ + _tl222821222900_ + _e222826222903_ + _hd222825222906_ + _tl222824222908_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222888222962_)) - (let ((_e222899222981_ + (gx#stx-pair? _tl222818222892_)) + (let ((_e222829222911_ (let () (declare (not safe)) - (gx#stx-e _tl222888222962_)))) - (let ((_tl222897222986_ + (gx#stx-e _tl222818222892_)))) + (let ((_tl222827222916_ (let () (declare (not safe)) - (##cdr _e222899222981_))) - (_hd222898222984_ + (##cdr _e222829222911_))) + (_hd222828222914_ (let () (declare (not safe)) - (##car _e222899222981_)))) + (##car _e222829222911_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222897222986_)) + (gx#stx-null? _tl222827222916_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl222873222922_)) - (___kont231998231999_ - _hd222895222976_ - _hd222886222952_ - _hd222871222912_) + (gx#stx-null? _tl222803222852_)) + (___kont231928231929_ + _hd222825222906_ + _hd222816222882_ + _hd222801222842_) (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))))) - (let () (declare (not safe)) (_g222780222904_))))) - (___match232025232026_ - (lambda (_e222833223026_ - _hd222832223029_ - _tl222831223031_ - ___splice231996231997_ - _target222834223034_ - _tl222836223036_) - (letrec ((_loop222837223039_ - (lambda (_hd222835223042_ _arg222841223044_) + (_g222710222834_))))) + (let () (declare (not safe)) (_g222710222834_))))) + (___match231955231956_ + (lambda (_e222763222956_ + _hd222762222959_ + _tl222761222961_ + ___splice231926231927_ + _target222764222964_ + _tl222766222966_) + (letrec ((_loop222767222969_ + (lambda (_hd222765222972_ _arg222771222974_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222835223042_)) - (let ((_e222838223047_ + (gx#stx-pair? _hd222765222972_)) + (let ((_e222768222977_ (let () (declare (not safe)) - (gx#stx-e _hd222835223042_)))) - (let ((_lp-tl222840223052_ + (gx#stx-e _hd222765222972_)))) + (let ((_lp-tl222770222982_ (let () (declare (not safe)) - (##cdr _e222838223047_))) - (_lp-hd222839223050_ + (##cdr _e222768222977_))) + (_lp-hd222769222980_ (let () (declare (not safe)) - (##car _e222838223047_)))) - (let ((__tmp233250 + (##car _e222768222977_)))) + (let ((__tmp233180 (let () (declare (not safe)) - (cons _lp-hd222839223050_ - _arg222841223044_)))) + (cons _lp-hd222769222980_ + _arg222771222974_)))) (declare (not safe)) - (_loop222837223039_ - _lp-tl222840223052_ - __tmp233250)))) - (let ((_arg222842223055_ - (reverse _arg222841223044_))) + (_loop222767222969_ + _lp-tl222770222982_ + __tmp233180)))) + (let ((_arg222772222985_ + (reverse _arg222771222974_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222831223031_)) - (let ((_e222845223058_ + (gx#stx-pair? _tl222761222961_)) + (let ((_e222775222988_ (let () (declare (not safe)) (gx#stx-e - _tl222831223031_)))) - (let ((_tl222843223063_ + _tl222761222961_)))) + (let ((_tl222773222993_ (let () (declare (not safe)) - (##cdr _e222845223058_))) - (_hd222844223061_ + (##cdr _e222775222988_))) + (_hd222774222991_ (let () (declare (not safe)) - (##car _e222845223058_)))) + (##car _e222775222988_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd222844223061_)) - (let ((_e222848223066_ + _hd222774222991_)) + (let ((_e222778222996_ (let () (declare (not safe)) (gx#stx-e - _hd222844223061_)))) - (let ((_tl222846223071_ + _hd222774222991_)))) + (let ((_tl222776223001_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e222848223066_))) - (_hd222847223069_ - (let () (declare (not safe)) (##car _e222848223066_)))) + (##cdr _e222778222996_))) + (_hd222777222999_ + (let () (declare (not safe)) (##car _e222778222996_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222847223069_)) + (gx#identifier? _hd222777222999_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd222847223069_)) + (gx#stx-eq? '%#call _hd222777222999_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222846223071_)) - (let ((_e222851223074_ + (gx#stx-pair? _tl222776223001_)) + (let ((_e222781223004_ (let () (declare (not safe)) - (gx#stx-e _tl222846223071_)))) - (let ((_tl222849223079_ + (gx#stx-e _tl222776223001_)))) + (let ((_tl222779223009_ (let () (declare (not safe)) - (##cdr _e222851223074_))) - (_hd222850223077_ + (##cdr _e222781223004_))) + (_hd222780223007_ (let () (declare (not safe)) - (##car _e222851223074_)))) + (##car _e222781223004_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222850223077_)) - (let ((_e222854223082_ + (gx#stx-pair? _hd222780223007_)) + (let ((_e222784223012_ (let () (declare (not safe)) - (gx#stx-e _hd222850223077_)))) - (let ((_tl222852223087_ + (gx#stx-e _hd222780223007_)))) + (let ((_tl222782223017_ (let () (declare (not safe)) - (##cdr _e222854223082_))) - (_hd222853223085_ + (##cdr _e222784223012_))) + (_hd222783223015_ (let () (declare (not safe)) - (##car _e222854223082_)))) + (##car _e222784223012_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd222853223085_)) + _hd222783223015_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd222853223085_)) + _hd222783223015_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222852223087_)) - (let ((_e222857223090_ + _tl222782223017_)) + (let ((_e222787223020_ (let () (declare (not safe)) (gx#stx-e - _tl222852223087_)))) - (let ((_tl222855223095_ + _tl222782223017_)))) + (let ((_tl222785223025_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e222857223090_))) - (_hd222856223093_ - (let () (declare (not safe)) (##car _e222857223090_)))) + (##cdr _e222787223020_))) + (_hd222786223023_ + (let () (declare (not safe)) (##car _e222787223020_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222855223095_)) + (gx#stx-null? _tl222785223025_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222849223079_)) - (let ((_e222860223098_ + (gx#stx-pair? _tl222779223009_)) + (let ((_e222790223028_ (let () (declare (not safe)) - (gx#stx-e _tl222849223079_)))) - (let ((_tl222858223103_ + (gx#stx-e _tl222779223009_)))) + (let ((_tl222788223033_ (let () (declare (not safe)) - (##cdr _e222860223098_))) - (_hd222859223101_ + (##cdr _e222790223028_))) + (_hd222789223031_ (let () (declare (not safe)) - (##car _e222860223098_)))) + (##car _e222790223028_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222859223101_)) - (let ((_e222863223106_ + (gx#stx-pair? _hd222789223031_)) + (let ((_e222793223036_ (let () (declare (not safe)) - (gx#stx-e _hd222859223101_)))) - (let ((_tl222861223111_ + (gx#stx-e _hd222789223031_)))) + (let ((_tl222791223041_ (let () (declare (not safe)) - (##cdr _e222863223106_))) - (_hd222862223109_ + (##cdr _e222793223036_))) + (_hd222792223039_ (let () (declare (not safe)) - (##car _e222863223106_)))) + (##car _e222793223036_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222862223109_)) + (gx#identifier? _hd222792223039_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd222862223109_)) + _hd222792223039_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222861223111_)) - (let ((_e222866223114_ + _tl222791223041_)) + (let ((_e222796223044_ (let () (declare (not safe)) (gx#stx-e - _tl222861223111_)))) - (let ((_tl222864223119_ + _tl222791223041_)))) + (let ((_tl222794223049_ (let () (declare (not safe)) - (##cdr _e222866223114_))) - (_hd222865223117_ + (##cdr _e222796223044_))) + (_hd222795223047_ (let () (declare (not safe)) - (##car _e222866223114_)))) + (##car _e222796223044_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222864223119_)) + _tl222794223049_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl222843223063_)) - (___kont231994231995_ - _hd222865223117_ - _hd222856223093_ - _tl222836223036_ - _arg222842223055_) - (___match232095232096_ - _e222833223026_ - _hd222832223029_ - _tl222831223031_ - _e222845223058_ - _hd222844223061_ - _tl222843223063_ - _e222848223066_ - _hd222847223069_ - _tl222846223071_ - _e222851223074_ - _hd222850223077_ - _tl222849223079_ - _e222854223082_ - _hd222853223085_ - _tl222852223087_ - _e222857223090_ - _hd222856223093_ - _tl222855223095_ - _e222860223098_ - _hd222859223101_ - _tl222858223103_ - _e222863223106_ - _hd222862223109_ - _tl222861223111_ - _e222866223114_ - _hd222865223117_ - _tl222864223119_)) + _tl222773222993_)) + (___kont231924231925_ + _hd222795223047_ + _hd222786223023_ + _tl222766222966_ + _arg222772222985_) + (___match232025232026_ + _e222763222956_ + _hd222762222959_ + _tl222761222961_ + _e222775222988_ + _hd222774222991_ + _tl222773222993_ + _e222778222996_ + _hd222777222999_ + _tl222776223001_ + _e222781223004_ + _hd222780223007_ + _tl222779223009_ + _e222784223012_ + _hd222783223015_ + _tl222782223017_ + _e222787223020_ + _hd222786223023_ + _tl222785223025_ + _e222790223028_ + _hd222789223031_ + _tl222788223033_ + _e222793223036_ + _hd222792223039_ + _tl222791223041_ + _e222796223044_ + _hd222795223047_ + _tl222794223049_)) (let () (declare (not safe)) - (_g222780222904_))))) + (_g222710222834_))))) (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))))) + (_g222710222834_))))) (let () (declare (not safe)) - (_g222780222904_))))) - (let () (declare (not safe)) (_g222780222904_))) - (let () (declare (not safe)) (_g222780222904_))))) + (_g222710222834_))))) + (let () (declare (not safe)) (_g222710222834_))) + (let () (declare (not safe)) (_g222710222834_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))))) + (_g222710222834_))))) (let () (declare (not safe)) - (_g222780222904_))))) - (let () (declare (not safe)) (_g222780222904_))) - (let () (declare (not safe)) (_g222780222904_))) - (let () (declare (not safe)) (_g222780222904_))))) + (_g222710222834_))))) + (let () (declare (not safe)) (_g222710222834_))) + (let () (declare (not safe)) (_g222710222834_))) + (let () (declare (not safe)) (_g222710222834_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g222780222904_))))) + (_g222710222834_))))) (let () (declare (not safe)) - (_g222780222904_)))))))) + (_g222710222834_)))))))) (let () (declare (not safe)) - (_loop222837223039_ _target222834223034_ '()))))) - (___match232013232014_ - (lambda (_e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_) - (letrec ((_loop222791223175_ - (lambda (_hd222789223178_ _arg222795223180_) + (_loop222767222969_ _target222764222964_ '()))))) + (___match231943231944_ + (lambda (_e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_) + (letrec ((_loop222721223105_ + (lambda (_hd222719223108_ _arg222725223110_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222789223178_)) - (let ((_e222792223183_ + (gx#stx-pair? _hd222719223108_)) + (let ((_e222722223113_ (let () (declare (not safe)) - (gx#stx-e _hd222789223178_)))) - (let ((_lp-tl222794223188_ + (gx#stx-e _hd222719223108_)))) + (let ((_lp-tl222724223118_ (let () (declare (not safe)) - (##cdr _e222792223183_))) - (_lp-hd222793223186_ + (##cdr _e222722223113_))) + (_lp-hd222723223116_ (let () (declare (not safe)) - (##car _e222792223183_)))) - (let ((__tmp233252 + (##car _e222722223113_)))) + (let ((__tmp233182 (let () (declare (not safe)) - (cons _lp-hd222793223186_ - _arg222795223180_)))) + (cons _lp-hd222723223116_ + _arg222725223110_)))) (declare (not safe)) - (_loop222791223175_ - _lp-tl222794223188_ - __tmp233252)))) - (let ((_arg222796223191_ - (reverse _arg222795223180_))) + (_loop222721223105_ + _lp-tl222724223118_ + __tmp233182)))) + (let ((_arg222726223121_ + (reverse _arg222725223110_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222785223167_)) - (let ((_e222799223194_ + (gx#stx-pair? _tl222715223097_)) + (let ((_e222729223124_ (let () (declare (not safe)) (gx#stx-e - _tl222785223167_)))) - (let ((_tl222797223199_ + _tl222715223097_)))) + (let ((_tl222727223129_ (let () (declare (not safe)) - (##cdr _e222799223194_))) - (_hd222798223197_ + (##cdr _e222729223124_))) + (_hd222728223127_ (let () (declare (not safe)) - (##car _e222799223194_)))) + (##car _e222729223124_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd222798223197_)) - (let ((_e222802223202_ + _hd222728223127_)) + (let ((_e222732223132_ (let () (declare (not safe)) (gx#stx-e - _hd222798223197_)))) - (let ((_tl222800223207_ + _hd222728223127_)))) + (let ((_tl222730223137_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e222802223202_))) - (_hd222801223205_ - (let () (declare (not safe)) (##car _e222802223202_)))) + (##cdr _e222732223132_))) + (_hd222731223135_ + (let () (declare (not safe)) (##car _e222732223132_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222801223205_)) + (gx#identifier? _hd222731223135_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd222801223205_)) + (gx#stx-eq? '%#call _hd222731223135_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222800223207_)) - (let ((_e222805223210_ + (gx#stx-pair? _tl222730223137_)) + (let ((_e222735223140_ (let () (declare (not safe)) - (gx#stx-e _tl222800223207_)))) - (let ((_tl222803223215_ + (gx#stx-e _tl222730223137_)))) + (let ((_tl222733223145_ (let () (declare (not safe)) - (##cdr _e222805223210_))) - (_hd222804223213_ + (##cdr _e222735223140_))) + (_hd222734223143_ (let () (declare (not safe)) - (##car _e222805223210_)))) + (##car _e222735223140_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222804223213_)) - (let ((_e222808223218_ + (gx#stx-pair? _hd222734223143_)) + (let ((_e222738223148_ (let () (declare (not safe)) - (gx#stx-e _hd222804223213_)))) - (let ((_tl222806223223_ + (gx#stx-e _hd222734223143_)))) + (let ((_tl222736223153_ (let () (declare (not safe)) - (##cdr _e222808223218_))) - (_hd222807223221_ + (##cdr _e222738223148_))) + (_hd222737223151_ (let () (declare (not safe)) - (##car _e222808223218_)))) + (##car _e222738223148_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd222807223221_)) + _hd222737223151_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd222807223221_)) + _hd222737223151_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222806223223_)) - (let ((_e222811223226_ + _tl222736223153_)) + (let ((_e222741223156_ (let () (declare (not safe)) (gx#stx-e - _tl222806223223_)))) - (let ((_tl222809223231_ + _tl222736223153_)))) + (let ((_tl222739223161_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e222811223226_))) - (_hd222810223229_ - (let () (declare (not safe)) (##car _e222811223226_)))) + (##cdr _e222741223156_))) + (_hd222740223159_ + (let () (declare (not safe)) (##car _e222741223156_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222809223231_)) + (gx#stx-null? _tl222739223161_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl222803223215_)) - (let ((___splice231992231993_ + (gx#stx-pair/null? _tl222733223145_)) + (let ((___splice231922231923_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl222803223215_ + _tl222733223145_ '0)))) - (let ((_tl222814223236_ + (let ((_tl222744223166_ (let () (declare (not safe)) - (##vector-ref ___splice231992231993_ '1))) - (_target222812223234_ + (##vector-ref ___splice231922231923_ '1))) + (_target222742223164_ (let () (declare (not safe)) - (##vector-ref ___splice231992231993_ '0)))) + (##vector-ref ___splice231922231923_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222814223236_)) - (letrec ((_loop222815223239_ - (lambda (_hd222813223242_ - _xarg222819223244_) + (gx#stx-null? _tl222744223166_)) + (letrec ((_loop222745223169_ + (lambda (_hd222743223172_ + _xarg222749223174_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd222813223242_)) - (let ((_e222816223247_ + _hd222743223172_)) + (let ((_e222746223177_ (let () (declare (not safe)) (gx#stx-e - _hd222813223242_)))) - (let ((_lp-tl222818223252_ + _hd222743223172_)))) + (let ((_lp-tl222748223182_ (let () (declare (not safe)) - (##cdr _e222816223247_))) - (_lp-hd222817223250_ + (##cdr _e222746223177_))) + (_lp-hd222747223180_ (let () (declare (not safe)) - (##car _e222816223247_)))) + (##car _e222746223177_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd222817223250_)) - (let ((_e222823223255_ + _lp-hd222747223180_)) + (let ((_e222753223185_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd222817223250_)))) - (let ((_tl222821223260_ - (let () (declare (not safe)) (##cdr _e222823223255_))) - (_hd222822223258_ + (gx#stx-e _lp-hd222747223180_)))) + (let ((_tl222751223190_ + (let () (declare (not safe)) (##cdr _e222753223185_))) + (_hd222752223188_ (let () (declare (not safe)) - (##car _e222823223255_)))) + (##car _e222753223185_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222822223258_)) + (gx#identifier? _hd222752223188_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd222822223258_)) + (gx#stx-eq? '%#ref _hd222752223188_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222821223260_)) - (let ((_e222826223263_ + (gx#stx-pair? _tl222751223190_)) + (let ((_e222756223193_ (let () (declare (not safe)) - (gx#stx-e _tl222821223260_)))) - (let ((_tl222824223268_ + (gx#stx-e _tl222751223190_)))) + (let ((_tl222754223198_ (let () (declare (not safe)) - (##cdr _e222826223263_))) - (_hd222825223266_ + (##cdr _e222756223193_))) + (_hd222755223196_ (let () (declare (not safe)) - (##car _e222826223263_)))) + (##car _e222756223193_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222824223268_)) - (let ((__tmp233251 + (gx#stx-null? _tl222754223198_)) + (let ((__tmp233181 (let () (declare (not safe)) - (cons _hd222825223266_ - _xarg222819223244_)))) + (cons _hd222755223196_ + _xarg222749223174_)))) (declare (not safe)) - (_loop222815223239_ - _lp-tl222818223252_ - __tmp233251)) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)))) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)))) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg222820223271_ - (reverse _xarg222819223244_))) + (_loop222745223169_ + _lp-tl222748223182_ + __tmp233181)) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)))) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)))) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg222750223201_ + (reverse _xarg222749223174_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222797223199_)) - (___kont231988231989_ - _xarg222820223271_ - _hd222810223229_ - _arg222796223191_) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_))))))) + _tl222727223129_)) + (___kont231918231919_ + _xarg222750223201_ + _hd222740223159_ + _arg222726223121_) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_))))))) (let () (declare (not safe)) - (_loop222815223239_ - _target222812223234_ + (_loop222745223169_ + _target222742223164_ '()))) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)))) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)))) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)))) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)))) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_))))))) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)))) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)))) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)))) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)))) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_))))))) (let () (declare (not safe)) - (_loop222791223175_ _target222788223170_ '())))))) + (_loop222721223105_ _target222718223100_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx231986231987_)) - (let ((_e222787223162_ + (gx#stx-pair? ___stx231916231917_)) + (let ((_e222717223092_ (let () (declare (not safe)) - (gx#stx-e ___stx231986231987_)))) - (let ((_tl222785223167_ + (gx#stx-e ___stx231916231917_)))) + (let ((_tl222715223097_ (let () (declare (not safe)) - (##cdr _e222787223162_))) - (_hd222786223165_ + (##cdr _e222717223092_))) + (_hd222716223095_ (let () (declare (not safe)) - (##car _e222787223162_)))) + (##car _e222717223092_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd222786223165_)) - (let ((___splice231990231991_ + (gx#stx-pair/null? _hd222716223095_)) + (let ((___splice231920231921_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd222786223165_ + _hd222716223095_ '0)))) - (let ((_tl222790223172_ + (let ((_tl222720223102_ (let () (declare (not safe)) - (##vector-ref ___splice231990231991_ '1))) - (_target222788223170_ + (##vector-ref ___splice231920231921_ '1))) + (_target222718223100_ (let () (declare (not safe)) (##vector-ref - ___splice231990231991_ + ___splice231920231921_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222790223172_)) - (___match232013232014_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_) - (___match232025232026_ - _e222787223162_ - _hd222786223165_ - _tl222785223167_ - ___splice231990231991_ - _target222788223170_ - _tl222790223172_)))) + (gx#stx-null? _tl222720223102_)) + (___match231943231944_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_) + (___match231955231956_ + _e222717223092_ + _hd222716223095_ + _tl222715223097_ + ___splice231920231921_ + _target222718223100_ + _tl222720223102_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222785223167_)) - (let ((_e222875222917_ + (gx#stx-pair? _tl222715223097_)) + (let ((_e222805222847_ (let () (declare (not safe)) - (gx#stx-e _tl222785223167_)))) - (let ((_tl222873222922_ + (gx#stx-e _tl222715223097_)))) + (let ((_tl222803222852_ (let () (declare (not safe)) - (##cdr _e222875222917_))) - (_hd222874222920_ + (##cdr _e222805222847_))) + (_hd222804222850_ (let () (declare (not safe)) - (##car _e222875222917_)))) + (##car _e222805222847_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222874222920_)) - (let ((_e222878222925_ + (gx#stx-pair? _hd222804222850_)) + (let ((_e222808222855_ (let () (declare (not safe)) - (gx#stx-e _hd222874222920_)))) - (let ((_tl222876222930_ + (gx#stx-e _hd222804222850_)))) + (let ((_tl222806222860_ (let () (declare (not safe)) - (##cdr _e222878222925_))) - (_hd222877222928_ + (##cdr _e222808222855_))) + (_hd222807222858_ (let () (declare (not safe)) - (##car _e222878222925_)))) + (##car _e222808222855_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd222877222928_)) + _hd222807222858_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd222877222928_)) + _hd222807222858_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222876222930_)) - (let ((_e222881222933_ + _tl222806222860_)) + (let ((_e222811222863_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl222876222930_)))) - (let ((_tl222879222938_ - (let () (declare (not safe)) (##cdr _e222881222933_))) - (_hd222880222936_ - (let () (declare (not safe)) (##car _e222881222933_)))) + (gx#stx-e _tl222806222860_)))) + (let ((_tl222809222868_ + (let () (declare (not safe)) (##cdr _e222811222863_))) + (_hd222810222866_ + (let () (declare (not safe)) (##car _e222811222863_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222880222936_)) - (let ((_e222884222941_ + (gx#stx-pair? _hd222810222866_)) + (let ((_e222814222871_ (let () (declare (not safe)) - (gx#stx-e _hd222880222936_)))) - (let ((_tl222882222946_ + (gx#stx-e _hd222810222866_)))) + (let ((_tl222812222876_ (let () (declare (not safe)) - (##cdr _e222884222941_))) - (_hd222883222944_ + (##cdr _e222814222871_))) + (_hd222813222874_ (let () (declare (not safe)) - (##car _e222884222941_)))) + (##car _e222814222871_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222883222944_)) + (gx#identifier? _hd222813222874_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd222883222944_)) + (gx#stx-eq? '%#ref _hd222813222874_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222882222946_)) - (let ((_e222887222949_ + (gx#stx-pair? _tl222812222876_)) + (let ((_e222817222879_ (let () (declare (not safe)) - (gx#stx-e _tl222882222946_)))) - (let ((_tl222885222954_ + (gx#stx-e _tl222812222876_)))) + (let ((_tl222815222884_ (let () (declare (not safe)) - (##cdr _e222887222949_))) - (_hd222886222952_ + (##cdr _e222817222879_))) + (_hd222816222882_ (let () (declare (not safe)) - (##car _e222887222949_)))) + (##car _e222817222879_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222885222954_)) + _tl222815222884_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222879222938_)) - (let ((_e222890222957_ + _tl222809222868_)) + (let ((_e222820222887_ (let () (declare (not safe)) (gx#stx-e - _tl222879222938_)))) - (let ((_tl222888222962_ + _tl222809222868_)))) + (let ((_tl222818222892_ (let () (declare (not safe)) - (##cdr _e222890222957_))) - (_hd222889222960_ + (##cdr _e222820222887_))) + (_hd222819222890_ (let () (declare (not safe)) - (##car _e222890222957_)))) + (##car _e222820222887_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd222889222960_)) - (let ((_e222893222965_ + _hd222819222890_)) + (let ((_e222823222895_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd222889222960_)))) - (let ((_tl222891222970_ + (gx#stx-e _hd222819222890_)))) + (let ((_tl222821222900_ (let () (declare (not safe)) - (##cdr _e222893222965_))) - (_hd222892222968_ + (##cdr _e222823222895_))) + (_hd222822222898_ (let () (declare (not safe)) - (##car _e222893222965_)))) + (##car _e222823222895_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222892222968_)) + (gx#identifier? _hd222822222898_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd222892222968_)) + (gx#stx-eq? '%#ref _hd222822222898_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222891222970_)) - (let ((_e222896222973_ + (gx#stx-pair? _tl222821222900_)) + (let ((_e222826222903_ (let () (declare (not safe)) - (gx#stx-e _tl222891222970_)))) - (let ((_tl222894222978_ + (gx#stx-e _tl222821222900_)))) + (let ((_tl222824222908_ (let () (declare (not safe)) - (##cdr _e222896222973_))) - (_hd222895222976_ + (##cdr _e222826222903_))) + (_hd222825222906_ (let () (declare (not safe)) - (##car _e222896222973_)))) + (##car _e222826222903_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222894222978_)) + (gx#stx-null? _tl222824222908_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222888222962_)) - (let ((_e222899222981_ + _tl222818222892_)) + (let ((_e222829222911_ (let () (declare (not safe)) (gx#stx-e - _tl222888222962_)))) - (let ((_tl222897222986_ + _tl222818222892_)))) + (let ((_tl222827222916_ (let () (declare (not safe)) - (##cdr _e222899222981_))) - (_hd222898222984_ + (##cdr _e222829222911_))) + (_hd222828222914_ (let () (declare (not safe)) - (##car _e222899222981_)))) + (##car _e222829222911_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222897222986_)) + _tl222827222916_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl222873222922_)) - (___kont231998231999_ - _hd222895222976_ - _hd222886222952_ - _hd222786223165_) + _tl222803222852_)) + (___kont231928231929_ + _hd222825222906_ + _hd222816222882_ + _hd222716223095_) (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))))) + (_g222710222834_))))) (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))))) + (_g222710222834_))))) (let () (declare (not safe)) - (_g222780222904_))) - (let () (declare (not safe)) (_g222780222904_))) - (let () (declare (not safe)) (_g222780222904_))))) - (let () (declare (not safe)) (_g222780222904_))))) + (_g222710222834_))) + (let () (declare (not safe)) (_g222710222834_))) + (let () (declare (not safe)) (_g222710222834_))))) + (let () (declare (not safe)) (_g222710222834_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))))) + (_g222710222834_))))) (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))))) - (let () (declare (not safe)) (_g222780222904_))))) - (let () (declare (not safe)) (_g222780222904_))) + (_g222710222834_))))) + (let () (declare (not safe)) (_g222710222834_))))) + (let () (declare (not safe)) (_g222710222834_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g222780222904_))) + (_g222710222834_))) (let () (declare (not safe)) - (_g222780222904_))))) + (_g222710222834_))))) (let () (declare (not safe)) - (_g222780222904_))))) + (_g222710222834_))))) (let () (declare (not safe)) - (_g222780222904_)))))) - (let () (declare (not safe)) (_g222780222904_)))))))) + (_g222710222834_)))))) + (let () (declare (not safe)) (_g222710222834_)))))))) (define gxc#lambda-form-arity - (lambda (_form222580_) - (let* ((_g222582222596_ - (lambda (_g222583222593_) + (lambda (_form222510_) + (let* ((_g222512222526_ + (lambda (_g222513222523_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222583222593_)))) - (_g222581222773_ - (lambda (_g222583222599_) + _g222513222523_)))) + (_g222511222703_ + (lambda (_g222513222529_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222583222599_)) - (let ((_e222588222601_ + (gx#stx-pair? _g222513222529_)) + (let ((_e222518222531_ (let () (declare (not safe)) - (gx#stx-e _g222583222599_)))) - (let ((_hd222587222604_ + (gx#stx-e _g222513222529_)))) + (let ((_hd222517222534_ (let () (declare (not safe)) - (##car _e222588222601_))) - (_tl222586222606_ + (##car _e222518222531_))) + (_tl222516222536_ (let () (declare (not safe)) - (##cdr _e222588222601_)))) + (##cdr _e222518222531_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222586222606_)) - (let ((_e222591222609_ + (gx#stx-pair? _tl222516222536_)) + (let ((_e222521222539_ (let () (declare (not safe)) - (gx#stx-e _tl222586222606_)))) - (let ((_hd222590222612_ + (gx#stx-e _tl222516222536_)))) + (let ((_hd222520222542_ (let () (declare (not safe)) - (##car _e222591222609_))) - (_tl222589222614_ + (##car _e222521222539_))) + (_tl222519222544_ (let () (declare (not safe)) - (##cdr _e222591222609_)))) + (##cdr _e222521222539_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222589222614_)) - ((lambda (_L222617_ _L222618_) - (let* ((___stx232108232109_ _L222618_) - (_g222633222661_ + (gx#stx-null? _tl222519222544_)) + ((lambda (_L222547_ _L222548_) + (let* ((___stx232038232039_ _L222548_) + (_g222563222591_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232108232109_))))) - (let ((___kont232110232111_ - (lambda (_L222752_) - (length (let ((__tmp233253 + ___stx232038232039_))))) + (let ((___kont232040232041_ + (lambda (_L222682_) + (length (let ((__tmp233183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g222762222765_ _g222763222767_) + (lambda (_g222692222695_ _g222693222697_) (let () (declare (not safe)) - (cons _g222762222765_ _g222763222767_))))) + (cons _g222692222695_ _g222693222697_))))) (declare (not safe)) - (foldr1 __tmp233253 '() _L222752_))))) + (foldr1 __tmp233183 '() _L222682_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232114232115_ - (lambda (_L222703_ _L222704_) - (let ((__tmp233254 - (length (let ((__tmp233255 + (___kont232044232045_ + (lambda (_L222633_ _L222634_) + (let ((__tmp233184 + (length (let ((__tmp233185 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g222715222718_ _g222716222720_) + (lambda (_g222645222648_ _g222646222650_) (let () (declare (not safe)) - (cons _g222715222718_ - _g222716222720_))))) + (cons _g222645222648_ + _g222646222650_))))) (declare (not safe)) - (foldr1 __tmp233255 '() _L222704_))))) + (foldr1 __tmp233185 '() _L222634_))))) (declare (not safe)) - (cons __tmp233254 '())))) + (cons __tmp233184 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232118232119_ - (lambda (_L222666_) + (___kont232048232049_ + (lambda (_L222596_) (let () (declare (not safe)) (cons '0 '()))))) - (let* ((___match232133232134_ - (lambda (___splice232116232117_ - _target222647222679_ - _tl222649222681_) - (letrec ((_loop222650222684_ + (let* ((___match232063232064_ + (lambda (___splice232046232047_ + _target222577222609_ + _tl222579222611_) + (letrec ((_loop222580222614_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd222648222687_ _arg222654222689_) + (lambda (_hd222578222617_ _arg222584222619_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222648222687_)) - (let ((_e222651222692_ + (gx#stx-pair? _hd222578222617_)) + (let ((_e222581222622_ (let () (declare (not safe)) - (gx#stx-e _hd222648222687_)))) - (let ((_lp-tl222653222697_ + (gx#stx-e _hd222578222617_)))) + (let ((_lp-tl222583222627_ (let () (declare (not safe)) - (##cdr _e222651222692_))) - (_lp-hd222652222695_ + (##cdr _e222581222622_))) + (_lp-hd222582222625_ (let () (declare (not safe)) - (##car _e222651222692_)))) - (let ((__tmp233256 + (##car _e222581222622_)))) + (let ((__tmp233186 (let () (declare (not safe)) - (cons _lp-hd222652222695_ - _arg222654222689_)))) + (cons _lp-hd222582222625_ + _arg222584222619_)))) (declare (not safe)) - (_loop222650222684_ - _lp-tl222653222697_ - __tmp233256)))) - (let ((_arg222655222700_ - (reverse _arg222654222689_))) - (___kont232114232115_ - _tl222649222681_ - _arg222655222700_)))))) + (_loop222580222614_ + _lp-tl222583222627_ + __tmp233186)))) + (let ((_arg222585222630_ + (reverse _arg222584222619_))) + (___kont232044232045_ + _tl222579222611_ + _arg222585222630_)))))) (let () (declare (not safe)) - (_loop222650222684_ _target222647222679_ '()))))) + (_loop222580222614_ _target222577222609_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match232127232128_ - (lambda (___splice232112232113_ - _target222636222728_ - _tl222638222730_) - (letrec ((_loop222639222733_ + (___match232057232058_ + (lambda (___splice232042232043_ + _target222566222658_ + _tl222568222660_) + (letrec ((_loop222569222663_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd222637222736_ _arg222643222738_) + (lambda (_hd222567222666_ _arg222573222668_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222637222736_)) - (let ((_e222640222741_ + (gx#stx-pair? _hd222567222666_)) + (let ((_e222570222671_ (let () (declare (not safe)) - (gx#stx-e _hd222637222736_)))) - (let ((_lp-tl222642222746_ + (gx#stx-e _hd222567222666_)))) + (let ((_lp-tl222572222676_ (let () (declare (not safe)) - (##cdr _e222640222741_))) - (_lp-hd222641222744_ + (##cdr _e222570222671_))) + (_lp-hd222571222674_ (let () (declare (not safe)) - (##car _e222640222741_)))) - (let ((__tmp233257 + (##car _e222570222671_)))) + (let ((__tmp233187 (let () (declare (not safe)) - (cons _lp-hd222641222744_ - _arg222643222738_)))) + (cons _lp-hd222571222674_ + _arg222573222668_)))) (declare (not safe)) - (_loop222639222733_ - _lp-tl222642222746_ - __tmp233257)))) - (let ((_arg222644222749_ - (reverse _arg222643222738_))) - (___kont232110232111_ _arg222644222749_)))))) + (_loop222569222663_ + _lp-tl222572222676_ + __tmp233187)))) + (let ((_arg222574222679_ + (reverse _arg222573222668_))) + (___kont232040232041_ _arg222574222679_)))))) (let () (declare (not safe)) - (_loop222639222733_ _target222636222728_ '())))))) + (_loop222569222663_ _target222566222658_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - ___stx232108232109_)) - (let ((___splice232112232113_ + ___stx232038232039_)) + (let ((___splice232042232043_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx232108232109_ + ___stx232038232039_ '0)))) - (let ((_tl222638222730_ + (let ((_tl222568222660_ (let () (declare (not safe)) (##vector-ref - ___splice232112232113_ + ___splice232042232043_ '1))) - (_target222636222728_ + (_target222566222658_ (let () (declare (not safe)) (##vector-ref - ___splice232112232113_ + ___splice232042232043_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222638222730_)) - (___match232127232128_ - ___splice232112232113_ - _target222636222728_ - _tl222638222730_) - (___match232133232134_ - ___splice232112232113_ - _target222636222728_ - _tl222638222730_)))) - (___kont232118232119_ - ___stx232108232109_)))))) - _hd222590222612_ - _hd222587222604_) + _tl222568222660_)) + (___match232057232058_ + ___splice232042232043_ + _target222566222658_ + _tl222568222660_) + (___match232063232064_ + ___splice232042232043_ + _target222566222658_ + _tl222568222660_)))) + (___kont232048232049_ + ___stx232038232039_)))))) + _hd222520222542_ + _hd222517222534_) (let () (declare (not safe)) - (_g222582222596_ _g222583222599_))))) + (_g222512222526_ _g222513222529_))))) (let () (declare (not safe)) - (_g222582222596_ _g222583222599_))))) + (_g222512222526_ _g222513222529_))))) (let () (declare (not safe)) - (_g222582222596_ _g222583222599_)))))) + (_g222512222526_ _g222513222529_)))))) (declare (not safe)) - (_g222581222773_ _form222580_)))) + (_g222511222703_ _form222510_)))) (define gxc#lambda-expr? - (lambda (_expr222533_) - (let* ((___stx232136232137_ _expr222533_) - (_g222536222546_ + (lambda (_expr222463_) + (let* ((___stx232066232067_ _expr222463_) + (_g222466222476_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232136232137_))))) - (let ((___kont232138232139_ (lambda (_L222566_) '#t)) - (___kont232140232141_ (lambda () '#f))) + ___stx232066232067_))))) + (let ((___kont232068232069_ (lambda (_L222496_) '#t)) + (___kont232070232071_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx232136232137_)) - (let ((_e222541222558_ + (gx#stx-pair? ___stx232066232067_)) + (let ((_e222471222488_ (let () (declare (not safe)) - (gx#stx-e ___stx232136232137_)))) - (let ((_tl222539222563_ - (let () (declare (not safe)) (##cdr _e222541222558_))) - (_hd222540222561_ + (gx#stx-e ___stx232066232067_)))) + (let ((_tl222469222493_ + (let () (declare (not safe)) (##cdr _e222471222488_))) + (_hd222470222491_ (let () (declare (not safe)) - (##car _e222541222558_)))) + (##car _e222471222488_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222540222561_)) + (gx#identifier? _hd222470222491_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd222540222561_)) - (___kont232138232139_ _tl222539222563_) - (___kont232140232141_)) - (___kont232140232141_)))) - (___kont232140232141_)))))) + (gx#stx-eq? '%#lambda _hd222470222491_)) + (___kont232068232069_ _tl222469222493_) + (___kont232070232071_)) + (___kont232070232071_)))) + (___kont232070232071_)))))) (define gxc#case-lambda-expr? - (lambda (_expr222486_) - (let* ((___stx232154232155_ _expr222486_) - (_g222489222499_ + (lambda (_expr222416_) + (let* ((___stx232084232085_ _expr222416_) + (_g222419222429_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232154232155_))))) - (let ((___kont232156232157_ (lambda (_L222519_) '#t)) - (___kont232158232159_ (lambda () '#f))) + ___stx232084232085_))))) + (let ((___kont232086232087_ (lambda (_L222449_) '#t)) + (___kont232088232089_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx232154232155_)) - (let ((_e222494222511_ + (gx#stx-pair? ___stx232084232085_)) + (let ((_e222424222441_ (let () (declare (not safe)) - (gx#stx-e ___stx232154232155_)))) - (let ((_tl222492222516_ - (let () (declare (not safe)) (##cdr _e222494222511_))) - (_hd222493222514_ + (gx#stx-e ___stx232084232085_)))) + (let ((_tl222422222446_ + (let () (declare (not safe)) (##cdr _e222424222441_))) + (_hd222423222444_ (let () (declare (not safe)) - (##car _e222494222511_)))) + (##car _e222424222441_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222493222514_)) + (gx#identifier? _hd222423222444_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _hd222493222514_)) - (___kont232156232157_ _tl222492222516_) - (___kont232158232159_)) - (___kont232158232159_)))) - (___kont232158232159_)))))) + (gx#stx-eq? '%#case-lambda _hd222423222444_)) + (___kont232086232087_ _tl222422222446_) + (___kont232088232089_)) + (___kont232088232089_)))) + (___kont232088232089_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr222355_) - (let* ((___stx232172232173_ _expr222355_) - (_g222358222388_ + (lambda (_expr222285_) + (let* ((___stx232102232103_ _expr222285_) + (_g222288222318_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232172232173_))))) - (let ((___kont232174232175_ - (lambda (_L222456_ _L222457_ _L222458_) - (if (let () (declare (not safe)) (gx#identifier? _L222458_)) + ___stx232102232103_))))) + (let ((___kont232104232105_ + (lambda (_L222386_ _L222387_ _L222388_) + (if (let () (declare (not safe)) (gx#identifier? _L222388_)) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L222457_)) + (gxc#lambda-expr? _L222387_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L222456_)) + (gxc#case-lambda-expr? _L222386_)) '#f) '#f))) - (___kont232176232177_ (lambda () '#f))) + (___kont232106232107_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx232172232173_)) - (let ((_e222365222400_ + (gx#stx-pair? ___stx232102232103_)) + (let ((_e222295222330_ (let () (declare (not safe)) - (gx#stx-e ___stx232172232173_)))) - (let ((_tl222363222405_ - (let () (declare (not safe)) (##cdr _e222365222400_))) - (_hd222364222403_ + (gx#stx-e ___stx232102232103_)))) + (let ((_tl222293222335_ + (let () (declare (not safe)) (##cdr _e222295222330_))) + (_hd222294222333_ (let () (declare (not safe)) - (##car _e222365222400_)))) + (##car _e222295222330_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222364222403_)) + (gx#identifier? _hd222294222333_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd222364222403_)) + (gx#stx-eq? '%#let-values _hd222294222333_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222363222405_)) - (let ((_e222368222408_ + (gx#stx-pair? _tl222293222335_)) + (let ((_e222298222338_ (let () (declare (not safe)) - (gx#stx-e _tl222363222405_)))) - (let ((_tl222366222413_ + (gx#stx-e _tl222293222335_)))) + (let ((_tl222296222343_ (let () (declare (not safe)) - (##cdr _e222368222408_))) - (_hd222367222411_ + (##cdr _e222298222338_))) + (_hd222297222341_ (let () (declare (not safe)) - (##car _e222368222408_)))) + (##car _e222298222338_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222367222411_)) - (let ((_e222371222416_ + (gx#stx-pair? _hd222297222341_)) + (let ((_e222301222346_ (let () (declare (not safe)) - (gx#stx-e _hd222367222411_)))) - (let ((_tl222369222421_ + (gx#stx-e _hd222297222341_)))) + (let ((_tl222299222351_ (let () (declare (not safe)) - (##cdr _e222371222416_))) - (_hd222370222419_ + (##cdr _e222301222346_))) + (_hd222300222349_ (let () (declare (not safe)) - (##car _e222371222416_)))) + (##car _e222301222346_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd222370222419_)) - (let ((_e222374222424_ + _hd222300222349_)) + (let ((_e222304222354_ (let () (declare (not safe)) (gx#stx-e - _hd222370222419_)))) - (let ((_tl222372222429_ + _hd222300222349_)))) + (let ((_tl222302222359_ (let () (declare (not safe)) - (##cdr _e222374222424_))) - (_hd222373222427_ + (##cdr _e222304222354_))) + (_hd222303222357_ (let () (declare (not safe)) - (##car _e222374222424_)))) + (##car _e222304222354_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd222373222427_)) - (let ((_e222377222432_ + _hd222303222357_)) + (let ((_e222307222362_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd222373222427_)))) - (let ((_tl222375222437_ - (let () (declare (not safe)) (##cdr _e222377222432_))) - (_hd222376222435_ + (gx#stx-e _hd222303222357_)))) + (let ((_tl222305222367_ + (let () (declare (not safe)) (##cdr _e222307222362_))) + (_hd222306222365_ (let () (declare (not safe)) - (##car _e222377222432_)))) + (##car _e222307222362_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222375222437_)) + (gx#stx-null? _tl222305222367_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222372222429_)) - (let ((_e222380222440_ + (gx#stx-pair? _tl222302222359_)) + (let ((_e222310222370_ (let () (declare (not safe)) - (gx#stx-e _tl222372222429_)))) - (let ((_tl222378222445_ + (gx#stx-e _tl222302222359_)))) + (let ((_tl222308222375_ (let () (declare (not safe)) - (##cdr _e222380222440_))) - (_hd222379222443_ + (##cdr _e222310222370_))) + (_hd222309222373_ (let () (declare (not safe)) - (##car _e222380222440_)))) + (##car _e222310222370_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222378222445_)) + (gx#stx-null? _tl222308222375_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl222369222421_)) + (gx#stx-null? _tl222299222351_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222366222413_)) - (let ((_e222383222448_ + (gx#stx-pair? _tl222296222343_)) + (let ((_e222313222378_ (let () (declare (not safe)) (gx#stx-e - _tl222366222413_)))) - (let ((_tl222381222453_ + _tl222296222343_)))) + (let ((_tl222311222383_ (let () (declare (not safe)) - (##cdr _e222383222448_))) - (_hd222382222451_ + (##cdr _e222313222378_))) + (_hd222312222381_ (let () (declare (not safe)) - (##car _e222383222448_)))) + (##car _e222313222378_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222381222453_)) - (___kont232174232175_ - _hd222382222451_ - _hd222379222443_ - _hd222376222435_) - (___kont232176232177_)))) - (___kont232176232177_)) - (___kont232176232177_)) - (___kont232176232177_)))) - (___kont232176232177_)) - (___kont232176232177_)))) - (___kont232176232177_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232176232177_)))) - (___kont232176232177_)))) - (___kont232176232177_)) - (___kont232176232177_)) - (___kont232176232177_)))) - (___kont232176232177_)))))) + _tl222311222383_)) + (___kont232104232105_ + _hd222312222381_ + _hd222309222373_ + _hd222306222365_) + (___kont232106232107_)))) + (___kont232106232107_)) + (___kont232106232107_)) + (___kont232106232107_)))) + (___kont232106232107_)) + (___kont232106232107_)))) + (___kont232106232107_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232106232107_)))) + (___kont232106232107_)))) + (___kont232106232107_)) + (___kont232106232107_)) + (___kont232106232107_)))) + (___kont232106232107_)))))) (define gxc#kw-lambda-expr? - (lambda (_expr221680_) - (let* ((___stx232234232235_ _expr221680_) - (_g221683221841_ + (lambda (_expr221610_) + (let* ((___stx232164232165_ _expr221610_) + (_g221613221771_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232234232235_))))) - (let ((___kont232236232237_ - (lambda (_L222229_ - _L222230_ - _L222231_ - _L222232_ - _L222233_ - _L222234_ - _L222235_ - _L222236_ - _L222237_ - _L222238_ - _L222239_) + ___stx232164232165_))))) + (let ((___kont232166232167_ + (lambda (_L222159_ + _L222160_ + _L222161_ + _L222162_ + _L222163_ + _L222164_ + _L222165_ + _L222166_ + _L222167_ + _L222168_ + _L222169_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L222236_ 'apply)) + (gxc#runtime-identifier=? _L222166_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L222232_ 'apply)) + (gxc#runtime-identifier=? _L222162_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L222231_ + _L222161_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L222239_ - _L222230_)) + _L222169_ + _L222160_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L222238_ - _L222235_)) + _L222168_ + _L222165_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L222233_ - _L222229_)) + _L222163_ + _L222159_)) (let () (declare (not safe)) (gx#free-identifier=? - _L222237_ - _L222234_)) + _L222167_ + _L222164_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (___kont232238232239_ (lambda () '#f))) + (___kont232168232169_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx232234232235_)) - (let ((_e221698221853_ + (gx#stx-pair? ___stx232164232165_)) + (let ((_e221628221783_ (let () (declare (not safe)) - (gx#stx-e ___stx232234232235_)))) - (let ((_tl221696221858_ - (let () (declare (not safe)) (##cdr _e221698221853_))) - (_hd221697221856_ + (gx#stx-e ___stx232164232165_)))) + (let ((_tl221626221788_ + (let () (declare (not safe)) (##cdr _e221628221783_))) + (_hd221627221786_ (let () (declare (not safe)) - (##car _e221698221853_)))) + (##car _e221628221783_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221697221856_)) + (gx#identifier? _hd221627221786_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd221697221856_)) + (gx#stx-eq? '%#let-values _hd221627221786_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221696221858_)) - (let ((_e221701221861_ + (gx#stx-pair? _tl221626221788_)) + (let ((_e221631221791_ (let () (declare (not safe)) - (gx#stx-e _tl221696221858_)))) - (let ((_tl221699221866_ + (gx#stx-e _tl221626221788_)))) + (let ((_tl221629221796_ (let () (declare (not safe)) - (##cdr _e221701221861_))) - (_hd221700221864_ + (##cdr _e221631221791_))) + (_hd221630221794_ (let () (declare (not safe)) - (##car _e221701221861_)))) + (##car _e221631221791_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221700221864_)) - (let ((_e221704221869_ + (gx#stx-pair? _hd221630221794_)) + (let ((_e221634221799_ (let () (declare (not safe)) - (gx#stx-e _hd221700221864_)))) - (let ((_tl221702221874_ + (gx#stx-e _hd221630221794_)))) + (let ((_tl221632221804_ (let () (declare (not safe)) - (##cdr _e221704221869_))) - (_hd221703221872_ + (##cdr _e221634221799_))) + (_hd221633221802_ (let () (declare (not safe)) - (##car _e221704221869_)))) + (##car _e221634221799_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221703221872_)) - (let ((_e221707221877_ + _hd221633221802_)) + (let ((_e221637221807_ (let () (declare (not safe)) (gx#stx-e - _hd221703221872_)))) - (let ((_tl221705221882_ + _hd221633221802_)))) + (let ((_tl221635221812_ (let () (declare (not safe)) - (##cdr _e221707221877_))) - (_hd221706221880_ + (##cdr _e221637221807_))) + (_hd221636221810_ (let () (declare (not safe)) - (##car _e221707221877_)))) + (##car _e221637221807_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221706221880_)) - (let ((_e221710221885_ + _hd221636221810_)) + (let ((_e221640221815_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd221706221880_)))) - (let ((_tl221708221890_ - (let () (declare (not safe)) (##cdr _e221710221885_))) - (_hd221709221888_ + (gx#stx-e _hd221636221810_)))) + (let ((_tl221638221820_ + (let () (declare (not safe)) (##cdr _e221640221815_))) + (_hd221639221818_ (let () (declare (not safe)) - (##car _e221710221885_)))) + (##car _e221640221815_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221708221890_)) + (gx#stx-null? _tl221638221820_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221705221882_)) - (let ((_e221713221893_ + (gx#stx-pair? _tl221635221812_)) + (let ((_e221643221823_ (let () (declare (not safe)) - (gx#stx-e _tl221705221882_)))) - (let ((_tl221711221898_ + (gx#stx-e _tl221635221812_)))) + (let ((_tl221641221828_ (let () (declare (not safe)) - (##cdr _e221713221893_))) - (_hd221712221896_ + (##cdr _e221643221823_))) + (_hd221642221826_ (let () (declare (not safe)) - (##car _e221713221893_)))) + (##car _e221643221823_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221712221896_)) - (let ((_e221716221901_ + (gx#stx-pair? _hd221642221826_)) + (let ((_e221646221831_ (let () (declare (not safe)) - (gx#stx-e _hd221712221896_)))) - (let ((_tl221714221906_ + (gx#stx-e _hd221642221826_)))) + (let ((_tl221644221836_ (let () (declare (not safe)) - (##cdr _e221716221901_))) - (_hd221715221904_ + (##cdr _e221646221831_))) + (_hd221645221834_ (let () (declare (not safe)) - (##car _e221716221901_)))) + (##car _e221646221831_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd221715221904_)) + _hd221645221834_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd221715221904_)) + _hd221645221834_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221714221906_)) - (let ((_e221719221909_ + _tl221644221836_)) + (let ((_e221649221839_ (let () (declare (not safe)) (gx#stx-e - _tl221714221906_)))) - (let ((_tl221717221914_ + _tl221644221836_)))) + (let ((_tl221647221844_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e221719221909_))) - (_hd221718221912_ - (let () (declare (not safe)) (##car _e221719221909_)))) + (##cdr _e221649221839_))) + (_hd221648221842_ + (let () (declare (not safe)) (##car _e221649221839_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221718221912_)) - (let ((_e221722221917_ + (gx#stx-pair? _hd221648221842_)) + (let ((_e221652221847_ (let () (declare (not safe)) - (gx#stx-e _hd221718221912_)))) - (let ((_tl221720221922_ + (gx#stx-e _hd221648221842_)))) + (let ((_tl221650221852_ (let () (declare (not safe)) - (##cdr _e221722221917_))) - (_hd221721221920_ + (##cdr _e221652221847_))) + (_hd221651221850_ (let () (declare (not safe)) - (##car _e221722221917_)))) + (##car _e221652221847_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221721221920_)) - (let ((_e221725221925_ + (gx#stx-pair? _hd221651221850_)) + (let ((_e221655221855_ (let () (declare (not safe)) - (gx#stx-e _hd221721221920_)))) - (let ((_tl221723221930_ + (gx#stx-e _hd221651221850_)))) + (let ((_tl221653221860_ (let () (declare (not safe)) - (##cdr _e221725221925_))) - (_hd221724221928_ + (##cdr _e221655221855_))) + (_hd221654221858_ (let () (declare (not safe)) - (##car _e221725221925_)))) + (##car _e221655221855_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221724221928_)) - (let ((_e221728221933_ + (gx#stx-pair? _hd221654221858_)) + (let ((_e221658221863_ (let () (declare (not safe)) - (gx#stx-e _hd221724221928_)))) - (let ((_tl221726221938_ + (gx#stx-e _hd221654221858_)))) + (let ((_tl221656221868_ (let () (declare (not safe)) - (##cdr _e221728221933_))) - (_hd221727221936_ + (##cdr _e221658221863_))) + (_hd221657221866_ (let () (declare (not safe)) - (##car _e221728221933_)))) + (##car _e221658221863_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221726221938_)) + (gx#stx-null? _tl221656221868_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221723221930_)) - (let ((_e221731221941_ + _tl221653221860_)) + (let ((_e221661221871_ (let () (declare (not safe)) (gx#stx-e - _tl221723221930_)))) - (let ((_tl221729221946_ + _tl221653221860_)))) + (let ((_tl221659221876_ (let () (declare (not safe)) - (##cdr _e221731221941_))) - (_hd221730221944_ + (##cdr _e221661221871_))) + (_hd221660221874_ (let () (declare (not safe)) - (##car _e221731221941_)))) + (##car _e221661221871_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221729221946_)) + _tl221659221876_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl221720221922_)) + _tl221650221852_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl221717221914_)) - (let ((_e221734221949_ + (gx#stx-pair? _tl221647221844_)) + (let ((_e221664221879_ (let () (declare (not safe)) - (gx#stx-e _tl221717221914_)))) - (let ((_tl221732221954_ + (gx#stx-e _tl221647221844_)))) + (let ((_tl221662221884_ (let () (declare (not safe)) - (##cdr _e221734221949_))) - (_hd221733221952_ + (##cdr _e221664221879_))) + (_hd221663221882_ (let () (declare (not safe)) - (##car _e221734221949_)))) + (##car _e221664221879_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221733221952_)) - (let ((_e221737221957_ + (gx#stx-pair? _hd221663221882_)) + (let ((_e221667221887_ (let () (declare (not safe)) - (gx#stx-e _hd221733221952_)))) - (let ((_tl221735221962_ + (gx#stx-e _hd221663221882_)))) + (let ((_tl221665221892_ (let () (declare (not safe)) - (##cdr _e221737221957_))) - (_hd221736221960_ + (##cdr _e221667221887_))) + (_hd221666221890_ (let () (declare (not safe)) - (##car _e221737221957_)))) + (##car _e221667221887_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221736221960_)) + (gx#identifier? _hd221666221890_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd221736221960_)) + _hd221666221890_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221735221962_)) - (let ((_e221740221965_ + _tl221665221892_)) + (let ((_e221670221895_ (let () (declare (not safe)) (gx#stx-e - _tl221735221962_)))) - (let ((_tl221738221970_ + _tl221665221892_)))) + (let ((_tl221668221900_ (let () (declare (not safe)) - (##cdr _e221740221965_))) - (_hd221739221968_ + (##cdr _e221670221895_))) + (_hd221669221898_ (let () (declare (not safe)) - (##car _e221740221965_)))) + (##car _e221670221895_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221739221968_)) - (let ((_e221743221973_ + _hd221669221898_)) + (let ((_e221673221903_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd221739221968_)))) - (let ((_tl221741221978_ - (let () (declare (not safe)) (##cdr _e221743221973_))) - (_hd221742221976_ + (gx#stx-e _hd221669221898_)))) + (let ((_tl221671221908_ + (let () (declare (not safe)) (##cdr _e221673221903_))) + (_hd221672221906_ (let () (declare (not safe)) - (##car _e221743221973_)))) + (##car _e221673221903_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221738221970_)) - (let ((_e221746221981_ + (gx#stx-pair? _tl221668221900_)) + (let ((_e221676221911_ (let () (declare (not safe)) - (gx#stx-e _tl221738221970_)))) - (let ((_tl221744221986_ + (gx#stx-e _tl221668221900_)))) + (let ((_tl221674221916_ (let () (declare (not safe)) - (##cdr _e221746221981_))) - (_hd221745221984_ + (##cdr _e221676221911_))) + (_hd221675221914_ (let () (declare (not safe)) - (##car _e221746221981_)))) + (##car _e221676221911_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221745221984_)) - (let ((_e221749221989_ + (gx#stx-pair? _hd221675221914_)) + (let ((_e221679221919_ (let () (declare (not safe)) - (gx#stx-e _hd221745221984_)))) - (let ((_tl221747221994_ + (gx#stx-e _hd221675221914_)))) + (let ((_tl221677221924_ (let () (declare (not safe)) - (##cdr _e221749221989_))) - (_hd221748221992_ + (##cdr _e221679221919_))) + (_hd221678221922_ (let () (declare (not safe)) - (##car _e221749221989_)))) + (##car _e221679221919_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221748221992_)) + (gx#identifier? _hd221678221922_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd221748221992_)) + _hd221678221922_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221747221994_)) - (let ((_e221752221997_ + _tl221677221924_)) + (let ((_e221682221927_ (let () (declare (not safe)) (gx#stx-e - _tl221747221994_)))) - (let ((_tl221750222002_ + _tl221677221924_)))) + (let ((_tl221680221932_ (let () (declare (not safe)) - (##cdr _e221752221997_))) - (_hd221751222000_ + (##cdr _e221682221927_))) + (_hd221681221930_ (let () (declare (not safe)) - (##car _e221752221997_)))) + (##car _e221682221927_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221751222000_)) - (let ((_e221755222005_ + _hd221681221930_)) + (let ((_e221685221935_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd221751222000_)))) - (let ((_tl221753222010_ - (let () (declare (not safe)) (##cdr _e221755222005_))) - (_hd221754222008_ + (gx#stx-e _hd221681221930_)))) + (let ((_tl221683221940_ + (let () (declare (not safe)) (##cdr _e221685221935_))) + (_hd221684221938_ (let () (declare (not safe)) - (##car _e221755222005_)))) + (##car _e221685221935_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221754222008_)) + (gx#identifier? _hd221684221938_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd221754222008_)) + (gx#stx-eq? '%#ref _hd221684221938_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221753222010_)) - (let ((_e221758222013_ + (gx#stx-pair? _tl221683221940_)) + (let ((_e221688221943_ (let () (declare (not safe)) - (gx#stx-e _tl221753222010_)))) - (let ((_tl221756222018_ + (gx#stx-e _tl221683221940_)))) + (let ((_tl221686221948_ (let () (declare (not safe)) - (##cdr _e221758222013_))) - (_hd221757222016_ + (##cdr _e221688221943_))) + (_hd221687221946_ (let () (declare (not safe)) - (##car _e221758222013_)))) + (##car _e221688221943_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221756222018_)) + (gx#stx-null? _tl221686221948_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221750222002_)) - (let ((_e221761222021_ + (gx#stx-pair? _tl221680221932_)) + (let ((_e221691221951_ (let () (declare (not safe)) (gx#stx-e - _tl221750222002_)))) - (let ((_tl221759222026_ + _tl221680221932_)))) + (let ((_tl221689221956_ (let () (declare (not safe)) - (##cdr _e221761222021_))) - (_hd221760222024_ + (##cdr _e221691221951_))) + (_hd221690221954_ (let () (declare (not safe)) - (##car _e221761222021_)))) + (##car _e221691221951_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221760222024_)) - (let ((_e221764222029_ + _hd221690221954_)) + (let ((_e221694221959_ (let () (declare (not safe)) (gx#stx-e - _hd221760222024_)))) - (let ((_tl221762222034_ + _hd221690221954_)))) + (let ((_tl221692221964_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e221764222029_))) - (_hd221763222032_ - (let () (declare (not safe)) (##car _e221764222029_)))) + (##cdr _e221694221959_))) + (_hd221693221962_ + (let () (declare (not safe)) (##car _e221694221959_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221763222032_)) + (gx#identifier? _hd221693221962_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd221763222032_)) + (gx#stx-eq? '%#ref _hd221693221962_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221762222034_)) - (let ((_e221767222037_ + (gx#stx-pair? _tl221692221964_)) + (let ((_e221697221967_ (let () (declare (not safe)) - (gx#stx-e _tl221762222034_)))) - (let ((_tl221765222042_ + (gx#stx-e _tl221692221964_)))) + (let ((_tl221695221972_ (let () (declare (not safe)) - (##cdr _e221767222037_))) - (_hd221766222040_ + (##cdr _e221697221967_))) + (_hd221696221970_ (let () (declare (not safe)) - (##car _e221767222037_)))) + (##car _e221697221967_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221765222042_)) + (gx#stx-null? _tl221695221972_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221759222026_)) - (let ((_e221770222045_ + (gx#stx-pair? _tl221689221956_)) + (let ((_e221700221975_ (let () (declare (not safe)) - (gx#stx-e _tl221759222026_)))) - (let ((_tl221768222050_ + (gx#stx-e _tl221689221956_)))) + (let ((_tl221698221980_ (let () (declare (not safe)) - (##cdr _e221770222045_))) - (_hd221769222048_ + (##cdr _e221700221975_))) + (_hd221699221978_ (let () (declare (not safe)) - (##car _e221770222045_)))) + (##car _e221700221975_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221769222048_)) - (let ((_e221773222053_ + _hd221699221978_)) + (let ((_e221703221983_ (let () (declare (not safe)) (gx#stx-e - _hd221769222048_)))) - (let ((_tl221771222058_ + _hd221699221978_)))) + (let ((_tl221701221988_ (let () (declare (not safe)) - (##cdr _e221773222053_))) - (_hd221772222056_ + (##cdr _e221703221983_))) + (_hd221702221986_ (let () (declare (not safe)) - (##car _e221773222053_)))) + (##car _e221703221983_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd221772222056_)) + _hd221702221986_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd221772222056_)) + _hd221702221986_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl221771222058_)) - (let ((_e221776222061_ + (gx#stx-pair? _tl221701221988_)) + (let ((_e221706221991_ (let () (declare (not safe)) - (gx#stx-e _tl221771222058_)))) - (let ((_tl221774222066_ + (gx#stx-e _tl221701221988_)))) + (let ((_tl221704221996_ (let () (declare (not safe)) - (##cdr _e221776222061_))) - (_hd221775222064_ + (##cdr _e221706221991_))) + (_hd221705221994_ (let () (declare (not safe)) - (##car _e221776222061_)))) + (##car _e221706221991_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221774222066_)) + (gx#stx-null? _tl221704221996_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl221744221986_)) + (gx#stx-null? _tl221674221916_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl221732221954_)) + (gx#stx-null? _tl221662221884_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl221711221898_)) + (gx#stx-null? _tl221641221828_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl221702221874_)) + _tl221632221804_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221699221866_)) - (let ((_e221779222069_ + _tl221629221796_)) + (let ((_e221709221999_ (let () (declare (not safe)) (gx#stx-e - _tl221699221866_)))) - (let ((_tl221777222074_ + _tl221629221796_)))) + (let ((_tl221707222004_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e221779222069_))) - (_hd221778222072_ - (let () (declare (not safe)) (##car _e221779222069_)))) + (##cdr _e221709221999_))) + (_hd221708222002_ + (let () (declare (not safe)) (##car _e221709221999_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221778222072_)) - (let ((_e221782222077_ + (gx#stx-pair? _hd221708222002_)) + (let ((_e221712222007_ (let () (declare (not safe)) - (gx#stx-e _hd221778222072_)))) - (let ((_tl221780222082_ + (gx#stx-e _hd221708222002_)))) + (let ((_tl221710222012_ (let () (declare (not safe)) - (##cdr _e221782222077_))) - (_hd221781222080_ + (##cdr _e221712222007_))) + (_hd221711222010_ (let () (declare (not safe)) - (##car _e221782222077_)))) + (##car _e221712222007_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221781222080_)) + (gx#identifier? _hd221711222010_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd221781222080_)) + (gx#stx-eq? '%#lambda _hd221711222010_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221780222082_)) - (let ((_e221785222085_ + (gx#stx-pair? _tl221710222012_)) + (let ((_e221715222015_ (let () (declare (not safe)) - (gx#stx-e _tl221780222082_)))) - (let ((_tl221783222090_ + (gx#stx-e _tl221710222012_)))) + (let ((_tl221713222020_ (let () (declare (not safe)) - (##cdr _e221785222085_))) - (_hd221784222088_ + (##cdr _e221715222015_))) + (_hd221714222018_ (let () (declare (not safe)) - (##car _e221785222085_)))) + (##car _e221715222015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221783222090_)) - (let ((_e221788222093_ + (gx#stx-pair? _tl221713222020_)) + (let ((_e221718222023_ (let () (declare (not safe)) (gx#stx-e - _tl221783222090_)))) - (let ((_tl221786222098_ + _tl221713222020_)))) + (let ((_tl221716222028_ (let () (declare (not safe)) - (##cdr _e221788222093_))) - (_hd221787222096_ + (##cdr _e221718222023_))) + (_hd221717222026_ (let () (declare (not safe)) - (##car _e221788222093_)))) + (##car _e221718222023_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221787222096_)) - (let ((_e221791222101_ + _hd221717222026_)) + (let ((_e221721222031_ (let () (declare (not safe)) (gx#stx-e - _hd221787222096_)))) - (let ((_tl221789222106_ + _hd221717222026_)))) + (let ((_tl221719222036_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e221791222101_))) - (_hd221790222104_ - (let () (declare (not safe)) (##car _e221791222101_)))) + (##cdr _e221721222031_))) + (_hd221720222034_ + (let () (declare (not safe)) (##car _e221721222031_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221790222104_)) + (gx#identifier? _hd221720222034_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd221790222104_)) + (gx#stx-eq? '%#call _hd221720222034_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221789222106_)) - (let ((_e221794222109_ + (gx#stx-pair? _tl221719222036_)) + (let ((_e221724222039_ (let () (declare (not safe)) - (gx#stx-e _tl221789222106_)))) - (let ((_tl221792222114_ + (gx#stx-e _tl221719222036_)))) + (let ((_tl221722222044_ (let () (declare (not safe)) - (##cdr _e221794222109_))) - (_hd221793222112_ + (##cdr _e221724222039_))) + (_hd221723222042_ (let () (declare (not safe)) - (##car _e221794222109_)))) + (##car _e221724222039_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221793222112_)) - (let ((_e221797222117_ + (gx#stx-pair? _hd221723222042_)) + (let ((_e221727222047_ (let () (declare (not safe)) - (gx#stx-e _hd221793222112_)))) - (let ((_tl221795222122_ + (gx#stx-e _hd221723222042_)))) + (let ((_tl221725222052_ (let () (declare (not safe)) - (##cdr _e221797222117_))) - (_hd221796222120_ + (##cdr _e221727222047_))) + (_hd221726222050_ (let () (declare (not safe)) - (##car _e221797222117_)))) + (##car _e221727222047_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd221796222120_)) + _hd221726222050_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd221796222120_)) + _hd221726222050_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221795222122_)) - (let ((_e221800222125_ + _tl221725222052_)) + (let ((_e221730222055_ (let () (declare (not safe)) (gx#stx-e - _tl221795222122_)))) - (let ((_tl221798222130_ + _tl221725222052_)))) + (let ((_tl221728222060_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e221800222125_))) - (_hd221799222128_ - (let () (declare (not safe)) (##car _e221800222125_)))) + (##cdr _e221730222055_))) + (_hd221729222058_ + (let () (declare (not safe)) (##car _e221730222055_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221798222130_)) + (gx#stx-null? _tl221728222060_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221792222114_)) - (let ((_e221803222133_ + (gx#stx-pair? _tl221722222044_)) + (let ((_e221733222063_ (let () (declare (not safe)) - (gx#stx-e _tl221792222114_)))) - (let ((_tl221801222138_ + (gx#stx-e _tl221722222044_)))) + (let ((_tl221731222068_ (let () (declare (not safe)) - (##cdr _e221803222133_))) - (_hd221802222136_ + (##cdr _e221733222063_))) + (_hd221732222066_ (let () (declare (not safe)) - (##car _e221803222133_)))) + (##car _e221733222063_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221802222136_)) - (let ((_e221806222141_ + (gx#stx-pair? _hd221732222066_)) + (let ((_e221736222071_ (let () (declare (not safe)) - (gx#stx-e _hd221802222136_)))) - (let ((_tl221804222146_ + (gx#stx-e _hd221732222066_)))) + (let ((_tl221734222076_ (let () (declare (not safe)) - (##cdr _e221806222141_))) - (_hd221805222144_ + (##cdr _e221736222071_))) + (_hd221735222074_ (let () (declare (not safe)) - (##car _e221806222141_)))) + (##car _e221736222071_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221805222144_)) + (gx#identifier? _hd221735222074_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd221805222144_)) + _hd221735222074_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221804222146_)) - (let ((_e221809222149_ + _tl221734222076_)) + (let ((_e221739222079_ (let () (declare (not safe)) (gx#stx-e - _tl221804222146_)))) - (let ((_tl221807222154_ + _tl221734222076_)))) + (let ((_tl221737222084_ (let () (declare (not safe)) - (##cdr _e221809222149_))) - (_hd221808222152_ + (##cdr _e221739222079_))) + (_hd221738222082_ (let () (declare (not safe)) - (##car _e221809222149_)))) + (##car _e221739222079_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221807222154_)) + _tl221737222084_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221801222138_)) - (let ((_e221812222157_ + _tl221731222068_)) + (let ((_e221742222087_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl221801222138_)))) - (let ((_tl221810222162_ + (gx#stx-e _tl221731222068_)))) + (let ((_tl221740222092_ (let () (declare (not safe)) - (##cdr _e221812222157_))) - (_hd221811222160_ + (##cdr _e221742222087_))) + (_hd221741222090_ (let () (declare (not safe)) - (##car _e221812222157_)))) + (##car _e221742222087_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221811222160_)) - (let ((_e221815222165_ + (gx#stx-pair? _hd221741222090_)) + (let ((_e221745222095_ (let () (declare (not safe)) - (gx#stx-e _hd221811222160_)))) - (let ((_tl221813222170_ + (gx#stx-e _hd221741222090_)))) + (let ((_tl221743222100_ (let () (declare (not safe)) - (##cdr _e221815222165_))) - (_hd221814222168_ + (##cdr _e221745222095_))) + (_hd221744222098_ (let () (declare (not safe)) - (##car _e221815222165_)))) + (##car _e221745222095_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221814222168_)) + (gx#identifier? _hd221744222098_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd221814222168_)) + _hd221744222098_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221813222170_)) - (let ((_e221818222173_ + (gx#stx-pair? _tl221743222100_)) + (let ((_e221748222103_ (let () (declare (not safe)) (gx#stx-e - _tl221813222170_)))) - (let ((_tl221816222178_ + _tl221743222100_)))) + (let ((_tl221746222108_ (let () (declare (not safe)) - (##cdr _e221818222173_))) - (_hd221817222176_ + (##cdr _e221748222103_))) + (_hd221747222106_ (let () (declare (not safe)) - (##car _e221818222173_)))) + (##car _e221748222103_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221816222178_)) + _tl221746222108_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221810222162_)) - (let ((_e221821222181_ + _tl221740222092_)) + (let ((_e221751222111_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl221810222162_)))) - (let ((_tl221819222186_ - (let () (declare (not safe)) (##cdr _e221821222181_))) - (_hd221820222184_ + (gx#stx-e _tl221740222092_)))) + (let ((_tl221749222116_ + (let () (declare (not safe)) (##cdr _e221751222111_))) + (_hd221750222114_ (let () (declare (not safe)) - (##car _e221821222181_)))) + (##car _e221751222111_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221820222184_)) - (let ((_e221824222189_ + (gx#stx-pair? _hd221750222114_)) + (let ((_e221754222119_ (let () (declare (not safe)) - (gx#stx-e _hd221820222184_)))) - (let ((_tl221822222194_ + (gx#stx-e _hd221750222114_)))) + (let ((_tl221752222124_ (let () (declare (not safe)) - (##cdr _e221824222189_))) - (_hd221823222192_ + (##cdr _e221754222119_))) + (_hd221753222122_ (let () (declare (not safe)) - (##car _e221824222189_)))) + (##car _e221754222119_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221823222192_)) + (gx#identifier? _hd221753222122_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd221823222192_)) + (gx#stx-eq? '%#ref _hd221753222122_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221822222194_)) - (let ((_e221827222197_ + (gx#stx-pair? _tl221752222124_)) + (let ((_e221757222127_ (let () (declare (not safe)) - (gx#stx-e _tl221822222194_)))) - (let ((_tl221825222202_ + (gx#stx-e _tl221752222124_)))) + (let ((_tl221755222132_ (let () (declare (not safe)) - (##cdr _e221827222197_))) - (_hd221826222200_ + (##cdr _e221757222127_))) + (_hd221756222130_ (let () (declare (not safe)) - (##car _e221827222197_)))) + (##car _e221757222127_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221825222202_)) + _tl221755222132_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221819222186_)) - (let ((_e221830222205_ + _tl221749222116_)) + (let ((_e221760222135_ (let () (declare (not safe)) (gx#stx-e - _tl221819222186_)))) - (let ((_tl221828222210_ + _tl221749222116_)))) + (let ((_tl221758222140_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e221830222205_))) - (_hd221829222208_ - (let () (declare (not safe)) (##car _e221830222205_)))) + (##cdr _e221760222135_))) + (_hd221759222138_ + (let () (declare (not safe)) (##car _e221760222135_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221829222208_)) - (let ((_e221833222213_ + (gx#stx-pair? _hd221759222138_)) + (let ((_e221763222143_ (let () (declare (not safe)) - (gx#stx-e _hd221829222208_)))) - (let ((_tl221831222218_ + (gx#stx-e _hd221759222138_)))) + (let ((_tl221761222148_ (let () (declare (not safe)) - (##cdr _e221833222213_))) - (_hd221832222216_ + (##cdr _e221763222143_))) + (_hd221762222146_ (let () (declare (not safe)) - (##car _e221833222213_)))) + (##car _e221763222143_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd221832222216_)) + (gx#identifier? _hd221762222146_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd221832222216_)) + (gx#stx-eq? '%#ref _hd221762222146_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221831222218_)) - (let ((_e221836222221_ + (gx#stx-pair? _tl221761222148_)) + (let ((_e221766222151_ (let () (declare (not safe)) - (gx#stx-e _tl221831222218_)))) - (let ((_tl221834222226_ + (gx#stx-e _tl221761222148_)))) + (let ((_tl221764222156_ (let () (declare (not safe)) - (##cdr _e221836222221_))) - (_hd221835222224_ + (##cdr _e221766222151_))) + (_hd221765222154_ (let () (declare (not safe)) - (##car _e221836222221_)))) + (##car _e221766222151_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221834222226_)) + (gx#stx-null? _tl221764222156_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl221828222210_)) + _tl221758222140_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl221786222098_)) + _tl221716222028_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl221777222074_)) - (___kont232236232237_ - _hd221835222224_ - _hd221826222200_ - _hd221808222152_ - _hd221799222128_ - _hd221784222088_ - _hd221775222064_ - _hd221766222040_ - _hd221757222016_ - _hd221742221976_ - _hd221727221936_ - _hd221709221888_) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232238232239_)))) - (___kont232238232239_)))) - (___kont232238232239_)) - (___kont232238232239_)) - (___kont232238232239_)))) - (___kont232238232239_)))))) + _tl221707222004_)) + (___kont232166232167_ + _hd221765222154_ + _hd221756222130_ + _hd221738222082_ + _hd221729222058_ + _hd221714222018_ + _hd221705221994_ + _hd221696221970_ + _hd221687221946_ + _hd221672221906_ + _hd221657221866_ + _hd221639221818_) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232168232169_)))) + (___kont232168232169_)))) + (___kont232168232169_)) + (___kont232168232169_)) + (___kont232168232169_)))) + (___kont232168232169_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_stx221422_ _id221423_ _clauses221424_ _gensym?221425_) - (let _lp221427_ ((_rest221429_ _clauses221424_) - (_ids221430_ '()) - (_impls221431_ '()) - (_clauses221432_ '())) - (let* ((_rest221433221441_ _rest221429_) - (_else221435221449_ + (lambda (_stx221352_ _id221353_ _clauses221354_ _gensym?221355_) + (let _lp221357_ ((_rest221359_ _clauses221354_) + (_ids221360_ '()) + (_impls221361_ '()) + (_clauses221362_ '())) + (let* ((_rest221363221371_ _rest221359_) + (_else221365221379_ (lambda () - (values (reverse _ids221430_) - (reverse _impls221431_) - (reverse _clauses221432_)))) - (_K221437221654_ - (lambda (_rest221452_ _clause221453_) + (values (reverse _ids221360_) + (reverse _impls221361_) + (reverse _clauses221362_)))) + (_K221367221584_ + (lambda (_rest221382_ _clause221383_) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _clause221453_)) - (let ((__tmp233313 + (gxc#dispatch-lambda-form? _clause221383_)) + (let ((__tmp233243 (let () (declare (not safe)) - (cons _clause221453_ _clauses221432_)))) + (cons _clause221383_ _clauses221362_)))) (declare (not safe)) - (_lp221427_ - _rest221452_ - _ids221430_ - _impls221431_ - __tmp233313)) - (let* ((_g221455221466_ - (lambda (_g221456221463_) + (_lp221357_ + _rest221382_ + _ids221360_ + _impls221361_ + __tmp233243)) + (let* ((_g221385221396_ + (lambda (_g221386221393_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221456221463_)))) - (_g221454221651_ - (lambda (_g221456221469_) + _g221386221393_)))) + (_g221384221581_ + (lambda (_g221386221399_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221456221469_)) - (let ((_e221461221471_ + (gx#stx-pair? _g221386221399_)) + (let ((_e221391221401_ (let () (declare (not safe)) - (gx#stx-e _g221456221469_)))) - (let ((_hd221460221474_ + (gx#stx-e _g221386221399_)))) + (let ((_hd221390221404_ (let () (declare (not safe)) - (##car _e221461221471_))) - (_tl221459221476_ + (##car _e221391221401_))) + (_tl221389221406_ (let () (declare (not safe)) - (##cdr _e221461221471_)))) - ((lambda (_L221479_ _L221480_) - (let* ((_id221497_ - (let ((__tmp233260 + (##cdr _e221391221401_)))) + ((lambda (_L221409_ _L221410_) + (let* ((_id221427_ + (let ((__tmp233190 (let () (declare (not safe)) (gx#stx-e - _id221423_))) - (__tmp233259 - (length _clauses221432_)) - (__tmp233258 - (if _gensym?221425_ + _id221353_))) + (__tmp233189 + (length _clauses221362_)) + (__tmp233188 + (if _gensym?221355_ (gensym '__) '""))) (declare (not safe)) (make-symbol__1 - __tmp233260 + __tmp233190 '"__" - __tmp233259 - __tmp233258))) - (_id221499_ - (let ((__tmp233261 + __tmp233189 + __tmp233188))) + (_id221429_ + (let ((__tmp233191 (let () (declare (not safe)) (gx#stx-source - _stx221422_)))) + _stx221352_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id221497_ - __tmp233261))) - (_impl221501_ - (let ((__tmp233262 - (let ((__tmp233264 + _id221427_ + __tmp233191))) + (_impl221431_ + (let ((__tmp233192 + (let ((__tmp233194 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp233263 + (__tmp233193 (let () (declare (not safe)) - (cons _L221480_ _L221479_)))) + (cons _L221410_ _L221409_)))) (declare (not safe)) - (cons __tmp233264 __tmp233263)))) + (cons __tmp233194 __tmp233193)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp233262 _stx221422_))) + (gxc#xform-wrap-source __tmp233192 _stx221352_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_clause221648_ - (let* ((___stx232618232619_ - _L221480_) - (_g221505221533_ + (_clause221578_ + (let* ((___stx232548232549_ + _L221410_) + (_g221435221463_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10577,1813 +10577,1813 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232618232619_))))) - (let ((___kont232620232621_ - (lambda (_L221627_) - (let ((__tmp233265 - (let ((__tmp233266 - (let ((__tmp233267 - (let ((__tmp233268 - (let ((__tmp233274 - (let ((__tmp233275 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id221499_ '())))) + ___stx232548232549_))))) + (let ((___kont232550232551_ + (lambda (_L221557_) + (let ((__tmp233195 + (let ((__tmp233196 + (let ((__tmp233197 + (let ((__tmp233198 + (let ((__tmp233204 + (let ((__tmp233205 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id221429_ '())))) (declare (not safe)) - (cons '%#ref __tmp233275))) - (__tmp233269 - (let ((__tmp233270 - (lambda (_g221637221640_ _g221638221642_) - (let ((__tmp233271 - (let ((__tmp233273 + (cons '%#ref __tmp233205))) + (__tmp233199 + (let ((__tmp233200 + (lambda (_g221567221570_ _g221568221572_) + (let ((__tmp233201 + (let ((__tmp233203 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp233272 + (__tmp233202 (let () (declare (not safe)) - (cons _g221637221640_ '())))) + (cons _g221567221570_ '())))) (declare (not safe)) - (cons __tmp233273 __tmp233272)))) + (cons __tmp233203 __tmp233202)))) (declare (not safe)) - (cons __tmp233271 _g221638221642_))))) + (cons __tmp233201 _g221568221572_))))) (declare (not safe)) - (foldr1 __tmp233270 '() _L221627_)))) + (foldr1 __tmp233200 '() _L221557_)))) (declare (not safe)) - (cons __tmp233274 __tmp233269)))) + (cons __tmp233204 __tmp233199)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp233268)))) + (cons '%#call __tmp233198)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp233267 - _stx221422_)))) + __tmp233197 + _stx221352_)))) (declare (not safe)) - (cons __tmp233266 '())))) + (cons __tmp233196 '())))) (declare (not safe)) - (cons _L221480_ __tmp233265)))) - (___kont232624232625_ - (lambda (_L221578_ _L221579_) - (let ((__tmp233276 - (let ((__tmp233277 - (let ((__tmp233278 - (let ((__tmp233279 - (let ((__tmp233293 - (let ((__tmp233294 + (cons _L221410_ __tmp233195)))) + (___kont232554232555_ + (lambda (_L221508_ _L221509_) + (let ((__tmp233206 + (let ((__tmp233207 + (let ((__tmp233208 + (let ((__tmp233209 + (let ((__tmp233223 + (let ((__tmp233224 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp233294))) - (__tmp233280 - (let ((__tmp233291 - (let ((__tmp233292 + (cons '%#ref __tmp233224))) + (__tmp233210 + (let ((__tmp233221 + (let ((__tmp233222 (let () (declare (not safe)) - (cons _id221499_ '())))) + (cons _id221429_ '())))) (declare (not safe)) - (cons '%#ref __tmp233292))) - (__tmp233281 - (let ((__tmp233287 - (let ((__tmp233288 - (let ((__tmp233290 + (cons '%#ref __tmp233222))) + (__tmp233211 + (let ((__tmp233217 + (let ((__tmp233218 + (let ((__tmp233220 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp233289 + (__tmp233219 (let () (declare (not safe)) - (cons _L221578_ '())))) + (cons _L221508_ '())))) (declare (not safe)) - (cons __tmp233290 __tmp233289)))) + (cons __tmp233220 __tmp233219)))) (declare (not safe)) - (cons __tmp233288 '()))) - (__tmp233282 - (let ((__tmp233283 - (lambda (_g221590221593_ - _g221591221595_) - (let ((__tmp233284 - (let ((__tmp233286 + (cons __tmp233218 '()))) + (__tmp233212 + (let ((__tmp233213 + (lambda (_g221520221523_ + _g221521221525_) + (let ((__tmp233214 + (let ((__tmp233216 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp233285 + (__tmp233215 (let () (declare (not safe)) - (cons _g221590221593_ + (cons _g221520221523_ '())))) (declare (not safe)) - (cons __tmp233286 - __tmp233285)))) + (cons __tmp233216 + __tmp233215)))) (declare (not safe)) - (cons __tmp233284 - _g221591221595_))))) + (cons __tmp233214 + _g221521221525_))))) (declare (not safe)) - (foldr1 __tmp233283 '() _L221579_)))) + (foldr1 __tmp233213 '() _L221509_)))) (declare (not safe)) - (foldr1 cons __tmp233287 __tmp233282)))) + (foldr1 cons __tmp233217 __tmp233212)))) (declare (not safe)) - (cons __tmp233291 __tmp233281)))) + (cons __tmp233221 __tmp233211)))) (declare (not safe)) - (cons __tmp233293 __tmp233280)))) + (cons __tmp233223 __tmp233210)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp233279)))) + (cons '%#call __tmp233209)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp233278 - _stx221422_)))) + __tmp233208 + _stx221352_)))) (declare (not safe)) - (cons __tmp233277 '())))) + (cons __tmp233207 '())))) (declare (not safe)) - (cons _L221480_ __tmp233276)))) - (___kont232628232629_ - (lambda (_L221538_) - (let ((__tmp233295 - (let ((__tmp233296 - (let ((__tmp233297 - (let ((__tmp233298 - (let ((__tmp233306 - (let ((__tmp233307 + (cons _L221410_ __tmp233206)))) + (___kont232558232559_ + (lambda (_L221468_) + (let ((__tmp233225 + (let ((__tmp233226 + (let ((__tmp233227 + (let ((__tmp233228 + (let ((__tmp233236 + (let ((__tmp233237 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp233307))) - (__tmp233299 - (let ((__tmp233304 - (let ((__tmp233305 + (cons '%#ref __tmp233237))) + (__tmp233229 + (let ((__tmp233234 + (let ((__tmp233235 (let () (declare (not safe)) - (cons _id221499_ '())))) + (cons _id221429_ '())))) (declare (not safe)) - (cons '%#ref __tmp233305))) - (__tmp233300 - (let ((__tmp233301 - (let ((__tmp233303 + (cons '%#ref __tmp233235))) + (__tmp233230 + (let ((__tmp233231 + (let ((__tmp233233 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp233302 + (__tmp233232 (let () (declare (not safe)) - (cons _L221538_ '())))) + (cons _L221468_ '())))) (declare (not safe)) - (cons __tmp233303 __tmp233302)))) + (cons __tmp233233 __tmp233232)))) (declare (not safe)) - (cons __tmp233301 '())))) + (cons __tmp233231 '())))) (declare (not safe)) - (cons __tmp233304 __tmp233300)))) + (cons __tmp233234 __tmp233230)))) (declare (not safe)) - (cons __tmp233306 __tmp233299)))) + (cons __tmp233236 __tmp233229)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp233298)))) + (cons '%#call __tmp233228)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp233297 - _stx221422_)))) + __tmp233227 + _stx221352_)))) (declare (not safe)) - (cons __tmp233296 '())))) + (cons __tmp233226 '())))) (declare (not safe)) - (cons _L221480_ __tmp233295))))) - (let* ((___match232643232644_ - (lambda (___splice232626232627_ - _target221519221554_ - _tl221521221556_) - (letrec ((_loop221522221559_ - (lambda (_hd221520221562_ - _arg221526221564_) + (cons _L221410_ __tmp233225))))) + (let* ((___match232573232574_ + (lambda (___splice232556232557_ + _target221449221484_ + _tl221451221486_) + (letrec ((_loop221452221489_ + (lambda (_hd221450221492_ + _arg221456221494_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221520221562_)) - (let ((_e221523221567_ + (gx#stx-pair? _hd221450221492_)) + (let ((_e221453221497_ (let () (declare (not safe)) (gx#stx-e - _hd221520221562_)))) - (let ((_lp-tl221525221572_ + _hd221450221492_)))) + (let ((_lp-tl221455221502_ (let () (declare (not safe)) - (##cdr _e221523221567_))) - (_lp-hd221524221570_ + (##cdr _e221453221497_))) + (_lp-hd221454221500_ (let () (declare (not safe)) - (##car _e221523221567_)))) - (let ((__tmp233308 + (##car _e221453221497_)))) + (let ((__tmp233238 (let () (declare (not safe)) - (cons _lp-hd221524221570_ - _arg221526221564_)))) + (cons _lp-hd221454221500_ + _arg221456221494_)))) (declare (not safe)) - (_loop221522221559_ - _lp-tl221525221572_ - __tmp233308)))) - (let ((_arg221527221575_ - (reverse _arg221526221564_))) - (___kont232624232625_ - _tl221521221556_ - _arg221527221575_)))))) + (_loop221452221489_ + _lp-tl221455221502_ + __tmp233238)))) + (let ((_arg221457221505_ + (reverse _arg221456221494_))) + (___kont232554232555_ + _tl221451221486_ + _arg221457221505_)))))) (let () (declare (not safe)) - (_loop221522221559_ - _target221519221554_ + (_loop221452221489_ + _target221449221484_ '()))))) - (___match232637232638_ - (lambda (___splice232622232623_ - _target221508221603_ - _tl221510221605_) - (letrec ((_loop221511221608_ - (lambda (_hd221509221611_ - _arg221515221613_) + (___match232567232568_ + (lambda (___splice232552232553_ + _target221438221533_ + _tl221440221535_) + (letrec ((_loop221441221538_ + (lambda (_hd221439221541_ + _arg221445221543_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221509221611_)) - (let ((_e221512221616_ + (gx#stx-pair? _hd221439221541_)) + (let ((_e221442221546_ (let () (declare (not safe)) (gx#stx-e - _hd221509221611_)))) - (let ((_lp-tl221514221621_ + _hd221439221541_)))) + (let ((_lp-tl221444221551_ (let () (declare (not safe)) - (##cdr _e221512221616_))) - (_lp-hd221513221619_ + (##cdr _e221442221546_))) + (_lp-hd221443221549_ (let () (declare (not safe)) - (##car _e221512221616_)))) - (let ((__tmp233309 + (##car _e221442221546_)))) + (let ((__tmp233239 (let () (declare (not safe)) - (cons _lp-hd221513221619_ - _arg221515221613_)))) + (cons _lp-hd221443221549_ + _arg221445221543_)))) (declare (not safe)) - (_loop221511221608_ - _lp-tl221514221621_ - __tmp233309)))) - (let ((_arg221516221624_ - (reverse _arg221515221613_))) - (___kont232620232621_ - _arg221516221624_)))))) + (_loop221441221538_ + _lp-tl221444221551_ + __tmp233239)))) + (let ((_arg221446221554_ + (reverse _arg221445221543_))) + (___kont232550232551_ + _arg221446221554_)))))) (let () (declare (not safe)) - (_loop221511221608_ - _target221508221603_ + (_loop221441221538_ + _target221438221533_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? ___stx232618232619_)) - (let ((___splice232622232623_ + (gx#stx-pair/null? ___stx232548232549_)) + (let ((___splice232552232553_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx232618232619_ + ___stx232548232549_ '0)))) - (let ((_tl221510221605_ + (let ((_tl221440221535_ (let () (declare (not safe)) - (##vector-ref ___splice232622232623_ '1))) - (_target221508221603_ + (##vector-ref ___splice232552232553_ '1))) + (_target221438221533_ (let () (declare (not safe)) - (##vector-ref ___splice232622232623_ '0)))) + (##vector-ref ___splice232552232553_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221510221605_)) - (___match232637232638_ - ___splice232622232623_ - _target221508221603_ - _tl221510221605_) - (___match232643232644_ - ___splice232622232623_ - _target221508221603_ - _tl221510221605_)))) - (___kont232628232629_ ___stx232618232619_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp233312 + (gx#stx-null? _tl221440221535_)) + (___match232567232568_ + ___splice232552232553_ + _target221438221533_ + _tl221440221535_) + (___match232573232574_ + ___splice232552232553_ + _target221438221533_ + _tl221440221535_)))) + (___kont232558232559_ ___stx232548232549_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp233242 (let () (declare (not safe)) - (cons _id221499_ - _ids221430_))) - (__tmp233311 + (cons _id221429_ + _ids221360_))) + (__tmp233241 (let () (declare (not safe)) - (cons _impl221501_ - _impls221431_))) - (__tmp233310 + (cons _impl221431_ + _impls221361_))) + (__tmp233240 (let () (declare (not safe)) - (cons _clause221648_ - _clauses221432_)))) + (cons _clause221578_ + _clauses221362_)))) (declare (not safe)) - (_lp221427_ - _rest221452_ - __tmp233312 - __tmp233311 - __tmp233310)))) - _tl221459221476_ - _hd221460221474_))) + (_lp221357_ + _rest221382_ + __tmp233242 + __tmp233241 + __tmp233240)))) + _tl221389221406_ + _hd221390221404_))) (let () (declare (not safe)) - (_g221455221466_ _g221456221469_)))))) + (_g221385221396_ _g221386221399_)))))) (declare (not safe)) - (_g221454221651_ _clause221453_)))))) - (if (let () (declare (not safe)) (##pair? _rest221433221441_)) - (let ((_hd221438221657_ + (_g221384221581_ _clause221383_)))))) + (if (let () (declare (not safe)) (##pair? _rest221363221371_)) + (let ((_hd221368221587_ (let () (declare (not safe)) - (##car _rest221433221441_))) - (_tl221439221659_ + (##car _rest221363221371_))) + (_tl221369221589_ (let () (declare (not safe)) - (##cdr _rest221433221441_)))) - (let* ((_clause221662_ _hd221438221657_) - (_rest221664_ _tl221439221659_)) + (##cdr _rest221363221371_)))) + (let* ((_clause221592_ _hd221368221587_) + (_rest221594_ _tl221369221589_)) (declare (not safe)) - (_K221437221654_ _rest221664_ _clause221662_))) - (let () (declare (not safe)) (_else221435221449_))))))) + (_K221367221584_ _rest221594_ _clause221592_))) + (let () (declare (not safe)) (_else221365221379_))))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx221669_ _id221670_ _clauses221671_) - (let ((_gensym?221673_ '#f)) + (lambda (_stx221599_ _id221600_ _clauses221601_) + (let ((_gensym?221603_ '#f)) (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx221669_ - _id221670_ - _clauses221671_ - _gensym?221673_)))) + _stx221599_ + _id221600_ + _clauses221601_ + _gensym?221603_)))) (define gxc#lift-case-lambda-clauses - (lambda _g233315_ - (let ((_g233314_ (let () (declare (not safe)) (##length _g233315_)))) - (cond ((let () (declare (not safe)) (##fx= _g233314_ 3)) - (apply (lambda (_stx221669_ _id221670_ _clauses221671_) + (lambda _g233245_ + (let ((_g233244_ (let () (declare (not safe)) (##length _g233245_)))) + (cond ((let () (declare (not safe)) (##fx= _g233244_ 3)) + (apply (lambda (_stx221599_ _id221600_ _clauses221601_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx221669_ - _id221670_ - _clauses221671_))) - _g233315_)) - ((let () (declare (not safe)) (##fx= _g233314_ 4)) - (apply (lambda (_stx221675_ - _id221676_ - _clauses221677_ - _gensym?221678_) + _stx221599_ + _id221600_ + _clauses221601_))) + _g233245_)) + ((let () (declare (not safe)) (##fx= _g233244_ 4)) + (apply (lambda (_stx221605_ + _id221606_ + _clauses221607_ + _gensym?221608_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx221675_ - _id221676_ - _clauses221677_ - _gensym?221678_))) - _g233315_)) + _stx221605_ + _id221606_ + _clauses221607_ + _gensym?221608_))) + _g233245_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g233315_)))))) + _g233245_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_stx220699_) - (letrec ((_case-lambda-clause-def220701_ - (lambda (_id221418_ _impl221419_) - (let ((__tmp233316 - (let ((__tmp233317 - (let ((__tmp233320 + (lambda (_stx220629_) + (letrec ((_case-lambda-clause-def220631_ + (lambda (_id221348_ _impl221349_) + (let ((__tmp233246 + (let ((__tmp233247 + (let ((__tmp233250 (let () (declare (not safe)) - (cons _id221418_ '()))) - (__tmp233318 - (let ((__tmp233319 + (cons _id221348_ '()))) + (__tmp233248 + (let ((__tmp233249 (let () (declare (not safe)) (gxc#compile-e__0 - _impl221419_)))) + _impl221349_)))) (declare (not safe)) - (cons __tmp233319 '())))) + (cons __tmp233249 '())))) (declare (not safe)) - (cons __tmp233320 __tmp233318)))) + (cons __tmp233250 __tmp233248)))) (declare (not safe)) - (cons '%#define-values __tmp233317)))) + (cons '%#define-values __tmp233247)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp233316 _stx220699_)))) - (_opt-lambda-dispatch-name220702_ - (lambda (_id221414_) - (if (uninterned-symbol? _id221414_) - (let ((_str221416_ (symbol->string _id221414_))) + (gxc#xform-wrap-source __tmp233246 _stx220629_)))) + (_opt-lambda-dispatch-name220632_ + (lambda (_id221344_) + (if (uninterned-symbol? _id221344_) + (let ((_str221346_ (symbol->string _id221344_))) (if (let () (declare (not safe)) - (string-prefix? '"opt-lambda" _str221416_)) + (string-prefix? '"opt-lambda" _str221346_)) '"%" - _id221414_)) - _id221414_))) - (_kw-lambda-dispatch-name220703_ - (lambda (_id221409_ _name221410_) - (if (uninterned-symbol? _id221409_) - (let ((_str221412_ (symbol->string _id221409_))) + _id221344_)) + _id221344_))) + (_kw-lambda-dispatch-name220633_ + (lambda (_id221339_ _name221340_) + (if (uninterned-symbol? _id221339_) + (let ((_str221342_ (symbol->string _id221339_))) (if (let () (declare (not safe)) - (string-prefix? '"kw-lambda" _str221412_)) - _name221410_ - _id221409_)) - _id221409_)))) - (let* ((___stx232666232667_ _stx220699_) - (_g220708220767_ + (string-prefix? '"kw-lambda" _str221342_)) + _name221340_ + _id221339_)) + _id221339_)))) + (let* ((___stx232596232597_ _stx220629_) + (_g220638220697_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232666232667_))))) - (let ((___kont232668232669_ - (lambda (_L221318_ _L221319_) - (let* ((___stx232646232647_ _L221318_) - (_g221336221350_ + ___stx232596232597_))))) + (let ((___kont232598232599_ + (lambda (_L221248_ _L221249_) + (let* ((___stx232576232577_ _L221248_) + (_g221266221280_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232646232647_))))) - (let ((___kont232648232649_ - (lambda (_L221394_) _stx220699_)) - (___kont232650232651_ - (lambda (_L221363_) - (let ((_g233321_ + ___stx232576232577_))))) + (let ((___kont232578232579_ + (lambda (_L221324_) _stx220629_)) + (___kont232580232581_ + (lambda (_L221293_) + (let ((_g233251_ (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx220699_ - _L221319_ - _L221363_)))) + _stx220629_ + _L221249_ + _L221293_)))) (begin - (let ((_g233322_ + (let ((_g233252_ (let () (declare (not safe)) - (if (##values? _g233321_) - (##vector-length _g233321_) + (if (##values? _g233251_) + (##vector-length _g233251_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g233322_ 3))) + (##fx= _g233252_ 3))) (error "Context expects 3 values" - _g233322_))) - (let ((_ids221373_ + _g233252_))) + (let ((_ids221303_ (let () (declare (not safe)) - (##vector-ref _g233321_ 0))) - (_impls221374_ + (##vector-ref _g233251_ 0))) + (_impls221304_ (let () (declare (not safe)) - (##vector-ref _g233321_ 1))) - (_clauses221375_ + (##vector-ref _g233251_ 1))) + (_clauses221305_ (let () (declare (not safe)) - (##vector-ref _g233321_ 2)))) - (let* ((_g233323_ + (##vector-ref _g233251_ 2)))) + (let* ((_g233253_ (for-each gx#core-bind-runtime! - _ids221373_)) - (_defs221378_ - (map _case-lambda-clause-def220701_ - _ids221373_ - _impls221374_))) - (let ((__tmp233325 + _ids221303_)) + (_defs221308_ + (map _case-lambda-clause-def220631_ + _ids221303_ + _impls221304_))) + (let ((__tmp233255 (let () (declare (not safe)) (gxc#identifier-symbol - _L221319_))) - (__tmp233324 + _L221249_))) + (__tmp233254 (map gxc#identifier-symbol - _ids221373_))) + _ids221303_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp233325 + __tmp233255 '" => " - __tmp233324)) - (let ((__tmp233326 - (let ((__tmp233327 - (let ((__tmp233328 - (let ((__tmp233329 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233330 - (let ((__tmp233331 - (let ((__tmp233336 + __tmp233254)) + (let ((__tmp233256 + (let ((__tmp233257 + (let ((__tmp233258 + (let ((__tmp233259 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp233260 + (let ((__tmp233261 + (let ((__tmp233266 (let () (declare (not safe)) - (cons _L221319_ '()))) - (__tmp233332 - (let ((__tmp233333 - (let ((__tmp233335 + (cons _L221249_ '()))) + (__tmp233262 + (let ((__tmp233263 + (let ((__tmp233265 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons '%#case-lambda _clauses221375_))) - (__tmp233334 + (cons '%#case-lambda _clauses221305_))) + (__tmp233264 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda-expr)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp233335 __tmp233334)))) + (gxc#xform-wrap-source __tmp233265 __tmp233264)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp233333 '())))) + (cons __tmp233263 '())))) (declare (not safe)) - (cons __tmp233336 __tmp233332)))) + (cons __tmp233266 __tmp233262)))) (declare (not safe)) - (cons '%#define-values __tmp233331)))) + (cons '%#define-values __tmp233261)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp233330 - _stx220699_)))) + __tmp233260 + _stx220629_)))) (declare (not safe)) - (cons __tmp233329 '())))) + (cons __tmp233259 '())))) (declare (not safe)) - (foldr1 cons __tmp233328 _defs221378_)))) + (foldr1 cons __tmp233258 _defs221308_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#begin __tmp233327)))) + (cons '%#begin __tmp233257)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp233326 - _stx220699_))))))))) - (let ((___match232657232658_ - (lambda (_e221341221386_ - _hd221340221389_ - _tl221339221391_) - (let ((_L221394_ _tl221339221391_)) + __tmp233256 + _stx220629_))))))))) + (let ((___match232587232588_ + (lambda (_e221271221316_ + _hd221270221319_ + _tl221269221321_) + (let ((_L221324_ _tl221269221321_)) (if (let () (declare (not safe)) (andmap1 gxc#dispatch-lambda-form? - _L221394_)) - (___kont232648232649_ _L221394_) - (___kont232650232651_ - _tl221339221391_)))))) + _L221324_)) + (___kont232578232579_ _L221324_) + (___kont232580232581_ + _tl221269221321_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx232646232647_)) - (let ((_e221341221386_ + (gx#stx-pair? ___stx232576232577_)) + (let ((_e221271221316_ (let () (declare (not safe)) - (gx#stx-e ___stx232646232647_)))) - (let ((_tl221339221391_ + (gx#stx-e ___stx232576232577_)))) + (let ((_tl221269221321_ (let () (declare (not safe)) - (##cdr _e221341221386_))) - (_hd221340221389_ + (##cdr _e221271221316_))) + (_hd221270221319_ (let () (declare (not safe)) - (##car _e221341221386_)))) - (___match232657232658_ - _e221341221386_ - _hd221340221389_ - _tl221339221391_))) + (##car _e221271221316_)))) + (___match232587232588_ + _e221271221316_ + _hd221270221319_ + _tl221269221321_))) (let () (declare (not safe)) - (_g221336221350_)))))))) - (___kont232670232671_ - (lambda (_L221136_ _L221137_) - (let* ((_g221153221183_ - (lambda (_g221154221180_) + (_g221266221280_)))))))) + (___kont232600232601_ + (lambda (_L221066_ _L221067_) + (let* ((_g221083221113_ + (lambda (_g221084221110_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221154221180_)))) - (_g221152221278_ - (lambda (_g221154221186_) + _g221084221110_)))) + (_g221082221208_ + (lambda (_g221084221116_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221154221186_)) - (let ((_e221160221188_ + (gx#stx-pair? _g221084221116_)) + (let ((_e221090221118_ (let () (declare (not safe)) - (gx#stx-e _g221154221186_)))) - (let ((_hd221159221191_ + (gx#stx-e _g221084221116_)))) + (let ((_hd221089221121_ (let () (declare (not safe)) - (##car _e221160221188_))) - (_tl221158221193_ + (##car _e221090221118_))) + (_tl221088221123_ (let () (declare (not safe)) - (##cdr _e221160221188_)))) + (##cdr _e221090221118_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221158221193_)) - (let ((_e221163221196_ + (gx#stx-pair? _tl221088221123_)) + (let ((_e221093221126_ (let () (declare (not safe)) (gx#stx-e - _tl221158221193_)))) - (let ((_hd221162221199_ + _tl221088221123_)))) + (let ((_hd221092221129_ (let () (declare (not safe)) - (##car _e221163221196_))) - (_tl221161221201_ + (##car _e221093221126_))) + (_tl221091221131_ (let () (declare (not safe)) - (##cdr _e221163221196_)))) + (##cdr _e221093221126_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221162221199_)) - (let ((_e221166221204_ + _hd221092221129_)) + (let ((_e221096221134_ (let () (declare (not safe)) (gx#stx-e - _hd221162221199_)))) - (let ((_hd221165221207_ + _hd221092221129_)))) + (let ((_hd221095221137_ (let () (declare (not safe)) - (##car _e221166221204_))) - (_tl221164221209_ + (##car _e221096221134_))) + (_tl221094221139_ (let () (declare (not safe)) - (##cdr _e221166221204_)))) + (##cdr _e221096221134_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221165221207_)) - (let ((_e221169221212_ + _hd221095221137_)) + (let ((_e221099221142_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd221165221207_)))) - (let ((_hd221168221215_ + (gx#stx-e _hd221095221137_)))) + (let ((_hd221098221145_ (let () (declare (not safe)) - (##car _e221169221212_))) - (_tl221167221217_ + (##car _e221099221142_))) + (_tl221097221147_ (let () (declare (not safe)) - (##cdr _e221169221212_)))) + (##cdr _e221099221142_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221168221215_)) - (let ((_e221172221220_ + (gx#stx-pair? _hd221098221145_)) + (let ((_e221102221150_ (let () (declare (not safe)) - (gx#stx-e _hd221168221215_)))) - (let ((_hd221171221223_ + (gx#stx-e _hd221098221145_)))) + (let ((_hd221101221153_ (let () (declare (not safe)) - (##car _e221172221220_))) - (_tl221170221225_ + (##car _e221102221150_))) + (_tl221100221155_ (let () (declare (not safe)) - (##cdr _e221172221220_)))) + (##cdr _e221102221150_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221170221225_)) + (gx#stx-null? _tl221100221155_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221167221217_)) - (let ((_e221175221228_ + (gx#stx-pair? _tl221097221147_)) + (let ((_e221105221158_ (let () (declare (not safe)) - (gx#stx-e _tl221167221217_)))) - (let ((_hd221174221231_ + (gx#stx-e _tl221097221147_)))) + (let ((_hd221104221161_ (let () (declare (not safe)) - (##car _e221175221228_))) - (_tl221173221233_ + (##car _e221105221158_))) + (_tl221103221163_ (let () (declare (not safe)) - (##cdr _e221175221228_)))) + (##cdr _e221105221158_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221173221233_)) + _tl221103221163_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl221164221209_)) + _tl221094221139_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl221161221201_)) - (let ((_e221178221236_ + _tl221091221131_)) + (let ((_e221108221166_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl221161221201_)))) - (let ((_hd221177221239_ - (let () (declare (not safe)) (##car _e221178221236_))) - (_tl221176221241_ - (let () (declare (not safe)) (##cdr _e221178221236_)))) + (gx#stx-e _tl221091221131_)))) + (let ((_hd221107221169_ + (let () (declare (not safe)) (##car _e221108221166_))) + (_tl221106221171_ + (let () (declare (not safe)) (##cdr _e221108221166_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221176221241_)) - ((lambda (_L221244_ _L221245_ _L221246_) - (let* ((_lambda-id221270_ - (let ((__tmp233339 + (gx#stx-null? _tl221106221171_)) + ((lambda (_L221174_ _L221175_ _L221176_) + (let* ((_lambda-id221200_ + (let ((__tmp233269 (let () (declare (not safe)) - (gx#stx-e _L221137_))) - (__tmp233337 - (let ((__tmp233338 + (gx#stx-e _L221067_))) + (__tmp233267 + (let ((__tmp233268 (let () (declare (not safe)) - (gx#stx-e _L221246_)))) + (gx#stx-e _L221176_)))) (declare (not safe)) - (_opt-lambda-dispatch-name220702_ - __tmp233338)))) + (_opt-lambda-dispatch-name220632_ + __tmp233268)))) (declare (not safe)) (make-symbol__1 - __tmp233339 + __tmp233269 '"__" - __tmp233337))) - (_lambda-id221272_ - (let ((__tmp233340 + __tmp233267))) + (_lambda-id221202_ + (let ((__tmp233270 (let () (declare (not safe)) - (gx#stx-source _stx220699_)))) + (gx#stx-source _stx220629_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _lambda-id221270_ - __tmp233340))) - (_g233341_ + _lambda-id221200_ + __tmp233270))) + (_g233271_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lambda-id221272_))) - (_new-case-lambda-expr221275_ + _lambda-id221202_))) + (_new-case-lambda-expr221205_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L221244_ - _L221246_ - _lambda-id221272_)))) - (let ((__tmp233343 + _L221174_ + _L221176_ + _lambda-id221202_)))) + (let ((__tmp233273 (let () (declare (not safe)) - (gxc#identifier-symbol _L221137_))) - (__tmp233342 + (gxc#identifier-symbol _L221067_))) + (__tmp233272 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id221272_)))) + _lambda-id221202_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp233343 + __tmp233273 '" => " - __tmp233342)) - (let ((__tmp233344 - (let ((__tmp233345 - (let ((__tmp233353 - (let ((__tmp233354 - (let ((__tmp233355 - (let ((__tmp233358 + __tmp233272)) + (let ((__tmp233274 + (let ((__tmp233275 + (let ((__tmp233283 + (let ((__tmp233284 + (let ((__tmp233285 + (let ((__tmp233288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _lambda-id221272_ '()))) - (__tmp233356 - (let ((__tmp233357 + (cons _lambda-id221202_ '()))) + (__tmp233286 + (let ((__tmp233287 (let () (declare (not safe)) - (gxc#compile-e__0 _L221245_)))) + (gxc#compile-e__0 _L221175_)))) (declare (not safe)) - (cons __tmp233357 '())))) + (cons __tmp233287 '())))) (declare (not safe)) - (cons __tmp233358 __tmp233356)))) + (cons __tmp233288 __tmp233286)))) (declare (not safe)) - (cons '%#define-values __tmp233355)))) + (cons '%#define-values __tmp233285)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp233354 - _stx220699_))) - (__tmp233346 - (let ((__tmp233347 - (let ((__tmp233348 - (let ((__tmp233349 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233350 - (let ((__tmp233352 + __tmp233284 + _stx220629_))) + (__tmp233276 + (let ((__tmp233277 + (let ((__tmp233278 + (let ((__tmp233279 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp233280 + (let ((__tmp233282 (let () (declare (not safe)) - (cons _L221137_ '()))) - (__tmp233351 + (cons _L221067_ '()))) + (__tmp233281 (let () (declare (not safe)) - (cons _new-case-lambda-expr221275_ + (cons _new-case-lambda-expr221205_ '())))) (declare (not safe)) - (cons __tmp233352 __tmp233351)))) + (cons __tmp233282 __tmp233281)))) (declare (not safe)) - (cons '%#define-values __tmp233350)))) + (cons '%#define-values __tmp233280)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp233349 _stx220699_)))) + (gxc#xform-wrap-source __tmp233279 _stx220629_)))) (declare (not safe)) - (gxc#lift-top-lambda-define-values% __tmp233348)))) + (gxc#lift-top-lambda-define-values% __tmp233278)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp233347 '())))) + (cons __tmp233277 '())))) (declare (not safe)) - (cons __tmp233353 __tmp233346)))) + (cons __tmp233283 __tmp233276)))) (declare (not safe)) - (cons '%#begin __tmp233345)))) + (cons '%#begin __tmp233275)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp233344 - _stx220699_)))) - _hd221177221239_ - _hd221174221231_ - _hd221171221223_) + __tmp233274 + _stx220629_)))) + _hd221107221169_ + _hd221104221161_ + _hd221101221153_) (let () (declare (not safe)) - (_g221153221183_ _g221154221186_))))) - (let () (declare (not safe)) (_g221153221183_ _g221154221186_))) + (_g221083221113_ _g221084221116_))))) + (let () (declare (not safe)) (_g221083221113_ _g221084221116_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g221153221183_ - _g221154221186_))) + (_g221083221113_ + _g221084221116_))) (let () (declare (not safe)) - (_g221153221183_ - _g221154221186_))))) + (_g221083221113_ + _g221084221116_))))) (let () (declare (not safe)) - (_g221153221183_ _g221154221186_))) + (_g221083221113_ _g221084221116_))) (let () (declare (not safe)) - (_g221153221183_ _g221154221186_))))) + (_g221083221113_ _g221084221116_))))) (let () (declare (not safe)) - (_g221153221183_ _g221154221186_))))) + (_g221083221113_ _g221084221116_))))) (let () (declare (not safe)) - (_g221153221183_ _g221154221186_))))) + (_g221083221113_ _g221084221116_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g221153221183_ - _g221154221186_))))) + (_g221083221113_ + _g221084221116_))))) (let () (declare (not safe)) - (_g221153221183_ - _g221154221186_))))) + (_g221083221113_ + _g221084221116_))))) (let () (declare (not safe)) - (_g221153221183_ _g221154221186_)))))) + (_g221083221113_ _g221084221116_)))))) (declare (not safe)) - (_g221152221278_ _L221136_)))) - (___kont232672232673_ - (lambda (_L220850_ _L220851_) - (let* ((_g220867220920_ - (lambda (_g220868220917_) + (_g221082221208_ _L221066_)))) + (___kont232602232603_ + (lambda (_L220780_ _L220781_) + (let* ((_g220797220850_ + (lambda (_g220798220847_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220868220917_)))) - (_g220866221096_ - (lambda (_g220868220923_) + _g220798220847_)))) + (_g220796221026_ + (lambda (_g220798220853_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220868220923_)) - (let ((_e220876220925_ + (gx#stx-pair? _g220798220853_)) + (let ((_e220806220855_ (let () (declare (not safe)) - (gx#stx-e _g220868220923_)))) - (let ((_hd220875220928_ + (gx#stx-e _g220798220853_)))) + (let ((_hd220805220858_ (let () (declare (not safe)) - (##car _e220876220925_))) - (_tl220874220930_ + (##car _e220806220855_))) + (_tl220804220860_ (let () (declare (not safe)) - (##cdr _e220876220925_)))) + (##cdr _e220806220855_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220874220930_)) - (let ((_e220879220933_ + (gx#stx-pair? _tl220804220860_)) + (let ((_e220809220863_ (let () (declare (not safe)) (gx#stx-e - _tl220874220930_)))) - (let ((_hd220878220936_ + _tl220804220860_)))) + (let ((_hd220808220866_ (let () (declare (not safe)) - (##car _e220879220933_))) - (_tl220877220938_ + (##car _e220809220863_))) + (_tl220807220868_ (let () (declare (not safe)) - (##cdr _e220879220933_)))) + (##cdr _e220809220863_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd220878220936_)) - (let ((_e220882220941_ + _hd220808220866_)) + (let ((_e220812220871_ (let () (declare (not safe)) (gx#stx-e - _hd220878220936_)))) - (let ((_hd220881220944_ + _hd220808220866_)))) + (let ((_hd220811220874_ (let () (declare (not safe)) - (##car _e220882220941_))) - (_tl220880220946_ + (##car _e220812220871_))) + (_tl220810220876_ (let () (declare (not safe)) - (##cdr _e220882220941_)))) + (##cdr _e220812220871_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd220881220944_)) - (let ((_e220885220949_ + _hd220811220874_)) + (let ((_e220815220879_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd220881220944_)))) - (let ((_hd220884220952_ + (gx#stx-e _hd220811220874_)))) + (let ((_hd220814220882_ (let () (declare (not safe)) - (##car _e220885220949_))) - (_tl220883220954_ + (##car _e220815220879_))) + (_tl220813220884_ (let () (declare (not safe)) - (##cdr _e220885220949_)))) + (##cdr _e220815220879_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd220884220952_)) - (let ((_e220888220957_ + (gx#stx-pair? _hd220814220882_)) + (let ((_e220818220887_ (let () (declare (not safe)) - (gx#stx-e _hd220884220952_)))) - (let ((_hd220887220960_ + (gx#stx-e _hd220814220882_)))) + (let ((_hd220817220890_ (let () (declare (not safe)) - (##car _e220888220957_))) - (_tl220886220962_ + (##car _e220818220887_))) + (_tl220816220892_ (let () (declare (not safe)) - (##cdr _e220888220957_)))) + (##cdr _e220818220887_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl220886220962_)) + (gx#stx-null? _tl220816220892_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220883220954_)) - (let ((_e220891220965_ + (gx#stx-pair? _tl220813220884_)) + (let ((_e220821220895_ (let () (declare (not safe)) - (gx#stx-e _tl220883220954_)))) - (let ((_hd220890220968_ + (gx#stx-e _tl220813220884_)))) + (let ((_hd220820220898_ (let () (declare (not safe)) - (##car _e220891220965_))) - (_tl220889220970_ + (##car _e220821220895_))) + (_tl220819220900_ (let () (declare (not safe)) - (##cdr _e220891220965_)))) + (##cdr _e220821220895_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd220890220968_)) - (let ((_e220894220973_ + _hd220820220898_)) + (let ((_e220824220903_ (let () (declare (not safe)) (gx#stx-e - _hd220890220968_)))) - (let ((_hd220893220976_ + _hd220820220898_)))) + (let ((_hd220823220906_ (let () (declare (not safe)) - (##car _e220894220973_))) - (_tl220892220978_ + (##car _e220824220903_))) + (_tl220822220908_ (let () (declare (not safe)) - (##cdr _e220894220973_)))) + (##cdr _e220824220903_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl220892220978_)) - (let ((_e220897220981_ + _tl220822220908_)) + (let ((_e220827220911_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl220892220978_)))) - (let ((_hd220896220984_ - (let () (declare (not safe)) (##car _e220897220981_))) - (_tl220895220986_ - (let () (declare (not safe)) (##cdr _e220897220981_)))) + (gx#stx-e _tl220822220908_)))) + (let ((_hd220826220914_ + (let () (declare (not safe)) (##car _e220827220911_))) + (_tl220825220916_ + (let () (declare (not safe)) (##cdr _e220827220911_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd220896220984_)) - (let ((_e220900220989_ + (gx#stx-pair? _hd220826220914_)) + (let ((_e220830220919_ (let () (declare (not safe)) - (gx#stx-e _hd220896220984_)))) - (let ((_hd220899220992_ + (gx#stx-e _hd220826220914_)))) + (let ((_hd220829220922_ (let () (declare (not safe)) - (##car _e220900220989_))) - (_tl220898220994_ + (##car _e220830220919_))) + (_tl220828220924_ (let () (declare (not safe)) - (##cdr _e220900220989_)))) + (##cdr _e220830220919_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd220899220992_)) - (let ((_e220903220997_ + (gx#stx-pair? _hd220829220922_)) + (let ((_e220833220927_ (let () (declare (not safe)) - (gx#stx-e _hd220899220992_)))) - (let ((_hd220902221000_ + (gx#stx-e _hd220829220922_)))) + (let ((_hd220832220930_ (let () (declare (not safe)) - (##car _e220903220997_))) - (_tl220901221002_ + (##car _e220833220927_))) + (_tl220831220932_ (let () (declare (not safe)) - (##cdr _e220903220997_)))) + (##cdr _e220833220927_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd220902221000_)) - (let ((_e220906221005_ + (gx#stx-pair? _hd220832220930_)) + (let ((_e220836220935_ (let () (declare (not safe)) - (gx#stx-e _hd220902221000_)))) - (let ((_hd220905221008_ + (gx#stx-e _hd220832220930_)))) + (let ((_hd220835220938_ (let () (declare (not safe)) - (##car _e220906221005_))) - (_tl220904221010_ + (##car _e220836220935_))) + (_tl220834220940_ (let () (declare (not safe)) - (##cdr _e220906221005_)))) + (##cdr _e220836220935_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220904221010_)) + _tl220834220940_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl220901221002_)) - (let ((_e220909221013_ + _tl220831220932_)) + (let ((_e220839220943_ (let () (declare (not safe)) (gx#stx-e - _tl220901221002_)))) - (let ((_hd220908221016_ + _tl220831220932_)))) + (let ((_hd220838220946_ (let () (declare (not safe)) - (##car _e220909221013_))) - (_tl220907221018_ + (##car _e220839220943_))) + (_tl220837220948_ (let () (declare (not safe)) - (##cdr _e220909221013_)))) + (##cdr _e220839220943_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220907221018_)) + _tl220837220948_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _tl220898220994_)) + (gx#stx-null? _tl220828220924_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220895220986_)) - (let ((_e220912221021_ + (gx#stx-pair? _tl220825220916_)) + (let ((_e220842220951_ (let () (declare (not safe)) - (gx#stx-e _tl220895220986_)))) - (let ((_hd220911221024_ + (gx#stx-e _tl220825220916_)))) + (let ((_hd220841220954_ (let () (declare (not safe)) - (##car _e220912221021_))) - (_tl220910221026_ + (##car _e220842220951_))) + (_tl220840220956_ (let () (declare (not safe)) - (##cdr _e220912221021_)))) + (##cdr _e220842220951_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl220910221026_)) + (gx#stx-null? _tl220840220956_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl220889220970_)) + (gx#stx-null? _tl220819220900_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl220880220946_)) + (gx#stx-null? _tl220810220876_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl220877220938_)) - (let ((_e220915221029_ + _tl220807220868_)) + (let ((_e220845220959_ (let () (declare (not safe)) (gx#stx-e - _tl220877220938_)))) - (let ((_hd220914221032_ + _tl220807220868_)))) + (let ((_hd220844220962_ (let () (declare (not safe)) - (##car _e220915221029_))) - (_tl220913221034_ + (##car _e220845220959_))) + (_tl220843220964_ (let () (declare (not safe)) - (##cdr _e220915221029_)))) + (##cdr _e220845220959_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220913221034_)) - ((lambda (_L221037_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L221038_ - _L221039_ - _L221040_ - _L221041_) - (let* ((_get-kws-id221081_ - (let ((__tmp233361 + _tl220843220964_)) + ((lambda (_L220967_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L220968_ + _L220969_ + _L220970_ + _L220971_) + (let* ((_get-kws-id221011_ + (let ((__tmp233291 (let () (declare (not safe)) - (gx#stx-e _L220851_))) - (__tmp233359 - (let ((__tmp233360 + (gx#stx-e _L220781_))) + (__tmp233289 + (let ((__tmp233290 (let () (declare (not safe)) - (gx#stx-e _L221041_)))) + (gx#stx-e _L220971_)))) (declare (not safe)) - (_kw-lambda-dispatch-name220703_ - __tmp233360 + (_kw-lambda-dispatch-name220633_ + __tmp233290 '"@")))) (declare (not safe)) - (make-symbol__1 __tmp233361 '"__" __tmp233359))) - (_get-kws-id221083_ - (let ((__tmp233362 + (make-symbol__1 __tmp233291 '"__" __tmp233289))) + (_get-kws-id221013_ + (let ((__tmp233292 (let () (declare (not safe)) - (gx#stx-source _stx220699_)))) + (gx#stx-source _stx220629_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id221081_ - __tmp233362))) - (_main-id221085_ - (let ((__tmp233365 + _get-kws-id221011_ + __tmp233292))) + (_main-id221015_ + (let ((__tmp233295 (let () (declare (not safe)) - (gx#stx-e _L220851_))) - (__tmp233363 - (let ((__tmp233364 + (gx#stx-e _L220781_))) + (__tmp233293 + (let ((__tmp233294 (let () (declare (not safe)) - (gx#stx-e _L221040_)))) + (gx#stx-e _L220970_)))) (declare (not safe)) - (_kw-lambda-dispatch-name220703_ - __tmp233364 + (_kw-lambda-dispatch-name220633_ + __tmp233294 '"%")))) (declare (not safe)) - (make-symbol__1 __tmp233365 '"__" __tmp233363))) - (_main-id221087_ - (let ((__tmp233366 + (make-symbol__1 __tmp233295 '"__" __tmp233293))) + (_main-id221017_ + (let ((__tmp233296 (let () (declare (not safe)) - (gx#stx-source _stx220699_)))) + (gx#stx-source _stx220629_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id221085_ - __tmp233366))) - (_g233367_ + _main-id221015_ + __tmp233296))) + (_g233297_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _get-kws-id221083_))) - (_g233368_ + (gx#core-bind-runtime!__0 _get-kws-id221013_))) + (_g233298_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _main-id221087_))) - (_new-kw-dispatch221091_ + (gx#core-bind-runtime!__0 _main-id221017_))) + (_new-kw-dispatch221021_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L221037_ - _L221041_ - _get-kws-id221083_))) - (_new-get-kws221093_ + _L220967_ + _L220971_ + _get-kws-id221013_))) + (_new-get-kws221023_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L221038_ - _L221040_ - _main-id221087_)))) - (let ((__tmp233371 + _L220968_ + _L220970_ + _main-id221017_)))) + (let ((__tmp233301 (let () (declare (not safe)) - (gxc#identifier-symbol _L220851_))) - (__tmp233370 + (gxc#identifier-symbol _L220781_))) + (__tmp233300 (let () (declare (not safe)) - (gxc#identifier-symbol _get-kws-id221083_))) - (__tmp233369 + (gxc#identifier-symbol _get-kws-id221013_))) + (__tmp233299 (let () (declare (not safe)) - (gxc#identifier-symbol _main-id221087_)))) + (gxc#identifier-symbol _main-id221017_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp233371 + __tmp233301 '" => " - __tmp233370 + __tmp233300 '" => " - __tmp233369)) - (let ((__tmp233372 - (let ((__tmp233373 - (let ((__tmp233386 - (let ((__tmp233387 - (let ((__tmp233388 - (let ((__tmp233389 - (let ((__tmp233391 + __tmp233299)) + (let ((__tmp233302 + (let ((__tmp233303 + (let ((__tmp233316 + (let ((__tmp233317 + (let ((__tmp233318 + (let ((__tmp233319 + (let ((__tmp233321 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main-id221087_ '()))) - (__tmp233390 + (cons _main-id221017_ '()))) + (__tmp233320 (let () (declare (not safe)) - (cons _L221039_ '())))) + (cons _L220969_ '())))) (declare (not safe)) - (cons __tmp233391 __tmp233390)))) + (cons __tmp233321 __tmp233320)))) (declare (not safe)) - (cons '%#define-values __tmp233389)))) + (cons '%#define-values __tmp233319)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp233388 - _stx220699_)))) + __tmp233318 + _stx220629_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - __tmp233387))) - (__tmp233374 - (let ((__tmp233381 - (let ((__tmp233382 - (let ((__tmp233383 - (let ((__tmp233385 + __tmp233317))) + (__tmp233304 + (let ((__tmp233311 + (let ((__tmp233312 + (let ((__tmp233313 + (let ((__tmp233315 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _get-kws-id221083_ '()))) - (__tmp233384 + (cons _get-kws-id221013_ '()))) + (__tmp233314 (let () (declare (not safe)) - (cons _new-get-kws221093_ '())))) + (cons _new-get-kws221023_ '())))) (declare (not safe)) - (cons __tmp233385 __tmp233384)))) + (cons __tmp233315 __tmp233314)))) (declare (not safe)) - (cons '%#define-values __tmp233383)))) + (cons '%#define-values __tmp233313)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp233382 - _stx220699_))) - (__tmp233375 - (let ((__tmp233376 - (let ((__tmp233377 - (let ((__tmp233378 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233380 + __tmp233312 + _stx220629_))) + (__tmp233305 + (let ((__tmp233306 + (let ((__tmp233307 + (let ((__tmp233308 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp233310 (let () (declare (not safe)) - (cons _L220851_ '()))) - (__tmp233379 + (cons _L220781_ '()))) + (__tmp233309 (let () (declare (not safe)) - (cons _new-kw-dispatch221091_ '())))) + (cons _new-kw-dispatch221021_ '())))) (declare (not safe)) - (cons __tmp233380 __tmp233379)))) + (cons __tmp233310 __tmp233309)))) (declare (not safe)) - (cons '%#define-values __tmp233378)))) + (cons '%#define-values __tmp233308)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp233377 _stx220699_)))) + (gxc#xform-wrap-source __tmp233307 _stx220629_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp233376 '())))) + (cons __tmp233306 '())))) (declare (not safe)) - (cons __tmp233381 __tmp233375)))) + (cons __tmp233311 __tmp233305)))) (declare (not safe)) - (cons __tmp233386 __tmp233374)))) + (cons __tmp233316 __tmp233304)))) (declare (not safe)) - (cons '%#begin __tmp233373)))) + (cons '%#begin __tmp233303)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp233372 _stx220699_)))) - _hd220914221032_ - _hd220911221024_ - _hd220908221016_ - _hd220905221008_ - _hd220887220960_) + (gxc#xform-wrap-source __tmp233302 _stx220629_)))) + _hd220844220962_ + _hd220841220954_ + _hd220838220946_ + _hd220835220938_ + _hd220817220890_) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))))) + (_g220797220850_ _g220798220853_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g220867220920_ - _g220868220923_))) + (_g220797220850_ + _g220798220853_))) (let () (declare (not safe)) - (_g220867220920_ - _g220868220923_))) + (_g220797220850_ + _g220798220853_))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))) + (_g220797220850_ _g220798220853_))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))))) + (_g220797220850_ _g220798220853_))))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))) + (_g220797220850_ _g220798220853_))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))) + (_g220797220850_ _g220798220853_))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))))) + (_g220797220850_ _g220798220853_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g220867220920_ - _g220868220923_))) + (_g220797220850_ + _g220798220853_))) (let () (declare (not safe)) - (_g220867220920_ - _g220868220923_))))) + (_g220797220850_ + _g220798220853_))))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))))) + (_g220797220850_ _g220798220853_))))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))))) + (_g220797220850_ _g220798220853_))))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))))) + (_g220797220850_ _g220798220853_))))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))))) + (_g220797220850_ _g220798220853_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g220867220920_ - _g220868220923_))))) + (_g220797220850_ + _g220798220853_))))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))) + (_g220797220850_ _g220798220853_))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))))) + (_g220797220850_ _g220798220853_))))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))))) + (_g220797220850_ _g220798220853_))))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_))))) + (_g220797220850_ _g220798220853_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g220867220920_ - _g220868220923_))))) + (_g220797220850_ + _g220798220853_))))) (let () (declare (not safe)) - (_g220867220920_ - _g220868220923_))))) + (_g220797220850_ + _g220798220853_))))) (let () (declare (not safe)) - (_g220867220920_ _g220868220923_)))))) + (_g220797220850_ _g220798220853_)))))) (declare (not safe)) - (_g220866221096_ _L220850_)))) - (___kont232674232675_ - (lambda (_L220796_ _L220797_) - (let ((__tmp233392 - (let ((__tmp233393 - (let ((__tmp233394 - (let ((__tmp233395 + (_g220796221026_ _L220780_)))) + (___kont232604232605_ + (lambda (_L220726_ _L220727_) + (let ((__tmp233322 + (let ((__tmp233323 + (let ((__tmp233324 + (let ((__tmp233325 (let () (declare (not safe)) (gxc#compile-e__0 - _L220796_)))) + _L220726_)))) (declare (not safe)) - (cons __tmp233395 '())))) + (cons __tmp233325 '())))) (declare (not safe)) - (cons _L220797_ __tmp233394)))) + (cons _L220727_ __tmp233324)))) (declare (not safe)) - (cons '%#define-values __tmp233393)))) + (cons '%#define-values __tmp233323)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp233392 _stx220699_))))) - (let* ((___match232759232760_ - (lambda (_e220742220818_ - _hd220741220821_ - _tl220740220823_ - _e220745220826_ - _hd220744220829_ - _tl220743220831_ - _e220748220834_ - _hd220747220837_ - _tl220746220839_ - _e220751220842_ - _hd220750220845_ - _tl220749220847_) - (let ((_L220850_ _hd220750220845_) - (_L220851_ _hd220747220837_)) + (gxc#xform-wrap-source __tmp233322 _stx220629_))))) + (let* ((___match232689232690_ + (lambda (_e220672220748_ + _hd220671220751_ + _tl220670220753_ + _e220675220756_ + _hd220674220759_ + _tl220673220761_ + _e220678220764_ + _hd220677220767_ + _tl220676220769_ + _e220681220772_ + _hd220680220775_ + _tl220679220777_) + (let ((_L220780_ _hd220680220775_) + (_L220781_ _hd220677220767_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L220851_)) + (gx#identifier? _L220781_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L220850_))) - (___kont232672232673_ _L220850_ _L220851_) - (___kont232674232675_ - _hd220750220845_ - _hd220744220829_))))) - (___match232731232732_ - (lambda (_e220728221104_ - _hd220727221107_ - _tl220726221109_ - _e220731221112_ - _hd220730221115_ - _tl220729221117_ - _e220734221120_ - _hd220733221123_ - _tl220732221125_ - _e220737221128_ - _hd220736221131_ - _tl220735221133_) - (let ((_L221136_ _hd220736221131_) - (_L221137_ _hd220733221123_)) + (gxc#kw-lambda-expr? _L220780_))) + (___kont232602232603_ _L220780_ _L220781_) + (___kont232604232605_ + _hd220680220775_ + _hd220674220759_))))) + (___match232661232662_ + (lambda (_e220658221034_ + _hd220657221037_ + _tl220656221039_ + _e220661221042_ + _hd220660221045_ + _tl220659221047_ + _e220664221050_ + _hd220663221053_ + _tl220662221055_ + _e220667221058_ + _hd220666221061_ + _tl220665221063_) + (let ((_L221066_ _hd220666221061_) + (_L221067_ _hd220663221053_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L221137_)) + (gx#identifier? _L221067_)) (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L221136_))) - (___kont232670232671_ _L221136_ _L221137_) - (___match232759232760_ - _e220728221104_ - _hd220727221107_ - _tl220726221109_ - _e220731221112_ - _hd220730221115_ - _tl220729221117_ - _e220734221120_ - _hd220733221123_ - _tl220732221125_ - _e220737221128_ - _hd220736221131_ - _tl220735221133_))))) - (___match232703232704_ - (lambda (_e220714221286_ - _hd220713221289_ - _tl220712221291_ - _e220717221294_ - _hd220716221297_ - _tl220715221299_ - _e220720221302_ - _hd220719221305_ - _tl220718221307_ - _e220723221310_ - _hd220722221313_ - _tl220721221315_) - (let ((_L221318_ _hd220722221313_) - (_L221319_ _hd220719221305_)) + (gxc#opt-lambda-expr? _L221066_))) + (___kont232600232601_ _L221066_ _L221067_) + (___match232689232690_ + _e220658221034_ + _hd220657221037_ + _tl220656221039_ + _e220661221042_ + _hd220660221045_ + _tl220659221047_ + _e220664221050_ + _hd220663221053_ + _tl220662221055_ + _e220667221058_ + _hd220666221061_ + _tl220665221063_))))) + (___match232633232634_ + (lambda (_e220644221216_ + _hd220643221219_ + _tl220642221221_ + _e220647221224_ + _hd220646221227_ + _tl220645221229_ + _e220650221232_ + _hd220649221235_ + _tl220648221237_ + _e220653221240_ + _hd220652221243_ + _tl220651221245_) + (let ((_L221248_ _hd220652221243_) + (_L221249_ _hd220649221235_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L221319_)) + (gx#identifier? _L221249_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L221318_))) - (___kont232668232669_ _L221318_ _L221319_) - (___match232731232732_ - _e220714221286_ - _hd220713221289_ - _tl220712221291_ - _e220717221294_ - _hd220716221297_ - _tl220715221299_ - _e220720221302_ - _hd220719221305_ - _tl220718221307_ - _e220723221310_ - _hd220722221313_ - _tl220721221315_)))))) + (gxc#case-lambda-expr? _L221248_))) + (___kont232598232599_ _L221248_ _L221249_) + (___match232661232662_ + _e220644221216_ + _hd220643221219_ + _tl220642221221_ + _e220647221224_ + _hd220646221227_ + _tl220645221229_ + _e220650221232_ + _hd220649221235_ + _tl220648221237_ + _e220653221240_ + _hd220652221243_ + _tl220651221245_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx232666232667_)) - (let ((_e220714221286_ + (gx#stx-pair? ___stx232596232597_)) + (let ((_e220644221216_ (let () (declare (not safe)) - (gx#stx-e ___stx232666232667_)))) - (let ((_tl220712221291_ + (gx#stx-e ___stx232596232597_)))) + (let ((_tl220642221221_ (let () (declare (not safe)) - (##cdr _e220714221286_))) - (_hd220713221289_ + (##cdr _e220644221216_))) + (_hd220643221219_ (let () (declare (not safe)) - (##car _e220714221286_)))) + (##car _e220644221216_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220712221291_)) - (let ((_e220717221294_ + (gx#stx-pair? _tl220642221221_)) + (let ((_e220647221224_ (let () (declare (not safe)) - (gx#stx-e _tl220712221291_)))) - (let ((_tl220715221299_ + (gx#stx-e _tl220642221221_)))) + (let ((_tl220645221229_ (let () (declare (not safe)) - (##cdr _e220717221294_))) - (_hd220716221297_ + (##cdr _e220647221224_))) + (_hd220646221227_ (let () (declare (not safe)) - (##car _e220717221294_)))) + (##car _e220647221224_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd220716221297_)) - (let ((_e220720221302_ + (gx#stx-pair? _hd220646221227_)) + (let ((_e220650221232_ (let () (declare (not safe)) - (gx#stx-e _hd220716221297_)))) - (let ((_tl220718221307_ + (gx#stx-e _hd220646221227_)))) + (let ((_tl220648221237_ (let () (declare (not safe)) - (##cdr _e220720221302_))) - (_hd220719221305_ + (##cdr _e220650221232_))) + (_hd220649221235_ (let () (declare (not safe)) - (##car _e220720221302_)))) + (##car _e220650221232_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl220718221307_)) + (gx#stx-null? _tl220648221237_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl220715221299_)) - (let ((_e220723221310_ + _tl220645221229_)) + (let ((_e220653221240_ (let () (declare (not safe)) (gx#stx-e - _tl220715221299_)))) - (let ((_tl220721221315_ + _tl220645221229_)))) + (let ((_tl220651221245_ (let () (declare (not safe)) - (##cdr _e220723221310_))) - (_hd220722221313_ + (##cdr _e220653221240_))) + (_hd220652221243_ (let () (declare (not safe)) - (##car _e220723221310_)))) + (##car _e220653221240_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220721221315_)) - (___match232703232704_ - _e220714221286_ - _hd220713221289_ - _tl220712221291_ - _e220717221294_ - _hd220716221297_ - _tl220715221299_ - _e220720221302_ - _hd220719221305_ - _tl220718221307_ - _e220723221310_ - _hd220722221313_ - _tl220721221315_) + _tl220651221245_)) + (___match232633232634_ + _e220644221216_ + _hd220643221219_ + _tl220642221221_ + _e220647221224_ + _hd220646221227_ + _tl220645221229_ + _e220650221232_ + _hd220649221235_ + _tl220648221237_ + _e220653221240_ + _hd220652221243_ + _tl220651221245_) (let () (declare (not safe)) - (_g220708220767_))))) + (_g220638220697_))))) (let () (declare (not safe)) - (_g220708220767_))) + (_g220638220697_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl220715221299_)) - (let ((_e220762220788_ + _tl220645221229_)) + (let ((_e220692220718_ (let () (declare (not safe)) (gx#stx-e - _tl220715221299_)))) - (let ((_tl220760220793_ + _tl220645221229_)))) + (let ((_tl220690220723_ (let () (declare (not safe)) - (##cdr _e220762220788_))) - (_hd220761220791_ + (##cdr _e220692220718_))) + (_hd220691220721_ (let () (declare (not safe)) - (##car _e220762220788_)))) + (##car _e220692220718_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220760220793_)) - (___kont232674232675_ - _hd220761220791_ - _hd220716221297_) + _tl220690220723_)) + (___kont232604232605_ + _hd220691220721_ + _hd220646221227_) (let () (declare (not safe)) - (_g220708220767_))))) + (_g220638220697_))))) (let () (declare (not safe)) - (_g220708220767_)))))) + (_g220638220697_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220715221299_)) - (let ((_e220762220788_ + (gx#stx-pair? _tl220645221229_)) + (let ((_e220692220718_ (let () (declare (not safe)) - (gx#stx-e _tl220715221299_)))) - (let ((_tl220760220793_ + (gx#stx-e _tl220645221229_)))) + (let ((_tl220690220723_ (let () (declare (not safe)) - (##cdr _e220762220788_))) - (_hd220761220791_ + (##cdr _e220692220718_))) + (_hd220691220721_ (let () (declare (not safe)) - (##car _e220762220788_)))) + (##car _e220692220718_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220760220793_)) - (___kont232674232675_ - _hd220761220791_ - _hd220716221297_) + _tl220690220723_)) + (___kont232604232605_ + _hd220691220721_ + _hd220646221227_) (let () (declare (not safe)) - (_g220708220767_))))) + (_g220638220697_))))) (let () (declare (not safe)) - (_g220708220767_)))))) - (let () (declare (not safe)) (_g220708220767_))))) - (let () (declare (not safe)) (_g220708220767_))))))))) + (_g220638220697_)))))) + (let () (declare (not safe)) (_g220638220697_))))) + (let () (declare (not safe)) (_g220638220697_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_stx219631_) - (letrec* ((_bind-e__231062231063_ - (lambda (_id220683_ _expr220684_ _compile?220685_) - (let ((__tmp233398 + (lambda (_stx219561_) + (letrec* ((_bind-e__230992230993_ + (lambda (_id220613_ _expr220614_ _compile?220615_) + (let ((__tmp233328 (let () (declare (not safe)) - (cons _id220683_ '()))) - (__tmp233396 - (let ((__tmp233397 - (if _compile?220685_ + (cons _id220613_ '()))) + (__tmp233326 + (let ((__tmp233327 + (if _compile?220615_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr220684_)) - _expr220684_))) + (gxc#compile-e__0 _expr220614_)) + _expr220614_))) (declare (not safe)) - (cons __tmp233397 '())))) + (cons __tmp233327 '())))) (declare (not safe)) - (cons __tmp233398 __tmp233396)))) - (_bind-e__0__231064231065_ - (lambda (_id220690_ _expr220691_) - (let ((_compile?220693_ '#t)) + (cons __tmp233328 __tmp233326)))) + (_bind-e__0__230994230995_ + (lambda (_id220620_ _expr220621_) + (let ((_compile?220623_ '#t)) (declare (not safe)) - (_bind-e__231062231063_ - _id220690_ - _expr220691_ - _compile?220693_)))) - (_bind-e219633_ - (lambda _g233400_ - (let ((_g233399_ + (_bind-e__230992230993_ + _id220620_ + _expr220621_ + _compile?220623_)))) + (_bind-e219563_ + (lambda _g233330_ + (let ((_g233329_ (let () (declare (not safe)) - (##length _g233400_)))) - (cond ((let () (declare (not safe)) (##fx= _g233399_ 2)) - (apply (lambda (_id220690_ _expr220691_) + (##length _g233330_)))) + (cond ((let () (declare (not safe)) (##fx= _g233329_ 2)) + (apply (lambda (_id220620_ _expr220621_) (let () (declare (not safe)) - (_bind-e__0__231064231065_ - _id220690_ - _expr220691_))) - _g233400_)) - ((let () (declare (not safe)) (##fx= _g233399_ 3)) - (apply (lambda (_id220695_ - _expr220696_ - _compile?220697_) + (_bind-e__0__230994230995_ + _id220620_ + _expr220621_))) + _g233330_)) + ((let () (declare (not safe)) (##fx= _g233329_ 3)) + (apply (lambda (_id220625_ + _expr220626_ + _compile?220627_) (let () (declare (not safe)) - (_bind-e__231062231063_ - _id220695_ - _expr220696_ - _compile?220697_))) - _g233400_)) + (_bind-e__230992230993_ + _id220625_ + _expr220626_ + _compile?220627_))) + _g233330_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g233400_)))))) - (_compile-bindings219634_ - (lambda (_bindings220267_) - (let _lp220269_ ((_rest220271_ _bindings220267_) - (_lift1220272_ '()) - (_lift2220273_ '()) - (_bind220274_ '())) - (let* ((_rest220275220283_ _rest220271_) - (_else220277220291_ + _g233330_)))))) + (_compile-bindings219564_ + (lambda (_bindings220197_) + (let _lp220199_ ((_rest220201_ _bindings220197_) + (_lift1220202_ '()) + (_lift2220203_ '()) + (_bind220204_ '())) + (let* ((_rest220205220213_ _rest220201_) + (_else220207220221_ (lambda () - (values (reverse _lift1220272_) - (reverse _lift2220273_) - (reverse _bind220274_)))) - (_K220279220670_ - (lambda (_rest220294_ _hd220295_) - (let* ((___stx232802232803_ _hd220295_) - (_g220299220335_ + (values (reverse _lift1220202_) + (reverse _lift2220203_) + (reverse _bind220204_)))) + (_K220209220600_ + (lambda (_rest220224_ _hd220225_) + (let* ((___stx232732232733_ _hd220225_) + (_g220229220265_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232802232803_))))) - (let ((___kont232804232805_ - (lambda (_L220577_ _L220578_) - (let* ((___stx232782232783_ - _L220577_) - (_g220593220607_ + ___stx232732232733_))))) + (let ((___kont232734232735_ + (lambda (_L220507_ _L220508_) + (let* ((___stx232712232713_ + _L220507_) + (_g220523220537_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232782232783_))))) - (let ((___kont232784232785_ - (lambda (_L220655_) - (let ((__tmp233401 - (let ((__tmp233402 + ___stx232712232713_))))) + (let ((___kont232714232715_ + (lambda (_L220585_) + (let ((__tmp233331 + (let ((__tmp233332 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__231062231063_ - _L220578_ - _L220577_ + (_bind-e__230992230993_ + _L220508_ + _L220507_ '#f)))) (declare (not safe)) - (cons __tmp233402 _bind220274_)))) + (cons __tmp233332 _bind220204_)))) (declare (not safe)) - (_lp220269_ - _rest220294_ - _lift1220272_ - _lift2220273_ - __tmp233401)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232786232787_ - (lambda (_L220620_) - (let ((_g233403_ + (_lp220199_ + _rest220224_ + _lift1220202_ + _lift2220203_ + __tmp233331)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232716232717_ + (lambda (_L220550_) + (let ((_g233333_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx219631_ - _L220578_ - _L220620_ + _stx219561_ + _L220508_ + _L220550_ '#t)))) (begin - (let ((_g233404_ + (let ((_g233334_ (let () (declare (not safe)) - (if (##values? _g233403_) - (##vector-length _g233403_) + (if (##values? _g233333_) + (##vector-length _g233333_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g233404_ 3))) - (error "Context expects 3 values" _g233404_))) - (let ((_ids220630_ + (##fx= _g233334_ 3))) + (error "Context expects 3 values" _g233334_))) + (let ((_ids220560_ (let () (declare (not safe)) - (##vector-ref _g233403_ 0))) - (_impls220631_ + (##vector-ref _g233333_ 0))) + (_impls220561_ (let () (declare (not safe)) - (##vector-ref _g233403_ 1))) - (_clauses220632_ + (##vector-ref _g233333_ 1))) + (_clauses220562_ (let () (declare (not safe)) - (##vector-ref _g233403_ 2)))) - (let* ((_g233405_ - (for-each gx#core-bind-runtime! _ids220630_)) - (_xbind220635_ - (map _bind-e219633_ _ids220630_ _impls220631_)) - (_expr*220637_ - (let ((__tmp233407 + (##vector-ref _g233333_ 2)))) + (let* ((_g233335_ + (for-each gx#core-bind-runtime! _ids220560_)) + (_xbind220565_ + (map _bind-e219563_ _ids220560_ _impls220561_)) + (_expr*220567_ + (let ((__tmp233337 (let () (declare (not safe)) - (cons '%#case-lambda _clauses220632_))) - (__tmp233406 + (cons '%#case-lambda _clauses220562_))) + (__tmp233336 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -12391,1893 +12391,1893 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp233407 - __tmp233406))) - (_bind*220639_ + __tmp233337 + __tmp233336))) + (_bind*220569_ (let () (declare (not safe)) - (_bind-e__231062231063_ - _L220578_ - _expr*220637_ + (_bind-e__230992230993_ + _L220508_ + _expr*220567_ '#f)))) - (let ((__tmp233409 + (let ((__tmp233339 (let () (declare (not safe)) - (gxc#identifier-symbol _L220578_))) - (__tmp233408 - (map gxc#identifier-symbol _ids220630_))) + (gxc#identifier-symbol _L220508_))) + (__tmp233338 + (map gxc#identifier-symbol _ids220560_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp233409 + __tmp233339 '" => " - __tmp233408)) - (let ((__tmp233411 + __tmp233338)) + (let ((__tmp233341 (let () (declare (not safe)) - (foldl1 cons _lift2220273_ _xbind220635_))) - (__tmp233410 + (foldl1 cons _lift2220203_ _xbind220565_))) + (__tmp233340 (let () (declare (not safe)) - (cons _bind*220639_ _bind220274_)))) + (cons _bind*220569_ _bind220204_)))) (declare (not safe)) - (_lp220269_ - _rest220294_ - _lift1220272_ - __tmp233411 - __tmp233410))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match232793232794_ - (lambda (_e220598220647_ - _hd220597220650_ - _tl220596220652_) - (let ((_L220655_ - _tl220596220652_)) + (_lp220199_ + _rest220224_ + _lift1220202_ + __tmp233341 + __tmp233340))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match232723232724_ + (lambda (_e220528220577_ + _hd220527220580_ + _tl220526220582_) + (let ((_L220585_ + _tl220526220582_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L220655_)) - (___kont232784232785_ _L220655_) - (___kont232786232787_ _tl220596220652_)))))) + (andmap1 gxc#dispatch-lambda-form? _L220585_)) + (___kont232714232715_ _L220585_) + (___kont232716232717_ _tl220526220582_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx232782232783_)) - (let ((_e220598220647_ + ___stx232712232713_)) + (let ((_e220528220577_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx232782232783_)))) - (let ((_tl220596220652_ - (let () (declare (not safe)) (##cdr _e220598220647_))) - (_hd220597220650_ - (let () (declare (not safe)) (##car _e220598220647_)))) - (___match232793232794_ - _e220598220647_ - _hd220597220650_ - _tl220596220652_))) - (let () (declare (not safe)) (_g220593220607_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232806232807_ - (lambda (_L220405_ _L220406_) - (let* ((_g220420220450_ - (lambda (_g220421220447_) + (gx#stx-e ___stx232712232713_)))) + (let ((_tl220526220582_ + (let () (declare (not safe)) (##cdr _e220528220577_))) + (_hd220527220580_ + (let () (declare (not safe)) (##car _e220528220577_)))) + (___match232723232724_ + _e220528220577_ + _hd220527220580_ + _tl220526220582_))) + (let () (declare (not safe)) (_g220523220537_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232736232737_ + (lambda (_L220335_ _L220336_) + (let* ((_g220350220380_ + (lambda (_g220351220377_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220421220447_)))) - (_g220419220545_ - (lambda (_g220421220453_) + _g220351220377_)))) + (_g220349220475_ + (lambda (_g220351220383_) (if (let () (declare (not safe)) (gx#stx-pair? - _g220421220453_)) - (let ((_e220427220455_ + _g220351220383_)) + (let ((_e220357220385_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g220421220453_)))) - (let ((_hd220426220458_ + (gx#stx-e _g220351220383_)))) + (let ((_hd220356220388_ (let () (declare (not safe)) - (##car _e220427220455_))) - (_tl220425220460_ + (##car _e220357220385_))) + (_tl220355220390_ (let () (declare (not safe)) - (##cdr _e220427220455_)))) + (##cdr _e220357220385_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220425220460_)) - (let ((_e220430220463_ + (gx#stx-pair? _tl220355220390_)) + (let ((_e220360220393_ (let () (declare (not safe)) - (gx#stx-e _tl220425220460_)))) - (let ((_hd220429220466_ + (gx#stx-e _tl220355220390_)))) + (let ((_hd220359220396_ (let () (declare (not safe)) - (##car _e220430220463_))) - (_tl220428220468_ + (##car _e220360220393_))) + (_tl220358220398_ (let () (declare (not safe)) - (##cdr _e220430220463_)))) + (##cdr _e220360220393_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd220429220466_)) - (let ((_e220433220471_ + (gx#stx-pair? _hd220359220396_)) + (let ((_e220363220401_ (let () (declare (not safe)) - (gx#stx-e _hd220429220466_)))) - (let ((_hd220432220474_ + (gx#stx-e _hd220359220396_)))) + (let ((_hd220362220404_ (let () (declare (not safe)) - (##car _e220433220471_))) - (_tl220431220476_ + (##car _e220363220401_))) + (_tl220361220406_ (let () (declare (not safe)) - (##cdr _e220433220471_)))) + (##cdr _e220363220401_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd220432220474_)) - (let ((_e220436220479_ + (gx#stx-pair? _hd220362220404_)) + (let ((_e220366220409_ (let () (declare (not safe)) (gx#stx-e - _hd220432220474_)))) - (let ((_hd220435220482_ + _hd220362220404_)))) + (let ((_hd220365220412_ (let () (declare (not safe)) - (##car _e220436220479_))) - (_tl220434220484_ + (##car _e220366220409_))) + (_tl220364220414_ (let () (declare (not safe)) - (##cdr _e220436220479_)))) + (##cdr _e220366220409_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd220435220482_)) - (let ((_e220439220487_ + _hd220365220412_)) + (let ((_e220369220417_ (let () (declare (not safe)) (gx#stx-e - _hd220435220482_)))) - (let ((_hd220438220490_ + _hd220365220412_)))) + (let ((_hd220368220420_ (let () (declare (not safe)) - (##car _e220439220487_))) - (_tl220437220492_ + (##car _e220369220417_))) + (_tl220367220422_ (let () (declare (not safe)) - (##cdr _e220439220487_)))) + (##cdr _e220369220417_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220437220492_)) + _tl220367220422_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl220434220484_)) - (let ((_e220442220495_ + (gx#stx-pair? _tl220364220414_)) + (let ((_e220372220425_ (let () (declare (not safe)) - (gx#stx-e _tl220434220484_)))) - (let ((_hd220441220498_ + (gx#stx-e _tl220364220414_)))) + (let ((_hd220371220428_ (let () (declare (not safe)) - (##car _e220442220495_))) - (_tl220440220500_ + (##car _e220372220425_))) + (_tl220370220430_ (let () (declare (not safe)) - (##cdr _e220442220495_)))) + (##cdr _e220372220425_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl220440220500_)) + (gx#stx-null? _tl220370220430_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl220431220476_)) + (gx#stx-null? _tl220361220406_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220428220468_)) - (let ((_e220445220503_ + (gx#stx-pair? _tl220358220398_)) + (let ((_e220375220433_ (let () (declare (not safe)) - (gx#stx-e _tl220428220468_)))) - (let ((_hd220444220506_ + (gx#stx-e _tl220358220398_)))) + (let ((_hd220374220436_ (let () (declare (not safe)) - (##car _e220445220503_))) - (_tl220443220508_ + (##car _e220375220433_))) + (_tl220373220438_ (let () (declare (not safe)) - (##cdr _e220445220503_)))) + (##cdr _e220375220433_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220443220508_)) - ((lambda (_L220511_ - _L220512_ - _L220513_) - (let* ((_lambda-id220537_ - (let ((__tmp233413 + _tl220373220438_)) + ((lambda (_L220441_ + _L220442_ + _L220443_) + (let* ((_lambda-id220467_ + (let ((__tmp233343 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L220406_))) - (__tmp233412 (gensym '__))) + (gx#stx-e _L220336_))) + (__tmp233342 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp233413 __tmp233412))) - (_lambda-id220539_ - (let ((__tmp233414 + (make-symbol__1 __tmp233343 __tmp233342))) + (_lambda-id220469_ + (let ((__tmp233344 (let () (declare (not safe)) - (gx#stx-source _stx219631_)))) + (gx#stx-source _stx219561_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id220537_ __tmp233414))) - (_g233415_ + (gx#core-quote-syntax__1 _lambda-id220467_ __tmp233344))) + (_g233345_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id220539_))) - (_new-case-lambda-expr220542_ + (gx#core-bind-runtime!__0 _lambda-id220469_))) + (_new-case-lambda-expr220472_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L220511_ - _L220513_ - _lambda-id220539_)))) + _L220441_ + _L220443_ + _lambda-id220469_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp233417 + (let ((__tmp233347 (let () (declare (not safe)) (gxc#identifier-symbol - _L220406_))) - (__tmp233416 + _L220336_))) + (__tmp233346 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id220539_)))) + _lambda-id220469_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp233417 + __tmp233347 '" => " - __tmp233416)) - (let ((__tmp233420 - (let ((__tmp233421 + __tmp233346)) + (let ((__tmp233350 + (let ((__tmp233351 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__231062231063_ - _L220406_ - _new-case-lambda-expr220542_ + (_bind-e__230992230993_ + _L220336_ + _new-case-lambda-expr220472_ '#f)))) (declare (not safe)) - (cons __tmp233421 _rest220294_))) - (__tmp233418 - (let ((__tmp233419 + (cons __tmp233351 _rest220224_))) + (__tmp233348 + (let ((__tmp233349 (let () (declare (not safe)) - (_bind-e__0__231064231065_ - _lambda-id220539_ - _L220512_)))) + (_bind-e__0__230994230995_ + _lambda-id220469_ + _L220442_)))) (declare (not safe)) - (cons __tmp233419 _lift1220272_)))) + (cons __tmp233349 _lift1220202_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp220269_ - __tmp233420 - __tmp233418 - _lift2220273_ - _bind220274_)))) - _hd220444220506_ - _hd220441220498_ - _hd220438220490_) + (_lp220199_ + __tmp233350 + __tmp233348 + _lift2220203_ + _bind220204_)))) + _hd220374220436_ + _hd220371220428_ + _hd220368220420_) (let () (declare (not safe)) - (_g220420220450_ - _g220421220453_))))) + (_g220350220380_ + _g220351220383_))))) (let () (declare (not safe)) - (_g220420220450_ _g220421220453_))) + (_g220350220380_ _g220351220383_))) (let () (declare (not safe)) - (_g220420220450_ _g220421220453_))) + (_g220350220380_ _g220351220383_))) (let () (declare (not safe)) - (_g220420220450_ _g220421220453_))))) + (_g220350220380_ _g220351220383_))))) (let () (declare (not safe)) - (_g220420220450_ _g220421220453_))) + (_g220350220380_ _g220351220383_))) (let () (declare (not safe)) - (_g220420220450_ _g220421220453_))))) + (_g220350220380_ _g220351220383_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g220420220450_ - _g220421220453_))))) + (_g220350220380_ + _g220351220383_))))) (let () (declare (not safe)) - (_g220420220450_ - _g220421220453_))))) + (_g220350220380_ + _g220351220383_))))) (let () (declare (not safe)) - (_g220420220450_ _g220421220453_))))) + (_g220350220380_ _g220351220383_))))) (let () (declare (not safe)) - (_g220420220450_ _g220421220453_))))) + (_g220350220380_ _g220351220383_))))) (let () (declare (not safe)) - (_g220420220450_ _g220421220453_)))))) + (_g220350220380_ _g220351220383_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g220419220545_ _L220405_)))) - (___kont232808232809_ - (lambda (_L220356_ _L220357_) - (let ((__tmp233422 - (let ((__tmp233423 - (let ((__tmp233424 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233425 + (_g220349220475_ _L220335_)))) + (___kont232738232739_ + (lambda (_L220286_ _L220287_) + (let ((__tmp233352 + (let ((__tmp233353 + (let ((__tmp233354 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp233355 (let () (declare (not safe)) - (gxc#compile-e__0 _L220356_)))) + (gxc#compile-e__0 _L220286_)))) (declare (not safe)) - (cons __tmp233425 '())))) + (cons __tmp233355 '())))) (declare (not safe)) - (cons _L220357_ __tmp233424)))) + (cons _L220287_ __tmp233354)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp233423 - _bind220274_)))) + (cons __tmp233353 + _bind220204_)))) (declare (not safe)) - (_lp220269_ - _rest220294_ - _lift1220272_ - _lift2220273_ - __tmp233422))))) - (let* ((___match232853232854_ - (lambda (_e220316220381_ - _hd220315220384_ - _tl220314220386_ - _e220319220389_ - _hd220318220392_ - _tl220317220394_ - _e220322220397_ - _hd220321220400_ - _tl220320220402_) - (let ((_L220405_ - _hd220321220400_) - (_L220406_ - _hd220318220392_)) + (_lp220199_ + _rest220224_ + _lift1220202_ + _lift2220203_ + __tmp233352))))) + (let* ((___match232783232784_ + (lambda (_e220246220311_ + _hd220245220314_ + _tl220244220316_ + _e220249220319_ + _hd220248220322_ + _tl220247220324_ + _e220252220327_ + _hd220251220330_ + _tl220250220332_) + (let ((_L220335_ + _hd220251220330_) + (_L220336_ + _hd220248220322_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L220406_)) + _L220336_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L220405_))) - (___kont232806232807_ - _L220405_ - _L220406_) - (___kont232808232809_ - _hd220321220400_ - _hd220315220384_))))) - (___match232831232832_ - (lambda (_e220305220553_ - _hd220304220556_ - _tl220303220558_ - _e220308220561_ - _hd220307220564_ - _tl220306220566_ - _e220311220569_ - _hd220310220572_ - _tl220309220574_) - (let ((_L220577_ - _hd220310220572_) - (_L220578_ - _hd220307220564_)) + _L220335_))) + (___kont232736232737_ + _L220335_ + _L220336_) + (___kont232738232739_ + _hd220251220330_ + _hd220245220314_))))) + (___match232761232762_ + (lambda (_e220235220483_ + _hd220234220486_ + _tl220233220488_ + _e220238220491_ + _hd220237220494_ + _tl220236220496_ + _e220241220499_ + _hd220240220502_ + _tl220239220504_) + (let ((_L220507_ + _hd220240220502_) + (_L220508_ + _hd220237220494_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L220578_)) + _L220508_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L220577_))) - (___kont232804232805_ - _L220577_ - _L220578_) - (___match232853232854_ - _e220305220553_ - _hd220304220556_ - _tl220303220558_ - _e220308220561_ - _hd220307220564_ - _tl220306220566_ - _e220311220569_ - _hd220310220572_ - _tl220309220574_)))))) + _L220507_))) + (___kont232734232735_ + _L220507_ + _L220508_) + (___match232783232784_ + _e220235220483_ + _hd220234220486_ + _tl220233220488_ + _e220238220491_ + _hd220237220494_ + _tl220236220496_ + _e220241220499_ + _hd220240220502_ + _tl220239220504_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx232802232803_)) - (let ((_e220305220553_ + ___stx232732232733_)) + (let ((_e220235220483_ (let () (declare (not safe)) (gx#stx-e - ___stx232802232803_)))) - (let ((_tl220303220558_ + ___stx232732232733_)))) + (let ((_tl220233220488_ (let () (declare (not safe)) - (##cdr _e220305220553_))) - (_hd220304220556_ + (##cdr _e220235220483_))) + (_hd220234220486_ (let () (declare (not safe)) - (##car _e220305220553_)))) + (##car _e220235220483_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd220304220556_)) - (let ((_e220308220561_ + _hd220234220486_)) + (let ((_e220238220491_ (let () (declare (not safe)) (gx#stx-e - _hd220304220556_)))) - (let ((_tl220306220566_ + _hd220234220486_)))) + (let ((_tl220236220496_ (let () (declare (not safe)) - (##cdr _e220308220561_))) - (_hd220307220564_ + (##cdr _e220238220491_))) + (_hd220237220494_ (let () (declare (not safe)) - (##car _e220308220561_)))) + (##car _e220238220491_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220306220566_)) + _tl220236220496_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl220303220558_)) - (let ((_e220311220569_ + (gx#stx-pair? _tl220233220488_)) + (let ((_e220241220499_ (let () (declare (not safe)) - (gx#stx-e _tl220303220558_)))) - (let ((_tl220309220574_ + (gx#stx-e _tl220233220488_)))) + (let ((_tl220239220504_ (let () (declare (not safe)) - (##cdr _e220311220569_))) - (_hd220310220572_ + (##cdr _e220241220499_))) + (_hd220240220502_ (let () (declare (not safe)) - (##car _e220311220569_)))) + (##car _e220241220499_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl220309220574_)) - (___match232831232832_ - _e220305220553_ - _hd220304220556_ - _tl220303220558_ - _e220308220561_ - _hd220307220564_ - _tl220306220566_ - _e220311220569_ - _hd220310220572_ - _tl220309220574_) + (gx#stx-null? _tl220239220504_)) + (___match232761232762_ + _e220235220483_ + _hd220234220486_ + _tl220233220488_ + _e220238220491_ + _hd220237220494_ + _tl220236220496_ + _e220241220499_ + _hd220240220502_ + _tl220239220504_) (let () (declare (not safe)) - (_g220299220335_))))) - (let () (declare (not safe)) (_g220299220335_))) + (_g220229220265_))))) + (let () (declare (not safe)) (_g220229220265_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220303220558_)) - (let ((_e220330220348_ + (gx#stx-pair? _tl220233220488_)) + (let ((_e220260220278_ (let () (declare (not safe)) - (gx#stx-e _tl220303220558_)))) - (let ((_tl220328220353_ + (gx#stx-e _tl220233220488_)))) + (let ((_tl220258220283_ (let () (declare (not safe)) - (##cdr _e220330220348_))) - (_hd220329220351_ + (##cdr _e220260220278_))) + (_hd220259220281_ (let () (declare (not safe)) - (##car _e220330220348_)))) + (##car _e220260220278_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl220328220353_)) - (___kont232808232809_ - _hd220329220351_ - _hd220304220556_) + (gx#stx-null? _tl220258220283_)) + (___kont232738232739_ + _hd220259220281_ + _hd220234220486_) (let () (declare (not safe)) - (_g220299220335_))))) - (let () (declare (not safe)) (_g220299220335_)))))) + (_g220229220265_))))) + (let () (declare (not safe)) (_g220229220265_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl220303220558_)) - (let ((_e220330220348_ + _tl220233220488_)) + (let ((_e220260220278_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl220303220558_)))) - (let ((_tl220328220353_ - (let () (declare (not safe)) (##cdr _e220330220348_))) - (_hd220329220351_ - (let () (declare (not safe)) (##car _e220330220348_)))) + (gx#stx-e _tl220233220488_)))) + (let ((_tl220258220283_ + (let () (declare (not safe)) (##cdr _e220260220278_))) + (_hd220259220281_ + (let () (declare (not safe)) (##car _e220260220278_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl220328220353_)) - (___kont232808232809_ _hd220329220351_ _hd220304220556_) - (let () (declare (not safe)) (_g220299220335_))))) - (let () (declare (not safe)) (_g220299220335_)))))) + (gx#stx-null? _tl220258220283_)) + (___kont232738232739_ _hd220259220281_ _hd220234220486_) + (let () (declare (not safe)) (_g220229220265_))))) + (let () (declare (not safe)) (_g220229220265_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g220299220335_))))))))) + (_g220229220265_))))))))) (if (let () (declare (not safe)) - (##pair? _rest220275220283_)) - (let ((_hd220280220673_ + (##pair? _rest220205220213_)) + (let ((_hd220210220603_ (let () (declare (not safe)) - (##car _rest220275220283_))) - (_tl220281220675_ + (##car _rest220205220213_))) + (_tl220211220605_ (let () (declare (not safe)) - (##cdr _rest220275220283_)))) - (let* ((_hd220678_ _hd220280220673_) - (_rest220680_ _tl220281220675_)) + (##cdr _rest220205220213_)))) + (let* ((_hd220608_ _hd220210220603_) + (_rest220610_ _tl220211220605_)) (declare (not safe)) - (_K220279220670_ _rest220680_ _hd220678_))) + (_K220209220600_ _rest220610_ _hd220608_))) (let () (declare (not safe)) - (_else220277220291_))))))) - (_lift-kw-lambda?219635_ - (lambda (_bind220191_) - (let* ((___stx232870232871_ _bind220191_) - (_g220194220211_ + (_else220207220221_))))))) + (_lift-kw-lambda?219565_ + (lambda (_bind220121_) + (let* ((___stx232800232801_ _bind220121_) + (_g220124220141_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232870232871_))))) - (let ((___kont232872232873_ - (lambda (_L220247_ _L220248_) + ___stx232800232801_))))) + (let ((___kont232802232803_ + (lambda (_L220177_ _L220178_) (if (let () (declare (not safe)) - (gx#identifier? _L220248_)) + (gx#identifier? _L220178_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L220247_)) + (gxc#kw-lambda-expr? _L220177_)) '#f))) - (___kont232874232875_ (lambda () '#f))) + (___kont232804232805_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx232870232871_)) - (let ((_e220200220223_ + (gx#stx-pair? ___stx232800232801_)) + (let ((_e220130220153_ (let () (declare (not safe)) - (gx#stx-e ___stx232870232871_)))) - (let ((_tl220198220228_ + (gx#stx-e ___stx232800232801_)))) + (let ((_tl220128220158_ (let () (declare (not safe)) - (##cdr _e220200220223_))) - (_hd220199220226_ + (##cdr _e220130220153_))) + (_hd220129220156_ (let () (declare (not safe)) - (##car _e220200220223_)))) + (##car _e220130220153_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd220199220226_)) - (let ((_e220203220231_ + (gx#stx-pair? _hd220129220156_)) + (let ((_e220133220161_ (let () (declare (not safe)) - (gx#stx-e _hd220199220226_)))) - (let ((_tl220201220236_ + (gx#stx-e _hd220129220156_)))) + (let ((_tl220131220166_ (let () (declare (not safe)) - (##cdr _e220203220231_))) - (_hd220202220234_ + (##cdr _e220133220161_))) + (_hd220132220164_ (let () (declare (not safe)) - (##car _e220203220231_)))) + (##car _e220133220161_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl220201220236_)) + (gx#stx-null? _tl220131220166_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl220198220228_)) - (let ((_e220206220239_ + _tl220128220158_)) + (let ((_e220136220169_ (let () (declare (not safe)) (gx#stx-e - _tl220198220228_)))) - (let ((_tl220204220244_ + _tl220128220158_)))) + (let ((_tl220134220174_ (let () (declare (not safe)) - (##cdr _e220206220239_))) - (_hd220205220242_ + (##cdr _e220136220169_))) + (_hd220135220172_ (let () (declare (not safe)) - (##car _e220206220239_)))) + (##car _e220136220169_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220204220244_)) - (___kont232872232873_ - _hd220205220242_ - _hd220202220234_) - (___kont232874232875_)))) - (___kont232874232875_)) - (___kont232874232875_)))) - (___kont232874232875_)))) - (___kont232874232875_)))))) - (_lift-kw-lambda-bindings219636_ - (lambda (_bindings219803_) - (let _lp219805_ ((_rest219807_ _bindings219803_) - (_lift1219808_ '()) - (_lift2219809_ '()) - (_bind219810_ '())) - (let* ((_rest219811219819_ _rest219807_) - (_else219813219827_ + _tl220134220174_)) + (___kont232802232803_ + _hd220135220172_ + _hd220132220164_) + (___kont232804232805_)))) + (___kont232804232805_)) + (___kont232804232805_)))) + (___kont232804232805_)))) + (___kont232804232805_)))))) + (_lift-kw-lambda-bindings219566_ + (lambda (_bindings219733_) + (let _lp219735_ ((_rest219737_ _bindings219733_) + (_lift1219738_ '()) + (_lift2219739_ '()) + (_bind219740_ '())) + (let* ((_rest219741219749_ _rest219737_) + (_else219743219757_ (lambda () - (values (reverse _lift1219808_) - (reverse _lift2219809_) - (reverse _bind219810_)))) - (_K219815220179_ - (lambda (_rest219830_ _hd219831_) - (let* ((___stx232900232901_ _hd219831_) - (_g219834219859_ + (values (reverse _lift1219738_) + (reverse _lift2219739_) + (reverse _bind219740_)))) + (_K219745220109_ + (lambda (_rest219760_ _hd219761_) + (let* ((___stx232830232831_ _hd219761_) + (_g219764219789_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232900232901_))))) - (let ((___kont232902232903_ - (lambda (_L219929_ _L219930_) - (let* ((_g219944219997_ - (lambda (_g219945219994_) + ___stx232830232831_))))) + (let ((___kont232832232833_ + (lambda (_L219859_ _L219860_) + (let* ((_g219874219927_ + (lambda (_g219875219924_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219945219994_)))) - (_g219943220173_ - (lambda (_g219945220000_) + _g219875219924_)))) + (_g219873220103_ + (lambda (_g219875219930_) (if (let () (declare (not safe)) (gx#stx-pair? - _g219945220000_)) - (let ((_e219953220002_ + _g219875219930_)) + (let ((_e219883219932_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g219945220000_)))) - (let ((_hd219952220005_ + (gx#stx-e _g219875219930_)))) + (let ((_hd219882219935_ (let () (declare (not safe)) - (##car _e219953220002_))) - (_tl219951220007_ + (##car _e219883219932_))) + (_tl219881219937_ (let () (declare (not safe)) - (##cdr _e219953220002_)))) + (##cdr _e219883219932_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219951220007_)) - (let ((_e219956220010_ + (gx#stx-pair? _tl219881219937_)) + (let ((_e219886219940_ (let () (declare (not safe)) - (gx#stx-e _tl219951220007_)))) - (let ((_hd219955220013_ + (gx#stx-e _tl219881219937_)))) + (let ((_hd219885219943_ (let () (declare (not safe)) - (##car _e219956220010_))) - (_tl219954220015_ + (##car _e219886219940_))) + (_tl219884219945_ (let () (declare (not safe)) - (##cdr _e219956220010_)))) + (##cdr _e219886219940_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219955220013_)) - (let ((_e219959220018_ + (gx#stx-pair? _hd219885219943_)) + (let ((_e219889219948_ (let () (declare (not safe)) - (gx#stx-e _hd219955220013_)))) - (let ((_hd219958220021_ + (gx#stx-e _hd219885219943_)))) + (let ((_hd219888219951_ (let () (declare (not safe)) - (##car _e219959220018_))) - (_tl219957220023_ + (##car _e219889219948_))) + (_tl219887219953_ (let () (declare (not safe)) - (##cdr _e219959220018_)))) + (##cdr _e219889219948_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219958220021_)) - (let ((_e219962220026_ + (gx#stx-pair? _hd219888219951_)) + (let ((_e219892219956_ (let () (declare (not safe)) (gx#stx-e - _hd219958220021_)))) - (let ((_hd219961220029_ + _hd219888219951_)))) + (let ((_hd219891219959_ (let () (declare (not safe)) - (##car _e219962220026_))) - (_tl219960220031_ + (##car _e219892219956_))) + (_tl219890219961_ (let () (declare (not safe)) - (##cdr _e219962220026_)))) + (##cdr _e219892219956_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd219961220029_)) - (let ((_e219965220034_ + _hd219891219959_)) + (let ((_e219895219964_ (let () (declare (not safe)) (gx#stx-e - _hd219961220029_)))) - (let ((_hd219964220037_ + _hd219891219959_)))) + (let ((_hd219894219967_ (let () (declare (not safe)) - (##car _e219965220034_))) - (_tl219963220039_ + (##car _e219895219964_))) + (_tl219893219969_ (let () (declare (not safe)) - (##cdr _e219965220034_)))) + (##cdr _e219895219964_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219963220039_)) + _tl219893219969_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl219960220031_)) - (let ((_e219968220042_ + (gx#stx-pair? _tl219890219961_)) + (let ((_e219898219972_ (let () (declare (not safe)) - (gx#stx-e _tl219960220031_)))) - (let ((_hd219967220045_ + (gx#stx-e _tl219890219961_)))) + (let ((_hd219897219975_ (let () (declare (not safe)) - (##car _e219968220042_))) - (_tl219966220047_ + (##car _e219898219972_))) + (_tl219896219977_ (let () (declare (not safe)) - (##cdr _e219968220042_)))) + (##cdr _e219898219972_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219967220045_)) - (let ((_e219971220050_ + (gx#stx-pair? _hd219897219975_)) + (let ((_e219901219980_ (let () (declare (not safe)) - (gx#stx-e _hd219967220045_)))) - (let ((_hd219970220053_ + (gx#stx-e _hd219897219975_)))) + (let ((_hd219900219983_ (let () (declare (not safe)) - (##car _e219971220050_))) - (_tl219969220055_ + (##car _e219901219980_))) + (_tl219899219985_ (let () (declare (not safe)) - (##cdr _e219971220050_)))) + (##cdr _e219901219980_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219969220055_)) - (let ((_e219974220058_ + (gx#stx-pair? _tl219899219985_)) + (let ((_e219904219988_ (let () (declare (not safe)) - (gx#stx-e _tl219969220055_)))) - (let ((_hd219973220061_ + (gx#stx-e _tl219899219985_)))) + (let ((_hd219903219991_ (let () (declare (not safe)) - (##car _e219974220058_))) - (_tl219972220063_ + (##car _e219904219988_))) + (_tl219902219993_ (let () (declare (not safe)) - (##cdr _e219974220058_)))) + (##cdr _e219904219988_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd219973220061_)) - (let ((_e219977220066_ + _hd219903219991_)) + (let ((_e219907219996_ (let () (declare (not safe)) (gx#stx-e - _hd219973220061_)))) - (let ((_hd219976220069_ + _hd219903219991_)))) + (let ((_hd219906219999_ (let () (declare (not safe)) - (##car _e219977220066_))) - (_tl219975220071_ + (##car _e219907219996_))) + (_tl219905220001_ (let () (declare (not safe)) - (##cdr _e219977220066_)))) + (##cdr _e219907219996_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd219976220069_)) - (let ((_e219980220074_ + _hd219906219999_)) + (let ((_e219910220004_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd219976220069_)))) - (let ((_hd219979220077_ - (let () (declare (not safe)) (##car _e219980220074_))) - (_tl219978220079_ - (let () (declare (not safe)) (##cdr _e219980220074_)))) + (gx#stx-e _hd219906219999_)))) + (let ((_hd219909220007_ + (let () (declare (not safe)) (##car _e219910220004_))) + (_tl219908220009_ + (let () (declare (not safe)) (##cdr _e219910220004_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219979220077_)) - (let ((_e219983220082_ + (gx#stx-pair? _hd219909220007_)) + (let ((_e219913220012_ (let () (declare (not safe)) - (gx#stx-e _hd219979220077_)))) - (let ((_hd219982220085_ + (gx#stx-e _hd219909220007_)))) + (let ((_hd219912220015_ (let () (declare (not safe)) - (##car _e219983220082_))) - (_tl219981220087_ + (##car _e219913220012_))) + (_tl219911220017_ (let () (declare (not safe)) - (##cdr _e219983220082_)))) + (##cdr _e219913220012_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219981220087_)) + (gx#stx-null? _tl219911220017_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219978220079_)) - (let ((_e219986220090_ + (gx#stx-pair? _tl219908220009_)) + (let ((_e219916220020_ (let () (declare (not safe)) - (gx#stx-e _tl219978220079_)))) - (let ((_hd219985220093_ + (gx#stx-e _tl219908220009_)))) + (let ((_hd219915220023_ (let () (declare (not safe)) - (##car _e219986220090_))) - (_tl219984220095_ + (##car _e219916220020_))) + (_tl219914220025_ (let () (declare (not safe)) - (##cdr _e219986220090_)))) + (##cdr _e219916220020_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219984220095_)) + (gx#stx-null? _tl219914220025_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl219975220071_)) + _tl219905220001_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl219972220063_)) - (let ((_e219989220098_ + _tl219902219993_)) + (let ((_e219919220028_ (let () (declare (not safe)) (gx#stx-e - _tl219972220063_)))) - (let ((_hd219988220101_ + _tl219902219993_)))) + (let ((_hd219918220031_ (let () (declare (not safe)) - (##car _e219989220098_))) - (_tl219987220103_ + (##car _e219919220028_))) + (_tl219917220033_ (let () (declare (not safe)) - (##cdr _e219989220098_)))) + (##cdr _e219919220028_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219987220103_)) + _tl219917220033_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl219966220047_)) + (gx#stx-null? _tl219896219977_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl219957220023_)) + (gx#stx-null? _tl219887219953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219954220015_)) - (let ((_e219992220106_ + (gx#stx-pair? _tl219884219945_)) + (let ((_e219922220036_ (let () (declare (not safe)) - (gx#stx-e _tl219954220015_)))) - (let ((_hd219991220109_ + (gx#stx-e _tl219884219945_)))) + (let ((_hd219921220039_ (let () (declare (not safe)) - (##car _e219992220106_))) - (_tl219990220111_ + (##car _e219922220036_))) + (_tl219920220041_ (let () (declare (not safe)) - (##cdr _e219992220106_)))) + (##cdr _e219922220036_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219990220111_)) - ((lambda (_L220114_ - _L220115_ - _L220116_ - _L220117_ - _L220118_) - (let* ((_get-kws-id220158_ - (let ((__tmp233427 + (gx#stx-null? _tl219920220041_)) + ((lambda (_L220044_ + _L220045_ + _L220046_ + _L220047_ + _L220048_) + (let* ((_get-kws-id220088_ + (let ((__tmp233357 (let () (declare (not safe)) (gx#stx-e - _L219930_))) - (__tmp233426 + _L219860_))) + (__tmp233356 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp233427 - __tmp233426))) - (_get-kws-id220160_ - (let ((__tmp233428 + __tmp233357 + __tmp233356))) + (_get-kws-id220090_ + (let ((__tmp233358 (let () (declare (not safe)) (gx#stx-source - _stx219631_)))) + _stx219561_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id220158_ - __tmp233428))) - (_main-id220162_ - (let ((__tmp233430 + _get-kws-id220088_ + __tmp233358))) + (_main-id220092_ + (let ((__tmp233360 (let () (declare (not safe)) (gx#stx-e - _L219930_))) - (__tmp233429 + _L219860_))) + (__tmp233359 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp233430 - __tmp233429))) - (_main-id220164_ - (let ((__tmp233431 + __tmp233360 + __tmp233359))) + (_main-id220094_ + (let ((__tmp233361 (let () (declare (not safe)) (gx#stx-source - _stx219631_)))) + _stx219561_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id220162_ - __tmp233431))) - (_g233432_ + _main-id220092_ + __tmp233361))) + (_g233362_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id220160_))) - (_g233433_ + _get-kws-id220090_))) + (_g233363_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id220164_))) - (_new-kw-dispatch220168_ + _main-id220094_))) + (_new-kw-dispatch220098_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L220114_ - _L220118_ - _get-kws-id220160_))) - (_new-get-kws220170_ + _L220044_ + _L220048_ + _get-kws-id220090_))) + (_new-get-kws220100_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L220115_ - _L220117_ - _main-id220164_)))) - (let ((__tmp233436 + _L220045_ + _L220047_ + _main-id220094_)))) + (let ((__tmp233366 (let () (declare (not safe)) (gxc#identifier-symbol - _L219930_))) - (__tmp233435 + _L219860_))) + (__tmp233365 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id220160_))) - (__tmp233434 + _get-kws-id220090_))) + (__tmp233364 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id220164_)))) + _main-id220094_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp233436 + __tmp233366 '" => " - __tmp233435 + __tmp233365 '" => " - __tmp233434)) - (let ((__tmp233441 - (let ((__tmp233442 + __tmp233364)) + (let ((__tmp233371 + (let ((__tmp233372 (let () (declare (not safe)) - (_bind-e__231062231063_ - _main-id220164_ - _L220116_ + (_bind-e__230992230993_ + _main-id220094_ + _L220046_ '#f)))) (declare (not safe)) - (cons __tmp233442 - _lift1219808_))) - (__tmp233439 - (let ((__tmp233440 + (cons __tmp233372 + _lift1219738_))) + (__tmp233369 + (let ((__tmp233370 (let () (declare (not safe)) - (_bind-e__231062231063_ - _get-kws-id220160_ - _new-get-kws220170_ + (_bind-e__230992230993_ + _get-kws-id220090_ + _new-get-kws220100_ '#f)))) (declare (not safe)) - (cons __tmp233440 - _lift2219809_))) - (__tmp233437 - (let ((__tmp233438 + (cons __tmp233370 + _lift2219739_))) + (__tmp233367 + (let ((__tmp233368 (let () (declare (not safe)) - (_bind-e__231062231063_ - _L219930_ - _new-kw-dispatch220168_ + (_bind-e__230992230993_ + _L219860_ + _new-kw-dispatch220098_ '#f)))) (declare (not safe)) - (cons __tmp233438 - _bind219810_)))) + (cons __tmp233368 + _bind219740_)))) (declare (not safe)) - (_lp219805_ - _rest219830_ - __tmp233441 - __tmp233439 - __tmp233437)))) - _hd219991220109_ - _hd219988220101_ - _hd219985220093_ - _hd219982220085_ - _hd219964220037_) + (_lp219735_ + _rest219760_ + __tmp233371 + __tmp233369 + __tmp233367)))) + _hd219921220039_ + _hd219918220031_ + _hd219915220023_ + _hd219912220015_ + _hd219894219967_) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))))) + (_g219874219927_ _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))) + (_g219874219927_ _g219875219930_))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))) + (_g219874219927_ _g219875219930_))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))) + (_g219874219927_ _g219875219930_))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))))) + (_g219874219927_ _g219875219930_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g219944219997_ - _g219945220000_))) + (_g219874219927_ + _g219875219930_))) (let () (declare (not safe)) - (_g219944219997_ - _g219945220000_))) + (_g219874219927_ + _g219875219930_))) (let () (declare (not safe)) - (_g219944219997_ - _g219945220000_))))) + (_g219874219927_ + _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))) + (_g219874219927_ _g219875219930_))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))))) + (_g219874219927_ _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))))) + (_g219874219927_ _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))))) + (_g219874219927_ _g219875219930_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g219944219997_ - _g219945220000_))))) + (_g219874219927_ + _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))))) + (_g219874219927_ _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))))) + (_g219874219927_ _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))) + (_g219874219927_ _g219875219930_))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))))) + (_g219874219927_ _g219875219930_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g219944219997_ - _g219945220000_))))) + (_g219874219927_ + _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ - _g219945220000_))))) + (_g219874219927_ + _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))))) + (_g219874219927_ _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_))))) + (_g219874219927_ _g219875219930_))))) (let () (declare (not safe)) - (_g219944219997_ _g219945220000_)))))) + (_g219874219927_ _g219875219930_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g219943220173_ _L219929_)))) - (___kont232904232905_ - (lambda (_L219880_ _L219881_) - (let ((__tmp233443 - (let ((__tmp233444 - (let ((__tmp233445 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L219880_ '())))) + (_g219873220103_ _L219859_)))) + (___kont232834232835_ + (lambda (_L219810_ _L219811_) + (let ((__tmp233373 + (let ((__tmp233374 + (let ((__tmp233375 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L219810_ '())))) (declare (not safe)) - (cons _L219881_ __tmp233445)))) + (cons _L219811_ __tmp233375)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp233444 - _bind219810_)))) + (cons __tmp233374 + _bind219740_)))) (declare (not safe)) - (_lp219805_ - _rest219830_ - _lift1219808_ - _lift2219809_ - __tmp233443))))) - (let ((___match232927232928_ - (lambda (_e219840219905_ - _hd219839219908_ - _tl219838219910_ - _e219843219913_ - _hd219842219916_ - _tl219841219918_ - _e219846219921_ - _hd219845219924_ - _tl219844219926_) - (let ((_L219929_ - _hd219845219924_) - (_L219930_ - _hd219842219916_)) + (_lp219735_ + _rest219760_ + _lift1219738_ + _lift2219739_ + __tmp233373))))) + (let ((___match232857232858_ + (lambda (_e219770219835_ + _hd219769219838_ + _tl219768219840_ + _e219773219843_ + _hd219772219846_ + _tl219771219848_ + _e219776219851_ + _hd219775219854_ + _tl219774219856_) + (let ((_L219859_ + _hd219775219854_) + (_L219860_ + _hd219772219846_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L219930_)) + _L219860_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L219929_))) - (___kont232902232903_ - _L219929_ - _L219930_) - (___kont232904232905_ - _hd219845219924_ - _hd219839219908_)))))) + _L219859_))) + (___kont232832232833_ + _L219859_ + _L219860_) + (___kont232834232835_ + _hd219775219854_ + _hd219769219838_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx232900232901_)) - (let ((_e219840219905_ + ___stx232830232831_)) + (let ((_e219770219835_ (let () (declare (not safe)) (gx#stx-e - ___stx232900232901_)))) - (let ((_tl219838219910_ + ___stx232830232831_)))) + (let ((_tl219768219840_ (let () (declare (not safe)) - (##cdr _e219840219905_))) - (_hd219839219908_ + (##cdr _e219770219835_))) + (_hd219769219838_ (let () (declare (not safe)) - (##car _e219840219905_)))) + (##car _e219770219835_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd219839219908_)) - (let ((_e219843219913_ + _hd219769219838_)) + (let ((_e219773219843_ (let () (declare (not safe)) (gx#stx-e - _hd219839219908_)))) - (let ((_tl219841219918_ + _hd219769219838_)))) + (let ((_tl219771219848_ (let () (declare (not safe)) - (##cdr _e219843219913_))) - (_hd219842219916_ + (##cdr _e219773219843_))) + (_hd219772219846_ (let () (declare (not safe)) - (##car _e219843219913_)))) + (##car _e219773219843_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219841219918_)) + _tl219771219848_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl219838219910_)) - (let ((_e219846219921_ + (gx#stx-pair? _tl219768219840_)) + (let ((_e219776219851_ (let () (declare (not safe)) - (gx#stx-e _tl219838219910_)))) - (let ((_tl219844219926_ + (gx#stx-e _tl219768219840_)))) + (let ((_tl219774219856_ (let () (declare (not safe)) - (##cdr _e219846219921_))) - (_hd219845219924_ + (##cdr _e219776219851_))) + (_hd219775219854_ (let () (declare (not safe)) - (##car _e219846219921_)))) + (##car _e219776219851_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219844219926_)) - (___match232927232928_ - _e219840219905_ - _hd219839219908_ - _tl219838219910_ - _e219843219913_ - _hd219842219916_ - _tl219841219918_ - _e219846219921_ - _hd219845219924_ - _tl219844219926_) + (gx#stx-null? _tl219774219856_)) + (___match232857232858_ + _e219770219835_ + _hd219769219838_ + _tl219768219840_ + _e219773219843_ + _hd219772219846_ + _tl219771219848_ + _e219776219851_ + _hd219775219854_ + _tl219774219856_) (let () (declare (not safe)) - (_g219834219859_))))) - (let () (declare (not safe)) (_g219834219859_))) + (_g219764219789_))))) + (let () (declare (not safe)) (_g219764219789_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219838219910_)) - (let ((_e219854219872_ + (gx#stx-pair? _tl219768219840_)) + (let ((_e219784219802_ (let () (declare (not safe)) - (gx#stx-e _tl219838219910_)))) - (let ((_tl219852219877_ + (gx#stx-e _tl219768219840_)))) + (let ((_tl219782219807_ (let () (declare (not safe)) - (##cdr _e219854219872_))) - (_hd219853219875_ + (##cdr _e219784219802_))) + (_hd219783219805_ (let () (declare (not safe)) - (##car _e219854219872_)))) + (##car _e219784219802_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219852219877_)) - (___kont232904232905_ - _hd219853219875_ - _hd219839219908_) + (gx#stx-null? _tl219782219807_)) + (___kont232834232835_ + _hd219783219805_ + _hd219769219838_) (let () (declare (not safe)) - (_g219834219859_))))) - (let () (declare (not safe)) (_g219834219859_)))))) + (_g219764219789_))))) + (let () (declare (not safe)) (_g219764219789_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl219838219910_)) - (let ((_e219854219872_ + _tl219768219840_)) + (let ((_e219784219802_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl219838219910_)))) - (let ((_tl219852219877_ - (let () (declare (not safe)) (##cdr _e219854219872_))) - (_hd219853219875_ - (let () (declare (not safe)) (##car _e219854219872_)))) + (gx#stx-e _tl219768219840_)))) + (let ((_tl219782219807_ + (let () (declare (not safe)) (##cdr _e219784219802_))) + (_hd219783219805_ + (let () (declare (not safe)) (##car _e219784219802_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219852219877_)) - (___kont232904232905_ _hd219853219875_ _hd219839219908_) - (let () (declare (not safe)) (_g219834219859_))))) - (let () (declare (not safe)) (_g219834219859_)))))) + (gx#stx-null? _tl219782219807_)) + (___kont232834232835_ _hd219783219805_ _hd219769219838_) + (let () (declare (not safe)) (_g219764219789_))))) + (let () (declare (not safe)) (_g219764219789_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g219834219859_))))))))) + (_g219764219789_))))))))) (if (let () (declare (not safe)) - (##pair? _rest219811219819_)) - (let ((_hd219816220182_ + (##pair? _rest219741219749_)) + (let ((_hd219746220112_ (let () (declare (not safe)) - (##car _rest219811219819_))) - (_tl219817220184_ + (##car _rest219741219749_))) + (_tl219747220114_ (let () (declare (not safe)) - (##cdr _rest219811219819_)))) - (let* ((_hd220187_ _hd219816220182_) - (_rest220189_ _tl219817220184_)) + (##cdr _rest219741219749_)))) + (let* ((_hd220117_ _hd219746220112_) + (_rest220119_ _tl219747220114_)) (declare (not safe)) - (_K219815220179_ _rest220189_ _hd220187_))) + (_K219745220109_ _rest220119_ _hd220117_))) (let () (declare (not safe)) - (_else219813219827_)))))))) - (let* ((___stx232944232945_ _stx219631_) - (_g219639219665_ + (_else219743219757_)))))))) + (let* ((___stx232874232875_ _stx219561_) + (_g219569219595_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232944232945_))))) - (let ((___kont232946232947_ - (lambda (_L219725_ _L219726_) - (let ((__tmp233447 + ___stx232874232875_))))) + (let ((___kont232876232877_ + (lambda (_L219655_ _L219656_) + (let ((__tmp233377 (lambda () - (if (let ((__tmp233474 - (let ((__tmp233475 - (lambda (_g219754219757_ - _g219755219759_) + (if (let ((__tmp233404 + (let ((__tmp233405 + (lambda (_g219684219687_ + _g219685219689_) (let () (declare (not safe)) - (cons _g219754219757_ - _g219755219759_))))) + (cons _g219684219687_ + _g219685219689_))))) (declare (not safe)) - (foldr1 __tmp233475 + (foldr1 __tmp233405 '() - _L219726_)))) + _L219656_)))) (declare (not safe)) - (ormap1 _lift-kw-lambda?219635_ - __tmp233474)) - (let ((_g233461_ - (let ((__tmp233463 - (let ((__tmp233464 - (lambda (_g219761219764_ - _g219762219766_) + (ormap1 _lift-kw-lambda?219565_ + __tmp233404)) + (let ((_g233391_ + (let ((__tmp233393 + (let ((__tmp233394 + (lambda (_g219691219694_ + _g219692219696_) (let () (declare (not safe)) - (cons _g219761219764_ + (cons _g219691219694_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g219762219766_))))) + _g219692219696_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp233464 + (foldr1 __tmp233394 '() - _L219726_)))) + _L219656_)))) (declare (not safe)) - (_lift-kw-lambda-bindings219636_ - __tmp233463)))) + (_lift-kw-lambda-bindings219566_ + __tmp233393)))) (begin - (let ((_g233462_ + (let ((_g233392_ (let () (declare (not safe)) - (if (##values? _g233461_) - (##vector-length _g233461_) + (if (##values? _g233391_) + (##vector-length _g233391_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g233462_ 3))) + (##fx= _g233392_ 3))) (error "Context expects 3 values" - _g233462_))) - (let ((_lift1219769_ + _g233392_))) + (let ((_lift1219699_ (let () (declare (not safe)) - (##vector-ref _g233461_ 0))) - (_lift2219770_ + (##vector-ref _g233391_ 0))) + (_lift2219700_ (let () (declare (not safe)) - (##vector-ref _g233461_ 1))) - (_hd219771_ + (##vector-ref _g233391_ 1))) + (_hd219701_ (let () (declare (not safe)) - (##vector-ref _g233461_ 2)))) - (let* ((_expr219773_ - (let ((__tmp233465 - (let ((__tmp233466 - (let ((__tmp233467 + (##vector-ref _g233391_ 2)))) + (let* ((_expr219703_ + (let ((__tmp233395 + (let ((__tmp233396 + (let ((__tmp233397 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L219725_ '())))) + (cons _L219655_ '())))) (declare (not safe)) - (cons _hd219771_ __tmp233467)))) + (cons _hd219701_ __tmp233397)))) (declare (not safe)) - (cons '%#let-values __tmp233466)))) + (cons '%#let-values __tmp233396)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp233465 - _stx219631_))) - (_expr219775_ - (let ((__tmp233468 - (let ((__tmp233469 - (let ((__tmp233470 + __tmp233395 + _stx219561_))) + (_expr219705_ + (let ((__tmp233398 + (let ((__tmp233399 + (let ((__tmp233400 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr219773_ '())))) + (cons _expr219703_ '())))) (declare (not safe)) - (cons _lift2219770_ __tmp233470)))) + (cons _lift2219700_ __tmp233400)))) (declare (not safe)) - (cons '%#let-values __tmp233469)))) + (cons '%#let-values __tmp233399)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp233468 - _stx219631_))) - (_expr219777_ - (let ((__tmp233471 - (let ((__tmp233472 - (let ((__tmp233473 + __tmp233398 + _stx219561_))) + (_expr219707_ + (let ((__tmp233401 + (let ((__tmp233402 + (let ((__tmp233403 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr219775_ '())))) + (cons _expr219705_ '())))) (declare (not safe)) - (cons _lift1219769_ __tmp233473)))) + (cons _lift1219699_ __tmp233403)))) (declare (not safe)) - (cons '%#let-values __tmp233472)))) + (cons '%#let-values __tmp233402)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp233471 - _stx219631_)))) + __tmp233401 + _stx219561_)))) (let () (declare (not safe)) (gxc#lift-top-lambda-let-values% - _expr219777_)))))) - (let ((_g233448_ - (let ((__tmp233450 - (let ((__tmp233451 - (lambda (_g219779219782_ - _g219780219784_) + _expr219707_)))))) + (let ((_g233378_ + (let ((__tmp233380 + (let ((__tmp233381 + (lambda (_g219709219712_ + _g219710219714_) (let () (declare (not safe)) - (cons _g219779219782_ + (cons _g219709219712_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g219780219784_))))) + _g219710219714_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp233451 + (foldr1 __tmp233381 '() - _L219726_)))) + _L219656_)))) (declare (not safe)) - (_compile-bindings219634_ - __tmp233450)))) + (_compile-bindings219564_ + __tmp233380)))) (begin - (let ((_g233449_ + (let ((_g233379_ (let () (declare (not safe)) - (if (##values? _g233448_) - (##vector-length _g233448_) + (if (##values? _g233378_) + (##vector-length _g233378_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g233449_ 3))) + (##fx= _g233379_ 3))) (error "Context expects 3 values" - _g233449_))) - (let ((_lift1219787_ + _g233379_))) + (let ((_lift1219717_ (let () (declare (not safe)) - (##vector-ref _g233448_ 0))) - (_lift2219788_ + (##vector-ref _g233378_ 0))) + (_lift2219718_ (let () (declare (not safe)) - (##vector-ref _g233448_ 1))) - (_hd219789_ + (##vector-ref _g233378_ 1))) + (_hd219719_ (let () (declare (not safe)) - (##vector-ref _g233448_ 2)))) - (let* ((_body219791_ + (##vector-ref _g233378_ 2)))) + (let* ((_body219721_ (let () (declare (not safe)) (gxc#compile-e__0 - _L219725_))) - (_expr219793_ - (let ((__tmp233452 - (let ((__tmp233453 - (let ((__tmp233454 + _L219655_))) + (_expr219723_ + (let ((__tmp233382 + (let ((__tmp233383 + (let ((__tmp233384 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _body219791_ '())))) + (cons _body219721_ '())))) (declare (not safe)) - (cons _hd219789_ __tmp233454)))) + (cons _hd219719_ __tmp233384)))) (declare (not safe)) - (cons '%#let-values __tmp233453)))) + (cons '%#let-values __tmp233383)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp233452 - _stx219631_))) - (_expr219795_ + __tmp233382 + _stx219561_))) + (_expr219725_ (if (let () (declare (not safe)) - (null? _lift2219788_)) - _expr219793_ - (let ((__tmp233455 - (let ((__tmp233456 + (null? _lift2219718_)) + _expr219723_ + (let ((__tmp233385 + (let ((__tmp233386 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233457 + (let ((__tmp233387 (let () (declare (not safe)) - (cons _expr219793_ '())))) + (cons _expr219723_ '())))) (declare (not safe)) - (cons _lift2219788_ __tmp233457)))) + (cons _lift2219718_ __tmp233387)))) (declare (not safe)) - (cons '%#let-values __tmp233456)))) + (cons '%#let-values __tmp233386)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp233455 _stx219631_)))) + (gxc#xform-wrap-source __tmp233385 _stx219561_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_expr219797_ + (_expr219727_ (if (let () (declare (not safe)) - (null? _lift1219787_)) - _expr219795_ - (let ((__tmp233458 - (let ((__tmp233459 + (null? _lift1219717_)) + _expr219725_ + (let ((__tmp233388 + (let ((__tmp233389 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233460 + (let ((__tmp233390 (let () (declare (not safe)) - (cons _expr219795_ '())))) + (cons _expr219725_ '())))) (declare (not safe)) - (cons _lift1219787_ __tmp233460)))) + (cons _lift1219717_ __tmp233390)))) (declare (not safe)) - (cons '%#let-values __tmp233459)))) + (cons '%#let-values __tmp233389)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp233458 _stx219631_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _expr219797_))))))) - (__tmp233446 - (let ((__obj233150 - (make-object* gx#local-context::t '6))) - (gx#local-context:::init! __obj233150) - __obj233150))) + (gxc#xform-wrap-source __tmp233388 _stx219561_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _expr219727_))))))) + (__tmp233376 + (let ((__obj233080 + (make-object gx#local-context::t '6))) + (gx#local-context:::init! __obj233080) + __obj233080))) (declare (not safe)) (call-with-parameters - __tmp233447 + __tmp233377 gx#current-expander-context - __tmp233446)))) - (___kont232950232951_ + __tmp233376)))) + (___kont232880232881_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx219631_))))) - (let ((___match232971232972_ - (lambda (_e219645219677_ - _hd219644219680_ - _tl219643219682_ - _e219648219685_ - _hd219647219688_ - _tl219646219690_ - ___splice232948232949_ - _target219649219693_ - _tl219651219695_) - (letrec ((_loop219652219698_ - (lambda (_hd219650219701_ _bind219656219703_) + (gxc#xform-let-values% _stx219561_))))) + (let ((___match232901232902_ + (lambda (_e219575219607_ + _hd219574219610_ + _tl219573219612_ + _e219578219615_ + _hd219577219618_ + _tl219576219620_ + ___splice232878232879_ + _target219579219623_ + _tl219581219625_) + (letrec ((_loop219582219628_ + (lambda (_hd219580219631_ _bind219586219633_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219650219701_)) - (let ((_e219653219706_ + (gx#stx-pair? _hd219580219631_)) + (let ((_e219583219636_ (let () (declare (not safe)) - (gx#stx-e _hd219650219701_)))) - (let ((_lp-tl219655219711_ + (gx#stx-e _hd219580219631_)))) + (let ((_lp-tl219585219641_ (let () (declare (not safe)) - (##cdr _e219653219706_))) - (_lp-hd219654219709_ + (##cdr _e219583219636_))) + (_lp-hd219584219639_ (let () (declare (not safe)) - (##car _e219653219706_)))) - (let ((__tmp233478 + (##car _e219583219636_)))) + (let ((__tmp233408 (let () (declare (not safe)) - (cons _lp-hd219654219709_ - _bind219656219703_)))) + (cons _lp-hd219584219639_ + _bind219586219633_)))) (declare (not safe)) - (_loop219652219698_ - _lp-tl219655219711_ - __tmp233478)))) - (let ((_bind219657219714_ - (reverse _bind219656219703_))) + (_loop219582219628_ + _lp-tl219585219641_ + __tmp233408)))) + (let ((_bind219587219644_ + (reverse _bind219586219633_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219646219690_)) - (let ((_e219660219717_ + (gx#stx-pair? _tl219576219620_)) + (let ((_e219590219647_ (let () (declare (not safe)) (gx#stx-e - _tl219646219690_)))) - (let ((_tl219658219722_ + _tl219576219620_)))) + (let ((_tl219588219652_ (let () (declare (not safe)) - (##cdr _e219660219717_))) - (_hd219659219720_ + (##cdr _e219590219647_))) + (_hd219589219650_ (let () (declare (not safe)) - (##car _e219660219717_)))) + (##car _e219590219647_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219658219722_)) - (let ((_L219725_ - _hd219659219720_) - (_L219726_ - _bind219657219714_)) - (if (let ((__tmp233476 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233477 - (lambda (_g219746219749_ _g219747219751_) + _tl219588219652_)) + (let ((_L219655_ + _hd219589219650_) + (_L219656_ + _bind219587219644_)) + (if (let ((__tmp233406 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp233407 + (lambda (_g219676219679_ _g219677219681_) (let () (declare (not safe)) - (cons _g219746219749_ _g219747219751_))))) + (cons _g219676219679_ _g219677219681_))))) (declare (not safe)) - (foldr1 __tmp233477 '() _L219726_)))) + (foldr1 __tmp233407 '() _L219656_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp233476)) - (___kont232946232947_ _L219725_ _L219726_) - (___kont232950232951_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp233406)) + (___kont232876232877_ _L219655_ _L219656_) + (___kont232880232881_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232950232951_)))) - (___kont232950232951_))))))) + (___kont232880232881_)))) + (___kont232880232881_))))))) (let () (declare (not safe)) - (_loop219652219698_ _target219649219693_ '())))))) + (_loop219582219628_ _target219579219623_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx232944232945_)) - (let ((_e219645219677_ + (gx#stx-pair? ___stx232874232875_)) + (let ((_e219575219607_ (let () (declare (not safe)) - (gx#stx-e ___stx232944232945_)))) - (let ((_tl219643219682_ + (gx#stx-e ___stx232874232875_)))) + (let ((_tl219573219612_ (let () (declare (not safe)) - (##cdr _e219645219677_))) - (_hd219644219680_ + (##cdr _e219575219607_))) + (_hd219574219610_ (let () (declare (not safe)) - (##car _e219645219677_)))) + (##car _e219575219607_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219643219682_)) - (let ((_e219648219685_ + (gx#stx-pair? _tl219573219612_)) + (let ((_e219578219615_ (let () (declare (not safe)) - (gx#stx-e _tl219643219682_)))) - (let ((_tl219646219690_ + (gx#stx-e _tl219573219612_)))) + (let ((_tl219576219620_ (let () (declare (not safe)) - (##cdr _e219648219685_))) - (_hd219647219688_ + (##cdr _e219578219615_))) + (_hd219577219618_ (let () (declare (not safe)) - (##car _e219648219685_)))) + (##car _e219578219615_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd219647219688_)) - (let ((___splice232948232949_ + (gx#stx-pair/null? _hd219577219618_)) + (let ((___splice232878232879_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd219647219688_ + _hd219577219618_ '0)))) - (let ((_tl219651219695_ + (let ((_tl219581219625_ (let () (declare (not safe)) (##vector-ref - ___splice232948232949_ + ___splice232878232879_ '1))) - (_target219649219693_ + (_target219579219623_ (let () (declare (not safe)) (##vector-ref - ___splice232948232949_ + ___splice232878232879_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219651219695_)) - (___match232971232972_ - _e219645219677_ - _hd219644219680_ - _tl219643219682_ - _e219648219685_ - _hd219647219688_ - _tl219646219690_ - ___splice232948232949_ - _target219649219693_ - _tl219651219695_) - (___kont232950232951_)))) - (___kont232950232951_)))) - (___kont232950232951_)))) - (___kont232950232951_)))))))) + (gx#stx-null? _tl219581219625_)) + (___match232901232902_ + _e219575219607_ + _hd219574219610_ + _tl219573219612_ + _e219578219615_ + _hd219577219618_ + _tl219576219620_ + ___splice232878232879_ + _target219579219623_ + _tl219581219625_) + (___kont232880232881_)))) + (___kont232880232881_)))) + (___kont232880232881_)))) + (___kont232880232881_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_stx218775_) - (letrec* ((_bind-e__231067231068_ - (lambda (_id219615_ _expr219616_ _compile?219617_) - (let ((__tmp233481 + (lambda (_stx218705_) + (letrec* ((_bind-e__230997230998_ + (lambda (_id219545_ _expr219546_ _compile?219547_) + (let ((__tmp233411 (let () (declare (not safe)) - (cons _id219615_ '()))) - (__tmp233479 - (let ((__tmp233480 - (if _compile?219617_ + (cons _id219545_ '()))) + (__tmp233409 + (let ((__tmp233410 + (if _compile?219547_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr219616_)) - _expr219616_))) + (gxc#compile-e__0 _expr219546_)) + _expr219546_))) (declare (not safe)) - (cons __tmp233480 '())))) + (cons __tmp233410 '())))) (declare (not safe)) - (cons __tmp233481 __tmp233479)))) - (_bind-e__0__231069231070_ - (lambda (_id219622_ _expr219623_) - (let ((_compile?219625_ '#t)) + (cons __tmp233411 __tmp233409)))) + (_bind-e__0__230999231000_ + (lambda (_id219552_ _expr219553_) + (let ((_compile?219555_ '#t)) (declare (not safe)) - (_bind-e__231067231068_ - _id219622_ - _expr219623_ - _compile?219625_)))) - (_bind-e218777_ - (lambda _g233483_ - (let ((_g233482_ + (_bind-e__230997230998_ + _id219552_ + _expr219553_ + _compile?219555_)))) + (_bind-e218707_ + (lambda _g233413_ + (let ((_g233412_ (let () (declare (not safe)) - (##length _g233483_)))) - (cond ((let () (declare (not safe)) (##fx= _g233482_ 2)) - (apply (lambda (_id219622_ _expr219623_) + (##length _g233413_)))) + (cond ((let () (declare (not safe)) (##fx= _g233412_ 2)) + (apply (lambda (_id219552_ _expr219553_) (let () (declare (not safe)) - (_bind-e__0__231069231070_ - _id219622_ - _expr219623_))) - _g233483_)) - ((let () (declare (not safe)) (##fx= _g233482_ 3)) - (apply (lambda (_id219627_ - _expr219628_ - _compile?219629_) + (_bind-e__0__230999231000_ + _id219552_ + _expr219553_))) + _g233413_)) + ((let () (declare (not safe)) (##fx= _g233412_ 3)) + (apply (lambda (_id219557_ + _expr219558_ + _compile?219559_) (let () (declare (not safe)) - (_bind-e__231067231068_ - _id219627_ - _expr219628_ - _compile?219629_))) - _g233483_)) + (_bind-e__230997230998_ + _id219557_ + _expr219558_ + _compile?219559_))) + _g233413_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g233483_)))))) - (_compile-bindings218778_ - (lambda (_rest218913_) - (let _lp218915_ ((_rest218917_ _rest218913_) - (_bind218918_ '())) - (let* ((_rest218919218927_ _rest218917_) - (_else218921218935_ - (lambda () (reverse _bind218918_))) - (_K218923219602_ - (lambda (_rest218938_ _hd218939_) - (let* ((___stx232994232995_ _hd218939_) - (_g218944218991_ + _g233413_)))))) + (_compile-bindings218708_ + (lambda (_rest218843_) + (let _lp218845_ ((_rest218847_ _rest218843_) + (_bind218848_ '())) + (let* ((_rest218849218857_ _rest218847_) + (_else218851218865_ + (lambda () (reverse _bind218848_))) + (_K218853219532_ + (lambda (_rest218868_ _hd218869_) + (let* ((___stx232924232925_ _hd218869_) + (_g218874218921_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232994232995_))))) - (let ((___kont232996232997_ - (lambda (_L219509_ _L219510_) - (let* ((___stx232974232975_ - _L219509_) - (_g219525219539_ + ___stx232924232925_))))) + (let ((___kont232926232927_ + (lambda (_L219439_ _L219440_) + (let* ((___stx232904232905_ + _L219439_) + (_g219455219469_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx232974232975_))))) - (let ((___kont232976232977_ - (lambda (_L219587_) - (let ((__tmp233484 - (let ((__tmp233485 + ___stx232904232905_))))) + (let ((___kont232906232907_ + (lambda (_L219517_) + (let ((__tmp233414 + (let ((__tmp233415 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__231067231068_ - _L219510_ - _L219509_ + (_bind-e__230997230998_ + _L219440_ + _L219439_ '#f)))) (declare (not safe)) - (cons __tmp233485 _bind218918_)))) + (cons __tmp233415 _bind218848_)))) (declare (not safe)) - (_lp218915_ _rest218938_ __tmp233484)))) + (_lp218845_ _rest218868_ __tmp233414)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232978232979_ - (lambda (_L219552_) - (let ((_g233486_ + (___kont232908232909_ + (lambda (_L219482_) + (let ((_g233416_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx218775_ - _L219510_ - _L219552_ + _stx218705_ + _L219440_ + _L219482_ '#t)))) (begin - (let ((_g233487_ + (let ((_g233417_ (let () (declare (not safe)) - (if (##values? _g233486_) - (##vector-length _g233486_) + (if (##values? _g233416_) + (##vector-length _g233416_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g233487_ 3))) - (error "Context expects 3 values" _g233487_))) - (let ((_ids219562_ + (##fx= _g233417_ 3))) + (error "Context expects 3 values" _g233417_))) + (let ((_ids219492_ (let () (declare (not safe)) - (##vector-ref _g233486_ 0))) - (_impls219563_ + (##vector-ref _g233416_ 0))) + (_impls219493_ (let () (declare (not safe)) - (##vector-ref _g233486_ 1))) - (_clauses219564_ + (##vector-ref _g233416_ 1))) + (_clauses219494_ (let () (declare (not safe)) - (##vector-ref _g233486_ 2)))) - (let* ((_g233488_ - (for-each gx#core-bind-runtime! _ids219562_)) - (_xbind219567_ - (map _bind-e218777_ _ids219562_ _impls219563_)) - (_expr*219569_ - (let ((__tmp233490 + (##vector-ref _g233416_ 2)))) + (let* ((_g233418_ + (for-each gx#core-bind-runtime! _ids219492_)) + (_xbind219497_ + (map _bind-e218707_ _ids219492_ _impls219493_)) + (_expr*219499_ + (let ((__tmp233420 (let () (declare (not safe)) - (cons '%#case-lambda _clauses219564_))) - (__tmp233489 + (cons '%#case-lambda _clauses219494_))) + (__tmp233419 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -14285,1383 +14285,1383 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp233490 - __tmp233489))) - (_bind*219571_ + __tmp233420 + __tmp233419))) + (_bind*219501_ (let () (declare (not safe)) - (_bind-e__231067231068_ - _L219510_ - _expr*219569_ + (_bind-e__230997230998_ + _L219440_ + _expr*219499_ '#f)))) - (let ((__tmp233492 + (let ((__tmp233422 (let () (declare (not safe)) - (gxc#identifier-symbol _L219510_))) - (__tmp233491 - (map gxc#identifier-symbol _ids219562_))) + (gxc#identifier-symbol _L219440_))) + (__tmp233421 + (map gxc#identifier-symbol _ids219492_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp233492 + __tmp233422 '" => " - __tmp233491)) - (let ((__tmp233493 - (let ((__tmp233494 + __tmp233421)) + (let ((__tmp233423 + (let ((__tmp233424 (let () (declare (not safe)) (foldl1 cons - _bind218918_ - _xbind219567_)))) + _bind218848_ + _xbind219497_)))) (declare (not safe)) - (cons _bind*219571_ __tmp233494)))) + (cons _bind*219501_ __tmp233424)))) (declare (not safe)) - (_lp218915_ _rest218938_ __tmp233493))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match232985232986_ - (lambda (_e219530219579_ - _hd219529219582_ - _tl219528219584_) - (let ((_L219587_ - _tl219528219584_)) + (_lp218845_ _rest218868_ __tmp233423))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match232915232916_ + (lambda (_e219460219509_ + _hd219459219512_ + _tl219458219514_) + (let ((_L219517_ + _tl219458219514_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L219587_)) - (___kont232976232977_ _L219587_) - (___kont232978232979_ _tl219528219584_)))))) + (andmap1 gxc#dispatch-lambda-form? _L219517_)) + (___kont232906232907_ _L219517_) + (___kont232908232909_ _tl219458219514_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx232974232975_)) - (let ((_e219530219579_ + ___stx232904232905_)) + (let ((_e219460219509_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx232974232975_)))) - (let ((_tl219528219584_ - (let () (declare (not safe)) (##cdr _e219530219579_))) - (_hd219529219582_ - (let () (declare (not safe)) (##car _e219530219579_)))) - (___match232985232986_ - _e219530219579_ - _hd219529219582_ - _tl219528219584_))) - (let () (declare (not safe)) (_g219525219539_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont232998232999_ - (lambda (_L219337_ _L219338_) - (let* ((_g219352219382_ - (lambda (_g219353219379_) + (gx#stx-e ___stx232904232905_)))) + (let ((_tl219458219514_ + (let () (declare (not safe)) (##cdr _e219460219509_))) + (_hd219459219512_ + (let () (declare (not safe)) (##car _e219460219509_)))) + (___match232915232916_ + _e219460219509_ + _hd219459219512_ + _tl219458219514_))) + (let () (declare (not safe)) (_g219455219469_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont232928232929_ + (lambda (_L219267_ _L219268_) + (let* ((_g219282219312_ + (lambda (_g219283219309_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219353219379_)))) - (_g219351219477_ - (lambda (_g219353219385_) + _g219283219309_)))) + (_g219281219407_ + (lambda (_g219283219315_) (if (let () (declare (not safe)) (gx#stx-pair? - _g219353219385_)) - (let ((_e219359219387_ + _g219283219315_)) + (let ((_e219289219317_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g219353219385_)))) - (let ((_hd219358219390_ + (gx#stx-e _g219283219315_)))) + (let ((_hd219288219320_ (let () (declare (not safe)) - (##car _e219359219387_))) - (_tl219357219392_ + (##car _e219289219317_))) + (_tl219287219322_ (let () (declare (not safe)) - (##cdr _e219359219387_)))) + (##cdr _e219289219317_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219357219392_)) - (let ((_e219362219395_ + (gx#stx-pair? _tl219287219322_)) + (let ((_e219292219325_ (let () (declare (not safe)) - (gx#stx-e _tl219357219392_)))) - (let ((_hd219361219398_ + (gx#stx-e _tl219287219322_)))) + (let ((_hd219291219328_ (let () (declare (not safe)) - (##car _e219362219395_))) - (_tl219360219400_ + (##car _e219292219325_))) + (_tl219290219330_ (let () (declare (not safe)) - (##cdr _e219362219395_)))) + (##cdr _e219292219325_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219361219398_)) - (let ((_e219365219403_ + (gx#stx-pair? _hd219291219328_)) + (let ((_e219295219333_ (let () (declare (not safe)) - (gx#stx-e _hd219361219398_)))) - (let ((_hd219364219406_ + (gx#stx-e _hd219291219328_)))) + (let ((_hd219294219336_ (let () (declare (not safe)) - (##car _e219365219403_))) - (_tl219363219408_ + (##car _e219295219333_))) + (_tl219293219338_ (let () (declare (not safe)) - (##cdr _e219365219403_)))) + (##cdr _e219295219333_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219364219406_)) - (let ((_e219368219411_ + (gx#stx-pair? _hd219294219336_)) + (let ((_e219298219341_ (let () (declare (not safe)) (gx#stx-e - _hd219364219406_)))) - (let ((_hd219367219414_ + _hd219294219336_)))) + (let ((_hd219297219344_ (let () (declare (not safe)) - (##car _e219368219411_))) - (_tl219366219416_ + (##car _e219298219341_))) + (_tl219296219346_ (let () (declare (not safe)) - (##cdr _e219368219411_)))) + (##cdr _e219298219341_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd219367219414_)) - (let ((_e219371219419_ + _hd219297219344_)) + (let ((_e219301219349_ (let () (declare (not safe)) (gx#stx-e - _hd219367219414_)))) - (let ((_hd219370219422_ + _hd219297219344_)))) + (let ((_hd219300219352_ (let () (declare (not safe)) - (##car _e219371219419_))) - (_tl219369219424_ + (##car _e219301219349_))) + (_tl219299219354_ (let () (declare (not safe)) - (##cdr _e219371219419_)))) + (##cdr _e219301219349_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219369219424_)) + _tl219299219354_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl219366219416_)) - (let ((_e219374219427_ + (gx#stx-pair? _tl219296219346_)) + (let ((_e219304219357_ (let () (declare (not safe)) - (gx#stx-e _tl219366219416_)))) - (let ((_hd219373219430_ + (gx#stx-e _tl219296219346_)))) + (let ((_hd219303219360_ (let () (declare (not safe)) - (##car _e219374219427_))) - (_tl219372219432_ + (##car _e219304219357_))) + (_tl219302219362_ (let () (declare (not safe)) - (##cdr _e219374219427_)))) + (##cdr _e219304219357_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219372219432_)) + (gx#stx-null? _tl219302219362_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl219363219408_)) + (gx#stx-null? _tl219293219338_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219360219400_)) - (let ((_e219377219435_ + (gx#stx-pair? _tl219290219330_)) + (let ((_e219307219365_ (let () (declare (not safe)) - (gx#stx-e _tl219360219400_)))) - (let ((_hd219376219438_ + (gx#stx-e _tl219290219330_)))) + (let ((_hd219306219368_ (let () (declare (not safe)) - (##car _e219377219435_))) - (_tl219375219440_ + (##car _e219307219365_))) + (_tl219305219370_ (let () (declare (not safe)) - (##cdr _e219377219435_)))) + (##cdr _e219307219365_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219375219440_)) - ((lambda (_L219443_ - _L219444_ - _L219445_) - (let* ((_lambda-id219469_ - (let ((__tmp233496 + _tl219305219370_)) + ((lambda (_L219373_ + _L219374_ + _L219375_) + (let* ((_lambda-id219399_ + (let ((__tmp233426 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L219338_))) - (__tmp233495 (gensym '__))) + (gx#stx-e _L219268_))) + (__tmp233425 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp233496 __tmp233495))) - (_lambda-id219471_ - (let ((__tmp233497 + (make-symbol__1 __tmp233426 __tmp233425))) + (_lambda-id219401_ + (let ((__tmp233427 (let () (declare (not safe)) - (gx#stx-source _stx218775_)))) + (gx#stx-source _stx218705_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id219469_ __tmp233497))) - (_g233498_ + (gx#core-quote-syntax__1 _lambda-id219399_ __tmp233427))) + (_g233428_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id219471_))) - (_new-case-lambda-expr219474_ + (gx#core-bind-runtime!__0 _lambda-id219401_))) + (_new-case-lambda-expr219404_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L219443_ - _L219445_ - _lambda-id219471_)))) + _L219373_ + _L219375_ + _lambda-id219401_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp233500 + (let ((__tmp233430 (let () (declare (not safe)) (gxc#identifier-symbol - _L219338_))) - (__tmp233499 + _L219268_))) + (__tmp233429 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id219471_)))) + _lambda-id219401_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp233500 + __tmp233430 '" => " - __tmp233499)) - (let ((__tmp233503 - (let ((__tmp233504 + __tmp233429)) + (let ((__tmp233433 + (let ((__tmp233434 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__231067231068_ - _L219338_ - _new-case-lambda-expr219474_ + (_bind-e__230997230998_ + _L219268_ + _new-case-lambda-expr219404_ '#f)))) (declare (not safe)) - (cons __tmp233504 _rest218938_))) - (__tmp233501 - (let ((__tmp233502 + (cons __tmp233434 _rest218868_))) + (__tmp233431 + (let ((__tmp233432 (let () (declare (not safe)) - (_bind-e__0__231069231070_ - _lambda-id219471_ - _L219444_)))) + (_bind-e__0__230999231000_ + _lambda-id219401_ + _L219374_)))) (declare (not safe)) - (cons __tmp233502 _bind218918_)))) + (cons __tmp233432 _bind218848_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp218915_ - __tmp233503 - __tmp233501)))) - _hd219376219438_ - _hd219373219430_ - _hd219370219422_) + (_lp218845_ + __tmp233433 + __tmp233431)))) + _hd219306219368_ + _hd219303219360_ + _hd219300219352_) (let () (declare (not safe)) - (_g219352219382_ - _g219353219385_))))) + (_g219282219312_ + _g219283219315_))))) (let () (declare (not safe)) - (_g219352219382_ _g219353219385_))) + (_g219282219312_ _g219283219315_))) (let () (declare (not safe)) - (_g219352219382_ _g219353219385_))) + (_g219282219312_ _g219283219315_))) (let () (declare (not safe)) - (_g219352219382_ _g219353219385_))))) + (_g219282219312_ _g219283219315_))))) (let () (declare (not safe)) - (_g219352219382_ _g219353219385_))) + (_g219282219312_ _g219283219315_))) (let () (declare (not safe)) - (_g219352219382_ _g219353219385_))))) + (_g219282219312_ _g219283219315_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g219352219382_ - _g219353219385_))))) + (_g219282219312_ + _g219283219315_))))) (let () (declare (not safe)) - (_g219352219382_ - _g219353219385_))))) + (_g219282219312_ + _g219283219315_))))) (let () (declare (not safe)) - (_g219352219382_ _g219353219385_))))) + (_g219282219312_ _g219283219315_))))) (let () (declare (not safe)) - (_g219352219382_ _g219353219385_))))) + (_g219282219312_ _g219283219315_))))) (let () (declare (not safe)) - (_g219352219382_ _g219353219385_)))))) + (_g219282219312_ _g219283219315_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g219351219477_ _L219337_)))) - (___kont233000233001_ - (lambda (_L219061_ _L219062_) - (let* ((_g219076219129_ - (lambda (_g219077219126_) + (_g219281219407_ _L219267_)))) + (___kont232930232931_ + (lambda (_L218991_ _L218992_) + (let* ((_g219006219059_ + (lambda (_g219007219056_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219077219126_)))) - (_g219075219305_ - (lambda (_g219077219132_) + _g219007219056_)))) + (_g219005219235_ + (lambda (_g219007219062_) (if (let () (declare (not safe)) (gx#stx-pair? - _g219077219132_)) - (let ((_e219085219134_ + _g219007219062_)) + (let ((_e219015219064_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g219077219132_)))) - (let ((_hd219084219137_ + (gx#stx-e _g219007219062_)))) + (let ((_hd219014219067_ (let () (declare (not safe)) - (##car _e219085219134_))) - (_tl219083219139_ + (##car _e219015219064_))) + (_tl219013219069_ (let () (declare (not safe)) - (##cdr _e219085219134_)))) + (##cdr _e219015219064_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219083219139_)) - (let ((_e219088219142_ + (gx#stx-pair? _tl219013219069_)) + (let ((_e219018219072_ (let () (declare (not safe)) - (gx#stx-e _tl219083219139_)))) - (let ((_hd219087219145_ + (gx#stx-e _tl219013219069_)))) + (let ((_hd219017219075_ (let () (declare (not safe)) - (##car _e219088219142_))) - (_tl219086219147_ + (##car _e219018219072_))) + (_tl219016219077_ (let () (declare (not safe)) - (##cdr _e219088219142_)))) + (##cdr _e219018219072_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219087219145_)) - (let ((_e219091219150_ + (gx#stx-pair? _hd219017219075_)) + (let ((_e219021219080_ (let () (declare (not safe)) - (gx#stx-e _hd219087219145_)))) - (let ((_hd219090219153_ + (gx#stx-e _hd219017219075_)))) + (let ((_hd219020219083_ (let () (declare (not safe)) - (##car _e219091219150_))) - (_tl219089219155_ + (##car _e219021219080_))) + (_tl219019219085_ (let () (declare (not safe)) - (##cdr _e219091219150_)))) + (##cdr _e219021219080_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219090219153_)) - (let ((_e219094219158_ + (gx#stx-pair? _hd219020219083_)) + (let ((_e219024219088_ (let () (declare (not safe)) (gx#stx-e - _hd219090219153_)))) - (let ((_hd219093219161_ + _hd219020219083_)))) + (let ((_hd219023219091_ (let () (declare (not safe)) - (##car _e219094219158_))) - (_tl219092219163_ + (##car _e219024219088_))) + (_tl219022219093_ (let () (declare (not safe)) - (##cdr _e219094219158_)))) + (##cdr _e219024219088_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd219093219161_)) - (let ((_e219097219166_ + _hd219023219091_)) + (let ((_e219027219096_ (let () (declare (not safe)) (gx#stx-e - _hd219093219161_)))) - (let ((_hd219096219169_ + _hd219023219091_)))) + (let ((_hd219026219099_ (let () (declare (not safe)) - (##car _e219097219166_))) - (_tl219095219171_ + (##car _e219027219096_))) + (_tl219025219101_ (let () (declare (not safe)) - (##cdr _e219097219166_)))) + (##cdr _e219027219096_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219095219171_)) + _tl219025219101_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl219092219163_)) - (let ((_e219100219174_ + (gx#stx-pair? _tl219022219093_)) + (let ((_e219030219104_ (let () (declare (not safe)) - (gx#stx-e _tl219092219163_)))) - (let ((_hd219099219177_ + (gx#stx-e _tl219022219093_)))) + (let ((_hd219029219107_ (let () (declare (not safe)) - (##car _e219100219174_))) - (_tl219098219179_ + (##car _e219030219104_))) + (_tl219028219109_ (let () (declare (not safe)) - (##cdr _e219100219174_)))) + (##cdr _e219030219104_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219099219177_)) - (let ((_e219103219182_ + (gx#stx-pair? _hd219029219107_)) + (let ((_e219033219112_ (let () (declare (not safe)) - (gx#stx-e _hd219099219177_)))) - (let ((_hd219102219185_ + (gx#stx-e _hd219029219107_)))) + (let ((_hd219032219115_ (let () (declare (not safe)) - (##car _e219103219182_))) - (_tl219101219187_ + (##car _e219033219112_))) + (_tl219031219117_ (let () (declare (not safe)) - (##cdr _e219103219182_)))) + (##cdr _e219033219112_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219101219187_)) - (let ((_e219106219190_ + (gx#stx-pair? _tl219031219117_)) + (let ((_e219036219120_ (let () (declare (not safe)) - (gx#stx-e _tl219101219187_)))) - (let ((_hd219105219193_ + (gx#stx-e _tl219031219117_)))) + (let ((_hd219035219123_ (let () (declare (not safe)) - (##car _e219106219190_))) - (_tl219104219195_ + (##car _e219036219120_))) + (_tl219034219125_ (let () (declare (not safe)) - (##cdr _e219106219190_)))) + (##cdr _e219036219120_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd219105219193_)) - (let ((_e219109219198_ + _hd219035219123_)) + (let ((_e219039219128_ (let () (declare (not safe)) (gx#stx-e - _hd219105219193_)))) - (let ((_hd219108219201_ + _hd219035219123_)))) + (let ((_hd219038219131_ (let () (declare (not safe)) - (##car _e219109219198_))) - (_tl219107219203_ + (##car _e219039219128_))) + (_tl219037219133_ (let () (declare (not safe)) - (##cdr _e219109219198_)))) + (##cdr _e219039219128_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd219108219201_)) - (let ((_e219112219206_ + _hd219038219131_)) + (let ((_e219042219136_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd219108219201_)))) - (let ((_hd219111219209_ - (let () (declare (not safe)) (##car _e219112219206_))) - (_tl219110219211_ - (let () (declare (not safe)) (##cdr _e219112219206_)))) + (gx#stx-e _hd219038219131_)))) + (let ((_hd219041219139_ + (let () (declare (not safe)) (##car _e219042219136_))) + (_tl219040219141_ + (let () (declare (not safe)) (##cdr _e219042219136_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219111219209_)) - (let ((_e219115219214_ + (gx#stx-pair? _hd219041219139_)) + (let ((_e219045219144_ (let () (declare (not safe)) - (gx#stx-e _hd219111219209_)))) - (let ((_hd219114219217_ + (gx#stx-e _hd219041219139_)))) + (let ((_hd219044219147_ (let () (declare (not safe)) - (##car _e219115219214_))) - (_tl219113219219_ + (##car _e219045219144_))) + (_tl219043219149_ (let () (declare (not safe)) - (##cdr _e219115219214_)))) + (##cdr _e219045219144_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219113219219_)) + (gx#stx-null? _tl219043219149_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219110219211_)) - (let ((_e219118219222_ + (gx#stx-pair? _tl219040219141_)) + (let ((_e219048219152_ (let () (declare (not safe)) - (gx#stx-e _tl219110219211_)))) - (let ((_hd219117219225_ + (gx#stx-e _tl219040219141_)))) + (let ((_hd219047219155_ (let () (declare (not safe)) - (##car _e219118219222_))) - (_tl219116219227_ + (##car _e219048219152_))) + (_tl219046219157_ (let () (declare (not safe)) - (##cdr _e219118219222_)))) + (##cdr _e219048219152_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219116219227_)) + (gx#stx-null? _tl219046219157_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl219107219203_)) + _tl219037219133_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl219104219195_)) - (let ((_e219121219230_ + _tl219034219125_)) + (let ((_e219051219160_ (let () (declare (not safe)) (gx#stx-e - _tl219104219195_)))) - (let ((_hd219120219233_ + _tl219034219125_)))) + (let ((_hd219050219163_ (let () (declare (not safe)) - (##car _e219121219230_))) - (_tl219119219235_ + (##car _e219051219160_))) + (_tl219049219165_ (let () (declare (not safe)) - (##cdr _e219121219230_)))) + (##cdr _e219051219160_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219119219235_)) + _tl219049219165_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl219098219179_)) + (gx#stx-null? _tl219028219109_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl219089219155_)) + (gx#stx-null? _tl219019219085_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219086219147_)) - (let ((_e219124219238_ + (gx#stx-pair? _tl219016219077_)) + (let ((_e219054219168_ (let () (declare (not safe)) - (gx#stx-e _tl219086219147_)))) - (let ((_hd219123219241_ + (gx#stx-e _tl219016219077_)))) + (let ((_hd219053219171_ (let () (declare (not safe)) - (##car _e219124219238_))) - (_tl219122219243_ + (##car _e219054219168_))) + (_tl219052219173_ (let () (declare (not safe)) - (##cdr _e219124219238_)))) + (##cdr _e219054219168_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219122219243_)) - ((lambda (_L219246_ - _L219247_ - _L219248_ - _L219249_ - _L219250_) - (let* ((_get-kws-id219290_ - (let ((__tmp233506 + (gx#stx-null? _tl219052219173_)) + ((lambda (_L219176_ + _L219177_ + _L219178_ + _L219179_ + _L219180_) + (let* ((_get-kws-id219220_ + (let ((__tmp233436 (let () (declare (not safe)) (gx#stx-e - _L219062_))) - (__tmp233505 + _L218992_))) + (__tmp233435 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp233506 - __tmp233505))) - (_get-kws-id219292_ - (let ((__tmp233507 + __tmp233436 + __tmp233435))) + (_get-kws-id219222_ + (let ((__tmp233437 (let () (declare (not safe)) (gx#stx-source - _stx218775_)))) + _stx218705_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id219290_ - __tmp233507))) - (_main-id219294_ - (let ((__tmp233509 + _get-kws-id219220_ + __tmp233437))) + (_main-id219224_ + (let ((__tmp233439 (let () (declare (not safe)) (gx#stx-e - _L219062_))) - (__tmp233508 + _L218992_))) + (__tmp233438 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp233509 - __tmp233508))) - (_main-id219296_ - (let ((__tmp233510 + __tmp233439 + __tmp233438))) + (_main-id219226_ + (let ((__tmp233440 (let () (declare (not safe)) (gx#stx-source - _stx218775_)))) + _stx218705_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id219294_ - __tmp233510))) - (_g233511_ + _main-id219224_ + __tmp233440))) + (_g233441_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id219292_))) - (_g233512_ + _get-kws-id219222_))) + (_g233442_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id219296_))) - (_new-kw-dispatch219300_ + _main-id219226_))) + (_new-kw-dispatch219230_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L219246_ - _L219250_ - _get-kws-id219292_))) - (_new-get-kws219302_ + _L219176_ + _L219180_ + _get-kws-id219222_))) + (_new-get-kws219232_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L219247_ - _L219249_ - _main-id219296_)))) - (let ((__tmp233515 + _L219177_ + _L219179_ + _main-id219226_)))) + (let ((__tmp233445 (let () (declare (not safe)) (gxc#identifier-symbol - _L219062_))) - (__tmp233514 + _L218992_))) + (__tmp233444 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id219292_))) - (__tmp233513 + _get-kws-id219222_))) + (__tmp233443 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id219296_)))) + _main-id219226_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp233515 + __tmp233445 '" => " - __tmp233514 + __tmp233444 '" => " - __tmp233513)) - (let ((__tmp233516 - (let ((__tmp233521 + __tmp233443)) + (let ((__tmp233446 + (let ((__tmp233451 (let () (declare (not safe)) - (_bind-e__231067231068_ - _main-id219296_ - _L219248_ + (_bind-e__230997230998_ + _main-id219226_ + _L219178_ '#f))) - (__tmp233517 - (let ((__tmp233520 + (__tmp233447 + (let ((__tmp233450 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_bind-e__231067231068_ - _get-kws-id219292_ - _new-get-kws219302_ + (_bind-e__230997230998_ + _get-kws-id219222_ + _new-get-kws219232_ '#f))) - (__tmp233518 - (let ((__tmp233519 + (__tmp233448 + (let ((__tmp233449 (let () (declare (not safe)) - (_bind-e__231067231068_ - _L219062_ - _new-kw-dispatch219300_ + (_bind-e__230997230998_ + _L218992_ + _new-kw-dispatch219230_ '#f)))) (declare (not safe)) - (cons __tmp233519 _rest218938_)))) + (cons __tmp233449 _rest218868_)))) (declare (not safe)) - (cons __tmp233520 __tmp233518)))) + (cons __tmp233450 __tmp233448)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp233521 - __tmp233517)))) + (cons __tmp233451 + __tmp233447)))) (declare (not safe)) - (_lp218915_ - __tmp233516 - _bind218918_)))) - _hd219123219241_ - _hd219120219233_ - _hd219117219225_ - _hd219114219217_ - _hd219096219169_) + (_lp218845_ + __tmp233446 + _bind218848_)))) + _hd219053219171_ + _hd219050219163_ + _hd219047219155_ + _hd219044219147_ + _hd219026219099_) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))))) + (_g219006219059_ _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))) + (_g219006219059_ _g219007219062_))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))) + (_g219006219059_ _g219007219062_))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))) + (_g219006219059_ _g219007219062_))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))))) + (_g219006219059_ _g219007219062_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g219076219129_ - _g219077219132_))) + (_g219006219059_ + _g219007219062_))) (let () (declare (not safe)) - (_g219076219129_ - _g219077219132_))) + (_g219006219059_ + _g219007219062_))) (let () (declare (not safe)) - (_g219076219129_ - _g219077219132_))))) + (_g219006219059_ + _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))) + (_g219006219059_ _g219007219062_))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))))) + (_g219006219059_ _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))))) + (_g219006219059_ _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))))) + (_g219006219059_ _g219007219062_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g219076219129_ - _g219077219132_))))) + (_g219006219059_ + _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))))) + (_g219006219059_ _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))))) + (_g219006219059_ _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))) + (_g219006219059_ _g219007219062_))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))))) + (_g219006219059_ _g219007219062_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g219076219129_ - _g219077219132_))))) + (_g219006219059_ + _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ - _g219077219132_))))) + (_g219006219059_ + _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))))) + (_g219006219059_ _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_))))) + (_g219006219059_ _g219007219062_))))) (let () (declare (not safe)) - (_g219076219129_ _g219077219132_)))))) + (_g219006219059_ _g219007219062_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g219075219305_ _L219061_)))) - (___kont233002233003_ - (lambda (_L219012_ _L219013_) - (let ((__tmp233522 - (let ((__tmp233523 - (let ((__tmp233524 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233525 + (_g219005219235_ _L218991_)))) + (___kont232932232933_ + (lambda (_L218942_ _L218943_) + (let ((__tmp233452 + (let ((__tmp233453 + (let ((__tmp233454 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp233455 (let () (declare (not safe)) - (gxc#compile-e__0 _L219012_)))) + (gxc#compile-e__0 _L218942_)))) (declare (not safe)) - (cons __tmp233525 '())))) + (cons __tmp233455 '())))) (declare (not safe)) - (cons _L219013_ __tmp233524)))) + (cons _L218943_ __tmp233454)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp233523 - _bind218918_)))) + (cons __tmp233453 + _bind218848_)))) (declare (not safe)) - (_lp218915_ - _rest218938_ - __tmp233522))))) - (let* ((___match233069233070_ - (lambda (_e218972219037_ - _hd218971219040_ - _tl218970219042_ - _e218975219045_ - _hd218974219048_ - _tl218973219050_ - _e218978219053_ - _hd218977219056_ - _tl218976219058_) - (let ((_L219061_ - _hd218977219056_) - (_L219062_ - _hd218974219048_)) + (_lp218845_ + _rest218868_ + __tmp233452))))) + (let* ((___match232999233000_ + (lambda (_e218902218967_ + _hd218901218970_ + _tl218900218972_ + _e218905218975_ + _hd218904218978_ + _tl218903218980_ + _e218908218983_ + _hd218907218986_ + _tl218906218988_) + (let ((_L218991_ + _hd218907218986_) + (_L218992_ + _hd218904218978_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L219062_)) + _L218992_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L219061_))) - (___kont233000233001_ - _L219061_ - _L219062_) - (___kont233002233003_ - _hd218977219056_ - _hd218971219040_))))) - (___match233047233048_ - (lambda (_e218961219313_ - _hd218960219316_ - _tl218959219318_ - _e218964219321_ - _hd218963219324_ - _tl218962219326_ - _e218967219329_ - _hd218966219332_ - _tl218965219334_) - (let ((_L219337_ - _hd218966219332_) - (_L219338_ - _hd218963219324_)) + _L218991_))) + (___kont232930232931_ + _L218991_ + _L218992_) + (___kont232932232933_ + _hd218907218986_ + _hd218901218970_))))) + (___match232977232978_ + (lambda (_e218891219243_ + _hd218890219246_ + _tl218889219248_ + _e218894219251_ + _hd218893219254_ + _tl218892219256_ + _e218897219259_ + _hd218896219262_ + _tl218895219264_) + (let ((_L219267_ + _hd218896219262_) + (_L219268_ + _hd218893219254_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L219338_)) + _L219268_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L219337_))) - (___kont232998232999_ - _L219337_ - _L219338_) - (___match233069233070_ - _e218961219313_ - _hd218960219316_ - _tl218959219318_ - _e218964219321_ - _hd218963219324_ - _tl218962219326_ - _e218967219329_ - _hd218966219332_ - _tl218965219334_))))) - (___match233025233026_ - (lambda (_e218950219485_ - _hd218949219488_ - _tl218948219490_ - _e218953219493_ - _hd218952219496_ - _tl218951219498_ - _e218956219501_ - _hd218955219504_ - _tl218954219506_) - (let ((_L219509_ - _hd218955219504_) - (_L219510_ - _hd218952219496_)) + _L219267_))) + (___kont232928232929_ + _L219267_ + _L219268_) + (___match232999233000_ + _e218891219243_ + _hd218890219246_ + _tl218889219248_ + _e218894219251_ + _hd218893219254_ + _tl218892219256_ + _e218897219259_ + _hd218896219262_ + _tl218895219264_))))) + (___match232955232956_ + (lambda (_e218880219415_ + _hd218879219418_ + _tl218878219420_ + _e218883219423_ + _hd218882219426_ + _tl218881219428_ + _e218886219431_ + _hd218885219434_ + _tl218884219436_) + (let ((_L219439_ + _hd218885219434_) + (_L219440_ + _hd218882219426_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L219510_)) + _L219440_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L219509_))) - (___kont232996232997_ - _L219509_ - _L219510_) - (___match233047233048_ - _e218950219485_ - _hd218949219488_ - _tl218948219490_ - _e218953219493_ - _hd218952219496_ - _tl218951219498_ - _e218956219501_ - _hd218955219504_ - _tl218954219506_)))))) + _L219439_))) + (___kont232926232927_ + _L219439_ + _L219440_) + (___match232977232978_ + _e218880219415_ + _hd218879219418_ + _tl218878219420_ + _e218883219423_ + _hd218882219426_ + _tl218881219428_ + _e218886219431_ + _hd218885219434_ + _tl218884219436_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx232994232995_)) - (let ((_e218950219485_ + ___stx232924232925_)) + (let ((_e218880219415_ (let () (declare (not safe)) (gx#stx-e - ___stx232994232995_)))) - (let ((_tl218948219490_ + ___stx232924232925_)))) + (let ((_tl218878219420_ (let () (declare (not safe)) - (##cdr _e218950219485_))) - (_hd218949219488_ + (##cdr _e218880219415_))) + (_hd218879219418_ (let () (declare (not safe)) - (##car _e218950219485_)))) + (##car _e218880219415_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd218949219488_)) - (let ((_e218953219493_ + _hd218879219418_)) + (let ((_e218883219423_ (let () (declare (not safe)) (gx#stx-e - _hd218949219488_)))) - (let ((_tl218951219498_ + _hd218879219418_)))) + (let ((_tl218881219428_ (let () (declare (not safe)) - (##cdr _e218953219493_))) - (_hd218952219496_ + (##cdr _e218883219423_))) + (_hd218882219426_ (let () (declare (not safe)) - (##car _e218953219493_)))) + (##car _e218883219423_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl218951219498_)) + _tl218881219428_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl218948219490_)) - (let ((_e218956219501_ + (gx#stx-pair? _tl218878219420_)) + (let ((_e218886219431_ (let () (declare (not safe)) - (gx#stx-e _tl218948219490_)))) - (let ((_tl218954219506_ + (gx#stx-e _tl218878219420_)))) + (let ((_tl218884219436_ (let () (declare (not safe)) - (##cdr _e218956219501_))) - (_hd218955219504_ + (##cdr _e218886219431_))) + (_hd218885219434_ (let () (declare (not safe)) - (##car _e218956219501_)))) + (##car _e218886219431_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218954219506_)) - (___match233025233026_ - _e218950219485_ - _hd218949219488_ - _tl218948219490_ - _e218953219493_ - _hd218952219496_ - _tl218951219498_ - _e218956219501_ - _hd218955219504_ - _tl218954219506_) + (gx#stx-null? _tl218884219436_)) + (___match232955232956_ + _e218880219415_ + _hd218879219418_ + _tl218878219420_ + _e218883219423_ + _hd218882219426_ + _tl218881219428_ + _e218886219431_ + _hd218885219434_ + _tl218884219436_) (let () (declare (not safe)) - (_g218944218991_))))) - (let () (declare (not safe)) (_g218944218991_))) + (_g218874218921_))))) + (let () (declare (not safe)) (_g218874218921_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218948219490_)) - (let ((_e218986219004_ + (gx#stx-pair? _tl218878219420_)) + (let ((_e218916218934_ (let () (declare (not safe)) - (gx#stx-e _tl218948219490_)))) - (let ((_tl218984219009_ + (gx#stx-e _tl218878219420_)))) + (let ((_tl218914218939_ (let () (declare (not safe)) - (##cdr _e218986219004_))) - (_hd218985219007_ + (##cdr _e218916218934_))) + (_hd218915218937_ (let () (declare (not safe)) - (##car _e218986219004_)))) + (##car _e218916218934_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218984219009_)) - (___kont233002233003_ - _hd218985219007_ - _hd218949219488_) + (gx#stx-null? _tl218914218939_)) + (___kont232932232933_ + _hd218915218937_ + _hd218879219418_) (let () (declare (not safe)) - (_g218944218991_))))) - (let () (declare (not safe)) (_g218944218991_)))))) + (_g218874218921_))))) + (let () (declare (not safe)) (_g218874218921_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl218948219490_)) - (let ((_e218986219004_ + _tl218878219420_)) + (let ((_e218916218934_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl218948219490_)))) - (let ((_tl218984219009_ - (let () (declare (not safe)) (##cdr _e218986219004_))) - (_hd218985219007_ - (let () (declare (not safe)) (##car _e218986219004_)))) + (gx#stx-e _tl218878219420_)))) + (let ((_tl218914218939_ + (let () (declare (not safe)) (##cdr _e218916218934_))) + (_hd218915218937_ + (let () (declare (not safe)) (##car _e218916218934_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218984219009_)) - (___kont233002233003_ _hd218985219007_ _hd218949219488_) - (let () (declare (not safe)) (_g218944218991_))))) - (let () (declare (not safe)) (_g218944218991_)))))) + (gx#stx-null? _tl218914218939_)) + (___kont232932232933_ _hd218915218937_ _hd218879219418_) + (let () (declare (not safe)) (_g218874218921_))))) + (let () (declare (not safe)) (_g218874218921_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g218944218991_))))))))) + (_g218874218921_))))))))) (if (let () (declare (not safe)) - (##pair? _rest218919218927_)) - (let ((_hd218924219605_ + (##pair? _rest218849218857_)) + (let ((_hd218854219535_ (let () (declare (not safe)) - (##car _rest218919218927_))) - (_tl218925219607_ + (##car _rest218849218857_))) + (_tl218855219537_ (let () (declare (not safe)) - (##cdr _rest218919218927_)))) - (let* ((_hd219610_ _hd218924219605_) - (_rest219612_ _tl218925219607_)) + (##cdr _rest218849218857_)))) + (let* ((_hd219540_ _hd218854219535_) + (_rest219542_ _tl218855219537_)) (declare (not safe)) - (_K218923219602_ _rest219612_ _hd219610_))) + (_K218853219532_ _rest219542_ _hd219540_))) (let () (declare (not safe)) - (_else218921218935_)))))))) - (let* ((___stx233086233087_ _stx218775_) - (_g218781218808_ + (_else218851218865_)))))))) + (let* ((___stx233016233017_ _stx218705_) + (_g218711218738_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx233086233087_))))) - (let ((___kont233088233089_ - (lambda (_L218868_ _L218869_ _L218870_) - (let ((__tmp233527 + ___stx233016233017_))))) + (let ((___kont233018233019_ + (lambda (_L218798_ _L218799_ _L218800_) + (let ((__tmp233457 (lambda () - (let ((_hd218907_ - (let ((__tmp233528 - (let ((__tmp233529 - (lambda (_g218899218902_ - _g218900218904_) + (let ((_hd218837_ + (let ((__tmp233458 + (let ((__tmp233459 + (lambda (_g218829218832_ + _g218830218834_) (let () (declare (not safe)) - (cons _g218899218902_ - _g218900218904_))))) + (cons _g218829218832_ + _g218830218834_))))) (declare (not safe)) - (foldr1 __tmp233529 + (foldr1 __tmp233459 '() - _L218869_)))) + _L218799_)))) (declare (not safe)) - (_compile-bindings218778_ __tmp233528))) - (_body218908_ + (_compile-bindings218708_ __tmp233458))) + (_body218838_ (let () (declare (not safe)) - (gxc#compile-e__0 _L218868_)))) - (let ((__tmp233530 - (let ((__tmp233531 - (let ((__tmp233532 + (gxc#compile-e__0 _L218798_)))) + (let ((__tmp233460 + (let ((__tmp233461 + (let ((__tmp233462 (let () (declare (not safe)) - (cons _body218908_ + (cons _body218838_ '())))) (declare (not safe)) - (cons _hd218907_ - __tmp233532)))) + (cons _hd218837_ + __tmp233462)))) (declare (not safe)) - (cons _L218870_ __tmp233531)))) + (cons _L218800_ __tmp233461)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp233530 - _stx218775_))))) - (__tmp233526 - (let ((__obj233151 - (make-object* gx#local-context::t '6))) - (gx#local-context:::init! __obj233151) - __obj233151))) + __tmp233460 + _stx218705_))))) + (__tmp233456 + (let ((__obj233081 + (make-object gx#local-context::t '6))) + (gx#local-context:::init! __obj233081) + __obj233081))) (declare (not safe)) (call-with-parameters - __tmp233527 + __tmp233457 gx#current-expander-context - __tmp233526)))) - (___kont233092233093_ + __tmp233456)))) + (___kont233022233023_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx218775_))))) - (let ((___match233113233114_ - (lambda (_e218788218820_ - _hd218787218823_ - _tl218786218825_ - _e218791218828_ - _hd218790218831_ - _tl218789218833_ - ___splice233090233091_ - _target218792218836_ - _tl218794218838_) - (letrec ((_loop218795218841_ - (lambda (_hd218793218844_ _bind218799218846_) + (gxc#xform-let-values% _stx218705_))))) + (let ((___match233043233044_ + (lambda (_e218718218750_ + _hd218717218753_ + _tl218716218755_ + _e218721218758_ + _hd218720218761_ + _tl218719218763_ + ___splice233020233021_ + _target218722218766_ + _tl218724218768_) + (letrec ((_loop218725218771_ + (lambda (_hd218723218774_ _bind218729218776_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd218793218844_)) - (let ((_e218796218849_ + (gx#stx-pair? _hd218723218774_)) + (let ((_e218726218779_ (let () (declare (not safe)) - (gx#stx-e _hd218793218844_)))) - (let ((_lp-tl218798218854_ + (gx#stx-e _hd218723218774_)))) + (let ((_lp-tl218728218784_ (let () (declare (not safe)) - (##cdr _e218796218849_))) - (_lp-hd218797218852_ + (##cdr _e218726218779_))) + (_lp-hd218727218782_ (let () (declare (not safe)) - (##car _e218796218849_)))) - (let ((__tmp233535 + (##car _e218726218779_)))) + (let ((__tmp233465 (let () (declare (not safe)) - (cons _lp-hd218797218852_ - _bind218799218846_)))) + (cons _lp-hd218727218782_ + _bind218729218776_)))) (declare (not safe)) - (_loop218795218841_ - _lp-tl218798218854_ - __tmp233535)))) - (let ((_bind218800218857_ - (reverse _bind218799218846_))) + (_loop218725218771_ + _lp-tl218728218784_ + __tmp233465)))) + (let ((_bind218730218787_ + (reverse _bind218729218776_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218789218833_)) - (let ((_e218803218860_ + (gx#stx-pair? _tl218719218763_)) + (let ((_e218733218790_ (let () (declare (not safe)) (gx#stx-e - _tl218789218833_)))) - (let ((_tl218801218865_ + _tl218719218763_)))) + (let ((_tl218731218795_ (let () (declare (not safe)) - (##cdr _e218803218860_))) - (_hd218802218863_ + (##cdr _e218733218790_))) + (_hd218732218793_ (let () (declare (not safe)) - (##car _e218803218860_)))) + (##car _e218733218790_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl218801218865_)) - (let ((_L218868_ - _hd218802218863_) - (_L218869_ - _bind218800218857_) - (_L218870_ - _hd218787218823_)) - (if (let ((__tmp233533 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233534 - (lambda (_g218891218894_ _g218892218896_) + _tl218731218795_)) + (let ((_L218798_ + _hd218732218793_) + (_L218799_ + _bind218730218787_) + (_L218800_ + _hd218717218753_)) + (if (let ((__tmp233463 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp233464 + (lambda (_g218821218824_ _g218822218826_) (let () (declare (not safe)) - (cons _g218891218894_ _g218892218896_))))) + (cons _g218821218824_ _g218822218826_))))) (declare (not safe)) - (foldr1 __tmp233534 '() _L218869_)))) + (foldr1 __tmp233464 '() _L218799_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp233533)) - (___kont233088233089_ _L218868_ _L218869_ _L218870_) - (___kont233092233093_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp233463)) + (___kont233018233019_ _L218798_ _L218799_ _L218800_) + (___kont233022233023_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont233092233093_)))) - (___kont233092233093_))))))) + (___kont233022233023_)))) + (___kont233022233023_))))))) (let () (declare (not safe)) - (_loop218795218841_ _target218792218836_ '())))))) + (_loop218725218771_ _target218722218766_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx233086233087_)) - (let ((_e218788218820_ + (gx#stx-pair? ___stx233016233017_)) + (let ((_e218718218750_ (let () (declare (not safe)) - (gx#stx-e ___stx233086233087_)))) - (let ((_tl218786218825_ + (gx#stx-e ___stx233016233017_)))) + (let ((_tl218716218755_ (let () (declare (not safe)) - (##cdr _e218788218820_))) - (_hd218787218823_ + (##cdr _e218718218750_))) + (_hd218717218753_ (let () (declare (not safe)) - (##car _e218788218820_)))) + (##car _e218718218750_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218786218825_)) - (let ((_e218791218828_ + (gx#stx-pair? _tl218716218755_)) + (let ((_e218721218758_ (let () (declare (not safe)) - (gx#stx-e _tl218786218825_)))) - (let ((_tl218789218833_ + (gx#stx-e _tl218716218755_)))) + (let ((_tl218719218763_ (let () (declare (not safe)) - (##cdr _e218791218828_))) - (_hd218790218831_ + (##cdr _e218721218758_))) + (_hd218720218761_ (let () (declare (not safe)) - (##car _e218791218828_)))) + (##car _e218721218758_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd218790218831_)) - (let ((___splice233090233091_ + (gx#stx-pair/null? _hd218720218761_)) + (let ((___splice233020233021_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd218790218831_ + _hd218720218761_ '0)))) - (let ((_tl218794218838_ + (let ((_tl218724218768_ (let () (declare (not safe)) (##vector-ref - ___splice233090233091_ + ___splice233020233021_ '1))) - (_target218792218836_ + (_target218722218766_ (let () (declare (not safe)) (##vector-ref - ___splice233090233091_ + ___splice233020233021_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218794218838_)) - (___match233113233114_ - _e218788218820_ - _hd218787218823_ - _tl218786218825_ - _e218791218828_ - _hd218790218831_ - _tl218789218833_ - ___splice233090233091_ - _target218792218836_ - _tl218794218838_) - (___kont233092233093_)))) - (___kont233092233093_)))) - (___kont233092233093_)))) - (___kont233092233093_)))))))) + (gx#stx-null? _tl218724218768_)) + (___match233043233044_ + _e218718218750_ + _hd218717218753_ + _tl218716218755_ + _e218721218758_ + _hd218720218761_ + _tl218719218763_ + ___splice233020233021_ + _target218722218766_ + _tl218724218768_) + (___kont233022233023_)))) + (___kont233022233023_)))) + (___kont233022233023_)))) + (___kont233022233023_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind218693_) - (let* ((___stx233116233117_ _bind218693_) - (_g218696218713_ + (lambda (_bind218623_) + (let* ((___stx233046233047_ _bind218623_) + (_g218626218643_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx233116233117_))))) - (let ((___kont233118233119_ - (lambda (_L218749_ _L218750_) - (if (let () (declare (not safe)) (gx#identifier? _L218750_)) - (let ((_$e218766_ + ___stx233046233047_))))) + (let ((___kont233048233049_ + (lambda (_L218679_ _L218680_) + (if (let () (declare (not safe)) (gx#identifier? _L218680_)) + (let ((_$e218696_ (let () (declare (not safe)) - (gxc#case-lambda-expr? _L218749_)))) - (if _$e218766_ - _$e218766_ - (let ((_$e218769_ + (gxc#case-lambda-expr? _L218679_)))) + (if _$e218696_ + _$e218696_ + (let ((_$e218699_ (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L218749_)))) - (if _$e218769_ - _$e218769_ + (gxc#opt-lambda-expr? _L218679_)))) + (if _$e218699_ + _$e218699_ (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L218749_)))))) + (gxc#kw-lambda-expr? _L218679_)))))) '#f))) - (___kont233120233121_ (lambda () '#f))) + (___kont233050233051_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx233116233117_)) - (let ((_e218702218725_ + (gx#stx-pair? ___stx233046233047_)) + (let ((_e218632218655_ (let () (declare (not safe)) - (gx#stx-e ___stx233116233117_)))) - (let ((_tl218700218730_ - (let () (declare (not safe)) (##cdr _e218702218725_))) - (_hd218701218728_ + (gx#stx-e ___stx233046233047_)))) + (let ((_tl218630218660_ + (let () (declare (not safe)) (##cdr _e218632218655_))) + (_hd218631218658_ (let () (declare (not safe)) - (##car _e218702218725_)))) + (##car _e218632218655_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd218701218728_)) - (let ((_e218705218733_ + (gx#stx-pair? _hd218631218658_)) + (let ((_e218635218663_ (let () (declare (not safe)) - (gx#stx-e _hd218701218728_)))) - (let ((_tl218703218738_ + (gx#stx-e _hd218631218658_)))) + (let ((_tl218633218668_ (let () (declare (not safe)) - (##cdr _e218705218733_))) - (_hd218704218736_ + (##cdr _e218635218663_))) + (_hd218634218666_ (let () (declare (not safe)) - (##car _e218705218733_)))) + (##car _e218635218663_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218703218738_)) + (gx#stx-null? _tl218633218668_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218700218730_)) - (let ((_e218708218741_ + (gx#stx-pair? _tl218630218660_)) + (let ((_e218638218671_ (let () (declare (not safe)) - (gx#stx-e _tl218700218730_)))) - (let ((_tl218706218746_ + (gx#stx-e _tl218630218660_)))) + (let ((_tl218636218676_ (let () (declare (not safe)) - (##cdr _e218708218741_))) - (_hd218707218744_ + (##cdr _e218638218671_))) + (_hd218637218674_ (let () (declare (not safe)) - (##car _e218708218741_)))) + (##car _e218638218671_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218706218746_)) - (___kont233118233119_ - _hd218707218744_ - _hd218704218736_) - (___kont233120233121_)))) - (___kont233120233121_)) - (___kont233120233121_)))) - (___kont233120233121_)))) - (___kont233120233121_)))))))) + (gx#stx-null? _tl218636218676_)) + (___kont233048233049_ + _hd218637218674_ + _hd218634218666_) + (___kont233050233051_)))) + (___kont233050233051_)) + (___kont233050233051_)))) + (___kont233050233051_)))) + (___kont233050233051_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__1.scm b/src/bootstrap/gerbil/compiler/optimize-top__1.scm index 288be91e8..956e45895 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 (_$stx218416_) - (let* ((_g218420218449_ - (lambda (_g218421218445_) + (lambda (_$stx218346_) + (let* ((_g218350218379_ + (lambda (_g218351218375_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g218421218445_)))) - (_g218419218550_ - (lambda (_g218421218453_) + _g218351218375_)))) + (_g218349218480_ + (lambda (_g218351218383_) (if (let () (declare (not safe)) - (gx#stx-pair? _g218421218453_)) - (let ((_e218426218456_ + (gx#stx-pair? _g218351218383_)) + (let ((_e218356218386_ (let () (declare (not safe)) - (gx#syntax-e _g218421218453_)))) - (let ((_hd218425218460_ + (gx#syntax-e _g218351218383_)))) + (let ((_hd218355218390_ (let () (declare (not safe)) - (##car _e218426218456_))) - (_tl218424218463_ + (##car _e218356218386_))) + (_tl218354218393_ (let () (declare (not safe)) - (##cdr _e218426218456_)))) + (##cdr _e218356218386_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl218424218463_)) - (let ((_g233536_ + (gx#stx-pair/null? _tl218354218393_)) + (let ((_g233466_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl218424218463_ + _tl218354218393_ '0)))) (begin - (let ((_g233537_ + (let ((_g233467_ (let () (declare (not safe)) - (if (##values? _g233536_) - (##vector-length _g233536_) + (if (##values? _g233466_) + (##vector-length _g233466_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g233537_ 2))) + (##fx= _g233467_ 2))) (error "Context expects 2 values" - _g233537_))) - (let ((_target218427218466_ + _g233467_))) + (let ((_target218357218396_ (let () (declare (not safe)) - (##vector-ref _g233536_ 0))) - (_tl218429218469_ + (##vector-ref _g233466_ 0))) + (_tl218359218399_ (let () (declare (not safe)) - (##vector-ref _g233536_ 1)))) + (##vector-ref _g233466_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218429218469_)) - (letrec ((_loop218430218472_ - (lambda (_hd218428218476_ - _type-e218434218479_ - _id218435218481_) + (gx#stx-null? _tl218359218399_)) + (letrec ((_loop218360218402_ + (lambda (_hd218358218406_ + _type-e218364218409_ + _id218365218411_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd218428218476_)) - (let ((_e218431218484_ + _hd218358218406_)) + (let ((_e218361218414_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd218428218476_)))) - (let ((_lp-hd218432218488_ - (let () (declare (not safe)) (##car _e218431218484_))) - (_lp-tl218433218491_ - (let () (declare (not safe)) (##cdr _e218431218484_)))) + (gx#syntax-e _hd218358218406_)))) + (let ((_lp-hd218362218418_ + (let () (declare (not safe)) (##car _e218361218414_))) + (_lp-tl218363218421_ + (let () (declare (not safe)) (##cdr _e218361218414_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd218432218488_)) - (let ((_e218440218494_ + (gx#stx-pair? _lp-hd218362218418_)) + (let ((_e218370218424_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd218432218488_)))) - (let ((_hd218439218498_ + (gx#syntax-e _lp-hd218362218418_)))) + (let ((_hd218369218428_ (let () (declare (not safe)) - (##car _e218440218494_))) - (_tl218438218501_ + (##car _e218370218424_))) + (_tl218368218431_ (let () (declare (not safe)) - (##cdr _e218440218494_)))) + (##cdr _e218370218424_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218438218501_)) - (let ((_e218443218504_ + (gx#stx-pair? _tl218368218431_)) + (let ((_e218373218434_ (let () (declare (not safe)) - (gx#syntax-e _tl218438218501_)))) - (let ((_hd218442218508_ + (gx#syntax-e _tl218368218431_)))) + (let ((_hd218372218438_ (let () (declare (not safe)) - (##car _e218443218504_))) - (_tl218441218511_ + (##car _e218373218434_))) + (_tl218371218441_ (let () (declare (not safe)) - (##cdr _e218443218504_)))) + (##cdr _e218373218434_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218441218511_)) - (_loop218430218472_ - _lp-tl218433218491_ + (gx#stx-null? _tl218371218441_)) + (_loop218360218402_ + _lp-tl218363218421_ (let () (declare (not safe)) - (cons _hd218442218508_ - _type-e218434218479_)) + (cons _hd218372218438_ + _type-e218364218409_)) (let () (declare (not safe)) - (cons _hd218439218498_ - _id218435218481_))) - (_g218420218449_ _g218421218453_)))) - (_g218420218449_ _g218421218453_)))) - (_g218420218449_ _g218421218453_)))) - (let ((_type-e218436218514_ (reverse _type-e218434218479_)) - (_id218437218517_ (reverse _id218435218481_))) - ((lambda (_L218520_ _L218522_) - (let ((__tmp233549 + (cons _hd218369218428_ + _id218365218411_))) + (_g218350218379_ _g218351218383_)))) + (_g218350218379_ _g218351218383_)))) + (_g218350218379_ _g218351218383_)))) + (let ((_type-e218366218444_ (reverse _type-e218364218409_)) + (_id218367218447_ (reverse _id218365218411_))) + ((lambda (_L218450_ _L218452_) + (let ((__tmp233479 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp233538 + (__tmp233468 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L218520_ - _L218522_)) - (let ((__tmp233539 - (lambda (_g218538218542_ - _g218539218545_ - _g218540218547_) - (let ((__tmp233540 - (let ((__tmp233548 + _L218450_ + _L218452_)) + (let ((__tmp233469 + (lambda (_g218468218472_ + _g218469218475_ + _g218470218477_) + (let ((__tmp233470 + (let ((__tmp233478 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp233541 - (let ((__tmp233547 + (__tmp233471 + (let ((__tmp233477 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-annotations))) - (__tmp233542 - (let ((__tmp233544 + (__tmp233472 + (let ((__tmp233474 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233546 + (let ((__tmp233476 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp233545 + (__tmp233475 (let () (declare (not safe)) - (cons _g218539218545_ '())))) + (cons _g218469218475_ '())))) (declare (not safe)) - (cons __tmp233546 __tmp233545))) - (__tmp233543 + (cons __tmp233476 __tmp233475))) + (__tmp233473 (let () (declare (not safe)) - (cons _g218538218542_ '())))) + (cons _g218468218472_ '())))) (declare (not safe)) - (cons __tmp233544 __tmp233543)))) + (cons __tmp233474 __tmp233473)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp233547 - __tmp233542)))) + (cons __tmp233477 + __tmp233472)))) (declare (not safe)) - (cons __tmp233548 __tmp233541)))) + (cons __tmp233478 __tmp233471)))) (declare (not safe)) - (cons __tmp233540 _g218540218547_))))) + (cons __tmp233470 _g218470218477_))))) (declare (not safe)) - (foldr2 __tmp233539 '() _L218520_ _L218522_))))) + (foldr2 __tmp233469 '() _L218450_ _L218452_))))) (declare (not safe)) - (cons __tmp233549 __tmp233538))) - _type-e218436218514_ - _id218437218517_)))))) + (cons __tmp233479 __tmp233468))) + _type-e218366218444_ + _id218367218447_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop218430218472_ - _target218427218466_ + (_loop218360218402_ + _target218357218396_ '() '())) - (_g218420218449_ _g218421218453_))))) - (_g218420218449_ _g218421218453_)))) - (_g218420218449_ _g218421218453_))))) - (_g218419218550_ _$stx218416_)))) + (_g218350218379_ _g218351218383_))))) + (_g218350218379_ _g218351218383_)))) + (_g218350218379_ _g218351218383_))))) + (_g218349218480_ _$stx218346_)))) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx218555_) - (let* ((_g218559218588_ - (lambda (_g218560218584_) + (lambda (_$stx218485_) + (let* ((_g218489218518_ + (lambda (_g218490218514_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g218560218584_)))) - (_g218558218688_ - (lambda (_g218560218592_) + _g218490218514_)))) + (_g218488218618_ + (lambda (_g218490218522_) (if (let () (declare (not safe)) - (gx#stx-pair? _g218560218592_)) - (let ((_e218565218595_ + (gx#stx-pair? _g218490218522_)) + (let ((_e218495218525_ (let () (declare (not safe)) - (gx#syntax-e _g218560218592_)))) - (let ((_hd218564218599_ + (gx#syntax-e _g218490218522_)))) + (let ((_hd218494218529_ (let () (declare (not safe)) - (##car _e218565218595_))) - (_tl218563218602_ + (##car _e218495218525_))) + (_tl218493218532_ (let () (declare (not safe)) - (##cdr _e218565218595_)))) + (##cdr _e218495218525_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl218563218602_)) - (let ((_g233550_ + (gx#stx-pair/null? _tl218493218532_)) + (let ((_g233480_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl218563218602_ + _tl218493218532_ '0)))) (begin - (let ((_g233551_ + (let ((_g233481_ (let () (declare (not safe)) - (if (##values? _g233550_) - (##vector-length _g233550_) + (if (##values? _g233480_) + (##vector-length _g233480_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g233551_ 2))) + (##fx= _g233481_ 2))) (error "Context expects 2 values" - _g233551_))) - (let ((_target218566218605_ + _g233481_))) + (let ((_target218496218535_ (let () (declare (not safe)) - (##vector-ref _g233550_ 0))) - (_tl218568218608_ + (##vector-ref _g233480_ 0))) + (_tl218498218538_ (let () (declare (not safe)) - (##vector-ref _g233550_ 1)))) + (##vector-ref _g233480_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218568218608_)) - (letrec ((_loop218569218611_ - (lambda (_hd218567218615_ - _type-e218573218618_ - _id218574218620_) + (gx#stx-null? _tl218498218538_)) + (letrec ((_loop218499218541_ + (lambda (_hd218497218545_ + _type-e218503218548_ + _id218504218550_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd218567218615_)) - (let ((_e218570218623_ + _hd218497218545_)) + (let ((_e218500218553_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd218567218615_)))) - (let ((_lp-hd218571218627_ - (let () (declare (not safe)) (##car _e218570218623_))) - (_lp-tl218572218630_ - (let () (declare (not safe)) (##cdr _e218570218623_)))) + (gx#syntax-e _hd218497218545_)))) + (let ((_lp-hd218501218557_ + (let () (declare (not safe)) (##car _e218500218553_))) + (_lp-tl218502218560_ + (let () (declare (not safe)) (##cdr _e218500218553_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd218571218627_)) - (let ((_e218579218633_ + (gx#stx-pair? _lp-hd218501218557_)) + (let ((_e218509218563_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd218571218627_)))) - (let ((_hd218578218637_ + (gx#syntax-e _lp-hd218501218557_)))) + (let ((_hd218508218567_ (let () (declare (not safe)) - (##car _e218579218633_))) - (_tl218577218640_ + (##car _e218509218563_))) + (_tl218507218570_ (let () (declare (not safe)) - (##cdr _e218579218633_)))) + (##cdr _e218509218563_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218577218640_)) - (let ((_e218582218643_ + (gx#stx-pair? _tl218507218570_)) + (let ((_e218512218573_ (let () (declare (not safe)) - (gx#syntax-e _tl218577218640_)))) - (let ((_hd218581218647_ + (gx#syntax-e _tl218507218570_)))) + (let ((_hd218511218577_ (let () (declare (not safe)) - (##car _e218582218643_))) - (_tl218580218650_ + (##car _e218512218573_))) + (_tl218510218580_ (let () (declare (not safe)) - (##cdr _e218582218643_)))) + (##cdr _e218512218573_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218580218650_)) - (_loop218569218611_ - _lp-tl218572218630_ + (gx#stx-null? _tl218510218580_)) + (_loop218499218541_ + _lp-tl218502218560_ (let () (declare (not safe)) - (cons _hd218581218647_ - _type-e218573218618_)) + (cons _hd218511218577_ + _type-e218503218548_)) (let () (declare (not safe)) - (cons _hd218578218637_ - _id218574218620_))) - (_g218559218588_ _g218560218592_)))) - (_g218559218588_ _g218560218592_)))) - (_g218559218588_ _g218560218592_)))) - (let ((_type-e218575218653_ (reverse _type-e218573218618_)) - (_id218576218656_ (reverse _id218574218620_))) - ((lambda (_L218659_ _L218661_) - (let ((__tmp233563 + (cons _hd218508218567_ + _id218504218550_))) + (_g218489218518_ _g218490218522_)))) + (_g218489218518_ _g218490218522_)))) + (_g218489218518_ _g218490218522_)))) + (let ((_type-e218505218583_ (reverse _type-e218503218548_)) + (_id218506218586_ (reverse _id218504218550_))) + ((lambda (_L218589_ _L218591_) + (let ((__tmp233493 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp233552 + (__tmp233482 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L218659_ - _L218661_)) - (let ((__tmp233553 - (lambda (_g218676218680_ - _g218677218683_ - _g218678218685_) - (let ((__tmp233554 - (let ((__tmp233562 + _L218589_ + _L218591_)) + (let ((__tmp233483 + (lambda (_g218606218610_ + _g218607218613_ + _g218608218615_) + (let ((__tmp233484 + (let ((__tmp233492 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp233555 - (let ((__tmp233561 + (__tmp233485 + (let ((__tmp233491 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-builtin))) - (__tmp233556 - (let ((__tmp233558 + (__tmp233486 + (let ((__tmp233488 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp233560 + (let ((__tmp233490 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp233559 + (__tmp233489 (let () (declare (not safe)) - (cons _g218677218683_ '())))) + (cons _g218607218613_ '())))) (declare (not safe)) - (cons __tmp233560 __tmp233559))) - (__tmp233557 + (cons __tmp233490 __tmp233489))) + (__tmp233487 (let () (declare (not safe)) - (cons _g218676218680_ '())))) + (cons _g218606218610_ '())))) (declare (not safe)) - (cons __tmp233558 __tmp233557)))) + (cons __tmp233488 __tmp233487)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp233561 - __tmp233556)))) + (cons __tmp233491 + __tmp233486)))) (declare (not safe)) - (cons __tmp233562 __tmp233555)))) + (cons __tmp233492 __tmp233485)))) (declare (not safe)) - (cons __tmp233554 _g218678218685_))))) + (cons __tmp233484 _g218608218615_))))) (declare (not safe)) - (foldr2 __tmp233553 '() _L218659_ _L218661_))))) + (foldr2 __tmp233483 '() _L218589_ _L218591_))))) (declare (not safe)) - (cons __tmp233563 __tmp233552))) - _type-e218575218653_ - _id218576218656_)))))) + (cons __tmp233493 __tmp233482))) + _type-e218505218583_ + _id218506218586_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop218569218611_ - _target218566218605_ + (_loop218499218541_ + _target218496218535_ '() '())) - (_g218559218588_ _g218560218592_))))) - (_g218559218588_ _g218560218592_)))) - (_g218559218588_ _g218560218592_))))) - (_g218558218688_ _$stx218555_))))) + (_g218489218518_ _g218490218522_))))) + (_g218489218518_ _g218490218522_)))) + (_g218489218518_ _g218490218522_))))) + (_g218488218618_ _$stx218485_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index 63d01eb81..cfefda539 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 1707423042) + (define gerbil/compiler/optimize-xform::timestamp 1707565662) (begin (define gxc#&identity-expression (make-promise (lambda () - (let ((_tbl213866_ + (let ((_tbl213796_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#begin-annotation gxc#xform-identity)) + (table-set! _tbl213796_ '%#begin-annotation gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#lambda gxc#xform-identity)) + (table-set! _tbl213796_ '%#lambda gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#case-lambda gxc#xform-identity)) + (table-set! _tbl213796_ '%#case-lambda gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#let-values gxc#xform-identity)) + (table-set! _tbl213796_ '%#let-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#letrec-values gxc#xform-identity)) + (table-set! _tbl213796_ '%#letrec-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#letrec*-values gxc#xform-identity)) + (table-set! _tbl213796_ '%#letrec*-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#quote gxc#xform-identity)) + (table-set! _tbl213796_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#quote-syntax gxc#xform-identity)) + (table-set! _tbl213796_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#call gxc#xform-identity)) + (table-set! _tbl213796_ '%#call gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#call-unchecked gxc#xform-identity)) + (table-set! _tbl213796_ '%#call-unchecked gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#if gxc#xform-identity)) + (table-set! _tbl213796_ '%#if gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#ref gxc#xform-identity)) + (table-set! _tbl213796_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#set! gxc#xform-identity)) + (table-set! _tbl213796_ '%#set! gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#struct-instance? gxc#xform-identity)) + (table-set! _tbl213796_ '%#struct-instance? gxc#xform-identity)) (let () (declare (not safe)) (table-set! - _tbl213866_ + _tbl213796_ '%#struct-direct-instance? gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#struct-ref gxc#xform-identity)) + (table-set! _tbl213796_ '%#struct-ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#struct-set! gxc#xform-identity)) + (table-set! _tbl213796_ '%#struct-set! gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#struct-direct-ref gxc#xform-identity)) + (table-set! _tbl213796_ '%#struct-direct-ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213866_ '%#struct-direct-set! gxc#xform-identity)) + (table-set! _tbl213796_ '%#struct-direct-set! gxc#xform-identity)) (let () (declare (not safe)) (table-set! - _tbl213866_ + _tbl213796_ '%#struct-unchecked-ref gxc#xform-identity)) (let () (declare (not safe)) (table-set! - _tbl213866_ + _tbl213796_ '%#struct-unchecked-set! gxc#xform-identity)) - _tbl213866_)))) + _tbl213796_)))) (define gxc#&identity-special-form (make-promise (lambda () - (let ((_tbl213862_ + (let ((_tbl213792_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#begin gxc#xform-identity)) + (table-set! _tbl213792_ '%#begin gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#begin-syntax gxc#xform-identity)) + (table-set! _tbl213792_ '%#begin-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#begin-foreign gxc#xform-identity)) + (table-set! _tbl213792_ '%#begin-foreign gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#module gxc#xform-identity)) + (table-set! _tbl213792_ '%#module gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#import gxc#xform-identity)) + (table-set! _tbl213792_ '%#import gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#export gxc#xform-identity)) + (table-set! _tbl213792_ '%#export gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#provide gxc#xform-identity)) + (table-set! _tbl213792_ '%#provide gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#extern gxc#xform-identity)) + (table-set! _tbl213792_ '%#extern gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#define-values gxc#xform-identity)) + (table-set! _tbl213792_ '%#define-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#define-syntax gxc#xform-identity)) + (table-set! _tbl213792_ '%#define-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#define-alias gxc#xform-identity)) + (table-set! _tbl213792_ '%#define-alias gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213862_ '%#declare gxc#xform-identity)) - _tbl213862_)))) + (table-set! _tbl213792_ '%#declare gxc#xform-identity)) + _tbl213792_)))) (define gxc#&identity (make-promise (lambda () - (let ((_tbl213858_ + (let ((_tbl213788_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp218306 (force gxc#&identity-special-form))) + (let ((__tmp218236 (force gxc#&identity-special-form))) (declare (not safe)) - (hash-copy! _tbl213858_ __tmp218306)) - (let ((__tmp218307 (force gxc#&identity-expression))) + (hash-copy! _tbl213788_ __tmp218236)) + (let ((__tmp218237 (force gxc#&identity-expression))) (declare (not safe)) - (hash-copy! _tbl213858_ __tmp218307)) - _tbl213858_)))) + (hash-copy! _tbl213788_ __tmp218237)) + _tbl213788_)))) (define gxc#&basic-xform-expression (make-promise (lambda () - (let ((_tbl213854_ + (let ((_tbl213784_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) (table-set! - _tbl213854_ + _tbl213784_ '%#begin-annotation gxc#xform-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#lambda gxc#xform-lambda%)) + (table-set! _tbl213784_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#case-lambda gxc#xform-case-lambda%)) + (table-set! _tbl213784_ '%#case-lambda gxc#xform-case-lambda%)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#let-values gxc#xform-let-values%)) + (table-set! _tbl213784_ '%#let-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#letrec-values gxc#xform-let-values%)) + (table-set! _tbl213784_ '%#letrec-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#letrec*-values gxc#xform-let-values%)) + (table-set! _tbl213784_ '%#letrec*-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#quote gxc#xform-identity)) + (table-set! _tbl213784_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#quote-syntax gxc#xform-identity)) + (table-set! _tbl213784_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#call gxc#xform-operands)) + (table-set! _tbl213784_ '%#call gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#call-unchecked gxc#xform-operands)) + (table-set! _tbl213784_ '%#call-unchecked gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#if gxc#xform-operands)) + (table-set! _tbl213784_ '%#if gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#ref gxc#xform-identity)) + (table-set! _tbl213784_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#set! gxc#xform-setq%)) + (table-set! _tbl213784_ '%#set! gxc#xform-setq%)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#struct-instance? gxc#xform-operands)) + (table-set! _tbl213784_ '%#struct-instance? gxc#xform-operands)) (let () (declare (not safe)) (table-set! - _tbl213854_ + _tbl213784_ '%#struct-direct-instance? gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#struct-ref gxc#xform-operands)) + (table-set! _tbl213784_ '%#struct-ref gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#struct-set! gxc#xform-operands)) + (table-set! _tbl213784_ '%#struct-set! gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#struct-direct-ref gxc#xform-operands)) + (table-set! _tbl213784_ '%#struct-direct-ref gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl213854_ '%#struct-direct-set! gxc#xform-operands)) + (table-set! _tbl213784_ '%#struct-direct-set! gxc#xform-operands)) (let () (declare (not safe)) (table-set! - _tbl213854_ + _tbl213784_ '%#struct-unchecked-ref gxc#xform-operands)) (let () (declare (not safe)) (table-set! - _tbl213854_ + _tbl213784_ '%#struct-unchecked-set! gxc#xform-operands)) - _tbl213854_)))) + _tbl213784_)))) (define gxc#&basic-xform (make-promise (lambda () - (let ((_tbl213850_ + (let ((_tbl213780_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp218308 (force gxc#&basic-xform-expression))) + (let ((__tmp218238 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl213850_ __tmp218308)) - (let ((__tmp218309 (force gxc#&identity))) + (hash-copy! _tbl213780_ __tmp218238)) + (let ((__tmp218239 (force gxc#&identity))) (declare (not safe)) - (hash-copy! _tbl213850_ __tmp218309)) + (hash-copy! _tbl213780_ __tmp218239)) (let () (declare (not safe)) - (table-set! _tbl213850_ '%#begin gxc#xform-begin%)) + (table-set! _tbl213780_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl213850_ '%#begin-syntax gxc#xform-begin-syntax%)) + (table-set! _tbl213780_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl213850_ '%#module gxc#xform-module%)) + (table-set! _tbl213780_ '%#module gxc#xform-module%)) (let () (declare (not safe)) (table-set! - _tbl213850_ + _tbl213780_ '%#define-values gxc#xform-define-values%)) (let () (declare (not safe)) (table-set! - _tbl213850_ + _tbl213780_ '%#define-syntax gxc#xform-define-syntax%)) - _tbl213850_)))) + _tbl213780_)))) (define gxc#&collect-mutators (make-promise (lambda () - (let ((_tbl213846_ + (let ((_tbl213776_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp218310 (force gxc#&void))) + (let ((__tmp218240 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl213846_ __tmp218310)) + (hash-copy! _tbl213776_ __tmp218240)) (let () (declare (not safe)) - (table-set! _tbl213846_ '%#begin gxc#collect-begin%)) + (table-set! _tbl213776_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl213846_ '%#module gxc#collect-module%)) + (table-set! _tbl213776_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#define-values gxc#collect-define-values%)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#define-syntax gxc#collect-define-syntax%)) (let () (declare (not safe)) - (table-set! _tbl213846_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl213776_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl213846_ '%#call gxc#collect-operands)) + (table-set! _tbl213776_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl213846_ '%#call-unchecked gxc#collect-operands)) + (table-set! _tbl213776_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl213846_ '%#if gxc#collect-operands)) + (table-set! _tbl213776_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl213846_ '%#set! gxc#collect-mutators-setq%)) + (table-set! _tbl213776_ '%#set! gxc#collect-mutators-setq%)) (let () (declare (not safe)) - (table-set! _tbl213846_ '%#struct-instance? gxc#collect-operands)) + (table-set! _tbl213776_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl213846_ '%#struct-ref gxc#collect-operands)) + (table-set! _tbl213776_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl213846_ '%#struct-set! gxc#collect-operands)) + (table-set! _tbl213776_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl213846_ + _tbl213776_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl213846_)))) + _tbl213776_)))) (define gxc#apply-collect-mutators - (lambda (_stx213829_ . _args213831_) - (let ((__tmp218312 + (lambda (_stx213759_ . _args213761_) + (let ((__tmp218242 (lambda () (declare (not safe)) - (if (null? _args213831_) - (gxc#compile-e__0 _stx213829_) - (let ((_arg1213836_ (car _args213831_)) - (_rest213838_ (cdr _args213831_))) - (if (null? _rest213838_) - (gxc#compile-e__1 _stx213829_ _arg1213836_) - (let ((_arg2213841_ (car _rest213838_)) - (_rest213843_ (cdr _rest213838_))) - (if (null? _rest213843_) + (if (null? _args213761_) + (gxc#compile-e__0 _stx213759_) + (let ((_arg1213766_ (car _args213761_)) + (_rest213768_ (cdr _args213761_))) + (if (null? _rest213768_) + (gxc#compile-e__1 _stx213759_ _arg1213766_) + (let ((_arg2213771_ (car _rest213768_)) + (_rest213773_ (cdr _rest213768_))) + (if (null? _rest213773_) (gxc#compile-e__2 - _stx213829_ - _arg1213836_ - _arg2213841_) + _stx213759_ + _arg1213766_ + _arg2213771_) (apply gxc#compile-e - _stx213829_ - _arg1213836_ - _arg2213841_ - _rest213843_)))))))) - (__tmp218311 (force gxc#&collect-mutators))) + _stx213759_ + _arg1213766_ + _arg2213771_ + _rest213773_)))))))) + (__tmp218241 (force gxc#&collect-mutators))) (declare (not safe)) (call-with-parameters - __tmp218312 + __tmp218242 gxc#current-compile-methods - __tmp218311)))) + __tmp218241)))) (define gxc#&collect-methods (make-promise (lambda () - (let ((_tbl213826_ + (let ((_tbl213756_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp218313 (force gxc#&void))) + (let ((__tmp218243 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl213826_ __tmp218313)) + (hash-copy! _tbl213756_ __tmp218243)) (let () (declare (not safe)) - (table-set! _tbl213826_ '%#begin gxc#collect-begin%)) + (table-set! _tbl213756_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl213826_ + _tbl213756_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl213826_ '%#module gxc#collect-module%)) + (table-set! _tbl213756_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (table-set! _tbl213826_ '%#call gxc#collect-methods-call%)) + (table-set! _tbl213756_ '%#call gxc#collect-methods-call%)) (let () (declare (not safe)) (table-set! - _tbl213826_ + _tbl213756_ '%#call-unchecked gxc#collect-methods-call%)) - _tbl213826_)))) + _tbl213756_)))) (define gxc#apply-collect-methods - (lambda (_stx213809_ . _args213811_) - (let ((__tmp218315 + (lambda (_stx213739_ . _args213741_) + (let ((__tmp218245 (lambda () (declare (not safe)) - (if (null? _args213811_) - (gxc#compile-e__0 _stx213809_) - (let ((_arg1213816_ (car _args213811_)) - (_rest213818_ (cdr _args213811_))) - (if (null? _rest213818_) - (gxc#compile-e__1 _stx213809_ _arg1213816_) - (let ((_arg2213821_ (car _rest213818_)) - (_rest213823_ (cdr _rest213818_))) - (if (null? _rest213823_) + (if (null? _args213741_) + (gxc#compile-e__0 _stx213739_) + (let ((_arg1213746_ (car _args213741_)) + (_rest213748_ (cdr _args213741_))) + (if (null? _rest213748_) + (gxc#compile-e__1 _stx213739_ _arg1213746_) + (let ((_arg2213751_ (car _rest213748_)) + (_rest213753_ (cdr _rest213748_))) + (if (null? _rest213753_) (gxc#compile-e__2 - _stx213809_ - _arg1213816_ - _arg2213821_) + _stx213739_ + _arg1213746_ + _arg2213751_) (apply gxc#compile-e - _stx213809_ - _arg1213816_ - _arg2213821_ - _rest213823_)))))))) - (__tmp218314 (force gxc#&collect-methods))) + _stx213739_ + _arg1213746_ + _arg2213751_ + _rest213753_)))))))) + (__tmp218244 (force gxc#&collect-methods))) (declare (not safe)) (call-with-parameters - __tmp218315 + __tmp218245 gxc#current-compile-methods - __tmp218314)))) + __tmp218244)))) (define gxc#&expression-subst (make-promise (lambda () - (let ((_tbl213806_ + (let ((_tbl213736_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp218316 (force gxc#&basic-xform-expression))) + (let ((__tmp218246 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl213806_ __tmp218316)) + (hash-copy! _tbl213736_ __tmp218246)) (let () (declare (not safe)) - (table-set! _tbl213806_ '%#begin gxc#xform-begin%)) + (table-set! _tbl213736_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl213806_ '%#ref gxc#expression-subst-ref%)) + (table-set! _tbl213736_ '%#ref gxc#expression-subst-ref%)) (let () (declare (not safe)) - (table-set! _tbl213806_ '%#set! gxc#expression-subst-setq%)) - _tbl213806_)))) + (table-set! _tbl213736_ '%#set! gxc#expression-subst-setq%)) + _tbl213736_)))) (define gxc#apply-expression-subst - (lambda (_stx213789_ . _args213791_) - (let ((__tmp218318 + (lambda (_stx213719_ . _args213721_) + (let ((__tmp218248 (lambda () (declare (not safe)) - (if (null? _args213791_) - (gxc#compile-e__0 _stx213789_) - (let ((_arg1213796_ (car _args213791_)) - (_rest213798_ (cdr _args213791_))) - (if (null? _rest213798_) - (gxc#compile-e__1 _stx213789_ _arg1213796_) - (let ((_arg2213801_ (car _rest213798_)) - (_rest213803_ (cdr _rest213798_))) - (if (null? _rest213803_) + (if (null? _args213721_) + (gxc#compile-e__0 _stx213719_) + (let ((_arg1213726_ (car _args213721_)) + (_rest213728_ (cdr _args213721_))) + (if (null? _rest213728_) + (gxc#compile-e__1 _stx213719_ _arg1213726_) + (let ((_arg2213731_ (car _rest213728_)) + (_rest213733_ (cdr _rest213728_))) + (if (null? _rest213733_) (gxc#compile-e__2 - _stx213789_ - _arg1213796_ - _arg2213801_) + _stx213719_ + _arg1213726_ + _arg2213731_) (apply gxc#compile-e - _stx213789_ - _arg1213796_ - _arg2213801_ - _rest213803_)))))))) - (__tmp218317 (force gxc#&expression-subst))) + _stx213719_ + _arg1213726_ + _arg2213731_ + _rest213733_)))))))) + (__tmp218247 (force gxc#&expression-subst))) (declare (not safe)) (call-with-parameters - __tmp218318 + __tmp218248 gxc#current-compile-methods - __tmp218317)))) + __tmp218247)))) (define gxc#&expression-subst* (make-promise (lambda () - (let ((_tbl213786_ + (let ((_tbl213716_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp218319 (force gxc#&expression-subst))) + (let ((__tmp218249 (force gxc#&expression-subst))) (declare (not safe)) - (hash-copy! _tbl213786_ __tmp218319)) + (hash-copy! _tbl213716_ __tmp218249)) (let () (declare (not safe)) - (table-set! _tbl213786_ '%#ref gxc#expression-subst*-ref%)) + (table-set! _tbl213716_ '%#ref gxc#expression-subst*-ref%)) (let () (declare (not safe)) - (table-set! _tbl213786_ '%#set! gxc#expression-subst*-setq%)) - _tbl213786_)))) + (table-set! _tbl213716_ '%#set! gxc#expression-subst*-setq%)) + _tbl213716_)))) (define gxc#apply-expression-subst* - (lambda (_stx213769_ . _args213771_) - (let ((__tmp218321 + (lambda (_stx213699_ . _args213701_) + (let ((__tmp218251 (lambda () (declare (not safe)) - (if (null? _args213771_) - (gxc#compile-e__0 _stx213769_) - (let ((_arg1213776_ (car _args213771_)) - (_rest213778_ (cdr _args213771_))) - (if (null? _rest213778_) - (gxc#compile-e__1 _stx213769_ _arg1213776_) - (let ((_arg2213781_ (car _rest213778_)) - (_rest213783_ (cdr _rest213778_))) - (if (null? _rest213783_) + (if (null? _args213701_) + (gxc#compile-e__0 _stx213699_) + (let ((_arg1213706_ (car _args213701_)) + (_rest213708_ (cdr _args213701_))) + (if (null? _rest213708_) + (gxc#compile-e__1 _stx213699_ _arg1213706_) + (let ((_arg2213711_ (car _rest213708_)) + (_rest213713_ (cdr _rest213708_))) + (if (null? _rest213713_) (gxc#compile-e__2 - _stx213769_ - _arg1213776_ - _arg2213781_) + _stx213699_ + _arg1213706_ + _arg2213711_) (apply gxc#compile-e - _stx213769_ - _arg1213776_ - _arg2213781_ - _rest213783_)))))))) - (__tmp218320 (force gxc#&expression-subst*))) + _stx213699_ + _arg1213706_ + _arg2213711_ + _rest213713_)))))))) + (__tmp218250 (force gxc#&expression-subst*))) (declare (not safe)) (call-with-parameters - __tmp218321 + __tmp218251 gxc#current-compile-methods - __tmp218320)))) + __tmp218250)))) (define gxc#&find-expression (make-promise (lambda () - (let ((_tbl213766_ + (let ((_tbl213696_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp218322 (force gxc#&false-expression))) + (let ((__tmp218252 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl213766_ __tmp218322)) + (hash-copy! _tbl213696_ __tmp218252)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#begin gxc#find-body%)) + (table-set! _tbl213696_ '%#begin gxc#find-body%)) (let () (declare (not safe)) (table-set! - _tbl213766_ + _tbl213696_ '%#begin-annotation gxc#find-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#lambda gxc#find-lambda%)) + (table-set! _tbl213696_ '%#lambda gxc#find-lambda%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#case-lambda gxc#find-case-lambda%)) + (table-set! _tbl213696_ '%#case-lambda gxc#find-case-lambda%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#let-values gxc#find-let-values%)) + (table-set! _tbl213696_ '%#let-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#letrec-values gxc#find-let-values%)) + (table-set! _tbl213696_ '%#letrec-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#letrec*-values gxc#find-let-values%)) + (table-set! _tbl213696_ '%#letrec*-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#call gxc#find-body%)) + (table-set! _tbl213696_ '%#call gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#call-unchecked gxc#find-body%)) + (table-set! _tbl213696_ '%#call-unchecked gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#if gxc#find-body%)) + (table-set! _tbl213696_ '%#if gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#set! gxc#find-setq%)) + (table-set! _tbl213696_ '%#set! gxc#find-setq%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#struct-instance? gxc#find-body%)) + (table-set! _tbl213696_ '%#struct-instance? gxc#find-body%)) (let () (declare (not safe)) (table-set! - _tbl213766_ + _tbl213696_ '%#struct-direct-instance? gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#struct-ref gxc#find-body%)) + (table-set! _tbl213696_ '%#struct-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#struct-set! gxc#find-body%)) + (table-set! _tbl213696_ '%#struct-set! gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#struct-direct-ref gxc#find-body%)) + (table-set! _tbl213696_ '%#struct-direct-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#struct-direct-set! gxc#find-body%)) + (table-set! _tbl213696_ '%#struct-direct-set! gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#struct-unchecked-ref gxc#find-body%)) + (table-set! _tbl213696_ '%#struct-unchecked-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl213766_ '%#struct-unchecked-set! gxc#find-body%)) - _tbl213766_)))) + (table-set! _tbl213696_ '%#struct-unchecked-set! gxc#find-body%)) + _tbl213696_)))) (define gxc#&find-var-refs (make-promise (lambda () - (let ((_tbl213762_ + (let ((_tbl213692_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp218323 (force gxc#&find-expression))) + (let ((__tmp218253 (force gxc#&find-expression))) (declare (not safe)) - (hash-copy! _tbl213762_ __tmp218323)) + (hash-copy! _tbl213692_ __tmp218253)) (let () (declare (not safe)) - (table-set! _tbl213762_ '%#ref gxc#find-var-refs-ref%)) + (table-set! _tbl213692_ '%#ref gxc#find-var-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl213762_ '%#set! gxc#find-var-refs-setq%)) - _tbl213762_)))) + (table-set! _tbl213692_ '%#set! gxc#find-var-refs-setq%)) + _tbl213692_)))) (define gxc#apply-find-var-refs - (lambda (_stx213745_ . _args213747_) - (let ((__tmp218325 + (lambda (_stx213675_ . _args213677_) + (let ((__tmp218255 (lambda () (declare (not safe)) - (if (null? _args213747_) - (gxc#compile-e__0 _stx213745_) - (let ((_arg1213752_ (car _args213747_)) - (_rest213754_ (cdr _args213747_))) - (if (null? _rest213754_) - (gxc#compile-e__1 _stx213745_ _arg1213752_) - (let ((_arg2213757_ (car _rest213754_)) - (_rest213759_ (cdr _rest213754_))) - (if (null? _rest213759_) + (if (null? _args213677_) + (gxc#compile-e__0 _stx213675_) + (let ((_arg1213682_ (car _args213677_)) + (_rest213684_ (cdr _args213677_))) + (if (null? _rest213684_) + (gxc#compile-e__1 _stx213675_ _arg1213682_) + (let ((_arg2213687_ (car _rest213684_)) + (_rest213689_ (cdr _rest213684_))) + (if (null? _rest213689_) (gxc#compile-e__2 - _stx213745_ - _arg1213752_ - _arg2213757_) + _stx213675_ + _arg1213682_ + _arg2213687_) (apply gxc#compile-e - _stx213745_ - _arg1213752_ - _arg2213757_ - _rest213759_)))))))) - (__tmp218324 (force gxc#&find-var-refs))) + _stx213675_ + _arg1213682_ + _arg2213687_ + _rest213689_)))))))) + (__tmp218254 (force gxc#&find-var-refs))) (declare (not safe)) (call-with-parameters - __tmp218325 + __tmp218255 gxc#current-compile-methods - __tmp218324)))) + __tmp218254)))) (define gxc#&collect-runtime-refs (make-promise (lambda () - (let ((_tbl213742_ + (let ((_tbl213672_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp218326 (force gxc#&collect-expression-refs))) + (let ((__tmp218256 (force gxc#&collect-expression-refs))) (declare (not safe)) - (hash-copy! _tbl213742_ __tmp218326)) + (hash-copy! _tbl213672_ __tmp218256)) (let () (declare (not safe)) - (table-set! _tbl213742_ '%#ref gxc#collect-runtime-refs-ref%)) + (table-set! _tbl213672_ '%#ref gxc#collect-runtime-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl213742_ '%#set! gxc#collect-runtime-refs-setq%)) - _tbl213742_)))) + (table-set! _tbl213672_ '%#set! gxc#collect-runtime-refs-setq%)) + _tbl213672_)))) (define gxc#apply-collect-runtime-refs - (lambda (_stx213725_ . _args213727_) - (let ((__tmp218328 + (lambda (_stx213655_ . _args213657_) + (let ((__tmp218258 (lambda () (declare (not safe)) - (if (null? _args213727_) - (gxc#compile-e__0 _stx213725_) - (let ((_arg1213732_ (car _args213727_)) - (_rest213734_ (cdr _args213727_))) - (if (null? _rest213734_) - (gxc#compile-e__1 _stx213725_ _arg1213732_) - (let ((_arg2213737_ (car _rest213734_)) - (_rest213739_ (cdr _rest213734_))) - (if (null? _rest213739_) + (if (null? _args213657_) + (gxc#compile-e__0 _stx213655_) + (let ((_arg1213662_ (car _args213657_)) + (_rest213664_ (cdr _args213657_))) + (if (null? _rest213664_) + (gxc#compile-e__1 _stx213655_ _arg1213662_) + (let ((_arg2213667_ (car _rest213664_)) + (_rest213669_ (cdr _rest213664_))) + (if (null? _rest213669_) (gxc#compile-e__2 - _stx213725_ - _arg1213732_ - _arg2213737_) + _stx213655_ + _arg1213662_ + _arg2213667_) (apply gxc#compile-e - _stx213725_ - _arg1213732_ - _arg2213737_ - _rest213739_)))))))) - (__tmp218327 (force gxc#&collect-runtime-refs))) + _stx213655_ + _arg1213662_ + _arg2213667_ + _rest213669_)))))))) + (__tmp218257 (force gxc#&collect-runtime-refs))) (declare (not safe)) (call-with-parameters - __tmp218328 + __tmp218258 gxc#current-compile-methods - __tmp218327)))) + __tmp218257)))) (define gxc#xform-identity - (lambda (_stx213722_ . _args213723_) _stx213722_)) + (lambda (_stx213652_ . _args213653_) _stx213652_)) (define gxc#xform-wrap-source - (lambda (_stx213719_ _src-stx213720_) - (let ((__tmp218329 - (let () (declare (not safe)) (gx#stx-source _src-stx213720_)))) + (lambda (_stx213649_ _src-stx213650_) + (let ((__tmp218259 + (let () (declare (not safe)) (gx#stx-source _src-stx213650_)))) (declare (not safe)) - (gx#stx-wrap-source _stx213719_ __tmp218329)))) + (gx#stx-wrap-source _stx213649_ __tmp218259)))) (define gxc#xform-apply-compile-e - (lambda (_args213706_) - (lambda (_stx213708_) - (if (let () (declare (not safe)) (null? _args213706_)) - (let () (declare (not safe)) (gxc#compile-e__0 _stx213708_)) - (let ((_arg1213710_ (car _args213706_)) - (_rest213712_ (cdr _args213706_))) - (if (let () (declare (not safe)) (null? _rest213712_)) + (lambda (_args213636_) + (lambda (_stx213638_) + (if (let () (declare (not safe)) (null? _args213636_)) + (let () (declare (not safe)) (gxc#compile-e__0 _stx213638_)) + (let ((_arg1213640_ (car _args213636_)) + (_rest213642_ (cdr _args213636_))) + (if (let () (declare (not safe)) (null? _rest213642_)) (let () (declare (not safe)) - (gxc#compile-e__1 _stx213708_ _arg1213710_)) - (let ((_arg2213715_ (car _rest213712_)) - (_rest213717_ (cdr _rest213712_))) - (if (let () (declare (not safe)) (null? _rest213717_)) + (gxc#compile-e__1 _stx213638_ _arg1213640_)) + (let ((_arg2213645_ (car _rest213642_)) + (_rest213647_ (cdr _rest213642_))) + (if (let () (declare (not safe)) (null? _rest213647_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx213708_ - _arg1213710_ - _arg2213715_)) + _stx213638_ + _arg1213640_ + _arg2213645_)) (apply gxc#compile-e - _stx213708_ - _arg1213710_ - _arg2213715_ - _rest213717_))))))))) + _stx213638_ + _arg1213640_ + _arg2213645_ + _rest213647_))))))))) (define gxc#xform-begin% - (lambda (_stx213665_ . _args213666_) - (let* ((_g213668213678_ - (lambda (_g213669213675_) + (lambda (_stx213595_ . _args213596_) + (let* ((_g213598213608_ + (lambda (_g213599213605_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g213669213675_)))) - (_g213667213703_ - (lambda (_g213669213681_) + _g213599213605_)))) + (_g213597213633_ + (lambda (_g213599213611_) (if (let () (declare (not safe)) - (gx#stx-pair? _g213669213681_)) - (let ((_e213673213683_ + (gx#stx-pair? _g213599213611_)) + (let ((_e213603213613_ (let () (declare (not safe)) - (gx#stx-e _g213669213681_)))) - (let ((_hd213672213686_ + (gx#stx-e _g213599213611_)))) + (let ((_hd213602213616_ (let () (declare (not safe)) - (##car _e213673213683_))) - (_tl213671213688_ + (##car _e213603213613_))) + (_tl213601213618_ (let () (declare (not safe)) - (##cdr _e213673213683_)))) - ((lambda (_L213691_) - (let* ((_forms213701_ + (##cdr _e213603213613_)))) + ((lambda (_L213621_) + (let* ((_forms213631_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args213666_)) - _L213691_)) - (__tmp218330 + _args213596_)) + _L213621_)) + (__tmp218260 (let () (declare (not safe)) - (cons '%#begin _forms213701_)))) + (cons '%#begin _forms213631_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp218330 - _stx213665_))) - _tl213671213688_))) + __tmp218260 + _stx213595_))) + _tl213601213618_))) (let () (declare (not safe)) - (_g213668213678_ _g213669213681_)))))) + (_g213598213608_ _g213599213611_)))))) (declare (not safe)) - (_g213667213703_ _stx213665_)))) + (_g213597213633_ _stx213595_)))) (define gxc#xform-begin-syntax% - (lambda (_stx213623_ . _args213624_) - (let* ((_g213626213636_ - (lambda (_g213627213633_) + (lambda (_stx213553_ . _args213554_) + (let* ((_g213556213566_ + (lambda (_g213557213563_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g213627213633_)))) - (_g213625213662_ - (lambda (_g213627213639_) + _g213557213563_)))) + (_g213555213592_ + (lambda (_g213557213569_) (if (let () (declare (not safe)) - (gx#stx-pair? _g213627213639_)) - (let ((_e213631213641_ + (gx#stx-pair? _g213557213569_)) + (let ((_e213561213571_ (let () (declare (not safe)) - (gx#stx-e _g213627213639_)))) - (let ((_hd213630213644_ + (gx#stx-e _g213557213569_)))) + (let ((_hd213560213574_ (let () (declare (not safe)) - (##car _e213631213641_))) - (_tl213629213646_ + (##car _e213561213571_))) + (_tl213559213576_ (let () (declare (not safe)) - (##cdr _e213631213641_)))) - ((lambda (_L213649_) - (let ((__tmp218333 + (##cdr _e213561213571_)))) + ((lambda (_L213579_) + (let ((__tmp218263 (lambda () - (let* ((_forms213660_ + (let* ((_forms213590_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args213624_)) - _L213649_)) - (__tmp218334 + _args213554_)) + _L213579_)) + (__tmp218264 (let () (declare (not safe)) (cons '%#begin-syntax - _forms213660_)))) + _forms213590_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp218334 - _stx213623_)))) - (__tmp218331 - (let ((__tmp218332 + __tmp218264 + _stx213553_)))) + (__tmp218261 + (let ((__tmp218262 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp218332 '1)))) + (fx+ __tmp218262 '1)))) (declare (not safe)) (call-with-parameters - __tmp218333 + __tmp218263 gx#current-expander-phi - __tmp218331))) - _tl213629213646_))) + __tmp218261))) + _tl213559213576_))) (let () (declare (not safe)) - (_g213626213636_ _g213627213639_)))))) + (_g213556213566_ _g213557213569_)))))) (declare (not safe)) - (_g213625213662_ _stx213623_)))) + (_g213555213592_ _stx213553_)))) (define gxc#xform-module% - (lambda (_stx213551_ . _args213552_) - (let* ((_g213554213568_ - (lambda (_g213555213565_) + (lambda (_stx213481_ . _args213482_) + (let* ((_g213484213498_ + (lambda (_g213485213495_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g213555213565_)))) - (_g213553213620_ - (lambda (_g213555213571_) + _g213485213495_)))) + (_g213483213550_ + (lambda (_g213485213501_) (if (let () (declare (not safe)) - (gx#stx-pair? _g213555213571_)) - (let ((_e213560213573_ + (gx#stx-pair? _g213485213501_)) + (let ((_e213490213503_ (let () (declare (not safe)) - (gx#stx-e _g213555213571_)))) - (let ((_hd213559213576_ + (gx#stx-e _g213485213501_)))) + (let ((_hd213489213506_ (let () (declare (not safe)) - (##car _e213560213573_))) - (_tl213558213578_ + (##car _e213490213503_))) + (_tl213488213508_ (let () (declare (not safe)) - (##cdr _e213560213573_)))) + (##cdr _e213490213503_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl213558213578_)) - (let ((_e213563213581_ + (gx#stx-pair? _tl213488213508_)) + (let ((_e213493213511_ (let () (declare (not safe)) - (gx#stx-e _tl213558213578_)))) - (let ((_hd213562213584_ + (gx#stx-e _tl213488213508_)))) + (let ((_hd213492213514_ (let () (declare (not safe)) - (##car _e213563213581_))) - (_tl213561213586_ + (##car _e213493213511_))) + (_tl213491213516_ (let () (declare (not safe)) - (##cdr _e213563213581_)))) - ((lambda (_L213589_ _L213590_) - (let* ((_ctx213603_ + (##cdr _e213493213511_)))) + ((lambda (_L213519_ _L213520_) + (let* ((_ctx213533_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L213590_))) - (_code213605_ + _L213520_))) + (_code213535_ (##structure-ref - _ctx213603_ + _ctx213533_ '11 gx#module-context::t '#f)) - (_code213617_ - (let ((__tmp218335 + (_code213547_ + (let ((__tmp218265 (lambda () (if (let () (declare (not safe)) - (null? _args213552_)) + (null? _args213482_)) (let () (declare (not safe)) (gxc#compile-e__0 - _code213605_)) - (let ((_arg1213608_ + _code213535_)) + (let ((_arg1213538_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _args213552_)) - (_rest213610_ (cdr _args213552_))) - (if (let () (declare (not safe)) (null? _rest213610_)) + (car _args213482_)) + (_rest213540_ (cdr _args213482_))) + (if (let () (declare (not safe)) (null? _rest213540_)) (let () (declare (not safe)) - (gxc#compile-e__1 _code213605_ _arg1213608_)) - (let ((_arg2213613_ (car _rest213610_)) - (_rest213615_ (cdr _rest213610_))) + (gxc#compile-e__1 _code213535_ _arg1213538_)) + (let ((_arg2213543_ (car _rest213540_)) + (_rest213545_ (cdr _rest213540_))) (if (let () (declare (not safe)) - (null? _rest213615_)) + (null? _rest213545_)) (let () (declare (not safe)) (gxc#compile-e__2 - _code213605_ - _arg1213608_ - _arg2213613_)) + _code213535_ + _arg1213538_ + _arg2213543_)) (apply gxc#compile-e - _code213605_ - _arg1213608_ - _arg2213613_ - _rest213615_))))))))) + _code213535_ + _arg1213538_ + _arg2213543_ + _rest213545_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp218335 + __tmp218265 gx#current-expander-context - _ctx213603_)))) + _ctx213533_)))) (##structure-set! - _ctx213603_ - _code213617_ + _ctx213533_ + _code213547_ '11 gx#module-context::t '#f) - (let ((__tmp218336 - (let ((__tmp218337 - (let ((__tmp218338 + (let ((__tmp218266 + (let ((__tmp218267 + (let ((__tmp218268 (let () (declare (not safe)) - (cons _code213617_ + (cons _code213547_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L213590_ __tmp218338)))) + (cons _L213520_ __tmp218268)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#module __tmp218337)))) + (cons '%#module __tmp218267)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp218336 - _stx213551_)))) - _tl213561213586_ - _hd213562213584_))) + __tmp218266 + _stx213481_)))) + _tl213491213516_ + _hd213492213514_))) (let () (declare (not safe)) - (_g213554213568_ _g213555213571_))))) + (_g213484213498_ _g213485213501_))))) (let () (declare (not safe)) - (_g213554213568_ _g213555213571_)))))) + (_g213484213498_ _g213485213501_)))))) (declare (not safe)) - (_g213553213620_ _stx213551_)))) + (_g213483213550_ _stx213481_)))) (define gxc#xform-define-values% - (lambda (_stx213472_ . _args213473_) - (let* ((_g213475213492_ - (lambda (_g213476213489_) + (lambda (_stx213402_ . _args213403_) + (let* ((_g213405213422_ + (lambda (_g213406213419_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g213476213489_)))) - (_g213474213548_ - (lambda (_g213476213495_) + _g213406213419_)))) + (_g213404213478_ + (lambda (_g213406213425_) (if (let () (declare (not safe)) - (gx#stx-pair? _g213476213495_)) - (let ((_e213481213497_ + (gx#stx-pair? _g213406213425_)) + (let ((_e213411213427_ (let () (declare (not safe)) - (gx#stx-e _g213476213495_)))) - (let ((_hd213480213500_ + (gx#stx-e _g213406213425_)))) + (let ((_hd213410213430_ (let () (declare (not safe)) - (##car _e213481213497_))) - (_tl213479213502_ + (##car _e213411213427_))) + (_tl213409213432_ (let () (declare (not safe)) - (##cdr _e213481213497_)))) + (##cdr _e213411213427_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl213479213502_)) - (let ((_e213484213505_ + (gx#stx-pair? _tl213409213432_)) + (let ((_e213414213435_ (let () (declare (not safe)) - (gx#stx-e _tl213479213502_)))) - (let ((_hd213483213508_ + (gx#stx-e _tl213409213432_)))) + (let ((_hd213413213438_ (let () (declare (not safe)) - (##car _e213484213505_))) - (_tl213482213510_ + (##car _e213414213435_))) + (_tl213412213440_ (let () (declare (not safe)) - (##cdr _e213484213505_)))) + (##cdr _e213414213435_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl213482213510_)) - (let ((_e213487213513_ + (gx#stx-pair? _tl213412213440_)) + (let ((_e213417213443_ (let () (declare (not safe)) - (gx#stx-e _tl213482213510_)))) - (let ((_hd213486213516_ + (gx#stx-e _tl213412213440_)))) + (let ((_hd213416213446_ (let () (declare (not safe)) - (##car _e213487213513_))) - (_tl213485213518_ + (##car _e213417213443_))) + (_tl213415213448_ (let () (declare (not safe)) - (##cdr _e213487213513_)))) + (##cdr _e213417213443_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl213485213518_)) - ((lambda (_L213521_ _L213522_) - (let* ((_expr213546_ + _tl213415213448_)) + ((lambda (_L213451_ _L213452_) + (let* ((_expr213476_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args213473_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L213521_)) - (let ((_arg1213537_ (car _args213473_)) - (_rest213539_ (cdr _args213473_))) - (if (let () (declare (not safe)) (null? _rest213539_)) + (null? _args213403_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L213451_)) + (let ((_arg1213467_ (car _args213403_)) + (_rest213469_ (cdr _args213403_))) + (if (let () (declare (not safe)) (null? _rest213469_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L213521_ _arg1213537_)) - (let ((_arg2213542_ (car _rest213539_)) - (_rest213544_ (cdr _rest213539_))) + (gxc#compile-e__1 _L213451_ _arg1213467_)) + (let ((_arg2213472_ (car _rest213469_)) + (_rest213474_ (cdr _rest213469_))) (if (let () (declare (not safe)) - (null? _rest213544_)) + (null? _rest213474_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L213521_ - _arg1213537_ - _arg2213542_)) + _L213451_ + _arg1213467_ + _arg2213472_)) (apply gxc#compile-e - _L213521_ - _arg1213537_ - _arg2213542_ - _rest213544_))))))) - (__tmp218339 - (let ((__tmp218340 - (let ((__tmp218341 + _L213451_ + _arg1213467_ + _arg2213472_ + _rest213474_))))))) + (__tmp218269 + (let ((__tmp218270 + (let ((__tmp218271 (let () (declare (not safe)) - (cons _expr213546_ '())))) + (cons _expr213476_ '())))) (declare (not safe)) - (cons _L213522_ __tmp218341)))) + (cons _L213452_ __tmp218271)))) (declare (not safe)) - (cons '%#define-values __tmp218340)))) + (cons '%#define-values __tmp218270)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp218339 - _stx213472_))) - _hd213486213516_ - _hd213483213508_) + __tmp218269 + _stx213402_))) + _hd213416213446_ + _hd213413213438_) (let () (declare (not safe)) - (_g213475213492_ - _g213476213495_))))) + (_g213405213422_ + _g213406213425_))))) (let () (declare (not safe)) - (_g213475213492_ _g213476213495_))))) + (_g213405213422_ _g213406213425_))))) (let () (declare (not safe)) - (_g213475213492_ _g213476213495_))))) + (_g213405213422_ _g213406213425_))))) (let () (declare (not safe)) - (_g213475213492_ _g213476213495_)))))) + (_g213405213422_ _g213406213425_)))))) (declare (not safe)) - (_g213474213548_ _stx213472_)))) + (_g213404213478_ _stx213402_)))) (define gxc#xform-define-syntax% - (lambda (_stx213392_ . _args213393_) - (let* ((_g213395213412_ - (lambda (_g213396213409_) + (lambda (_stx213322_ . _args213323_) + (let* ((_g213325213342_ + (lambda (_g213326213339_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g213396213409_)))) - (_g213394213469_ - (lambda (_g213396213415_) + _g213326213339_)))) + (_g213324213399_ + (lambda (_g213326213345_) (if (let () (declare (not safe)) - (gx#stx-pair? _g213396213415_)) - (let ((_e213401213417_ + (gx#stx-pair? _g213326213345_)) + (let ((_e213331213347_ (let () (declare (not safe)) - (gx#stx-e _g213396213415_)))) - (let ((_hd213400213420_ + (gx#stx-e _g213326213345_)))) + (let ((_hd213330213350_ (let () (declare (not safe)) - (##car _e213401213417_))) - (_tl213399213422_ + (##car _e213331213347_))) + (_tl213329213352_ (let () (declare (not safe)) - (##cdr _e213401213417_)))) + (##cdr _e213331213347_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl213399213422_)) - (let ((_e213404213425_ + (gx#stx-pair? _tl213329213352_)) + (let ((_e213334213355_ (let () (declare (not safe)) - (gx#stx-e _tl213399213422_)))) - (let ((_hd213403213428_ + (gx#stx-e _tl213329213352_)))) + (let ((_hd213333213358_ (let () (declare (not safe)) - (##car _e213404213425_))) - (_tl213402213430_ + (##car _e213334213355_))) + (_tl213332213360_ (let () (declare (not safe)) - (##cdr _e213404213425_)))) + (##cdr _e213334213355_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl213402213430_)) - (let ((_e213407213433_ + (gx#stx-pair? _tl213332213360_)) + (let ((_e213337213363_ (let () (declare (not safe)) - (gx#stx-e _tl213402213430_)))) - (let ((_hd213406213436_ + (gx#stx-e _tl213332213360_)))) + (let ((_hd213336213366_ (let () (declare (not safe)) - (##car _e213407213433_))) - (_tl213405213438_ + (##car _e213337213363_))) + (_tl213335213368_ (let () (declare (not safe)) - (##cdr _e213407213433_)))) + (##cdr _e213337213363_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl213405213438_)) - ((lambda (_L213441_ _L213442_) - (let ((__tmp218344 + _tl213335213368_)) + ((lambda (_L213371_ _L213372_) + (let ((__tmp218274 (lambda () - (let* ((_expr213467_ + (let* ((_expr213397_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (null? _args213393_)) + (null? _args213323_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L213441_)) - (let ((_arg1213458_ (car _args213393_)) - (_rest213460_ (cdr _args213393_))) + (gxc#compile-e__0 _L213371_)) + (let ((_arg1213388_ (car _args213323_)) + (_rest213390_ (cdr _args213323_))) (if (let () (declare (not safe)) - (null? _rest213460_)) + (null? _rest213390_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L213441_ - _arg1213458_)) - (let ((_arg2213463_ (car _rest213460_)) - (_rest213465_ (cdr _rest213460_))) + _L213371_ + _arg1213388_)) + (let ((_arg2213393_ (car _rest213390_)) + (_rest213395_ (cdr _rest213390_))) (if (let () (declare (not safe)) - (null? _rest213465_)) + (null? _rest213395_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L213441_ - _arg1213458_ - _arg2213463_)) + _L213371_ + _arg1213388_ + _arg2213393_)) (apply gxc#compile-e - _L213441_ - _arg1213458_ - _arg2213463_ - _rest213465_))))))) - (__tmp218345 - (let ((__tmp218346 - (let ((__tmp218347 + _L213371_ + _arg1213388_ + _arg2213393_ + _rest213395_))))))) + (__tmp218275 + (let ((__tmp218276 + (let ((__tmp218277 (let () (declare (not safe)) - (cons _expr213467_ '())))) + (cons _expr213397_ '())))) (declare (not safe)) - (cons _L213442_ __tmp218347)))) + (cons _L213372_ __tmp218277)))) (declare (not safe)) - (cons '%#define-syntax __tmp218346)))) + (cons '%#define-syntax __tmp218276)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp218345 _stx213392_)))) - (__tmp218342 - (let ((__tmp218343 (gx#current-expander-phi))) + (gxc#xform-wrap-source __tmp218275 _stx213322_)))) + (__tmp218272 + (let ((__tmp218273 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp218343 '1)))) + (fx+ __tmp218273 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp218344 + __tmp218274 gx#current-expander-phi - __tmp218342))) - _hd213406213436_ - _hd213403213428_) + __tmp218272))) + _hd213336213366_ + _hd213333213358_) (let () (declare (not safe)) - (_g213395213412_ - _g213396213415_))))) + (_g213325213342_ + _g213326213345_))))) (let () (declare (not safe)) - (_g213395213412_ _g213396213415_))))) + (_g213325213342_ _g213326213345_))))) (let () (declare (not safe)) - (_g213395213412_ _g213396213415_))))) + (_g213325213342_ _g213326213345_))))) (let () (declare (not safe)) - (_g213395213412_ _g213396213415_)))))) + (_g213325213342_ _g213326213345_)))))) (declare (not safe)) - (_g213394213469_ _stx213392_)))) + (_g213324213399_ _stx213322_)))) (define gxc#xform-begin-annotation% - (lambda (_stx213313_ . _args213314_) - (let* ((_g213316213333_ - (lambda (_g213317213330_) + (lambda (_stx213243_ . _args213244_) + (let* ((_g213246213263_ + (lambda (_g213247213260_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g213317213330_)))) - (_g213315213389_ - (lambda (_g213317213336_) + _g213247213260_)))) + (_g213245213319_ + (lambda (_g213247213266_) (if (let () (declare (not safe)) - (gx#stx-pair? _g213317213336_)) - (let ((_e213322213338_ + (gx#stx-pair? _g213247213266_)) + (let ((_e213252213268_ (let () (declare (not safe)) - (gx#stx-e _g213317213336_)))) - (let ((_hd213321213341_ + (gx#stx-e _g213247213266_)))) + (let ((_hd213251213271_ (let () (declare (not safe)) - (##car _e213322213338_))) - (_tl213320213343_ + (##car _e213252213268_))) + (_tl213250213273_ (let () (declare (not safe)) - (##cdr _e213322213338_)))) + (##cdr _e213252213268_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl213320213343_)) - (let ((_e213325213346_ + (gx#stx-pair? _tl213250213273_)) + (let ((_e213255213276_ (let () (declare (not safe)) - (gx#stx-e _tl213320213343_)))) - (let ((_hd213324213349_ + (gx#stx-e _tl213250213273_)))) + (let ((_hd213254213279_ (let () (declare (not safe)) - (##car _e213325213346_))) - (_tl213323213351_ + (##car _e213255213276_))) + (_tl213253213281_ (let () (declare (not safe)) - (##cdr _e213325213346_)))) + (##cdr _e213255213276_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl213323213351_)) - (let ((_e213328213354_ + (gx#stx-pair? _tl213253213281_)) + (let ((_e213258213284_ (let () (declare (not safe)) - (gx#stx-e _tl213323213351_)))) - (let ((_hd213327213357_ + (gx#stx-e _tl213253213281_)))) + (let ((_hd213257213287_ (let () (declare (not safe)) - (##car _e213328213354_))) - (_tl213326213359_ + (##car _e213258213284_))) + (_tl213256213289_ (let () (declare (not safe)) - (##cdr _e213328213354_)))) + (##cdr _e213258213284_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl213326213359_)) - ((lambda (_L213362_ _L213363_) - (let* ((_expr213387_ + _tl213256213289_)) + ((lambda (_L213292_ _L213293_) + (let* ((_expr213317_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args213314_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L213362_)) - (let ((_arg1213378_ (car _args213314_)) - (_rest213380_ (cdr _args213314_))) - (if (let () (declare (not safe)) (null? _rest213380_)) + (null? _args213244_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L213292_)) + (let ((_arg1213308_ (car _args213244_)) + (_rest213310_ (cdr _args213244_))) + (if (let () (declare (not safe)) (null? _rest213310_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L213362_ _arg1213378_)) - (let ((_arg2213383_ (car _rest213380_)) - (_rest213385_ (cdr _rest213380_))) + (gxc#compile-e__1 _L213292_ _arg1213308_)) + (let ((_arg2213313_ (car _rest213310_)) + (_rest213315_ (cdr _rest213310_))) (if (let () (declare (not safe)) - (null? _rest213385_)) + (null? _rest213315_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L213362_ - _arg1213378_ - _arg2213383_)) + _L213292_ + _arg1213308_ + _arg2213313_)) (apply gxc#compile-e - _L213362_ - _arg1213378_ - _arg2213383_ - _rest213385_))))))) - (__tmp218348 - (let ((__tmp218349 - (let ((__tmp218350 + _L213292_ + _arg1213308_ + _arg2213313_ + _rest213315_))))))) + (__tmp218278 + (let ((__tmp218279 + (let ((__tmp218280 (let () (declare (not safe)) - (cons _expr213387_ '())))) + (cons _expr213317_ '())))) (declare (not safe)) - (cons _L213363_ __tmp218350)))) + (cons _L213293_ __tmp218280)))) (declare (not safe)) - (cons '%#begin-annotation __tmp218349)))) + (cons '%#begin-annotation __tmp218279)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp218348 - _stx213313_))) - _hd213327213357_ - _hd213324213349_) + __tmp218278 + _stx213243_))) + _hd213257213287_ + _hd213254213279_) (let () (declare (not safe)) - (_g213316213333_ - _g213317213336_))))) + (_g213246213263_ + _g213247213266_))))) (let () (declare (not safe)) - (_g213316213333_ _g213317213336_))))) + (_g213246213263_ _g213247213266_))))) (let () (declare (not safe)) - (_g213316213333_ _g213317213336_))))) + (_g213246213263_ _g213247213266_))))) (let () (declare (not safe)) - (_g213316213333_ _g213317213336_)))))) + (_g213246213263_ _g213247213266_)))))) (declare (not safe)) - (_g213315213389_ _stx213313_)))) + (_g213245213319_ _stx213243_)))) (define gxc#xform-lambda% - (lambda (_stx213256_ . _args213257_) - (let* ((_g213259213273_ - (lambda (_g213260213270_) + (lambda (_stx213186_ . _args213187_) + (let* ((_g213189213203_ + (lambda (_g213190213200_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g213260213270_)))) - (_g213258213310_ - (lambda (_g213260213276_) + _g213190213200_)))) + (_g213188213240_ + (lambda (_g213190213206_) (if (let () (declare (not safe)) - (gx#stx-pair? _g213260213276_)) - (let ((_e213265213278_ + (gx#stx-pair? _g213190213206_)) + (let ((_e213195213208_ (let () (declare (not safe)) - (gx#stx-e _g213260213276_)))) - (let ((_hd213264213281_ + (gx#stx-e _g213190213206_)))) + (let ((_hd213194213211_ (let () (declare (not safe)) - (##car _e213265213278_))) - (_tl213263213283_ + (##car _e213195213208_))) + (_tl213193213213_ (let () (declare (not safe)) - (##cdr _e213265213278_)))) + (##cdr _e213195213208_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl213263213283_)) - (let ((_e213268213286_ + (gx#stx-pair? _tl213193213213_)) + (let ((_e213198213216_ (let () (declare (not safe)) - (gx#stx-e _tl213263213283_)))) - (let ((_hd213267213289_ + (gx#stx-e _tl213193213213_)))) + (let ((_hd213197213219_ (let () (declare (not safe)) - (##car _e213268213286_))) - (_tl213266213291_ + (##car _e213198213216_))) + (_tl213196213221_ (let () (declare (not safe)) - (##cdr _e213268213286_)))) - ((lambda (_L213294_ _L213295_) - (let* ((_body213308_ + (##cdr _e213198213216_)))) + ((lambda (_L213224_ _L213225_) + (let* ((_body213238_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args213257_)) - _L213294_)) - (__tmp218351 - (let ((__tmp218352 + _args213187_)) + _L213224_)) + (__tmp218281 + (let ((__tmp218282 (let () (declare (not safe)) - (cons _L213295_ - _body213308_)))) + (cons _L213225_ + _body213238_)))) (declare (not safe)) - (cons '%#lambda __tmp218352)))) + (cons '%#lambda __tmp218282)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp218351 - _stx213256_))) - _tl213266213291_ - _hd213267213289_))) + __tmp218281 + _stx213186_))) + _tl213196213221_ + _hd213197213219_))) (let () (declare (not safe)) - (_g213259213273_ _g213260213276_))))) + (_g213189213203_ _g213190213206_))))) (let () (declare (not safe)) - (_g213259213273_ _g213260213276_)))))) + (_g213189213203_ _g213190213206_)))))) (declare (not safe)) - (_g213258213310_ _stx213256_)))) + (_g213188213240_ _stx213186_)))) (define gxc#xform-case-lambda% - (lambda (_stx213169_ . _args213170_) - (letrec ((_clause-e213172_ - (lambda (_clause213213_) - (let* ((_g213215213226_ - (lambda (_g213216213223_) + (lambda (_stx213099_ . _args213100_) + (letrec ((_clause-e213102_ + (lambda (_clause213143_) + (let* ((_g213145213156_ + (lambda (_g213146213153_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g213216213223_)))) - (_g213214213253_ - (lambda (_g213216213229_) + _g213146213153_)))) + (_g213144213183_ + (lambda (_g213146213159_) (if (let () (declare (not safe)) - (gx#stx-pair? _g213216213229_)) - (let ((_e213221213231_ + (gx#stx-pair? _g213146213159_)) + (let ((_e213151213161_ (let () (declare (not safe)) - (gx#stx-e _g213216213229_)))) - (let ((_hd213220213234_ + (gx#stx-e _g213146213159_)))) + (let ((_hd213150213164_ (let () (declare (not safe)) - (##car _e213221213231_))) - (_tl213219213236_ + (##car _e213151213161_))) + (_tl213149213166_ (let () (declare (not safe)) - (##cdr _e213221213231_)))) - ((lambda (_L213239_ _L213240_) - (let ((_body213251_ + (##cdr _e213151213161_)))) + ((lambda (_L213169_ _L213170_) + (let ((_body213181_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args213170_)) - _L213239_))) + _args213100_)) + _L213169_))) (declare (not safe)) - (cons _L213240_ _body213251_))) - _tl213219213236_ - _hd213220213234_))) + (cons _L213170_ _body213181_))) + _tl213149213166_ + _hd213150213164_))) (let () (declare (not safe)) - (_g213215213226_ _g213216213229_)))))) + (_g213145213156_ _g213146213159_)))))) (declare (not safe)) - (_g213214213253_ _clause213213_))))) - (let* ((_g213174213184_ - (lambda (_g213175213181_) + (_g213144213183_ _clause213143_))))) + (let* ((_g213104213114_ + (lambda (_g213105213111_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g213175213181_)))) - (_g213173213210_ - (lambda (_g213175213187_) + _g213105213111_)))) + (_g213103213140_ + (lambda (_g213105213117_) (if (let () (declare (not safe)) - (gx#stx-pair? _g213175213187_)) - (let ((_e213179213189_ + (gx#stx-pair? _g213105213117_)) + (let ((_e213109213119_ (let () (declare (not safe)) - (gx#stx-e _g213175213187_)))) - (let ((_hd213178213192_ + (gx#stx-e _g213105213117_)))) + (let ((_hd213108213122_ (let () (declare (not safe)) - (##car _e213179213189_))) - (_tl213177213194_ + (##car _e213109213119_))) + (_tl213107213124_ (let () (declare (not safe)) - (##cdr _e213179213189_)))) - ((lambda (_L213197_) - (let* ((_clauses213208_ - (map _clause-e213172_ _L213197_)) - (__tmp218353 + (##cdr _e213109213119_)))) + ((lambda (_L213127_) + (let* ((_clauses213138_ + (map _clause-e213102_ _L213127_)) + (__tmp218283 (let () (declare (not safe)) (cons '%#case-lambda - _clauses213208_)))) + _clauses213138_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp218353 - _stx213169_))) - _tl213177213194_))) + __tmp218283 + _stx213099_))) + _tl213107213124_))) (let () (declare (not safe)) - (_g213174213184_ _g213175213187_)))))) + (_g213104213114_ _g213105213117_)))))) (declare (not safe)) - (_g213173213210_ _stx213169_))))) + (_g213103213140_ _stx213099_))))) (define gxc#xform-let-values% - (lambda (_stx212963_ . _args212964_) - (let* ((_g212966212999_ - (lambda (_g212967212996_) + (lambda (_stx212893_ . _args212894_) + (let* ((_g212896212929_ + (lambda (_g212897212926_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g212967212996_)))) - (_g212965213166_ - (lambda (_g212967213002_) + _g212897212926_)))) + (_g212895213096_ + (lambda (_g212897212932_) (if (let () (declare (not safe)) - (gx#stx-pair? _g212967213002_)) - (let ((_e212974213004_ + (gx#stx-pair? _g212897212932_)) + (let ((_e212904212934_ (let () (declare (not safe)) - (gx#stx-e _g212967213002_)))) - (let ((_hd212973213007_ + (gx#stx-e _g212897212932_)))) + (let ((_hd212903212937_ (let () (declare (not safe)) - (##car _e212974213004_))) - (_tl212972213009_ + (##car _e212904212934_))) + (_tl212902212939_ (let () (declare (not safe)) - (##cdr _e212974213004_)))) + (##cdr _e212904212934_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212972213009_)) - (let ((_e212977213012_ + (gx#stx-pair? _tl212902212939_)) + (let ((_e212907212942_ (let () (declare (not safe)) - (gx#stx-e _tl212972213009_)))) - (let ((_hd212976213015_ + (gx#stx-e _tl212902212939_)))) + (let ((_hd212906212945_ (let () (declare (not safe)) - (##car _e212977213012_))) - (_tl212975213017_ + (##car _e212907212942_))) + (_tl212905212947_ (let () (declare (not safe)) - (##cdr _e212977213012_)))) + (##cdr _e212907212942_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd212976213015_)) - (let ((_g218354_ + (gx#stx-pair/null? _hd212906212945_)) + (let ((_g218284_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd212976213015_ + _hd212906212945_ '0)))) (begin - (let ((_g218355_ + (let ((_g218285_ (let () (declare (not safe)) - (if (##values? _g218354_) + (if (##values? _g218284_) (##vector-length - _g218354_) + _g218284_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g218355_ 2))) + (##fx= _g218285_ 2))) (error "Context expects 2 values" - _g218355_))) - (let ((_target212978213020_ + _g218285_))) + (let ((_target212908212950_ (let () (declare (not safe)) - (##vector-ref _g218354_ 0))) - (_tl212980213022_ + (##vector-ref _g218284_ 0))) + (_tl212910212952_ (let () (declare (not safe)) (##vector-ref - _g218354_ + _g218284_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl212980213022_)) - (letrec ((_loop212981213025_ - (lambda (_hd212979213028_ + _tl212910212952_)) + (letrec ((_loop212911212955_ + (lambda (_hd212909212958_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr212985213030_ - _hd212986213032_) + _expr212915212960_ + _hd212916212962_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd212979213028_)) - (let ((_e212982213035_ + (gx#stx-pair? _hd212909212958_)) + (let ((_e212912212965_ (let () (declare (not safe)) - (gx#stx-e _hd212979213028_)))) - (let ((_lp-hd212983213038_ + (gx#stx-e _hd212909212958_)))) + (let ((_lp-hd212913212968_ (let () (declare (not safe)) - (##car _e212982213035_))) - (_lp-tl212984213040_ + (##car _e212912212965_))) + (_lp-tl212914212970_ (let () (declare (not safe)) - (##cdr _e212982213035_)))) + (##cdr _e212912212965_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd212983213038_)) - (let ((_e212991213043_ + (gx#stx-pair? _lp-hd212913212968_)) + (let ((_e212921212973_ (let () (declare (not safe)) - (gx#stx-e _lp-hd212983213038_)))) - (let ((_hd212990213046_ + (gx#stx-e _lp-hd212913212968_)))) + (let ((_hd212920212976_ (let () (declare (not safe)) - (##car _e212991213043_))) - (_tl212989213048_ + (##car _e212921212973_))) + (_tl212919212978_ (let () (declare (not safe)) - (##cdr _e212991213043_)))) + (##cdr _e212921212973_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212989213048_)) - (let ((_e212994213051_ + (gx#stx-pair? _tl212919212978_)) + (let ((_e212924212981_ (let () (declare (not safe)) - (gx#stx-e _tl212989213048_)))) - (let ((_hd212993213054_ + (gx#stx-e _tl212919212978_)))) + (let ((_hd212923212984_ (let () (declare (not safe)) - (##car _e212994213051_))) - (_tl212992213056_ + (##car _e212924212981_))) + (_tl212922212986_ (let () (declare (not safe)) - (##cdr _e212994213051_)))) + (##cdr _e212924212981_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl212992213056_)) - (let ((__tmp218368 + _tl212922212986_)) + (let ((__tmp218298 (let () (declare (not safe)) - (cons _hd212993213054_ - _expr212985213030_))) - (__tmp218367 + (cons _hd212923212984_ + _expr212915212960_))) + (__tmp218297 (let () (declare (not safe)) - (cons _hd212990213046_ - _hd212986213032_)))) + (cons _hd212920212976_ + _hd212916212962_)))) (declare (not safe)) - (_loop212981213025_ - _lp-tl212984213040_ - __tmp218368 - __tmp218367)) + (_loop212911212955_ + _lp-tl212914212970_ + __tmp218298 + __tmp218297)) (let () (declare (not safe)) - (_g212966212999_ - _g212967213002_))))) + (_g212896212929_ + _g212897212932_))))) (let () (declare (not safe)) - (_g212966212999_ _g212967213002_))))) + (_g212896212929_ _g212897212932_))))) (let () (declare (not safe)) - (_g212966212999_ _g212967213002_))))) - (let ((_expr212987213059_ (reverse _expr212985213030_)) - (_hd212988213061_ (reverse _hd212986213032_))) - ((lambda (_L213064_ _L213065_ _L213066_ _L213067_) - (let* ((_g213086213102_ - (lambda (_g213087213099_) + (_g212896212929_ _g212897212932_))))) + (let ((_expr212917212989_ (reverse _expr212915212960_)) + (_hd212918212991_ (reverse _hd212916212962_))) + ((lambda (_L212994_ _L212995_ _L212996_ _L212997_) + (let* ((_g213016213032_ + (lambda (_g213017213029_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g213087213099_)))) - (_g213085213156_ - (lambda (_g213087213105_) + _g213017213029_)))) + (_g213015213086_ + (lambda (_g213017213035_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g213087213105_)) - (let ((_g218356_ + _g213017213035_)) + (let ((_g218286_ (let () (declare (not safe)) (gx#syntax-split-splice - _g213087213105_ + _g213017213035_ '0)))) (begin - (let ((_g218357_ + (let ((_g218287_ (let () (declare (not safe)) (if (##values? - _g218356_) + _g218286_) (##vector-length - _g218356_) + _g218286_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g218357_ + (##fx= _g218287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g218357_))) - (let ((_target213089213107_ + _g218287_))) + (let ((_target213019213037_ (let () (declare (not safe)) (##vector-ref - _g218356_ + _g218286_ 0))) - (_tl213091213109_ + (_tl213021213039_ (let () (declare (not safe)) (##vector-ref - _g218356_ + _g218286_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl213091213109_)) - (letrec ((_loop213092213112_ - (lambda (_hd213090213115_ + _tl213021213039_)) + (letrec ((_loop213022213042_ + (lambda (_hd213020213045_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr213096213117_) + _expr213026213047_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd213090213115_)) - (let ((_e213093213120_ + (gx#stx-pair? _hd213020213045_)) + (let ((_e213023213050_ (let () (declare (not safe)) - (gx#syntax-e _hd213090213115_)))) - (let ((_lp-hd213094213123_ + (gx#syntax-e _hd213020213045_)))) + (let ((_lp-hd213024213053_ (let () (declare (not safe)) - (##car _e213093213120_))) - (_lp-tl213095213125_ + (##car _e213023213050_))) + (_lp-tl213025213055_ (let () (declare (not safe)) - (##cdr _e213093213120_)))) - (let ((__tmp218364 + (##cdr _e213023213050_)))) + (let ((__tmp218294 (let () (declare (not safe)) - (cons _lp-hd213094213123_ - _expr213096213117_)))) + (cons _lp-hd213024213053_ + _expr213026213047_)))) (declare (not safe)) - (_loop213092213112_ - _lp-tl213095213125_ - __tmp218364)))) - (let ((_expr213097213128_ - (reverse _expr213096213117_))) - ((lambda (_L213131_) + (_loop213022213042_ + _lp-tl213025213055_ + __tmp218294)))) + (let ((_expr213027213058_ + (reverse _expr213026213047_))) + ((lambda (_L213061_) (let () - (let* ((_body213144_ + (let* ((_body213074_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args212964_)) - _L213064_)) - (__tmp218358 - (let ((__tmp218359 - (let ((__tmp218360 + _args212894_)) + _L212994_)) + (__tmp218288 + (let ((__tmp218289 + (let ((__tmp218290 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L213131_ - _L213066_)) - (let ((__tmp218361 + _L213061_ + _L212996_)) + (let ((__tmp218291 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g213145213149_ - _g213146213151_ - _g213147213153_) - (let ((__tmp218362 - (let ((__tmp218363 + (lambda (_g213075213079_ + _g213076213081_ + _g213077213083_) + (let ((__tmp218292 + (let ((__tmp218293 (let () (declare (not safe)) - (cons _g213145213149_ '())))) + (cons _g213075213079_ '())))) (declare (not safe)) - (cons _g213146213151_ __tmp218363)))) + (cons _g213076213081_ __tmp218293)))) (declare (not safe)) - (cons __tmp218362 _g213147213153_))))) + (cons __tmp218292 _g213077213083_))))) (declare (not safe)) - (foldr2 __tmp218361 '() _L213131_ _L213066_))))) + (foldr2 __tmp218291 '() _L213061_ _L212996_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp218360 - _body213144_)))) + (cons __tmp218290 + _body213074_)))) (declare (not safe)) - (cons _L213067_ __tmp218359)))) + (cons _L212997_ __tmp218289)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp218358 - _stx212963_)))) - _expr213097213128_)))))) + __tmp218288 + _stx212893_)))) + _expr213027213058_)))))) (let () (declare (not safe)) - (_loop213092213112_ _target213089213107_ '()))) + (_loop213022213042_ _target213019213037_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g213086213102_ - _g213087213105_)))))) + (_g213016213032_ + _g213017213035_)))))) (let () (declare (not safe)) - (_g213086213102_ - _g213087213105_))))) - (__tmp218365 + (_g213016213032_ + _g213017213035_))))) + (__tmp218295 (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args212964_)) - (let ((__tmp218366 - (lambda (_g213158213161_ - _g213159213163_) + _args212894_)) + (let ((__tmp218296 + (lambda (_g213088213091_ + _g213089213093_) (let () (declare (not safe)) - (cons _g213158213161_ - _g213159213163_))))) + (cons _g213088213091_ + _g213089213093_))))) (declare (not safe)) - (foldr1 __tmp218366 + (foldr1 __tmp218296 '() - _L213065_))))) + _L212995_))))) (declare (not safe)) - (_g213085213156_ __tmp218365))) - _tl212975213017_ - _expr212987213059_ - _hd212988213061_ - _hd212973213007_)))))) + (_g213015213086_ __tmp218295))) + _tl212905212947_ + _expr212917212989_ + _hd212918212991_ + _hd212903212937_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop212981213025_ - _target212978213020_ + (_loop212911212955_ + _target212908212950_ '() '()))) (let () (declare (not safe)) - (_g212966212999_ - _g212967213002_)))))) + (_g212896212929_ + _g212897212932_)))))) (let () (declare (not safe)) - (_g212966212999_ _g212967213002_))))) + (_g212896212929_ _g212897212932_))))) (let () (declare (not safe)) - (_g212966212999_ _g212967213002_))))) + (_g212896212929_ _g212897212932_))))) (let () (declare (not safe)) - (_g212966212999_ _g212967213002_)))))) + (_g212896212929_ _g212897212932_)))))) (declare (not safe)) - (_g212965213166_ _stx212963_)))) + (_g212895213096_ _stx212893_)))) (define gxc#xform-operands - (lambda (_stx212919_ . _args212920_) - (let* ((_g212922212933_ - (lambda (_g212923212930_) + (lambda (_stx212849_ . _args212850_) + (let* ((_g212852212863_ + (lambda (_g212853212860_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g212923212930_)))) - (_g212921212960_ - (lambda (_g212923212936_) + _g212853212860_)))) + (_g212851212890_ + (lambda (_g212853212866_) (if (let () (declare (not safe)) - (gx#stx-pair? _g212923212936_)) - (let ((_e212928212938_ + (gx#stx-pair? _g212853212866_)) + (let ((_e212858212868_ (let () (declare (not safe)) - (gx#stx-e _g212923212936_)))) - (let ((_hd212927212941_ + (gx#stx-e _g212853212866_)))) + (let ((_hd212857212871_ (let () (declare (not safe)) - (##car _e212928212938_))) - (_tl212926212943_ + (##car _e212858212868_))) + (_tl212856212873_ (let () (declare (not safe)) - (##cdr _e212928212938_)))) - ((lambda (_L212946_ _L212947_) - (let* ((_rands212958_ + (##cdr _e212858212868_)))) + ((lambda (_L212876_ _L212877_) + (let* ((_rands212888_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args212920_)) - _L212946_)) - (__tmp218369 + _args212850_)) + _L212876_)) + (__tmp218299 (let () (declare (not safe)) - (cons _L212947_ _rands212958_)))) + (cons _L212877_ _rands212888_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp218369 - _stx212919_))) - _tl212926212943_ - _hd212927212941_))) + __tmp218299 + _stx212849_))) + _tl212856212873_ + _hd212857212871_))) (let () (declare (not safe)) - (_g212922212933_ _g212923212936_)))))) + (_g212852212863_ _g212853212866_)))))) (declare (not safe)) - (_g212921212960_ _stx212919_)))) + (_g212851212890_ _stx212849_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_stx212840_ . _args212841_) - (let* ((_g212843212860_ - (lambda (_g212844212857_) + (lambda (_stx212770_ . _args212771_) + (let* ((_g212773212790_ + (lambda (_g212774212787_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g212844212857_)))) - (_g212842212916_ - (lambda (_g212844212863_) + _g212774212787_)))) + (_g212772212846_ + (lambda (_g212774212793_) (if (let () (declare (not safe)) - (gx#stx-pair? _g212844212863_)) - (let ((_e212849212865_ + (gx#stx-pair? _g212774212793_)) + (let ((_e212779212795_ (let () (declare (not safe)) - (gx#stx-e _g212844212863_)))) - (let ((_hd212848212868_ + (gx#stx-e _g212774212793_)))) + (let ((_hd212778212798_ (let () (declare (not safe)) - (##car _e212849212865_))) - (_tl212847212870_ + (##car _e212779212795_))) + (_tl212777212800_ (let () (declare (not safe)) - (##cdr _e212849212865_)))) + (##cdr _e212779212795_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212847212870_)) - (let ((_e212852212873_ + (gx#stx-pair? _tl212777212800_)) + (let ((_e212782212803_ (let () (declare (not safe)) - (gx#stx-e _tl212847212870_)))) - (let ((_hd212851212876_ + (gx#stx-e _tl212777212800_)))) + (let ((_hd212781212806_ (let () (declare (not safe)) - (##car _e212852212873_))) - (_tl212850212878_ + (##car _e212782212803_))) + (_tl212780212808_ (let () (declare (not safe)) - (##cdr _e212852212873_)))) + (##cdr _e212782212803_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212850212878_)) - (let ((_e212855212881_ + (gx#stx-pair? _tl212780212808_)) + (let ((_e212785212811_ (let () (declare (not safe)) - (gx#stx-e _tl212850212878_)))) - (let ((_hd212854212884_ + (gx#stx-e _tl212780212808_)))) + (let ((_hd212784212814_ (let () (declare (not safe)) - (##car _e212855212881_))) - (_tl212853212886_ + (##car _e212785212811_))) + (_tl212783212816_ (let () (declare (not safe)) - (##cdr _e212855212881_)))) + (##cdr _e212785212811_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl212853212886_)) - ((lambda (_L212889_ _L212890_) - (let* ((_expr212914_ + _tl212783212816_)) + ((lambda (_L212819_ _L212820_) + (let* ((_expr212844_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args212841_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L212889_)) - (let ((_arg1212905_ (car _args212841_)) - (_rest212907_ (cdr _args212841_))) - (if (let () (declare (not safe)) (null? _rest212907_)) + (null? _args212771_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L212819_)) + (let ((_arg1212835_ (car _args212771_)) + (_rest212837_ (cdr _args212771_))) + (if (let () (declare (not safe)) (null? _rest212837_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L212889_ _arg1212905_)) - (let ((_arg2212910_ (car _rest212907_)) - (_rest212912_ (cdr _rest212907_))) + (gxc#compile-e__1 _L212819_ _arg1212835_)) + (let ((_arg2212840_ (car _rest212837_)) + (_rest212842_ (cdr _rest212837_))) (if (let () (declare (not safe)) - (null? _rest212912_)) + (null? _rest212842_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L212889_ - _arg1212905_ - _arg2212910_)) + _L212819_ + _arg1212835_ + _arg2212840_)) (apply gxc#compile-e - _L212889_ - _arg1212905_ - _arg2212910_ - _rest212912_))))))) - (__tmp218370 - (let ((__tmp218371 - (let ((__tmp218372 + _L212819_ + _arg1212835_ + _arg2212840_ + _rest212842_))))))) + (__tmp218300 + (let ((__tmp218301 + (let ((__tmp218302 (let () (declare (not safe)) - (cons _expr212914_ '())))) + (cons _expr212844_ '())))) (declare (not safe)) - (cons _L212890_ __tmp218372)))) + (cons _L212820_ __tmp218302)))) (declare (not safe)) - (cons '%#set! __tmp218371)))) + (cons '%#set! __tmp218301)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp218370 - _stx212840_))) - _hd212854212884_ - _hd212851212876_) + __tmp218300 + _stx212770_))) + _hd212784212814_ + _hd212781212806_) (let () (declare (not safe)) - (_g212843212860_ - _g212844212863_))))) + (_g212773212790_ + _g212774212793_))))) (let () (declare (not safe)) - (_g212843212860_ _g212844212863_))))) + (_g212773212790_ _g212774212793_))))) (let () (declare (not safe)) - (_g212843212860_ _g212844212863_))))) + (_g212773212790_ _g212774212793_))))) (let () (declare (not safe)) - (_g212843212860_ _g212844212863_)))))) + (_g212773212790_ _g212774212793_)))))) (declare (not safe)) - (_g212842212916_ _stx212840_)))) + (_g212772212846_ _stx212770_)))) (define gxc#collect-mutators-setq% - (lambda (_stx212771_) - (let* ((_g212773212790_ - (lambda (_g212774212787_) + (lambda (_stx212701_) + (let* ((_g212703212720_ + (lambda (_g212704212717_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g212774212787_)))) - (_g212772212837_ - (lambda (_g212774212793_) + _g212704212717_)))) + (_g212702212767_ + (lambda (_g212704212723_) (if (let () (declare (not safe)) - (gx#stx-pair? _g212774212793_)) - (let ((_e212779212795_ + (gx#stx-pair? _g212704212723_)) + (let ((_e212709212725_ (let () (declare (not safe)) - (gx#stx-e _g212774212793_)))) - (let ((_hd212778212798_ + (gx#stx-e _g212704212723_)))) + (let ((_hd212708212728_ (let () (declare (not safe)) - (##car _e212779212795_))) - (_tl212777212800_ + (##car _e212709212725_))) + (_tl212707212730_ (let () (declare (not safe)) - (##cdr _e212779212795_)))) + (##cdr _e212709212725_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212777212800_)) - (let ((_e212782212803_ + (gx#stx-pair? _tl212707212730_)) + (let ((_e212712212733_ (let () (declare (not safe)) - (gx#stx-e _tl212777212800_)))) - (let ((_hd212781212806_ + (gx#stx-e _tl212707212730_)))) + (let ((_hd212711212736_ (let () (declare (not safe)) - (##car _e212782212803_))) - (_tl212780212808_ + (##car _e212712212733_))) + (_tl212710212738_ (let () (declare (not safe)) - (##cdr _e212782212803_)))) + (##cdr _e212712212733_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212780212808_)) - (let ((_e212785212811_ + (gx#stx-pair? _tl212710212738_)) + (let ((_e212715212741_ (let () (declare (not safe)) - (gx#stx-e _tl212780212808_)))) - (let ((_hd212784212814_ + (gx#stx-e _tl212710212738_)))) + (let ((_hd212714212744_ (let () (declare (not safe)) - (##car _e212785212811_))) - (_tl212783212816_ + (##car _e212715212741_))) + (_tl212713212746_ (let () (declare (not safe)) - (##cdr _e212785212811_)))) + (##cdr _e212715212741_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl212783212816_)) - ((lambda (_L212819_ _L212820_) - (let ((_sym212835_ + _tl212713212746_)) + ((lambda (_L212749_ _L212750_) + (let ((_sym212765_ (let () (declare (not safe)) (gxc#identifier-symbol - _L212820_)))) + _L212750_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _sym212835_)) - (let ((__tmp218373 + _sym212765_)) + (let ((__tmp218303 (gxc#current-compile-mutators))) (declare (not safe)) (table-set! - __tmp218373 - _sym212835_ + __tmp218303 + _sym212765_ '#t)) (let () (declare (not safe)) (gxc#compile-e__0 - _L212819_)))) - _hd212784212814_ - _hd212781212806_) + _L212749_)))) + _hd212714212744_ + _hd212711212736_) (let () (declare (not safe)) - (_g212773212790_ - _g212774212793_))))) + (_g212703212720_ + _g212704212723_))))) (let () (declare (not safe)) - (_g212773212790_ _g212774212793_))))) + (_g212703212720_ _g212704212723_))))) (let () (declare (not safe)) - (_g212773212790_ _g212774212793_))))) + (_g212703212720_ _g212704212723_))))) (let () (declare (not safe)) - (_g212773212790_ _g212774212793_)))))) + (_g212703212720_ _g212704212723_)))))) (declare (not safe)) - (_g212772212837_ _stx212771_)))) + (_g212702212767_ _stx212701_)))) (define gxc#collect-methods-call% - (lambda (_stx212325_) - (let* ((___stx218063218064_ _stx212325_) - (_g212329212431_ + (lambda (_stx212255_) + (let* ((___stx217993217994_ _stx212255_) + (_g212259212361_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx218063218064_))))) - (let ((___kont218065218066_ - (lambda (_L212721_ _L212722_ _L212723_ _L212724_ _L212725_) - (let ((__tmp218374 + ___stx217993217994_))))) + (let ((___kont217995217996_ + (lambda (_L212651_ _L212652_ _L212653_ _L212654_ _L212655_) + (let ((__tmp218304 (let () (declare (not safe)) - (gxc#identifier-symbol _L212722_)))) + (gxc#identifier-symbol _L212652_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp218374)))) - (___kont218067218068_ - (lambda (_L212547_ _L212548_ _L212549_ _L212550_) - (let ((__tmp218375 + (gxc#optimizer-top-level-method! __tmp218304)))) + (___kont217997217998_ + (lambda (_L212477_ _L212478_ _L212479_ _L212480_) + (let ((__tmp218305 (let () (declare (not safe)) - (gxc#identifier-symbol _L212547_)))) + (gxc#identifier-symbol _L212477_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp218375)))) - (___kont218069218070_ (lambda () '#!void))) - (let ((___match218198218199_ - (lambda (_e212338212593_ - _hd212337212596_ - _tl212336212598_ - _e212341212601_ - _hd212340212604_ - _tl212339212606_ - _e212344212609_ - _hd212343212612_ - _tl212342212614_ - _e212347212617_ - _hd212346212620_ - _tl212345212622_ - _e212350212625_ - _hd212349212628_ - _tl212348212630_ - _e212353212633_ - _hd212352212636_ - _tl212351212638_ - _e212356212641_ - _hd212355212644_ - _tl212354212646_ - _e212359212649_ - _hd212358212652_ - _tl212357212654_ - _e212362212657_ - _hd212361212660_ - _tl212360212662_ - _e212365212665_ - _hd212364212668_ - _tl212363212670_ - _e212368212673_ - _hd212367212676_ - _tl212366212678_ - _e212371212681_ - _hd212370212684_ - _tl212369212686_ - _e212374212689_ - _hd212373212692_ - _tl212372212694_ - _e212377212697_ - _hd212376212700_ - _tl212375212702_ - _e212380212705_ - _hd212379212708_ - _tl212378212710_ - _e212383212713_ - _hd212382212716_ - _tl212381212718_) - (let ((_L212721_ _hd212382212716_) - (_L212722_ _hd212373212692_) - (_L212723_ _hd212364212668_) - (_L212724_ _hd212355212644_) - (_L212725_ _hd212346212620_)) + (gxc#optimizer-top-level-method! __tmp218305)))) + (___kont217999218000_ (lambda () '#!void))) + (let ((___match218128218129_ + (lambda (_e212268212523_ + _hd212267212526_ + _tl212266212528_ + _e212271212531_ + _hd212270212534_ + _tl212269212536_ + _e212274212539_ + _hd212273212542_ + _tl212272212544_ + _e212277212547_ + _hd212276212550_ + _tl212275212552_ + _e212280212555_ + _hd212279212558_ + _tl212278212560_ + _e212283212563_ + _hd212282212566_ + _tl212281212568_ + _e212286212571_ + _hd212285212574_ + _tl212284212576_ + _e212289212579_ + _hd212288212582_ + _tl212287212584_ + _e212292212587_ + _hd212291212590_ + _tl212290212592_ + _e212295212595_ + _hd212294212598_ + _tl212293212600_ + _e212298212603_ + _hd212297212606_ + _tl212296212608_ + _e212301212611_ + _hd212300212614_ + _tl212299212616_ + _e212304212619_ + _hd212303212622_ + _tl212302212624_ + _e212307212627_ + _hd212306212630_ + _tl212305212632_ + _e212310212635_ + _hd212309212638_ + _tl212308212640_ + _e212313212643_ + _hd212312212646_ + _tl212311212648_) + (let ((_L212651_ _hd212312212646_) + (_L212652_ _hd212303212622_) + (_L212653_ _hd212294212598_) + (_L212654_ _hd212285212574_) + (_L212655_ _hd212276212550_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L212725_ + _L212655_ 'bind-method!)) - (___kont218065218066_ - _L212721_ - _L212722_ - _L212723_ - _L212724_ - _L212725_) - (___kont218069218070_)))))) + (___kont217995217996_ + _L212651_ + _L212652_ + _L212653_ + _L212654_ + _L212655_) + (___kont217999218000_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx218063218064_)) - (let ((_e212338212593_ + (gx#stx-pair? ___stx217993217994_)) + (let ((_e212268212523_ (let () (declare (not safe)) - (gx#stx-e ___stx218063218064_)))) - (let ((_tl212336212598_ + (gx#stx-e ___stx217993217994_)))) + (let ((_tl212266212528_ (let () (declare (not safe)) - (##cdr _e212338212593_))) - (_hd212337212596_ + (##cdr _e212268212523_))) + (_hd212267212526_ (let () (declare (not safe)) - (##car _e212338212593_)))) + (##car _e212268212523_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212336212598_)) - (let ((_e212341212601_ + (gx#stx-pair? _tl212266212528_)) + (let ((_e212271212531_ (let () (declare (not safe)) - (gx#stx-e _tl212336212598_)))) - (let ((_tl212339212606_ + (gx#stx-e _tl212266212528_)))) + (let ((_tl212269212536_ (let () (declare (not safe)) - (##cdr _e212341212601_))) - (_hd212340212604_ + (##cdr _e212271212531_))) + (_hd212270212534_ (let () (declare (not safe)) - (##car _e212341212601_)))) + (##car _e212271212531_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd212340212604_)) - (let ((_e212344212609_ + (gx#stx-pair? _hd212270212534_)) + (let ((_e212274212539_ (let () (declare (not safe)) - (gx#stx-e _hd212340212604_)))) - (let ((_tl212342212614_ + (gx#stx-e _hd212270212534_)))) + (let ((_tl212272212544_ (let () (declare (not safe)) - (##cdr _e212344212609_))) - (_hd212343212612_ + (##cdr _e212274212539_))) + (_hd212273212542_ (let () (declare (not safe)) - (##car _e212344212609_)))) + (##car _e212274212539_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd212343212612_)) + (gx#identifier? _hd212273212542_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd212343212612_)) + _hd212273212542_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl212342212614_)) - (let ((_e212347212617_ + _tl212272212544_)) + (let ((_e212277212547_ (let () (declare (not safe)) (gx#stx-e - _tl212342212614_)))) - (let ((_tl212345212622_ + _tl212272212544_)))) + (let ((_tl212275212552_ (let () (declare (not safe)) - (##cdr _e212347212617_))) - (_hd212346212620_ + (##cdr _e212277212547_))) + (_hd212276212550_ (let () (declare (not safe)) - (##car _e212347212617_)))) + (##car _e212277212547_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl212345212622_)) + _tl212275212552_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl212339212606_)) - (let ((_e212350212625_ + (gx#stx-pair? _tl212269212536_)) + (let ((_e212280212555_ (let () (declare (not safe)) - (gx#stx-e _tl212339212606_)))) - (let ((_tl212348212630_ + (gx#stx-e _tl212269212536_)))) + (let ((_tl212278212560_ (let () (declare (not safe)) - (##cdr _e212350212625_))) - (_hd212349212628_ + (##cdr _e212280212555_))) + (_hd212279212558_ (let () (declare (not safe)) - (##car _e212350212625_)))) + (##car _e212280212555_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd212349212628_)) - (let ((_e212353212633_ + (gx#stx-pair? _hd212279212558_)) + (let ((_e212283212563_ (let () (declare (not safe)) - (gx#stx-e _hd212349212628_)))) - (let ((_tl212351212638_ + (gx#stx-e _hd212279212558_)))) + (let ((_tl212281212568_ (let () (declare (not safe)) - (##cdr _e212353212633_))) - (_hd212352212636_ + (##cdr _e212283212563_))) + (_hd212282212566_ (let () (declare (not safe)) - (##car _e212353212633_)))) + (##car _e212283212563_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd212352212636_)) + (gx#identifier? _hd212282212566_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd212352212636_)) + _hd212282212566_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl212351212638_)) - (let ((_e212356212641_ + _tl212281212568_)) + (let ((_e212286212571_ (let () (declare (not safe)) (gx#stx-e - _tl212351212638_)))) - (let ((_tl212354212646_ + _tl212281212568_)))) + (let ((_tl212284212576_ (let () (declare (not safe)) - (##cdr _e212356212641_))) - (_hd212355212644_ + (##cdr _e212286212571_))) + (_hd212285212574_ (let () (declare (not safe)) - (##car _e212356212641_)))) + (##car _e212286212571_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl212354212646_)) + _tl212284212576_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl212348212630_)) - (let ((_e212359212649_ + _tl212278212560_)) + (let ((_e212289212579_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl212348212630_)))) - (let ((_tl212357212654_ + (gx#stx-e _tl212278212560_)))) + (let ((_tl212287212584_ (let () (declare (not safe)) - (##cdr _e212359212649_))) - (_hd212358212652_ + (##cdr _e212289212579_))) + (_hd212288212582_ (let () (declare (not safe)) - (##car _e212359212649_)))) + (##car _e212289212579_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd212358212652_)) - (let ((_e212362212657_ + (gx#stx-pair? _hd212288212582_)) + (let ((_e212292212587_ (let () (declare (not safe)) - (gx#stx-e _hd212358212652_)))) - (let ((_tl212360212662_ + (gx#stx-e _hd212288212582_)))) + (let ((_tl212290212592_ (let () (declare (not safe)) - (##cdr _e212362212657_))) - (_hd212361212660_ + (##cdr _e212292212587_))) + (_hd212291212590_ (let () (declare (not safe)) - (##car _e212362212657_)))) + (##car _e212292212587_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd212361212660_)) + (gx#identifier? _hd212291212590_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd212361212660_)) + (gx#stx-eq? '%#quote _hd212291212590_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212360212662_)) - (let ((_e212365212665_ + (gx#stx-pair? _tl212290212592_)) + (let ((_e212295212595_ (let () (declare (not safe)) (gx#stx-e - _tl212360212662_)))) - (let ((_tl212363212670_ + _tl212290212592_)))) + (let ((_tl212293212600_ (let () (declare (not safe)) - (##cdr _e212365212665_))) - (_hd212364212668_ + (##cdr _e212295212595_))) + (_hd212294212598_ (let () (declare (not safe)) - (##car _e212365212665_)))) + (##car _e212295212595_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl212363212670_)) + _tl212293212600_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl212357212654_)) - (let ((_e212368212673_ + _tl212287212584_)) + (let ((_e212298212603_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl212357212654_)))) - (let ((_tl212366212678_ - (let () (declare (not safe)) (##cdr _e212368212673_))) - (_hd212367212676_ - (let () (declare (not safe)) (##car _e212368212673_)))) + (gx#stx-e _tl212287212584_)))) + (let ((_tl212296212608_ + (let () (declare (not safe)) (##cdr _e212298212603_))) + (_hd212297212606_ + (let () (declare (not safe)) (##car _e212298212603_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd212367212676_)) - (let ((_e212371212681_ + (gx#stx-pair? _hd212297212606_)) + (let ((_e212301212611_ (let () (declare (not safe)) - (gx#stx-e _hd212367212676_)))) - (let ((_tl212369212686_ + (gx#stx-e _hd212297212606_)))) + (let ((_tl212299212616_ (let () (declare (not safe)) - (##cdr _e212371212681_))) - (_hd212370212684_ + (##cdr _e212301212611_))) + (_hd212300212614_ (let () (declare (not safe)) - (##car _e212371212681_)))) + (##car _e212301212611_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd212370212684_)) + (gx#identifier? _hd212300212614_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd212370212684_)) + (gx#stx-eq? '%#ref _hd212300212614_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212369212686_)) - (let ((_e212374212689_ + (gx#stx-pair? _tl212299212616_)) + (let ((_e212304212619_ (let () (declare (not safe)) - (gx#stx-e _tl212369212686_)))) - (let ((_tl212372212694_ + (gx#stx-e _tl212299212616_)))) + (let ((_tl212302212624_ (let () (declare (not safe)) - (##cdr _e212374212689_))) - (_hd212373212692_ + (##cdr _e212304212619_))) + (_hd212303212622_ (let () (declare (not safe)) - (##car _e212374212689_)))) + (##car _e212304212619_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl212372212694_)) + _tl212302212624_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl212366212678_)) - (let ((_e212377212697_ + _tl212296212608_)) + (let ((_e212307212627_ (let () (declare (not safe)) (gx#stx-e - _tl212366212678_)))) - (let ((_tl212375212702_ + _tl212296212608_)))) + (let ((_tl212305212632_ (let () (declare (not safe)) - (##cdr _e212377212697_))) - (_hd212376212700_ + (##cdr _e212307212627_))) + (_hd212306212630_ (let () (declare (not safe)) - (##car _e212377212697_)))) + (##car _e212307212627_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd212376212700_)) - (let ((_e212380212705_ + _hd212306212630_)) + (let ((_e212310212635_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd212376212700_)))) - (let ((_tl212378212710_ + (gx#stx-e _hd212306212630_)))) + (let ((_tl212308212640_ (let () (declare (not safe)) - (##cdr _e212380212705_))) - (_hd212379212708_ + (##cdr _e212310212635_))) + (_hd212309212638_ (let () (declare (not safe)) - (##car _e212380212705_)))) + (##car _e212310212635_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd212379212708_)) + (gx#identifier? _hd212309212638_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd212379212708_)) + (gx#stx-eq? '%#quote _hd212309212638_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212378212710_)) - (let ((_e212383212713_ + (gx#stx-pair? _tl212308212640_)) + (let ((_e212313212643_ (let () (declare (not safe)) - (gx#stx-e _tl212378212710_)))) - (let ((_tl212381212718_ + (gx#stx-e _tl212308212640_)))) + (let ((_tl212311212648_ (let () (declare (not safe)) - (##cdr _e212383212713_))) - (_hd212382212716_ + (##cdr _e212313212643_))) + (_hd212312212646_ (let () (declare (not safe)) - (##car _e212383212713_)))) + (##car _e212313212643_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl212381212718_)) + (gx#stx-null? _tl212311212648_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl212375212702_)) - (___match218198218199_ - _e212338212593_ - _hd212337212596_ - _tl212336212598_ - _e212341212601_ - _hd212340212604_ - _tl212339212606_ - _e212344212609_ - _hd212343212612_ - _tl212342212614_ - _e212347212617_ - _hd212346212620_ - _tl212345212622_ - _e212350212625_ - _hd212349212628_ - _tl212348212630_ - _e212353212633_ - _hd212352212636_ - _tl212351212638_ - _e212356212641_ - _hd212355212644_ - _tl212354212646_ - _e212359212649_ - _hd212358212652_ - _tl212357212654_ - _e212362212657_ - _hd212361212660_ - _tl212360212662_ - _e212365212665_ - _hd212364212668_ - _tl212363212670_ - _e212368212673_ - _hd212367212676_ - _tl212366212678_ - _e212371212681_ - _hd212370212684_ - _tl212369212686_ - _e212374212689_ - _hd212373212692_ - _tl212372212694_ - _e212377212697_ - _hd212376212700_ - _tl212375212702_ - _e212380212705_ - _hd212379212708_ - _tl212378212710_ - _e212383212713_ - _hd212382212716_ - _tl212381212718_) - (___kont218069218070_)) - (___kont218069218070_)))) - (___kont218069218070_)) - (___kont218069218070_)) - (___kont218069218070_)))) - (___kont218069218070_)))) + _tl212305212632_)) + (___match218128218129_ + _e212268212523_ + _hd212267212526_ + _tl212266212528_ + _e212271212531_ + _hd212270212534_ + _tl212269212536_ + _e212274212539_ + _hd212273212542_ + _tl212272212544_ + _e212277212547_ + _hd212276212550_ + _tl212275212552_ + _e212280212555_ + _hd212279212558_ + _tl212278212560_ + _e212283212563_ + _hd212282212566_ + _tl212281212568_ + _e212286212571_ + _hd212285212574_ + _tl212284212576_ + _e212289212579_ + _hd212288212582_ + _tl212287212584_ + _e212292212587_ + _hd212291212590_ + _tl212290212592_ + _e212295212595_ + _hd212294212598_ + _tl212293212600_ + _e212298212603_ + _hd212297212606_ + _tl212296212608_ + _e212301212611_ + _hd212300212614_ + _tl212299212616_ + _e212304212619_ + _hd212303212622_ + _tl212302212624_ + _e212307212627_ + _hd212306212630_ + _tl212305212632_ + _e212310212635_ + _hd212309212638_ + _tl212308212640_ + _e212313212643_ + _hd212312212646_ + _tl212311212648_) + (___kont217999218000_)) + (___kont217999218000_)))) + (___kont217999218000_)) + (___kont217999218000_)) + (___kont217999218000_)))) + (___kont217999218000_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl212366212678_)) - (if (let ((__tmp218376 + _tl212296212608_)) + (if (let ((__tmp218306 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp218376 'bind-method!)) - (let ((_L212547_ _hd212373212692_) - (_L212548_ _hd212364212668_) - (_L212549_ _hd212355212644_) - (_L212550_ _hd212346212620_)) - (___kont218067218068_ - _L212547_ - _L212548_ - _L212549_ - _L212550_)) - (___kont218069218070_)) - (___kont218069218070_))) + (gxc#runtime-identifier=? __tmp218306 'bind-method!)) + (let ((_L212477_ _hd212303212622_) + (_L212478_ _hd212294212598_) + (_L212479_ _hd212285212574_) + (_L212480_ _hd212276212550_)) + (___kont217997217998_ + _L212477_ + _L212478_ + _L212479_ + _L212480_)) + (___kont217999218000_)) + (___kont217999218000_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont218069218070_)))) - (___kont218069218070_)) - (___kont218069218070_)) - (___kont218069218070_)))) - (___kont218069218070_)))) - (___kont218069218070_)) + (___kont217999218000_)))) + (___kont217999218000_)) + (___kont217999218000_)) + (___kont217999218000_)))) + (___kont217999218000_)))) + (___kont217999218000_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont218069218070_)))) - (___kont218069218070_)) - (___kont218069218070_)) - (___kont218069218070_)))) - (___kont218069218070_)))) - (___kont218069218070_)) - (___kont218069218070_)))) + (___kont217999218000_)))) + (___kont217999218000_)) + (___kont217999218000_)) + (___kont217999218000_)))) + (___kont217999218000_)))) + (___kont217999218000_)) + (___kont217999218000_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont218069218070_)) - (___kont218069218070_)) - (___kont218069218070_)))) - (___kont218069218070_)))) - (___kont218069218070_)) - (___kont218069218070_)))) + (___kont217999218000_)) + (___kont217999218000_)) + (___kont217999218000_)))) + (___kont217999218000_)))) + (___kont217999218000_)) + (___kont217999218000_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont218069218070_)) - (___kont218069218070_)) - (___kont218069218070_)))) - (___kont218069218070_)))) - (___kont218069218070_)))) - (___kont218069218070_))))))) + (___kont217999218000_)) + (___kont217999218000_)) + (___kont217999218000_)))) + (___kont217999218000_)))) + (___kont217999218000_)))) + (___kont217999218000_))))))) (define gxc#expression-subst-ref% - (lambda (_stx212272_ _id212273_ _new-id212274_) - (let* ((_g212276212289_ - (lambda (_g212277212286_) + (lambda (_stx212202_ _id212203_ _new-id212204_) + (let* ((_g212206212219_ + (lambda (_g212207212216_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g212277212286_)))) - (_g212275212322_ - (lambda (_g212277212292_) + _g212207212216_)))) + (_g212205212252_ + (lambda (_g212207212222_) (if (let () (declare (not safe)) - (gx#stx-pair? _g212277212292_)) - (let ((_e212281212294_ + (gx#stx-pair? _g212207212222_)) + (let ((_e212211212224_ (let () (declare (not safe)) - (gx#stx-e _g212277212292_)))) - (let ((_hd212280212297_ + (gx#stx-e _g212207212222_)))) + (let ((_hd212210212227_ (let () (declare (not safe)) - (##car _e212281212294_))) - (_tl212279212299_ + (##car _e212211212224_))) + (_tl212209212229_ (let () (declare (not safe)) - (##cdr _e212281212294_)))) + (##cdr _e212211212224_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212279212299_)) - (let ((_e212284212302_ + (gx#stx-pair? _tl212209212229_)) + (let ((_e212214212232_ (let () (declare (not safe)) - (gx#stx-e _tl212279212299_)))) - (let ((_hd212283212305_ + (gx#stx-e _tl212209212229_)))) + (let ((_hd212213212235_ (let () (declare (not safe)) - (##car _e212284212302_))) - (_tl212282212307_ + (##car _e212214212232_))) + (_tl212212212237_ (let () (declare (not safe)) - (##cdr _e212284212302_)))) + (##cdr _e212214212232_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl212282212307_)) - ((lambda (_L212310_) + (gx#stx-null? _tl212212212237_)) + ((lambda (_L212240_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L212310_ - _id212273_)) - (let ((__tmp218377 - (let ((__tmp218378 + _L212240_ + _id212203_)) + (let ((__tmp218307 + (let ((__tmp218308 (let () (declare (not safe)) - (cons _new-id212274_ + (cons _new-id212204_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp218378)))) + (cons '%#ref __tmp218308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp218377 - _stx212272_)) - _stx212272_)) - _hd212283212305_) + __tmp218307 + _stx212202_)) + _stx212202_)) + _hd212213212235_) (let () (declare (not safe)) - (_g212276212289_ _g212277212292_))))) + (_g212206212219_ _g212207212222_))))) (let () (declare (not safe)) - (_g212276212289_ _g212277212292_))))) + (_g212206212219_ _g212207212222_))))) (let () (declare (not safe)) - (_g212276212289_ _g212277212292_)))))) + (_g212206212219_ _g212207212222_)))))) (declare (not safe)) - (_g212275212322_ _stx212272_)))) + (_g212205212252_ _stx212202_)))) (define gxc#expression-subst*-ref% - (lambda (_stx212213_ _subst212214_) - (let* ((_g212216212229_ - (lambda (_g212217212226_) + (lambda (_stx212143_ _subst212144_) + (let* ((_g212146212159_ + (lambda (_g212147212156_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g212217212226_)))) - (_g212215212269_ - (lambda (_g212217212232_) + _g212147212156_)))) + (_g212145212199_ + (lambda (_g212147212162_) (if (let () (declare (not safe)) - (gx#stx-pair? _g212217212232_)) - (let ((_e212221212234_ + (gx#stx-pair? _g212147212162_)) + (let ((_e212151212164_ (let () (declare (not safe)) - (gx#stx-e _g212217212232_)))) - (let ((_hd212220212237_ + (gx#stx-e _g212147212162_)))) + (let ((_hd212150212167_ (let () (declare (not safe)) - (##car _e212221212234_))) - (_tl212219212239_ + (##car _e212151212164_))) + (_tl212149212169_ (let () (declare (not safe)) - (##cdr _e212221212234_)))) + (##cdr _e212151212164_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212219212239_)) - (let ((_e212224212242_ + (gx#stx-pair? _tl212149212169_)) + (let ((_e212154212172_ (let () (declare (not safe)) - (gx#stx-e _tl212219212239_)))) - (let ((_hd212223212245_ + (gx#stx-e _tl212149212169_)))) + (let ((_hd212153212175_ (let () (declare (not safe)) - (##car _e212224212242_))) - (_tl212222212247_ + (##car _e212154212172_))) + (_tl212152212177_ (let () (declare (not safe)) - (##cdr _e212224212242_)))) + (##cdr _e212154212172_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl212222212247_)) - ((lambda (_L212250_) - (let ((_$e212264_ - (let ((__tmp218379 - (lambda (_sub212262_) - (let ((__tmp218380 - (car _sub212262_))) + (gx#stx-null? _tl212152212177_)) + ((lambda (_L212180_) + (let ((_$e212194_ + (let ((__tmp218309 + (lambda (_sub212192_) + (let ((__tmp218310 + (car _sub212192_))) (declare (not safe)) (gx#free-identifier=? - _L212250_ - __tmp218380))))) + _L212180_ + __tmp218310))))) (declare (not safe)) - (find __tmp218379 - _subst212214_)))) - (if _$e212264_ - ((lambda (_sub212267_) - (let ((__tmp218381 - (let ((__tmp218382 - (let ((__tmp218383 + (find __tmp218309 + _subst212144_)))) + (if _$e212194_ + ((lambda (_sub212197_) + (let ((__tmp218311 + (let ((__tmp218312 + (let ((__tmp218313 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _sub212267_))) + (cdr _sub212197_))) (declare (not safe)) - (cons __tmp218383 '())))) + (cons __tmp218313 '())))) (declare (not safe)) - (cons '%#ref __tmp218382)))) + (cons '%#ref __tmp218312)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp218381 - _stx212213_))) - _$e212264_) - _stx212213_))) - _hd212223212245_) + __tmp218311 + _stx212143_))) + _$e212194_) + _stx212143_))) + _hd212153212175_) (let () (declare (not safe)) - (_g212216212229_ _g212217212232_))))) + (_g212146212159_ _g212147212162_))))) (let () (declare (not safe)) - (_g212216212229_ _g212217212232_))))) + (_g212146212159_ _g212147212162_))))) (let () (declare (not safe)) - (_g212216212229_ _g212217212232_)))))) + (_g212146212159_ _g212147212162_)))))) (declare (not safe)) - (_g212215212269_ _stx212213_)))) + (_g212145212199_ _stx212143_)))) (define gxc#expression-subst-setq% - (lambda (_stx212141_ _id212142_ _new-id212143_) - (let* ((_g212145212162_ - (lambda (_g212146212159_) + (lambda (_stx212071_ _id212072_ _new-id212073_) + (let* ((_g212075212092_ + (lambda (_g212076212089_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g212146212159_)))) - (_g212144212210_ - (lambda (_g212146212165_) + _g212076212089_)))) + (_g212074212140_ + (lambda (_g212076212095_) (if (let () (declare (not safe)) - (gx#stx-pair? _g212146212165_)) - (let ((_e212151212167_ + (gx#stx-pair? _g212076212095_)) + (let ((_e212081212097_ (let () (declare (not safe)) - (gx#stx-e _g212146212165_)))) - (let ((_hd212150212170_ + (gx#stx-e _g212076212095_)))) + (let ((_hd212080212100_ (let () (declare (not safe)) - (##car _e212151212167_))) - (_tl212149212172_ + (##car _e212081212097_))) + (_tl212079212102_ (let () (declare (not safe)) - (##cdr _e212151212167_)))) + (##cdr _e212081212097_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212149212172_)) - (let ((_e212154212175_ + (gx#stx-pair? _tl212079212102_)) + (let ((_e212084212105_ (let () (declare (not safe)) - (gx#stx-e _tl212149212172_)))) - (let ((_hd212153212178_ + (gx#stx-e _tl212079212102_)))) + (let ((_hd212083212108_ (let () (declare (not safe)) - (##car _e212154212175_))) - (_tl212152212180_ + (##car _e212084212105_))) + (_tl212082212110_ (let () (declare (not safe)) - (##cdr _e212154212175_)))) + (##cdr _e212084212105_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212152212180_)) - (let ((_e212157212183_ + (gx#stx-pair? _tl212082212110_)) + (let ((_e212087212113_ (let () (declare (not safe)) - (gx#stx-e _tl212152212180_)))) - (let ((_hd212156212186_ + (gx#stx-e _tl212082212110_)))) + (let ((_hd212086212116_ (let () (declare (not safe)) - (##car _e212157212183_))) - (_tl212155212188_ + (##car _e212087212113_))) + (_tl212085212118_ (let () (declare (not safe)) - (##cdr _e212157212183_)))) + (##cdr _e212087212113_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl212155212188_)) - ((lambda (_L212191_ _L212192_) - (let ((_new-expr212207_ + _tl212085212118_)) + ((lambda (_L212121_ _L212122_) + (let ((_new-expr212137_ (let () (declare (not safe)) (gxc#compile-e__2 - _L212191_ - _id212142_ - _new-id212143_))) - (_new-xid212208_ + _L212121_ + _id212072_ + _new-id212073_))) + (_new-xid212138_ (if (let () (declare (not safe)) (gx#free-identifier=? - _L212192_ - _id212142_)) - _new-id212143_ - _L212192_))) - (let ((__tmp218384 - (let ((__tmp218385 + _L212122_ + _id212072_)) + _new-id212073_ + _L212122_))) + (let ((__tmp218314 + (let ((__tmp218315 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp218386 + (let ((__tmp218316 (let () (declare (not safe)) - (cons _new-expr212207_ '())))) + (cons _new-expr212137_ '())))) (declare (not safe)) - (cons _new-xid212208_ __tmp218386)))) + (cons _new-xid212138_ __tmp218316)))) (declare (not safe)) - (cons '%#set! __tmp218385)))) + (cons '%#set! __tmp218315)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp218384 - _stx212141_)))) - _hd212156212186_ - _hd212153212178_) + __tmp218314 + _stx212071_)))) + _hd212086212116_ + _hd212083212108_) (let () (declare (not safe)) - (_g212145212162_ - _g212146212165_))))) + (_g212075212092_ + _g212076212095_))))) (let () (declare (not safe)) - (_g212145212162_ _g212146212165_))))) + (_g212075212092_ _g212076212095_))))) (let () (declare (not safe)) - (_g212145212162_ _g212146212165_))))) + (_g212075212092_ _g212076212095_))))) (let () (declare (not safe)) - (_g212145212162_ _g212146212165_)))))) + (_g212075212092_ _g212076212095_)))))) (declare (not safe)) - (_g212144212210_ _stx212141_)))) + (_g212074212140_ _stx212071_)))) (define gxc#expression-subst*-setq% - (lambda (_stx212065_ _subst212066_) - (let* ((_g212068212085_ - (lambda (_g212069212082_) + (lambda (_stx211995_ _subst211996_) + (let* ((_g211998212015_ + (lambda (_g211999212012_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g212069212082_)))) - (_g212067212138_ - (lambda (_g212069212088_) + _g211999212012_)))) + (_g211997212068_ + (lambda (_g211999212018_) (if (let () (declare (not safe)) - (gx#stx-pair? _g212069212088_)) - (let ((_e212074212090_ + (gx#stx-pair? _g211999212018_)) + (let ((_e212004212020_ (let () (declare (not safe)) - (gx#stx-e _g212069212088_)))) - (let ((_hd212073212093_ + (gx#stx-e _g211999212018_)))) + (let ((_hd212003212023_ (let () (declare (not safe)) - (##car _e212074212090_))) - (_tl212072212095_ + (##car _e212004212020_))) + (_tl212002212025_ (let () (declare (not safe)) - (##cdr _e212074212090_)))) + (##cdr _e212004212020_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212072212095_)) - (let ((_e212077212098_ + (gx#stx-pair? _tl212002212025_)) + (let ((_e212007212028_ (let () (declare (not safe)) - (gx#stx-e _tl212072212095_)))) - (let ((_hd212076212101_ + (gx#stx-e _tl212002212025_)))) + (let ((_hd212006212031_ (let () (declare (not safe)) - (##car _e212077212098_))) - (_tl212075212103_ + (##car _e212007212028_))) + (_tl212005212033_ (let () (declare (not safe)) - (##cdr _e212077212098_)))) + (##cdr _e212007212028_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212075212103_)) - (let ((_e212080212106_ + (gx#stx-pair? _tl212005212033_)) + (let ((_e212010212036_ (let () (declare (not safe)) - (gx#stx-e _tl212075212103_)))) - (let ((_hd212079212109_ + (gx#stx-e _tl212005212033_)))) + (let ((_hd212009212039_ (let () (declare (not safe)) - (##car _e212080212106_))) - (_tl212078212111_ + (##car _e212010212036_))) + (_tl212008212041_ (let () (declare (not safe)) - (##cdr _e212080212106_)))) + (##cdr _e212010212036_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl212078212111_)) - ((lambda (_L212114_ _L212115_) - (let ((_new-expr212135_ + _tl212008212041_)) + ((lambda (_L212044_ _L212045_) + (let ((_new-expr212065_ (let () (declare (not safe)) (gxc#compile-e__1 - _L212114_ - _subst212066_))) - (_new-xid212136_ - (let ((_$e212132_ - (let ((__tmp218387 + _L212044_ + _subst211996_))) + (_new-xid212066_ + (let ((_$e212062_ + (let ((__tmp218317 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_sub212130_) - (let ((__tmp218388 (car _sub212130_))) + (lambda (_sub212060_) + (let ((__tmp218318 (car _sub212060_))) (declare (not safe)) (gx#free-identifier=? - _L212115_ - __tmp218388))))) + _L212045_ + __tmp218318))))) (declare (not safe)) - (find __tmp218387 _subst212066_)))) - (if _$e212132_ (cdr _$e212132_) _L212115_)))) + (find __tmp218317 _subst211996_)))) + (if _$e212062_ (cdr _$e212062_) _L212045_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp218389 - (let ((__tmp218390 + (let ((__tmp218319 + (let ((__tmp218320 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp218391 + (let ((__tmp218321 (let () (declare (not safe)) - (cons _new-expr212135_ '())))) + (cons _new-expr212065_ '())))) (declare (not safe)) - (cons _new-xid212136_ __tmp218391)))) + (cons _new-xid212066_ __tmp218321)))) (declare (not safe)) - (cons '%#set! __tmp218390)))) + (cons '%#set! __tmp218320)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp218389 - _stx212065_)))) - _hd212079212109_ - _hd212076212101_) + __tmp218319 + _stx211995_)))) + _hd212009212039_ + _hd212006212031_) (let () (declare (not safe)) - (_g212068212085_ - _g212069212088_))))) + (_g211998212015_ + _g211999212018_))))) (let () (declare (not safe)) - (_g212068212085_ _g212069212088_))))) + (_g211998212015_ _g211999212018_))))) (let () (declare (not safe)) - (_g212068212085_ _g212069212088_))))) + (_g211998212015_ _g211999212018_))))) (let () (declare (not safe)) - (_g212068212085_ _g212069212088_)))))) + (_g211998212015_ _g211999212018_)))))) (declare (not safe)) - (_g212067212138_ _stx212065_)))) + (_g211997212068_ _stx211995_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_stx212011_ _ht212012_) - (let* ((_g212014212027_ - (lambda (_g212015212024_) + (lambda (_stx211941_ _ht211942_) + (let* ((_g211944211957_ + (lambda (_g211945211954_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g212015212024_)))) - (_g212013212062_ - (lambda (_g212015212030_) + _g211945211954_)))) + (_g211943211992_ + (lambda (_g211945211960_) (if (let () (declare (not safe)) - (gx#stx-pair? _g212015212030_)) - (let ((_e212019212032_ + (gx#stx-pair? _g211945211960_)) + (let ((_e211949211962_ (let () (declare (not safe)) - (gx#stx-e _g212015212030_)))) - (let ((_hd212018212035_ + (gx#stx-e _g211945211960_)))) + (let ((_hd211948211965_ (let () (declare (not safe)) - (##car _e212019212032_))) - (_tl212017212037_ + (##car _e211949211962_))) + (_tl211947211967_ (let () (declare (not safe)) - (##cdr _e212019212032_)))) + (##cdr _e211949211962_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl212017212037_)) - (let ((_e212022212040_ + (gx#stx-pair? _tl211947211967_)) + (let ((_e211952211970_ (let () (declare (not safe)) - (gx#stx-e _tl212017212037_)))) - (let ((_hd212021212043_ + (gx#stx-e _tl211947211967_)))) + (let ((_hd211951211973_ (let () (declare (not safe)) - (##car _e212022212040_))) - (_tl212020212045_ + (##car _e211952211970_))) + (_tl211950211975_ (let () (declare (not safe)) - (##cdr _e212022212040_)))) + (##cdr _e211952211970_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl212020212045_)) - ((lambda (_L212048_) - (let ((_eid212060_ + (gx#stx-null? _tl211950211975_)) + ((lambda (_L211978_) + (let ((_eid211990_ (let () (declare (not safe)) (gxc#identifier-symbol - _L212048_)))) + _L211978_)))) (declare (not safe)) (hash-update! - _ht212012_ - _eid212060_ + _ht211942_ + _eid211990_ 1+ '0))) - _hd212021212043_) + _hd211951211973_) (let () (declare (not safe)) - (_g212014212027_ _g212015212030_))))) + (_g211944211957_ _g211945211960_))))) (let () (declare (not safe)) - (_g212014212027_ _g212015212030_))))) + (_g211944211957_ _g211945211960_))))) (let () (declare (not safe)) - (_g212014212027_ _g212015212030_)))))) + (_g211944211957_ _g211945211960_)))))) (declare (not safe)) - (_g212013212062_ _stx212011_)))) + (_g211943211992_ _stx211941_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_stx211941_ _ht211942_) - (let* ((_g211944211961_ - (lambda (_g211945211958_) + (lambda (_stx211871_ _ht211872_) + (let* ((_g211874211891_ + (lambda (_g211875211888_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g211945211958_)))) - (_g211943212008_ - (lambda (_g211945211964_) + _g211875211888_)))) + (_g211873211938_ + (lambda (_g211875211894_) (if (let () (declare (not safe)) - (gx#stx-pair? _g211945211964_)) - (let ((_e211950211966_ + (gx#stx-pair? _g211875211894_)) + (let ((_e211880211896_ (let () (declare (not safe)) - (gx#stx-e _g211945211964_)))) - (let ((_hd211949211969_ + (gx#stx-e _g211875211894_)))) + (let ((_hd211879211899_ (let () (declare (not safe)) - (##car _e211950211966_))) - (_tl211948211971_ + (##car _e211880211896_))) + (_tl211878211901_ (let () (declare (not safe)) - (##cdr _e211950211966_)))) + (##cdr _e211880211896_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211948211971_)) - (let ((_e211953211974_ + (gx#stx-pair? _tl211878211901_)) + (let ((_e211883211904_ (let () (declare (not safe)) - (gx#stx-e _tl211948211971_)))) - (let ((_hd211952211977_ + (gx#stx-e _tl211878211901_)))) + (let ((_hd211882211907_ (let () (declare (not safe)) - (##car _e211953211974_))) - (_tl211951211979_ + (##car _e211883211904_))) + (_tl211881211909_ (let () (declare (not safe)) - (##cdr _e211953211974_)))) + (##cdr _e211883211904_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211951211979_)) - (let ((_e211956211982_ + (gx#stx-pair? _tl211881211909_)) + (let ((_e211886211912_ (let () (declare (not safe)) - (gx#stx-e _tl211951211979_)))) - (let ((_hd211955211985_ + (gx#stx-e _tl211881211909_)))) + (let ((_hd211885211915_ (let () (declare (not safe)) - (##car _e211956211982_))) - (_tl211954211987_ + (##car _e211886211912_))) + (_tl211884211917_ (let () (declare (not safe)) - (##cdr _e211956211982_)))) + (##cdr _e211886211912_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl211954211987_)) - ((lambda (_L211990_ _L211991_) - (let ((_eid212006_ + _tl211884211917_)) + ((lambda (_L211920_ _L211921_) + (let ((_eid211936_ (let () (declare (not safe)) (gxc#identifier-symbol - _L211991_)))) + _L211921_)))) (let () (declare (not safe)) (hash-update! - _ht211942_ - _eid212006_ + _ht211872_ + _eid211936_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _L211990_ - _ht211942_)))) - _hd211955211985_ - _hd211952211977_) + _L211920_ + _ht211872_)))) + _hd211885211915_ + _hd211882211907_) (let () (declare (not safe)) - (_g211944211961_ - _g211945211964_))))) + (_g211874211891_ + _g211875211894_))))) (let () (declare (not safe)) - (_g211944211961_ _g211945211964_))))) + (_g211874211891_ _g211875211894_))))) (let () (declare (not safe)) - (_g211944211961_ _g211945211964_))))) + (_g211874211891_ _g211875211894_))))) (let () (declare (not safe)) - (_g211944211961_ _g211945211964_)))))) + (_g211874211891_ _g211875211894_)))))) (declare (not safe)) - (_g211943212008_ _stx211941_)))) + (_g211873211938_ _stx211871_)))) (define gxc#find-body% - (lambda (_stx211854_ _arg211855_) - (let* ((_g211857211876_ - (lambda (_g211858211873_) + (lambda (_stx211784_ _arg211785_) + (let* ((_g211787211806_ + (lambda (_g211788211803_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g211858211873_)))) - (_g211856211938_ - (lambda (_g211858211879_) + _g211788211803_)))) + (_g211786211868_ + (lambda (_g211788211809_) (if (let () (declare (not safe)) - (gx#stx-pair? _g211858211879_)) - (let ((_e211862211881_ + (gx#stx-pair? _g211788211809_)) + (let ((_e211792211811_ (let () (declare (not safe)) - (gx#stx-e _g211858211879_)))) - (let ((_hd211861211884_ + (gx#stx-e _g211788211809_)))) + (let ((_hd211791211814_ (let () (declare (not safe)) - (##car _e211862211881_))) - (_tl211860211886_ + (##car _e211792211811_))) + (_tl211790211816_ (let () (declare (not safe)) - (##cdr _e211862211881_)))) + (##cdr _e211792211811_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl211860211886_)) - (let ((_g218392_ + (gx#stx-pair/null? _tl211790211816_)) + (let ((_g218322_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl211860211886_ + _tl211790211816_ '0)))) (begin - (let ((_g218393_ + (let ((_g218323_ (let () (declare (not safe)) - (if (##values? _g218392_) - (##vector-length _g218392_) + (if (##values? _g218322_) + (##vector-length _g218322_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g218393_ 2))) + (##fx= _g218323_ 2))) (error "Context expects 2 values" - _g218393_))) - (let ((_target211863211889_ + _g218323_))) + (let ((_target211793211819_ (let () (declare (not safe)) - (##vector-ref _g218392_ 0))) - (_tl211865211891_ + (##vector-ref _g218322_ 0))) + (_tl211795211821_ (let () (declare (not safe)) - (##vector-ref _g218392_ 1)))) + (##vector-ref _g218322_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl211865211891_)) - (letrec ((_loop211866211894_ - (lambda (_hd211864211897_ - _expr211870211899_) + (gx#stx-null? _tl211795211821_)) + (letrec ((_loop211796211824_ + (lambda (_hd211794211827_ + _expr211800211829_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd211864211897_)) - (let ((_e211867211902_ + _hd211794211827_)) + (let ((_e211797211832_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd211864211897_)))) - (let ((_lp-hd211868211905_ - (let () (declare (not safe)) (##car _e211867211902_))) - (_lp-tl211869211907_ + (gx#stx-e _hd211794211827_)))) + (let ((_lp-hd211798211835_ + (let () (declare (not safe)) (##car _e211797211832_))) + (_lp-tl211799211837_ (let () (declare (not safe)) - (##cdr _e211867211902_)))) - (let ((__tmp218397 + (##cdr _e211797211832_)))) + (let ((__tmp218327 (let () (declare (not safe)) - (cons _lp-hd211868211905_ _expr211870211899_)))) + (cons _lp-hd211798211835_ _expr211800211829_)))) (declare (not safe)) - (_loop211866211894_ _lp-tl211869211907_ __tmp218397)))) - (let ((_expr211871211910_ (reverse _expr211870211899_))) - ((lambda (_L211913_) - (let ((__tmp218396 - (lambda (_g211926211928_) + (_loop211796211824_ _lp-tl211799211837_ __tmp218327)))) + (let ((_expr211801211840_ (reverse _expr211800211829_))) + ((lambda (_L211843_) + (let ((__tmp218326 + (lambda (_g211856211858_) (let () (declare (not safe)) (gxc#compile-e__1 - _g211926211928_ - _arg211855_)))) - (__tmp218394 - (let ((__tmp218395 - (lambda (_g211930211933_ _g211931211935_) + _g211856211858_ + _arg211785_)))) + (__tmp218324 + (let ((__tmp218325 + (lambda (_g211860211863_ _g211861211865_) (let () (declare (not safe)) - (cons _g211930211933_ - _g211931211935_))))) + (cons _g211860211863_ + _g211861211865_))))) (declare (not safe)) - (foldr1 __tmp218395 '() _L211913_)))) + (foldr1 __tmp218325 '() _L211843_)))) (declare (not safe)) - (ormap1 __tmp218396 __tmp218394))) - _expr211871211910_)))))) + (ormap1 __tmp218326 __tmp218324))) + _expr211801211840_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop211866211894_ - _target211863211889_ + (_loop211796211824_ + _target211793211819_ '()))) (let () (declare (not safe)) - (_g211857211876_ - _g211858211879_)))))) + (_g211787211806_ + _g211788211809_)))))) (let () (declare (not safe)) - (_g211857211876_ _g211858211879_))))) + (_g211787211806_ _g211788211809_))))) (let () (declare (not safe)) - (_g211857211876_ _g211858211879_)))))) + (_g211787211806_ _g211788211809_)))))) (declare (not safe)) - (_g211856211938_ _stx211854_)))) + (_g211786211868_ _stx211784_)))) (define gxc#find-begin-annotation% - (lambda (_stx211786_ _arg211787_) - (let* ((_g211789211806_ - (lambda (_g211790211803_) + (lambda (_stx211716_ _arg211717_) + (let* ((_g211719211736_ + (lambda (_g211720211733_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g211790211803_)))) - (_g211788211851_ - (lambda (_g211790211809_) + _g211720211733_)))) + (_g211718211781_ + (lambda (_g211720211739_) (if (let () (declare (not safe)) - (gx#stx-pair? _g211790211809_)) - (let ((_e211795211811_ + (gx#stx-pair? _g211720211739_)) + (let ((_e211725211741_ (let () (declare (not safe)) - (gx#stx-e _g211790211809_)))) - (let ((_hd211794211814_ + (gx#stx-e _g211720211739_)))) + (let ((_hd211724211744_ (let () (declare (not safe)) - (##car _e211795211811_))) - (_tl211793211816_ + (##car _e211725211741_))) + (_tl211723211746_ (let () (declare (not safe)) - (##cdr _e211795211811_)))) + (##cdr _e211725211741_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211793211816_)) - (let ((_e211798211819_ + (gx#stx-pair? _tl211723211746_)) + (let ((_e211728211749_ (let () (declare (not safe)) - (gx#stx-e _tl211793211816_)))) - (let ((_hd211797211822_ + (gx#stx-e _tl211723211746_)))) + (let ((_hd211727211752_ (let () (declare (not safe)) - (##car _e211798211819_))) - (_tl211796211824_ + (##car _e211728211749_))) + (_tl211726211754_ (let () (declare (not safe)) - (##cdr _e211798211819_)))) + (##cdr _e211728211749_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211796211824_)) - (let ((_e211801211827_ + (gx#stx-pair? _tl211726211754_)) + (let ((_e211731211757_ (let () (declare (not safe)) - (gx#stx-e _tl211796211824_)))) - (let ((_hd211800211830_ + (gx#stx-e _tl211726211754_)))) + (let ((_hd211730211760_ (let () (declare (not safe)) - (##car _e211801211827_))) - (_tl211799211832_ + (##car _e211731211757_))) + (_tl211729211762_ (let () (declare (not safe)) - (##cdr _e211801211827_)))) + (##cdr _e211731211757_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl211799211832_)) - ((lambda (_L211835_ _L211836_) + _tl211729211762_)) + ((lambda (_L211765_ _L211766_) (let () (declare (not safe)) (gxc#compile-e__1 - _L211835_ - _arg211787_))) - _hd211800211830_ - _hd211797211822_) + _L211765_ + _arg211717_))) + _hd211730211760_ + _hd211727211752_) (let () (declare (not safe)) - (_g211789211806_ - _g211790211809_))))) + (_g211719211736_ + _g211720211739_))))) (let () (declare (not safe)) - (_g211789211806_ _g211790211809_))))) + (_g211719211736_ _g211720211739_))))) (let () (declare (not safe)) - (_g211789211806_ _g211790211809_))))) + (_g211719211736_ _g211720211739_))))) (let () (declare (not safe)) - (_g211789211806_ _g211790211809_)))))) + (_g211719211736_ _g211720211739_)))))) (declare (not safe)) - (_g211788211851_ _stx211786_)))) + (_g211718211781_ _stx211716_)))) (define gxc#find-lambda% - (lambda (_stx211718_ _arg211719_) - (let* ((_g211721211738_ - (lambda (_g211722211735_) + (lambda (_stx211648_ _arg211649_) + (let* ((_g211651211668_ + (lambda (_g211652211665_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g211722211735_)))) - (_g211720211783_ - (lambda (_g211722211741_) + _g211652211665_)))) + (_g211650211713_ + (lambda (_g211652211671_) (if (let () (declare (not safe)) - (gx#stx-pair? _g211722211741_)) - (let ((_e211727211743_ + (gx#stx-pair? _g211652211671_)) + (let ((_e211657211673_ (let () (declare (not safe)) - (gx#stx-e _g211722211741_)))) - (let ((_hd211726211746_ + (gx#stx-e _g211652211671_)))) + (let ((_hd211656211676_ (let () (declare (not safe)) - (##car _e211727211743_))) - (_tl211725211748_ + (##car _e211657211673_))) + (_tl211655211678_ (let () (declare (not safe)) - (##cdr _e211727211743_)))) + (##cdr _e211657211673_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211725211748_)) - (let ((_e211730211751_ + (gx#stx-pair? _tl211655211678_)) + (let ((_e211660211681_ (let () (declare (not safe)) - (gx#stx-e _tl211725211748_)))) - (let ((_hd211729211754_ + (gx#stx-e _tl211655211678_)))) + (let ((_hd211659211684_ (let () (declare (not safe)) - (##car _e211730211751_))) - (_tl211728211756_ + (##car _e211660211681_))) + (_tl211658211686_ (let () (declare (not safe)) - (##cdr _e211730211751_)))) + (##cdr _e211660211681_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211728211756_)) - (let ((_e211733211759_ + (gx#stx-pair? _tl211658211686_)) + (let ((_e211663211689_ (let () (declare (not safe)) - (gx#stx-e _tl211728211756_)))) - (let ((_hd211732211762_ + (gx#stx-e _tl211658211686_)))) + (let ((_hd211662211692_ (let () (declare (not safe)) - (##car _e211733211759_))) - (_tl211731211764_ + (##car _e211663211689_))) + (_tl211661211694_ (let () (declare (not safe)) - (##cdr _e211733211759_)))) + (##cdr _e211663211689_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl211731211764_)) - ((lambda (_L211767_ _L211768_) + _tl211661211694_)) + ((lambda (_L211697_ _L211698_) (let () (declare (not safe)) (gxc#compile-e__1 - _L211767_ - _arg211719_))) - _hd211732211762_ - _hd211729211754_) + _L211697_ + _arg211649_))) + _hd211662211692_ + _hd211659211684_) (let () (declare (not safe)) - (_g211721211738_ - _g211722211741_))))) + (_g211651211668_ + _g211652211671_))))) (let () (declare (not safe)) - (_g211721211738_ _g211722211741_))))) + (_g211651211668_ _g211652211671_))))) (let () (declare (not safe)) - (_g211721211738_ _g211722211741_))))) + (_g211651211668_ _g211652211671_))))) (let () (declare (not safe)) - (_g211721211738_ _g211722211741_)))))) + (_g211651211668_ _g211652211671_)))))) (declare (not safe)) - (_g211720211783_ _stx211718_)))) + (_g211650211713_ _stx211648_)))) (define gxc#find-case-lambda% - (lambda (_stx211600_ _arg211601_) - (let* ((_g211603211631_ - (lambda (_g211604211628_) + (lambda (_stx211530_ _arg211531_) + (let* ((_g211533211561_ + (lambda (_g211534211558_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g211604211628_)))) - (_g211602211715_ - (lambda (_g211604211634_) + _g211534211558_)))) + (_g211532211645_ + (lambda (_g211534211564_) (if (let () (declare (not safe)) - (gx#stx-pair? _g211604211634_)) - (let ((_e211609211636_ + (gx#stx-pair? _g211534211564_)) + (let ((_e211539211566_ (let () (declare (not safe)) - (gx#stx-e _g211604211634_)))) - (let ((_hd211608211639_ + (gx#stx-e _g211534211564_)))) + (let ((_hd211538211569_ (let () (declare (not safe)) - (##car _e211609211636_))) - (_tl211607211641_ + (##car _e211539211566_))) + (_tl211537211571_ (let () (declare (not safe)) - (##cdr _e211609211636_)))) + (##cdr _e211539211566_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl211607211641_)) - (let ((_g218398_ + (gx#stx-pair/null? _tl211537211571_)) + (let ((_g218328_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl211607211641_ + _tl211537211571_ '0)))) (begin - (let ((_g218399_ + (let ((_g218329_ (let () (declare (not safe)) - (if (##values? _g218398_) - (##vector-length _g218398_) + (if (##values? _g218328_) + (##vector-length _g218328_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g218399_ 2))) + (##fx= _g218329_ 2))) (error "Context expects 2 values" - _g218399_))) - (let ((_target211610211644_ + _g218329_))) + (let ((_target211540211574_ (let () (declare (not safe)) - (##vector-ref _g218398_ 0))) - (_tl211612211646_ + (##vector-ref _g218328_ 0))) + (_tl211542211576_ (let () (declare (not safe)) - (##vector-ref _g218398_ 1)))) + (##vector-ref _g218328_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl211612211646_)) - (letrec ((_loop211613211649_ - (lambda (_hd211611211652_ - _body211617211654_ - _hd211618211656_) + (gx#stx-null? _tl211542211576_)) + (letrec ((_loop211543211579_ + (lambda (_hd211541211582_ + _body211547211584_ + _hd211548211586_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd211611211652_)) - (let ((_e211614211659_ + _hd211541211582_)) + (let ((_e211544211589_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd211611211652_)))) - (let ((_lp-hd211615211662_ - (let () (declare (not safe)) (##car _e211614211659_))) - (_lp-tl211616211664_ + (gx#stx-e _hd211541211582_)))) + (let ((_lp-hd211545211592_ + (let () (declare (not safe)) (##car _e211544211589_))) + (_lp-tl211546211594_ (let () (declare (not safe)) - (##cdr _e211614211659_)))) + (##cdr _e211544211589_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd211615211662_)) - (let ((_e211623211667_ + (gx#stx-pair? _lp-hd211545211592_)) + (let ((_e211553211597_ (let () (declare (not safe)) - (gx#stx-e _lp-hd211615211662_)))) - (let ((_hd211622211670_ + (gx#stx-e _lp-hd211545211592_)))) + (let ((_hd211552211600_ (let () (declare (not safe)) - (##car _e211623211667_))) - (_tl211621211672_ + (##car _e211553211597_))) + (_tl211551211602_ (let () (declare (not safe)) - (##cdr _e211623211667_)))) + (##cdr _e211553211597_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211621211672_)) - (let ((_e211626211675_ + (gx#stx-pair? _tl211551211602_)) + (let ((_e211556211605_ (let () (declare (not safe)) - (gx#stx-e _tl211621211672_)))) - (let ((_hd211625211678_ + (gx#stx-e _tl211551211602_)))) + (let ((_hd211555211608_ (let () (declare (not safe)) - (##car _e211626211675_))) - (_tl211624211680_ + (##car _e211556211605_))) + (_tl211554211610_ (let () (declare (not safe)) - (##cdr _e211626211675_)))) + (##cdr _e211556211605_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl211624211680_)) - (let ((__tmp218404 + (gx#stx-null? _tl211554211610_)) + (let ((__tmp218334 (let () (declare (not safe)) - (cons _hd211625211678_ - _body211617211654_))) - (__tmp218403 + (cons _hd211555211608_ + _body211547211584_))) + (__tmp218333 (let () (declare (not safe)) - (cons _hd211622211670_ - _hd211618211656_)))) + (cons _hd211552211600_ + _hd211548211586_)))) (declare (not safe)) - (_loop211613211649_ - _lp-tl211616211664_ - __tmp218404 - __tmp218403)) + (_loop211543211579_ + _lp-tl211546211594_ + __tmp218334 + __tmp218333)) (let () (declare (not safe)) - (_g211603211631_ _g211604211634_))))) + (_g211533211561_ _g211534211564_))))) (let () (declare (not safe)) - (_g211603211631_ _g211604211634_))))) + (_g211533211561_ _g211534211564_))))) (let () (declare (not safe)) - (_g211603211631_ _g211604211634_))))) - (let ((_body211619211683_ (reverse _body211617211654_)) - (_hd211620211685_ (reverse _hd211618211656_))) - ((lambda (_L211688_ _L211689_) - (let ((__tmp218402 - (lambda (_g211703211705_) + (_g211533211561_ _g211534211564_))))) + (let ((_body211549211613_ (reverse _body211547211584_)) + (_hd211550211615_ (reverse _hd211548211586_))) + ((lambda (_L211618_ _L211619_) + (let ((__tmp218332 + (lambda (_g211633211635_) (let () (declare (not safe)) (gxc#compile-e__1 - _g211703211705_ - _arg211601_)))) - (__tmp218400 - (let ((__tmp218401 - (lambda (_g211707211710_ _g211708211712_) + _g211633211635_ + _arg211531_)))) + (__tmp218330 + (let ((__tmp218331 + (lambda (_g211637211640_ _g211638211642_) (let () (declare (not safe)) - (cons _g211707211710_ - _g211708211712_))))) + (cons _g211637211640_ + _g211638211642_))))) (declare (not safe)) - (foldr1 __tmp218401 '() _L211688_)))) + (foldr1 __tmp218331 '() _L211618_)))) (declare (not safe)) - (ormap1 __tmp218402 __tmp218400))) - _body211619211683_ - _hd211620211685_)))))) + (ormap1 __tmp218332 __tmp218330))) + _body211549211613_ + _hd211550211615_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop211613211649_ - _target211610211644_ + (_loop211543211579_ + _target211540211574_ '() '()))) (let () (declare (not safe)) - (_g211603211631_ - _g211604211634_)))))) + (_g211533211561_ + _g211534211564_)))))) (let () (declare (not safe)) - (_g211603211631_ _g211604211634_))))) + (_g211533211561_ _g211534211564_))))) (let () (declare (not safe)) - (_g211603211631_ _g211604211634_)))))) + (_g211533211561_ _g211534211564_)))))) (declare (not safe)) - (_g211602211715_ _stx211600_)))) + (_g211532211645_ _stx211530_)))) (define gxc#find-let-values% - (lambda (_stx211450_ _arg211451_) - (let* ((_g211453211488_ - (lambda (_g211454211485_) + (lambda (_stx211380_ _arg211381_) + (let* ((_g211383211418_ + (lambda (_g211384211415_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g211454211485_)))) - (_g211452211597_ - (lambda (_g211454211491_) + _g211384211415_)))) + (_g211382211527_ + (lambda (_g211384211421_) (if (let () (declare (not safe)) - (gx#stx-pair? _g211454211491_)) - (let ((_e211460211493_ + (gx#stx-pair? _g211384211421_)) + (let ((_e211390211423_ (let () (declare (not safe)) - (gx#stx-e _g211454211491_)))) - (let ((_hd211459211496_ + (gx#stx-e _g211384211421_)))) + (let ((_hd211389211426_ (let () (declare (not safe)) - (##car _e211460211493_))) - (_tl211458211498_ + (##car _e211390211423_))) + (_tl211388211428_ (let () (declare (not safe)) - (##cdr _e211460211493_)))) + (##cdr _e211390211423_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211458211498_)) - (let ((_e211463211501_ + (gx#stx-pair? _tl211388211428_)) + (let ((_e211393211431_ (let () (declare (not safe)) - (gx#stx-e _tl211458211498_)))) - (let ((_hd211462211504_ + (gx#stx-e _tl211388211428_)))) + (let ((_hd211392211434_ (let () (declare (not safe)) - (##car _e211463211501_))) - (_tl211461211506_ + (##car _e211393211431_))) + (_tl211391211436_ (let () (declare (not safe)) - (##cdr _e211463211501_)))) + (##cdr _e211393211431_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd211462211504_)) - (let ((_g218405_ + (gx#stx-pair/null? _hd211392211434_)) + (let ((_g218335_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd211462211504_ + _hd211392211434_ '0)))) (begin - (let ((_g218406_ + (let ((_g218336_ (let () (declare (not safe)) - (if (##values? _g218405_) + (if (##values? _g218335_) (##vector-length - _g218405_) + _g218335_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g218406_ 2))) + (##fx= _g218336_ 2))) (error "Context expects 2 values" - _g218406_))) - (let ((_target211464211509_ + _g218336_))) + (let ((_target211394211439_ (let () (declare (not safe)) - (##vector-ref _g218405_ 0))) - (_tl211466211511_ + (##vector-ref _g218335_ 0))) + (_tl211396211441_ (let () (declare (not safe)) (##vector-ref - _g218405_ + _g218335_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl211466211511_)) - (letrec ((_loop211467211514_ - (lambda (_hd211465211517_ + _tl211396211441_)) + (letrec ((_loop211397211444_ + (lambda (_hd211395211447_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr211471211519_ - _bind211472211521_) + _expr211401211449_ + _bind211402211451_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd211465211517_)) - (let ((_e211468211524_ + (gx#stx-pair? _hd211395211447_)) + (let ((_e211398211454_ (let () (declare (not safe)) - (gx#stx-e _hd211465211517_)))) - (let ((_lp-hd211469211527_ + (gx#stx-e _hd211395211447_)))) + (let ((_lp-hd211399211457_ (let () (declare (not safe)) - (##car _e211468211524_))) - (_lp-tl211470211529_ + (##car _e211398211454_))) + (_lp-tl211400211459_ (let () (declare (not safe)) - (##cdr _e211468211524_)))) + (##cdr _e211398211454_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd211469211527_)) - (let ((_e211477211532_ + (gx#stx-pair? _lp-hd211399211457_)) + (let ((_e211407211462_ (let () (declare (not safe)) - (gx#stx-e _lp-hd211469211527_)))) - (let ((_hd211476211535_ + (gx#stx-e _lp-hd211399211457_)))) + (let ((_hd211406211465_ (let () (declare (not safe)) - (##car _e211477211532_))) - (_tl211475211537_ + (##car _e211407211462_))) + (_tl211405211467_ (let () (declare (not safe)) - (##cdr _e211477211532_)))) + (##cdr _e211407211462_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211475211537_)) - (let ((_e211480211540_ + (gx#stx-pair? _tl211405211467_)) + (let ((_e211410211470_ (let () (declare (not safe)) - (gx#stx-e _tl211475211537_)))) - (let ((_hd211479211543_ + (gx#stx-e _tl211405211467_)))) + (let ((_hd211409211473_ (let () (declare (not safe)) - (##car _e211480211540_))) - (_tl211478211545_ + (##car _e211410211470_))) + (_tl211408211475_ (let () (declare (not safe)) - (##cdr _e211480211540_)))) + (##cdr _e211410211470_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl211478211545_)) - (let ((__tmp218411 + _tl211408211475_)) + (let ((__tmp218341 (let () (declare (not safe)) - (cons _hd211479211543_ - _expr211471211519_))) - (__tmp218410 + (cons _hd211409211473_ + _expr211401211449_))) + (__tmp218340 (let () (declare (not safe)) - (cons _hd211476211535_ - _bind211472211521_)))) + (cons _hd211406211465_ + _bind211402211451_)))) (declare (not safe)) - (_loop211467211514_ - _lp-tl211470211529_ - __tmp218411 - __tmp218410)) + (_loop211397211444_ + _lp-tl211400211459_ + __tmp218341 + __tmp218340)) (let () (declare (not safe)) - (_g211453211488_ - _g211454211491_))))) + (_g211383211418_ + _g211384211421_))))) (let () (declare (not safe)) - (_g211453211488_ _g211454211491_))))) + (_g211383211418_ _g211384211421_))))) (let () (declare (not safe)) - (_g211453211488_ _g211454211491_))))) - (let ((_expr211473211548_ (reverse _expr211471211519_)) - (_bind211474211550_ - (reverse _bind211472211521_))) + (_g211383211418_ _g211384211421_))))) + (let ((_expr211403211478_ (reverse _expr211401211449_)) + (_bind211404211480_ + (reverse _bind211402211451_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211461211506_)) - (let ((_e211483211553_ + (gx#stx-pair? _tl211391211436_)) + (let ((_e211413211483_ (let () (declare (not safe)) - (gx#stx-e _tl211461211506_)))) - (let ((_hd211482211556_ + (gx#stx-e _tl211391211436_)))) + (let ((_hd211412211486_ (let () (declare (not safe)) - (##car _e211483211553_))) - (_tl211481211558_ + (##car _e211413211483_))) + (_tl211411211488_ (let () (declare (not safe)) - (##cdr _e211483211553_)))) + (##cdr _e211413211483_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl211481211558_)) - ((lambda (_L211561_ _L211562_ _L211563_) - (let ((_$e211594_ - (let ((__tmp218409 - (lambda (_g211582211584_) + (gx#stx-null? _tl211411211488_)) + ((lambda (_L211491_ _L211492_ _L211493_) + (let ((_$e211524_ + (let ((__tmp218339 + (lambda (_g211512211514_) (let () (declare (not safe)) (gxc#compile-e__1 - _g211582211584_ - _arg211451_)))) - (__tmp218407 - (let ((__tmp218408 - (lambda (_g211586211589_ + _g211512211514_ + _arg211381_)))) + (__tmp218337 + (let ((__tmp218338 + (lambda (_g211516211519_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g211587211591_) + _g211517211521_) (let () (declare (not safe)) - (cons _g211586211589_ _g211587211591_))))) + (cons _g211516211519_ _g211517211521_))))) (declare (not safe)) - (foldr1 __tmp218408 '() _L211562_)))) + (foldr1 __tmp218338 '() _L211492_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (ormap1 __tmp218409 - __tmp218407)))) - (if _$e211594_ - _$e211594_ + (ormap1 __tmp218339 + __tmp218337)))) + (if _$e211524_ + _$e211524_ (let () (declare (not safe)) (gxc#compile-e__1 - _L211561_ - _arg211451_))))) - _hd211482211556_ - _expr211473211548_ - _bind211474211550_) + _L211491_ + _arg211381_))))) + _hd211412211486_ + _expr211403211478_ + _bind211404211480_) (let () (declare (not safe)) - (_g211453211488_ _g211454211491_))))) + (_g211383211418_ _g211384211421_))))) (let () (declare (not safe)) - (_g211453211488_ _g211454211491_)))))))) + (_g211383211418_ _g211384211421_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop211467211514_ - _target211464211509_ + (_loop211397211444_ + _target211394211439_ '() '()))) (let () (declare (not safe)) - (_g211453211488_ - _g211454211491_)))))) + (_g211383211418_ + _g211384211421_)))))) (let () (declare (not safe)) - (_g211453211488_ _g211454211491_))))) + (_g211383211418_ _g211384211421_))))) (let () (declare (not safe)) - (_g211453211488_ _g211454211491_))))) + (_g211383211418_ _g211384211421_))))) (let () (declare (not safe)) - (_g211453211488_ _g211454211491_)))))) + (_g211383211418_ _g211384211421_)))))) (declare (not safe)) - (_g211452211597_ _stx211450_)))) + (_g211382211527_ _stx211380_)))) (define gxc#find-setq% - (lambda (_stx211382_ _arg211383_) - (let* ((_g211385211402_ - (lambda (_g211386211399_) + (lambda (_stx211312_ _arg211313_) + (let* ((_g211315211332_ + (lambda (_g211316211329_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g211386211399_)))) - (_g211384211447_ - (lambda (_g211386211405_) + _g211316211329_)))) + (_g211314211377_ + (lambda (_g211316211335_) (if (let () (declare (not safe)) - (gx#stx-pair? _g211386211405_)) - (let ((_e211391211407_ + (gx#stx-pair? _g211316211335_)) + (let ((_e211321211337_ (let () (declare (not safe)) - (gx#stx-e _g211386211405_)))) - (let ((_hd211390211410_ + (gx#stx-e _g211316211335_)))) + (let ((_hd211320211340_ (let () (declare (not safe)) - (##car _e211391211407_))) - (_tl211389211412_ + (##car _e211321211337_))) + (_tl211319211342_ (let () (declare (not safe)) - (##cdr _e211391211407_)))) + (##cdr _e211321211337_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211389211412_)) - (let ((_e211394211415_ + (gx#stx-pair? _tl211319211342_)) + (let ((_e211324211345_ (let () (declare (not safe)) - (gx#stx-e _tl211389211412_)))) - (let ((_hd211393211418_ + (gx#stx-e _tl211319211342_)))) + (let ((_hd211323211348_ (let () (declare (not safe)) - (##car _e211394211415_))) - (_tl211392211420_ + (##car _e211324211345_))) + (_tl211322211350_ (let () (declare (not safe)) - (##cdr _e211394211415_)))) + (##cdr _e211324211345_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211392211420_)) - (let ((_e211397211423_ + (gx#stx-pair? _tl211322211350_)) + (let ((_e211327211353_ (let () (declare (not safe)) - (gx#stx-e _tl211392211420_)))) - (let ((_hd211396211426_ + (gx#stx-e _tl211322211350_)))) + (let ((_hd211326211356_ (let () (declare (not safe)) - (##car _e211397211423_))) - (_tl211395211428_ + (##car _e211327211353_))) + (_tl211325211358_ (let () (declare (not safe)) - (##cdr _e211397211423_)))) + (##cdr _e211327211353_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl211395211428_)) - ((lambda (_L211431_ _L211432_) + _tl211325211358_)) + ((lambda (_L211361_ _L211362_) (let () (declare (not safe)) (gxc#compile-e__1 - _L211431_ - _arg211383_))) - _hd211396211426_ - _hd211393211418_) + _L211361_ + _arg211313_))) + _hd211326211356_ + _hd211323211348_) (let () (declare (not safe)) - (_g211385211402_ - _g211386211405_))))) + (_g211315211332_ + _g211316211335_))))) (let () (declare (not safe)) - (_g211385211402_ _g211386211405_))))) + (_g211315211332_ _g211316211335_))))) (let () (declare (not safe)) - (_g211385211402_ _g211386211405_))))) + (_g211315211332_ _g211316211335_))))) (let () (declare (not safe)) - (_g211385211402_ _g211386211405_)))))) + (_g211315211332_ _g211316211335_)))))) (declare (not safe)) - (_g211384211447_ _stx211382_)))) + (_g211314211377_ _stx211312_)))) (define gxc#find-var-refs-ref% - (lambda (_stx211326_ _ids211327_) - (let* ((_g211329211342_ - (lambda (_g211330211339_) + (lambda (_stx211256_ _ids211257_) + (let* ((_g211259211272_ + (lambda (_g211260211269_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g211330211339_)))) - (_g211328211379_ - (lambda (_g211330211345_) + _g211260211269_)))) + (_g211258211309_ + (lambda (_g211260211275_) (if (let () (declare (not safe)) - (gx#stx-pair? _g211330211345_)) - (let ((_e211334211347_ + (gx#stx-pair? _g211260211275_)) + (let ((_e211264211277_ (let () (declare (not safe)) - (gx#stx-e _g211330211345_)))) - (let ((_hd211333211350_ + (gx#stx-e _g211260211275_)))) + (let ((_hd211263211280_ (let () (declare (not safe)) - (##car _e211334211347_))) - (_tl211332211352_ + (##car _e211264211277_))) + (_tl211262211282_ (let () (declare (not safe)) - (##cdr _e211334211347_)))) + (##cdr _e211264211277_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211332211352_)) - (let ((_e211337211355_ + (gx#stx-pair? _tl211262211282_)) + (let ((_e211267211285_ (let () (declare (not safe)) - (gx#stx-e _tl211332211352_)))) - (let ((_hd211336211358_ + (gx#stx-e _tl211262211282_)))) + (let ((_hd211266211288_ (let () (declare (not safe)) - (##car _e211337211355_))) - (_tl211335211360_ + (##car _e211267211285_))) + (_tl211265211290_ (let () (declare (not safe)) - (##cdr _e211337211355_)))) + (##cdr _e211267211285_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl211335211360_)) - ((lambda (_L211363_) - (let ((__tmp218412 - (lambda (_g211374211376_) + (gx#stx-null? _tl211265211290_)) + ((lambda (_L211293_) + (let ((__tmp218342 + (lambda (_g211304211306_) (let () (declare (not safe)) (gx#free-identifier=? - _L211363_ - _g211374211376_))))) + _L211293_ + _g211304211306_))))) (declare (not safe)) - (find __tmp218412 _ids211327_))) - _hd211336211358_) + (find __tmp218342 _ids211257_))) + _hd211266211288_) (let () (declare (not safe)) - (_g211329211342_ _g211330211345_))))) + (_g211259211272_ _g211260211275_))))) (let () (declare (not safe)) - (_g211329211342_ _g211330211345_))))) + (_g211259211272_ _g211260211275_))))) (let () (declare (not safe)) - (_g211329211342_ _g211330211345_)))))) + (_g211259211272_ _g211260211275_)))))) (declare (not safe)) - (_g211328211379_ _stx211326_)))) + (_g211258211309_ _stx211256_)))) (define gxc#find-var-refs-setq% - (lambda (_stx211250_ _ids211251_) - (let* ((_g211253211270_ - (lambda (_g211254211267_) + (lambda (_stx211180_ _ids211181_) + (let* ((_g211183211200_ + (lambda (_g211184211197_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g211254211267_)))) - (_g211252211323_ - (lambda (_g211254211273_) + _g211184211197_)))) + (_g211182211253_ + (lambda (_g211184211203_) (if (let () (declare (not safe)) - (gx#stx-pair? _g211254211273_)) - (let ((_e211259211275_ + (gx#stx-pair? _g211184211203_)) + (let ((_e211189211205_ (let () (declare (not safe)) - (gx#stx-e _g211254211273_)))) - (let ((_hd211258211278_ + (gx#stx-e _g211184211203_)))) + (let ((_hd211188211208_ (let () (declare (not safe)) - (##car _e211259211275_))) - (_tl211257211280_ + (##car _e211189211205_))) + (_tl211187211210_ (let () (declare (not safe)) - (##cdr _e211259211275_)))) + (##cdr _e211189211205_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211257211280_)) - (let ((_e211262211283_ + (gx#stx-pair? _tl211187211210_)) + (let ((_e211192211213_ (let () (declare (not safe)) - (gx#stx-e _tl211257211280_)))) - (let ((_hd211261211286_ + (gx#stx-e _tl211187211210_)))) + (let ((_hd211191211216_ (let () (declare (not safe)) - (##car _e211262211283_))) - (_tl211260211288_ + (##car _e211192211213_))) + (_tl211190211218_ (let () (declare (not safe)) - (##cdr _e211262211283_)))) + (##cdr _e211192211213_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl211260211288_)) - (let ((_e211265211291_ + (gx#stx-pair? _tl211190211218_)) + (let ((_e211195211221_ (let () (declare (not safe)) - (gx#stx-e _tl211260211288_)))) - (let ((_hd211264211294_ + (gx#stx-e _tl211190211218_)))) + (let ((_hd211194211224_ (let () (declare (not safe)) - (##car _e211265211291_))) - (_tl211263211296_ + (##car _e211195211221_))) + (_tl211193211226_ (let () (declare (not safe)) - (##cdr _e211265211291_)))) + (##cdr _e211195211221_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl211263211296_)) - ((lambda (_L211299_ _L211300_) - (let ((_$e211320_ - (let ((__tmp218413 - (lambda (_g211315211317_) + _tl211193211226_)) + ((lambda (_L211229_ _L211230_) + (let ((_$e211250_ + (let ((__tmp218343 + (lambda (_g211245211247_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#free-identifier=? _L211300_ _g211315211317_))))) + (gx#free-identifier=? _L211230_ _g211245211247_))))) (declare (not safe)) - (find __tmp218413 _ids211251_)))) + (find __tmp218343 _ids211181_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e211320_ - _$e211320_ + (if _$e211250_ + _$e211250_ (let () (declare (not safe)) (gxc#compile-e__1 - _L211299_ - _ids211251_))))) - _hd211264211294_ - _hd211261211286_) + _L211229_ + _ids211181_))))) + _hd211194211224_ + _hd211191211216_) (let () (declare (not safe)) - (_g211253211270_ - _g211254211273_))))) + (_g211183211200_ + _g211184211203_))))) (let () (declare (not safe)) - (_g211253211270_ _g211254211273_))))) + (_g211183211200_ _g211184211203_))))) (let () (declare (not safe)) - (_g211253211270_ _g211254211273_))))) + (_g211183211200_ _g211184211203_))))) (let () (declare (not safe)) - (_g211253211270_ _g211254211273_)))))) + (_g211183211200_ _g211184211203_)))))) (declare (not safe)) - (_g211252211323_ _stx211250_)))))) + (_g211182211253_ _stx211180_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index 8a15a958d..cbdb6a932 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -1,1765 +1,1765 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1707423046) + (define gerbil/compiler/optimize::timestamp 1707565666) (begin (define gxc#optimizer-info-init! (lambda () (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj278201 (make-object* gxc#optimizer-info::t '4))) - (gxc#optimizer-info:::init! __obj278201) - __obj278201))))) + (let ((__obj278131 (make-object gxc#optimizer-info::t '4))) + (gxc#optimizer-info:::init! __obj278131) + __obj278131))))) (define gxc#optimize! - (lambda (_ctx273700_) - (let ((__tmp278205 + (lambda (_ctx273630_) + (let ((__tmp278135 (lambda () (let () (declare (not safe)) - (gxc#optimizer-load-ssxi-deps _ctx273700_)) + (gxc#optimizer-load-ssxi-deps _ctx273630_)) (let () (declare (not safe)) (gxc#optimizer-load-builtin-ssxi)) - (let ((__tmp278207 + (let ((__tmp278137 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp278206 + (__tmp278136 (##structure-ref - _ctx273700_ + _ctx273630_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-set! __tmp278207 __tmp278206 '#t)) - (let ((_code273703_ - (let ((__tmp278208 + (table-set! __tmp278137 __tmp278136 '#t)) + (let ((_code273633_ + (let ((__tmp278138 (##structure-ref - _ctx273700_ + _ctx273630_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#optimize-source __tmp278208)))) + (gxc#optimize-source __tmp278138)))) (##structure-set! - _ctx273700_ - _code273703_ + _ctx273630_ + _code273633_ '11 gx#module-context::t '#f)))) - (__tmp278204 + (__tmp278134 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp278203 + (__tmp278133 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (call-with-parameters - __tmp278205 + __tmp278135 gxc#current-compile-mutators - __tmp278204 + __tmp278134 gxc#current-compile-local-type - __tmp278203)))) + __tmp278133)))) (define gxc#optimizer-load-builtin-ssxi (lambda () (let () (declare (not safe)) (gxc#optimizer-import-ssxi-by-id 'gerbil/builtin)) - (let ((__tmp278209 + (let ((__tmp278139 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-set! __tmp278209 'gerbil/builtin '#t)))) + (table-set! __tmp278139 'gerbil/builtin '#t)))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx273644_) - (letrec* ((_deps273646_ - (let* ((_imports273690_ + (lambda (_ctx273574_) + (letrec* ((_deps273576_ + (let* ((_imports273620_ (##structure-ref - _ctx273644_ + _ctx273574_ '8 gx#module-context::t '#f)) - (_$e273692_ + (_$e273622_ (let () (declare (not safe)) - (gx#core-context-prelude__% _ctx273644_)))) - (if _$e273692_ - ((lambda (_g273694273696_) + (gx#core-context-prelude__% _ctx273574_)))) + (if _$e273622_ + ((lambda (_g273624273626_) (let () (declare (not safe)) - (cons _g273694273696_ _imports273690_))) - _$e273692_) - _imports273690_)))) - (let _lp273648_ ((_rest273650_ _deps273646_)) - (let* ((_rest273651273659_ _rest273650_) - (_else273653273667_ (lambda () '#!void)) - (_K273655273678_ - (lambda (_rest273670_ _hd273671_) + (cons _g273624273626_ _imports273620_))) + _$e273622_) + _imports273620_)))) + (let _lp273578_ ((_rest273580_ _deps273576_)) + (let* ((_rest273581273589_ _rest273580_) + (_else273583273597_ (lambda () '#!void)) + (_K273585273608_ + (lambda (_rest273600_ _hd273601_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd273671_ + _hd273601_ 'gx#module-context::t)) (begin - (if (let ((__tmp278223 + (if (let ((__tmp278153 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp278222 + (__tmp278152 (##structure-ref - _hd273671_ + _hd273601_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-ref __tmp278223 __tmp278222 '#f)) + (table-ref __tmp278153 __tmp278152 '#f)) '#!void (begin - (let ((_$e273673_ + (let ((_$e273603_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd273671_)))) - (if _$e273673_ - ((lambda (_pre273676_) - (let ((__tmp278220 - (let ((__tmp278221 + _hd273601_)))) + (if _$e273603_ + ((lambda (_pre273606_) + (let ((__tmp278150 + (let ((__tmp278151 (##structure-ref - _hd273671_ + _hd273601_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre273676_ - __tmp278221)))) + (cons _pre273606_ + __tmp278151)))) (declare (not safe)) - (_lp273648_ __tmp278220))) - _$e273673_) - (let ((__tmp278219 + (_lp273578_ __tmp278150))) + _$e273603_) + (let ((__tmp278149 (##structure-ref - _hd273671_ + _hd273601_ '8 gx#module-context::t '#f))) (declare (not safe)) - (_lp273648_ __tmp278219)))) + (_lp273578_ __tmp278149)))) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd273671_)))) + (gxc#optimizer-load-ssxi _hd273601_)))) (let () (declare (not safe)) - (_lp273648_ _rest273670_))) + (_lp273578_ _rest273600_))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd273671_ + _hd273601_ 'gx#prelude-context::t)) (begin - (if (let ((__tmp278218 + (if (let ((__tmp278148 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp278217 + (__tmp278147 (##structure-ref - _hd273671_ + _hd273601_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-ref __tmp278218 __tmp278217 '#f)) + (table-ref __tmp278148 __tmp278147 '#f)) '#!void (begin - (let ((__tmp278216 + (let ((__tmp278146 (##structure-ref - _hd273671_ + _hd273601_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_lp273648_ __tmp278216)) + (_lp273578_ __tmp278146)) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd273671_)))) + (gxc#optimizer-load-ssxi _hd273601_)))) (let () (declare (not safe)) - (_lp273648_ _rest273670_))) + (_lp273578_ _rest273600_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd273671_ + _hd273601_ 'gx#module-import::t)) - (let ((__tmp278214 - (let ((__tmp278215 + (let ((__tmp278144 + (let ((__tmp278145 (##direct-structure-ref - _hd273671_ + _hd273601_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp278215 _rest273670_)))) + (cons __tmp278145 _rest273600_)))) (declare (not safe)) - (_lp273648_ __tmp278214)) + (_lp273578_ __tmp278144)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd273671_ + _hd273601_ 'gx#module-export::t)) - (let ((__tmp278212 - (let ((__tmp278213 + (let ((__tmp278142 + (let ((__tmp278143 (##direct-structure-ref - _hd273671_ + _hd273601_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp278213 - _rest273670_)))) + (cons __tmp278143 + _rest273600_)))) (declare (not safe)) - (_lp273648_ __tmp278212)) + (_lp273578_ __tmp278142)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd273671_ + _hd273601_ 'gx#import-set::t)) - (let ((__tmp278210 - (let ((__tmp278211 + (let ((__tmp278140 + (let ((__tmp278141 (##direct-structure-ref - _hd273671_ + _hd273601_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp278211 - _rest273670_)))) + (cons __tmp278141 + _rest273600_)))) (declare (not safe)) - (_lp273648_ __tmp278210)) + (_lp273578_ __tmp278140)) (error '"Unexpected module import" - _hd273671_))))))))) - (if (let () (declare (not safe)) (##pair? _rest273651273659_)) - (let ((_hd273656273681_ + _hd273601_))))))))) + (if (let () (declare (not safe)) (##pair? _rest273581273589_)) + (let ((_hd273586273611_ (let () (declare (not safe)) - (##car _rest273651273659_))) - (_tl273657273683_ + (##car _rest273581273589_))) + (_tl273587273613_ (let () (declare (not safe)) - (##cdr _rest273651273659_)))) - (let* ((_hd273686_ _hd273656273681_) - (_rest273688_ _tl273657273683_)) + (##cdr _rest273581273589_)))) + (let* ((_hd273616_ _hd273586273611_) + (_rest273618_ _tl273587273613_)) (declare (not safe)) - (_K273655273678_ _rest273688_ _hd273686_))) + (_K273585273608_ _rest273618_ _hd273616_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_ctx273624_) + (lambda (_ctx273554_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _ctx273624_ + _ctx273554_ 'gx#module-context::t)) - (let ((__tmp278224 + (let ((__tmp278154 (##structure-ref - _ctx273624_ + _ctx273554_ '7 gx#module-context::t '#f))) (declare (not safe)) - (list? __tmp278224))) + (list? __tmp278154))) '#!void - (let* ((_ht273626_ + (let* ((_ht273556_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (_id273628_ + (_id273558_ (##structure-ref - _ctx273624_ + _ctx273554_ '1 gx#expander-context::t '#f)) - (_mod273630_ + (_mod273560_ (let () (declare (not safe)) - (table-ref _ht273626_ _id273628_ '#f)))) - (let ((_$e273633_ _mod273630_)) - (if _$e273633_ - _$e273633_ - (let* ((_mod273636_ + (table-ref _ht273556_ _id273558_ '#f)))) + (let ((_$e273563_ _mod273560_)) + (if _$e273563_ + _$e273563_ + (let* ((_mod273566_ (let () (declare (not safe)) - (gxc#optimizer-import-ssxi _ctx273624_))) - (_val273641_ - (let ((_$e273638_ _mod273636_)) - (if _$e273638_ _$e273638_ '#!void)))) + (gxc#optimizer-import-ssxi _ctx273554_))) + (_val273571_ + (let ((_$e273568_ _mod273566_)) + (if _$e273568_ _$e273568_ '#!void)))) (let () (declare (not safe)) - (table-set! _ht273626_ _id273628_ _val273641_)) - _val273641_))))))) + (table-set! _ht273556_ _id273558_ _val273571_)) + _val273571_))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx273622_) - (if (##structure-ref _ctx273622_ '1 gx#expander-context::t '#f) - (let ((__tmp278225 + (lambda (_ctx273552_) + (if (##structure-ref _ctx273552_ '1 gx#expander-context::t '#f) + (let ((__tmp278155 (##structure-ref - _ctx273622_ + _ctx273552_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id __tmp278225)) + (gxc#optimizer-import-ssxi-by-id __tmp278155)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_id273599_) - (letrec ((_catch-e273601_ - (lambda (_exn273620_) + (lambda (_id273529_) + (letrec ((_catch-e273531_ + (lambda (_exn273550_) (if (gxc#current-compile-verbose) (begin (let () (declare (not safe)) (displayln '"Failed to load ssxi module for " - _id273599_)) - (display-exception _exn273620_)) + _id273529_)) + (display-exception _exn273550_)) '#!void) '#f)) - (_import-e273602_ + (_import-e273532_ (lambda () - (let* ((_str-id273605_ + (let* ((_str-id273535_ (string-append (let () (declare (not safe)) - (gxc#module-id->path-string _id273599_)) + (gxc#module-id->path-string _id273529_)) '".ssxi")) - (_artefact-path273613_ - (let ((_odir273606273608_ + (_artefact-path273543_ + (let ((_odir273536273538_ (gxc#current-compile-output-dir))) - (if _odir273606273608_ - (let ((_odir273611_ _odir273606273608_)) + (if _odir273536273538_ + (let ((_odir273541_ _odir273536273538_)) (path-expand - (string-append _str-id273605_ '".ss") - _odir273611_)) + (string-append _str-id273535_ '".ss") + _odir273541_)) '#f))) - (_library-path273615_ + (_library-path273545_ (string->symbol - (string-append '":" _str-id273605_ '".ss"))) - (_ssxi-path273617_ - (if (and _artefact-path273613_ - (file-exists? _artefact-path273613_)) - _artefact-path273613_ - _library-path273615_))) + (string-append '":" _str-id273535_ '".ss"))) + (_ssxi-path273547_ + (if (and _artefact-path273543_ + (file-exists? _artefact-path273543_)) + _artefact-path273543_ + _library-path273545_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _ssxi-path273617_)) + _ssxi-path273547_)) (let () (declare (not safe)) - (gx#import-module__% _ssxi-path273617_ '#t '#t)))))) + (gx#import-module__% _ssxi-path273547_ '#t '#t)))))) (let () (declare (not safe)) - (with-catch _catch-e273601_ _import-e273602_))))) + (with-catch _catch-e273531_ _import-e273532_))))) (define gxc#optimize-source - (lambda (_stx273590_) - (let () (declare (not safe)) (gxc#apply-collect-mutators _stx273590_)) - (let () (declare (not safe)) (gxc#apply-collect-methods _stx273590_)) + (lambda (_stx273520_) + (let () (declare (not safe)) (gxc#apply-collect-mutators _stx273520_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _stx273520_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _stx273590_)) - (let* ((_stx273592_ + (gxc#apply-collect-top-level-type-info _stx273520_)) + (let* ((_stx273522_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _stx273590_))) - (_stx273594_ + (gxc#apply-generate-method-specializers _stx273520_))) + (_stx273524_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _stx273592_)))) + (gxc#apply-lift-top-lambdas _stx273522_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _stx273594_)) - (let ((_stx273597_ + (gxc#apply-collect-type-info _stx273524_)) + (let ((_stx273527_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _stx273594_)))) + (gxc#apply-optimize-annotated _stx273524_)))) (declare (not safe)) - (gxc#apply-optimize-call _stx273597_))))) + (gxc#apply-optimize-call _stx273527_))))) (define gxc#&generate-ssxi (make-promise (lambda () - (let ((_tbl273587_ + (let ((_tbl273517_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp278226 (force gxc#&generate-runtime-empty))) + (let ((__tmp278156 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl273587_ __tmp278226)) + (hash-copy! _tbl273517_ __tmp278156)) (let () (declare (not safe)) - (table-set! _tbl273587_ '%#begin gxc#generate-runtime-begin%)) + (table-set! _tbl273517_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (table-set! - _tbl273587_ + _tbl273517_ '%#begin-syntax gxc#generate-ssxi-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl273587_ '%#module gxc#generate-ssxi-module%)) + (table-set! _tbl273517_ '%#module gxc#generate-ssxi-module%)) (let () (declare (not safe)) (table-set! - _tbl273587_ + _tbl273517_ '%#define-values gxc#generate-ssxi-define-values%)) (let () (declare (not safe)) - (table-set! _tbl273587_ '%#call gxc#generate-ssxi-call%)) - _tbl273587_)))) + (table-set! _tbl273517_ '%#call gxc#generate-ssxi-call%)) + _tbl273517_)))) (define gxc#apply-generate-ssxi - (lambda (_stx273570_ . _args273572_) - (let ((__tmp278228 + (lambda (_stx273500_ . _args273502_) + (let ((__tmp278158 (lambda () (declare (not safe)) - (if (null? _args273572_) - (gxc#compile-e__0 _stx273570_) - (let ((_arg1273577_ (car _args273572_)) - (_rest273579_ (cdr _args273572_))) - (if (null? _rest273579_) - (gxc#compile-e__1 _stx273570_ _arg1273577_) - (let ((_arg2273582_ (car _rest273579_)) - (_rest273584_ (cdr _rest273579_))) - (if (null? _rest273584_) + (if (null? _args273502_) + (gxc#compile-e__0 _stx273500_) + (let ((_arg1273507_ (car _args273502_)) + (_rest273509_ (cdr _args273502_))) + (if (null? _rest273509_) + (gxc#compile-e__1 _stx273500_ _arg1273507_) + (let ((_arg2273512_ (car _rest273509_)) + (_rest273514_ (cdr _rest273509_))) + (if (null? _rest273514_) (gxc#compile-e__2 - _stx273570_ - _arg1273577_ - _arg2273582_) + _stx273500_ + _arg1273507_ + _arg2273512_) (apply gxc#compile-e - _stx273570_ - _arg1273577_ - _arg2273582_ - _rest273584_)))))))) - (__tmp278227 (force gxc#&generate-ssxi))) + _stx273500_ + _arg1273507_ + _arg2273512_ + _rest273514_)))))))) + (__tmp278157 (force gxc#&generate-ssxi))) (declare (not safe)) (call-with-parameters - __tmp278228 + __tmp278158 gxc#current-compile-methods - __tmp278227)))) + __tmp278157)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_stx273531_) - (let* ((_g273533273543_ - (lambda (_g273534273540_) + (lambda (_stx273461_) + (let* ((_g273463273473_ + (lambda (_g273464273470_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g273534273540_)))) - (_g273532273567_ - (lambda (_g273534273546_) + _g273464273470_)))) + (_g273462273497_ + (lambda (_g273464273476_) (if (let () (declare (not safe)) - (gx#stx-pair? _g273534273546_)) - (let ((_e273538273548_ + (gx#stx-pair? _g273464273476_)) + (let ((_e273468273478_ (let () (declare (not safe)) - (gx#stx-e _g273534273546_)))) - (let ((_hd273537273551_ + (gx#stx-e _g273464273476_)))) + (let ((_hd273467273481_ (let () (declare (not safe)) - (##car _e273538273548_))) - (_tl273536273553_ + (##car _e273468273478_))) + (_tl273466273483_ (let () (declare (not safe)) - (##cdr _e273538273548_)))) - ((lambda (_L273556_) - (let ((__tmp278231 + (##cdr _e273468273478_)))) + ((lambda (_L273486_) + (let ((__tmp278161 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _stx273531_)))) - (__tmp278229 - (let ((__tmp278230 + _stx273461_)))) + (__tmp278159 + (let ((__tmp278160 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp278230 '1)))) + (fx+ __tmp278160 '1)))) (declare (not safe)) (call-with-parameters - __tmp278231 + __tmp278161 gx#current-expander-phi - __tmp278229))) - _tl273536273553_))) + __tmp278159))) + _tl273466273483_))) (let () (declare (not safe)) - (_g273533273543_ _g273534273546_)))))) + (_g273463273473_ _g273464273476_)))))) (declare (not safe)) - (_g273532273567_ _stx273531_)))) + (_g273462273497_ _stx273461_)))) (define gxc#generate-ssxi-module% - (lambda (_stx273471_) - (let* ((_g273473273487_ - (lambda (_g273474273484_) + (lambda (_stx273401_) + (let* ((_g273403273417_ + (lambda (_g273404273414_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g273474273484_)))) - (_g273472273528_ - (lambda (_g273474273490_) + _g273404273414_)))) + (_g273402273458_ + (lambda (_g273404273420_) (if (let () (declare (not safe)) - (gx#stx-pair? _g273474273490_)) - (let ((_e273479273492_ + (gx#stx-pair? _g273404273420_)) + (let ((_e273409273422_ (let () (declare (not safe)) - (gx#stx-e _g273474273490_)))) - (let ((_hd273478273495_ + (gx#stx-e _g273404273420_)))) + (let ((_hd273408273425_ (let () (declare (not safe)) - (##car _e273479273492_))) - (_tl273477273497_ + (##car _e273409273422_))) + (_tl273407273427_ (let () (declare (not safe)) - (##cdr _e273479273492_)))) + (##cdr _e273409273422_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl273477273497_)) - (let ((_e273482273500_ + (gx#stx-pair? _tl273407273427_)) + (let ((_e273412273430_ (let () (declare (not safe)) - (gx#stx-e _tl273477273497_)))) - (let ((_hd273481273503_ + (gx#stx-e _tl273407273427_)))) + (let ((_hd273411273433_ (let () (declare (not safe)) - (##car _e273482273500_))) - (_tl273480273505_ + (##car _e273412273430_))) + (_tl273410273435_ (let () (declare (not safe)) - (##cdr _e273482273500_)))) - ((lambda (_L273508_ _L273509_) - (let* ((_ctx273522_ + (##cdr _e273412273430_)))) + ((lambda (_L273438_ _L273439_) + (let* ((_ctx273452_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L273509_))) - (_code273524_ + _L273439_))) + (_code273454_ (##structure-ref - _ctx273522_ + _ctx273452_ '11 gx#module-context::t '#f))) - (let ((__tmp278232 + (let ((__tmp278162 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _code273524_))))) + _code273454_))))) (declare (not safe)) (call-with-parameters - __tmp278232 + __tmp278162 gx#current-expander-context - _ctx273522_)))) - _tl273480273505_ - _hd273481273503_))) + _ctx273452_)))) + _tl273410273435_ + _hd273411273433_))) (let () (declare (not safe)) - (_g273473273487_ _g273474273490_))))) + (_g273403273417_ _g273404273420_))))) (let () (declare (not safe)) - (_g273473273487_ _g273474273490_)))))) + (_g273403273417_ _g273404273420_)))))) (declare (not safe)) - (_g273472273528_ _stx273471_)))) + (_g273402273458_ _stx273401_)))) (define gxc#generate-ssxi-define-values% - (lambda (_stx273281_) - (letrec ((_generate-e273283_ - (lambda (_id273460_) - (let* ((_sym273462_ - (if (let ((__tmp278233 + (lambda (_stx273211_) + (letrec ((_generate-e273213_ + (lambda (_id273390_) + (let* ((_sym273392_ + (if (let ((__tmp278163 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp278233)) + (gx#identifier? __tmp278163)) (let () (declare (not safe)) - (gxc#identifier-symbol _id273460_)) + (gxc#identifier-symbol _id273390_)) '#f)) - (_$e273464_ - (if _sym273462_ + (_$e273394_ + (if _sym273392_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym273462_)) + (gxc#optimizer-lookup-type _sym273392_)) '#f))) - (if _$e273464_ - ((lambda (_type273467_) + (if _$e273394_ + ((lambda (_type273397_) (let () (declare (not safe)) - (gxc#verbose '"generate typedecl " _sym273462_)) - (let* ((_typedecl273469_ - (let ((__method278202 + (gxc#verbose '"generate typedecl " _sym273392_)) + (let* ((_typedecl273399_ + (let ((__method278132 (let () (declare (not safe)) (method-ref - _type273467_ + _type273397_ 'typedecl)))) - (if __method278202 - (__method278202 _type273467_) + (if __method278132 + (__method278132 _type273397_) (error '"Missing method" - _type273467_ + _type273397_ 'typedecl)))) - (__tmp278234 - (let ((__tmp278235 + (__tmp278164 + (let ((__tmp278165 (let () (declare (not safe)) - (cons _typedecl273469_ '())))) + (cons _typedecl273399_ '())))) (declare (not safe)) - (cons _sym273462_ __tmp278235)))) + (cons _sym273392_ __tmp278165)))) (declare (not safe)) - (cons 'declare-type __tmp278234))) - _$e273464_) + (cons 'declare-type __tmp278164))) + _$e273394_) '(begin)))))) - (let* ((___stx277900277901_ _stx273281_) - (_g273286273324_ + (let* ((___stx277830277831_ _stx273211_) + (_g273216273254_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx277900277901_))))) - (let ((___kont277902277903_ - (lambda (_L273442_) + ___stx277830277831_))))) + (let ((___kont277832277833_ + (lambda (_L273372_) (let () (declare (not safe)) - (_generate-e273283_ _L273442_)))) - (___kont277904277905_ - (lambda (_L273377_) - (let ((_types273403_ - (map _generate-e273283_ - (let ((__tmp278236 - (lambda (_g273395273398_ - _g273396273400_) + (_generate-e273213_ _L273372_)))) + (___kont277834277835_ + (lambda (_L273307_) + (let ((_types273333_ + (map _generate-e273213_ + (let ((__tmp278166 + (lambda (_g273325273328_ + _g273326273330_) (let () (declare (not safe)) - (cons _g273395273398_ - _g273396273400_))))) + (cons _g273325273328_ + _g273326273330_))))) (declare (not safe)) - (foldr1 __tmp278236 '() _L273377_))))) + (foldr1 __tmp278166 '() _L273307_))))) (declare (not safe)) - (cons 'begin _types273403_))))) - (let ((___match277955277956_ - (lambda (_e273304273329_ - _hd273303273332_ - _tl273302273334_ - _e273307273337_ - _hd273306273340_ - _tl273305273342_ - ___splice277906277907_ - _target273308273345_ - _tl273310273347_) - (letrec ((_loop273311273350_ - (lambda (_hd273309273353_ _id273315273355_) + (cons 'begin _types273333_))))) + (let ((___match277885277886_ + (lambda (_e273234273259_ + _hd273233273262_ + _tl273232273264_ + _e273237273267_ + _hd273236273270_ + _tl273235273272_ + ___splice277836277837_ + _target273238273275_ + _tl273240273277_) + (letrec ((_loop273241273280_ + (lambda (_hd273239273283_ _id273245273285_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd273309273353_)) - (let ((_e273312273358_ + (gx#stx-pair? _hd273239273283_)) + (let ((_e273242273288_ (let () (declare (not safe)) - (gx#stx-e _hd273309273353_)))) - (let ((_lp-tl273314273363_ + (gx#stx-e _hd273239273283_)))) + (let ((_lp-tl273244273293_ (let () (declare (not safe)) - (##cdr _e273312273358_))) - (_lp-hd273313273361_ + (##cdr _e273242273288_))) + (_lp-hd273243273291_ (let () (declare (not safe)) - (##car _e273312273358_)))) - (let ((__tmp278237 + (##car _e273242273288_)))) + (let ((__tmp278167 (let () (declare (not safe)) - (cons _lp-hd273313273361_ - _id273315273355_)))) + (cons _lp-hd273243273291_ + _id273245273285_)))) (declare (not safe)) - (_loop273311273350_ - _lp-tl273314273363_ - __tmp278237)))) - (let ((_id273316273366_ - (reverse _id273315273355_))) + (_loop273241273280_ + _lp-tl273244273293_ + __tmp278167)))) + (let ((_id273246273296_ + (reverse _id273245273285_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl273305273342_)) - (let ((_e273319273369_ + (gx#stx-pair? _tl273235273272_)) + (let ((_e273249273299_ (let () (declare (not safe)) (gx#stx-e - _tl273305273342_)))) - (let ((_tl273317273374_ + _tl273235273272_)))) + (let ((_tl273247273304_ (let () (declare (not safe)) - (##cdr _e273319273369_))) - (_hd273318273372_ + (##cdr _e273249273299_))) + (_hd273248273302_ (let () (declare (not safe)) - (##car _e273319273369_)))) + (##car _e273249273299_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl273317273374_)) - (___kont277904277905_ - _id273316273366_) + _tl273247273304_)) + (___kont277834277835_ + _id273246273296_) (let () (declare (not safe)) - (_g273286273324_))))) + (_g273216273254_))))) (let () (declare (not safe)) - (_g273286273324_)))))))) + (_g273216273254_)))))))) (let () (declare (not safe)) - (_loop273311273350_ _target273308273345_ '())))))) + (_loop273241273280_ _target273238273275_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx277900277901_)) - (let ((_e273291273410_ + (gx#stx-pair? ___stx277830277831_)) + (let ((_e273221273340_ (let () (declare (not safe)) - (gx#stx-e ___stx277900277901_)))) - (let ((_tl273289273415_ + (gx#stx-e ___stx277830277831_)))) + (let ((_tl273219273345_ (let () (declare (not safe)) - (##cdr _e273291273410_))) - (_hd273290273413_ + (##cdr _e273221273340_))) + (_hd273220273343_ (let () (declare (not safe)) - (##car _e273291273410_)))) + (##car _e273221273340_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl273289273415_)) - (let ((_e273294273418_ + (gx#stx-pair? _tl273219273345_)) + (let ((_e273224273348_ (let () (declare (not safe)) - (gx#stx-e _tl273289273415_)))) - (let ((_tl273292273423_ + (gx#stx-e _tl273219273345_)))) + (let ((_tl273222273353_ (let () (declare (not safe)) - (##cdr _e273294273418_))) - (_hd273293273421_ + (##cdr _e273224273348_))) + (_hd273223273351_ (let () (declare (not safe)) - (##car _e273294273418_)))) + (##car _e273224273348_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd273293273421_)) - (let ((_e273297273426_ + (gx#stx-pair? _hd273223273351_)) + (let ((_e273227273356_ (let () (declare (not safe)) - (gx#stx-e _hd273293273421_)))) - (let ((_tl273295273431_ + (gx#stx-e _hd273223273351_)))) + (let ((_tl273225273361_ (let () (declare (not safe)) - (##cdr _e273297273426_))) - (_hd273296273429_ + (##cdr _e273227273356_))) + (_hd273226273359_ (let () (declare (not safe)) - (##car _e273297273426_)))) + (##car _e273227273356_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl273295273431_)) + (gx#stx-null? _tl273225273361_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl273292273423_)) - (let ((_e273300273434_ + _tl273222273353_)) + (let ((_e273230273364_ (let () (declare (not safe)) (gx#stx-e - _tl273292273423_)))) - (let ((_tl273298273439_ + _tl273222273353_)))) + (let ((_tl273228273369_ (let () (declare (not safe)) - (##cdr _e273300273434_))) - (_hd273299273437_ + (##cdr _e273230273364_))) + (_hd273229273367_ (let () (declare (not safe)) - (##car _e273300273434_)))) + (##car _e273230273364_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl273298273439_)) - (___kont277902277903_ - _hd273296273429_) + _tl273228273369_)) + (___kont277832277833_ + _hd273226273359_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd273293273421_)) - (let ((___splice277906277907_ + _hd273223273351_)) + (let ((___splice277836277837_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd273293273421_ '0)))) - (let ((_tl273310273347_ + (gx#syntax-split-splice _hd273223273351_ '0)))) + (let ((_tl273240273277_ (let () (declare (not safe)) - (##vector-ref ___splice277906277907_ '1))) - (_target273308273345_ + (##vector-ref ___splice277836277837_ '1))) + (_target273238273275_ (let () (declare (not safe)) - (##vector-ref ___splice277906277907_ '0)))) + (##vector-ref ___splice277836277837_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl273310273347_)) - (___match277955277956_ - _e273291273410_ - _hd273290273413_ - _tl273289273415_ - _e273294273418_ - _hd273293273421_ - _tl273292273423_ - ___splice277906277907_ - _target273308273345_ - _tl273310273347_) - (let () (declare (not safe)) (_g273286273324_))))) - (let () (declare (not safe)) (_g273286273324_)))))) + (gx#stx-null? _tl273240273277_)) + (___match277885277886_ + _e273221273340_ + _hd273220273343_ + _tl273219273345_ + _e273224273348_ + _hd273223273351_ + _tl273222273353_ + ___splice277836277837_ + _target273238273275_ + _tl273240273277_) + (let () (declare (not safe)) (_g273216273254_))))) + (let () (declare (not safe)) (_g273216273254_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd273293273421_)) - (let ((___splice277906277907_ + _hd273223273351_)) + (let ((___splice277836277837_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd273293273421_ + _hd273223273351_ '0)))) - (let ((_tl273310273347_ + (let ((_tl273240273277_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice277906277907_ '1))) - (_target273308273345_ + (##vector-ref ___splice277836277837_ '1))) + (_target273238273275_ (let () (declare (not safe)) - (##vector-ref ___splice277906277907_ '0)))) + (##vector-ref ___splice277836277837_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl273310273347_)) - (___match277955277956_ - _e273291273410_ - _hd273290273413_ - _tl273289273415_ - _e273294273418_ - _hd273293273421_ - _tl273292273423_ - ___splice277906277907_ - _target273308273345_ - _tl273310273347_) - (let () (declare (not safe)) (_g273286273324_))))) + (gx#stx-null? _tl273240273277_)) + (___match277885277886_ + _e273221273340_ + _hd273220273343_ + _tl273219273345_ + _e273224273348_ + _hd273223273351_ + _tl273222273353_ + ___splice277836277837_ + _target273238273275_ + _tl273240273277_) + (let () (declare (not safe)) (_g273216273254_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g273286273324_)))) + (_g273216273254_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd273293273421_)) - (let ((___splice277906277907_ + _hd273223273351_)) + (let ((___splice277836277837_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd273293273421_ + _hd273223273351_ '0)))) - (let ((_tl273310273347_ + (let ((_tl273240273277_ (let () (declare (not safe)) (##vector-ref - ___splice277906277907_ + ___splice277836277837_ '1))) - (_target273308273345_ + (_target273238273275_ (let () (declare (not safe)) (##vector-ref - ___splice277906277907_ + ___splice277836277837_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl273310273347_)) - (___match277955277956_ - _e273291273410_ - _hd273290273413_ - _tl273289273415_ - _e273294273418_ - _hd273293273421_ - _tl273292273423_ - ___splice277906277907_ - _target273308273345_ - _tl273310273347_) + _tl273240273277_)) + (___match277885277886_ + _e273221273340_ + _hd273220273343_ + _tl273219273345_ + _e273224273348_ + _hd273223273351_ + _tl273222273353_ + ___splice277836277837_ + _target273238273275_ + _tl273240273277_) (let () (declare (not safe)) - (_g273286273324_))))) + (_g273216273254_))))) (let () (declare (not safe)) - (_g273286273324_)))))) + (_g273216273254_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd273293273421_)) - (let ((___splice277906277907_ + (gx#stx-pair/null? _hd273223273351_)) + (let ((___splice277836277837_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd273293273421_ + _hd273223273351_ '0)))) - (let ((_tl273310273347_ + (let ((_tl273240273277_ (let () (declare (not safe)) (##vector-ref - ___splice277906277907_ + ___splice277836277837_ '1))) - (_target273308273345_ + (_target273238273275_ (let () (declare (not safe)) (##vector-ref - ___splice277906277907_ + ___splice277836277837_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl273310273347_)) - (___match277955277956_ - _e273291273410_ - _hd273290273413_ - _tl273289273415_ - _e273294273418_ - _hd273293273421_ - _tl273292273423_ - ___splice277906277907_ - _target273308273345_ - _tl273310273347_) + _tl273240273277_)) + (___match277885277886_ + _e273221273340_ + _hd273220273343_ + _tl273219273345_ + _e273224273348_ + _hd273223273351_ + _tl273222273353_ + ___splice277836277837_ + _target273238273275_ + _tl273240273277_) (let () (declare (not safe)) - (_g273286273324_))))) + (_g273216273254_))))) (let () (declare (not safe)) - (_g273286273324_)))))) - (let () (declare (not safe)) (_g273286273324_))))) - (let () (declare (not safe)) (_g273286273324_))))))))) + (_g273216273254_)))))) + (let () (declare (not safe)) (_g273216273254_))))) + (let () (declare (not safe)) (_g273216273254_))))))))) (define gxc#generate-ssxi-call% - (lambda (_stx272835_) - (let* ((___stx277958277959_ _stx272835_) - (_g272839272941_ + (lambda (_stx272765_) + (let* ((___stx277888277889_ _stx272765_) + (_g272769272871_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx277958277959_))))) - (let ((___kont277960277961_ - (lambda (_L273231_ _L273232_ _L273233_ _L273234_ _L273235_) - (let ((__tmp278238 - (let ((__tmp278245 + ___stx277888277889_))))) + (let ((___kont277890277891_ + (lambda (_L273161_ _L273162_ _L273163_ _L273164_ _L273165_) + (let ((__tmp278168 + (let ((__tmp278175 (let () (declare (not safe)) - (gxc#identifier-symbol _L273234_))) - (__tmp278239 - (let ((__tmp278244 + (gxc#identifier-symbol _L273164_))) + (__tmp278169 + (let ((__tmp278174 (let () (declare (not safe)) - (gx#stx-e _L273233_))) - (__tmp278240 - (let ((__tmp278243 + (gx#stx-e _L273163_))) + (__tmp278170 + (let ((__tmp278173 (let () (declare (not safe)) (gxc#identifier-symbol - _L273232_))) - (__tmp278241 - (let ((__tmp278242 + _L273162_))) + (__tmp278171 + (let ((__tmp278172 (let () (declare (not safe)) - (gx#stx-e _L273231_)))) + (gx#stx-e _L273161_)))) (declare (not safe)) - (cons __tmp278242 '())))) + (cons __tmp278172 '())))) (declare (not safe)) - (cons __tmp278243 __tmp278241)))) + (cons __tmp278173 __tmp278171)))) (declare (not safe)) - (cons __tmp278244 __tmp278240)))) + (cons __tmp278174 __tmp278170)))) (declare (not safe)) - (cons __tmp278245 __tmp278239)))) + (cons __tmp278175 __tmp278169)))) (declare (not safe)) - (cons 'declare-method __tmp278238)))) - (___kont277962277963_ - (lambda (_L273057_ _L273058_ _L273059_ _L273060_) - (let ((__tmp278246 - (let ((__tmp278252 + (cons 'declare-method __tmp278168)))) + (___kont277892277893_ + (lambda (_L272987_ _L272988_ _L272989_ _L272990_) + (let ((__tmp278176 + (let ((__tmp278182 (let () (declare (not safe)) - (gxc#identifier-symbol _L273059_))) - (__tmp278247 - (let ((__tmp278251 + (gxc#identifier-symbol _L272989_))) + (__tmp278177 + (let ((__tmp278181 (let () (declare (not safe)) - (gx#stx-e _L273058_))) - (__tmp278248 - (let ((__tmp278250 + (gx#stx-e _L272988_))) + (__tmp278178 + (let ((__tmp278180 (let () (declare (not safe)) (gxc#identifier-symbol - _L273057_))) - (__tmp278249 + _L272987_))) + (__tmp278179 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp278250 __tmp278249)))) + (cons __tmp278180 __tmp278179)))) (declare (not safe)) - (cons __tmp278251 __tmp278248)))) + (cons __tmp278181 __tmp278178)))) (declare (not safe)) - (cons __tmp278252 __tmp278247)))) + (cons __tmp278182 __tmp278177)))) (declare (not safe)) - (cons 'declare-method __tmp278246)))) - (___kont277964277965_ (lambda () '(begin)))) - (let ((___match278093278094_ - (lambda (_e272848273103_ - _hd272847273106_ - _tl272846273108_ - _e272851273111_ - _hd272850273114_ - _tl272849273116_ - _e272854273119_ - _hd272853273122_ - _tl272852273124_ - _e272857273127_ - _hd272856273130_ - _tl272855273132_ - _e272860273135_ - _hd272859273138_ - _tl272858273140_ - _e272863273143_ - _hd272862273146_ - _tl272861273148_ - _e272866273151_ - _hd272865273154_ - _tl272864273156_ - _e272869273159_ - _hd272868273162_ - _tl272867273164_ - _e272872273167_ - _hd272871273170_ - _tl272870273172_ - _e272875273175_ - _hd272874273178_ - _tl272873273180_ - _e272878273183_ - _hd272877273186_ - _tl272876273188_ - _e272881273191_ - _hd272880273194_ - _tl272879273196_ - _e272884273199_ - _hd272883273202_ - _tl272882273204_ - _e272887273207_ - _hd272886273210_ - _tl272885273212_ - _e272890273215_ - _hd272889273218_ - _tl272888273220_ - _e272893273223_ - _hd272892273226_ - _tl272891273228_) - (let ((_L273231_ _hd272892273226_) - (_L273232_ _hd272883273202_) - (_L273233_ _hd272874273178_) - (_L273234_ _hd272865273154_) - (_L273235_ _hd272856273130_)) + (cons 'declare-method __tmp278176)))) + (___kont277894277895_ (lambda () '(begin)))) + (let ((___match278023278024_ + (lambda (_e272778273033_ + _hd272777273036_ + _tl272776273038_ + _e272781273041_ + _hd272780273044_ + _tl272779273046_ + _e272784273049_ + _hd272783273052_ + _tl272782273054_ + _e272787273057_ + _hd272786273060_ + _tl272785273062_ + _e272790273065_ + _hd272789273068_ + _tl272788273070_ + _e272793273073_ + _hd272792273076_ + _tl272791273078_ + _e272796273081_ + _hd272795273084_ + _tl272794273086_ + _e272799273089_ + _hd272798273092_ + _tl272797273094_ + _e272802273097_ + _hd272801273100_ + _tl272800273102_ + _e272805273105_ + _hd272804273108_ + _tl272803273110_ + _e272808273113_ + _hd272807273116_ + _tl272806273118_ + _e272811273121_ + _hd272810273124_ + _tl272809273126_ + _e272814273129_ + _hd272813273132_ + _tl272812273134_ + _e272817273137_ + _hd272816273140_ + _tl272815273142_ + _e272820273145_ + _hd272819273148_ + _tl272818273150_ + _e272823273153_ + _hd272822273156_ + _tl272821273158_) + (let ((_L273161_ _hd272822273156_) + (_L273162_ _hd272813273132_) + (_L273163_ _hd272804273108_) + (_L273164_ _hd272795273084_) + (_L273165_ _hd272786273060_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L273235_ + _L273165_ 'bind-method!)) - (___kont277960277961_ - _L273231_ - _L273232_ - _L273233_ - _L273234_ - _L273235_) - (___kont277964277965_)))))) + (___kont277890277891_ + _L273161_ + _L273162_ + _L273163_ + _L273164_ + _L273165_) + (___kont277894277895_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx277958277959_)) - (let ((_e272848273103_ + (gx#stx-pair? ___stx277888277889_)) + (let ((_e272778273033_ (let () (declare (not safe)) - (gx#stx-e ___stx277958277959_)))) - (let ((_tl272846273108_ + (gx#stx-e ___stx277888277889_)))) + (let ((_tl272776273038_ (let () (declare (not safe)) - (##cdr _e272848273103_))) - (_hd272847273106_ + (##cdr _e272778273033_))) + (_hd272777273036_ (let () (declare (not safe)) - (##car _e272848273103_)))) + (##car _e272778273033_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl272846273108_)) - (let ((_e272851273111_ + (gx#stx-pair? _tl272776273038_)) + (let ((_e272781273041_ (let () (declare (not safe)) - (gx#stx-e _tl272846273108_)))) - (let ((_tl272849273116_ + (gx#stx-e _tl272776273038_)))) + (let ((_tl272779273046_ (let () (declare (not safe)) - (##cdr _e272851273111_))) - (_hd272850273114_ + (##cdr _e272781273041_))) + (_hd272780273044_ (let () (declare (not safe)) - (##car _e272851273111_)))) + (##car _e272781273041_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd272850273114_)) - (let ((_e272854273119_ + (gx#stx-pair? _hd272780273044_)) + (let ((_e272784273049_ (let () (declare (not safe)) - (gx#stx-e _hd272850273114_)))) - (let ((_tl272852273124_ + (gx#stx-e _hd272780273044_)))) + (let ((_tl272782273054_ (let () (declare (not safe)) - (##cdr _e272854273119_))) - (_hd272853273122_ + (##cdr _e272784273049_))) + (_hd272783273052_ (let () (declare (not safe)) - (##car _e272854273119_)))) + (##car _e272784273049_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd272853273122_)) + (gx#identifier? _hd272783273052_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd272853273122_)) + _hd272783273052_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl272852273124_)) - (let ((_e272857273127_ + _tl272782273054_)) + (let ((_e272787273057_ (let () (declare (not safe)) (gx#stx-e - _tl272852273124_)))) - (let ((_tl272855273132_ + _tl272782273054_)))) + (let ((_tl272785273062_ (let () (declare (not safe)) - (##cdr _e272857273127_))) - (_hd272856273130_ + (##cdr _e272787273057_))) + (_hd272786273060_ (let () (declare (not safe)) - (##car _e272857273127_)))) + (##car _e272787273057_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl272855273132_)) + _tl272785273062_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl272849273116_)) - (let ((_e272860273135_ + (gx#stx-pair? _tl272779273046_)) + (let ((_e272790273065_ (let () (declare (not safe)) - (gx#stx-e _tl272849273116_)))) - (let ((_tl272858273140_ + (gx#stx-e _tl272779273046_)))) + (let ((_tl272788273070_ (let () (declare (not safe)) - (##cdr _e272860273135_))) - (_hd272859273138_ + (##cdr _e272790273065_))) + (_hd272789273068_ (let () (declare (not safe)) - (##car _e272860273135_)))) + (##car _e272790273065_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd272859273138_)) - (let ((_e272863273143_ + (gx#stx-pair? _hd272789273068_)) + (let ((_e272793273073_ (let () (declare (not safe)) - (gx#stx-e _hd272859273138_)))) - (let ((_tl272861273148_ + (gx#stx-e _hd272789273068_)))) + (let ((_tl272791273078_ (let () (declare (not safe)) - (##cdr _e272863273143_))) - (_hd272862273146_ + (##cdr _e272793273073_))) + (_hd272792273076_ (let () (declare (not safe)) - (##car _e272863273143_)))) + (##car _e272793273073_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd272862273146_)) + (gx#identifier? _hd272792273076_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd272862273146_)) + _hd272792273076_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl272861273148_)) - (let ((_e272866273151_ + _tl272791273078_)) + (let ((_e272796273081_ (let () (declare (not safe)) (gx#stx-e - _tl272861273148_)))) - (let ((_tl272864273156_ + _tl272791273078_)))) + (let ((_tl272794273086_ (let () (declare (not safe)) - (##cdr _e272866273151_))) - (_hd272865273154_ + (##cdr _e272796273081_))) + (_hd272795273084_ (let () (declare (not safe)) - (##car _e272866273151_)))) + (##car _e272796273081_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl272864273156_)) + _tl272794273086_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl272858273140_)) - (let ((_e272869273159_ + _tl272788273070_)) + (let ((_e272799273089_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl272858273140_)))) - (let ((_tl272867273164_ + (gx#stx-e _tl272788273070_)))) + (let ((_tl272797273094_ (let () (declare (not safe)) - (##cdr _e272869273159_))) - (_hd272868273162_ + (##cdr _e272799273089_))) + (_hd272798273092_ (let () (declare (not safe)) - (##car _e272869273159_)))) + (##car _e272799273089_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd272868273162_)) - (let ((_e272872273167_ + (gx#stx-pair? _hd272798273092_)) + (let ((_e272802273097_ (let () (declare (not safe)) - (gx#stx-e _hd272868273162_)))) - (let ((_tl272870273172_ + (gx#stx-e _hd272798273092_)))) + (let ((_tl272800273102_ (let () (declare (not safe)) - (##cdr _e272872273167_))) - (_hd272871273170_ + (##cdr _e272802273097_))) + (_hd272801273100_ (let () (declare (not safe)) - (##car _e272872273167_)))) + (##car _e272802273097_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd272871273170_)) + (gx#identifier? _hd272801273100_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd272871273170_)) + (gx#stx-eq? '%#quote _hd272801273100_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl272870273172_)) - (let ((_e272875273175_ + (gx#stx-pair? _tl272800273102_)) + (let ((_e272805273105_ (let () (declare (not safe)) (gx#stx-e - _tl272870273172_)))) - (let ((_tl272873273180_ + _tl272800273102_)))) + (let ((_tl272803273110_ (let () (declare (not safe)) - (##cdr _e272875273175_))) - (_hd272874273178_ + (##cdr _e272805273105_))) + (_hd272804273108_ (let () (declare (not safe)) - (##car _e272875273175_)))) + (##car _e272805273105_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl272873273180_)) + _tl272803273110_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl272867273164_)) - (let ((_e272878273183_ + _tl272797273094_)) + (let ((_e272808273113_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl272867273164_)))) - (let ((_tl272876273188_ - (let () (declare (not safe)) (##cdr _e272878273183_))) - (_hd272877273186_ - (let () (declare (not safe)) (##car _e272878273183_)))) + (gx#stx-e _tl272797273094_)))) + (let ((_tl272806273118_ + (let () (declare (not safe)) (##cdr _e272808273113_))) + (_hd272807273116_ + (let () (declare (not safe)) (##car _e272808273113_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd272877273186_)) - (let ((_e272881273191_ + (gx#stx-pair? _hd272807273116_)) + (let ((_e272811273121_ (let () (declare (not safe)) - (gx#stx-e _hd272877273186_)))) - (let ((_tl272879273196_ + (gx#stx-e _hd272807273116_)))) + (let ((_tl272809273126_ (let () (declare (not safe)) - (##cdr _e272881273191_))) - (_hd272880273194_ + (##cdr _e272811273121_))) + (_hd272810273124_ (let () (declare (not safe)) - (##car _e272881273191_)))) + (##car _e272811273121_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd272880273194_)) + (gx#identifier? _hd272810273124_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd272880273194_)) + (gx#stx-eq? '%#ref _hd272810273124_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl272879273196_)) - (let ((_e272884273199_ + (gx#stx-pair? _tl272809273126_)) + (let ((_e272814273129_ (let () (declare (not safe)) - (gx#stx-e _tl272879273196_)))) - (let ((_tl272882273204_ + (gx#stx-e _tl272809273126_)))) + (let ((_tl272812273134_ (let () (declare (not safe)) - (##cdr _e272884273199_))) - (_hd272883273202_ + (##cdr _e272814273129_))) + (_hd272813273132_ (let () (declare (not safe)) - (##car _e272884273199_)))) + (##car _e272814273129_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl272882273204_)) + _tl272812273134_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl272876273188_)) - (let ((_e272887273207_ + _tl272806273118_)) + (let ((_e272817273137_ (let () (declare (not safe)) (gx#stx-e - _tl272876273188_)))) - (let ((_tl272885273212_ + _tl272806273118_)))) + (let ((_tl272815273142_ (let () (declare (not safe)) - (##cdr _e272887273207_))) - (_hd272886273210_ + (##cdr _e272817273137_))) + (_hd272816273140_ (let () (declare (not safe)) - (##car _e272887273207_)))) + (##car _e272817273137_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd272886273210_)) - (let ((_e272890273215_ + _hd272816273140_)) + (let ((_e272820273145_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd272886273210_)))) - (let ((_tl272888273220_ + (gx#stx-e _hd272816273140_)))) + (let ((_tl272818273150_ (let () (declare (not safe)) - (##cdr _e272890273215_))) - (_hd272889273218_ + (##cdr _e272820273145_))) + (_hd272819273148_ (let () (declare (not safe)) - (##car _e272890273215_)))) + (##car _e272820273145_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd272889273218_)) + (gx#identifier? _hd272819273148_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd272889273218_)) + (gx#stx-eq? '%#quote _hd272819273148_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl272888273220_)) - (let ((_e272893273223_ + (gx#stx-pair? _tl272818273150_)) + (let ((_e272823273153_ (let () (declare (not safe)) - (gx#stx-e _tl272888273220_)))) - (let ((_tl272891273228_ + (gx#stx-e _tl272818273150_)))) + (let ((_tl272821273158_ (let () (declare (not safe)) - (##cdr _e272893273223_))) - (_hd272892273226_ + (##cdr _e272823273153_))) + (_hd272822273156_ (let () (declare (not safe)) - (##car _e272893273223_)))) + (##car _e272823273153_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl272891273228_)) + (gx#stx-null? _tl272821273158_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl272885273212_)) - (___match278093278094_ - _e272848273103_ - _hd272847273106_ - _tl272846273108_ - _e272851273111_ - _hd272850273114_ - _tl272849273116_ - _e272854273119_ - _hd272853273122_ - _tl272852273124_ - _e272857273127_ - _hd272856273130_ - _tl272855273132_ - _e272860273135_ - _hd272859273138_ - _tl272858273140_ - _e272863273143_ - _hd272862273146_ - _tl272861273148_ - _e272866273151_ - _hd272865273154_ - _tl272864273156_ - _e272869273159_ - _hd272868273162_ - _tl272867273164_ - _e272872273167_ - _hd272871273170_ - _tl272870273172_ - _e272875273175_ - _hd272874273178_ - _tl272873273180_ - _e272878273183_ - _hd272877273186_ - _tl272876273188_ - _e272881273191_ - _hd272880273194_ - _tl272879273196_ - _e272884273199_ - _hd272883273202_ - _tl272882273204_ - _e272887273207_ - _hd272886273210_ - _tl272885273212_ - _e272890273215_ - _hd272889273218_ - _tl272888273220_ - _e272893273223_ - _hd272892273226_ - _tl272891273228_) - (___kont277964277965_)) - (___kont277964277965_)))) - (___kont277964277965_)) - (___kont277964277965_)) - (___kont277964277965_)))) - (___kont277964277965_)))) + _tl272815273142_)) + (___match278023278024_ + _e272778273033_ + _hd272777273036_ + _tl272776273038_ + _e272781273041_ + _hd272780273044_ + _tl272779273046_ + _e272784273049_ + _hd272783273052_ + _tl272782273054_ + _e272787273057_ + _hd272786273060_ + _tl272785273062_ + _e272790273065_ + _hd272789273068_ + _tl272788273070_ + _e272793273073_ + _hd272792273076_ + _tl272791273078_ + _e272796273081_ + _hd272795273084_ + _tl272794273086_ + _e272799273089_ + _hd272798273092_ + _tl272797273094_ + _e272802273097_ + _hd272801273100_ + _tl272800273102_ + _e272805273105_ + _hd272804273108_ + _tl272803273110_ + _e272808273113_ + _hd272807273116_ + _tl272806273118_ + _e272811273121_ + _hd272810273124_ + _tl272809273126_ + _e272814273129_ + _hd272813273132_ + _tl272812273134_ + _e272817273137_ + _hd272816273140_ + _tl272815273142_ + _e272820273145_ + _hd272819273148_ + _tl272818273150_ + _e272823273153_ + _hd272822273156_ + _tl272821273158_) + (___kont277894277895_)) + (___kont277894277895_)))) + (___kont277894277895_)) + (___kont277894277895_)) + (___kont277894277895_)))) + (___kont277894277895_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl272876273188_)) - (if (let ((__tmp278253 + _tl272806273118_)) + (if (let ((__tmp278183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp278253 'bind-method!)) - (let ((_L273057_ _hd272883273202_) - (_L273058_ _hd272874273178_) - (_L273059_ _hd272865273154_) - (_L273060_ _hd272856273130_)) - (___kont277962277963_ - _L273057_ - _L273058_ - _L273059_ - _L273060_)) - (___kont277964277965_)) - (___kont277964277965_))) + (gxc#runtime-identifier=? __tmp278183 'bind-method!)) + (let ((_L272987_ _hd272813273132_) + (_L272988_ _hd272804273108_) + (_L272989_ _hd272795273084_) + (_L272990_ _hd272786273060_)) + (___kont277892277893_ + _L272987_ + _L272988_ + _L272989_ + _L272990_)) + (___kont277894277895_)) + (___kont277894277895_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont277964277965_)))) - (___kont277964277965_)) - (___kont277964277965_)) - (___kont277964277965_)))) - (___kont277964277965_)))) - (___kont277964277965_)) + (___kont277894277895_)))) + (___kont277894277895_)) + (___kont277894277895_)) + (___kont277894277895_)))) + (___kont277894277895_)))) + (___kont277894277895_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont277964277965_)))) - (___kont277964277965_)) - (___kont277964277965_)) - (___kont277964277965_)))) - (___kont277964277965_)))) - (___kont277964277965_)) - (___kont277964277965_)))) + (___kont277894277895_)))) + (___kont277894277895_)) + (___kont277894277895_)) + (___kont277894277895_)))) + (___kont277894277895_)))) + (___kont277894277895_)) + (___kont277894277895_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont277964277965_)) - (___kont277964277965_)) - (___kont277964277965_)))) - (___kont277964277965_)))) - (___kont277964277965_)) - (___kont277964277965_)))) + (___kont277894277895_)) + (___kont277894277895_)) + (___kont277894277895_)))) + (___kont277894277895_)))) + (___kont277894277895_)) + (___kont277894277895_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont277964277965_)) - (___kont277964277965_)) - (___kont277964277965_)))) - (___kont277964277965_)))) - (___kont277964277965_)))) - (___kont277964277965_))))))) + (___kont277894277895_)) + (___kont277894277895_)) + (___kont277894277895_)))) + (___kont277894277895_)))) + (___kont277894277895_)))) + (___kont277894277895_))))))) (define gxc#!alias::typedecl - (lambda (_self272811_) - (let* ((_self272812272818_ _self272811_) - (_E272814272822_ - (lambda () (error '"No clause matching" _self272812272818_))) - (_K272815272827_ - (lambda (_alias-id272825_) - (let ((__tmp278254 + (lambda (_self272741_) + (let* ((_self272742272748_ _self272741_) + (_E272744272752_ + (lambda () (error '"No clause matching" _self272742272748_))) + (_K272745272757_ + (lambda (_alias-id272755_) + (let ((__tmp278184 (let () (declare (not safe)) - (cons _alias-id272825_ '())))) + (cons _alias-id272755_ '())))) (declare (not safe)) - (cons '@alias __tmp278254))))) + (cons '@alias __tmp278184))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self272812272818_ 'gxc#!alias::t)) - (let* ((_e272816272830_ + (##structure-instance-of? _self272742272748_ 'gxc#!alias::t)) + (let* ((_e272746272760_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272812272818_ + _self272742272748_ '1 gxc#!type::t '#f))) - (_alias-id272833_ _e272816272830_)) + (_alias-id272763_ _e272746272760_)) (declare (not safe)) - (_K272815272827_ _alias-id272833_)) - (let () (declare (not safe)) (_E272814272822_)))))) + (_K272745272757_ _alias-id272763_)) + (let () (declare (not safe)) (_E272744272752_)))))) (let () (declare (not safe)) (bind-method! gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_self272609_) - (let* ((_self272610272624_ _self272609_) - (_E272612272628_ - (lambda () (error '"No clause matching" _self272610272624_))) - (_K272613272641_ - (lambda (_methods272631_ - _final?272632_ - _struct?272633_ - _constructor272634_ - _fields272635_ - _slots272636_ - _precendence-list272637_ - _super272638_ - _id272639_) - (let ((__tmp278255 - (let ((__tmp278256 - (let ((__tmp278257 - (let ((__tmp278258 - (let ((__tmp278259 - (let ((__tmp278260 - (let ((__tmp278261 + (lambda (_self272539_) + (let* ((_self272540272554_ _self272539_) + (_E272542272558_ + (lambda () (error '"No clause matching" _self272540272554_))) + (_K272543272571_ + (lambda (_methods272561_ + _final?272562_ + _struct?272563_ + _constructor272564_ + _fields272565_ + _slots272566_ + _precendence-list272567_ + _super272568_ + _id272569_) + (let ((__tmp278185 + (let ((__tmp278186 + (let ((__tmp278187 + (let ((__tmp278188 + (let ((__tmp278189 + (let ((__tmp278190 + (let ((__tmp278191 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp278262 - (let ((__tmp278263 - (let ((__tmp278264 - (if _methods272631_ + (let ((__tmp278192 + (let ((__tmp278193 + (let ((__tmp278194 + (if _methods272561_ (let () (declare (not safe)) (table->list - _methods272631_)) + _methods272561_)) '#f))) (declare (not safe)) - (cons __tmp278264 '())))) + (cons __tmp278194 '())))) (declare (not safe)) - (cons _final?272632_ __tmp278263)))) + (cons _final?272562_ __tmp278193)))) (declare (not safe)) - (cons _struct?272633_ __tmp278262)))) + (cons _struct?272563_ __tmp278192)))) (declare (not safe)) - (cons _constructor272634_ __tmp278261)))) + (cons _constructor272564_ __tmp278191)))) (declare (not safe)) - (cons _fields272635_ __tmp278260)))) + (cons _fields272565_ __tmp278190)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _slots272636_ - __tmp278259)))) + (cons _slots272566_ + __tmp278189)))) (declare (not safe)) - (cons _precendence-list272637_ - __tmp278258)))) + (cons _precendence-list272567_ + __tmp278188)))) (declare (not safe)) - (cons _super272638_ __tmp278257)))) + (cons _super272568_ __tmp278187)))) (declare (not safe)) - (cons _id272639_ __tmp278256)))) + (cons _id272569_ __tmp278186)))) (declare (not safe)) - (cons '@class __tmp278255))))) + (cons '@class __tmp278185))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self272610272624_ 'gxc#!class::t)) - (let* ((_e272614272644_ + (##structure-instance-of? _self272540272554_ 'gxc#!class::t)) + (let* ((_e272544272574_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272610272624_ + _self272540272554_ '1 gxc#!type::t '#f))) - (_id272647_ _e272614272644_) - (_e272615272649_ + (_id272577_ _e272544272574_) + (_e272545272579_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272610272624_ + _self272540272554_ '2 gxc#!class::t '#f))) - (_super272652_ _e272615272649_) - (_e272616272654_ + (_super272582_ _e272545272579_) + (_e272546272584_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272610272624_ + _self272540272554_ '3 gxc#!class::t '#f))) - (_precendence-list272657_ _e272616272654_) - (_e272617272659_ + (_precendence-list272587_ _e272546272584_) + (_e272547272589_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272610272624_ + _self272540272554_ '4 gxc#!class::t '#f))) - (_slots272662_ _e272617272659_) - (_e272618272664_ + (_slots272592_ _e272547272589_) + (_e272548272594_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272610272624_ + _self272540272554_ '5 gxc#!class::t '#f))) - (_fields272667_ _e272618272664_) - (_e272619272669_ + (_fields272597_ _e272548272594_) + (_e272549272599_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272610272624_ + _self272540272554_ '6 gxc#!class::t '#f))) - (_constructor272672_ _e272619272669_) - (_e272620272674_ + (_constructor272602_ _e272549272599_) + (_e272550272604_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272610272624_ + _self272540272554_ '7 gxc#!class::t '#f))) - (_struct?272677_ _e272620272674_) - (_e272621272679_ + (_struct?272607_ _e272550272604_) + (_e272551272609_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272610272624_ + _self272540272554_ '8 gxc#!class::t '#f))) - (_final?272682_ _e272621272679_) - (_e272622272684_ + (_final?272612_ _e272551272609_) + (_e272552272614_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272610272624_ + _self272540272554_ '9 gxc#!class::t '#f))) - (_methods272687_ _e272622272684_)) + (_methods272617_ _e272552272614_)) (declare (not safe)) - (_K272613272641_ - _methods272687_ - _final?272682_ - _struct?272677_ - _constructor272672_ - _fields272667_ - _slots272662_ - _precendence-list272657_ - _super272652_ - _id272647_)) - (let () (declare (not safe)) (_E272612272628_)))))) + (_K272543272571_ + _methods272617_ + _final?272612_ + _struct?272607_ + _constructor272602_ + _fields272597_ + _slots272592_ + _precendence-list272587_ + _super272582_ + _id272577_)) + (let () (declare (not safe)) (_E272542272558_)))))) (let () (declare (not safe)) (bind-method! gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_self272463_) - (let* ((_self272464272470_ _self272463_) - (_E272466272474_ - (lambda () (error '"No clause matching" _self272464272470_))) - (_K272467272479_ - (lambda (_klass-id272477_) - (let ((__tmp278265 + (lambda (_self272393_) + (let* ((_self272394272400_ _self272393_) + (_E272396272404_ + (lambda () (error '"No clause matching" _self272394272400_))) + (_K272397272409_ + (lambda (_klass-id272407_) + (let ((__tmp278195 (let () (declare (not safe)) - (cons _klass-id272477_ '())))) + (cons _klass-id272407_ '())))) (declare (not safe)) - (cons '@predicate __tmp278265))))) + (cons '@predicate __tmp278195))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self272464272470_ + _self272394272400_ 'gxc#!predicate::t)) - (let* ((_e272468272482_ + (let* ((_e272398272412_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272464272470_ + _self272394272400_ '1 gxc#!type::t '#f))) - (_klass-id272485_ _e272468272482_)) + (_klass-id272415_ _e272398272412_)) (declare (not safe)) - (_K272467272479_ _klass-id272485_)) - (let () (declare (not safe)) (_E272466272474_)))))) + (_K272397272409_ _klass-id272415_)) + (let () (declare (not safe)) (_E272396272404_)))))) (let () (declare (not safe)) (bind-method! gxc#!predicate::t 'typedecl gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_self272317_) - (let* ((_self272318272324_ _self272317_) - (_E272320272328_ - (lambda () (error '"No clause matching" _self272318272324_))) - (_K272321272333_ - (lambda (_klass-id272331_) - (let ((__tmp278266 + (lambda (_self272247_) + (let* ((_self272248272254_ _self272247_) + (_E272250272258_ + (lambda () (error '"No clause matching" _self272248272254_))) + (_K272251272263_ + (lambda (_klass-id272261_) + (let ((__tmp278196 (let () (declare (not safe)) - (cons _klass-id272331_ '())))) + (cons _klass-id272261_ '())))) (declare (not safe)) - (cons '@constructor __tmp278266))))) + (cons '@constructor __tmp278196))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self272318272324_ + _self272248272254_ 'gxc#!constructor::t)) - (let* ((_e272322272336_ + (let* ((_e272252272266_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272318272324_ + _self272248272254_ '1 gxc#!type::t '#f))) - (_klass-id272339_ _e272322272336_)) + (_klass-id272269_ _e272252272266_)) (declare (not safe)) - (_K272321272333_ _klass-id272339_)) - (let () (declare (not safe)) (_E272320272328_)))))) + (_K272251272263_ _klass-id272269_)) + (let () (declare (not safe)) (_E272250272258_)))))) (let () (declare (not safe)) (bind-method! @@ -1768,289 +1768,289 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_self272157_) - (let* ((_self272158272166_ _self272157_) - (_E272160272170_ - (lambda () (error '"No clause matching" _self272158272166_))) - (_K272161272177_ - (lambda (_checked?272173_ _slot272174_ _klass-id272175_) - (let ((__tmp278267 - (let ((__tmp278268 - (let ((__tmp278269 + (lambda (_self272087_) + (let* ((_self272088272096_ _self272087_) + (_E272090272100_ + (lambda () (error '"No clause matching" _self272088272096_))) + (_K272091272107_ + (lambda (_checked?272103_ _slot272104_ _klass-id272105_) + (let ((__tmp278197 + (let ((__tmp278198 + (let ((__tmp278199 (let () (declare (not safe)) - (cons _checked?272173_ '())))) + (cons _checked?272103_ '())))) (declare (not safe)) - (cons _slot272174_ __tmp278269)))) + (cons _slot272104_ __tmp278199)))) (declare (not safe)) - (cons _klass-id272175_ __tmp278268)))) + (cons _klass-id272105_ __tmp278198)))) (declare (not safe)) - (cons '@accessor __tmp278267))))) + (cons '@accessor __tmp278197))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self272158272166_ + _self272088272096_ 'gxc#!accessor::t)) - (let* ((_e272162272180_ + (let* ((_e272092272110_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272158272166_ + _self272088272096_ '1 gxc#!type::t '#f))) - (_klass-id272183_ _e272162272180_) - (_e272163272185_ + (_klass-id272113_ _e272092272110_) + (_e272093272115_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272158272166_ + _self272088272096_ '2 gxc#!accessor::t '#f))) - (_slot272188_ _e272163272185_) - (_e272164272190_ + (_slot272118_ _e272093272115_) + (_e272094272120_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272158272166_ + _self272088272096_ '3 gxc#!accessor::t '#f))) - (_checked?272193_ _e272164272190_)) + (_checked?272123_ _e272094272120_)) (declare (not safe)) - (_K272161272177_ - _checked?272193_ - _slot272188_ - _klass-id272183_)) - (let () (declare (not safe)) (_E272160272170_)))))) + (_K272091272107_ + _checked?272123_ + _slot272118_ + _klass-id272113_)) + (let () (declare (not safe)) (_E272090272100_)))))) (let () (declare (not safe)) (bind-method! gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_self271997_) - (let* ((_self271998272006_ _self271997_) - (_E272000272010_ - (lambda () (error '"No clause matching" _self271998272006_))) - (_K272001272017_ - (lambda (_checked?272013_ _slot272014_ _klass-id272015_) - (let ((__tmp278270 - (let ((__tmp278271 - (let ((__tmp278272 + (lambda (_self271927_) + (let* ((_self271928271936_ _self271927_) + (_E271930271940_ + (lambda () (error '"No clause matching" _self271928271936_))) + (_K271931271947_ + (lambda (_checked?271943_ _slot271944_ _klass-id271945_) + (let ((__tmp278200 + (let ((__tmp278201 + (let ((__tmp278202 (let () (declare (not safe)) - (cons _checked?272013_ '())))) + (cons _checked?271943_ '())))) (declare (not safe)) - (cons _slot272014_ __tmp278272)))) + (cons _slot271944_ __tmp278202)))) (declare (not safe)) - (cons _klass-id272015_ __tmp278271)))) + (cons _klass-id271945_ __tmp278201)))) (declare (not safe)) - (cons '@mutator __tmp278270))))) + (cons '@mutator __tmp278200))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self271998272006_ 'gxc#!mutator::t)) - (let* ((_e272002272020_ + (##structure-instance-of? _self271928271936_ 'gxc#!mutator::t)) + (let* ((_e271932271950_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271998272006_ + _self271928271936_ '1 gxc#!type::t '#f))) - (_klass-id272023_ _e272002272020_) - (_e272003272025_ + (_klass-id271953_ _e271932271950_) + (_e271933271955_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271998272006_ + _self271928271936_ '2 gxc#!mutator::t '#f))) - (_slot272028_ _e272003272025_) - (_e272004272030_ + (_slot271958_ _e271933271955_) + (_e271934271960_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271998272006_ + _self271928271936_ '3 gxc#!mutator::t '#f))) - (_checked?272033_ _e272004272030_)) + (_checked?271963_ _e271934271960_)) (declare (not safe)) - (_K272001272017_ - _checked?272033_ - _slot272028_ - _klass-id272023_)) - (let () (declare (not safe)) (_E272000272010_)))))) + (_K271931271947_ + _checked?271963_ + _slot271958_ + _klass-id271953_)) + (let () (declare (not safe)) (_E271930271940_)))))) (let () (declare (not safe)) (bind-method! gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_self271823_) - (let* ((_self271824271834_ _self271823_) - (_E271826271838_ - (lambda () (error '"No clause matching" _self271824271834_))) - (_K271827271849_ - (lambda (_typedecl271841_ - _inline271842_ - _dispatch271843_ - _arity271844_) - (if _inline271842_ - (let ((_$e271846_ _typedecl271841_)) - (if _$e271846_ - _$e271846_ + (lambda (_self271753_) + (let* ((_self271754271764_ _self271753_) + (_E271756271768_ + (lambda () (error '"No clause matching" _self271754271764_))) + (_K271757271779_ + (lambda (_typedecl271771_ + _inline271772_ + _dispatch271773_ + _arity271774_) + (if _inline271772_ + (let ((_$e271776_ _typedecl271771_)) + (if _$e271776_ + _$e271776_ (error '"Cannot generate typedecl for inline rules"))) - (let ((__tmp278273 - (let ((__tmp278274 + (let ((__tmp278203 + (let ((__tmp278204 (let () (declare (not safe)) - (cons _dispatch271843_ '())))) + (cons _dispatch271773_ '())))) (declare (not safe)) - (cons _arity271844_ __tmp278274)))) + (cons _arity271774_ __tmp278204)))) (declare (not safe)) - (cons '@lambda __tmp278273)))))) + (cons '@lambda __tmp278203)))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self271824271834_ 'gxc#!lambda::t)) - (let* ((_e271828271852_ + (##structure-instance-of? _self271754271764_ 'gxc#!lambda::t)) + (let* ((_e271758271782_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271824271834_ + _self271754271764_ '1 gxc#!type::t '#f))) - (_e271829271855_ + (_e271759271785_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271824271834_ + _self271754271764_ '2 gxc#!lambda::t '#f))) - (_arity271858_ _e271829271855_) - (_e271830271860_ + (_arity271788_ _e271759271785_) + (_e271760271790_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271824271834_ + _self271754271764_ '3 gxc#!lambda::t '#f))) - (_dispatch271863_ _e271830271860_) - (_e271831271865_ + (_dispatch271793_ _e271760271790_) + (_e271761271795_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271824271834_ + _self271754271764_ '4 gxc#!lambda::t '#f))) - (_inline271868_ _e271831271865_) - (_e271832271870_ + (_inline271798_ _e271761271795_) + (_e271762271800_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271824271834_ + _self271754271764_ '5 gxc#!lambda::t '#f))) - (_typedecl271873_ _e271832271870_)) + (_typedecl271803_ _e271762271800_)) (declare (not safe)) - (_K271827271849_ - _typedecl271873_ - _inline271868_ - _dispatch271863_ - _arity271858_)) - (let () (declare (not safe)) (_E271826271838_)))))) + (_K271757271779_ + _typedecl271803_ + _inline271798_ + _dispatch271793_ + _arity271788_)) + (let () (declare (not safe)) (_E271756271768_)))))) (let () (declare (not safe)) (bind-method! gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_self271634_) - (letrec ((_clause-e271636_ - (lambda (_clause271666_) - (let* ((_clause271667271675_ _clause271666_) - (_E271669271679_ + (lambda (_self271564_) + (letrec ((_clause-e271566_ + (lambda (_clause271596_) + (let* ((_clause271597271605_ _clause271596_) + (_E271599271609_ (lambda () (error '"No clause matching" - _clause271667271675_))) - (_K271670271685_ - (lambda (_dispatch271682_ _arity271683_) - (let ((__tmp278275 + _clause271597271605_))) + (_K271600271615_ + (lambda (_dispatch271612_ _arity271613_) + (let ((__tmp278205 (let () (declare (not safe)) - (cons _dispatch271682_ '())))) + (cons _dispatch271612_ '())))) (declare (not safe)) - (cons _arity271683_ __tmp278275))))) + (cons _arity271613_ __tmp278205))))) (if (let () (declare (not safe)) (##structure-instance-of? - _clause271667271675_ + _clause271597271605_ 'gxc#!lambda::t)) - (let* ((_e271671271688_ + (let* ((_e271601271618_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause271667271675_ + _clause271597271605_ '1 gxc#!type::t '#f))) - (_e271672271691_ + (_e271602271621_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause271667271675_ + _clause271597271605_ '2 gxc#!lambda::t '#f))) - (_arity271694_ _e271672271691_) - (_e271673271696_ + (_arity271624_ _e271602271621_) + (_e271603271626_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause271667271675_ + _clause271597271605_ '3 gxc#!lambda::t '#f))) - (_dispatch271699_ _e271673271696_)) + (_dispatch271629_ _e271603271626_)) (declare (not safe)) - (_K271670271685_ _dispatch271699_ _arity271694_)) - (let () (declare (not safe)) (_E271669271679_))))))) - (let* ((_self271637271644_ _self271634_) - (_E271639271648_ - (lambda () (error '"No clause matching" _self271637271644_))) - (_K271640271655_ - (lambda (_clauses271651_) - (let ((_clauses271653_ - (map _clause-e271636_ _clauses271651_))) + (_K271600271615_ _dispatch271629_ _arity271624_)) + (let () (declare (not safe)) (_E271599271609_))))))) + (let* ((_self271567271574_ _self271564_) + (_E271569271578_ + (lambda () (error '"No clause matching" _self271567271574_))) + (_K271570271585_ + (lambda (_clauses271581_) + (let ((_clauses271583_ + (map _clause-e271566_ _clauses271581_))) (declare (not safe)) - (cons '@case-lambda _clauses271653_))))) + (cons '@case-lambda _clauses271583_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self271637271644_ + _self271567271574_ 'gxc#!case-lambda::t)) - (let* ((_e271641271658_ + (let* ((_e271571271588_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271637271644_ + _self271567271574_ '1 gxc#!type::t '#f))) - (_e271642271661_ + (_e271572271591_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271637271644_ + _self271567271574_ '2 gxc#!case-lambda::t '#f))) - (_clauses271664_ _e271642271661_)) + (_clauses271594_ _e271572271591_)) (declare (not safe)) - (_K271640271655_ _clauses271664_)) - (let () (declare (not safe)) (_E271639271648_))))))) + (_K271570271585_ _clauses271594_)) + (let () (declare (not safe)) (_E271569271578_))))))) (let () (declare (not safe)) (bind-method! @@ -2059,108 +2059,108 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_self271477_) - (let* ((_self271478271486_ _self271477_) - (_E271480271490_ - (lambda () (error '"No clause matching" _self271478271486_))) - (_K271481271496_ - (lambda (_dispatch271493_ _table271494_) - (let ((__tmp278276 - (let ((__tmp278277 + (lambda (_self271407_) + (let* ((_self271408271416_ _self271407_) + (_E271410271420_ + (lambda () (error '"No clause matching" _self271408271416_))) + (_K271411271426_ + (lambda (_dispatch271423_ _table271424_) + (let ((__tmp278206 + (let ((__tmp278207 (let () (declare (not safe)) - (cons _dispatch271493_ '())))) + (cons _dispatch271423_ '())))) (declare (not safe)) - (cons _table271494_ __tmp278277)))) + (cons _table271424_ __tmp278207)))) (declare (not safe)) - (cons '@kw-lambda __tmp278276))))) + (cons '@kw-lambda __tmp278206))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self271478271486_ + _self271408271416_ 'gxc#!kw-lambda::t)) - (let* ((_e271482271499_ + (let* ((_e271412271429_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271478271486_ + _self271408271416_ '1 gxc#!type::t '#f))) - (_e271483271502_ + (_e271413271432_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271478271486_ + _self271408271416_ '2 gxc#!kw-lambda::t '#f))) - (_table271505_ _e271483271502_) - (_e271484271507_ + (_table271435_ _e271413271432_) + (_e271414271437_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271478271486_ + _self271408271416_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch271510_ _e271484271507_)) + (_dispatch271440_ _e271414271437_)) (declare (not safe)) - (_K271481271496_ _dispatch271510_ _table271505_)) - (let () (declare (not safe)) (_E271480271490_)))))) + (_K271411271426_ _dispatch271440_ _table271435_)) + (let () (declare (not safe)) (_E271410271420_)))))) (let () (declare (not safe)) (bind-method! gxc#!kw-lambda::t 'typedecl gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_self271320_) - (let* ((_self271321271329_ _self271320_) - (_E271323271333_ - (lambda () (error '"No clause matching" _self271321271329_))) - (_K271324271339_ - (lambda (_main271336_ _keys271337_) - (let ((__tmp278278 - (let ((__tmp278279 + (lambda (_self271250_) + (let* ((_self271251271259_ _self271250_) + (_E271253271263_ + (lambda () (error '"No clause matching" _self271251271259_))) + (_K271254271269_ + (lambda (_main271266_ _keys271267_) + (let ((__tmp278208 + (let ((__tmp278209 (let () (declare (not safe)) - (cons _main271336_ '())))) + (cons _main271266_ '())))) (declare (not safe)) - (cons _keys271337_ __tmp278279)))) + (cons _keys271267_ __tmp278209)))) (declare (not safe)) - (cons '@kw-lambda-dispatch __tmp278278))))) + (cons '@kw-lambda-dispatch __tmp278208))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self271321271329_ + _self271251271259_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e271325271342_ + (let* ((_e271255271272_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271321271329_ + _self271251271259_ '1 gxc#!type::t '#f))) - (_e271326271345_ + (_e271256271275_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271321271329_ + _self271251271259_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys271348_ _e271326271345_) - (_e271327271350_ + (_keys271278_ _e271256271275_) + (_e271257271280_ (let () (declare (not safe)) (##unchecked-structure-ref - _self271321271329_ + _self271251271259_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main271353_ _e271327271350_)) + (_main271283_ _e271257271280_)) (declare (not safe)) - (_K271324271339_ _main271353_ _keys271348_)) - (let () (declare (not safe)) (_E271323271333_)))))) + (_K271254271269_ _main271283_ _keys271278_)) + (let () (declare (not safe)) (_E271253271263_)))))) (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 1d7aab368..864736343 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -1,4574 +1,4574 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx284284_) - (let* ((_g284288284306_ - (lambda (_g284289284302_) + (lambda (_$stx284214_) + (let* ((_g284218284236_ + (lambda (_g284219284232_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g284289284302_)))) - (_g284287284361_ - (lambda (_g284289284310_) + _g284219284232_)))) + (_g284217284291_ + (lambda (_g284219284240_) (if (let () (declare (not safe)) - (gx#stx-pair? _g284289284310_)) - (let ((_e284294284313_ + (gx#stx-pair? _g284219284240_)) + (let ((_e284224284243_ (let () (declare (not safe)) - (gx#syntax-e _g284289284310_)))) - (let ((_hd284293284317_ + (gx#syntax-e _g284219284240_)))) + (let ((_hd284223284247_ (let () (declare (not safe)) - (##car _e284294284313_))) - (_tl284292284320_ + (##car _e284224284243_))) + (_tl284222284250_ (let () (declare (not safe)) - (##cdr _e284294284313_)))) + (##cdr _e284224284243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284292284320_)) - (let ((_e284297284323_ + (gx#stx-pair? _tl284222284250_)) + (let ((_e284227284253_ (let () (declare (not safe)) - (gx#syntax-e _tl284292284320_)))) - (let ((_hd284296284327_ + (gx#syntax-e _tl284222284250_)))) + (let ((_hd284226284257_ (let () (declare (not safe)) - (##car _e284297284323_))) - (_tl284295284330_ + (##car _e284227284253_))) + (_tl284225284260_ (let () (declare (not safe)) - (##cdr _e284297284323_)))) + (##cdr _e284227284253_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284295284330_)) - (let ((_e284300284333_ + (gx#stx-pair? _tl284225284260_)) + (let ((_e284230284263_ (let () (declare (not safe)) - (gx#syntax-e _tl284295284330_)))) - (let ((_hd284299284337_ + (gx#syntax-e _tl284225284260_)))) + (let ((_hd284229284267_ (let () (declare (not safe)) - (##car _e284300284333_))) - (_tl284298284340_ + (##car _e284230284263_))) + (_tl284228284270_ (let () (declare (not safe)) - (##cdr _e284300284333_)))) + (##cdr _e284230284263_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl284298284340_)) - ((lambda (_L284343_ _L284345_) + (gx#stx-null? _tl284228284270_)) + ((lambda (_L284273_ _L284275_) (if (let () (declare (not safe)) (gx#identifier? - _L284345_)) - (let ((__tmp292001 + _L284275_)) + (let ((__tmp291931 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-type!))) - (__tmp291996 - (let ((__tmp291998 + (__tmp291926 + (let ((__tmp291928 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp292000 + (let ((__tmp291930 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp291999 + (__tmp291929 (let () (declare (not safe)) - (cons _L284345_ '())))) + (cons _L284275_ '())))) (declare (not safe)) - (cons __tmp292000 __tmp291999))) - (__tmp291997 - (let () (declare (not safe)) (cons _L284343_ '())))) + (cons __tmp291930 __tmp291929))) + (__tmp291927 + (let () (declare (not safe)) (cons _L284273_ '())))) (declare (not safe)) - (cons __tmp291998 __tmp291997)))) + (cons __tmp291928 __tmp291927)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp292001 - __tmp291996)) - (_g284288284306_ - _g284289284310_))) - _hd284299284337_ - _hd284296284327_) - (_g284288284306_ - _g284289284310_)))) - (_g284288284306_ _g284289284310_)))) - (_g284288284306_ _g284289284310_)))) - (_g284288284306_ _g284289284310_))))) - (_g284287284361_ _$stx284284_)))) + (cons __tmp291931 + __tmp291926)) + (_g284218284236_ + _g284219284240_))) + _hd284229284267_ + _hd284226284257_) + (_g284218284236_ + _g284219284240_)))) + (_g284218284236_ _g284219284240_)))) + (_g284218284236_ _g284219284240_)))) + (_g284218284236_ _g284219284240_))))) + (_g284217284291_ _$stx284214_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx284365_) - (let* ((_g284369284398_ - (lambda (_g284370284394_) + (lambda (_$stx284295_) + (let* ((_g284299284328_ + (lambda (_g284300284324_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g284370284394_)))) - (_g284368284498_ - (lambda (_g284370284402_) + _g284300284324_)))) + (_g284298284428_ + (lambda (_g284300284332_) (if (let () (declare (not safe)) - (gx#stx-pair? _g284370284402_)) - (let ((_e284375284405_ + (gx#stx-pair? _g284300284332_)) + (let ((_e284305284335_ (let () (declare (not safe)) - (gx#syntax-e _g284370284402_)))) - (let ((_hd284374284409_ + (gx#syntax-e _g284300284332_)))) + (let ((_hd284304284339_ (let () (declare (not safe)) - (##car _e284375284405_))) - (_tl284373284412_ + (##car _e284305284335_))) + (_tl284303284342_ (let () (declare (not safe)) - (##cdr _e284375284405_)))) + (##cdr _e284305284335_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl284373284412_)) - (let ((_g292002_ + (gx#stx-pair/null? _tl284303284342_)) + (let ((_g291932_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl284373284412_ + _tl284303284342_ '0)))) (begin - (let ((_g292003_ + (let ((_g291933_ (let () (declare (not safe)) - (if (##values? _g292002_) - (##vector-length _g292002_) + (if (##values? _g291932_) + (##vector-length _g291932_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g292003_ 2))) + (##fx= _g291933_ 2))) (error "Context expects 2 values" - _g292003_))) - (let ((_target284376284415_ + _g291933_))) + (let ((_target284306284345_ (let () (declare (not safe)) - (##vector-ref _g292002_ 0))) - (_tl284378284418_ + (##vector-ref _g291932_ 0))) + (_tl284308284348_ (let () (declare (not safe)) - (##vector-ref _g292002_ 1)))) + (##vector-ref _g291932_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl284378284418_)) - (letrec ((_loop284379284421_ - (lambda (_hd284377284425_ - _type284383284428_ - _symbol284384284430_) + (gx#stx-null? _tl284308284348_)) + (letrec ((_loop284309284351_ + (lambda (_hd284307284355_ + _type284313284358_ + _symbol284314284360_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd284377284425_)) - (let ((_e284380284433_ + _hd284307284355_)) + (let ((_e284310284363_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd284377284425_)))) - (let ((_lp-hd284381284437_ - (let () (declare (not safe)) (##car _e284380284433_))) - (_lp-tl284382284440_ - (let () (declare (not safe)) (##cdr _e284380284433_)))) + (gx#syntax-e _hd284307284355_)))) + (let ((_lp-hd284311284367_ + (let () (declare (not safe)) (##car _e284310284363_))) + (_lp-tl284312284370_ + (let () (declare (not safe)) (##cdr _e284310284363_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd284381284437_)) - (let ((_e284389284443_ + (gx#stx-pair? _lp-hd284311284367_)) + (let ((_e284319284373_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd284381284437_)))) - (let ((_hd284388284447_ + (gx#syntax-e _lp-hd284311284367_)))) + (let ((_hd284318284377_ (let () (declare (not safe)) - (##car _e284389284443_))) - (_tl284387284450_ + (##car _e284319284373_))) + (_tl284317284380_ (let () (declare (not safe)) - (##cdr _e284389284443_)))) + (##cdr _e284319284373_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284387284450_)) - (let ((_e284392284453_ + (gx#stx-pair? _tl284317284380_)) + (let ((_e284322284383_ (let () (declare (not safe)) - (gx#syntax-e _tl284387284450_)))) - (let ((_hd284391284457_ + (gx#syntax-e _tl284317284380_)))) + (let ((_hd284321284387_ (let () (declare (not safe)) - (##car _e284392284453_))) - (_tl284390284460_ + (##car _e284322284383_))) + (_tl284320284390_ (let () (declare (not safe)) - (##cdr _e284392284453_)))) + (##cdr _e284322284383_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl284390284460_)) - (_loop284379284421_ - _lp-tl284382284440_ + (gx#stx-null? _tl284320284390_)) + (_loop284309284351_ + _lp-tl284312284370_ (let () (declare (not safe)) - (cons _hd284391284457_ - _type284383284428_)) + (cons _hd284321284387_ + _type284313284358_)) (let () (declare (not safe)) - (cons _hd284388284447_ - _symbol284384284430_))) - (_g284369284398_ _g284370284402_)))) - (_g284369284398_ _g284370284402_)))) - (_g284369284398_ _g284370284402_)))) - (let ((_type284385284463_ (reverse _type284383284428_)) - (_symbol284386284466_ (reverse _symbol284384284430_))) - ((lambda (_L284469_ _L284471_) - (let ((__tmp292010 + (cons _hd284318284377_ + _symbol284314284360_))) + (_g284299284328_ _g284300284332_)))) + (_g284299284328_ _g284300284332_)))) + (_g284299284328_ _g284300284332_)))) + (let ((_type284315284393_ (reverse _type284313284358_)) + (_symbol284316284396_ (reverse _symbol284314284360_))) + ((lambda (_L284399_ _L284401_) + (let ((__tmp291940 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp292004 + (__tmp291934 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L284469_ - _L284471_)) - (let ((__tmp292005 - (lambda (_g284486284490_ - _g284487284493_ - _g284488284495_) - (let ((__tmp292006 - (let ((__tmp292009 + _L284399_ + _L284401_)) + (let ((__tmp291935 + (lambda (_g284416284420_ + _g284417284423_ + _g284418284425_) + (let ((__tmp291936 + (let ((__tmp291939 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp292007 - (let ((__tmp292008 + (__tmp291937 + (let ((__tmp291938 (let () (declare (not safe)) - (cons _g284486284490_ + (cons _g284416284420_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g284487284493_ - __tmp292008)))) + (cons _g284417284423_ + __tmp291938)))) (declare (not safe)) - (cons __tmp292009 __tmp292007)))) + (cons __tmp291939 __tmp291937)))) (declare (not safe)) - (cons __tmp292006 _g284488284495_))))) + (cons __tmp291936 _g284418284425_))))) (declare (not safe)) - (foldr2 __tmp292005 '() _L284469_ _L284471_))))) + (foldr2 __tmp291935 '() _L284399_ _L284401_))))) (declare (not safe)) - (cons __tmp292010 __tmp292004))) - _type284385284463_ - _symbol284386284466_)))))) + (cons __tmp291940 __tmp291934))) + _type284315284393_ + _symbol284316284396_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop284379284421_ - _target284376284415_ + (_loop284309284351_ + _target284306284345_ '() '())) - (_g284369284398_ _g284370284402_))))) - (_g284369284398_ _g284370284402_)))) - (_g284369284398_ _g284370284402_))))) - (_g284368284498_ _$stx284365_)))) + (_g284299284328_ _g284300284332_))))) + (_g284299284328_ _g284300284332_)))) + (_g284299284328_ _g284300284332_))))) + (_g284298284428_ _$stx284295_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx284503_) - (let* ((___stx291561291562_ _$stx284503_) - (_g284508284550_ + (lambda (_$stx284433_) + (let* ((___stx291491291492_ _$stx284433_) + (_g284438284480_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx291561291562_))))) - (let ((___kont291564291565_ - (lambda (_L284678_ _L284680_ _L284681_ _L284682_) - (let ((__tmp292024 + ___stx291491291492_))))) + (let ((___kont291494291495_ + (lambda (_L284608_ _L284610_ _L284611_ _L284612_) + (let ((__tmp291954 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-method!))) - (__tmp292011 - (let ((__tmp292021 - (let ((__tmp292023 + (__tmp291941 + (let ((__tmp291951 + (let ((__tmp291953 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292022 + (__tmp291952 (let () (declare (not safe)) - (cons _L284682_ '())))) + (cons _L284612_ '())))) (declare (not safe)) - (cons __tmp292023 __tmp292022))) - (__tmp292012 - (let ((__tmp292018 - (let ((__tmp292020 + (cons __tmp291953 __tmp291952))) + (__tmp291942 + (let ((__tmp291948 + (let ((__tmp291950 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292019 + (__tmp291949 (let () (declare (not safe)) - (cons _L284681_ '())))) + (cons _L284611_ '())))) (declare (not safe)) - (cons __tmp292020 __tmp292019))) - (__tmp292013 - (let ((__tmp292015 - (let ((__tmp292017 + (cons __tmp291950 __tmp291949))) + (__tmp291943 + (let ((__tmp291945 + (let ((__tmp291947 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292016 + (__tmp291946 (let () (declare (not safe)) - (cons _L284680_ '())))) + (cons _L284610_ '())))) (declare (not safe)) - (cons __tmp292017 __tmp292016))) - (__tmp292014 + (cons __tmp291947 __tmp291946))) + (__tmp291944 (let () (declare (not safe)) - (cons _L284678_ '())))) + (cons _L284608_ '())))) (declare (not safe)) - (cons __tmp292015 __tmp292014)))) + (cons __tmp291945 __tmp291944)))) (declare (not safe)) - (cons __tmp292018 __tmp292013)))) + (cons __tmp291948 __tmp291943)))) (declare (not safe)) - (cons __tmp292021 __tmp292012)))) + (cons __tmp291951 __tmp291942)))) (declare (not safe)) - (cons __tmp292024 __tmp292011)))) - (___kont291566291567_ - (lambda (_L284597_ _L284599_ _L284600_ _L284601_) - (let ((__tmp292025 - (let ((__tmp292026 - (let ((__tmp292027 - (let ((__tmp292028 - (let ((__tmp292029 + (cons __tmp291954 __tmp291941)))) + (___kont291496291497_ + (lambda (_L284527_ _L284529_ _L284530_ _L284531_) + (let ((__tmp291955 + (let ((__tmp291956 + (let ((__tmp291957 + (let ((__tmp291958 + (let ((__tmp291959 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)))) (declare (not safe)) - (cons __tmp292029 '())))) + (cons __tmp291959 '())))) (declare (not safe)) - (cons _L284597_ __tmp292028)))) + (cons _L284527_ __tmp291958)))) (declare (not safe)) - (cons _L284599_ __tmp292027)))) + (cons _L284529_ __tmp291957)))) (declare (not safe)) - (cons _L284600_ __tmp292026)))) + (cons _L284530_ __tmp291956)))) (declare (not safe)) - (cons _L284601_ __tmp292025))))) - (let ((___match291600291601_ - (lambda (_e284516284628_ - _hd284515284632_ - _tl284514284635_ - _e284519284638_ - _hd284518284642_ - _tl284517284645_ - _e284522284648_ - _hd284521284652_ - _tl284520284655_ - _e284525284658_ - _hd284524284662_ - _tl284523284665_ - _e284528284668_ - _hd284527284672_ - _tl284526284675_) - (let ((_L284678_ _hd284527284672_) - (_L284680_ _hd284524284662_) - (_L284681_ _hd284521284652_) - (_L284682_ _hd284518284642_)) + (cons _L284531_ __tmp291955))))) + (let ((___match291530291531_ + (lambda (_e284446284558_ + _hd284445284562_ + _tl284444284565_ + _e284449284568_ + _hd284448284572_ + _tl284447284575_ + _e284452284578_ + _hd284451284582_ + _tl284450284585_ + _e284455284588_ + _hd284454284592_ + _tl284453284595_ + _e284458284598_ + _hd284457284602_ + _tl284456284605_) + (let ((_L284608_ _hd284457284602_) + (_L284610_ _hd284454284592_) + (_L284611_ _hd284451284582_) + (_L284612_ _hd284448284572_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L284682_)) + (gx#identifier? _L284612_)) (let () (declare (not safe)) - (gx#identifier? _L284681_)) + (gx#identifier? _L284611_)) (let () (declare (not safe)) - (gx#identifier? _L284680_))) - (___kont291564291565_ - _L284678_ - _L284680_ - _L284681_ - _L284682_) - (let () (declare (not safe)) (_g284508284550_))))))) + (gx#identifier? _L284610_))) + (___kont291494291495_ + _L284608_ + _L284610_ + _L284611_ + _L284612_) + (let () (declare (not safe)) (_g284438284480_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx291561291562_)) - (let ((_e284516284628_ + (gx#stx-pair? ___stx291491291492_)) + (let ((_e284446284558_ (let () (declare (not safe)) - (gx#syntax-e ___stx291561291562_)))) - (let ((_tl284514284635_ - (let () (declare (not safe)) (##cdr _e284516284628_))) - (_hd284515284632_ + (gx#syntax-e ___stx291491291492_)))) + (let ((_tl284444284565_ + (let () (declare (not safe)) (##cdr _e284446284558_))) + (_hd284445284562_ (let () (declare (not safe)) - (##car _e284516284628_)))) + (##car _e284446284558_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284514284635_)) - (let ((_e284519284638_ + (gx#stx-pair? _tl284444284565_)) + (let ((_e284449284568_ (let () (declare (not safe)) - (gx#syntax-e _tl284514284635_)))) - (let ((_tl284517284645_ + (gx#syntax-e _tl284444284565_)))) + (let ((_tl284447284575_ (let () (declare (not safe)) - (##cdr _e284519284638_))) - (_hd284518284642_ + (##cdr _e284449284568_))) + (_hd284448284572_ (let () (declare (not safe)) - (##car _e284519284638_)))) + (##car _e284449284568_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284517284645_)) - (let ((_e284522284648_ + (gx#stx-pair? _tl284447284575_)) + (let ((_e284452284578_ (let () (declare (not safe)) - (gx#syntax-e _tl284517284645_)))) - (let ((_tl284520284655_ + (gx#syntax-e _tl284447284575_)))) + (let ((_tl284450284585_ (let () (declare (not safe)) - (##cdr _e284522284648_))) - (_hd284521284652_ + (##cdr _e284452284578_))) + (_hd284451284582_ (let () (declare (not safe)) - (##car _e284522284648_)))) + (##car _e284452284578_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284520284655_)) - (let ((_e284525284658_ + (gx#stx-pair? _tl284450284585_)) + (let ((_e284455284588_ (let () (declare (not safe)) (gx#syntax-e - _tl284520284655_)))) - (let ((_tl284523284665_ + _tl284450284585_)))) + (let ((_tl284453284595_ (let () (declare (not safe)) - (##cdr _e284525284658_))) - (_hd284524284662_ + (##cdr _e284455284588_))) + (_hd284454284592_ (let () (declare (not safe)) - (##car _e284525284658_)))) + (##car _e284455284588_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl284523284665_)) - (let ((_e284528284668_ + _tl284453284595_)) + (let ((_e284458284598_ (let () (declare (not safe)) (gx#syntax-e - _tl284523284665_)))) - (let ((_tl284526284675_ + _tl284453284595_)))) + (let ((_tl284456284605_ (let () (declare (not safe)) - (##cdr _e284528284668_))) - (_hd284527284672_ + (##cdr _e284458284598_))) + (_hd284457284602_ (let () (declare (not safe)) - (##car _e284528284668_)))) + (##car _e284458284598_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl284526284675_)) - (___match291600291601_ - _e284516284628_ - _hd284515284632_ - _tl284514284635_ - _e284519284638_ - _hd284518284642_ - _tl284517284645_ - _e284522284648_ - _hd284521284652_ - _tl284520284655_ - _e284525284658_ - _hd284524284662_ - _tl284523284665_ - _e284528284668_ - _hd284527284672_ - _tl284526284675_) + _tl284456284605_)) + (___match291530291531_ + _e284446284558_ + _hd284445284562_ + _tl284444284565_ + _e284449284568_ + _hd284448284572_ + _tl284447284575_ + _e284452284578_ + _hd284451284582_ + _tl284450284585_ + _e284455284588_ + _hd284454284592_ + _tl284453284595_ + _e284458284598_ + _hd284457284602_ + _tl284456284605_) (let () (declare (not safe)) - (_g284508284550_))))) + (_g284438284480_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl284523284665_)) - (___kont291566291567_ - _hd284524284662_ - _hd284521284652_ - _hd284518284642_ - _hd284515284632_) + _tl284453284595_)) + (___kont291496291497_ + _hd284454284592_ + _hd284451284582_ + _hd284448284572_ + _hd284445284562_) (let () (declare (not safe)) - (_g284508284550_)))))) + (_g284438284480_)))))) (let () (declare (not safe)) - (_g284508284550_))))) + (_g284438284480_))))) (let () (declare (not safe)) - (_g284508284550_))))) - (let () (declare (not safe)) (_g284508284550_))))) - (let () (declare (not safe)) (_g284508284550_)))))))) + (_g284438284480_))))) + (let () (declare (not safe)) (_g284438284480_))))) + (let () (declare (not safe)) (_g284438284480_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx284707_) - (let* ((_g284711284746_ - (lambda (_g284712284742_) + (lambda (_$stx284637_) + (let* ((_g284641284676_ + (lambda (_g284642284672_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g284712284742_)))) - (_g284710284865_ - (lambda (_g284712284750_) + _g284642284672_)))) + (_g284640284795_ + (lambda (_g284642284680_) (if (let () (declare (not safe)) - (gx#stx-pair? _g284712284750_)) - (let ((_e284718284753_ + (gx#stx-pair? _g284642284680_)) + (let ((_e284648284683_ (let () (declare (not safe)) - (gx#syntax-e _g284712284750_)))) - (let ((_hd284717284757_ + (gx#syntax-e _g284642284680_)))) + (let ((_hd284647284687_ (let () (declare (not safe)) - (##car _e284718284753_))) - (_tl284716284760_ + (##car _e284648284683_))) + (_tl284646284690_ (let () (declare (not safe)) - (##cdr _e284718284753_)))) + (##cdr _e284648284683_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl284716284760_)) - (let ((_g292030_ + (gx#stx-pair/null? _tl284646284690_)) + (let ((_g291960_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl284716284760_ + _tl284646284690_ '0)))) (begin - (let ((_g292031_ + (let ((_g291961_ (let () (declare (not safe)) - (if (##values? _g292030_) - (##vector-length _g292030_) + (if (##values? _g291960_) + (##vector-length _g291960_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g292031_ 2))) + (##fx= _g291961_ 2))) (error "Context expects 2 values" - _g292031_))) - (let ((_target284719284763_ + _g291961_))) + (let ((_target284649284693_ (let () (declare (not safe)) - (##vector-ref _g292030_ 0))) - (_tl284721284766_ + (##vector-ref _g291960_ 0))) + (_tl284651284696_ (let () (declare (not safe)) - (##vector-ref _g292030_ 1)))) + (##vector-ref _g291960_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl284721284766_)) - (letrec ((_loop284722284769_ - (lambda (_hd284720284773_ - _symbol284726284776_ - _method284727284778_ - _type-t284728284780_) + (gx#stx-null? _tl284651284696_)) + (letrec ((_loop284652284699_ + (lambda (_hd284650284703_ + _symbol284656284706_ + _method284657284708_ + _type-t284658284710_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd284720284773_)) - (let ((_e284723284783_ + _hd284650284703_)) + (let ((_e284653284713_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd284720284773_)))) - (let ((_lp-hd284724284787_ - (let () (declare (not safe)) (##car _e284723284783_))) - (_lp-tl284725284790_ - (let () (declare (not safe)) (##cdr _e284723284783_)))) + (gx#syntax-e _hd284650284703_)))) + (let ((_lp-hd284654284717_ + (let () (declare (not safe)) (##car _e284653284713_))) + (_lp-tl284655284720_ + (let () (declare (not safe)) (##cdr _e284653284713_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd284724284787_)) - (let ((_e284734284793_ + (gx#stx-pair? _lp-hd284654284717_)) + (let ((_e284664284723_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd284724284787_)))) - (let ((_hd284733284797_ + (gx#syntax-e _lp-hd284654284717_)))) + (let ((_hd284663284727_ (let () (declare (not safe)) - (##car _e284734284793_))) - (_tl284732284800_ + (##car _e284664284723_))) + (_tl284662284730_ (let () (declare (not safe)) - (##cdr _e284734284793_)))) + (##cdr _e284664284723_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284732284800_)) - (let ((_e284737284803_ + (gx#stx-pair? _tl284662284730_)) + (let ((_e284667284733_ (let () (declare (not safe)) - (gx#syntax-e _tl284732284800_)))) - (let ((_hd284736284807_ + (gx#syntax-e _tl284662284730_)))) + (let ((_hd284666284737_ (let () (declare (not safe)) - (##car _e284737284803_))) - (_tl284735284810_ + (##car _e284667284733_))) + (_tl284665284740_ (let () (declare (not safe)) - (##cdr _e284737284803_)))) + (##cdr _e284667284733_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284735284810_)) - (let ((_e284740284813_ + (gx#stx-pair? _tl284665284740_)) + (let ((_e284670284743_ (let () (declare (not safe)) (gx#syntax-e - _tl284735284810_)))) - (let ((_hd284739284817_ + _tl284665284740_)))) + (let ((_hd284669284747_ (let () (declare (not safe)) - (##car _e284740284813_))) - (_tl284738284820_ + (##car _e284670284743_))) + (_tl284668284750_ (let () (declare (not safe)) - (##cdr _e284740284813_)))) + (##cdr _e284670284743_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl284738284820_)) - (_loop284722284769_ - _lp-tl284725284790_ + _tl284668284750_)) + (_loop284652284699_ + _lp-tl284655284720_ (let () (declare (not safe)) - (cons _hd284739284817_ - _symbol284726284776_)) + (cons _hd284669284747_ + _symbol284656284706_)) (let () (declare (not safe)) - (cons _hd284736284807_ - _method284727284778_)) + (cons _hd284666284737_ + _method284657284708_)) (let () (declare (not safe)) - (cons _hd284733284797_ - _type-t284728284780_))) - (_g284711284746_ - _g284712284750_)))) - (_g284711284746_ _g284712284750_)))) - (_g284711284746_ _g284712284750_)))) - (_g284711284746_ _g284712284750_)))) - (let ((_symbol284729284823_ (reverse _symbol284726284776_)) - (_method284730284826_ (reverse _method284727284778_)) - (_type-t284731284828_ (reverse _type-t284728284780_))) - ((lambda (_L284831_ _L284833_ _L284834_) - (let ((__tmp292039 + (cons _hd284663284727_ + _type-t284658284710_))) + (_g284641284676_ + _g284642284680_)))) + (_g284641284676_ _g284642284680_)))) + (_g284641284676_ _g284642284680_)))) + (_g284641284676_ _g284642284680_)))) + (let ((_symbol284659284753_ (reverse _symbol284656284706_)) + (_method284660284756_ (reverse _method284657284708_)) + (_type-t284661284758_ (reverse _type-t284658284710_))) + ((lambda (_L284761_ _L284763_ _L284764_) + (let ((__tmp291969 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp292032 + (__tmp291962 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L284831_ - _L284833_ - _L284834_)) - (let ((__tmp292033 - (lambda (_g284850284855_ - _g284851284858_ - _g284852284860_ - _g284853284862_) - (let ((__tmp292034 - (let ((__tmp292038 + _L284761_ + _L284763_ + _L284764_)) + (let ((__tmp291963 + (lambda (_g284780284785_ + _g284781284788_ + _g284782284790_ + _g284783284792_) + (let ((__tmp291964 + (let ((__tmp291968 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp292035 - (let ((__tmp292036 - (let ((__tmp292037 + (__tmp291965 + (let ((__tmp291966 + (let ((__tmp291967 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g284850284855_ '())))) + (cons _g284780284785_ '())))) (declare (not safe)) - (cons _g284851284858_ __tmp292037)))) + (cons _g284781284788_ __tmp291967)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g284852284860_ - __tmp292036)))) + (cons _g284782284790_ + __tmp291966)))) (declare (not safe)) - (cons __tmp292038 __tmp292035)))) + (cons __tmp291968 __tmp291965)))) (declare (not safe)) - (cons __tmp292034 _g284853284862_))))) + (cons __tmp291964 _g284783284792_))))) (declare (not safe)) - (foldr* __tmp292033 + (foldr* __tmp291963 '() - _L284831_ - _L284833_ - _L284834_))))) + _L284761_ + _L284763_ + _L284764_))))) (declare (not safe)) - (cons __tmp292039 __tmp292032))) - _symbol284729284823_ - _method284730284826_ - _type-t284731284828_)))))) + (cons __tmp291969 __tmp291962))) + _symbol284659284753_ + _method284660284756_ + _type-t284661284758_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop284722284769_ - _target284719284763_ + (_loop284652284699_ + _target284649284693_ '() '() '())) - (_g284711284746_ _g284712284750_))))) - (_g284711284746_ _g284712284750_)))) - (_g284711284746_ _g284712284750_))))) - (_g284710284865_ _$stx284707_)))) + (_g284641284676_ _g284642284680_))))) + (_g284641284676_ _g284642284680_)))) + (_g284641284676_ _g284642284680_))))) + (_g284640284795_ _$stx284637_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx284870_) - (let* ((_g284874284907_ - (lambda (_g284875284903_) + (lambda (_$stx284800_) + (let* ((_g284804284837_ + (lambda (_g284805284833_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g284875284903_)))) - (_g284873285021_ - (lambda (_g284875284911_) + _g284805284833_)))) + (_g284803284951_ + (lambda (_g284805284841_) (if (let () (declare (not safe)) - (gx#stx-pair? _g284875284911_)) - (let ((_e284881284914_ + (gx#stx-pair? _g284805284841_)) + (let ((_e284811284844_ (let () (declare (not safe)) - (gx#syntax-e _g284875284911_)))) - (let ((_hd284880284918_ + (gx#syntax-e _g284805284841_)))) + (let ((_hd284810284848_ (let () (declare (not safe)) - (##car _e284881284914_))) - (_tl284879284921_ + (##car _e284811284844_))) + (_tl284809284851_ (let () (declare (not safe)) - (##cdr _e284881284914_)))) + (##cdr _e284811284844_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284879284921_)) - (let ((_e284884284924_ + (gx#stx-pair? _tl284809284851_)) + (let ((_e284814284854_ (let () (declare (not safe)) - (gx#syntax-e _tl284879284921_)))) - (let ((_hd284883284928_ + (gx#syntax-e _tl284809284851_)))) + (let ((_hd284813284858_ (let () (declare (not safe)) - (##car _e284884284924_))) - (_tl284882284931_ + (##car _e284814284854_))) + (_tl284812284861_ (let () (declare (not safe)) - (##cdr _e284884284924_)))) + (##cdr _e284814284854_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl284882284931_)) - (let ((_g292040_ + (gx#stx-pair/null? _tl284812284861_)) + (let ((_g291970_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl284882284931_ + _tl284812284861_ '0)))) (begin - (let ((_g292041_ + (let ((_g291971_ (let () (declare (not safe)) - (if (##values? _g292040_) + (if (##values? _g291970_) (##vector-length - _g292040_) + _g291970_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g292041_ 2))) + (##fx= _g291971_ 2))) (error "Context expects 2 values" - _g292041_))) - (let ((_target284885284934_ + _g291971_))) + (let ((_target284815284864_ (let () (declare (not safe)) - (##vector-ref _g292040_ 0))) - (_tl284887284937_ + (##vector-ref _g291970_ 0))) + (_tl284817284867_ (let () (declare (not safe)) - (##vector-ref _g292040_ 1)))) + (##vector-ref _g291970_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl284887284937_)) - (letrec ((_loop284888284940_ - (lambda (_hd284886284944_ + _tl284817284867_)) + (letrec ((_loop284818284870_ + (lambda (_hd284816284874_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol284892284947_ - _method284893284949_) + _symbol284822284877_ + _method284823284879_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd284886284944_)) - (let ((_e284889284952_ + (gx#stx-pair? _hd284816284874_)) + (let ((_e284819284882_ (let () (declare (not safe)) - (gx#syntax-e _hd284886284944_)))) - (let ((_lp-hd284890284956_ + (gx#syntax-e _hd284816284874_)))) + (let ((_lp-hd284820284886_ (let () (declare (not safe)) - (##car _e284889284952_))) - (_lp-tl284891284959_ + (##car _e284819284882_))) + (_lp-tl284821284889_ (let () (declare (not safe)) - (##cdr _e284889284952_)))) + (##cdr _e284819284882_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd284890284956_)) - (let ((_e284898284962_ + (gx#stx-pair? _lp-hd284820284886_)) + (let ((_e284828284892_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd284890284956_)))) - (let ((_hd284897284966_ + (gx#syntax-e _lp-hd284820284886_)))) + (let ((_hd284827284896_ (let () (declare (not safe)) - (##car _e284898284962_))) - (_tl284896284969_ + (##car _e284828284892_))) + (_tl284826284899_ (let () (declare (not safe)) - (##cdr _e284898284962_)))) + (##cdr _e284828284892_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284896284969_)) - (let ((_e284901284972_ + (gx#stx-pair? _tl284826284899_)) + (let ((_e284831284902_ (let () (declare (not safe)) (gx#syntax-e - _tl284896284969_)))) - (let ((_hd284900284976_ + _tl284826284899_)))) + (let ((_hd284830284906_ (let () (declare (not safe)) - (##car _e284901284972_))) - (_tl284899284979_ + (##car _e284831284902_))) + (_tl284829284909_ (let () (declare (not safe)) - (##cdr _e284901284972_)))) + (##cdr _e284831284902_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl284899284979_)) - (_loop284888284940_ - _lp-tl284891284959_ + _tl284829284909_)) + (_loop284818284870_ + _lp-tl284821284889_ (let () (declare (not safe)) - (cons _hd284900284976_ - _symbol284892284947_)) + (cons _hd284830284906_ + _symbol284822284877_)) (let () (declare (not safe)) - (cons _hd284897284966_ - _method284893284949_))) - (_g284874284907_ - _g284875284911_)))) - (_g284874284907_ _g284875284911_)))) - (_g284874284907_ _g284875284911_)))) - (let ((_symbol284894284982_ - (reverse _symbol284892284947_)) - (_method284895284985_ - (reverse _method284893284949_))) - ((lambda (_L284988_ _L284990_ _L284991_) - (let ((__tmp292049 + (cons _hd284827284896_ + _method284823284879_))) + (_g284804284837_ + _g284805284841_)))) + (_g284804284837_ _g284805284841_)))) + (_g284804284837_ _g284805284841_)))) + (let ((_symbol284824284912_ + (reverse _symbol284822284877_)) + (_method284825284915_ + (reverse _method284823284879_))) + ((lambda (_L284918_ _L284920_ _L284921_) + (let ((__tmp291979 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp292042 + (__tmp291972 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L284988_ - _L284990_)) - (let ((__tmp292043 - (lambda (_g285009285013_ - _g285010285016_ - _g285011285018_) - (let ((__tmp292044 - (let ((__tmp292048 + _L284918_ + _L284920_)) + (let ((__tmp291973 + (lambda (_g284939284943_ + _g284940284946_ + _g284941284948_) + (let ((__tmp291974 + (let ((__tmp291978 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp292045 - (let ((__tmp292046 + (__tmp291975 + (let ((__tmp291976 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp292047 + (let ((__tmp291977 (let () (declare (not safe)) - (cons _g285009285013_ '())))) + (cons _g284939284943_ '())))) (declare (not safe)) - (cons _g285010285016_ __tmp292047)))) + (cons _g284940284946_ __tmp291977)))) (declare (not safe)) - (cons _L284991_ __tmp292046)))) + (cons _L284921_ __tmp291976)))) (declare (not safe)) - (cons __tmp292048 __tmp292045)))) + (cons __tmp291978 __tmp291975)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp292044 - _g285011285018_))))) + (cons __tmp291974 + _g284941284948_))))) (declare (not safe)) - (foldr2 __tmp292043 + (foldr2 __tmp291973 '() - _L284988_ - _L284990_))))) + _L284918_ + _L284920_))))) (declare (not safe)) - (cons __tmp292049 __tmp292042))) - _symbol284894284982_ - _method284895284985_ - _hd284883284928_)))))) + (cons __tmp291979 __tmp291972))) + _symbol284824284912_ + _method284825284915_ + _hd284813284858_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop284888284940_ - _target284885284934_ + (_loop284818284870_ + _target284815284864_ '() '())) - (_g284874284907_ - _g284875284911_))))) - (_g284874284907_ _g284875284911_)))) - (_g284874284907_ _g284875284911_)))) - (_g284874284907_ _g284875284911_))))) - (_g284873285021_ _$stx284870_)))) + (_g284804284837_ + _g284805284841_))))) + (_g284804284837_ _g284805284841_)))) + (_g284804284837_ _g284805284841_)))) + (_g284804284837_ _g284805284841_))))) + (_g284803284951_ _$stx284800_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx285026_) - (let* ((_g285030285044_ - (lambda (_g285031285040_) + (lambda (_$stx284956_) + (let* ((_g284960284974_ + (lambda (_g284961284970_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g285031285040_)))) - (_g285029285085_ - (lambda (_g285031285048_) + _g284961284970_)))) + (_g284959285015_ + (lambda (_g284961284978_) (if (let () (declare (not safe)) - (gx#stx-pair? _g285031285048_)) - (let ((_e285035285051_ + (gx#stx-pair? _g284961284978_)) + (let ((_e284965284981_ (let () (declare (not safe)) - (gx#syntax-e _g285031285048_)))) - (let ((_hd285034285055_ + (gx#syntax-e _g284961284978_)))) + (let ((_hd284964284985_ (let () (declare (not safe)) - (##car _e285035285051_))) - (_tl285033285058_ + (##car _e284965284981_))) + (_tl284963284988_ (let () (declare (not safe)) - (##cdr _e285035285051_)))) + (##cdr _e284965284981_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285033285058_)) - (let ((_e285038285061_ + (gx#stx-pair? _tl284963284988_)) + (let ((_e284968284991_ (let () (declare (not safe)) - (gx#syntax-e _tl285033285058_)))) - (let ((_hd285037285065_ + (gx#syntax-e _tl284963284988_)))) + (let ((_hd284967284995_ (let () (declare (not safe)) - (##car _e285038285061_))) - (_tl285036285068_ + (##car _e284968284991_))) + (_tl284966284998_ (let () (declare (not safe)) - (##cdr _e285038285061_)))) + (##cdr _e284968284991_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285036285068_)) - ((lambda (_L285071_) - (let ((__tmp292054 + (gx#stx-null? _tl284966284998_)) + ((lambda (_L285001_) + (let ((__tmp291984 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!alias))) - (__tmp292050 - (let ((__tmp292051 - (let ((__tmp292053 + (__tmp291980 + (let ((__tmp291981 + (let ((__tmp291983 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292052 + (__tmp291982 (let () (declare (not safe)) - (cons _L285071_ + (cons _L285001_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp292053 __tmp292052)))) + (cons __tmp291983 __tmp291982)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp292051 '())))) + (cons __tmp291981 '())))) (declare (not safe)) - (cons __tmp292054 __tmp292050))) - _hd285037285065_) - (_g285030285044_ _g285031285048_)))) - (_g285030285044_ _g285031285048_)))) - (_g285030285044_ _g285031285048_))))) - (_g285029285085_ _$stx285026_)))) + (cons __tmp291984 __tmp291980))) + _hd284967284995_) + (_g284960284974_ _g284961284978_)))) + (_g284960284974_ _g284961284978_)))) + (_g284960284974_ _g284961284978_))))) + (_g284959285015_ _$stx284956_)))) (define |gxc[:0:]#@class| - (lambda (_$stx285089_) - (let* ((_g285093285139_ - (lambda (_g285094285135_) + (lambda (_$stx285019_) + (let* ((_g285023285069_ + (lambda (_g285024285065_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g285094285135_)))) - (_g285092285292_ - (lambda (_g285094285143_) + _g285024285065_)))) + (_g285022285222_ + (lambda (_g285024285073_) (if (let () (declare (not safe)) - (gx#stx-pair? _g285094285143_)) - (let ((_e285106285146_ + (gx#stx-pair? _g285024285073_)) + (let ((_e285036285076_ (let () (declare (not safe)) - (gx#syntax-e _g285094285143_)))) - (let ((_hd285105285150_ + (gx#syntax-e _g285024285073_)))) + (let ((_hd285035285080_ (let () (declare (not safe)) - (##car _e285106285146_))) - (_tl285104285153_ + (##car _e285036285076_))) + (_tl285034285083_ (let () (declare (not safe)) - (##cdr _e285106285146_)))) + (##cdr _e285036285076_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285104285153_)) - (let ((_e285109285156_ + (gx#stx-pair? _tl285034285083_)) + (let ((_e285039285086_ (let () (declare (not safe)) - (gx#syntax-e _tl285104285153_)))) - (let ((_hd285108285160_ + (gx#syntax-e _tl285034285083_)))) + (let ((_hd285038285090_ (let () (declare (not safe)) - (##car _e285109285156_))) - (_tl285107285163_ + (##car _e285039285086_))) + (_tl285037285093_ (let () (declare (not safe)) - (##cdr _e285109285156_)))) + (##cdr _e285039285086_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285107285163_)) - (let ((_e285112285166_ + (gx#stx-pair? _tl285037285093_)) + (let ((_e285042285096_ (let () (declare (not safe)) - (gx#syntax-e _tl285107285163_)))) - (let ((_hd285111285170_ + (gx#syntax-e _tl285037285093_)))) + (let ((_hd285041285100_ (let () (declare (not safe)) - (##car _e285112285166_))) - (_tl285110285173_ + (##car _e285042285096_))) + (_tl285040285103_ (let () (declare (not safe)) - (##cdr _e285112285166_)))) + (##cdr _e285042285096_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285110285173_)) - (let ((_e285115285176_ + (gx#stx-pair? _tl285040285103_)) + (let ((_e285045285106_ (let () (declare (not safe)) (gx#syntax-e - _tl285110285173_)))) - (let ((_hd285114285180_ + _tl285040285103_)))) + (let ((_hd285044285110_ (let () (declare (not safe)) - (##car _e285115285176_))) - (_tl285113285183_ + (##car _e285045285106_))) + (_tl285043285113_ (let () (declare (not safe)) - (##cdr _e285115285176_)))) + (##cdr _e285045285106_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl285113285183_)) - (let ((_e285118285186_ + _tl285043285113_)) + (let ((_e285048285116_ (let () (declare (not safe)) (gx#syntax-e - _tl285113285183_)))) - (let ((_hd285117285190_ + _tl285043285113_)))) + (let ((_hd285047285120_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e285118285186_))) - (_tl285116285193_ - (let () (declare (not safe)) (##cdr _e285118285186_)))) + (##car _e285048285116_))) + (_tl285046285123_ + (let () (declare (not safe)) (##cdr _e285048285116_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285116285193_)) - (let ((_e285121285196_ + (gx#stx-pair? _tl285046285123_)) + (let ((_e285051285126_ (let () (declare (not safe)) - (gx#syntax-e _tl285116285193_)))) - (let ((_hd285120285200_ + (gx#syntax-e _tl285046285123_)))) + (let ((_hd285050285130_ (let () (declare (not safe)) - (##car _e285121285196_))) - (_tl285119285203_ + (##car _e285051285126_))) + (_tl285049285133_ (let () (declare (not safe)) - (##cdr _e285121285196_)))) + (##cdr _e285051285126_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285119285203_)) - (let ((_e285124285206_ + (gx#stx-pair? _tl285049285133_)) + (let ((_e285054285136_ (let () (declare (not safe)) - (gx#syntax-e _tl285119285203_)))) - (let ((_hd285123285210_ + (gx#syntax-e _tl285049285133_)))) + (let ((_hd285053285140_ (let () (declare (not safe)) - (##car _e285124285206_))) - (_tl285122285213_ + (##car _e285054285136_))) + (_tl285052285143_ (let () (declare (not safe)) - (##cdr _e285124285206_)))) + (##cdr _e285054285136_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285122285213_)) - (let ((_e285127285216_ + (gx#stx-pair? _tl285052285143_)) + (let ((_e285057285146_ (let () (declare (not safe)) - (gx#syntax-e _tl285122285213_)))) - (let ((_hd285126285220_ + (gx#syntax-e _tl285052285143_)))) + (let ((_hd285056285150_ (let () (declare (not safe)) - (##car _e285127285216_))) - (_tl285125285223_ + (##car _e285057285146_))) + (_tl285055285153_ (let () (declare (not safe)) - (##cdr _e285127285216_)))) + (##cdr _e285057285146_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285125285223_)) - (let ((_e285130285226_ + (gx#stx-pair? _tl285055285153_)) + (let ((_e285060285156_ (let () (declare (not safe)) (gx#syntax-e - _tl285125285223_)))) - (let ((_hd285129285230_ + _tl285055285153_)))) + (let ((_hd285059285160_ (let () (declare (not safe)) - (##car _e285130285226_))) - (_tl285128285233_ + (##car _e285060285156_))) + (_tl285058285163_ (let () (declare (not safe)) - (##cdr _e285130285226_)))) + (##cdr _e285060285156_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl285128285233_)) - (let ((_e285133285236_ + _tl285058285163_)) + (let ((_e285063285166_ (let () (declare (not safe)) (gx#syntax-e - _tl285128285233_)))) - (let ((_hd285132285240_ + _tl285058285163_)))) + (let ((_hd285062285170_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e285133285236_))) - (_tl285131285243_ - (let () (declare (not safe)) (##cdr _e285133285236_)))) + (##car _e285063285166_))) + (_tl285061285173_ + (let () (declare (not safe)) (##cdr _e285063285166_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285131285243_)) - ((lambda (_L285246_ - _L285248_ - _L285249_ - _L285250_ - _L285251_ - _L285252_ - _L285253_ - _L285254_ - _L285255_) - (let ((__tmp292091 + (gx#stx-null? _tl285061285173_)) + ((lambda (_L285176_ + _L285178_ + _L285179_ + _L285180_ + _L285181_ + _L285182_ + _L285183_ + _L285184_ + _L285185_) + (let ((__tmp292021 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class))) - (__tmp292055 - (let ((__tmp292088 - (let ((__tmp292090 + (__tmp291985 + (let ((__tmp292018 + (let ((__tmp292020 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292089 + (__tmp292019 (let () (declare (not safe)) - (cons _L285255_ '())))) + (cons _L285185_ '())))) (declare (not safe)) - (cons __tmp292090 __tmp292089))) - (__tmp292056 - (let ((__tmp292085 - (let ((__tmp292087 + (cons __tmp292020 __tmp292019))) + (__tmp291986 + (let ((__tmp292015 + (let ((__tmp292017 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292086 + (__tmp292016 (let () (declare (not safe)) - (cons _L285254_ '())))) + (cons _L285184_ '())))) (declare (not safe)) - (cons __tmp292087 __tmp292086))) - (__tmp292057 - (let ((__tmp292082 - (let ((__tmp292084 + (cons __tmp292017 __tmp292016))) + (__tmp291987 + (let ((__tmp292012 + (let ((__tmp292014 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292083 + (__tmp292013 (let () (declare (not safe)) - (cons _L285253_ + (cons _L285183_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp292084 - __tmp292083))) - (__tmp292058 - (let ((__tmp292079 - (let ((__tmp292081 + (cons __tmp292014 + __tmp292013))) + (__tmp291988 + (let ((__tmp292009 + (let ((__tmp292011 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292080 - (let () (declare (not safe)) (cons _L285252_ '())))) + (__tmp292010 + (let () (declare (not safe)) (cons _L285182_ '())))) (declare (not safe)) - (cons __tmp292081 __tmp292080))) - (__tmp292059 - (let ((__tmp292076 - (let ((__tmp292078 + (cons __tmp292011 __tmp292010))) + (__tmp291989 + (let ((__tmp292006 + (let ((__tmp292008 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292077 + (__tmp292007 (let () (declare (not safe)) - (cons _L285251_ '())))) + (cons _L285181_ '())))) (declare (not safe)) - (cons __tmp292078 __tmp292077))) - (__tmp292060 - (let ((__tmp292073 - (let ((__tmp292075 + (cons __tmp292008 __tmp292007))) + (__tmp291990 + (let ((__tmp292003 + (let ((__tmp292005 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292074 + (__tmp292004 (let () (declare (not safe)) - (cons _L285250_ '())))) + (cons _L285180_ '())))) (declare (not safe)) - (cons __tmp292075 __tmp292074))) - (__tmp292061 - (let ((__tmp292070 - (let ((__tmp292072 + (cons __tmp292005 __tmp292004))) + (__tmp291991 + (let ((__tmp292000 + (let ((__tmp292002 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292071 + (__tmp292001 (let () (declare (not safe)) - (cons _L285249_ '())))) + (cons _L285179_ '())))) (declare (not safe)) - (cons __tmp292072 __tmp292071))) - (__tmp292062 - (let ((__tmp292067 - (let ((__tmp292069 + (cons __tmp292002 __tmp292001))) + (__tmp291992 + (let ((__tmp291997 + (let ((__tmp291999 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292068 + (__tmp291998 (let () (declare (not safe)) - (cons _L285248_ '())))) + (cons _L285178_ '())))) (declare (not safe)) - (cons __tmp292069 - __tmp292068))) - (__tmp292063 - (let ((__tmp292064 - (let ((__tmp292066 + (cons __tmp291999 + __tmp291998))) + (__tmp291993 + (let ((__tmp291994 + (let ((__tmp291996 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292065 + (__tmp291995 (let () (declare (not safe)) - (cons _L285246_ + (cons _L285176_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp292066 __tmp292065)))) + (cons __tmp291996 __tmp291995)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp292064 '())))) + (cons __tmp291994 '())))) (declare (not safe)) - (cons __tmp292067 __tmp292063)))) + (cons __tmp291997 __tmp291993)))) (declare (not safe)) - (cons __tmp292070 __tmp292062)))) + (cons __tmp292000 __tmp291992)))) (declare (not safe)) - (cons __tmp292073 __tmp292061)))) + (cons __tmp292003 __tmp291991)))) (declare (not safe)) - (cons __tmp292076 __tmp292060)))) + (cons __tmp292006 __tmp291990)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp292079 - __tmp292059)))) + (cons __tmp292009 + __tmp291989)))) (declare (not safe)) - (cons __tmp292082 __tmp292058)))) + (cons __tmp292012 __tmp291988)))) (declare (not safe)) - (cons __tmp292085 __tmp292057)))) + (cons __tmp292015 __tmp291987)))) (declare (not safe)) - (cons __tmp292088 __tmp292056)))) + (cons __tmp292018 __tmp291986)))) (declare (not safe)) - (cons __tmp292091 __tmp292055))) - _hd285132285240_ - _hd285129285230_ - _hd285126285220_ - _hd285123285210_ - _hd285120285200_ - _hd285117285190_ - _hd285114285180_ - _hd285111285170_ - _hd285108285160_) - (_g285093285139_ _g285094285143_)))) + (cons __tmp292021 __tmp291985))) + _hd285062285170_ + _hd285059285160_ + _hd285056285150_ + _hd285053285140_ + _hd285050285130_ + _hd285047285120_ + _hd285044285110_ + _hd285041285100_ + _hd285038285090_) + (_g285023285069_ _g285024285073_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g285093285139_ - _g285094285143_)))) - (_g285093285139_ - _g285094285143_)))) - (_g285093285139_ _g285094285143_)))) - (_g285093285139_ _g285094285143_)))) - (_g285093285139_ _g285094285143_)))) + (_g285023285069_ + _g285024285073_)))) + (_g285023285069_ + _g285024285073_)))) + (_g285023285069_ _g285024285073_)))) + (_g285023285069_ _g285024285073_)))) + (_g285023285069_ _g285024285073_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g285093285139_ - _g285094285143_)))) - (_g285093285139_ - _g285094285143_)))) - (_g285093285139_ _g285094285143_)))) - (_g285093285139_ _g285094285143_)))) - (_g285093285139_ _g285094285143_))))) - (_g285092285292_ _$stx285089_)))) + (_g285023285069_ + _g285024285073_)))) + (_g285023285069_ + _g285024285073_)))) + (_g285023285069_ _g285024285073_)))) + (_g285023285069_ _g285024285073_)))) + (_g285023285069_ _g285024285073_))))) + (_g285022285222_ _$stx285019_)))) (define |gxc[:0:]#@predicate| - (lambda (_$stx285296_) - (let* ((_g285300285314_ - (lambda (_g285301285310_) + (lambda (_$stx285226_) + (let* ((_g285230285244_ + (lambda (_g285231285240_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g285301285310_)))) - (_g285299285355_ - (lambda (_g285301285318_) + _g285231285240_)))) + (_g285229285285_ + (lambda (_g285231285248_) (if (let () (declare (not safe)) - (gx#stx-pair? _g285301285318_)) - (let ((_e285305285321_ + (gx#stx-pair? _g285231285248_)) + (let ((_e285235285251_ (let () (declare (not safe)) - (gx#syntax-e _g285301285318_)))) - (let ((_hd285304285325_ + (gx#syntax-e _g285231285248_)))) + (let ((_hd285234285255_ (let () (declare (not safe)) - (##car _e285305285321_))) - (_tl285303285328_ + (##car _e285235285251_))) + (_tl285233285258_ (let () (declare (not safe)) - (##cdr _e285305285321_)))) + (##cdr _e285235285251_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285303285328_)) - (let ((_e285308285331_ + (gx#stx-pair? _tl285233285258_)) + (let ((_e285238285261_ (let () (declare (not safe)) - (gx#syntax-e _tl285303285328_)))) - (let ((_hd285307285335_ + (gx#syntax-e _tl285233285258_)))) + (let ((_hd285237285265_ (let () (declare (not safe)) - (##car _e285308285331_))) - (_tl285306285338_ + (##car _e285238285261_))) + (_tl285236285268_ (let () (declare (not safe)) - (##cdr _e285308285331_)))) + (##cdr _e285238285261_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285306285338_)) - ((lambda (_L285341_) - (let ((__tmp292096 + (gx#stx-null? _tl285236285268_)) + ((lambda (_L285271_) + (let ((__tmp292026 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!predicate))) - (__tmp292092 - (let ((__tmp292093 - (let ((__tmp292095 + (__tmp292022 + (let ((__tmp292023 + (let ((__tmp292025 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292094 + (__tmp292024 (let () (declare (not safe)) - (cons _L285341_ + (cons _L285271_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp292095 __tmp292094)))) + (cons __tmp292025 __tmp292024)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp292093 '())))) + (cons __tmp292023 '())))) (declare (not safe)) - (cons __tmp292096 __tmp292092))) - _hd285307285335_) - (_g285300285314_ _g285301285318_)))) - (_g285300285314_ _g285301285318_)))) - (_g285300285314_ _g285301285318_))))) - (_g285299285355_ _$stx285296_)))) + (cons __tmp292026 __tmp292022))) + _hd285237285265_) + (_g285230285244_ _g285231285248_)))) + (_g285230285244_ _g285231285248_)))) + (_g285230285244_ _g285231285248_))))) + (_g285229285285_ _$stx285226_)))) (define |gxc[:0:]#@constructor| - (lambda (_$stx285359_) - (let* ((_g285363285377_ - (lambda (_g285364285373_) + (lambda (_$stx285289_) + (let* ((_g285293285307_ + (lambda (_g285294285303_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g285364285373_)))) - (_g285362285418_ - (lambda (_g285364285381_) + _g285294285303_)))) + (_g285292285348_ + (lambda (_g285294285311_) (if (let () (declare (not safe)) - (gx#stx-pair? _g285364285381_)) - (let ((_e285368285384_ + (gx#stx-pair? _g285294285311_)) + (let ((_e285298285314_ (let () (declare (not safe)) - (gx#syntax-e _g285364285381_)))) - (let ((_hd285367285388_ + (gx#syntax-e _g285294285311_)))) + (let ((_hd285297285318_ (let () (declare (not safe)) - (##car _e285368285384_))) - (_tl285366285391_ + (##car _e285298285314_))) + (_tl285296285321_ (let () (declare (not safe)) - (##cdr _e285368285384_)))) + (##cdr _e285298285314_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285366285391_)) - (let ((_e285371285394_ + (gx#stx-pair? _tl285296285321_)) + (let ((_e285301285324_ (let () (declare (not safe)) - (gx#syntax-e _tl285366285391_)))) - (let ((_hd285370285398_ + (gx#syntax-e _tl285296285321_)))) + (let ((_hd285300285328_ (let () (declare (not safe)) - (##car _e285371285394_))) - (_tl285369285401_ + (##car _e285301285324_))) + (_tl285299285331_ (let () (declare (not safe)) - (##cdr _e285371285394_)))) + (##cdr _e285301285324_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285369285401_)) - ((lambda (_L285404_) - (let ((__tmp292101 + (gx#stx-null? _tl285299285331_)) + ((lambda (_L285334_) + (let ((__tmp292031 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!constructor))) - (__tmp292097 - (let ((__tmp292098 - (let ((__tmp292100 + (__tmp292027 + (let ((__tmp292028 + (let ((__tmp292030 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292099 + (__tmp292029 (let () (declare (not safe)) - (cons _L285404_ + (cons _L285334_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp292100 __tmp292099)))) + (cons __tmp292030 __tmp292029)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp292098 '())))) + (cons __tmp292028 '())))) (declare (not safe)) - (cons __tmp292101 __tmp292097))) - _hd285370285398_) - (_g285363285377_ _g285364285381_)))) - (_g285363285377_ _g285364285381_)))) - (_g285363285377_ _g285364285381_))))) - (_g285362285418_ _$stx285359_)))) + (cons __tmp292031 __tmp292027))) + _hd285300285328_) + (_g285293285307_ _g285294285311_)))) + (_g285293285307_ _g285294285311_)))) + (_g285293285307_ _g285294285311_))))) + (_g285292285348_ _$stx285289_)))) (define |gxc[:0:]#@accessor| - (lambda (_$stx285422_) - (let* ((_g285426285448_ - (lambda (_g285427285444_) + (lambda (_$stx285352_) + (let* ((_g285356285378_ + (lambda (_g285357285374_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g285427285444_)))) - (_g285425285517_ - (lambda (_g285427285452_) + _g285357285374_)))) + (_g285355285447_ + (lambda (_g285357285382_) (if (let () (declare (not safe)) - (gx#stx-pair? _g285427285452_)) - (let ((_e285433285455_ + (gx#stx-pair? _g285357285382_)) + (let ((_e285363285385_ (let () (declare (not safe)) - (gx#syntax-e _g285427285452_)))) - (let ((_hd285432285459_ + (gx#syntax-e _g285357285382_)))) + (let ((_hd285362285389_ (let () (declare (not safe)) - (##car _e285433285455_))) - (_tl285431285462_ + (##car _e285363285385_))) + (_tl285361285392_ (let () (declare (not safe)) - (##cdr _e285433285455_)))) + (##cdr _e285363285385_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285431285462_)) - (let ((_e285436285465_ + (gx#stx-pair? _tl285361285392_)) + (let ((_e285366285395_ (let () (declare (not safe)) - (gx#syntax-e _tl285431285462_)))) - (let ((_hd285435285469_ + (gx#syntax-e _tl285361285392_)))) + (let ((_hd285365285399_ (let () (declare (not safe)) - (##car _e285436285465_))) - (_tl285434285472_ + (##car _e285366285395_))) + (_tl285364285402_ (let () (declare (not safe)) - (##cdr _e285436285465_)))) + (##cdr _e285366285395_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285434285472_)) - (let ((_e285439285475_ + (gx#stx-pair? _tl285364285402_)) + (let ((_e285369285405_ (let () (declare (not safe)) - (gx#syntax-e _tl285434285472_)))) - (let ((_hd285438285479_ + (gx#syntax-e _tl285364285402_)))) + (let ((_hd285368285409_ (let () (declare (not safe)) - (##car _e285439285475_))) - (_tl285437285482_ + (##car _e285369285405_))) + (_tl285367285412_ (let () (declare (not safe)) - (##cdr _e285439285475_)))) + (##cdr _e285369285405_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285437285482_)) - (let ((_e285442285485_ + (gx#stx-pair? _tl285367285412_)) + (let ((_e285372285415_ (let () (declare (not safe)) (gx#syntax-e - _tl285437285482_)))) - (let ((_hd285441285489_ + _tl285367285412_)))) + (let ((_hd285371285419_ (let () (declare (not safe)) - (##car _e285442285485_))) - (_tl285440285492_ + (##car _e285372285415_))) + (_tl285370285422_ (let () (declare (not safe)) - (##cdr _e285442285485_)))) + (##cdr _e285372285415_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285440285492_)) - ((lambda (_L285495_ - _L285497_ - _L285498_) - (let ((__tmp292111 + _tl285370285422_)) + ((lambda (_L285425_ + _L285427_ + _L285428_) + (let ((__tmp292041 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!accessor))) - (__tmp292102 - (let ((__tmp292108 - (let ((__tmp292110 + (__tmp292032 + (let ((__tmp292038 + (let ((__tmp292040 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292109 + (__tmp292039 (let () (declare (not safe)) - (cons _L285498_ '())))) + (cons _L285428_ '())))) (declare (not safe)) - (cons __tmp292110 __tmp292109))) - (__tmp292103 - (let ((__tmp292105 - (let ((__tmp292107 + (cons __tmp292040 __tmp292039))) + (__tmp292033 + (let ((__tmp292035 + (let ((__tmp292037 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292106 + (__tmp292036 (let () (declare (not safe)) - (cons _L285497_ '())))) + (cons _L285427_ '())))) (declare (not safe)) - (cons __tmp292107 __tmp292106))) - (__tmp292104 + (cons __tmp292037 __tmp292036))) + (__tmp292034 (let () (declare (not safe)) - (cons _L285495_ '())))) + (cons _L285425_ '())))) (declare (not safe)) - (cons __tmp292105 __tmp292104)))) + (cons __tmp292035 __tmp292034)))) (declare (not safe)) - (cons __tmp292108 __tmp292103)))) + (cons __tmp292038 __tmp292033)))) (declare (not safe)) - (cons __tmp292111 __tmp292102))) + (cons __tmp292041 __tmp292032))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd285441285489_ - _hd285438285479_ - _hd285435285469_) - (_g285426285448_ - _g285427285452_)))) - (_g285426285448_ - _g285427285452_)))) - (_g285426285448_ _g285427285452_)))) - (_g285426285448_ _g285427285452_)))) - (_g285426285448_ _g285427285452_))))) - (_g285425285517_ _$stx285422_)))) + _hd285371285419_ + _hd285368285409_ + _hd285365285399_) + (_g285356285378_ + _g285357285382_)))) + (_g285356285378_ + _g285357285382_)))) + (_g285356285378_ _g285357285382_)))) + (_g285356285378_ _g285357285382_)))) + (_g285356285378_ _g285357285382_))))) + (_g285355285447_ _$stx285352_)))) (define |gxc[:0:]#@mutator| - (lambda (_$stx285521_) - (let* ((_g285525285547_ - (lambda (_g285526285543_) + (lambda (_$stx285451_) + (let* ((_g285455285477_ + (lambda (_g285456285473_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g285526285543_)))) - (_g285524285616_ - (lambda (_g285526285551_) + _g285456285473_)))) + (_g285454285546_ + (lambda (_g285456285481_) (if (let () (declare (not safe)) - (gx#stx-pair? _g285526285551_)) - (let ((_e285532285554_ + (gx#stx-pair? _g285456285481_)) + (let ((_e285462285484_ (let () (declare (not safe)) - (gx#syntax-e _g285526285551_)))) - (let ((_hd285531285558_ + (gx#syntax-e _g285456285481_)))) + (let ((_hd285461285488_ (let () (declare (not safe)) - (##car _e285532285554_))) - (_tl285530285561_ + (##car _e285462285484_))) + (_tl285460285491_ (let () (declare (not safe)) - (##cdr _e285532285554_)))) + (##cdr _e285462285484_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285530285561_)) - (let ((_e285535285564_ + (gx#stx-pair? _tl285460285491_)) + (let ((_e285465285494_ (let () (declare (not safe)) - (gx#syntax-e _tl285530285561_)))) - (let ((_hd285534285568_ + (gx#syntax-e _tl285460285491_)))) + (let ((_hd285464285498_ (let () (declare (not safe)) - (##car _e285535285564_))) - (_tl285533285571_ + (##car _e285465285494_))) + (_tl285463285501_ (let () (declare (not safe)) - (##cdr _e285535285564_)))) + (##cdr _e285465285494_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285533285571_)) - (let ((_e285538285574_ + (gx#stx-pair? _tl285463285501_)) + (let ((_e285468285504_ (let () (declare (not safe)) - (gx#syntax-e _tl285533285571_)))) - (let ((_hd285537285578_ + (gx#syntax-e _tl285463285501_)))) + (let ((_hd285467285508_ (let () (declare (not safe)) - (##car _e285538285574_))) - (_tl285536285581_ + (##car _e285468285504_))) + (_tl285466285511_ (let () (declare (not safe)) - (##cdr _e285538285574_)))) + (##cdr _e285468285504_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285536285581_)) - (let ((_e285541285584_ + (gx#stx-pair? _tl285466285511_)) + (let ((_e285471285514_ (let () (declare (not safe)) (gx#syntax-e - _tl285536285581_)))) - (let ((_hd285540285588_ + _tl285466285511_)))) + (let ((_hd285470285518_ (let () (declare (not safe)) - (##car _e285541285584_))) - (_tl285539285591_ + (##car _e285471285514_))) + (_tl285469285521_ (let () (declare (not safe)) - (##cdr _e285541285584_)))) + (##cdr _e285471285514_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285539285591_)) - ((lambda (_L285594_ - _L285596_ - _L285597_) - (let ((__tmp292121 + _tl285469285521_)) + ((lambda (_L285524_ + _L285526_ + _L285527_) + (let ((__tmp292051 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!mutator))) - (__tmp292112 - (let ((__tmp292118 - (let ((__tmp292120 + (__tmp292042 + (let ((__tmp292048 + (let ((__tmp292050 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292119 + (__tmp292049 (let () (declare (not safe)) - (cons _L285597_ '())))) + (cons _L285527_ '())))) (declare (not safe)) - (cons __tmp292120 __tmp292119))) - (__tmp292113 - (let ((__tmp292115 - (let ((__tmp292117 + (cons __tmp292050 __tmp292049))) + (__tmp292043 + (let ((__tmp292045 + (let ((__tmp292047 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292116 + (__tmp292046 (let () (declare (not safe)) - (cons _L285596_ '())))) + (cons _L285526_ '())))) (declare (not safe)) - (cons __tmp292117 __tmp292116))) - (__tmp292114 + (cons __tmp292047 __tmp292046))) + (__tmp292044 (let () (declare (not safe)) - (cons _L285594_ '())))) + (cons _L285524_ '())))) (declare (not safe)) - (cons __tmp292115 __tmp292114)))) + (cons __tmp292045 __tmp292044)))) (declare (not safe)) - (cons __tmp292118 __tmp292113)))) + (cons __tmp292048 __tmp292043)))) (declare (not safe)) - (cons __tmp292121 __tmp292112))) + (cons __tmp292051 __tmp292042))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd285540285588_ - _hd285537285578_ - _hd285534285568_) - (_g285525285547_ - _g285526285551_)))) - (_g285525285547_ - _g285526285551_)))) - (_g285525285547_ _g285526285551_)))) - (_g285525285547_ _g285526285551_)))) - (_g285525285547_ _g285526285551_))))) - (_g285524285616_ _$stx285521_)))) + _hd285470285518_ + _hd285467285508_ + _hd285464285498_) + (_g285455285477_ + _g285456285481_)))) + (_g285455285477_ + _g285456285481_)))) + (_g285455285477_ _g285456285481_)))) + (_g285455285477_ _g285456285481_)))) + (_g285455285477_ _g285456285481_))))) + (_g285454285546_ _$stx285451_)))) (define |gxc[:0:]#@lambda| - (lambda (_$stx285620_) - (let* ((___stx291629291630_ _$stx285620_) - (_g285628285696_ + (lambda (_$stx285550_) + (let* ((___stx291559291560_ _$stx285550_) + (_g285558285626_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx291629291630_))))) - (let ((___kont291632291633_ - (lambda (_L285974_ _L285976_) - (let ((__tmp292137 + ___stx291559291560_))))) + (let ((___kont291562291563_ + (lambda (_L285904_ _L285906_) + (let ((__tmp292067 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp292122 - (let ((__tmp292133 - (let ((__tmp292136 + (__tmp292052 + (let ((__tmp292063 + (let ((__tmp292066 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292134 - (let ((__tmp292135 + (__tmp292064 + (let ((__tmp292065 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp292135 '())))) + (cons __tmp292065 '())))) (declare (not safe)) - (cons __tmp292136 __tmp292134))) - (__tmp292123 - (let ((__tmp292130 - (let ((__tmp292132 + (cons __tmp292066 __tmp292064))) + (__tmp292053 + (let ((__tmp292060 + (let ((__tmp292062 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292131 + (__tmp292061 (let () (declare (not safe)) - (cons _L285976_ '())))) + (cons _L285906_ '())))) (declare (not safe)) - (cons __tmp292132 __tmp292131))) - (__tmp292124 - (let ((__tmp292125 - (let ((__tmp292126 - (let ((__tmp292127 - (let ((__tmp292129 + (cons __tmp292062 __tmp292061))) + (__tmp292054 + (let ((__tmp292055 + (let ((__tmp292056 + (let ((__tmp292057 + (let ((__tmp292059 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292128 - (let () (declare (not safe)) (cons _L285974_ '())))) + (__tmp292058 + (let () (declare (not safe)) (cons _L285904_ '())))) (declare (not safe)) - (cons __tmp292129 __tmp292128)))) + (cons __tmp292059 __tmp292058)))) (declare (not safe)) - (cons __tmp292127 '())))) + (cons __tmp292057 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L285974_ __tmp292126)))) + (cons _L285904_ __tmp292056)))) (declare (not safe)) - (cons '#f __tmp292125)))) + (cons '#f __tmp292055)))) (declare (not safe)) - (cons __tmp292130 __tmp292124)))) + (cons __tmp292060 __tmp292054)))) (declare (not safe)) - (cons __tmp292133 __tmp292123)))) + (cons __tmp292063 __tmp292053)))) (declare (not safe)) - (cons __tmp292137 __tmp292122)))) - (___kont291634291635_ - (lambda (_L285905_ _L285907_) - (let ((__tmp292138 - (let ((__tmp292139 - (let ((__tmp292140 + (cons __tmp292067 __tmp292052)))) + (___kont291564291565_ + (lambda (_L285835_ _L285837_) + (let ((__tmp292068 + (let ((__tmp292069 + (let ((__tmp292070 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L285905_ __tmp292140)))) + (cons _L285835_ __tmp292070)))) (declare (not safe)) - (cons 'primitive: __tmp292139)))) + (cons 'primitive: __tmp292069)))) (declare (not safe)) - (cons _L285907_ __tmp292138)))) - (___kont291636291637_ - (lambda (_L285844_ _L285846_) - (let ((__tmp292154 + (cons _L285837_ __tmp292068)))) + (___kont291566291567_ + (lambda (_L285774_ _L285776_) + (let ((__tmp292084 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) - (__tmp292141 - (let ((__tmp292150 - (let ((__tmp292153 + (__tmp292071 + (let ((__tmp292080 + (let ((__tmp292083 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292151 - (let ((__tmp292152 + (__tmp292081 + (let ((__tmp292082 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp292152 '())))) + (cons __tmp292082 '())))) (declare (not safe)) - (cons __tmp292153 __tmp292151))) - (__tmp292142 - (let ((__tmp292147 - (let ((__tmp292149 + (cons __tmp292083 __tmp292081))) + (__tmp292072 + (let ((__tmp292077 + (let ((__tmp292079 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292148 + (__tmp292078 (let () (declare (not safe)) - (cons _L285846_ '())))) + (cons _L285776_ '())))) (declare (not safe)) - (cons __tmp292149 __tmp292148))) - (__tmp292143 - (let ((__tmp292144 - (let ((__tmp292146 + (cons __tmp292079 __tmp292078))) + (__tmp292073 + (let ((__tmp292074 + (let ((__tmp292076 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292145 + (__tmp292075 (let () (declare (not safe)) - (cons _L285844_ '())))) + (cons _L285774_ '())))) (declare (not safe)) - (cons __tmp292146 - __tmp292145)))) + (cons __tmp292076 + __tmp292075)))) (declare (not safe)) - (cons __tmp292144 '())))) + (cons __tmp292074 '())))) (declare (not safe)) - (cons __tmp292147 __tmp292143)))) + (cons __tmp292077 __tmp292073)))) (declare (not safe)) - (cons __tmp292150 __tmp292142)))) + (cons __tmp292080 __tmp292072)))) (declare (not safe)) - (cons __tmp292154 __tmp292141)))) - (___kont291638291639_ - (lambda (_L285776_ _L285778_) - (let ((__tmp292168 + (cons __tmp292084 __tmp292071)))) + (___kont291568291569_ + (lambda (_L285706_ _L285708_) + (let ((__tmp292098 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp292155 - (let ((__tmp292164 - (let ((__tmp292167 + (__tmp292085 + (let ((__tmp292094 + (let ((__tmp292097 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292165 - (let ((__tmp292166 + (__tmp292095 + (let ((__tmp292096 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp292166 '())))) + (cons __tmp292096 '())))) (declare (not safe)) - (cons __tmp292167 __tmp292165))) - (__tmp292156 - (let ((__tmp292161 - (let ((__tmp292163 + (cons __tmp292097 __tmp292095))) + (__tmp292086 + (let ((__tmp292091 + (let ((__tmp292093 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292162 + (__tmp292092 (let () (declare (not safe)) - (cons _L285778_ '())))) + (cons _L285708_ '())))) (declare (not safe)) - (cons __tmp292163 __tmp292162))) - (__tmp292157 - (let ((__tmp292158 - (let ((__tmp292160 + (cons __tmp292093 __tmp292092))) + (__tmp292087 + (let ((__tmp292088 + (let ((__tmp292090 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292159 + (__tmp292089 (let () (declare (not safe)) - (cons _L285776_ '())))) + (cons _L285706_ '())))) (declare (not safe)) - (cons __tmp292160 - __tmp292159)))) + (cons __tmp292090 + __tmp292089)))) (declare (not safe)) - (cons __tmp292158 '())))) + (cons __tmp292088 '())))) (declare (not safe)) - (cons __tmp292161 __tmp292157)))) + (cons __tmp292091 __tmp292087)))) (declare (not safe)) - (cons __tmp292164 __tmp292156)))) + (cons __tmp292094 __tmp292086)))) (declare (not safe)) - (cons __tmp292168 __tmp292155)))) - (___kont291640291641_ - (lambda (_L285723_ _L285725_) - (let ((__tmp292169 - (let ((__tmp292170 + (cons __tmp292098 __tmp292085)))) + (___kont291570291571_ + (lambda (_L285653_ _L285655_) + (let ((__tmp292099 + (let ((__tmp292100 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L285723_ __tmp292170)))) + (cons _L285653_ __tmp292100)))) (declare (not safe)) - (cons _L285725_ __tmp292169))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx291629291630_)) - (let ((_e285634285930_ + (cons _L285655_ __tmp292099))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx291559291560_)) + (let ((_e285564285860_ (let () (declare (not safe)) - (gx#syntax-e ___stx291629291630_)))) - (let ((_tl285632285937_ - (let () (declare (not safe)) (##cdr _e285634285930_))) - (_hd285633285934_ - (let () (declare (not safe)) (##car _e285634285930_)))) + (gx#syntax-e ___stx291559291560_)))) + (let ((_tl285562285867_ + (let () (declare (not safe)) (##cdr _e285564285860_))) + (_hd285563285864_ + (let () (declare (not safe)) (##car _e285564285860_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285632285937_)) - (let ((_e285637285940_ + (gx#stx-pair? _tl285562285867_)) + (let ((_e285567285870_ (let () (declare (not safe)) - (gx#syntax-e _tl285632285937_)))) - (let ((_tl285635285947_ + (gx#syntax-e _tl285562285867_)))) + (let ((_tl285565285877_ (let () (declare (not safe)) - (##cdr _e285637285940_))) - (_hd285636285944_ + (##cdr _e285567285870_))) + (_hd285566285874_ (let () (declare (not safe)) - (##car _e285637285940_)))) + (##car _e285567285870_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285635285947_)) - (let ((_e285640285950_ + (gx#stx-pair? _tl285565285877_)) + (let ((_e285570285880_ (let () (declare (not safe)) - (gx#syntax-e _tl285635285947_)))) - (let ((_tl285638285957_ + (gx#syntax-e _tl285565285877_)))) + (let ((_tl285568285887_ (let () (declare (not safe)) - (##cdr _e285640285950_))) - (_hd285639285954_ + (##cdr _e285570285880_))) + (_hd285569285884_ (let () (declare (not safe)) - (##car _e285640285950_)))) + (##car _e285570285880_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd285639285954_)) - (let ((_e285641285960_ + (gx#stx-datum? _hd285569285884_)) + (let ((_e285571285890_ (let () (declare (not safe)) - (gx#stx-e _hd285639285954_)))) + (gx#stx-e _hd285569285884_)))) (if (let () (declare (not safe)) - (equal? _e285641285960_ + (equal? _e285571285890_ 'inline:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl285638285957_)) - (let ((_e285644285964_ + _tl285568285887_)) + (let ((_e285574285894_ (let () (declare (not safe)) (gx#syntax-e - _tl285638285957_)))) - (let ((_tl285642285971_ + _tl285568285887_)))) + (let ((_tl285572285901_ (let () (declare (not safe)) - (##cdr _e285644285964_))) - (_hd285643285968_ + (##cdr _e285574285894_))) + (_hd285573285898_ (let () (declare (not safe)) - (##car _e285644285964_)))) + (##car _e285574285894_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285642285971_)) - (___kont291632291633_ - _hd285643285968_ - _hd285636285944_) + _tl285572285901_)) + (___kont291562291563_ + _hd285573285898_ + _hd285566285874_) (if (let () (declare (not safe)) (gx#stx-datum? - _hd285636285944_)) - (let ((_e285653285891_ + _hd285566285874_)) + (let ((_e285583285821_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd285636285944_)))) + (gx#stx-e _hd285566285874_)))) (declare (not safe)) - (_g285628285696_)) - (let () (declare (not safe)) (_g285628285696_)))))) + (_g285558285626_)) + (let () (declare (not safe)) (_g285558285626_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _hd285636285944_)) - (let ((_e285653285891_ + _hd285566285874_)) + (let ((_e285583285821_ (let () (declare (not safe)) (gx#stx-e - _hd285636285944_)))) + _hd285566285874_)))) (if (let () (declare (not safe)) - (equal? _e285653285891_ + (equal? _e285583285821_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-null? _tl285638285957_)) - (___kont291634291635_ _hd285639285954_ _hd285633285934_) - (let () (declare (not safe)) (_g285628285696_))) + (gx#stx-null? _tl285568285887_)) + (___kont291564291565_ _hd285569285884_ _hd285563285864_) + (let () (declare (not safe)) (_g285558285626_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285638285957_)) - (___kont291638291639_ _hd285639285954_ _hd285636285944_) - (let () (declare (not safe)) (_g285628285696_))))) + (gx#stx-null? _tl285568285887_)) + (___kont291568291569_ _hd285569285884_ _hd285566285874_) + (let () (declare (not safe)) (_g285558285626_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl285638285957_)) - (___kont291638291639_ - _hd285639285954_ - _hd285636285944_) + _tl285568285887_)) + (___kont291568291569_ + _hd285569285884_ + _hd285566285874_) (let () (declare (not safe)) - (_g285628285696_))))) + (_g285558285626_))))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd285636285944_)) - (let ((_e285653285891_ + _hd285566285874_)) + (let ((_e285583285821_ (let () (declare (not safe)) (gx#stx-e - _hd285636285944_)))) + _hd285566285874_)))) (if (let () (declare (not safe)) - (equal? _e285653285891_ + (equal? _e285583285821_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl285638285957_)) - (___kont291634291635_ - _hd285639285954_ - _hd285633285934_) + _tl285568285887_)) + (___kont291564291565_ + _hd285569285884_ + _hd285563285864_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl285638285957_)) - (let ((_e285671285834_ + (gx#stx-pair? _tl285568285887_)) + (let ((_e285601285764_ (let () (declare (not safe)) - (gx#syntax-e _tl285638285957_)))) - (let ((_tl285669285841_ + (gx#syntax-e _tl285568285887_)))) + (let ((_tl285599285771_ (let () (declare (not safe)) - (##cdr _e285671285834_))) - (_hd285670285838_ + (##cdr _e285601285764_))) + (_hd285600285768_ (let () (declare (not safe)) - (##car _e285671285834_)))) + (##car _e285601285764_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285669285841_)) - (___kont291636291637_ - _hd285670285838_ - _hd285639285954_) + (gx#stx-null? _tl285599285771_)) + (___kont291566291567_ + _hd285600285768_ + _hd285569285884_) (let () (declare (not safe)) - (_g285628285696_))))) - (let () (declare (not safe)) (_g285628285696_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl285638285957_)) - (___kont291638291639_ _hd285639285954_ _hd285636285944_) - (let () (declare (not safe)) (_g285628285696_))))) + (_g285558285626_))))) + (let () (declare (not safe)) (_g285558285626_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl285568285887_)) + (___kont291568291569_ _hd285569285884_ _hd285566285874_) + (let () (declare (not safe)) (_g285558285626_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl285638285957_)) - (___kont291638291639_ - _hd285639285954_ - _hd285636285944_) + _tl285568285887_)) + (___kont291568291569_ + _hd285569285884_ + _hd285566285874_) (let () (declare (not safe)) - (_g285628285696_)))))) + (_g285558285626_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd285636285944_)) - (let ((_e285653285891_ + (gx#stx-datum? _hd285566285874_)) + (let ((_e285583285821_ (let () (declare (not safe)) (gx#stx-e - _hd285636285944_)))) + _hd285566285874_)))) (if (let () (declare (not safe)) - (equal? _e285653285891_ + (equal? _e285583285821_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl285638285957_)) - (___kont291634291635_ - _hd285639285954_ - _hd285633285934_) + _tl285568285887_)) + (___kont291564291565_ + _hd285569285884_ + _hd285563285864_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl285638285957_)) - (let ((_e285671285834_ + _tl285568285887_)) + (let ((_e285601285764_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl285638285957_)))) - (let ((_tl285669285841_ - (let () (declare (not safe)) (##cdr _e285671285834_))) - (_hd285670285838_ + (gx#syntax-e _tl285568285887_)))) + (let ((_tl285599285771_ + (let () (declare (not safe)) (##cdr _e285601285764_))) + (_hd285600285768_ (let () (declare (not safe)) - (##car _e285671285834_)))) + (##car _e285601285764_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285669285841_)) - (___kont291636291637_ - _hd285670285838_ - _hd285639285954_) - (let () (declare (not safe)) (_g285628285696_))))) - (let () (declare (not safe)) (_g285628285696_)))) + (gx#stx-null? _tl285599285771_)) + (___kont291566291567_ + _hd285600285768_ + _hd285569285884_) + (let () (declare (not safe)) (_g285558285626_))))) + (let () (declare (not safe)) (_g285558285626_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl285638285957_)) - (___kont291638291639_ - _hd285639285954_ - _hd285636285944_) + _tl285568285887_)) + (___kont291568291569_ + _hd285569285884_ + _hd285566285874_) (let () (declare (not safe)) - (_g285628285696_))))) + (_g285558285626_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285638285957_)) - (___kont291638291639_ - _hd285639285954_ - _hd285636285944_) + _tl285568285887_)) + (___kont291568291569_ + _hd285569285884_ + _hd285566285874_) (let () (declare (not safe)) - (_g285628285696_))))))) + (_g285558285626_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd285636285944_)) - (let ((_e285653285891_ + (gx#stx-datum? _hd285566285874_)) + (let ((_e285583285821_ (let () (declare (not safe)) - (gx#stx-e _hd285636285944_)))) + (gx#stx-e _hd285566285874_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285635285947_)) - (___kont291640291641_ - _hd285636285944_ - _hd285633285934_) + (gx#stx-null? _tl285565285877_)) + (___kont291570291571_ + _hd285566285874_ + _hd285563285864_) (let () (declare (not safe)) - (_g285628285696_)))) + (_g285558285626_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285635285947_)) - (___kont291640291641_ - _hd285636285944_ - _hd285633285934_) + (gx#stx-null? _tl285565285877_)) + (___kont291570291571_ + _hd285566285874_ + _hd285563285864_) (let () (declare (not safe)) - (_g285628285696_))))))) - (let () (declare (not safe)) (_g285628285696_))))) - (let () (declare (not safe)) (_g285628285696_))))))) + (_g285558285626_))))))) + (let () (declare (not safe)) (_g285558285626_))))) + (let () (declare (not safe)) (_g285558285626_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx285998_) - (let* ((___stx291769291770_ _$stx285998_) - (_g286003286058_ + (lambda (_$stx285928_) + (let* ((___stx291699291700_ _$stx285928_) + (_g285933285988_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx291769291770_))))) - (let ((___kont291772291773_ - (lambda (_L286243_ _L286245_) - (let ((__tmp292186 + ___stx291699291700_))))) + (let ((___kont291702291703_ + (lambda (_L286173_ _L286175_) + (let ((__tmp292116 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-case-lambda))) - (__tmp292171 - (let ((__tmp292182 - (let ((__tmp292185 + (__tmp292101 + (let ((__tmp292112 + (let ((__tmp292115 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292183 - (let ((__tmp292184 + (__tmp292113 + (let ((__tmp292114 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp292184 '())))) + (cons __tmp292114 '())))) (declare (not safe)) - (cons __tmp292185 __tmp292183))) - (__tmp292172 - (let ((__tmp292173 - (let ((__tmp292181 + (cons __tmp292115 __tmp292113))) + (__tmp292102 + (let ((__tmp292103 + (let ((__tmp292111 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp292174 + (__tmp292104 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L286243_ - _L286245_)) - (let ((__tmp292175 - (lambda (_g286262286266_ - _g286263286269_ - _g286264286271_) - (let ((__tmp292176 - (let ((__tmp292180 + _L286173_ + _L286175_)) + (let ((__tmp292105 + (lambda (_g286192286196_ + _g286193286199_ + _g286194286201_) + (let ((__tmp292106 + (let ((__tmp292110 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp292177 - (let ((__tmp292178 - (let ((__tmp292179 + (__tmp292107 + (let ((__tmp292108 + (let ((__tmp292109 (let () (declare (not safe)) - (cons _g286262286266_ '())))) + (cons _g286192286196_ '())))) (declare (not safe)) - (cons _g286263286269_ __tmp292179)))) + (cons _g286193286199_ __tmp292109)))) (declare (not safe)) - (cons 'primitive: __tmp292178)))) + (cons 'primitive: __tmp292108)))) (declare (not safe)) - (cons __tmp292180 __tmp292177)))) + (cons __tmp292110 __tmp292107)))) (declare (not safe)) - (cons __tmp292176 _g286264286271_))))) + (cons __tmp292106 _g286194286201_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp292175 + (foldr2 __tmp292105 '() - _L286243_ - _L286245_))))) + _L286173_ + _L286175_))))) (declare (not safe)) - (cons __tmp292181 __tmp292174)))) + (cons __tmp292111 __tmp292104)))) (declare (not safe)) - (cons __tmp292173 '())))) + (cons __tmp292103 '())))) (declare (not safe)) - (cons __tmp292182 __tmp292172)))) + (cons __tmp292112 __tmp292102)))) (declare (not safe)) - (cons __tmp292186 __tmp292171)))) - (___kont291776291777_ - (lambda (_L286129_ _L286131_) - (let ((__tmp292201 + (cons __tmp292116 __tmp292101)))) + (___kont291706291707_ + (lambda (_L286059_ _L286061_) + (let ((__tmp292131 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda))) - (__tmp292187 - (let ((__tmp292197 - (let ((__tmp292200 + (__tmp292117 + (let ((__tmp292127 + (let ((__tmp292130 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292198 - (let ((__tmp292199 + (__tmp292128 + (let ((__tmp292129 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp292199 '())))) + (cons __tmp292129 '())))) (declare (not safe)) - (cons __tmp292200 __tmp292198))) - (__tmp292188 - (let ((__tmp292189 - (let ((__tmp292196 + (cons __tmp292130 __tmp292128))) + (__tmp292118 + (let ((__tmp292119 + (let ((__tmp292126 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp292190 + (__tmp292120 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L286129_ - _L286131_)) - (let ((__tmp292191 - (lambda (_g286146286150_ - _g286147286153_ - _g286148286155_) - (let ((__tmp292192 - (let ((__tmp292195 + _L286059_ + _L286061_)) + (let ((__tmp292121 + (lambda (_g286076286080_ + _g286077286083_ + _g286078286085_) + (let ((__tmp292122 + (let ((__tmp292125 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp292193 - (let ((__tmp292194 + (__tmp292123 + (let ((__tmp292124 (let () (declare (not safe)) - (cons _g286146286150_ '())))) + (cons _g286076286080_ '())))) (declare (not safe)) - (cons _g286147286153_ __tmp292194)))) + (cons _g286077286083_ __tmp292124)))) (declare (not safe)) - (cons __tmp292195 __tmp292193)))) + (cons __tmp292125 __tmp292123)))) (declare (not safe)) - (cons __tmp292192 _g286148286155_))))) + (cons __tmp292122 _g286078286085_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp292191 + (foldr2 __tmp292121 '() - _L286129_ - _L286131_))))) + _L286059_ + _L286061_))))) (declare (not safe)) - (cons __tmp292196 __tmp292190)))) + (cons __tmp292126 __tmp292120)))) (declare (not safe)) - (cons __tmp292189 '())))) + (cons __tmp292119 '())))) (declare (not safe)) - (cons __tmp292197 __tmp292188)))) + (cons __tmp292127 __tmp292118)))) (declare (not safe)) - (cons __tmp292201 __tmp292187))))) - (let* ((___match291820291821_ - (lambda (_e286035286065_ - _hd286034286069_ - _tl286033286072_ - ___splice291778291779_ - _target286036286075_ - _tl286038286078_) - (letrec ((_loop286039286081_ - (lambda (_hd286037286085_ - _dispatch286043286088_ - _arity286044286090_) + (cons __tmp292131 __tmp292117))))) + (let* ((___match291750291751_ + (lambda (_e285965285995_ + _hd285964285999_ + _tl285963286002_ + ___splice291708291709_ + _target285966286005_ + _tl285968286008_) + (letrec ((_loop285969286011_ + (lambda (_hd285967286015_ + _dispatch285973286018_ + _arity285974286020_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd286037286085_)) - (let ((_e286040286093_ + (gx#stx-pair? _hd285967286015_)) + (let ((_e285970286023_ (let () (declare (not safe)) - (gx#syntax-e _hd286037286085_)))) - (let ((_lp-tl286042286100_ + (gx#syntax-e _hd285967286015_)))) + (let ((_lp-tl285972286030_ (let () (declare (not safe)) - (##cdr _e286040286093_))) - (_lp-hd286041286097_ + (##cdr _e285970286023_))) + (_lp-hd285971286027_ (let () (declare (not safe)) - (##car _e286040286093_)))) + (##car _e285970286023_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd286041286097_)) - (let ((_e286049286103_ + _lp-hd285971286027_)) + (let ((_e285979286033_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd286041286097_)))) - (let ((_tl286047286110_ + _lp-hd285971286027_)))) + (let ((_tl285977286040_ (let () (declare (not safe)) - (##cdr _e286049286103_))) - (_hd286048286107_ + (##cdr _e285979286033_))) + (_hd285978286037_ (let () (declare (not safe)) - (##car _e286049286103_)))) + (##car _e285979286033_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl286047286110_)) - (let ((_e286052286113_ + _tl285977286040_)) + (let ((_e285982286043_ (let () (declare (not safe)) (gx#syntax-e - _tl286047286110_)))) - (let ((_tl286050286120_ + _tl285977286040_)))) + (let ((_tl285980286050_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e286052286113_))) - (_hd286051286117_ - (let () (declare (not safe)) (##car _e286052286113_)))) + (##cdr _e285982286043_))) + (_hd285981286047_ + (let () (declare (not safe)) (##car _e285982286043_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286050286120_)) - (_loop286039286081_ - _lp-tl286042286100_ + (gx#stx-null? _tl285980286050_)) + (_loop285969286011_ + _lp-tl285972286030_ (let () (declare (not safe)) - (cons _hd286051286117_ _dispatch286043286088_)) + (cons _hd285981286047_ _dispatch285973286018_)) (let () (declare (not safe)) - (cons _hd286048286107_ _arity286044286090_))) - (let () (declare (not safe)) (_g286003286058_))))) + (cons _hd285978286037_ _arity285974286020_))) + (let () (declare (not safe)) (_g285933285988_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g286003286058_))))) + (_g285933285988_))))) (let () (declare (not safe)) - (_g286003286058_))))) - (let ((_arity286046286126_ - (reverse _arity286044286090_)) - (_dispatch286045286123_ - (reverse _dispatch286043286088_))) - (___kont291776291777_ - _dispatch286045286123_ - _arity286046286126_)))))) - (_loop286039286081_ _target286036286075_ '() '())))) - (___match291812291813_ - (lambda (_e286035286065_ _hd286034286069_ _tl286033286072_) + (_g285933285988_))))) + (let ((_arity285976286056_ + (reverse _arity285974286020_)) + (_dispatch285975286053_ + (reverse _dispatch285973286018_))) + (___kont291706291707_ + _dispatch285975286053_ + _arity285976286056_)))))) + (_loop285969286011_ _target285966286005_ '() '())))) + (___match291742291743_ + (lambda (_e285965285995_ _hd285964285999_ _tl285963286002_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl286033286072_)) - (let ((___splice291778291779_ + (gx#stx-pair/null? _tl285963286002_)) + (let ((___splice291708291709_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286033286072_ + _tl285963286002_ '0)))) - (let ((_tl286038286078_ + (let ((_tl285968286008_ (let () (declare (not safe)) - (##vector-ref ___splice291778291779_ '1))) - (_target286036286075_ + (##vector-ref ___splice291708291709_ '1))) + (_target285966286005_ (let () (declare (not safe)) - (##vector-ref ___splice291778291779_ '0)))) + (##vector-ref ___splice291708291709_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286038286078_)) - (___match291820291821_ - _e286035286065_ - _hd286034286069_ - _tl286033286072_ - ___splice291778291779_ - _target286036286075_ - _tl286038286078_) + (gx#stx-null? _tl285968286008_)) + (___match291750291751_ + _e285965285995_ + _hd285964285999_ + _tl285963286002_ + ___splice291708291709_ + _target285966286005_ + _tl285968286008_) (let () (declare (not safe)) - (_g286003286058_))))) - (let () (declare (not safe)) (_g286003286058_))))) - (___match291806291807_ - (lambda (_e286009286165_ - _hd286008286169_ - _tl286007286172_ - _e286012286175_ - _hd286011286179_ - _tl286010286182_ - _e286013286185_ - ___splice291774291775_ - _target286014286189_ - _tl286016286192_) - (letrec ((_loop286017286195_ - (lambda (_hd286015286199_ - _dispatch286021286202_ - _arity286022286204_) + (_g285933285988_))))) + (let () (declare (not safe)) (_g285933285988_))))) + (___match291736291737_ + (lambda (_e285939286095_ + _hd285938286099_ + _tl285937286102_ + _e285942286105_ + _hd285941286109_ + _tl285940286112_ + _e285943286115_ + ___splice291704291705_ + _target285944286119_ + _tl285946286122_) + (letrec ((_loop285947286125_ + (lambda (_hd285945286129_ + _dispatch285951286132_ + _arity285952286134_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd286015286199_)) - (let ((_e286018286207_ + (gx#stx-pair? _hd285945286129_)) + (let ((_e285948286137_ (let () (declare (not safe)) - (gx#syntax-e _hd286015286199_)))) - (let ((_lp-tl286020286214_ + (gx#syntax-e _hd285945286129_)))) + (let ((_lp-tl285950286144_ (let () (declare (not safe)) - (##cdr _e286018286207_))) - (_lp-hd286019286211_ + (##cdr _e285948286137_))) + (_lp-hd285949286141_ (let () (declare (not safe)) - (##car _e286018286207_)))) + (##car _e285948286137_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd286019286211_)) - (let ((_e286027286217_ + _lp-hd285949286141_)) + (let ((_e285957286147_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd286019286211_)))) - (let ((_tl286025286224_ + _lp-hd285949286141_)))) + (let ((_tl285955286154_ (let () (declare (not safe)) - (##cdr _e286027286217_))) - (_hd286026286221_ + (##cdr _e285957286147_))) + (_hd285956286151_ (let () (declare (not safe)) - (##car _e286027286217_)))) + (##car _e285957286147_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl286025286224_)) - (let ((_e286030286227_ + _tl285955286154_)) + (let ((_e285960286157_ (let () (declare (not safe)) (gx#syntax-e - _tl286025286224_)))) - (let ((_tl286028286234_ + _tl285955286154_)))) + (let ((_tl285958286164_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e286030286227_))) - (_hd286029286231_ - (let () (declare (not safe)) (##car _e286030286227_)))) + (##cdr _e285960286157_))) + (_hd285959286161_ + (let () (declare (not safe)) (##car _e285960286157_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286028286234_)) - (_loop286017286195_ - _lp-tl286020286214_ + (gx#stx-null? _tl285958286164_)) + (_loop285947286125_ + _lp-tl285950286144_ (let () (declare (not safe)) - (cons _hd286029286231_ _dispatch286021286202_)) + (cons _hd285959286161_ _dispatch285951286132_)) (let () (declare (not safe)) - (cons _hd286026286221_ _arity286022286204_))) - (___match291812291813_ - _e286009286165_ - _hd286008286169_ - _tl286007286172_)))) + (cons _hd285956286151_ _arity285952286134_))) + (___match291742291743_ + _e285939286095_ + _hd285938286099_ + _tl285937286102_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match291812291813_ - _e286009286165_ - _hd286008286169_ - _tl286007286172_)))) - (___match291812291813_ - _e286009286165_ - _hd286008286169_ - _tl286007286172_)))) - (let ((_arity286024286240_ - (reverse _arity286022286204_)) - (_dispatch286023286237_ - (reverse _dispatch286021286202_))) - (___kont291772291773_ - _dispatch286023286237_ - _arity286024286240_)))))) - (_loop286017286195_ _target286014286189_ '() '()))))) + (___match291742291743_ + _e285939286095_ + _hd285938286099_ + _tl285937286102_)))) + (___match291742291743_ + _e285939286095_ + _hd285938286099_ + _tl285937286102_)))) + (let ((_arity285954286170_ + (reverse _arity285952286134_)) + (_dispatch285953286167_ + (reverse _dispatch285951286132_))) + (___kont291702291703_ + _dispatch285953286167_ + _arity285954286170_)))))) + (_loop285947286125_ _target285944286119_ '() '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx291769291770_)) - (let ((_e286009286165_ + (gx#stx-pair? ___stx291699291700_)) + (let ((_e285939286095_ (let () (declare (not safe)) - (gx#syntax-e ___stx291769291770_)))) - (let ((_tl286007286172_ - (let () (declare (not safe)) (##cdr _e286009286165_))) - (_hd286008286169_ + (gx#syntax-e ___stx291699291700_)))) + (let ((_tl285937286102_ + (let () (declare (not safe)) (##cdr _e285939286095_))) + (_hd285938286099_ (let () (declare (not safe)) - (##car _e286009286165_)))) + (##car _e285939286095_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286007286172_)) - (let ((_e286012286175_ + (gx#stx-pair? _tl285937286102_)) + (let ((_e285942286105_ (let () (declare (not safe)) - (gx#syntax-e _tl286007286172_)))) - (let ((_tl286010286182_ + (gx#syntax-e _tl285937286102_)))) + (let ((_tl285940286112_ (let () (declare (not safe)) - (##cdr _e286012286175_))) - (_hd286011286179_ + (##cdr _e285942286105_))) + (_hd285941286109_ (let () (declare (not safe)) - (##car _e286012286175_)))) + (##car _e285942286105_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd286011286179_)) - (let ((_e286013286185_ + (gx#stx-datum? _hd285941286109_)) + (let ((_e285943286115_ (let () (declare (not safe)) - (gx#stx-e _hd286011286179_)))) + (gx#stx-e _hd285941286109_)))) (if (let () (declare (not safe)) - (equal? _e286013286185_ 'primitive:)) + (equal? _e285943286115_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl286010286182_)) - (let ((___splice291774291775_ + _tl285940286112_)) + (let ((___splice291704291705_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286010286182_ + _tl285940286112_ '0)))) - (let ((_tl286016286192_ + (let ((_tl285946286122_ (let () (declare (not safe)) (##vector-ref - ___splice291774291775_ + ___splice291704291705_ '1))) - (_target286014286189_ + (_target285944286119_ (let () (declare (not safe)) (##vector-ref - ___splice291774291775_ + ___splice291704291705_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl286016286192_)) - (___match291806291807_ - _e286009286165_ - _hd286008286169_ - _tl286007286172_ - _e286012286175_ - _hd286011286179_ - _tl286010286182_ - _e286013286185_ - ___splice291774291775_ - _target286014286189_ - _tl286016286192_) + _tl285946286122_)) + (___match291736291737_ + _e285939286095_ + _hd285938286099_ + _tl285937286102_ + _e285942286105_ + _hd285941286109_ + _tl285940286112_ + _e285943286115_ + ___splice291704291705_ + _target285944286119_ + _tl285946286122_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl286007286172_)) - (let ((___splice291778291779_ + _tl285937286102_)) + (let ((___splice291708291709_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl286007286172_ '0)))) - (let ((_tl286038286078_ + (gx#syntax-split-splice _tl285937286102_ '0)))) + (let ((_tl285968286008_ (let () (declare (not safe)) - (##vector-ref ___splice291778291779_ '1))) - (_target286036286075_ + (##vector-ref ___splice291708291709_ '1))) + (_target285966286005_ (let () (declare (not safe)) - (##vector-ref ___splice291778291779_ '0)))) + (##vector-ref ___splice291708291709_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286038286078_)) - (___match291820291821_ - _e286009286165_ - _hd286008286169_ - _tl286007286172_ - ___splice291778291779_ - _target286036286075_ - _tl286038286078_) - (let () (declare (not safe)) (_g286003286058_))))) - (let () (declare (not safe)) (_g286003286058_)))))) + (gx#stx-null? _tl285968286008_)) + (___match291750291751_ + _e285939286095_ + _hd285938286099_ + _tl285937286102_ + ___splice291708291709_ + _target285966286005_ + _tl285968286008_) + (let () (declare (not safe)) (_g285933285988_))))) + (let () (declare (not safe)) (_g285933285988_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl286007286172_)) - (let ((___splice291778291779_ + _tl285937286102_)) + (let ((___splice291708291709_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286007286172_ + _tl285937286102_ '0)))) - (let ((_tl286038286078_ + (let ((_tl285968286008_ (let () (declare (not safe)) (##vector-ref - ___splice291778291779_ + ___splice291708291709_ '1))) - (_target286036286075_ + (_target285966286005_ (let () (declare (not safe)) (##vector-ref - ___splice291778291779_ + ___splice291708291709_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl286038286078_)) - (___match291820291821_ - _e286009286165_ - _hd286008286169_ - _tl286007286172_ - ___splice291778291779_ - _target286036286075_ - _tl286038286078_) + _tl285968286008_)) + (___match291750291751_ + _e285939286095_ + _hd285938286099_ + _tl285937286102_ + ___splice291708291709_ + _target285966286005_ + _tl285968286008_) (let () (declare (not safe)) - (_g286003286058_))))) + (_g285933285988_))))) (let () (declare (not safe)) - (_g286003286058_)))) + (_g285933285988_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl286007286172_)) - (let ((___splice291778291779_ + _tl285937286102_)) + (let ((___splice291708291709_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286007286172_ + _tl285937286102_ '0)))) - (let ((_tl286038286078_ + (let ((_tl285968286008_ (let () (declare (not safe)) (##vector-ref - ___splice291778291779_ + ___splice291708291709_ '1))) - (_target286036286075_ + (_target285966286005_ (let () (declare (not safe)) (##vector-ref - ___splice291778291779_ + ___splice291708291709_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl286038286078_)) - (___match291820291821_ - _e286009286165_ - _hd286008286169_ - _tl286007286172_ - ___splice291778291779_ - _target286036286075_ - _tl286038286078_) + _tl285968286008_)) + (___match291750291751_ + _e285939286095_ + _hd285938286099_ + _tl285937286102_ + ___splice291708291709_ + _target285966286005_ + _tl285968286008_) (let () (declare (not safe)) - (_g286003286058_))))) + (_g285933285988_))))) (let () (declare (not safe)) - (_g286003286058_))))) + (_g285933285988_))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl286007286172_)) - (let ((___splice291778291779_ + (gx#stx-pair/null? _tl285937286102_)) + (let ((___splice291708291709_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286007286172_ + _tl285937286102_ '0)))) - (let ((_tl286038286078_ + (let ((_tl285968286008_ (let () (declare (not safe)) (##vector-ref - ___splice291778291779_ + ___splice291708291709_ '1))) - (_target286036286075_ + (_target285966286005_ (let () (declare (not safe)) (##vector-ref - ___splice291778291779_ + ___splice291708291709_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286038286078_)) - (___match291820291821_ - _e286009286165_ - _hd286008286169_ - _tl286007286172_ - ___splice291778291779_ - _target286036286075_ - _tl286038286078_) + (gx#stx-null? _tl285968286008_)) + (___match291750291751_ + _e285939286095_ + _hd285938286099_ + _tl285937286102_ + ___splice291708291709_ + _target285966286005_ + _tl285968286008_) (let () (declare (not safe)) - (_g286003286058_))))) + (_g285933285988_))))) (let () (declare (not safe)) - (_g286003286058_)))))) + (_g285933285988_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl286007286172_)) - (let ((___splice291778291779_ + (gx#stx-pair/null? _tl285937286102_)) + (let ((___splice291708291709_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286007286172_ + _tl285937286102_ '0)))) - (let ((_tl286038286078_ + (let ((_tl285968286008_ (let () (declare (not safe)) (##vector-ref - ___splice291778291779_ + ___splice291708291709_ '1))) - (_target286036286075_ + (_target285966286005_ (let () (declare (not safe)) (##vector-ref - ___splice291778291779_ + ___splice291708291709_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286038286078_)) - (___match291820291821_ - _e286009286165_ - _hd286008286169_ - _tl286007286172_ - ___splice291778291779_ - _target286036286075_ - _tl286038286078_) + (gx#stx-null? _tl285968286008_)) + (___match291750291751_ + _e285939286095_ + _hd285938286099_ + _tl285937286102_ + ___splice291708291709_ + _target285966286005_ + _tl285968286008_) (let () (declare (not safe)) - (_g286003286058_))))) - (let () (declare (not safe)) (_g286003286058_)))))) - (let () (declare (not safe)) (_g286003286058_)))))))) + (_g285933285988_))))) + (let () (declare (not safe)) (_g285933285988_)))))) + (let () (declare (not safe)) (_g285933285988_)))))))) (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx286280_) - (let* ((_g286284286302_ - (lambda (_g286285286298_) + (lambda (_$stx286210_) + (let* ((_g286214286232_ + (lambda (_g286215286228_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g286285286298_)))) - (_g286283286357_ - (lambda (_g286285286306_) + _g286215286228_)))) + (_g286213286287_ + (lambda (_g286215286236_) (if (let () (declare (not safe)) - (gx#stx-pair? _g286285286306_)) - (let ((_e286290286309_ + (gx#stx-pair? _g286215286236_)) + (let ((_e286220286239_ (let () (declare (not safe)) - (gx#syntax-e _g286285286306_)))) - (let ((_hd286289286313_ + (gx#syntax-e _g286215286236_)))) + (let ((_hd286219286243_ (let () (declare (not safe)) - (##car _e286290286309_))) - (_tl286288286316_ + (##car _e286220286239_))) + (_tl286218286246_ (let () (declare (not safe)) - (##cdr _e286290286309_)))) + (##cdr _e286220286239_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286288286316_)) - (let ((_e286293286319_ + (gx#stx-pair? _tl286218286246_)) + (let ((_e286223286249_ (let () (declare (not safe)) - (gx#syntax-e _tl286288286316_)))) - (let ((_hd286292286323_ + (gx#syntax-e _tl286218286246_)))) + (let ((_hd286222286253_ (let () (declare (not safe)) - (##car _e286293286319_))) - (_tl286291286326_ + (##car _e286223286249_))) + (_tl286221286256_ (let () (declare (not safe)) - (##cdr _e286293286319_)))) + (##cdr _e286223286249_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286291286326_)) - (let ((_e286296286329_ + (gx#stx-pair? _tl286221286256_)) + (let ((_e286226286259_ (let () (declare (not safe)) - (gx#syntax-e _tl286291286326_)))) - (let ((_hd286295286333_ + (gx#syntax-e _tl286221286256_)))) + (let ((_hd286225286263_ (let () (declare (not safe)) - (##car _e286296286329_))) - (_tl286294286336_ + (##car _e286226286259_))) + (_tl286224286266_ (let () (declare (not safe)) - (##cdr _e286296286329_)))) + (##cdr _e286226286259_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286294286336_)) - ((lambda (_L286339_ _L286341_) - (let ((__tmp292215 + (gx#stx-null? _tl286224286266_)) + ((lambda (_L286269_ _L286271_) + (let ((__tmp292145 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda))) - (__tmp292202 - (let ((__tmp292211 - (let ((__tmp292214 + (__tmp292132 + (let ((__tmp292141 + (let ((__tmp292144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292212 - (let ((__tmp292213 + (__tmp292142 + (let ((__tmp292143 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda)))) (declare (not safe)) - (cons __tmp292213 '())))) + (cons __tmp292143 '())))) (declare (not safe)) - (cons __tmp292214 __tmp292212))) - (__tmp292203 - (let ((__tmp292208 - (let ((__tmp292210 + (cons __tmp292144 __tmp292142))) + (__tmp292133 + (let ((__tmp292138 + (let ((__tmp292140 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292209 + (__tmp292139 (let () (declare (not safe)) - (cons _L286341_ '())))) + (cons _L286271_ '())))) (declare (not safe)) - (cons __tmp292210 __tmp292209))) - (__tmp292204 - (let ((__tmp292205 - (let ((__tmp292207 + (cons __tmp292140 __tmp292139))) + (__tmp292134 + (let ((__tmp292135 + (let ((__tmp292137 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292206 + (__tmp292136 (let () (declare (not safe)) - (cons _L286339_ '())))) + (cons _L286269_ '())))) (declare (not safe)) - (cons __tmp292207 __tmp292206)))) + (cons __tmp292137 __tmp292136)))) (declare (not safe)) - (cons __tmp292205 '())))) + (cons __tmp292135 '())))) (declare (not safe)) - (cons __tmp292208 __tmp292204)))) + (cons __tmp292138 __tmp292134)))) (declare (not safe)) - (cons __tmp292211 __tmp292203)))) + (cons __tmp292141 __tmp292133)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp292215 - __tmp292202))) - _hd286295286333_ - _hd286292286323_) - (_g286284286302_ - _g286285286306_)))) - (_g286284286302_ _g286285286306_)))) - (_g286284286302_ _g286285286306_)))) - (_g286284286302_ _g286285286306_))))) - (_g286283286357_ _$stx286280_)))) + (cons __tmp292145 + __tmp292132))) + _hd286225286263_ + _hd286222286253_) + (_g286214286232_ + _g286215286236_)))) + (_g286214286232_ _g286215286236_)))) + (_g286214286232_ _g286215286236_)))) + (_g286214286232_ _g286215286236_))))) + (_g286213286287_ _$stx286210_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx286361_) - (let* ((_g286365286383_ - (lambda (_g286366286379_) + (lambda (_$stx286291_) + (let* ((_g286295286313_ + (lambda (_g286296286309_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g286366286379_)))) - (_g286364286438_ - (lambda (_g286366286387_) + _g286296286309_)))) + (_g286294286368_ + (lambda (_g286296286317_) (if (let () (declare (not safe)) - (gx#stx-pair? _g286366286387_)) - (let ((_e286371286390_ + (gx#stx-pair? _g286296286317_)) + (let ((_e286301286320_ (let () (declare (not safe)) - (gx#syntax-e _g286366286387_)))) - (let ((_hd286370286394_ + (gx#syntax-e _g286296286317_)))) + (let ((_hd286300286324_ (let () (declare (not safe)) - (##car _e286371286390_))) - (_tl286369286397_ + (##car _e286301286320_))) + (_tl286299286327_ (let () (declare (not safe)) - (##cdr _e286371286390_)))) + (##cdr _e286301286320_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286369286397_)) - (let ((_e286374286400_ + (gx#stx-pair? _tl286299286327_)) + (let ((_e286304286330_ (let () (declare (not safe)) - (gx#syntax-e _tl286369286397_)))) - (let ((_hd286373286404_ + (gx#syntax-e _tl286299286327_)))) + (let ((_hd286303286334_ (let () (declare (not safe)) - (##car _e286374286400_))) - (_tl286372286407_ + (##car _e286304286330_))) + (_tl286302286337_ (let () (declare (not safe)) - (##cdr _e286374286400_)))) + (##cdr _e286304286330_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286372286407_)) - (let ((_e286377286410_ + (gx#stx-pair? _tl286302286337_)) + (let ((_e286307286340_ (let () (declare (not safe)) - (gx#syntax-e _tl286372286407_)))) - (let ((_hd286376286414_ + (gx#syntax-e _tl286302286337_)))) + (let ((_hd286306286344_ (let () (declare (not safe)) - (##car _e286377286410_))) - (_tl286375286417_ + (##car _e286307286340_))) + (_tl286305286347_ (let () (declare (not safe)) - (##cdr _e286377286410_)))) + (##cdr _e286307286340_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286375286417_)) - ((lambda (_L286420_ _L286422_) - (let ((__tmp292229 + (gx#stx-null? _tl286305286347_)) + ((lambda (_L286350_ _L286352_) + (let ((__tmp292159 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda-primary))) - (__tmp292216 - (let ((__tmp292225 - (let ((__tmp292228 + (__tmp292146 + (let ((__tmp292155 + (let ((__tmp292158 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292226 - (let ((__tmp292227 + (__tmp292156 + (let ((__tmp292157 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda-dispatch)))) (declare (not safe)) - (cons __tmp292227 '())))) + (cons __tmp292157 '())))) (declare (not safe)) - (cons __tmp292228 __tmp292226))) - (__tmp292217 - (let ((__tmp292222 - (let ((__tmp292224 + (cons __tmp292158 __tmp292156))) + (__tmp292147 + (let ((__tmp292152 + (let ((__tmp292154 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292223 + (__tmp292153 (let () (declare (not safe)) - (cons _L286422_ '())))) + (cons _L286352_ '())))) (declare (not safe)) - (cons __tmp292224 __tmp292223))) - (__tmp292218 - (let ((__tmp292219 - (let ((__tmp292221 + (cons __tmp292154 __tmp292153))) + (__tmp292148 + (let ((__tmp292149 + (let ((__tmp292151 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp292220 + (__tmp292150 (let () (declare (not safe)) - (cons _L286420_ '())))) + (cons _L286350_ '())))) (declare (not safe)) - (cons __tmp292221 __tmp292220)))) + (cons __tmp292151 __tmp292150)))) (declare (not safe)) - (cons __tmp292219 '())))) + (cons __tmp292149 '())))) (declare (not safe)) - (cons __tmp292222 __tmp292218)))) + (cons __tmp292152 __tmp292148)))) (declare (not safe)) - (cons __tmp292225 __tmp292217)))) + (cons __tmp292155 __tmp292147)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp292229 - __tmp292216))) - _hd286376286414_ - _hd286373286404_) - (_g286365286383_ - _g286366286387_)))) - (_g286365286383_ _g286366286387_)))) - (_g286365286383_ _g286366286387_)))) - (_g286365286383_ _g286366286387_))))) - (_g286364286438_ _$stx286361_)))) + (cons __tmp292159 + __tmp292146))) + _hd286306286344_ + _hd286303286334_) + (_g286295286313_ + _g286296286317_)))) + (_g286295286313_ _g286296286317_)))) + (_g286295286313_ _g286296286317_)))) + (_g286295286313_ _g286296286317_))))) + (_g286294286368_ _$stx286291_)))) (define |gxc[:0:]#declare-primitive| - (lambda (_$stx286442_) - (let* ((___stx291823291824_ _$stx286442_) - (_g286449286520_ + (lambda (_$stx286372_) + (let* ((___stx291753291754_ _$stx286372_) + (_g286379286450_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx291823291824_))))) - (let ((___kont291826291827_ - (lambda (_L286811_ _L286813_) - (let ((__tmp292235 + ___stx291753291754_))))) + (let ((___kont291756291757_ + (lambda (_L286741_ _L286743_) + (let ((__tmp292165 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp292230 - (let ((__tmp292231 - (let ((__tmp292232 - (let ((__tmp292234 + (__tmp292160 + (let ((__tmp292161 + (let ((__tmp292162 + (let ((__tmp292164 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp292233 + (__tmp292163 (let () (declare (not safe)) - (cons _L286811_ '())))) + (cons _L286741_ '())))) (declare (not safe)) - (cons __tmp292234 __tmp292233)))) + (cons __tmp292164 __tmp292163)))) (declare (not safe)) - (cons __tmp292232 '())))) + (cons __tmp292162 '())))) (declare (not safe)) - (cons _L286813_ __tmp292231)))) + (cons _L286743_ __tmp292161)))) (declare (not safe)) - (cons __tmp292235 __tmp292230)))) - (___kont291828291829_ - (lambda (_L286730_ _L286732_) - (let ((__tmp292244 + (cons __tmp292165 __tmp292160)))) + (___kont291758291759_ + (lambda (_L286660_ _L286662_) + (let ((__tmp292174 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp292236 - (let ((__tmp292237 - (let ((__tmp292238 - (let ((__tmp292243 + (__tmp292166 + (let ((__tmp292167 + (let ((__tmp292168 + (let ((__tmp292173 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp292239 - (let ((__tmp292240 - (lambda (_g286751286754_ - _g286752286757_) - (let ((__tmp292241 - (let ((__tmp292242 + (__tmp292169 + (let ((__tmp292170 + (lambda (_g286681286684_ + _g286682286687_) + (let ((__tmp292171 + (let ((__tmp292172 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g286751286754_ __tmp292242)))) + (cons _g286681286684_ __tmp292172)))) (declare (not safe)) - (cons __tmp292241 _g286752286757_))))) + (cons __tmp292171 _g286682286687_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp292240 + (foldr1 __tmp292170 '() - _L286730_)))) + _L286660_)))) (declare (not safe)) - (cons __tmp292243 __tmp292239)))) + (cons __tmp292173 __tmp292169)))) (declare (not safe)) - (cons __tmp292238 '())))) + (cons __tmp292168 '())))) (declare (not safe)) - (cons _L286732_ __tmp292237)))) + (cons _L286662_ __tmp292167)))) (declare (not safe)) - (cons __tmp292244 __tmp292236)))) - (___kont291832291833_ - (lambda (_L286642_ _L286644_) - (let ((__tmp292251 + (cons __tmp292174 __tmp292166)))) + (___kont291762291763_ + (lambda (_L286572_ _L286574_) + (let ((__tmp292181 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp292245 - (let ((__tmp292246 - (let ((__tmp292247 - (let ((__tmp292250 + (__tmp292175 + (let ((__tmp292176 + (let ((__tmp292177 + (let ((__tmp292180 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp292248 - (let ((__tmp292249 + (__tmp292178 + (let ((__tmp292179 (let () (declare (not safe)) - (cons _L286642_ '())))) + (cons _L286572_ '())))) (declare (not safe)) (cons 'primitive: - __tmp292249)))) + __tmp292179)))) (declare (not safe)) - (cons __tmp292250 __tmp292248)))) + (cons __tmp292180 __tmp292178)))) (declare (not safe)) - (cons __tmp292247 '())))) + (cons __tmp292177 '())))) (declare (not safe)) - (cons _L286644_ __tmp292246)))) + (cons _L286574_ __tmp292176)))) (declare (not safe)) - (cons __tmp292251 __tmp292245)))) - (___kont291834291835_ - (lambda (_L286577_ _L286579_) - (let ((__tmp292261 + (cons __tmp292181 __tmp292175)))) + (___kont291764291765_ + (lambda (_L286507_ _L286509_) + (let ((__tmp292191 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp292252 - (let ((__tmp292253 - (let ((__tmp292254 - (let ((__tmp292260 + (__tmp292182 + (let ((__tmp292183 + (let ((__tmp292184 + (let ((__tmp292190 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp292255 - (let ((__tmp292256 - (let ((__tmp292257 - (lambda (_g286596286599_ + (__tmp292185 + (let ((__tmp292186 + (let ((__tmp292187 + (lambda (_g286526286529_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g286597286602_) - (let ((__tmp292258 - (let ((__tmp292259 + _g286527286532_) + (let ((__tmp292188 + (let ((__tmp292189 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g286596286599_ __tmp292259)))) + (cons _g286526286529_ __tmp292189)))) (declare (not safe)) - (cons __tmp292258 _g286597286602_))))) + (cons __tmp292188 _g286527286532_))))) (declare (not safe)) - (foldr1 __tmp292257 '() _L286577_)))) + (foldr1 __tmp292187 '() _L286507_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'primitive: - __tmp292256)))) + __tmp292186)))) (declare (not safe)) - (cons __tmp292260 __tmp292255)))) + (cons __tmp292190 __tmp292185)))) (declare (not safe)) - (cons __tmp292254 '())))) + (cons __tmp292184 '())))) (declare (not safe)) - (cons _L286579_ __tmp292253)))) + (cons _L286509_ __tmp292183)))) (declare (not safe)) - (cons __tmp292261 __tmp292252))))) - (let* ((___match291942291943_ - (lambda (_e286502286527_ - _hd286501286531_ - _tl286500286534_ - _e286505286537_ - _hd286504286541_ - _tl286503286544_ - ___splice291836291837_ - _target286506286547_ - _tl286508286550_) - (letrec ((_loop286509286553_ - (lambda (_hd286507286557_ _arity286513286560_) + (cons __tmp292191 __tmp292182))))) + (let* ((___match291872291873_ + (lambda (_e286432286457_ + _hd286431286461_ + _tl286430286464_ + _e286435286467_ + _hd286434286471_ + _tl286433286474_ + ___splice291766291767_ + _target286436286477_ + _tl286438286480_) + (letrec ((_loop286439286483_ + (lambda (_hd286437286487_ _arity286443286490_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd286507286557_)) - (let ((_e286510286563_ + (gx#stx-pair? _hd286437286487_)) + (let ((_e286440286493_ (let () (declare (not safe)) - (gx#syntax-e _hd286507286557_)))) - (let ((_lp-tl286512286570_ + (gx#syntax-e _hd286437286487_)))) + (let ((_lp-tl286442286500_ (let () (declare (not safe)) - (##cdr _e286510286563_))) - (_lp-hd286511286567_ + (##cdr _e286440286493_))) + (_lp-hd286441286497_ (let () (declare (not safe)) - (##car _e286510286563_)))) - (_loop286509286553_ - _lp-tl286512286570_ + (##car _e286440286493_)))) + (_loop286439286483_ + _lp-tl286442286500_ (let () (declare (not safe)) - (cons _lp-hd286511286567_ - _arity286513286560_))))) - (let ((_arity286514286573_ - (reverse _arity286513286560_))) - (___kont291834291835_ - _arity286514286573_ - _hd286504286541_)))))) - (_loop286509286553_ _target286506286547_ '())))) - (___match291902291903_ - (lambda (_e286470286666_ - _hd286469286670_ - _tl286468286673_ - _e286473286676_ - _hd286472286680_ - _tl286471286683_ - _e286476286686_ - _hd286475286690_ - _tl286474286693_ - _e286477286696_ - ___splice291830291831_ - _target286478286700_ - _tl286480286703_) - (letrec ((_loop286481286706_ - (lambda (_hd286479286710_ _arity286485286713_) + (cons _lp-hd286441286497_ + _arity286443286490_))))) + (let ((_arity286444286503_ + (reverse _arity286443286490_))) + (___kont291764291765_ + _arity286444286503_ + _hd286434286471_)))))) + (_loop286439286483_ _target286436286477_ '())))) + (___match291832291833_ + (lambda (_e286400286596_ + _hd286399286600_ + _tl286398286603_ + _e286403286606_ + _hd286402286610_ + _tl286401286613_ + _e286406286616_ + _hd286405286620_ + _tl286404286623_ + _e286407286626_ + ___splice291760291761_ + _target286408286630_ + _tl286410286633_) + (letrec ((_loop286411286636_ + (lambda (_hd286409286640_ _arity286415286643_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd286479286710_)) - (let ((_e286482286716_ + (gx#stx-pair? _hd286409286640_)) + (let ((_e286412286646_ (let () (declare (not safe)) - (gx#syntax-e _hd286479286710_)))) - (let ((_lp-tl286484286723_ + (gx#syntax-e _hd286409286640_)))) + (let ((_lp-tl286414286653_ (let () (declare (not safe)) - (##cdr _e286482286716_))) - (_lp-hd286483286720_ + (##cdr _e286412286646_))) + (_lp-hd286413286650_ (let () (declare (not safe)) - (##car _e286482286716_)))) - (_loop286481286706_ - _lp-tl286484286723_ + (##car _e286412286646_)))) + (_loop286411286636_ + _lp-tl286414286653_ (let () (declare (not safe)) - (cons _lp-hd286483286720_ - _arity286485286713_))))) - (let ((_arity286486286726_ - (reverse _arity286485286713_))) - (___kont291828291829_ - _arity286486286726_ - _hd286472286680_)))))) - (_loop286481286706_ _target286478286700_ '()))))) + (cons _lp-hd286413286650_ + _arity286415286643_))))) + (let ((_arity286416286656_ + (reverse _arity286415286643_))) + (___kont291758291759_ + _arity286416286656_ + _hd286402286610_)))))) + (_loop286411286636_ _target286408286630_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx291823291824_)) - (let ((_e286455286767_ + (gx#stx-pair? ___stx291753291754_)) + (let ((_e286385286697_ (let () (declare (not safe)) - (gx#syntax-e ___stx291823291824_)))) - (let ((_tl286453286774_ - (let () (declare (not safe)) (##cdr _e286455286767_))) - (_hd286454286771_ + (gx#syntax-e ___stx291753291754_)))) + (let ((_tl286383286704_ + (let () (declare (not safe)) (##cdr _e286385286697_))) + (_hd286384286701_ (let () (declare (not safe)) - (##car _e286455286767_)))) + (##car _e286385286697_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286453286774_)) - (let ((_e286458286777_ + (gx#stx-pair? _tl286383286704_)) + (let ((_e286388286707_ (let () (declare (not safe)) - (gx#syntax-e _tl286453286774_)))) - (let ((_tl286456286784_ + (gx#syntax-e _tl286383286704_)))) + (let ((_tl286386286714_ (let () (declare (not safe)) - (##cdr _e286458286777_))) - (_hd286457286781_ + (##cdr _e286388286707_))) + (_hd286387286711_ (let () (declare (not safe)) - (##car _e286458286777_)))) + (##car _e286388286707_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286456286784_)) - (let ((_e286461286787_ + (gx#stx-pair? _tl286386286714_)) + (let ((_e286391286717_ (let () (declare (not safe)) - (gx#syntax-e _tl286456286784_)))) - (let ((_tl286459286794_ + (gx#syntax-e _tl286386286714_)))) + (let ((_tl286389286724_ (let () (declare (not safe)) - (##cdr _e286461286787_))) - (_hd286460286791_ + (##cdr _e286391286717_))) + (_hd286390286721_ (let () (declare (not safe)) - (##car _e286461286787_)))) + (##car _e286391286717_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd286460286791_)) - (let ((_e286462286797_ + (gx#stx-datum? _hd286390286721_)) + (let ((_e286392286727_ (let () (declare (not safe)) - (gx#stx-e _hd286460286791_)))) + (gx#stx-e _hd286390286721_)))) (if (let () (declare (not safe)) - (equal? _e286462286797_ + (equal? _e286392286727_ 'unchecked:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl286459286794_)) - (let ((_e286465286801_ + _tl286389286724_)) + (let ((_e286395286731_ (let () (declare (not safe)) (gx#syntax-e - _tl286459286794_)))) - (let ((_tl286463286808_ + _tl286389286724_)))) + (let ((_tl286393286738_ (let () (declare (not safe)) - (##cdr _e286465286801_))) - (_hd286464286805_ + (##cdr _e286395286731_))) + (_hd286394286735_ (let () (declare (not safe)) - (##car _e286465286801_)))) + (##car _e286395286731_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl286463286808_)) - (___kont291826291827_ - _hd286464286805_ - _hd286457286781_) + _tl286393286738_)) + (___kont291756291757_ + _hd286394286735_ + _hd286387286711_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl286459286794_)) - (let ((___splice291830291831_ + (gx#stx-pair/null? _tl286389286724_)) + (let ((___splice291760291761_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl286459286794_ '0)))) - (let ((_tl286480286703_ + (gx#syntax-split-splice _tl286389286724_ '0)))) + (let ((_tl286410286633_ (let () (declare (not safe)) - (##vector-ref ___splice291830291831_ '1))) - (_target286478286700_ + (##vector-ref ___splice291760291761_ '1))) + (_target286408286630_ (let () (declare (not safe)) - (##vector-ref ___splice291830291831_ '0)))) + (##vector-ref ___splice291760291761_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286480286703_)) - (___match291902291903_ - _e286455286767_ - _hd286454286771_ - _tl286453286774_ - _e286458286777_ - _hd286457286781_ - _tl286456286784_ - _e286461286787_ - _hd286460286791_ - _tl286459286794_ - _e286462286797_ - ___splice291830291831_ - _target286478286700_ - _tl286480286703_) + (gx#stx-null? _tl286410286633_)) + (___match291832291833_ + _e286385286697_ + _hd286384286701_ + _tl286383286704_ + _e286388286707_ + _hd286387286711_ + _tl286386286714_ + _e286391286717_ + _hd286390286721_ + _tl286389286724_ + _e286392286727_ + ___splice291760291761_ + _target286408286630_ + _tl286410286633_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl286456286784_)) - (let ((___splice291836291837_ + (gx#stx-pair/null? _tl286386286714_)) + (let ((___splice291766291767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286456286784_ + _tl286386286714_ '0)))) - (let ((_tl286508286550_ + (let ((_tl286438286480_ (let () (declare (not safe)) (##vector-ref - ___splice291836291837_ + ___splice291766291767_ '1))) - (_target286506286547_ + (_target286436286477_ (let () (declare (not safe)) (##vector-ref - ___splice291836291837_ + ___splice291766291767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286508286550_)) - (___match291942291943_ - _e286455286767_ - _hd286454286771_ - _tl286453286774_ - _e286458286777_ - _hd286457286781_ - _tl286456286784_ - ___splice291836291837_ - _target286506286547_ - _tl286508286550_) + (gx#stx-null? _tl286438286480_)) + (___match291872291873_ + _e286385286697_ + _hd286384286701_ + _tl286383286704_ + _e286388286707_ + _hd286387286711_ + _tl286386286714_ + ___splice291766291767_ + _target286436286477_ + _tl286438286480_) (let () (declare (not safe)) - (_g286449286520_))))) + (_g286379286450_))))) (let () (declare (not safe)) - (_g286449286520_)))))) + (_g286379286450_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl286456286784_)) - (let ((___splice291836291837_ + (gx#stx-pair/null? _tl286386286714_)) + (let ((___splice291766291767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286456286784_ + _tl286386286714_ '0)))) - (let ((_tl286508286550_ + (let ((_tl286438286480_ (let () (declare (not safe)) - (##vector-ref ___splice291836291837_ '1))) - (_target286506286547_ + (##vector-ref ___splice291766291767_ '1))) + (_target286436286477_ (let () (declare (not safe)) (##vector-ref - ___splice291836291837_ + ___splice291766291767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286508286550_)) - (___match291942291943_ - _e286455286767_ - _hd286454286771_ - _tl286453286774_ - _e286458286777_ - _hd286457286781_ - _tl286456286784_ - ___splice291836291837_ - _target286506286547_ - _tl286508286550_) + (gx#stx-null? _tl286438286480_)) + (___match291872291873_ + _e286385286697_ + _hd286384286701_ + _tl286383286704_ + _e286388286707_ + _hd286387286711_ + _tl286386286714_ + ___splice291766291767_ + _target286436286477_ + _tl286438286480_) (let () (declare (not safe)) - (_g286449286520_))))) - (let () (declare (not safe)) (_g286449286520_))))))) + (_g286379286450_))))) + (let () (declare (not safe)) (_g286379286450_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl286459286794_)) - (let ((___splice291830291831_ + _tl286389286724_)) + (let ((___splice291760291761_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl286459286794_ '0)))) - (let ((_tl286480286703_ + (gx#syntax-split-splice _tl286389286724_ '0)))) + (let ((_tl286410286633_ (let () (declare (not safe)) - (##vector-ref ___splice291830291831_ '1))) - (_target286478286700_ + (##vector-ref ___splice291760291761_ '1))) + (_target286408286630_ (let () (declare (not safe)) - (##vector-ref ___splice291830291831_ '0)))) + (##vector-ref ___splice291760291761_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286480286703_)) - (___match291902291903_ - _e286455286767_ - _hd286454286771_ - _tl286453286774_ - _e286458286777_ - _hd286457286781_ - _tl286456286784_ - _e286461286787_ - _hd286460286791_ - _tl286459286794_ - _e286462286797_ - ___splice291830291831_ - _target286478286700_ - _tl286480286703_) + (gx#stx-null? _tl286410286633_)) + (___match291832291833_ + _e286385286697_ + _hd286384286701_ + _tl286383286704_ + _e286388286707_ + _hd286387286711_ + _tl286386286714_ + _e286391286717_ + _hd286390286721_ + _tl286389286724_ + _e286392286727_ + ___splice291760291761_ + _target286408286630_ + _tl286410286633_) (if (let () (declare (not safe)) - (gx#stx-null? _tl286459286794_)) - (___kont291832291833_ - _hd286460286791_ - _hd286457286781_) + (gx#stx-null? _tl286389286724_)) + (___kont291762291763_ + _hd286390286721_ + _hd286387286711_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl286456286784_)) - (let ((___splice291836291837_ + (gx#stx-pair/null? _tl286386286714_)) + (let ((___splice291766291767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286456286784_ + _tl286386286714_ '0)))) - (let ((_tl286508286550_ + (let ((_tl286438286480_ (let () (declare (not safe)) (##vector-ref - ___splice291836291837_ + ___splice291766291767_ '1))) - (_target286506286547_ + (_target286436286477_ (let () (declare (not safe)) (##vector-ref - ___splice291836291837_ + ___splice291766291767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286508286550_)) - (___match291942291943_ - _e286455286767_ - _hd286454286771_ - _tl286453286774_ - _e286458286777_ - _hd286457286781_ - _tl286456286784_ - ___splice291836291837_ - _target286506286547_ - _tl286508286550_) + (gx#stx-null? _tl286438286480_)) + (___match291872291873_ + _e286385286697_ + _hd286384286701_ + _tl286383286704_ + _e286388286707_ + _hd286387286711_ + _tl286386286714_ + ___splice291766291767_ + _target286436286477_ + _tl286438286480_) (let () (declare (not safe)) - (_g286449286520_))))) + (_g286379286450_))))) (let () (declare (not safe)) - (_g286449286520_))))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl286459286794_)) - (___kont291832291833_ _hd286460286791_ _hd286457286781_) + (_g286379286450_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl286389286724_)) + (___kont291762291763_ _hd286390286721_ _hd286387286711_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl286456286784_)) - (let ((___splice291836291837_ + (gx#stx-pair/null? _tl286386286714_)) + (let ((___splice291766291767_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl286456286784_ '0)))) - (let ((_tl286508286550_ + (gx#syntax-split-splice _tl286386286714_ '0)))) + (let ((_tl286438286480_ (let () (declare (not safe)) - (##vector-ref ___splice291836291837_ '1))) - (_target286506286547_ + (##vector-ref ___splice291766291767_ '1))) + (_target286436286477_ (let () (declare (not safe)) - (##vector-ref ___splice291836291837_ '0)))) + (##vector-ref ___splice291766291767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286508286550_)) - (___match291942291943_ - _e286455286767_ - _hd286454286771_ - _tl286453286774_ - _e286458286777_ - _hd286457286781_ - _tl286456286784_ - ___splice291836291837_ - _target286506286547_ - _tl286508286550_) + (gx#stx-null? _tl286438286480_)) + (___match291872291873_ + _e286385286697_ + _hd286384286701_ + _tl286383286704_ + _e286388286707_ + _hd286387286711_ + _tl286386286714_ + ___splice291766291767_ + _target286436286477_ + _tl286438286480_) (let () (declare (not safe)) - (_g286449286520_))))) - (let () (declare (not safe)) (_g286449286520_)))))) + (_g286379286450_))))) + (let () (declare (not safe)) (_g286379286450_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl286459286794_)) - (___kont291832291833_ - _hd286460286791_ - _hd286457286781_) + _tl286389286724_)) + (___kont291762291763_ + _hd286390286721_ + _hd286387286711_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl286456286784_)) - (let ((___splice291836291837_ + _tl286386286714_)) + (let ((___splice291766291767_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl286456286784_ '0)))) - (let ((_tl286508286550_ + (gx#syntax-split-splice _tl286386286714_ '0)))) + (let ((_tl286438286480_ (let () (declare (not safe)) - (##vector-ref ___splice291836291837_ '1))) - (_target286506286547_ + (##vector-ref ___splice291766291767_ '1))) + (_target286436286477_ (let () (declare (not safe)) - (##vector-ref ___splice291836291837_ '0)))) + (##vector-ref ___splice291766291767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286508286550_)) - (___match291942291943_ - _e286455286767_ - _hd286454286771_ - _tl286453286774_ - _e286458286777_ - _hd286457286781_ - _tl286456286784_ - ___splice291836291837_ - _target286506286547_ - _tl286508286550_) - (let () (declare (not safe)) (_g286449286520_))))) - (let () (declare (not safe)) (_g286449286520_)))))) + (gx#stx-null? _tl286438286480_)) + (___match291872291873_ + _e286385286697_ + _hd286384286701_ + _tl286383286704_ + _e286388286707_ + _hd286387286711_ + _tl286386286714_ + ___splice291766291767_ + _target286436286477_ + _tl286438286480_) + (let () (declare (not safe)) (_g286379286450_))))) + (let () (declare (not safe)) (_g286379286450_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (gx#stx-null? _tl286459286794_)) - (___kont291832291833_ - _hd286460286791_ - _hd286457286781_) + (gx#stx-null? _tl286389286724_)) + (___kont291762291763_ + _hd286390286721_ + _hd286387286711_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl286456286784_)) - (let ((___splice291836291837_ + _tl286386286714_)) + (let ((___splice291766291767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286456286784_ + _tl286386286714_ '0)))) - (let ((_tl286508286550_ + (let ((_tl286438286480_ (let () (declare (not safe)) (##vector-ref - ___splice291836291837_ + ___splice291766291767_ '1))) - (_target286506286547_ + (_target286436286477_ (let () (declare (not safe)) (##vector-ref - ___splice291836291837_ + ___splice291766291767_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl286508286550_)) - (___match291942291943_ - _e286455286767_ - _hd286454286771_ - _tl286453286774_ - _e286458286777_ - _hd286457286781_ - _tl286456286784_ - ___splice291836291837_ - _target286506286547_ - _tl286508286550_) + _tl286438286480_)) + (___match291872291873_ + _e286385286697_ + _hd286384286701_ + _tl286383286704_ + _e286388286707_ + _hd286387286711_ + _tl286386286714_ + ___splice291766291767_ + _target286436286477_ + _tl286438286480_) (let () (declare (not safe)) - (_g286449286520_))))) + (_g286379286450_))))) (let () (declare (not safe)) - (_g286449286520_))))))) + (_g286379286450_))))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl286456286784_)) - (let ((___splice291836291837_ + (gx#stx-pair/null? _tl286386286714_)) + (let ((___splice291766291767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286456286784_ + _tl286386286714_ '0)))) - (let ((_tl286508286550_ + (let ((_tl286438286480_ (let () (declare (not safe)) (##vector-ref - ___splice291836291837_ + ___splice291766291767_ '1))) - (_target286506286547_ + (_target286436286477_ (let () (declare (not safe)) (##vector-ref - ___splice291836291837_ + ___splice291766291767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286508286550_)) - (___match291942291943_ - _e286455286767_ - _hd286454286771_ - _tl286453286774_ - _e286458286777_ - _hd286457286781_ - _tl286456286784_ - ___splice291836291837_ - _target286506286547_ - _tl286508286550_) + (gx#stx-null? _tl286438286480_)) + (___match291872291873_ + _e286385286697_ + _hd286384286701_ + _tl286383286704_ + _e286388286707_ + _hd286387286711_ + _tl286386286714_ + ___splice291766291767_ + _target286436286477_ + _tl286438286480_) (let () (declare (not safe)) - (_g286449286520_))))) + (_g286379286450_))))) (let () (declare (not safe)) - (_g286449286520_)))))) - (let () (declare (not safe)) (_g286449286520_))))) - (let () (declare (not safe)) (_g286449286520_)))))))) + (_g286379286450_)))))) + (let () (declare (not safe)) (_g286379286450_))))) + (let () (declare (not safe)) (_g286379286450_)))))))) (define |gxc[:0:]#declare-primitive/unchecked| - (lambda (_$stx286837_) - (let* ((___stx291945291946_ _$stx286837_) - (_g286842286877_ + (lambda (_$stx286767_) + (let* ((___stx291875291876_ _$stx286767_) + (_g286772286807_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx291945291946_))))) - (let ((___kont291948291949_ - (lambda (_L286999_ _L287001_) - (let ((__tmp292267 + ___stx291875291876_))))) + (let ((___kont291878291879_ + (lambda (_L286929_ _L286931_) + (let ((__tmp292197 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp292262 - (let ((__tmp292263 - (let ((__tmp292264 - (let ((__tmp292266 + (__tmp292192 + (let ((__tmp292193 + (let ((__tmp292194 + (let ((__tmp292196 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp292265 + (__tmp292195 (let () (declare (not safe)) - (cons _L286999_ '())))) + (cons _L286929_ '())))) (declare (not safe)) - (cons __tmp292266 __tmp292265)))) + (cons __tmp292196 __tmp292195)))) (declare (not safe)) - (cons __tmp292264 '())))) + (cons __tmp292194 '())))) (declare (not safe)) - (cons _L287001_ __tmp292263)))) + (cons _L286931_ __tmp292193)))) (declare (not safe)) - (cons __tmp292267 __tmp292262)))) - (___kont291950291951_ - (lambda (_L286934_ _L286936_) - (let ((__tmp292276 + (cons __tmp292197 __tmp292192)))) + (___kont291880291881_ + (lambda (_L286864_ _L286866_) + (let ((__tmp292206 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp292268 - (let ((__tmp292269 - (let ((__tmp292270 - (let ((__tmp292275 + (__tmp292198 + (let ((__tmp292199 + (let ((__tmp292200 + (let ((__tmp292205 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp292271 - (let ((__tmp292272 - (lambda (_g286953286956_ - _g286954286959_) - (let ((__tmp292273 - (let ((__tmp292274 + (__tmp292201 + (let ((__tmp292202 + (lambda (_g286883286886_ + _g286884286889_) + (let ((__tmp292203 + (let ((__tmp292204 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g286953286956_ __tmp292274)))) + (cons _g286883286886_ __tmp292204)))) (declare (not safe)) - (cons __tmp292273 _g286954286959_))))) + (cons __tmp292203 _g286884286889_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp292272 + (foldr1 __tmp292202 '() - _L286934_)))) + _L286864_)))) (declare (not safe)) - (cons __tmp292275 __tmp292271)))) + (cons __tmp292205 __tmp292201)))) (declare (not safe)) - (cons __tmp292270 '())))) + (cons __tmp292200 '())))) (declare (not safe)) - (cons _L286936_ __tmp292269)))) + (cons _L286866_ __tmp292199)))) (declare (not safe)) - (cons __tmp292276 __tmp292268))))) - (let ((___match291994291995_ - (lambda (_e286859286884_ - _hd286858286888_ - _tl286857286891_ - _e286862286894_ - _hd286861286898_ - _tl286860286901_ - ___splice291952291953_ - _target286863286904_ - _tl286865286907_) - (letrec ((_loop286866286910_ - (lambda (_hd286864286914_ _arity286870286917_) + (cons __tmp292206 __tmp292198))))) + (let ((___match291924291925_ + (lambda (_e286789286814_ + _hd286788286818_ + _tl286787286821_ + _e286792286824_ + _hd286791286828_ + _tl286790286831_ + ___splice291882291883_ + _target286793286834_ + _tl286795286837_) + (letrec ((_loop286796286840_ + (lambda (_hd286794286844_ _arity286800286847_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd286864286914_)) - (let ((_e286867286920_ + (gx#stx-pair? _hd286794286844_)) + (let ((_e286797286850_ (let () (declare (not safe)) - (gx#syntax-e _hd286864286914_)))) - (let ((_lp-tl286869286927_ + (gx#syntax-e _hd286794286844_)))) + (let ((_lp-tl286799286857_ (let () (declare (not safe)) - (##cdr _e286867286920_))) - (_lp-hd286868286924_ + (##cdr _e286797286850_))) + (_lp-hd286798286854_ (let () (declare (not safe)) - (##car _e286867286920_)))) - (_loop286866286910_ - _lp-tl286869286927_ + (##car _e286797286850_)))) + (_loop286796286840_ + _lp-tl286799286857_ (let () (declare (not safe)) - (cons _lp-hd286868286924_ - _arity286870286917_))))) - (let ((_arity286871286930_ - (reverse _arity286870286917_))) - (___kont291950291951_ - _arity286871286930_ - _hd286861286898_)))))) - (_loop286866286910_ _target286863286904_ '()))))) + (cons _lp-hd286798286854_ + _arity286800286847_))))) + (let ((_arity286801286860_ + (reverse _arity286800286847_))) + (___kont291880291881_ + _arity286801286860_ + _hd286791286828_)))))) + (_loop286796286840_ _target286793286834_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx291945291946_)) - (let ((_e286848286969_ + (gx#stx-pair? ___stx291875291876_)) + (let ((_e286778286899_ (let () (declare (not safe)) - (gx#syntax-e ___stx291945291946_)))) - (let ((_tl286846286976_ - (let () (declare (not safe)) (##cdr _e286848286969_))) - (_hd286847286973_ + (gx#syntax-e ___stx291875291876_)))) + (let ((_tl286776286906_ + (let () (declare (not safe)) (##cdr _e286778286899_))) + (_hd286777286903_ (let () (declare (not safe)) - (##car _e286848286969_)))) + (##car _e286778286899_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286846286976_)) - (let ((_e286851286979_ + (gx#stx-pair? _tl286776286906_)) + (let ((_e286781286909_ (let () (declare (not safe)) - (gx#syntax-e _tl286846286976_)))) - (let ((_tl286849286986_ + (gx#syntax-e _tl286776286906_)))) + (let ((_tl286779286916_ (let () (declare (not safe)) - (##cdr _e286851286979_))) - (_hd286850286983_ + (##cdr _e286781286909_))) + (_hd286780286913_ (let () (declare (not safe)) - (##car _e286851286979_)))) + (##car _e286781286909_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286849286986_)) - (let ((_e286854286989_ + (gx#stx-pair? _tl286779286916_)) + (let ((_e286784286919_ (let () (declare (not safe)) - (gx#syntax-e _tl286849286986_)))) - (let ((_tl286852286996_ + (gx#syntax-e _tl286779286916_)))) + (let ((_tl286782286926_ (let () (declare (not safe)) - (##cdr _e286854286989_))) - (_hd286853286993_ + (##cdr _e286784286919_))) + (_hd286783286923_ (let () (declare (not safe)) - (##car _e286854286989_)))) + (##car _e286784286919_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286852286996_)) - (___kont291948291949_ - _hd286853286993_ - _hd286850286983_) + (gx#stx-null? _tl286782286926_)) + (___kont291878291879_ + _hd286783286923_ + _hd286780286913_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl286849286986_)) - (let ((___splice291952291953_ + _tl286779286916_)) + (let ((___splice291882291883_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286849286986_ + _tl286779286916_ '0)))) - (let ((_tl286865286907_ + (let ((_tl286795286837_ (let () (declare (not safe)) (##vector-ref - ___splice291952291953_ + ___splice291882291883_ '1))) - (_target286863286904_ + (_target286793286834_ (let () (declare (not safe)) (##vector-ref - ___splice291952291953_ + ___splice291882291883_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl286865286907_)) - (___match291994291995_ - _e286848286969_ - _hd286847286973_ - _tl286846286976_ - _e286851286979_ - _hd286850286983_ - _tl286849286986_ - ___splice291952291953_ - _target286863286904_ - _tl286865286907_) + _tl286795286837_)) + (___match291924291925_ + _e286778286899_ + _hd286777286903_ + _tl286776286906_ + _e286781286909_ + _hd286780286913_ + _tl286779286916_ + ___splice291882291883_ + _target286793286834_ + _tl286795286837_) (let () (declare (not safe)) - (_g286842286877_))))) + (_g286772286807_))))) (let () (declare (not safe)) - (_g286842286877_)))))) + (_g286772286807_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl286849286986_)) - (let ((___splice291952291953_ + (gx#stx-pair/null? _tl286779286916_)) + (let ((___splice291882291883_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl286849286986_ + _tl286779286916_ '0)))) - (let ((_tl286865286907_ + (let ((_tl286795286837_ (let () (declare (not safe)) (##vector-ref - ___splice291952291953_ + ___splice291882291883_ '1))) - (_target286863286904_ + (_target286793286834_ (let () (declare (not safe)) (##vector-ref - ___splice291952291953_ + ___splice291882291883_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286865286907_)) - (___match291994291995_ - _e286848286969_ - _hd286847286973_ - _tl286846286976_ - _e286851286979_ - _hd286850286983_ - _tl286849286986_ - ___splice291952291953_ - _target286863286904_ - _tl286865286907_) + (gx#stx-null? _tl286795286837_)) + (___match291924291925_ + _e286778286899_ + _hd286777286903_ + _tl286776286906_ + _e286781286909_ + _hd286780286913_ + _tl286779286916_ + ___splice291882291883_ + _target286793286834_ + _tl286795286837_) (let () (declare (not safe)) - (_g286842286877_))))) + (_g286772286807_))))) (let () (declare (not safe)) - (_g286842286877_)))))) - (let () (declare (not safe)) (_g286842286877_))))) - (let () (declare (not safe)) (_g286842286877_)))))))) + (_g286772286807_)))))) + (let () (declare (not safe)) (_g286772286807_))))) + (let () (declare (not safe)) (_g286772286807_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx287021_) - (let* ((_g287025287060_ - (lambda (_g287026287056_) + (lambda (_$stx286951_) + (let* ((_g286955286990_ + (lambda (_g286956286986_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g287026287056_)))) - (_g287024287188_ - (lambda (_g287026287064_) + _g286956286986_)))) + (_g286954287118_ + (lambda (_g286956286994_) (if (let () (declare (not safe)) - (gx#stx-pair? _g287026287064_)) - (let ((_e287031287067_ + (gx#stx-pair? _g286956286994_)) + (let ((_e286961286997_ (let () (declare (not safe)) - (gx#syntax-e _g287026287064_)))) - (let ((_hd287030287071_ + (gx#syntax-e _g286956286994_)))) + (let ((_hd286960287001_ (let () (declare (not safe)) - (##car _e287031287067_))) - (_tl287029287074_ + (##car _e286961286997_))) + (_tl286959287004_ (let () (declare (not safe)) - (##cdr _e287031287067_)))) + (##cdr _e286961286997_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl287029287074_)) - (let ((_g292277_ + (gx#stx-pair/null? _tl286959287004_)) + (let ((_g292207_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl287029287074_ + _tl286959287004_ '0)))) (begin - (let ((_g292278_ + (let ((_g292208_ (let () (declare (not safe)) - (if (##values? _g292277_) - (##vector-length _g292277_) + (if (##values? _g292207_) + (##vector-length _g292207_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g292278_ 2))) + (##fx= _g292208_ 2))) (error "Context expects 2 values" - _g292278_))) - (let ((_target287032287077_ + _g292208_))) + (let ((_target286962287007_ (let () (declare (not safe)) - (##vector-ref _g292277_ 0))) - (_tl287034287080_ + (##vector-ref _g292207_ 0))) + (_tl286964287010_ (let () (declare (not safe)) - (##vector-ref _g292277_ 1)))) + (##vector-ref _g292207_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl287034287080_)) - (letrec ((_loop287035287083_ - (lambda (_hd287033287087_ - _arity287039287090_ - _prim287040287092_) + (gx#stx-null? _tl286964287010_)) + (letrec ((_loop286965287013_ + (lambda (_hd286963287017_ + _arity286969287020_ + _prim286970287022_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd287033287087_)) - (let ((_e287036287095_ + _hd286963287017_)) + (let ((_e286966287025_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd287033287087_)))) - (let ((_lp-hd287037287099_ - (let () (declare (not safe)) (##car _e287036287095_))) - (_lp-tl287038287102_ - (let () (declare (not safe)) (##cdr _e287036287095_)))) + (gx#syntax-e _hd286963287017_)))) + (let ((_lp-hd286967287029_ + (let () (declare (not safe)) (##car _e286966287025_))) + (_lp-tl286968287032_ + (let () (declare (not safe)) (##cdr _e286966287025_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd287037287099_)) - (let ((_e287045287105_ + (gx#stx-pair? _lp-hd286967287029_)) + (let ((_e286975287035_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd287037287099_)))) - (let ((_hd287044287109_ + (gx#syntax-e _lp-hd286967287029_)))) + (let ((_hd286974287039_ (let () (declare (not safe)) - (##car _e287045287105_))) - (_tl287043287112_ + (##car _e286975287035_))) + (_tl286973287042_ (let () (declare (not safe)) - (##cdr _e287045287105_)))) + (##cdr _e286975287035_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl287043287112_)) - (let ((_g292287_ + (gx#stx-pair/null? _tl286973287042_)) + (let ((_g292217_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl287043287112_ + _tl286973287042_ '0)))) (begin - (let ((_g292288_ + (let ((_g292218_ (let () (declare (not safe)) - (if (##values? _g292287_) - (##vector-length _g292287_) + (if (##values? _g292217_) + (##vector-length _g292217_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g292288_ 2))) + (##fx= _g292218_ 2))) (error "Context expects 2 values" - _g292288_))) - (let ((_target287046287115_ + _g292218_))) + (let ((_target286976287045_ (let () (declare (not safe)) - (##vector-ref _g292287_ 0))) - (_tl287048287118_ + (##vector-ref _g292217_ 0))) + (_tl286978287048_ (let () (declare (not safe)) - (##vector-ref _g292287_ 1)))) + (##vector-ref _g292217_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl287048287118_)) - (letrec ((_loop287049287121_ - (lambda (_hd287047287125_ - _arity287053287128_) + (gx#stx-null? _tl286978287048_)) + (letrec ((_loop286979287051_ + (lambda (_hd286977287055_ + _arity286983287058_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd287047287125_)) - (let ((_e287050287131_ + _hd286977287055_)) + (let ((_e286980287061_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd287047287125_)))) - (let ((_lp-hd287051287135_ - (let () (declare (not safe)) (##car _e287050287131_))) - (_lp-tl287052287138_ + (gx#syntax-e _hd286977287055_)))) + (let ((_lp-hd286981287065_ + (let () (declare (not safe)) (##car _e286980287061_))) + (_lp-tl286982287068_ (let () (declare (not safe)) - (##cdr _e287050287131_)))) - (_loop287049287121_ - _lp-tl287052287138_ + (##cdr _e286980287061_)))) + (_loop286979287051_ + _lp-tl286982287068_ (let () (declare (not safe)) - (cons _lp-hd287051287135_ _arity287053287128_))))) - (let ((_arity287054287141_ (reverse _arity287053287128_))) - (_loop287035287083_ - _lp-tl287038287102_ + (cons _lp-hd286981287065_ _arity286983287058_))))) + (let ((_arity286984287071_ (reverse _arity286983287058_))) + (_loop286965287013_ + _lp-tl286968287032_ (let () (declare (not safe)) - (cons _arity287054287141_ _arity287039287090_)) + (cons _arity286984287071_ _arity286969287020_)) (let () (declare (not safe)) - (cons _hd287044287109_ _prim287040287092_)))))))) + (cons _hd286974287039_ _prim286970287022_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop287049287121_ - _target287046287115_ + (_loop286979287051_ + _target286976287045_ '())) - (_g287025287060_ _g287026287064_))))) - (_g287025287060_ _g287026287064_)))) - (_g287025287060_ _g287026287064_)))) - (let ((_arity287041287145_ (reverse _arity287039287090_)) - (_prim287042287148_ (reverse _prim287040287092_))) - ((lambda (_L287151_ _L287153_) - (let ((__tmp292286 + (_g286955286990_ _g286956286994_))))) + (_g286955286990_ _g286956286994_)))) + (_g286955286990_ _g286956286994_)))) + (let ((_arity286971287075_ (reverse _arity286969287020_)) + (_prim286972287078_ (reverse _prim286970287022_))) + ((lambda (_L287081_ _L287083_) + (let ((__tmp292216 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp292279 + (__tmp292209 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L287151_ - _L287153_)) - (let ((__tmp292280 - (lambda (_g287168287174_ - _g287169287177_ - _g287170287179_) - (let ((__tmp292281 - (let ((__tmp292285 + _L287081_ + _L287083_)) + (let ((__tmp292210 + (lambda (_g287098287104_ + _g287099287107_ + _g287100287109_) + (let ((__tmp292211 + (let ((__tmp292215 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive))) - (__tmp292282 - (let ((__tmp292283 - (let ((__tmp292284 + (__tmp292212 + (let ((__tmp292213 + (let ((__tmp292214 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g287171287182_ _g287172287185_) + (lambda (_g287101287112_ _g287102287115_) (let () (declare (not safe)) - (cons _g287171287182_ _g287172287185_))))) + (cons _g287101287112_ _g287102287115_))))) (declare (not safe)) - (foldr1 __tmp292284 '() _g287168287174_)))) + (foldr1 __tmp292214 '() _g287098287104_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g287169287177_ - __tmp292283)))) + (cons _g287099287107_ + __tmp292213)))) (declare (not safe)) - (cons __tmp292285 __tmp292282)))) + (cons __tmp292215 __tmp292212)))) (declare (not safe)) - (cons __tmp292281 _g287170287179_))))) + (cons __tmp292211 _g287100287109_))))) (declare (not safe)) - (foldr2 __tmp292280 '() _L287151_ _L287153_))))) + (foldr2 __tmp292210 '() _L287081_ _L287083_))))) (declare (not safe)) - (cons __tmp292286 __tmp292279))) - _arity287041287145_ - _prim287042287148_)))))) + (cons __tmp292216 __tmp292209))) + _arity286971287075_ + _prim286972287078_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop287035287083_ - _target287032287077_ + (_loop286965287013_ + _target286962287007_ '() '())) - (_g287025287060_ _g287026287064_))))) - (_g287025287060_ _g287026287064_)))) - (_g287025287060_ _g287026287064_))))) - (_g287024287188_ _$stx287021_)))) + (_g286955286990_ _g286956286994_))))) + (_g286955286990_ _g286956286994_)))) + (_g286955286990_ _g286956286994_))))) + (_g286954287118_ _$stx286951_)))) (define |gxc[:0:]#declare-primitive/unchecked*| - (lambda (_$stx287194_) - (let* ((_g287198287233_ - (lambda (_g287199287229_) + (lambda (_$stx287124_) + (let* ((_g287128287163_ + (lambda (_g287129287159_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g287199287229_)))) - (_g287197287361_ - (lambda (_g287199287237_) + _g287129287159_)))) + (_g287127287291_ + (lambda (_g287129287167_) (if (let () (declare (not safe)) - (gx#stx-pair? _g287199287237_)) - (let ((_e287204287240_ + (gx#stx-pair? _g287129287167_)) + (let ((_e287134287170_ (let () (declare (not safe)) - (gx#syntax-e _g287199287237_)))) - (let ((_hd287203287244_ + (gx#syntax-e _g287129287167_)))) + (let ((_hd287133287174_ (let () (declare (not safe)) - (##car _e287204287240_))) - (_tl287202287247_ + (##car _e287134287170_))) + (_tl287132287177_ (let () (declare (not safe)) - (##cdr _e287204287240_)))) + (##cdr _e287134287170_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl287202287247_)) - (let ((_g292289_ + (gx#stx-pair/null? _tl287132287177_)) + (let ((_g292219_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl287202287247_ + _tl287132287177_ '0)))) (begin - (let ((_g292290_ + (let ((_g292220_ (let () (declare (not safe)) - (if (##values? _g292289_) - (##vector-length _g292289_) + (if (##values? _g292219_) + (##vector-length _g292219_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g292290_ 2))) + (##fx= _g292220_ 2))) (error "Context expects 2 values" - _g292290_))) - (let ((_target287205287250_ + _g292220_))) + (let ((_target287135287180_ (let () (declare (not safe)) - (##vector-ref _g292289_ 0))) - (_tl287207287253_ + (##vector-ref _g292219_ 0))) + (_tl287137287183_ (let () (declare (not safe)) - (##vector-ref _g292289_ 1)))) + (##vector-ref _g292219_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl287207287253_)) - (letrec ((_loop287208287256_ - (lambda (_hd287206287260_ - _arity287212287263_ - _prim287213287265_) + (gx#stx-null? _tl287137287183_)) + (letrec ((_loop287138287186_ + (lambda (_hd287136287190_ + _arity287142287193_ + _prim287143287195_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd287206287260_)) - (let ((_e287209287268_ + _hd287136287190_)) + (let ((_e287139287198_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd287206287260_)))) - (let ((_lp-hd287210287272_ - (let () (declare (not safe)) (##car _e287209287268_))) - (_lp-tl287211287275_ - (let () (declare (not safe)) (##cdr _e287209287268_)))) + (gx#syntax-e _hd287136287190_)))) + (let ((_lp-hd287140287202_ + (let () (declare (not safe)) (##car _e287139287198_))) + (_lp-tl287141287205_ + (let () (declare (not safe)) (##cdr _e287139287198_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd287210287272_)) - (let ((_e287218287278_ + (gx#stx-pair? _lp-hd287140287202_)) + (let ((_e287148287208_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd287210287272_)))) - (let ((_hd287217287282_ + (gx#syntax-e _lp-hd287140287202_)))) + (let ((_hd287147287212_ (let () (declare (not safe)) - (##car _e287218287278_))) - (_tl287216287285_ + (##car _e287148287208_))) + (_tl287146287215_ (let () (declare (not safe)) - (##cdr _e287218287278_)))) + (##cdr _e287148287208_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl287216287285_)) - (let ((_g292299_ + (gx#stx-pair/null? _tl287146287215_)) + (let ((_g292229_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl287216287285_ + _tl287146287215_ '0)))) (begin - (let ((_g292300_ + (let ((_g292230_ (let () (declare (not safe)) - (if (##values? _g292299_) - (##vector-length _g292299_) + (if (##values? _g292229_) + (##vector-length _g292229_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g292300_ 2))) + (##fx= _g292230_ 2))) (error "Context expects 2 values" - _g292300_))) - (let ((_target287219287288_ + _g292230_))) + (let ((_target287149287218_ (let () (declare (not safe)) - (##vector-ref _g292299_ 0))) - (_tl287221287291_ + (##vector-ref _g292229_ 0))) + (_tl287151287221_ (let () (declare (not safe)) - (##vector-ref _g292299_ 1)))) + (##vector-ref _g292229_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl287221287291_)) - (letrec ((_loop287222287294_ - (lambda (_hd287220287298_ - _arity287226287301_) + (gx#stx-null? _tl287151287221_)) + (letrec ((_loop287152287224_ + (lambda (_hd287150287228_ + _arity287156287231_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd287220287298_)) - (let ((_e287223287304_ + _hd287150287228_)) + (let ((_e287153287234_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd287220287298_)))) - (let ((_lp-hd287224287308_ - (let () (declare (not safe)) (##car _e287223287304_))) - (_lp-tl287225287311_ + (gx#syntax-e _hd287150287228_)))) + (let ((_lp-hd287154287238_ + (let () (declare (not safe)) (##car _e287153287234_))) + (_lp-tl287155287241_ (let () (declare (not safe)) - (##cdr _e287223287304_)))) - (_loop287222287294_ - _lp-tl287225287311_ + (##cdr _e287153287234_)))) + (_loop287152287224_ + _lp-tl287155287241_ (let () (declare (not safe)) - (cons _lp-hd287224287308_ _arity287226287301_))))) - (let ((_arity287227287314_ (reverse _arity287226287301_))) - (_loop287208287256_ - _lp-tl287211287275_ + (cons _lp-hd287154287238_ _arity287156287231_))))) + (let ((_arity287157287244_ (reverse _arity287156287231_))) + (_loop287138287186_ + _lp-tl287141287205_ (let () (declare (not safe)) - (cons _arity287227287314_ _arity287212287263_)) + (cons _arity287157287244_ _arity287142287193_)) (let () (declare (not safe)) - (cons _hd287217287282_ _prim287213287265_)))))))) + (cons _hd287147287212_ _prim287143287195_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop287222287294_ - _target287219287288_ + (_loop287152287224_ + _target287149287218_ '())) - (_g287198287233_ _g287199287237_))))) - (_g287198287233_ _g287199287237_)))) - (_g287198287233_ _g287199287237_)))) - (let ((_arity287214287318_ (reverse _arity287212287263_)) - (_prim287215287321_ (reverse _prim287213287265_))) - ((lambda (_L287324_ _L287326_) - (let ((__tmp292298 + (_g287128287163_ _g287129287167_))))) + (_g287128287163_ _g287129287167_)))) + (_g287128287163_ _g287129287167_)))) + (let ((_arity287144287248_ (reverse _arity287142287193_)) + (_prim287145287251_ (reverse _prim287143287195_))) + ((lambda (_L287254_ _L287256_) + (let ((__tmp292228 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp292291 + (__tmp292221 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L287324_ - _L287326_)) - (let ((__tmp292292 - (lambda (_g287341287347_ - _g287342287350_ - _g287343287352_) - (let ((__tmp292293 - (let ((__tmp292297 + _L287254_ + _L287256_)) + (let ((__tmp292222 + (lambda (_g287271287277_ + _g287272287280_ + _g287273287282_) + (let ((__tmp292223 + (let ((__tmp292227 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive/unchecked))) - (__tmp292294 - (let ((__tmp292295 - (let ((__tmp292296 + (__tmp292224 + (let ((__tmp292225 + (let ((__tmp292226 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g287344287355_ _g287345287358_) + (lambda (_g287274287285_ _g287275287288_) (let () (declare (not safe)) - (cons _g287344287355_ _g287345287358_))))) + (cons _g287274287285_ _g287275287288_))))) (declare (not safe)) - (foldr1 __tmp292296 '() _g287341287347_)))) + (foldr1 __tmp292226 '() _g287271287277_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g287342287350_ - __tmp292295)))) + (cons _g287272287280_ + __tmp292225)))) (declare (not safe)) - (cons __tmp292297 __tmp292294)))) + (cons __tmp292227 __tmp292224)))) (declare (not safe)) - (cons __tmp292293 _g287343287352_))))) + (cons __tmp292223 _g287273287282_))))) (declare (not safe)) - (foldr2 __tmp292292 '() _L287324_ _L287326_))))) + (foldr2 __tmp292222 '() _L287254_ _L287256_))))) (declare (not safe)) - (cons __tmp292298 __tmp292291))) - _arity287214287318_ - _prim287215287321_)))))) + (cons __tmp292228 __tmp292221))) + _arity287144287248_ + _prim287145287251_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop287208287256_ - _target287205287250_ + (_loop287138287186_ + _target287135287180_ '() '())) - (_g287198287233_ _g287199287237_))))) - (_g287198287233_ _g287199287237_)))) - (_g287198287233_ _g287199287237_))))) - (_g287197287361_ _$stx287194_))))) + (_g287128287163_ _g287129287167_))))) + (_g287128287163_ _g287129287167_)))) + (_g287128287163_ _g287129287167_))))) + (_g287127287291_ _$stx287124_))))) diff --git a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm index 22634ca1e..a4aa9d168 100644 --- a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm +++ b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm @@ -1,27 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$$::timestamp 1707423036) + (define gerbil/core$$::timestamp 1707565655) (begin (define gerbil/core$$#class-type-info::t - (make-class-type* - 'gerbil.core#class-type-info::t - 'class-type-info - (list) - '(id name - super - slots - struct? - final? - constructor-method - type-descriptor - constructor - predicate - accessors - mutators - unchecked-accessors - unchecked-mutators) - '() - '#f)) + (let ((__tmp47305 (list))) + (declare (not safe)) + (make-class-type + 'gerbil.core#class-type-info::t + 'class-type-info + __tmp47305 + '(id name + super + slots + struct? + final? + constructor-method + type-descriptor + constructor + predicate + accessors + mutators + unchecked-accessors + unchecked-mutators) + '() + '#f))) (define gerbil/core$$#class-type-info? (let () (declare (not safe)) @@ -388,30 +390,30 @@ (declare (not safe)) (##cdr _e1931819337_)))) (if (gx#stx-pair/null? _tl1931619342_) - (let ((_g47305_ + (let ((_g47306_ (gx#syntax-split-splice _tl1931619342_ '0))) (begin - (let ((_g47306_ + (let ((_g47307_ (let () (declare (not safe)) - (if (##values? _g47305_) - (##vector-length _g47305_) + (if (##values? _g47306_) + (##vector-length _g47306_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47306_ 2))) + (##fx= _g47307_ 2))) (error "Context expects 2 values" - _g47306_))) + _g47307_))) (let ((_target1931919345_ (let () (declare (not safe)) - (##vector-ref _g47305_ 0))) + (##vector-ref _g47306_ 0))) (_tl1932119347_ (let () (declare (not safe)) - (##vector-ref _g47305_ 1)))) + (##vector-ref _g47306_ 1)))) (if (gx#stx-null? _tl1932119347_) (letrec ((_loop1932219350_ (lambda (_hd1932019353_ @@ -426,12 +428,12 @@ (let () (declare (not safe)) (##car _e1932319358_))) (_lp-tl1932519363_ (let () (declare (not safe)) (##cdr _e1932319358_)))) - (let ((__tmp47309 + (let ((__tmp47310 (let () (declare (not safe)) (cons _lp-hd1932419361_ _arg1932619355_)))) (declare (not safe)) - (_loop1932219350_ _lp-tl1932519363_ __tmp47309)))) + (_loop1932219350_ _lp-tl1932519363_ __tmp47310)))) (let ((_arg1932719366_ (reverse _arg1932619355_))) ((lambda (_L19369_) (let ((_$e19383_ @@ -454,8 +456,8 @@ 'constructor))))) (if _$e19383_ ((lambda (_make19386_) - (let ((__tmp47307 - (let ((__tmp47308 + (let ((__tmp47308 + (let ((__tmp47309 (lambda (_g1938719390_ _g1938819392_) (let () @@ -463,9 +465,9 @@ (cons _g1938719390_ _g1938819392_))))) (declare (not safe)) - (foldr1 __tmp47308 '() _L19369_)))) + (foldr1 __tmp47309 '() _L19369_)))) (declare (not safe)) - (cons _make19386_ __tmp47307))) + (cons _make19386_ __tmp47308))) _$e19383_) (gx#raise-syntax-error '#f @@ -519,24 +521,24 @@ _stx19303_ _is?19305_)))) (define gerbil/core$$#syntax-local-class-type-info? - (lambda _g47311_ - (let ((_g47310_ (let () (declare (not safe)) (##length _g47311_)))) - (cond ((let () (declare (not safe)) (##fx= _g47310_ 1)) + (lambda _g47312_ + (let ((_g47311_ (let () (declare (not safe)) (##length _g47312_)))) + (cond ((let () (declare (not safe)) (##fx= _g47311_ 1)) (apply (lambda (_stx19303_) (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 _stx19303_))) - _g47311_)) - ((let () (declare (not safe)) (##fx= _g47310_ 2)) + _g47312_)) + ((let () (declare (not safe)) (##fx= _g47311_ 2)) (apply (lambda (_stx19307_ _is?19308_) (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__% _stx19307_ _is?19308_))) - _g47311_)) + _g47312_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core$$#syntax-local-class-type-info? - _g47311_)))))))) + _g47312_)))))))) diff --git a/src/bootstrap/gerbil/core$_macro-object___0.scm b/src/bootstrap/gerbil/core$_macro-object___0.scm index 6798b5406..fbc93859b 100644 --- a/src/bootstrap/gerbil/core$_macro-object___0.scm +++ b/src/bootstrap/gerbil/core$_macro-object___0.scm @@ -1,15 +1,17 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$::timestamp 1707423036) + (define gerbil/core$::timestamp 1707565655) (begin (define gerbil/core$#macro-object::t - (make-class-type* - 'gerbil.core#macro-object::t - 'macro-object - (list) - '(macro) - '() - '#f)) + (let ((__tmp47313 (list))) + (declare (not safe)) + (make-class-type + 'gerbil.core#macro-object::t + 'macro-object + __tmp47313 + '(macro) + '() + '#f))) (define gerbil/core$#macro-object? (let () (declare (not safe)) @@ -67,7 +69,10 @@ (define gerbil/core$#macro-object::apply-macro-expander::specialize (lambda (__t41600) (let ((__macro41601 - (let ((__tmp41602 (class-slot-offset* __t41600 'macro))) + (let ((__tmp41602 + (let () + (declare (not safe)) + (class-slot-offset __t41600 'macro)))) (if __tmp41602 __tmp41602 (error '"Unknown slot" 'macro))))) (lambda (_self23522_ _stx23523_) (gx#core-apply-expander diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index ea986794b..82b6ad7f5 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -501,8 +501,6 @@ namespace: gerbil/core (find-method find-method) (next-method next-method) (call-next-method call-next-method) - (struct-subtype? struct-subtype?) - (class-subtype? class-subtype?) (substruct? substruct?) (subclass? subclass?) (write-style write-style) diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index e5519dc54..70ebab7aa 100644 --- a/src/bootstrap/gerbil/core__10.scm +++ b/src/bootstrap/gerbil/core__10.scm @@ -1,117 +1,119 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g49839_| + (define |gerbil/core$[1]#_g49842_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49840_| + (define |gerbil/core$[1]#_g49843_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49897_| + (define |gerbil/core$[1]#_g49900_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49898_| + (define |gerbil/core$[1]#_g49901_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49899_| + (define |gerbil/core$[1]#_g49902_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49901_| + (define |gerbil/core$[1]#_g49904_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49902_| + (define |gerbil/core$[1]#_g49905_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49903_| + (define |gerbil/core$[1]#_g49906_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49904_| + (define |gerbil/core$[1]#_g49907_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49905_| + (define |gerbil/core$[1]#_g49908_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49906_| + (define |gerbil/core$[1]#_g49909_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49907_| + (define |gerbil/core$[1]#_g49910_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49908_| + (define |gerbil/core$[1]#_g49911_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49909_| + (define |gerbil/core$[1]#_g49912_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49910_| + (define |gerbil/core$[1]#_g49913_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50303_| + (define |gerbil/core$[1]#_g50306_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50387_| + (define |gerbil/core$[1]#_g50390_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50407_| + (define |gerbil/core$[1]#_g50410_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50408_| + (define |gerbil/core$[1]#_g50411_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50537_| + (define |gerbil/core$[1]#_g50540_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50538_| + (define |gerbil/core$[1]#_g50541_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50539_| + (define |gerbil/core$[1]#_g50542_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50540_| + (define |gerbil/core$[1]#_g50543_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50541_| + (define |gerbil/core$[1]#_g50544_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (begin (define |gerbil/core$[1]#match-macro::t| - (make-class-type* - 'gerbil.core#match-macro::t - 'match-macro - (list gerbil/core$#macro-object::t) - '() - '() - '#f)) + (let ((__tmp49826 (list gerbil/core$#macro-object::t))) + (declare (not safe)) + (make-class-type + 'gerbil.core#match-macro::t + 'match-macro + __tmp49826 + '() + '() + '#f))) (define |gerbil/core$[1]#match-macro?| (let () (declare (not safe)) @@ -148,11 +150,11 @@ (define |gerbil/core$[1]#syntax-local-match-macro?| (lambda (_stx30746_) (if (gx#identifier? _stx30746_) - (let ((__tmp49824 (gx#syntax-local-value _stx30746_ false))) + (let ((__tmp49827 (gx#syntax-local-value _stx30746_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#match-macro::t| - __tmp49824)) + __tmp49827)) '#f))) (define |gerbil/core$[1]#parse-match-pattern__%| (lambda (_stx29052_ _match-stx29054_) @@ -176,75 +178,75 @@ ___stx4455444555_)))) (let ((___kont4455744558_ (lambda () - (let ((__tmp49825 + (let ((__tmp49828 (let () (declare (not safe)) (cons _L30511_ '())))) (declare (not safe)) - (cons '?: __tmp49825)))) + (cons '?: __tmp49828)))) (___kont4455944560_ (lambda (_L30702_) - (let ((__tmp49826 - (let ((__tmp49827 - (let ((__tmp49828 + (let ((__tmp49829 + (let ((__tmp49830 + (let ((__tmp49831 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (_parse129056_ _L30702_)))) (declare (not safe)) - (cons __tmp49828 '())))) + (cons __tmp49831 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30511_ - __tmp49827)))) + __tmp49830)))) (declare (not safe)) - (cons '?: __tmp49826)))) + (cons '?: __tmp49829)))) (___kont4456144562_ (lambda (_L30672_) - (let ((__tmp49829 - (let ((__tmp49830 - (let ((__tmp49831 - (let ((__tmp49832 + (let ((__tmp49832 + (let ((__tmp49833 + (let ((__tmp49834 + (let ((__tmp49835 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (_parse129056_ _L30672_)))) (declare (not safe)) - (cons __tmp49832 '())))) + (cons __tmp49835 '())))) (declare (not safe)) - (cons '=>: __tmp49831)))) + (cons '=>: __tmp49834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30511_ - __tmp49830)))) + __tmp49833)))) (declare (not safe)) - (cons '?: __tmp49829)))) + (cons '?: __tmp49832)))) (___kont4456344564_ (lambda (_L30623_ _L30625_) - (let ((__tmp49833 - (let ((__tmp49834 - (let ((__tmp49835 - (let ((__tmp49836 + (let ((__tmp49836 + (let ((__tmp49837 + (let ((__tmp49838 + (let ((__tmp49839 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49837 - (let ((__tmp49838 + (let ((__tmp49840 + (let ((__tmp49841 (let () (declare (not safe)) (_parse129056_ _L30623_)))) (declare (not safe)) - (cons __tmp49838 '())))) + (cons __tmp49841 '())))) (declare (not safe)) - (cons '=>: __tmp49837)))) + (cons '=>: __tmp49840)))) (declare (not safe)) - (cons _L30625_ __tmp49836)))) + (cons _L30625_ __tmp49839)))) (declare (not safe)) - (cons ':: __tmp49835)))) + (cons ':: __tmp49838)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30511_ - __tmp49834)))) + __tmp49837)))) (declare (not safe)) - (cons '?: __tmp49833)))) + (cons '?: __tmp49836)))) (___kont4456544566_ (lambda () (let () @@ -273,7 +275,7 @@ _hd3053230696_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g49840_| + |gerbil/core$[1]#_g49843_| _hd3053230696_) (if (gx#stx-pair? _tl3053130699_) (let ((_e3054030662_ (gx#syntax-e _tl3053130699_))) @@ -320,7 +322,7 @@ (if (gx#identifier? _hd3055130607_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49839_| + |gerbil/core$[1]#_g49842_| _hd3055130607_) (if (gx#stx-pair? _tl3055030610_) @@ -367,12 +369,12 @@ (_parse129056_ _L30465_)))) (___kont4454144542_ (lambda () - (let ((__tmp49841 + (let ((__tmp49844 (gx#stx-map _parse129056_ _L30414_))) (declare (not safe)) - (cons 'and: __tmp49841))))) + (cons 'and: __tmp49844))))) (if (gx#stx-pair? ___stx4453644537_) (let ((_e3043130455_ (gx#syntax-e ___stx4453644537_))) @@ -405,12 +407,12 @@ (_parse129056_ _L30380_)))) (___kont4452344524_ (lambda () - (let ((__tmp49842 + (let ((__tmp49845 (gx#stx-map _parse129056_ _L30329_))) (declare (not safe)) - (cons 'or: __tmp49842))))) + (cons 'or: __tmp49845))))) (if (gx#stx-pair? ___stx4451844519_) (let ((_e3034630370_ (gx#syntax-e ___stx4451844519_))) @@ -429,80 +431,80 @@ (___kont4452344524_)))))) (___kont4464344644_ (lambda (_L30299_) - (let ((__tmp49843 - (let ((__tmp49844 + (let ((__tmp49846 + (let ((__tmp49847 (let () (declare (not safe)) (_parse129056_ _L30299_)))) (declare (not safe)) - (cons __tmp49844 '())))) + (cons __tmp49847 '())))) (declare (not safe)) - (cons 'not: __tmp49843)))) + (cons 'not: __tmp49846)))) (___kont4464544646_ (lambda (_L30255_ _L30257_) - (let ((__tmp49845 - (let ((__tmp49848 + (let ((__tmp49848 + (let ((__tmp49851 (let () (declare (not safe)) (_parse129056_ _L30257_))) - (__tmp49846 - (let ((__tmp49847 + (__tmp49849 + (let ((__tmp49850 (let () (declare (not safe)) (_parse129056_ _L30255_)))) (declare (not safe)) - (cons __tmp49847 '())))) + (cons __tmp49850 '())))) (declare (not safe)) - (cons __tmp49848 __tmp49846)))) + (cons __tmp49851 __tmp49849)))) (declare (not safe)) - (cons 'cons: __tmp49845)))) + (cons 'cons: __tmp49848)))) (___kont4464744648_ (lambda (_L30199_ _L30201_ _L30202_) (if (gx#stx-null? _L30199_) - (let ((__tmp49856 - (let ((__tmp49859 + (let ((__tmp49859 + (let ((__tmp49862 (let () (declare (not safe)) (_parse129056_ _L30202_))) - (__tmp49857 - (let ((__tmp49858 + (__tmp49860 + (let ((__tmp49861 (let () (declare (not safe)) (_parse129056_ _L30201_)))) (declare (not safe)) - (cons __tmp49858 '())))) + (cons __tmp49861 '())))) (declare (not safe)) - (cons __tmp49859 __tmp49857)))) + (cons __tmp49862 __tmp49860)))) (declare (not safe)) - (cons 'cons: __tmp49856)) - (let ((__tmp49849 - (let ((__tmp49855 + (cons 'cons: __tmp49859)) + (let ((__tmp49852 + (let ((__tmp49858 (let () (declare (not safe)) (_parse129056_ _L30202_))) - (__tmp49850 - (let ((__tmp49851 - (let ((__tmp49852 - (let ((__tmp49854 + (__tmp49853 + (let ((__tmp49854 + (let ((__tmp49855 + (let ((__tmp49857 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons*)) - (__tmp49853 + (__tmp49856 (let () (declare (not safe)) (cons _L30201_ _L30199_)))) (declare (not safe)) - (cons __tmp49854 __tmp49853)))) + (cons __tmp49857 __tmp49856)))) (declare (not safe)) - (_parse129056_ __tmp49852)))) + (_parse129056_ __tmp49855)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49851 '())))) + (cons __tmp49854 '())))) (declare (not safe)) - (cons __tmp49855 __tmp49850)))) + (cons __tmp49858 __tmp49853)))) (declare (not safe)) - (cons 'cons: __tmp49849))))) + (cons 'cons: __tmp49852))))) (___kont4464944650_ (lambda (_L30151_) (let () @@ -510,26 +512,26 @@ (_parse-list29058_ _L30151_)))) (___kont4465144652_ (lambda (_L30121_) - (let ((__tmp49860 - (let ((__tmp49861 + (let ((__tmp49863 + (let ((__tmp49864 (let () (declare (not safe)) (_parse129056_ _L30121_)))) (declare (not safe)) - (cons __tmp49861 '())))) + (cons __tmp49864 '())))) (declare (not safe)) - (cons 'box: __tmp49860)))) + (cons 'box: __tmp49863)))) (___kont4465344654_ (lambda (_L30084_) - (let ((__tmp49862 - (let ((__tmp49863 + (let ((__tmp49865 + (let ((__tmp49866 (let () (declare (not safe)) (_parse129056_ _L30084_)))) (declare (not safe)) - (cons __tmp49863 '())))) + (cons __tmp49866 '())))) (declare (not safe)) - (cons 'box: __tmp49862)))) + (cons 'box: __tmp49865)))) (___kont4465544656_ (lambda (_L30060_) (let () @@ -537,34 +539,34 @@ (_parse129056_ _L30060_)))) (___kont4465744658_ (lambda (_L30022_) - (let ((__tmp49864 - (let ((__tmp49865 + (let ((__tmp49867 + (let ((__tmp49868 (let () (declare (not safe)) (_parse-vector29059_ _L30022_)))) (declare (not safe)) - (cons __tmp49865 '())))) + (cons __tmp49868 '())))) (declare (not safe)) - (cons 'values: __tmp49864)))) + (cons 'values: __tmp49867)))) (___kont4465944660_ (lambda (_L29994_) - (let ((__tmp49866 - (let ((__tmp49867 + (let ((__tmp49869 + (let ((__tmp49870 (let () (declare (not safe)) (_parse-vector29059_ _L29994_)))) (declare (not safe)) - (cons __tmp49867 '())))) + (cons __tmp49870 '())))) (declare (not safe)) - (cons 'vector: __tmp49866)))) + (cons 'vector: __tmp49869)))) (___kont4466144662_ (lambda (_L29955_) - (let ((__tmp49868 - (let ((__tmp49869 - (let ((__tmp49870 - (let ((__tmp49871 + (let ((__tmp49871 + (let ((__tmp49872 + (let ((__tmp49873 + (let ((__tmp49874 (lambda (_g2996829971_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2996929974_) @@ -572,83 +574,83 @@ (declare (not safe)) (cons _g2996829971_ _g2996929974_))))) (declare (not safe)) - (foldr1 __tmp49871 '() _L29955_)))) + (foldr1 __tmp49874 '() _L29955_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_parse-vector29059_ - __tmp49870)))) + __tmp49873)))) (declare (not safe)) - (cons __tmp49869 '())))) + (cons __tmp49872 '())))) (declare (not safe)) - (cons 'vector: __tmp49868)))) + (cons 'vector: __tmp49871)))) (___kont4466544666_ (lambda (_L29901_ _L29903_) - (let ((__tmp49872 - (let ((__tmp49875 + (let ((__tmp49875 + (let ((__tmp49878 (gx#syntax-local-value _L29903_)) - (__tmp49873 - (let ((__tmp49874 + (__tmp49876 + (let ((__tmp49877 (let () (declare (not safe)) (_parse-vector29059_ _L29901_)))) (declare (not safe)) - (cons __tmp49874 '())))) + (cons __tmp49877 '())))) (declare (not safe)) - (cons __tmp49875 __tmp49873)))) + (cons __tmp49878 __tmp49876)))) (declare (not safe)) - (cons 'struct: __tmp49872)))) + (cons 'struct: __tmp49875)))) (___kont4466744668_ (lambda (_L29871_ _L29873_) - (let ((__tmp49876 - (let ((__tmp49879 + (let ((__tmp49879 + (let ((__tmp49882 (gx#syntax-local-value _L29873_)) - (__tmp49877 - (let ((__tmp49878 + (__tmp49880 + (let ((__tmp49881 (let () (declare (not safe)) (_parse-class-body29061_ _L29871_)))) (declare (not safe)) - (cons __tmp49878 '())))) + (cons __tmp49881 '())))) (declare (not safe)) - (cons __tmp49879 __tmp49877)))) + (cons __tmp49882 __tmp49880)))) (declare (not safe)) - (cons 'class: __tmp49876)))) + (cons 'class: __tmp49879)))) (___kont4466944670_ (lambda (_L29831_ _L29833_) - (let ((__tmp49880 - (let ((__tmp49881 - (let ((__tmp49886 + (let ((__tmp49883 + (let ((__tmp49884 + (let ((__tmp49889 (gx#datum->syntax '#f 'cut)) - (__tmp49882 - (let ((__tmp49883 - (let ((__tmp49885 + (__tmp49885 + (let ((__tmp49886 + (let ((__tmp49888 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '<>)) - (__tmp49884 + (__tmp49887 (let () (declare (not safe)) (cons _L29831_ '())))) (declare (not safe)) - (cons __tmp49885 __tmp49884)))) + (cons __tmp49888 __tmp49887)))) (declare (not safe)) - (cons _L29833_ __tmp49883)))) + (cons _L29833_ __tmp49886)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49886 __tmp49882)))) + (cons __tmp49889 __tmp49885)))) (declare (not safe)) - (cons __tmp49881 '())))) + (cons __tmp49884 '())))) (declare (not safe)) - (cons '?: __tmp49880)))) + (cons '?: __tmp49883)))) (___kont4467144672_ (lambda (_L29791_) - (let ((__tmp49887 - (let ((__tmp49888 (gx#stx-e _L29791_))) + (let ((__tmp49890 + (let ((__tmp49891 (gx#stx-e _L29791_))) (declare (not safe)) - (cons __tmp49888 '())))) + (cons __tmp49891 '())))) (declare (not safe)) - (cons 'datum: __tmp49887)))) + (cons 'datum: __tmp49890)))) (___kont4467344674_ (lambda (_L29751_) (let () @@ -656,22 +658,22 @@ (_parse-qq29062_ _L29751_)))) (___kont4467544676_ (lambda (_L29707_ _L29709_) - (let ((__tmp49889 - (let ((__tmp49890 - (let ((__tmp49891 + (let ((__tmp49892 + (let ((__tmp49893 + (let ((__tmp49894 (let () (declare (not safe)) (_parse129056_ _L29707_)))) (declare (not safe)) - (cons __tmp49891 '())))) + (cons __tmp49894 '())))) (declare (not safe)) - (cons _L29709_ __tmp49890)))) + (cons _L29709_ __tmp49893)))) (declare (not safe)) - (cons 'apply: __tmp49889)))) + (cons 'apply: __tmp49892)))) (___kont4467744678_ (lambda (_L29655_) - (let ((__tmp49892 + (let ((__tmp49895 (gx#core-apply-expander (gx#syntax-local-e _L29655_) (gx#stx-wrap-source @@ -684,26 +686,26 @@ _$e29666_ (gx#stx-source _stx29052_))))))) (declare (not safe)) - (_parse129056_ __tmp49892)))) + (_parse129056_ __tmp49895)))) (___kont4467944680_ (lambda (_L29629_) (let () (declare (not safe)) (cons 'any: '())))) (___kont4468144682_ (lambda (_L29613_) - (let ((__tmp49893 + (let ((__tmp49896 (let () (declare (not safe)) (cons _L29613_ '())))) (declare (not safe)) - (cons 'var: __tmp49893)))) + (cons 'var: __tmp49896)))) (___kont4468344684_ (lambda (_L29595_) - (let ((__tmp49894 - (let ((__tmp49895 (gx#stx-e _L29595_))) + (let ((__tmp49897 + (let ((__tmp49898 (gx#stx-e _L29595_))) (declare (not safe)) - (cons __tmp49895 '())))) + (cons __tmp49898 '())))) (declare (not safe)) - (cons 'datum: __tmp49894)))) + (cons 'datum: __tmp49897)))) (___kont4468544686_ (lambda () (let () @@ -719,10 +721,10 @@ (lambda () (let ((_L29613_ ___stx4463444635_)) (if (and (gx#identifier? _L29613_) - (let ((__tmp49896 + (let ((__tmp49899 (gx#ellipsis? _L29613_))) (declare (not safe)) - (not __tmp49896))) + (not __tmp49899))) (___kont4468144682_ _L29613_) (let () (declare (not safe)) @@ -772,12 +774,12 @@ (___kont4466944670_ _L29831_ _L29833_) (if (gx#identifier? _hd2953529815_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49898_| + |gerbil/core$[1]#_g49901_| _hd2953529815_) (___kont4467144672_ _hd2953829825_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49897_| + |gerbil/core$[1]#_g49900_| _hd2953529815_) (___kont4467344674_ _hd2953829825_) @@ -824,7 +826,7 @@ (if (gx#identifier? _hd2953029865_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49898_| + |gerbil/core$[1]#_g49901_| _hd2953029865_) (___match4496144962_ _e2953129861_ @@ -832,14 +834,14 @@ _tl2952929868_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g49897_| + |gerbil/core$[1]#_g49900_| _hd2953029865_) (___match4496144962_ _e2953129861_ _hd2953029865_ _tl2952929868_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49899_| + |gerbil/core$[1]#_g49902_| _hd2953029865_) (if (gx#stx-pair? _tl2953729828_) (let ((_e2956429697_ @@ -915,14 +917,14 @@ (declare (not safe)) (##car _e2951729941_)))) - (let ((__tmp49900 + (let ((__tmp49903 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _lp-hd2951829945_ _body2952029938_)))) (declare (not safe)) - (_loop2951629931_ _lp-tl2951929948_ __tmp49900)))) + (_loop2951629931_ _lp-tl2951929948_ __tmp49903)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_body2952129951_ (reverse _body2952029938_))) @@ -1018,7 +1020,7 @@ (##car _e2944130489_)))) (if (gx#identifier? _hd2944030493_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49910_| + |gerbil/core$[1]#_g49913_| _hd2944030493_) (if (gx#stx-pair? _tl2943930496_) (let ((_e2944430499_ @@ -1040,21 +1042,21 @@ _hd2944030493_ _tl2943930496_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49909_| + |gerbil/core$[1]#_g49912_| _hd2944030493_) (___match4471344714_ _e2944130489_ _hd2944030493_ _tl2943930496_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49908_| + |gerbil/core$[1]#_g49911_| _hd2944030493_) (___match4472344724_ _e2944130489_ _hd2944030493_ _tl2943930496_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49907_| + |gerbil/core$[1]#_g49910_| _hd2944030493_) (if (gx#stx-pair? _tl2943930496_) @@ -1078,7 +1080,7 @@ _hd2944030493_ _tl2943930496_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49906_| + |gerbil/core$[1]#_g49909_| _hd2944030493_) (if (gx#stx-pair? _tl2943930496_) (let ((_e2946730235_ (gx#syntax-e _tl2943930496_))) @@ -1118,7 +1120,7 @@ _hd2944030493_ _tl2943930496_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49905_| + |gerbil/core$[1]#_g49908_| _hd2944030493_) (if (gx#stx-pair? _tl2943930496_) (let ((_e2947930179_ (gx#syntax-e _tl2943930496_))) @@ -1154,11 +1156,11 @@ _hd2944030493_ _tl2943930496_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49904_| + |gerbil/core$[1]#_g49907_| _hd2944030493_) (___kont4464944650_ _tl2943930496_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49903_| + |gerbil/core$[1]#_g49906_| _hd2944030493_) (if (gx#stx-pair? _tl2943930496_) (let ((_e2949330111_ @@ -1182,7 +1184,7 @@ _hd2944030493_ _tl2943930496_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49902_| + |gerbil/core$[1]#_g49905_| _hd2944030493_) (if (gx#stx-pair? _tl2943930496_) (let ((_e2950230050_ @@ -1202,7 +1204,7 @@ _tl2943930496_)))) (___kont4465744658_ _tl2943930496_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49901_| + |gerbil/core$[1]#_g49904_| _hd2944030493_) (___kont4465944660_ _tl2943930496_) (___match4487544876_ @@ -1233,52 +1235,52 @@ (_parse129056_ _L29391_)))) (___kont4496944970_ (lambda (_L29343_ _L29345_ _L29346_) - (let ((__tmp49911 - (let ((__tmp49914 + (let ((__tmp49914 + (let ((__tmp49917 (let () (declare (not safe)) (_parse129056_ _L29346_))) - (__tmp49912 - (let ((__tmp49913 + (__tmp49915 + (let ((__tmp49916 (let () (declare (not safe)) (_parse-list29058_ _L29343_)))) (declare (not safe)) - (cons __tmp49913 '())))) + (cons __tmp49916 '())))) (declare (not safe)) - (cons __tmp49914 __tmp49912)))) + (cons __tmp49917 __tmp49915)))) (declare (not safe)) - (cons 'splice: __tmp49911)))) + (cons 'splice: __tmp49914)))) (___kont4497144972_ (lambda (_L29301_ _L29303_) - (let ((__tmp49915 - (let ((__tmp49918 + (let ((__tmp49918 + (let ((__tmp49921 (let () (declare (not safe)) (_parse129056_ _L29303_))) - (__tmp49916 - (let ((__tmp49917 + (__tmp49919 + (let ((__tmp49920 (let () (declare (not safe)) (_parse-list29058_ _L29301_)))) (declare (not safe)) - (cons __tmp49917 '())))) + (cons __tmp49920 '())))) (declare (not safe)) - (cons __tmp49918 __tmp49916)))) + (cons __tmp49921 __tmp49919)))) (declare (not safe)) - (cons 'cons: __tmp49915)))) + (cons 'cons: __tmp49918)))) (___kont4497344974_ (lambda () (if (gx#stx-null? _body29238_) (let () (declare (not safe)) (cons 'null: '())) - (if (let ((__tmp49919 + (if (let ((__tmp49922 (gx#stx-pair? _body29238_))) (declare (not safe)) - (not __tmp49919)) + (not __tmp49922)) (let () (declare (not safe)) (_parse129056_ _body29238_)) @@ -1291,10 +1293,10 @@ _tl2926529298_) (let ((_L29301_ _tl2926529298_) (_L29303_ _hd2926629295_)) - (if (let ((__tmp49920 + (if (let ((__tmp49923 (gx#ellipsis? _L29303_))) (declare (not safe)) - (not __tmp49920)) + (not __tmp49923)) (___kont4497144972_ _L29301_ _L29303_) (___kont4497344974_))))) (___match4500745008_ @@ -1411,22 +1413,22 @@ (if (let () (declare (not safe)) (_simple-vector?29060_ _body29235_)) - (let ((__tmp49923 - (let ((__tmp49924 + (let ((__tmp49926 + (let ((__tmp49927 (gx#stx-map _parse129056_ _body29235_))) (declare (not safe)) - (cons __tmp49924 '())))) + (cons __tmp49927 '())))) (declare (not safe)) - (cons 'simple: __tmp49923)) - (let ((__tmp49921 - (let ((__tmp49922 + (cons 'simple: __tmp49926)) + (let ((__tmp49924 + (let ((__tmp49925 (let () (declare (not safe)) (_parse-list29058_ _body29235_)))) (declare (not safe)) - (cons __tmp49922 '())))) + (cons __tmp49925 '())))) (declare (not safe)) - (cons 'list: __tmp49921))))) + (cons 'list: __tmp49924))))) (_simple-vector?29060_ (lambda (_body29172_) (let* ((___stx4501645017_ _body29172_) @@ -1438,9 +1440,9 @@ ___stx4501645017_)))) (let ((___kont4501945020_ (lambda (_L29216_ _L29218_) - (if (let ((__tmp49925 (gx#ellipsis? _L29218_))) + (if (let ((__tmp49928 (gx#ellipsis? _L29218_))) (declare (not safe)) - (not __tmp49925)) + (not __tmp49928)) (let () (declare (not safe)) (_simple-vector?29060_ _L29216_)) @@ -1474,19 +1476,19 @@ ___stx4503245033_)))) (let ((___kont4503545036_ (lambda (_L29145_ _L29147_ _L29148_) - (let ((__tmp49926 - (let ((__tmp49928 + (let ((__tmp49929 + (let ((__tmp49931 (let () (declare (not safe)) (_parse129056_ _L29147_))) - (__tmp49927 + (__tmp49930 (let () (declare (not safe)) (_recur29084_ _L29145_)))) (declare (not safe)) - (cons __tmp49928 __tmp49927)))) + (cons __tmp49931 __tmp49930)))) (declare (not safe)) - (cons _L29148_ __tmp49926)))) + (cons _L29148_ __tmp49929)))) (___kont4503745038_ (lambda () (if (gx#stx-null? _rest29087_) @@ -1557,21 +1559,21 @@ '#f '"bad syntax; illegal pattern" (if _match-stx29054_ - (let ((__tmp49930 - (let ((__tmp49931 + (let ((__tmp49933 + (let ((__tmp49934 (let () (declare (not safe)) (cons _hd29065_ '())))) (declare (not safe)) - (cons _stx29052_ __tmp49931)))) + (cons _stx29052_ __tmp49934)))) (declare (not safe)) - (cons _match-stx29054_ __tmp49930)) - (let ((__tmp49929 + (cons _match-stx29054_ __tmp49933)) + (let ((__tmp49932 (let () (declare (not safe)) (cons _hd29065_ '())))) (declare (not safe)) - (cons _stx29052_ __tmp49929))))))) + (cons _stx29052_ __tmp49932))))))) (let () (declare (not safe)) (_parse129056_ _stx29052_))))) (define |gerbil/core$[1]#parse-match-pattern__0| (lambda (_stx30736_) @@ -1581,27 +1583,27 @@ _stx30736_ _match-stx30739_)))) (define |gerbil/core$[1]#parse-match-pattern| - (lambda _g49933_ - (let ((_g49932_ (let () (declare (not safe)) (##length _g49933_)))) - (cond ((let () (declare (not safe)) (##fx= _g49932_ 1)) + (lambda _g49936_ + (let ((_g49935_ (let () (declare (not safe)) (##length _g49936_)))) + (cond ((let () (declare (not safe)) (##fx= _g49935_ 1)) (apply (lambda (_stx30736_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__0| _stx30736_))) - _g49933_)) - ((let () (declare (not safe)) (##fx= _g49932_ 2)) + _g49936_)) + ((let () (declare (not safe)) (##fx= _g49935_ 2)) (apply (lambda (_stx30742_ _match-stx30744_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| _stx30742_ _match-stx30744_))) - _g49933_)) + _g49936_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$[1]#parse-match-pattern| - _g49933_)))))) + _g49936_)))))) (define |gerbil/core$[1]#match-pattern?| (lambda (_stx29036_) (call-with-current-continuation @@ -1769,9 +1771,9 @@ ___stx4505445055_)))) (let ((___kont4505745058_ (lambda (_L28762_ _L28764_) - (let ((__tmp49934 + (let ((__tmp49937 (lambda (_g2877628778_) - (let ((__tmp49935 + (let ((__tmp49938 (let () (declare (not safe)) @@ -1781,14 +1783,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_loop27774_ - __tmp49935 + __tmp49938 _g2877628778_ _K28064_))))) (declare (not safe)) (_loop27774_ _L28764_ _vars28063_ - __tmp49934)))) + __tmp49937)))) (___kont4505945060_ (lambda () (_K28064_ _vars28063_)))) (if (gx#stx-pair? ___stx4505445055_) @@ -1813,7 +1815,7 @@ (_loop27774_ _L28673_ _vars28063_ _K28064_)))) (___kont4515945160_ (lambda (_L28619_ _L28621_) - (let ((__tmp49936 + (let ((__tmp49939 (lambda (_g2863628638_) (let () (declare (not safe)) @@ -1825,10 +1827,10 @@ (_loop27774_ _L28621_ _vars28063_ - __tmp49936)))) + __tmp49939)))) (___kont4516145162_ (lambda (_L28555_ _L28557_) - (let ((__tmp49937 + (let ((__tmp49940 (lambda (_g2857228574_) (let () (declare (not safe)) @@ -1840,7 +1842,7 @@ (_loop27774_ _L28557_ _vars28063_ - __tmp49937)))) + __tmp49940)))) (___kont4516345164_ (lambda (_L28500_) (let () @@ -1877,13 +1879,13 @@ (_loop27774_ _L28291_ _vars28063_ _K28064_)))) (___kont4517345174_ (lambda (_L28229_) - (if (let ((__tmp49938 + (if (let ((__tmp49941 (lambda (_g2824428246_) (gx#bound-identifier=? _g2824428246_ _L28229_)))) (declare (not safe)) - (find __tmp49938 _vars28063_)) + (find __tmp49941 _vars28063_)) (_K28064_ _vars28063_) (_K28064_ (let () @@ -2319,7 +2321,7 @@ ___stx4545845459_)))) (let ((___kont4546145462_ (lambda (_L27913_ _L27915_) - (let ((__tmp49939 + (let ((__tmp49942 (lambda (_g2792727929_) (let () (declare (not safe)) @@ -2331,7 +2333,7 @@ (_loop27774_ _L27915_ _vars27869_ - __tmp49939)))) + __tmp49942)))) (___kont4546345464_ (lambda () (_K27870_ _vars27869_)))) (if (gx#stx-pair? ___stx4545845459_) @@ -2360,7 +2362,7 @@ ___stx4547445475_)))) (let ((___kont4547745478_ (lambda (_L27839_ _L27841_) - (let ((__tmp49940 + (let ((__tmp49943 (lambda (_g2785727859_) (let () (declare (not safe)) @@ -2372,7 +2374,7 @@ (_loop27774_ _L27841_ _vars27782_ - __tmp49940)))) + __tmp49943)))) (___kont4547945480_ (lambda () (_K27783_ _vars27782_)))) (if (gx#stx-pair? ___stx4547445475_) @@ -2438,46 +2440,46 @@ ___stx4562845629_)))) (let ((___kont4563145632_ (lambda () - (let ((__tmp49941 - (let ((__tmp49944 + (let ((__tmp49944 + (let ((__tmp49947 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49947 (gx#datum->syntax '#f '?)) - (__tmp49945 - (let ((__tmp49946 + (let ((__tmp49950 (gx#datum->syntax '#f '?)) + (__tmp49948 + (let ((__tmp49949 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons _L27484_ __tmp49946)))) + (cons _L27484_ __tmp49949)))) (declare (not safe)) - (cons __tmp49947 __tmp49945))) - (__tmp49942 - (let ((__tmp49943 + (cons __tmp49950 __tmp49948))) + (__tmp49945 + (let ((__tmp49946 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons _K25987_ __tmp49943)))) + (cons _K25987_ __tmp49946)))) (declare (not safe)) - (cons __tmp49944 __tmp49942)))) + (cons __tmp49947 __tmp49945)))) (declare (not safe)) - (cons 'if __tmp49941)))) + (cons 'if __tmp49944)))) (___kont4563345634_ (lambda (_L27737_) - (let ((__tmp49948 - (let ((__tmp49952 - (let ((__tmp49955 (gx#datum->syntax '#f '?)) - (__tmp49953 - (let ((__tmp49954 + (let ((__tmp49951 + (let ((__tmp49955 + (let ((__tmp49958 (gx#datum->syntax '#f '?)) + (__tmp49956 + (let ((__tmp49957 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons _L27484_ __tmp49954)))) + (cons _L27484_ __tmp49957)))) (declare (not safe)) - (cons __tmp49955 __tmp49953))) - (__tmp49949 - (let ((__tmp49951 + (cons __tmp49958 __tmp49956))) + (__tmp49952 + (let ((__tmp49954 (let () (declare (not safe)) (_generate124739_ @@ -2485,16 +2487,16 @@ _L27737_ _K25987_ _E25988_))) - (__tmp49950 + (__tmp49953 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons __tmp49951 __tmp49950)))) + (cons __tmp49954 __tmp49953)))) (declare (not safe)) - (cons __tmp49952 __tmp49949)))) + (cons __tmp49955 __tmp49952)))) (declare (not safe)) - (cons 'if __tmp49948)))) + (cons 'if __tmp49951)))) (___kont4563545636_ (lambda (_L27675_) (let* ((_g2768927697_ @@ -2507,31 +2509,31 @@ (lambda (_g2769027701_) ((lambda (_L27704_) (let () - (let ((__tmp49956 - (let ((__tmp49963 - (let ((__tmp49964 - (let ((__tmp49965 - (let ((__tmp49966 + (let ((__tmp49959 + (let ((__tmp49966 + (let ((__tmp49967 + (let ((__tmp49968 + (let ((__tmp49969 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49967 + (let ((__tmp49970 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons _L27484_ __tmp49967)))) + (cons _L27484_ __tmp49970)))) (declare (not safe)) - (cons __tmp49966 '())))) + (cons __tmp49969 '())))) (declare (not safe)) - (cons _L27704_ __tmp49965)))) + (cons _L27704_ __tmp49968)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49964 '()))) - (__tmp49957 - (let ((__tmp49958 - (let ((__tmp49959 - (let ((__tmp49960 + (cons __tmp49967 '()))) + (__tmp49960 + (let ((__tmp49961 + (let ((__tmp49962 + (let ((__tmp49963 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49962 + (let ((__tmp49965 (let () (declare (not safe)) (_generate124739_ @@ -2539,27 +2541,27 @@ _L27675_ _K25987_ _E25988_))) - (__tmp49961 + (__tmp49964 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons __tmp49962 __tmp49961)))) + (cons __tmp49965 __tmp49964)))) (declare (not safe)) - (cons _L27704_ __tmp49960)))) + (cons _L27704_ __tmp49963)))) (declare (not safe)) - (cons 'if __tmp49959)))) + (cons 'if __tmp49962)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49958 '())))) + (cons __tmp49961 '())))) (declare (not safe)) - (cons __tmp49963 __tmp49957)))) + (cons __tmp49966 __tmp49960)))) (declare (not safe)) - (cons 'let __tmp49956)))) + (cons 'let __tmp49959)))) _g2769027701_))) - (__tmp49968 (gx#genident 'e))) + (__tmp49971 (gx#genident 'e))) (declare (not safe)) - (_g2768827716_ __tmp49968)))) + (_g2768827716_ __tmp49971)))) (___kont4563745638_ (lambda (_L27591_ _L27593_) (let* ((_g2761327621_ @@ -2572,12 +2574,12 @@ (lambda (_g2761427625_) ((lambda (_L27628_) (let () - (let ((__tmp49969 - (let ((__tmp49981 - (let ((__tmp49984 + (let ((__tmp49972 + (let ((__tmp49984 + (let ((__tmp49987 (gx#datum->syntax '#f '?)) - (__tmp49982 - (let ((__tmp49983 + (__tmp49985 + (let ((__tmp49986 (let () (declare (not safe)) @@ -2585,32 +2587,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L27484_ __tmp49983)))) + (cons _L27484_ __tmp49986)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49984 __tmp49982))) - (__tmp49970 - (let ((__tmp49972 - (let ((__tmp49973 - (let ((__tmp49976 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49977 - (let ((__tmp49978 - (let ((__tmp49979 - (let ((__tmp49980 + (cons __tmp49987 __tmp49985))) + (__tmp49973 + (let ((__tmp49975 + (let ((__tmp49976 + (let ((__tmp49979 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49980 + (let ((__tmp49981 + (let ((__tmp49982 + (let ((__tmp49983 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons _L27593_ __tmp49980)))) + (cons _L27593_ __tmp49983)))) (declare (not safe)) - (cons __tmp49979 '())))) + (cons __tmp49982 '())))) (declare (not safe)) - (cons _L27628_ __tmp49978)))) + (cons _L27628_ __tmp49981)))) (declare (not safe)) - (cons __tmp49977 '()))) - (__tmp49974 - (let ((__tmp49975 + (cons __tmp49980 '()))) + (__tmp49977 + (let ((__tmp49978 (let () (declare (not safe)) (_generate124739_ @@ -2619,26 +2621,26 @@ _K25987_ _E25988_)))) (declare (not safe)) - (cons __tmp49975 '())))) + (cons __tmp49978 '())))) (declare (not safe)) - (cons __tmp49976 __tmp49974)))) + (cons __tmp49979 __tmp49977)))) (declare (not safe)) - (cons 'let __tmp49973))) + (cons 'let __tmp49976))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49971 + (__tmp49974 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons __tmp49972 __tmp49971)))) + (cons __tmp49975 __tmp49974)))) (declare (not safe)) - (cons __tmp49981 __tmp49970)))) + (cons __tmp49984 __tmp49973)))) (declare (not safe)) - (cons 'if __tmp49969)))) + (cons 'if __tmp49972)))) _g2761427625_))) - (__tmp49985 (gx#genident 'e))) + (__tmp49988 (gx#genident 'e))) (declare (not safe)) - (_g2761227640_ __tmp49985))))) + (_g2761227640_ __tmp49988))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_g2749827748_ (lambda () @@ -2772,8 +2774,8 @@ (let ((___kont4561545616_ (lambda (_L27432_ _L27434_) - (let ((__tmp49986 - (let ((__tmp49987 + (let ((__tmp49989 + (let ((__tmp49990 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2781,14 +2783,14 @@ (declare (not safe)) (_generate124739_ _tgt25984_ - __tmp49987 + __tmp49990 _K25987_ _E25988_)))) (declare (not safe)) (_generate124739_ _tgt25984_ _L27434_ - __tmp49986 + __tmp49989 _E25988_)))) (___kont4561745618_ (lambda () _K25987_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2820,8 +2822,8 @@ (let ((___kont4559945600_ (lambda (_L27339_ _L27341_) - (let ((__tmp49988 - (let ((__tmp49989 + (let ((__tmp49991 + (let ((__tmp49992 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2829,7 +2831,7 @@ (declare (not safe)) (_generate124739_ _tgt25984_ - __tmp49989 + __tmp49992 _K25987_ _E25988_)))) (declare (not safe)) @@ -2837,7 +2839,7 @@ _tgt25984_ _L27341_ _K25987_ - __tmp49988)))) + __tmp49991)))) (___kont4560145602_ (lambda () _E25988_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? @@ -2900,22 +2902,22 @@ (if (gx#stx-null? _tl2715927191_) ((lambda (_L27194_ _L27196_) (let () - (let ((__tmp49990 - (let ((__tmp50028 - (let ((__tmp50030 + (let ((__tmp49993 + (let ((__tmp50031 + (let ((__tmp50033 (gx#datum->syntax '#f '##pair?)) - (__tmp50029 + (__tmp50032 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50030 __tmp50029))) - (__tmp49991 - (let ((__tmp49993 + (cons __tmp50033 __tmp50032))) + (__tmp49994 + (let ((__tmp49996 (let ((_hd-pat27212_ (gx#stx-e _L27135_)) (_tl-pat27214_ (gx#stx-e _L27133_))) (if (and (let () @@ -2928,28 +2930,28 @@ (if (let () (declare (not safe)) (equal? _tl-pat27214_ '(any:))) - (let ((__tmp50019 - (let ((__tmp50022 - (let ((__tmp50023 - (let ((__tmp50024 - (let ((__tmp50025 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50027 (gx#datum->syntax '#f '##car)) - (__tmp50026 + (let ((__tmp50022 + (let ((__tmp50025 + (let ((__tmp50026 + (let ((__tmp50027 + (let ((__tmp50028 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50030 (gx#datum->syntax '#f '##car)) + (__tmp50029 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50027 __tmp50026)))) + (cons __tmp50030 __tmp50029)))) (declare (not safe)) - (cons __tmp50025 '())))) + (cons __tmp50028 '())))) (declare (not safe)) - (cons _L27196_ __tmp50024)))) + (cons _L27196_ __tmp50027)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50023 '()))) - (__tmp50020 - (let ((__tmp50021 + (cons __tmp50026 '()))) + (__tmp50023 + (let ((__tmp50024 (let () (declare (not safe)) (_generate124739_ @@ -2958,36 +2960,36 @@ _K25987_ _E25988_)))) (declare (not safe)) - (cons __tmp50021 '())))) + (cons __tmp50024 '())))) (declare (not safe)) - (cons __tmp50022 __tmp50020)))) + (cons __tmp50025 __tmp50023)))) (declare (not safe)) - (cons 'let __tmp50019)) + (cons 'let __tmp50022)) (if (let () (declare (not safe)) (equal? _hd-pat27212_ '(any:))) - (let ((__tmp50010 - (let ((__tmp50013 - (let ((__tmp50014 - (let ((__tmp50015 - (let ((__tmp50016 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50018 (gx#datum->syntax '#f '##cdr)) - (__tmp50017 + (let ((__tmp50013 + (let ((__tmp50016 + (let ((__tmp50017 + (let ((__tmp50018 + (let ((__tmp50019 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50021 (gx#datum->syntax '#f '##cdr)) + (__tmp50020 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50018 __tmp50017)))) + (cons __tmp50021 __tmp50020)))) (declare (not safe)) - (cons __tmp50016 '())))) + (cons __tmp50019 '())))) (declare (not safe)) - (cons _L27194_ __tmp50015)))) + (cons _L27194_ __tmp50018)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50014 '()))) - (__tmp50011 - (let ((__tmp50012 + (cons __tmp50017 '()))) + (__tmp50014 + (let ((__tmp50015 (let () (declare (not safe)) (_generate124739_ @@ -2996,53 +2998,53 @@ _K25987_ _E25988_)))) (declare (not safe)) - (cons __tmp50012 '())))) + (cons __tmp50015 '())))) (declare (not safe)) - (cons __tmp50013 __tmp50011)))) + (cons __tmp50016 __tmp50014)))) (declare (not safe)) - (cons 'let __tmp50010)) - (let ((__tmp49994 - (let ((__tmp49998 - (let ((__tmp50005 - (let ((__tmp50006 - (let ((__tmp50007 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50009 (gx#datum->syntax '#f '##car)) - (__tmp50008 + (cons 'let __tmp50013)) + (let ((__tmp49997 + (let ((__tmp50001 + (let ((__tmp50008 + (let ((__tmp50009 + (let ((__tmp50010 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50012 (gx#datum->syntax '#f '##car)) + (__tmp50011 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50009 __tmp50008)))) + (cons __tmp50012 __tmp50011)))) (declare (not safe)) - (cons __tmp50007 '())))) + (cons __tmp50010 '())))) (declare (not safe)) - (cons _L27196_ __tmp50006))) - (__tmp49999 - (let ((__tmp50000 - (let ((__tmp50001 - (let ((__tmp50002 - (let ((__tmp50004 + (cons _L27196_ __tmp50009))) + (__tmp50002 + (let ((__tmp50003 + (let ((__tmp50004 + (let ((__tmp50005 + (let ((__tmp50007 (gx#datum->syntax '#f '##cdr)) - (__tmp50003 + (__tmp50006 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50004 __tmp50003)))) + (cons __tmp50007 __tmp50006)))) (declare (not safe)) - (cons __tmp50002 '())))) + (cons __tmp50005 '())))) (declare (not safe)) - (cons _L27194_ __tmp50001)))) + (cons _L27194_ __tmp50004)))) (declare (not safe)) - (cons __tmp50000 '())))) + (cons __tmp50003 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50005 - __tmp49999))) - (__tmp49995 - (let ((__tmp49996 - (let ((__tmp49997 + (cons __tmp50008 + __tmp50002))) + (__tmp49998 + (let ((__tmp49999 + (let ((__tmp50000 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -3052,24 +3054,24 @@ _K25987_ _E25988_)))) (declare (not safe)) - (_generate124739_ _L27196_ _L27135_ __tmp49997 _E25988_)))) + (_generate124739_ _L27196_ _L27135_ __tmp50000 _E25988_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49996 '())))) + (cons __tmp49999 '())))) (declare (not safe)) - (cons __tmp49998 __tmp49995)))) + (cons __tmp50001 __tmp49998)))) (declare (not safe)) - (cons 'let __tmp49994))))))) - (__tmp49992 + (cons 'let __tmp49997))))))) + (__tmp49995 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons __tmp49993 __tmp49992)))) + (cons __tmp49996 __tmp49995)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50028 - __tmp49991)))) + (cons __tmp50031 + __tmp49994)))) (declare (not safe)) - (cons 'if __tmp49990)))) + (cons 'if __tmp49993)))) _hd2716027188_ _hd2715727178_) (let () @@ -3082,33 +3084,33 @@ (declare (not safe)) (_g2715227167_ _g2715327171_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50031 + (__tmp50034 (list (gx#genident 'hd) (gx#genident 'tl)))) (declare (not safe)) - (_g2715127216_ __tmp50031)))) + (_g2715127216_ __tmp50034)))) (___kont4572345724_ (lambda () - (let ((__tmp50032 - (let ((__tmp50035 - (let ((__tmp50037 + (let ((__tmp50035 + (let ((__tmp50038 + (let ((__tmp50040 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##null?)) - (__tmp50036 + (__tmp50039 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50037 __tmp50036))) - (__tmp50033 - (let ((__tmp50034 + (cons __tmp50040 __tmp50039))) + (__tmp50036 + (let ((__tmp50037 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons _K25987_ __tmp50034)))) + (cons _K25987_ __tmp50037)))) (declare (not safe)) - (cons __tmp50035 __tmp50033)))) + (cons __tmp50038 __tmp50036)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp50032)))) + (cons 'if __tmp50035)))) (___kont4572545726_ (lambda (_L27049_ _L27051_) (let () @@ -3131,41 +3133,41 @@ (lambda (_g2697826989_) ((lambda (_L26992_) (let () - (let ((__tmp50038 + (let ((__tmp50041 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50051 - (let ((__tmp50053 + (let ((__tmp50054 + (let ((__tmp50056 (gx#datum->syntax '#f '##box?)) - (__tmp50052 + (__tmp50055 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50053 __tmp50052))) - (__tmp50039 - (let ((__tmp50041 - (let ((__tmp50042 - (let ((__tmp50045 - (let ((__tmp50046 - (let ((__tmp50047 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50048 - (let ((__tmp50050 + (cons __tmp50056 __tmp50055))) + (__tmp50042 + (let ((__tmp50044 + (let ((__tmp50045 + (let ((__tmp50048 + (let ((__tmp50049 + (let ((__tmp50050 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50051 + (let ((__tmp50053 (gx#datum->syntax '#f '##unbox)) - (__tmp50049 + (__tmp50052 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50050 __tmp50049)))) + (cons __tmp50053 __tmp50052)))) (declare (not safe)) - (cons __tmp50048 '())))) + (cons __tmp50051 '())))) (declare (not safe)) - (cons _L26992_ __tmp50047)))) + (cons _L26992_ __tmp50050)))) (declare (not safe)) - (cons __tmp50046 '()))) - (__tmp50043 - (let ((__tmp50044 + (cons __tmp50049 '()))) + (__tmp50046 + (let ((__tmp50047 (let () (declare (not safe)) (_generate124739_ @@ -3174,29 +3176,29 @@ _K25987_ _E25988_)))) (declare (not safe)) - (cons __tmp50044 '())))) + (cons __tmp50047 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50045 - __tmp50043)))) + (cons __tmp50048 + __tmp50046)))) (declare (not safe)) - (cons 'let __tmp50042))) - (__tmp50040 + (cons 'let __tmp50045))) + (__tmp50043 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons __tmp50041 __tmp50040)))) + (cons __tmp50044 __tmp50043)))) (declare (not safe)) - (cons __tmp50051 __tmp50039)))) + (cons __tmp50054 __tmp50042)))) (declare (not safe)) - (cons 'if __tmp50038)))) + (cons 'if __tmp50041)))) _g2697826989_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50054 + (__tmp50057 (gx#genident 'e))) (declare (not safe)) - (_g2697627004_ __tmp50054)))) + (_g2697627004_ __tmp50057)))) (___kont4572945730_ (lambda (_L26768_) (let* ((___stx4554645547_ @@ -3220,30 +3222,30 @@ (lambda (_g2689826909_) ((lambda (_L26912_) (let () - (let ((__tmp50055 - (let ((__tmp50059 - (let ((__tmp50065 + (let ((__tmp50058 + (let ((__tmp50062 + (let ((__tmp50068 (gx#datum->syntax '#f '##fx=)) - (__tmp50060 - (let ((__tmp50062 - (let ((__tmp50064 + (__tmp50063 + (let ((__tmp50065 + (let ((__tmp50067 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'values-count)) - (__tmp50063 + (__tmp50066 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50064 __tmp50063))) - (__tmp50061 + (cons __tmp50067 __tmp50066))) + (__tmp50064 (let () (declare (not safe)) (cons _L26912_ '())))) (declare (not safe)) - (cons __tmp50062 __tmp50061)))) + (cons __tmp50065 __tmp50064)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50065 __tmp50060))) - (__tmp50056 - (let ((__tmp50058 + (cons __tmp50068 __tmp50063))) + (__tmp50059 + (let ((__tmp50061 (let () (declare (not safe)) (_generate-simple-vector24742_ @@ -3252,20 +3254,20 @@ '0 _K25987_ _E25988_))) - (__tmp50057 + (__tmp50060 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons __tmp50058 __tmp50057)))) + (cons __tmp50061 __tmp50060)))) (declare (not safe)) - (cons __tmp50059 __tmp50056)))) + (cons __tmp50062 __tmp50059)))) (declare (not safe)) - (cons 'if __tmp50055)))) + (cons 'if __tmp50058)))) _g2689826909_))) - (__tmp50066 (gx#stx-length _L26883_))) + (__tmp50069 (gx#stx-length _L26883_))) (declare (not safe)) - (_g2689626924_ __tmp50066)))) + (_g2689626924_ __tmp50069)))) (___kont4555145552_ (lambda (_L26837_) (let () @@ -3362,46 +3364,46 @@ (lambda (_g2670326714_) ((lambda (_L26717_) (let () - (let ((__tmp50067 - (let ((__tmp50082 - (let ((__tmp50084 + (let ((__tmp50070 + (let ((__tmp50085 + (let ((__tmp50087 (gx#datum->syntax '#f '##vector?)) - (__tmp50083 + (__tmp50086 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50084 __tmp50083))) - (__tmp50068 - (let ((__tmp50070 - (let ((__tmp50071 - (let ((__tmp50075 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50081 (gx#datum->syntax '#f '##fx=)) - (__tmp50076 - (let ((__tmp50078 - (let ((__tmp50080 + (cons __tmp50087 __tmp50086))) + (__tmp50071 + (let ((__tmp50073 + (let ((__tmp50074 + (let ((__tmp50078 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50084 (gx#datum->syntax '#f '##fx=)) + (__tmp50079 + (let ((__tmp50081 + (let ((__tmp50083 (gx#datum->syntax '#f '##vector-length)) - (__tmp50079 + (__tmp50082 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50080 __tmp50079))) - (__tmp50077 + (cons __tmp50083 __tmp50082))) + (__tmp50080 (let () (declare (not safe)) (cons _L26717_ '())))) (declare (not safe)) - (cons __tmp50078 __tmp50077)))) + (cons __tmp50081 __tmp50080)))) (declare (not safe)) - (cons __tmp50081 __tmp50076))) - (__tmp50072 - (let ((__tmp50074 + (cons __tmp50084 __tmp50079))) + (__tmp50075 + (let ((__tmp50077 (let () (declare (not safe)) (_generate-simple-vector24742_ @@ -3410,45 +3412,45 @@ '0 _K25987_ _E25988_))) - (__tmp50073 + (__tmp50076 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons __tmp50074 __tmp50073)))) + (cons __tmp50077 __tmp50076)))) (declare (not safe)) - (cons __tmp50075 __tmp50072)))) + (cons __tmp50078 __tmp50075)))) (declare (not safe)) - (cons 'if __tmp50071))) + (cons 'if __tmp50074))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50069 + (__tmp50072 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons __tmp50070 __tmp50069)))) + (cons __tmp50073 __tmp50072)))) (declare (not safe)) - (cons __tmp50082 __tmp50068)))) + (cons __tmp50085 __tmp50071)))) (declare (not safe)) - (cons 'if __tmp50067)))) + (cons 'if __tmp50070)))) _g2670326714_))) - (__tmp50085 (gx#stx-length _L26688_))) + (__tmp50088 (gx#stx-length _L26688_))) (declare (not safe)) - (_g2670126729_ __tmp50085)))) + (_g2670126729_ __tmp50088)))) (___kont4550145502_ (lambda (_L26642_) - (let ((__tmp50086 - (let ((__tmp50090 - (let ((__tmp50092 + (let ((__tmp50089 + (let ((__tmp50093 + (let ((__tmp50095 (gx#datum->syntax '#f '##vector?)) - (__tmp50091 + (__tmp50094 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons __tmp50092 __tmp50091))) - (__tmp50087 - (let ((__tmp50089 + (cons __tmp50095 __tmp50094))) + (__tmp50090 + (let ((__tmp50092 (let () (declare (not safe)) (_generate-list-vector24743_ @@ -3457,16 +3459,16 @@ 'vector->list _K25987_ _E25988_))) - (__tmp50088 + (__tmp50091 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons __tmp50089 __tmp50088)))) + (cons __tmp50092 __tmp50091)))) (declare (not safe)) - (cons __tmp50090 __tmp50087)))) + (cons __tmp50093 __tmp50090)))) (declare (not safe)) - (cons 'if __tmp50086))))) + (cons 'if __tmp50089))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx4549645497_) @@ -3532,22 +3534,22 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4573345734_ (lambda (_L26524_ _L26526_) - (let ((__tmp50093 + (let ((__tmp50096 (gx#stx-e _L26526_))) (declare (not safe)) (_generate-struct24744_ - __tmp50093 + __tmp50096 _tgt25984_ _L26524_ _K25987_ _E25988_)))) (___kont4573545736_ (lambda (_L26465_ _L26467_) - (let ((__tmp50094 + (let ((__tmp50097 (gx#stx-e _L26467_))) (declare (not safe)) (_generate-class24747_ - __tmp50094 + __tmp50097 _tgt25984_ _L26465_ _K25987_ @@ -3564,44 +3566,44 @@ (lambda (_g2638326394_) ((lambda (_L26397_) (let () - (let ((__tmp50095 + (let ((__tmp50098 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50098 - (let ((__tmp50099 - (let ((__tmp50100 - (let ((__tmp50101 - (let ((__tmp50103 + (let ((__tmp50101 + (let ((__tmp50102 + (let ((__tmp50103 + (let ((__tmp50104 + (let ((__tmp50106 (gx#datum->syntax '#f 'quote)) - (__tmp50102 + (__tmp50105 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L26368_ '())))) (declare (not safe)) - (cons __tmp50103 __tmp50102)))) + (cons __tmp50106 __tmp50105)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50101 '())))) + (cons __tmp50104 '())))) (declare (not safe)) - (cons _L26005_ __tmp50100)))) + (cons _L26005_ __tmp50103)))) (declare (not safe)) - (cons _L26397_ __tmp50099))) - (__tmp50096 - (let ((__tmp50097 + (cons _L26397_ __tmp50102))) + (__tmp50099 + (let ((__tmp50100 (let () (declare (not safe)) (cons _E25988_ '())))) (declare (not safe)) - (cons _K25987_ __tmp50097)))) + (cons _K25987_ __tmp50100)))) (declare (not safe)) - (cons __tmp50098 __tmp50096)))) + (cons __tmp50101 __tmp50099)))) (declare (not safe)) - (cons 'if __tmp50095)))) + (cons 'if __tmp50098)))) _g2638326394_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50104 + (__tmp50107 (let ((_e26413_ (gx#stx-e _L26368_))) @@ -3617,7 +3619,7 @@ 'equal?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2638126409_ __tmp50104)))) + (_g2638126409_ __tmp50107)))) (___kont4573945740_ (lambda (_L26288_ _L26290_) (let* ((_g2630626314_ @@ -3630,28 +3632,28 @@ (lambda (_g2630726318_) ((lambda (_L26321_) (let () - (let ((__tmp50105 + (let ((__tmp50108 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50108 - (let ((__tmp50109 - (let ((__tmp50110 - (let ((__tmp50111 - (let ((__tmp50112 + (let ((__tmp50111 + (let ((__tmp50112 + (let ((__tmp50113 + (let ((__tmp50114 + (let ((__tmp50115 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons _L26290_ __tmp50112)))) + (cons _L26290_ __tmp50115)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50111 '())))) + (cons __tmp50114 '())))) (declare (not safe)) - (cons _L26321_ __tmp50110)))) + (cons _L26321_ __tmp50113)))) (declare (not safe)) - (cons __tmp50109 '()))) - (__tmp50106 - (let ((__tmp50107 + (cons __tmp50112 '()))) + (__tmp50109 + (let ((__tmp50110 (let () (declare (not safe)) (_generate124739_ @@ -3660,38 +3662,38 @@ _K25987_ _E25988_)))) (declare (not safe)) - (cons __tmp50107 '())))) + (cons __tmp50110 '())))) (declare (not safe)) - (cons __tmp50108 __tmp50106)))) + (cons __tmp50111 __tmp50109)))) (declare (not safe)) - (cons 'let __tmp50105)))) + (cons 'let __tmp50108)))) _g2630726318_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50113 + (__tmp50116 (gx#genident 'e))) (declare (not safe)) - (_g2630526333_ __tmp50113)))) + (_g2630526333_ __tmp50116)))) (___kont4574145742_ (lambda (_L26230_) - (let ((__tmp50114 - (let ((__tmp50116 - (let ((__tmp50117 + (let ((__tmp50117 + (let ((__tmp50119 + (let ((__tmp50120 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50118 + (let ((__tmp50121 (let () (declare (not safe)) (cons _L26005_ '())))) (declare (not safe)) - (cons _L26230_ __tmp50118)))) + (cons _L26230_ __tmp50121)))) (declare (not safe)) - (cons __tmp50117 '()))) - (__tmp50115 + (cons __tmp50120 '()))) + (__tmp50118 (let () (declare (not safe)) (cons _K25987_ '())))) (declare (not safe)) - (cons __tmp50116 __tmp50115)))) + (cons __tmp50119 __tmp50118)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp50114)))) + (cons 'let __tmp50117)))) (___kont4574345744_ (lambda () _K25987_))) (if (gx#stx-pair? ___stx4571045711_) @@ -4092,30 +4094,30 @@ (_g2536225980_ (lambda (_g2536425384_) (if (gx#stx-pair/null? _g2536425384_) - (let ((_g50119_ + (let ((_g50122_ (gx#syntax-split-splice _g2536425384_ '0))) (begin - (let ((_g50120_ + (let ((_g50123_ (let () (declare (not safe)) - (if (##values? _g50119_) - (##vector-length _g50119_) + (if (##values? _g50122_) + (##vector-length _g50122_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50120_ 2))) + (##fx= _g50123_ 2))) (error "Context expects 2 values" - _g50120_))) + _g50123_))) (let ((_target2536625387_ (let () (declare (not safe)) - (##vector-ref _g50119_ 0))) + (##vector-ref _g50122_ 0))) (_tl2536825390_ (let () (declare (not safe)) - (##vector-ref _g50119_ 1)))) + (##vector-ref _g50122_ 1)))) (if (gx#stx-null? _tl2536825390_) (letrec ((_loop2536925393_ (lambda (_hd2536725397_ @@ -4133,12 +4135,12 @@ (let () (declare (not safe)) (##cdr _e2537025403_)))) - (let ((__tmp50211 + (let ((__tmp50214 (let () (declare (not safe)) (cons _lp-hd2537125407_ _var2537325400_)))) (declare (not safe)) - (_loop2536925393_ _lp-tl2537225410_ __tmp50211)))) + (_loop2536925393_ _lp-tl2537225410_ __tmp50214)))) (let ((_var2537425413_ (reverse _var2537325400_))) ((lambda (_L25417_) (let () @@ -4151,34 +4153,34 @@ (_g2543225968_ (lambda (_g2543425454_) (if (gx#stx-pair/null? _g2543425454_) - (let ((_g50121_ + (let ((_g50124_ (gx#syntax-split-splice _g2543425454_ '0))) (begin - (let ((_g50122_ + (let ((_g50125_ (let () (declare (not safe)) - (if (##values? _g50121_) + (if (##values? _g50124_) (##vector-length - _g50121_) + _g50124_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50122_ 2))) + (##fx= _g50125_ 2))) (error "Context expects 2 values" - _g50122_))) + _g50125_))) (let ((_target2543625457_ (let () (declare (not safe)) (##vector-ref - _g50121_ + _g50124_ 0))) (_tl2543825460_ (let () (declare (not safe)) (##vector-ref - _g50121_ + _g50124_ 1)))) (if (gx#stx-null? _tl2543825460_) @@ -4196,7 +4198,7 @@ (let () (declare (not safe)) (##cdr _e2544025473_)))) - (let ((__tmp50208 + (let ((__tmp50211 (let () (declare (not safe)) (cons _lp-hd2544125477_ @@ -4204,7 +4206,7 @@ (declare (not safe)) (_loop2543925463_ _lp-tl2544225480_ - __tmp50208)))) + __tmp50211)))) (let ((_var-r2544425483_ (reverse _var-r2544325470_))) ((lambda (_L25487_) @@ -4219,36 +4221,36 @@ (lambda (_g2550525525_) (if (gx#stx-pair/null? _g2550525525_) - (let ((_g50123_ + (let ((_g50126_ (gx#syntax-split-splice _g2550525525_ '0))) (begin - (let ((_g50124_ + (let ((_g50127_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50123_) - (##vector-length _g50123_) + _g50126_) + (##vector-length _g50126_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50124_ 2))) - (error "Context expects 2 values" _g50124_))) + (if (not (let () (declare (not safe)) (##fx= _g50127_ 2))) + (error "Context expects 2 values" _g50127_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2550725528_ (let () (declare (not safe)) (##vector-ref - _g50123_ + _g50126_ 0))) (_tl2550925531_ (let () (declare (not safe)) (##vector-ref - _g50123_ + _g50126_ 1)))) (if (gx#stx-null? _tl2550925531_) @@ -4266,7 +4268,7 @@ (let () (declare (not safe)) (##cdr _e2551125544_)))) - (let ((__tmp50204 + (let ((__tmp50207 (let () (declare (not safe)) (cons _lp-hd2551225548_ @@ -4274,7 +4276,7 @@ (declare (not safe)) (_loop2551025534_ _lp-tl2551325551_ - __tmp50204)))) + __tmp50207)))) (let ((_init2551525554_ (reverse _init2551425541_))) ((lambda (_L25558_) @@ -4384,19 +4386,19 @@ ((lambda (_L25842_) (let () (let () - (let ((__tmp50178 + (let ((__tmp50181 (gx#datum->syntax '#f 'letrec)) - (__tmp50125 - (let ((__tmp50131 - (let ((__tmp50169 - (let ((__tmp50170 - (let ((__tmp50171 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50177 (gx#datum->syntax '#f 'lambda)) - (__tmp50172 - (let ((__tmp50174 - (let ((__tmp50175 - (let ((__tmp50176 + (__tmp50128 + (let ((__tmp50134 + (let ((__tmp50172 + (let ((__tmp50173 + (let ((__tmp50174 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50180 (gx#datum->syntax '#f 'lambda)) + (__tmp50175 + (let ((__tmp50177 + (let ((__tmp50178 + (let ((__tmp50179 (lambda (_g2586425867_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2586525870_) @@ -4405,176 +4407,176 @@ (cons _g2586425867_ _g2586525870_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp50176 + (foldr1 __tmp50179 '() _L25417_)))) (declare (not safe)) - (cons _L25730_ __tmp50175))) - (__tmp50173 + (cons _L25730_ __tmp50178))) + (__tmp50176 (let () (declare (not safe)) (cons _L25758_ '())))) (declare (not safe)) - (cons __tmp50174 __tmp50173)))) + (cons __tmp50177 __tmp50176)))) (declare (not safe)) - (cons __tmp50177 __tmp50172)))) + (cons __tmp50180 __tmp50175)))) (declare (not safe)) - (cons __tmp50171 '())))) + (cons __tmp50174 '())))) (declare (not safe)) - (cons _L25618_ __tmp50170))) + (cons _L25618_ __tmp50173))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50132 - (let ((__tmp50159 - (let ((__tmp50160 + (__tmp50135 + (let ((__tmp50162 + (let ((__tmp50163 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50161 - (let ((__tmp50168 + (let ((__tmp50164 + (let ((__tmp50171 (gx#datum->syntax '#f 'lambda)) - (__tmp50162 - (let ((__tmp50164 - (let ((__tmp50165 - (let ((__tmp50166 - (let ((__tmp50167 + (__tmp50165 + (let ((__tmp50167 + (let ((__tmp50168 + (let ((__tmp50169 + (let ((__tmp50170 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g2586225873_ _g2586325876_) (let () (declare (not safe)) (cons _g2586225873_ _g2586325876_))))) (declare (not safe)) - (foldr1 __tmp50167 '() _L25487_)))) + (foldr1 __tmp50170 '() _L25487_)))) (declare (not safe)) - (cons _L25730_ __tmp50166)))) + (cons _L25730_ __tmp50169)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25702_ __tmp50165))) - (__tmp50163 + (cons _L25702_ __tmp50168))) + (__tmp50166 (let () (declare (not safe)) (cons _L25842_ '())))) (declare (not safe)) - (cons __tmp50164 __tmp50163)))) + (cons __tmp50167 __tmp50166)))) (declare (not safe)) - (cons __tmp50168 __tmp50162)))) + (cons __tmp50171 __tmp50165)))) (declare (not safe)) - (cons __tmp50161 '())))) + (cons __tmp50164 '())))) (declare (not safe)) - (cons _L25674_ __tmp50160))) - (__tmp50133 - (let ((__tmp50134 - (let ((__tmp50135 - (let ((__tmp50136 - (let ((__tmp50158 + (cons _L25674_ __tmp50163))) + (__tmp50136 + (let ((__tmp50137 + (let ((__tmp50138 + (let ((__tmp50139 + (let ((__tmp50161 (gx#datum->syntax '#f 'lambda)) - (__tmp50137 - (let ((__tmp50155 - (let ((__tmp50156 - (let ((__tmp50157 + (__tmp50140 + (let ((__tmp50158 + (let ((__tmp50159 + (let ((__tmp50160 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g2586025879_ _g2586125882_) (let () (declare (not safe)) (cons _g2586025879_ _g2586125882_))))) (declare (not safe)) - (foldr1 __tmp50157 '() _L25487_)))) + (foldr1 __tmp50160 '() _L25487_)))) (declare (not safe)) - (cons _L25730_ __tmp50156))) - (__tmp50138 - (let ((__tmp50139 - (let ((__tmp50154 (gx#datum->syntax '#f 'if)) - (__tmp50140 - (let ((__tmp50151 - (let ((__tmp50153 + (cons _L25730_ __tmp50159))) + (__tmp50141 + (let ((__tmp50142 + (let ((__tmp50157 (gx#datum->syntax '#f 'if)) + (__tmp50143 + (let ((__tmp50154 + (let ((__tmp50156 (gx#datum->syntax '#f 'pair?)) - (__tmp50152 + (__tmp50155 (let () (declare (not safe)) (cons _L25730_ '())))) (declare (not safe)) - (cons __tmp50153 __tmp50152))) - (__tmp50141 - (let ((__tmp50143 - (let ((__tmp50144 - (let ((__tmp50148 - (let ((__tmp50150 + (cons __tmp50156 __tmp50155))) + (__tmp50144 + (let ((__tmp50146 + (let ((__tmp50147 + (let ((__tmp50151 + (let ((__tmp50153 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp50149 + (__tmp50152 (let () (declare (not safe)) (cons _L25730_ '())))) (declare (not safe)) - (cons __tmp50150 __tmp50149))) - (__tmp50145 - (let ((__tmp50146 - (let ((__tmp50147 + (cons __tmp50153 __tmp50152))) + (__tmp50148 + (let ((__tmp50149 + (let ((__tmp50150 (lambda (_g2585825885_ _g2585925888_) (let () (declare (not safe)) (cons _g2585825885_ _g2585925888_))))) (declare (not safe)) - (foldr1 __tmp50147 '() _L25487_)))) + (foldr1 __tmp50150 '() _L25487_)))) (declare (not safe)) - (cons _L25730_ __tmp50146)))) + (cons _L25730_ __tmp50149)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50148 - __tmp50145)))) + (cons __tmp50151 + __tmp50148)))) (declare (not safe)) - (cons _L25674_ __tmp50144))) - (__tmp50142 + (cons _L25674_ __tmp50147))) + (__tmp50145 (let () (declare (not safe)) (cons _L25814_ '())))) (declare (not safe)) - (cons __tmp50143 __tmp50142)))) + (cons __tmp50146 __tmp50145)))) (declare (not safe)) - (cons __tmp50151 __tmp50141)))) + (cons __tmp50154 __tmp50144)))) (declare (not safe)) - (cons __tmp50154 __tmp50140)))) + (cons __tmp50157 __tmp50143)))) (declare (not safe)) - (cons __tmp50139 '())))) + (cons __tmp50142 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50155 - __tmp50138)))) + (cons __tmp50158 + __tmp50141)))) (declare (not safe)) - (cons __tmp50158 __tmp50137)))) + (cons __tmp50161 __tmp50140)))) (declare (not safe)) - (cons __tmp50136 '())))) + (cons __tmp50139 '())))) (declare (not safe)) - (cons _L25646_ __tmp50135)))) + (cons _L25646_ __tmp50138)))) (declare (not safe)) - (cons __tmp50134 '())))) + (cons __tmp50137 '())))) (declare (not safe)) - (cons __tmp50159 __tmp50133)))) + (cons __tmp50162 __tmp50136)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50169 __tmp50132))) - (__tmp50126 - (let ((__tmp50127 - (let ((__tmp50128 - (let ((__tmp50129 + (cons __tmp50172 __tmp50135))) + (__tmp50129 + (let ((__tmp50130 + (let ((__tmp50131 + (let ((__tmp50132 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50130 + (let ((__tmp50133 (lambda (_g2585625891_ _g2585725894_) (let () (declare (not safe)) (cons _g2585625891_ _g2585725894_))))) (declare (not safe)) - (foldr1 __tmp50130 '() _L25558_)))) + (foldr1 __tmp50133 '() _L25558_)))) (declare (not safe)) - (cons _L25590_ __tmp50129)))) + (cons _L25590_ __tmp50132)))) (declare (not safe)) - (cons _L25646_ __tmp50128)))) + (cons _L25646_ __tmp50131)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50127 '())))) + (cons __tmp50130 '())))) (declare (not safe)) - (cons __tmp50131 __tmp50126)))) + (cons __tmp50134 __tmp50129)))) (declare (not safe)) - (cons __tmp50178 __tmp50125))))) + (cons __tmp50181 __tmp50128))))) _g2582825839_))) - (__tmp50179 + (__tmp50182 (let () (declare (not safe)) (_generate124739_ @@ -4583,88 +4585,88 @@ _L25786_ _L25814_)))) (declare (not safe)) - (_g2582625897_ __tmp50179)))) + (_g2582625897_ __tmp50182)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2580025811_))) - (__tmp50180 - (let ((__tmp50181 - (let ((__tmp50182 - (let ((__tmp50183 + (__tmp50183 + (let ((__tmp50184 + (let ((__tmp50185 + (let ((__tmp50186 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g2590425907_ _g2590525910_) - (let ((__tmp50184 - (let ((__tmp50186 + (let ((__tmp50187 + (let ((__tmp50189 (gx#datum->syntax '#f 'reverse)) - (__tmp50185 + (__tmp50188 (let () (declare (not safe)) (cons _g2590425907_ '())))) (declare (not safe)) - (cons __tmp50186 __tmp50185)))) + (cons __tmp50189 __tmp50188)))) (declare (not safe)) - (cons __tmp50184 _g2590525910_))))) + (cons __tmp50187 _g2590525910_))))) (declare (not safe)) - (foldr1 __tmp50183 '() _L25487_)))) + (foldr1 __tmp50186 '() _L25487_)))) (declare (not safe)) - (cons _L25730_ __tmp50182)))) + (cons _L25730_ __tmp50185)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L25618_ - __tmp50181)))) + __tmp50184)))) (declare (not safe)) - (_g2579825901_ __tmp50180)))) + (_g2579825901_ __tmp50183)))) _g2577225783_))) - (__tmp50187 - (let ((__tmp50188 - (let ((__tmp50195 - (let ((__tmp50197 + (__tmp50190 + (let ((__tmp50191 + (let ((__tmp50198 + (let ((__tmp50200 (gx#datum->syntax '#f '##cdr)) - (__tmp50196 + (__tmp50199 (let () (declare (not safe)) (cons _L25730_ '())))) (declare (not safe)) - (cons __tmp50197 - __tmp50196))) - (__tmp50189 + (cons __tmp50200 + __tmp50199))) + (__tmp50192 (begin (gx#syntax-check-splice-targets _L25487_ _L25417_) - (let ((__tmp50190 + (let ((__tmp50193 (lambda (_g2591625920_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2591725923_ _g2591825925_) - (let ((__tmp50191 - (let ((__tmp50194 (gx#datum->syntax '#f 'cons)) - (__tmp50192 - (let ((__tmp50193 + (let ((__tmp50194 + (let ((__tmp50197 (gx#datum->syntax '#f 'cons)) + (__tmp50195 + (let ((__tmp50196 (let () (declare (not safe)) (cons _g2591625920_ '())))) (declare (not safe)) - (cons _g2591725923_ __tmp50193)))) + (cons _g2591725923_ __tmp50196)))) (declare (not safe)) - (cons __tmp50194 __tmp50192)))) + (cons __tmp50197 __tmp50195)))) (declare (not safe)) - (cons __tmp50191 _g2591825925_))))) + (cons __tmp50194 _g2591825925_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp50190 + (foldr2 __tmp50193 '() _L25487_ _L25417_))))) (declare (not safe)) - (cons __tmp50195 __tmp50189)))) + (cons __tmp50198 __tmp50192)))) (declare (not safe)) - (cons _L25646_ __tmp50188)))) + (cons _L25646_ __tmp50191)))) (declare (not safe)) - (_g2577025913_ __tmp50187)))) + (_g2577025913_ __tmp50190)))) _g2574425755_))) - (__tmp50198 + (__tmp50201 (let () (declare (not safe)) (_generate124739_ @@ -4675,30 +4677,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2574225928_ - __tmp50198)))) + __tmp50201)))) _g2571625727_))) - (__tmp50199 (gx#genident 'rest))) + (__tmp50202 (gx#genident 'rest))) (declare (not safe)) - (_g2571425932_ __tmp50199)))) + (_g2571425932_ __tmp50202)))) _g2568825699_))) - (__tmp50200 (gx#genident 'hd))) + (__tmp50203 (gx#genident 'hd))) (declare (not safe)) - (_g2568625936_ __tmp50200)))) + (_g2568625936_ __tmp50203)))) _g2566025671_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50201 + (__tmp50204 (gx#genident 'splice-try))) (declare (not safe)) - (_g2565825940_ __tmp50201)))) + (_g2565825940_ __tmp50204)))) _g2563225643_))) - (__tmp50202 (gx#genident 'splice-loop))) + (__tmp50205 (gx#genident 'splice-loop))) (declare (not safe)) - (_g2563025944_ __tmp50202)))) + (_g2563025944_ __tmp50205)))) _g2560425615_))) - (__tmp50203 (gx#genident 'splice-rest))) + (__tmp50206 (gx#genident 'splice-rest))) (declare (not safe)) - (_g2560225948_ __tmp50203)))) + (_g2560225948_ __tmp50206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2557625587_)))) (declare (not safe)) @@ -4715,10 +4717,10 @@ (declare (not safe)) (_g2550425521_ _g2550525525_))))) - (__tmp50205 + (__tmp50208 (make-list (gx#stx-length - (let ((__tmp50206 + (let ((__tmp50209 (lambda (_g2595925962_ _g2596025965_) (let () @@ -4726,17 +4728,17 @@ (cons _g2595925962_ _g2596025965_))))) (declare (not safe)) - (foldr1 __tmp50206 + (foldr1 __tmp50209 '() _L25417_))) - (let ((__tmp50207 + (let ((__tmp50210 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp50207 '()))))) + (cons __tmp50210 '()))))) (declare (not safe)) - (_g2550325956_ __tmp50205)))) + (_g2550325956_ __tmp50208)))) _var-r2544425483_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4751,9 +4753,9 @@ (let () (declare (not safe)) (_g2543325450_ _g2543425454_))))) - (__tmp50209 + (__tmp50212 (gx#gentemps - (let ((__tmp50210 + (let ((__tmp50213 (lambda (_g2597125974_ _g2597225977_) (let () @@ -4761,9 +4763,9 @@ (cons _g2597125974_ _g2597225977_))))) (declare (not safe)) - (foldr1 __tmp50210 '() _L25417_))))) + (foldr1 __tmp50213 '() _L25417_))))) (declare (not safe)) - (_g2543225968_ __tmp50209)))) + (_g2543225968_ __tmp50212)))) _var2537425413_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4778,13 +4780,13 @@ (let () (declare (not safe)) (_g2536325380_ _g2536425384_))))) - (__tmp50212 + (__tmp50215 (let () (declare (not safe)) (|gerbil/core$[1]#match-pattern-vars| _hd25358_)))) (declare (not safe)) - (_g2536225980_ __tmp50212)))) + (_g2536225980_ __tmp50215)))) (_generate-simple-vector24742_ (lambda (_tgt25198_ _body25200_ @@ -4847,49 +4849,49 @@ (if (gx#stx-null? _tl2528125323_) ((lambda (_L25326_ _L25328_ _L25329_) (let () - (let ((__tmp50213 - (let ((__tmp50218 - (let ((__tmp50219 - (let ((__tmp50220 - (let ((__tmp50221 + (let ((__tmp50216 + (let ((__tmp50221 + (let ((__tmp50222 + (let ((__tmp50223 + (let ((__tmp50224 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50224 + (let ((__tmp50227 (gx#datum->syntax '#f '##vector-ref)) - (__tmp50222 - (let ((__tmp50223 + (__tmp50225 + (let ((__tmp50226 (let () (declare (not safe)) (cons _L25326_ '())))) (declare (not safe)) - (cons _L25328_ __tmp50223)))) + (cons _L25328_ __tmp50226)))) (declare (not safe)) - (cons __tmp50224 __tmp50222)))) + (cons __tmp50227 __tmp50225)))) (declare (not safe)) - (cons __tmp50221 '())))) + (cons __tmp50224 '())))) (declare (not safe)) - (cons _L25329_ __tmp50220)))) + (cons _L25329_ __tmp50223)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50219 '()))) - (__tmp50214 - (let ((__tmp50215 - (let ((__tmp50216 - (let ((__tmp50217 + (cons __tmp50222 '()))) + (__tmp50217 + (let ((__tmp50218 + (let ((__tmp50219 + (let ((__tmp50220 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (fx+ _off25210_ '1)))) (declare (not safe)) - (_recur25205_ _L25253_ __tmp50217)))) + (_recur25205_ _L25253_ __tmp50220)))) (declare (not safe)) - (_generate124739_ _L25329_ _L25255_ __tmp50216 _E25203_)))) + (_generate124739_ _L25329_ _L25255_ __tmp50219 _E25203_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50215 '())))) + (cons __tmp50218 '())))) (declare (not safe)) - (cons __tmp50218 __tmp50214)))) + (cons __tmp50221 __tmp50217)))) (declare (not safe)) - (cons 'let __tmp50213)))) + (cons 'let __tmp50216)))) _hd2528225320_ _hd2527925310_ _hd2527625300_) @@ -4905,12 +4907,12 @@ (declare (not safe)) (_g2527025289_ _g2527125293_))))) - (__tmp50225 + (__tmp50228 (list (gx#genident 'e) _tgt25198_ _off25210_))) (declare (not safe)) - (_g2526925348_ __tmp50225)))) + (_g2526925348_ __tmp50228)))) (___kont4607346074_ (lambda () _K25202_))) (if (gx#stx-pair? ___stx4606846069_) (let ((_e2521925243_ @@ -4965,19 +4967,19 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp50226 - (let ((__tmp50229 - (let ((__tmp50230 - (let ((__tmp50231 + (let ((__tmp50229 + (let ((__tmp50232 + (let ((__tmp50233 + (let ((__tmp50234 (let () (declare (not safe)) (cons _L25167_ '())))) (declare (not safe)) - (cons _L25112_ __tmp50231)))) + (cons _L25112_ __tmp50234)))) (declare (not safe)) - (cons __tmp50230 '()))) - (__tmp50227 - (let ((__tmp50228 + (cons __tmp50233 '()))) + (__tmp50230 + (let ((__tmp50231 (let () (declare (not safe)) (_generate124739_ @@ -4986,56 +4988,56 @@ _K25094_ _E25095_)))) (declare (not safe)) - (cons __tmp50228 '())))) + (cons __tmp50231 '())))) (declare (not safe)) - (cons __tmp50229 __tmp50227)))) + (cons __tmp50232 __tmp50230)))) (declare (not safe)) - (cons 'let __tmp50226))))) + (cons 'let __tmp50229))))) _g2515325164_))) - (__tmp50232 + (__tmp50235 (let ((_$e25186_ _->list25093_)) (if (let () (declare (not safe)) (eq? 'values->list _$e25186_)) - (let ((__tmp50241 (gx#datum->syntax '#f 'values->list)) - (__tmp50240 + (let ((__tmp50244 (gx#datum->syntax '#f 'values->list)) + (__tmp50243 (let () (declare (not safe)) (cons _L25139_ '())))) (declare (not safe)) - (cons __tmp50241 __tmp50240)) + (cons __tmp50244 __tmp50243)) (if (let () (declare (not safe)) (eq? 'vector->list _$e25186_)) - (let ((__tmp50239 + (let ((__tmp50242 (gx#datum->syntax '#f '##vector->list)) - (__tmp50238 + (__tmp50241 (let () (declare (not safe)) (cons _L25139_ '())))) (declare (not safe)) - (cons __tmp50239 __tmp50238)) + (cons __tmp50242 __tmp50241)) (if (let () (declare (not safe)) (eq? 'struct->list _$e25186_)) - (let ((__tmp50237 + (let ((__tmp50240 (gx#datum->syntax '#f '##cdr)) - (__tmp50233 - (let ((__tmp50234 - (let ((__tmp50236 + (__tmp50236 + (let ((__tmp50237 + (let ((__tmp50239 (gx#datum->syntax '#f '##structure->list)) - (__tmp50235 + (__tmp50238 (let () (declare (not safe)) (cons _L25139_ '())))) (declare (not safe)) - (cons __tmp50236 __tmp50235)))) + (cons __tmp50239 __tmp50238)))) (declare (not safe)) - (cons __tmp50234 '())))) + (cons __tmp50237 '())))) (declare (not safe)) - (cons __tmp50237 __tmp50233)) + (cons __tmp50240 __tmp50236)) (gx#raise-syntax-error '#f '"Unexpected list conversion" @@ -5044,14 +5046,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2515125182_ - __tmp50232)))) + __tmp50235)))) _g2512525136_)))) (declare (not safe)) (_g2512325190_ _tgt25090_)))) _g2509825109_))) - (__tmp50242 (gx#genident 'e))) + (__tmp50245 (gx#genident 'e))) (declare (not safe)) - (_g2509625194_ __tmp50242)))) + (_g2509625194_ __tmp50245)))) (_generate-struct24744_ (lambda (_info24961_ _tgt24963_ @@ -5072,9 +5074,9 @@ (declare (not safe)) (_struct-field-accessors24746_ _info24961_))) - (__tmp50243 - (let ((__tmp50247 - (let ((__tmp50249 + (__tmp50246 + (let ((__tmp50250 + (let ((__tmp50252 (let ((__obj47288 _info24961_)) (if (let () @@ -5095,14 +5097,14 @@ gerbil/core$$#class-type-info::t __obj47288 'predicate)))) - (__tmp50248 + (__tmp50251 (let () (declare (not safe)) (cons _tgt24963_ '())))) (declare (not safe)) - (cons __tmp50249 __tmp50248))) - (__tmp50244 - (let ((__tmp50246 + (cons __tmp50252 __tmp50251))) + (__tmp50247 + (let ((__tmp50249 (let () (declare (not safe)) (_generate-simple-struct-body24745_ @@ -5111,21 +5113,21 @@ _L25069_ _K24965_ _E24966_))) - (__tmp50245 + (__tmp50248 (let () (declare (not safe)) (cons _E24966_ '())))) (declare (not safe)) - (cons __tmp50246 __tmp50245)))) + (cons __tmp50249 __tmp50248)))) (declare (not safe)) - (cons __tmp50247 __tmp50244)))) + (cons __tmp50250 __tmp50247)))) (declare (not safe)) - (cons 'if __tmp50243)))) + (cons 'if __tmp50246)))) (___kont4608946090_ (lambda (_L25023_) - (let ((__tmp50250 - (let ((__tmp50254 - (let ((__tmp50256 + (let ((__tmp50253 + (let ((__tmp50257 + (let ((__tmp50259 (let ((__obj47289 _info24961_)) (if (let () @@ -5146,14 +5148,14 @@ gerbil/core$$#class-type-info::t __obj47289 'predicate)))) - (__tmp50255 + (__tmp50258 (let () (declare (not safe)) (cons _tgt24963_ '())))) (declare (not safe)) - (cons __tmp50256 __tmp50255))) - (__tmp50251 - (let ((__tmp50253 + (cons __tmp50259 __tmp50258))) + (__tmp50254 + (let ((__tmp50256 (let () (declare (not safe)) (_generate-list-vector24743_ @@ -5162,16 +5164,16 @@ 'struct->list _K24965_ _E24966_))) - (__tmp50252 + (__tmp50255 (let () (declare (not safe)) (cons _E24966_ '())))) (declare (not safe)) - (cons __tmp50253 __tmp50252)))) + (cons __tmp50256 __tmp50255)))) (declare (not safe)) - (cons __tmp50254 __tmp50251)))) + (cons __tmp50257 __tmp50254)))) (declare (not safe)) - (cons 'if __tmp50250))))) + (cons 'if __tmp50253))))) (if (gx#stx-pair? ___stx4608446085_) (let ((_e2497425045_ (gx#syntax-e ___stx4608446085_))) @@ -5294,45 +5296,45 @@ 'name)))) (let ((_$tgt24953_ (gx#genident 'e)) (_getf24955_ (car _fields24893_))) - (let ((__tmp50257 - (let ((__tmp50262 - (let ((__tmp50263 - (let ((__tmp50264 + (let ((__tmp50260 + (let ((__tmp50265 + (let ((__tmp50266 + (let ((__tmp50267 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50265 - (let ((__tmp50266 + (let ((__tmp50268 + (let ((__tmp50269 (let () (declare (not safe)) (cons _tgt24883_ '())))) (declare (not safe)) - (cons _getf24955_ __tmp50266)))) + (cons _getf24955_ __tmp50269)))) (declare (not safe)) - (cons __tmp50265 '())))) + (cons __tmp50268 '())))) (declare (not safe)) - (cons _$tgt24953_ __tmp50264)))) + (cons _$tgt24953_ __tmp50267)))) (declare (not safe)) - (cons __tmp50263 '()))) + (cons __tmp50266 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50258 - (let ((__tmp50259 - (let ((__tmp50260 + (__tmp50261 + (let ((__tmp50262 + (let ((__tmp50263 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50261 (cdr _fields24893_))) + (let ((__tmp50264 (cdr _fields24893_))) (declare (not safe)) - (_recur24888_ _L24936_ __tmp50261)))) + (_recur24888_ _L24936_ __tmp50264)))) (declare (not safe)) (_generate124739_ _$tgt24953_ _L24938_ - __tmp50260 + __tmp50263 _E24886_)))) (declare (not safe)) - (cons __tmp50259 '())))) + (cons __tmp50262 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50262 __tmp50258)))) + (cons __tmp50265 __tmp50261)))) (declare (not safe)) - (cons 'let __tmp50257)))))) + (cons 'let __tmp50260)))))) (___kont4613946140_ (lambda () _K24885_))) (if (gx#stx-pair? ___stx4613446135_) (let ((_e2490224926_ @@ -5358,7 +5360,7 @@ (if (let () (declare (not safe)) (null? _next24868_)) '() (let ((_ti24871_ (car _next24868_))) - (append (let ((__tmp50267 + (append (let ((__tmp50270 (map gx#syntax-local-value (let ((__obj47291 _ti24871_)) (if (let () @@ -5378,10 +5380,10 @@ __obj47291 'super)))))) (declare (not safe)) - (_recur24865_ __tmp50267)) + (_recur24865_ __tmp50270)) (map (lambda (_slot24874_) (let ((_$e24877_ - (let ((__tmp50268 + (let ((__tmp50271 (let ((__obj47292 _ti24871_)) (if (let () @@ -5404,7 +5406,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (assgetq _slot24874_ - __tmp50268)))) + __tmp50271)))) (if _$e24877_ _$e24877_ (gx#raise-syntax-error @@ -5436,9 +5438,9 @@ _body24858_ _K24859_ _E24860_) - (let ((__tmp50269 - (let ((__tmp50273 - (let ((__tmp50275 + (let ((__tmp50272 + (let ((__tmp50276 + (let ((__tmp50278 (let ((__obj47294 _info24855_)) (if (let () (declare (not safe)) @@ -5456,14 +5458,14 @@ gerbil/core$$#class-type-info::t __obj47294 'predicate)))) - (__tmp50274 + (__tmp50277 (let () (declare (not safe)) (cons _tgt24857_ '())))) (declare (not safe)) - (cons __tmp50275 __tmp50274))) - (__tmp50270 - (let ((__tmp50272 + (cons __tmp50278 __tmp50277))) + (__tmp50273 + (let ((__tmp50275 (let () (declare (not safe)) (_generate-class-body24748_ @@ -5472,16 +5474,16 @@ _body24858_ _K24859_ _E24860_))) - (__tmp50271 + (__tmp50274 (let () (declare (not safe)) (cons _E24860_ '())))) (declare (not safe)) - (cons __tmp50272 __tmp50271)))) + (cons __tmp50275 __tmp50274)))) (declare (not safe)) - (cons __tmp50273 __tmp50270)))) + (cons __tmp50276 __tmp50273)))) (declare (not safe)) - (cons 'if __tmp50269)))) + (cons 'if __tmp50272)))) (_generate-class-body24748_ (lambda (_info24750_ _tgt24752_ @@ -5499,11 +5501,11 @@ (let ((___kont4615346154_ (lambda (_L24818_ _L24820_ _L24821_) (let ((_$e24841_ - (let ((__tmp50277 + (let ((__tmp50280 (string->symbol (keyword->string (gx#stx-e _L24821_)))) - (__tmp50276 + (__tmp50279 (let ((__obj47295 _info24750_)) (if (let () (declare (not safe)) @@ -5522,31 +5524,31 @@ __obj47295 'unchecked-accessors))))) (declare (not safe)) - (assgetq __tmp50277 __tmp50276)))) + (assgetq __tmp50280 __tmp50279)))) (if _$e24841_ ((lambda (_getf24845_) (let* ((_$tgt24848_ (gx#genident 'e)) - (__tmp50278 - (let ((__tmp50282 - (let ((__tmp50283 - (let ((__tmp50284 + (__tmp50281 + (let ((__tmp50285 + (let ((__tmp50286 + (let ((__tmp50287 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50285 - (let ((__tmp50286 + (let ((__tmp50288 + (let ((__tmp50289 (let () (declare (not safe)) (cons _tgt24752_ '())))) (declare (not safe)) - (cons _getf24845_ __tmp50286)))) + (cons _getf24845_ __tmp50289)))) (declare (not safe)) - (cons __tmp50285 '())))) + (cons __tmp50288 '())))) (declare (not safe)) - (cons _$tgt24848_ __tmp50284)))) + (cons _$tgt24848_ __tmp50287)))) (declare (not safe)) - (cons __tmp50283 '()))) - (__tmp50279 - (let ((__tmp50280 - (let ((__tmp50281 + (cons __tmp50286 '()))) + (__tmp50282 + (let ((__tmp50283 + (let ((__tmp50284 (let () (declare (not safe)) (_recur24757_ _L24818_)))) @@ -5554,16 +5556,16 @@ (_generate124739_ _$tgt24848_ _L24820_ - __tmp50281 + __tmp50284 _E24755_)))) (declare (not safe)) - (cons __tmp50280 '())))) + (cons __tmp50283 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50282 - __tmp50279)))) + (cons __tmp50285 + __tmp50282)))) (declare (not safe)) - (cons 'let __tmp50278))) + (cons 'let __tmp50281))) _$e24841_) (gx#raise-syntax-error '#f @@ -5628,33 +5630,33 @@ (let ((___kont4617546176_ (lambda (_L24709_) (if (gx#stx-null? _L24605_) - (let ((__tmp50287 - (let ((__tmp50292 + (let ((__tmp50290 + (let ((__tmp50295 (gx#genident 'else)) - (__tmp50288 - (let ((__tmp50289 + (__tmp50291 + (let ((__tmp50292 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50290 + (let ((__tmp50293 (gx#stx-wrap-source - (let ((__tmp50291 + (let ((__tmp50294 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp50291 _L24709_)) + (cons __tmp50294 _L24709_)) (let ((_$e24720_ (gx#stx-source _L24607_))) (if _$e24720_ _$e24720_ (gx#stx-source _stx23628_)))))) (declare (not safe)) - (cons __tmp50290 '())))) + (cons __tmp50293 '())))) (declare (not safe)) - (cons '#f __tmp50289)))) + (cons '#f __tmp50292)))) (declare (not safe)) - (cons __tmp50292 __tmp50288)))) + (cons __tmp50295 __tmp50291)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50287 _r24562_)) + (cons __tmp50290 _r24562_)) (gx#raise-syntax-error '#f '"bad syntax; misplaced else" @@ -5662,13 +5664,13 @@ _L24607_)))) (___kont4617746178_ (lambda (_L24668_ _L24670_) - (let ((__tmp50293 - (let ((__tmp50294 - (let ((__tmp50300 + (let ((__tmp50296 + (let ((__tmp50297 + (let ((__tmp50303 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#genident 'try-match)) - (__tmp50295 - (let ((__tmp50299 + (__tmp50298 + (let ((__tmp50302 (gx#stx-map (lambda (_g2468224684_) (let () @@ -5677,32 +5679,32 @@ _g2468224684_ _stx23628_))) _L24670_)) - (__tmp50296 - (let ((__tmp50297 + (__tmp50299 + (let ((__tmp50300 (gx#stx-wrap-source - (let ((__tmp50298 + (let ((__tmp50301 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp50298 _L24668_)) + (cons __tmp50301 _L24668_)) (let ((_$e24688_ (gx#stx-source _L24607_))) (if _$e24688_ _$e24688_ (gx#stx-source _stx23628_)))))) (declare (not safe)) - (cons __tmp50297 '())))) + (cons __tmp50300 '())))) (declare (not safe)) - (cons __tmp50299 __tmp50296)))) + (cons __tmp50302 __tmp50299)))) (declare (not safe)) - (cons __tmp50300 __tmp50295)))) + (cons __tmp50303 __tmp50298)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50294 + (cons __tmp50297 _r24562_)))) (declare (not safe)) (_lp24557_ _L24605_ - __tmp50293)))) + __tmp50296)))) (___kont4617946180_ (lambda () (gx#raise-syntax-error @@ -5723,11 +5725,11 @@ _hd-len24554_) (gx#stx-list? _L24668_) - (let ((__tmp50301 + (let ((__tmp50304 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L24668_))) (declare (not safe)) - (not __tmp50301))) + (not __tmp50304))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4617746178_ _L24668_ @@ -5740,11 +5742,11 @@ (let ((_L24709_ _tl2462724706_)) (if (and (gx#stx-list? _L24709_) - (let ((__tmp50302 + (let ((__tmp50305 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L24709_))) (declare (not safe)) - (not __tmp50302))) + (not __tmp50305))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4617546176_ _L24709_) @@ -5767,7 +5769,7 @@ (if (gx#identifier? _hd2462824703_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50303_| + |gerbil/core$[1]#_g50306_| _hd2462824703_) (___match4619146192_ _e2462924699_ @@ -5820,36 +5822,36 @@ (lambda (_g2437024390_) (if (gx#stx-pair/null? _g2437024390_) - (let ((_g50304_ + (let ((_g50307_ (gx#syntax-split-splice _g2437024390_ '0))) (begin - (let ((_g50305_ + (let ((_g50308_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50304_) - (##vector-length _g50304_) + _g50307_) + (##vector-length _g50307_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50305_ 2))) - (error "Context expects 2 values" _g50305_))) + (if (not (let () (declare (not safe)) (##fx= _g50308_ 2))) + (error "Context expects 2 values" _g50308_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2437224393_ (let () (declare (not safe)) (##vector-ref - _g50304_ + _g50307_ 0))) (_tl2437424396_ (let () (declare (not safe)) (##vector-ref - _g50304_ + _g50307_ 1)))) (if (gx#stx-null? _tl2437424396_) @@ -5867,7 +5869,7 @@ (let () (declare (not safe)) (##cdr _e2437624409_)))) - (let ((__tmp50328 + (let ((__tmp50331 (let () (declare (not safe)) (cons _lp-hd2437724413_ @@ -5875,7 +5877,7 @@ (declare (not safe)) (_loop2437524399_ _lp-tl2437824416_ - __tmp50328)))) + __tmp50331)))) (let ((_target2438024419_ (reverse _target2437924406_))) ((lambda (_L24423_) @@ -5912,80 +5914,80 @@ ((lambda (_L24511_) (let () (let () - (let ((__tmp50309 + (let ((__tmp50312 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp50306 - (let ((__tmp50308 + (__tmp50309 + (let ((__tmp50311 (gx#datum->syntax '#f '@match)) - (__tmp50307 + (__tmp50310 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L24511_ '())))) (declare (not safe)) - (cons __tmp50308 __tmp50307)))) + (cons __tmp50311 __tmp50310)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50309 - __tmp50306))))) + (cons __tmp50312 + __tmp50309))))) _g2449724508_))) - (__tmp50310 + (__tmp50313 (gx#stx-wrap-source - (let ((__tmp50316 + (let ((__tmp50319 (gx#datum->syntax '#f 'let)) - (__tmp50311 - (let ((__tmp50313 - (let ((__tmp50314 - (let ((__tmp50315 + (__tmp50314 + (let ((__tmp50316 + (let ((__tmp50317 + (let ((__tmp50318 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L24455_ '())))) (declare (not safe)) - (cons _L24357_ __tmp50315)))) + (cons _L24357_ __tmp50318)))) (declare (not safe)) - (cons __tmp50314 '()))) - (__tmp50312 (let () (declare (not safe)) (cons _L24483_ '())))) + (cons __tmp50317 '()))) + (__tmp50315 (let () (declare (not safe)) (cons _L24483_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50313 - __tmp50312)))) + (cons __tmp50316 + __tmp50315)))) (declare (not safe)) - (cons __tmp50316 __tmp50311)) + (cons __tmp50319 __tmp50314)) (gx#stx-source _stx23628_)))) (declare (not safe)) - (_g2449524526_ __tmp50310)))) + (_g2449524526_ __tmp50313)))) _g2446924480_))) - (__tmp50317 - (let ((__tmp50318 + (__tmp50320 + (let ((__tmp50321 (let () (declare (not safe)) (cons _L24357_ '())))) (declare (not safe)) - (_generate-clauses23636_ _body24339_ __tmp50318)))) + (_generate-clauses23636_ _body24339_ __tmp50321)))) (declare (not safe)) - (_g2446724530_ __tmp50317)))) + (_g2446724530_ __tmp50320)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2444124452_))) - (__tmp50319 + (__tmp50322 (gx#stx-wrap-source - (let ((__tmp50327 + (let ((__tmp50330 (gx#datum->syntax '#f 'lambda)) - (__tmp50320 - (let ((__tmp50321 + (__tmp50323 + (let ((__tmp50324 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50322 - (let ((__tmp50326 + (let ((__tmp50325 + (let ((__tmp50329 (gx#datum->syntax '#f 'error)) - (__tmp50323 - (let ((__tmp50324 - (let ((__tmp50325 + (__tmp50326 + (let ((__tmp50327 + (let ((__tmp50328 (lambda (_g2453724540_ _g2453824543_) (let () @@ -5993,26 +5995,26 @@ (cons _g2453724540_ _g2453824543_))))) (declare (not safe)) - (foldr1 __tmp50325 + (foldr1 __tmp50328 '() _L24423_)))) (declare (not safe)) (cons '"No clause matching" - __tmp50324)))) + __tmp50327)))) (declare (not safe)) - (cons __tmp50326 __tmp50323)))) + (cons __tmp50329 __tmp50326)))) (declare (not safe)) - (cons __tmp50322 '())))) + (cons __tmp50325 '())))) (declare (not safe)) - (cons '() __tmp50321)))) + (cons '() __tmp50324)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50327 - __tmp50320)) + (cons __tmp50330 + __tmp50323)) (gx#stx-source _stx23628_)))) (declare (not safe)) - (_g2443924534_ __tmp50319)))) + (_g2443924534_ __tmp50322)))) _target2438024419_)))))) (let () (declare (not safe)) @@ -6028,9 +6030,9 @@ (declare (not safe)) (_g2436824546_ _tgt-lst23630_)))) _g2434324354_))) - (__tmp50329 (gx#genident 'E))) + (__tmp50332 (gx#genident 'E))) (declare (not safe)) - (_g2434124550_ __tmp50329)))) + (_g2434124550_ __tmp50332)))) (_generate-clauses23636_ (lambda (_rest23991_ _E23993_) (let* ((___stx4621646217_ _rest23991_) @@ -6087,9 +6089,9 @@ (##cdr _e2427024303_)))) (if (gx#stx-null? _tl2426824310_) ((lambda (_L24313_ _L24315_) - (let ((__tmp50330 - (let ((__tmp50331 - (let ((__tmp50332 + (let ((__tmp50333 + (let ((__tmp50334 + (let ((__tmp50335 (if (gx#stx-e _L24315_) (let () (declare (not safe)) @@ -6099,11 +6101,11 @@ _E23993_)) _L24313_))) (declare (not safe)) - (cons __tmp50332 '())))) + (cons __tmp50335 '())))) (declare (not safe)) - (cons '@match-body __tmp50331)))) + (cons '@match-body __tmp50334)))) (declare (not safe)) - (cons 'begin-annotation __tmp50330))) + (cons 'begin-annotation __tmp50333))) _hd2426924307_ _hd2426624297_) (let () @@ -6207,38 +6209,38 @@ (if (gx#stx-null? _tl2413924171_) ((lambda (_L24174_ _L24176_) (let () - (let ((__tmp50359 (gx#datum->syntax '#f 'let)) - (__tmp50350 - (let ((__tmp50352 - (let ((__tmp50353 - (let ((__tmp50354 - (let ((__tmp50355 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50358 (gx#datum->syntax '#f 'lambda)) - (__tmp50356 - (let ((__tmp50357 + (let ((__tmp50362 (gx#datum->syntax '#f 'let)) + (__tmp50353 + (let ((__tmp50355 + (let ((__tmp50356 + (let ((__tmp50357 + (let ((__tmp50358 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50361 (gx#datum->syntax '#f 'lambda)) + (__tmp50359 + (let ((__tmp50360 (let () (declare (not safe)) (cons _L24176_ '())))) (declare (not safe)) - (cons '() __tmp50357)))) + (cons '() __tmp50360)))) (declare (not safe)) - (cons __tmp50358 __tmp50356)))) + (cons __tmp50361 __tmp50359)))) (declare (not safe)) - (cons __tmp50355 '())))) + (cons __tmp50358 '())))) (declare (not safe)) - (cons _L24115_ __tmp50354)))) + (cons _L24115_ __tmp50357)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50353 '()))) - (__tmp50351 + (cons __tmp50356 '()))) + (__tmp50354 (let () (declare (not safe)) (cons _L24174_ '())))) (declare (not safe)) - (cons __tmp50352 __tmp50351)))) + (cons __tmp50355 __tmp50354)))) (declare (not safe)) - (cons __tmp50359 __tmp50350)))) + (cons __tmp50362 __tmp50353)))) _hd2414024168_ _hd2413724158_) (let () @@ -6252,14 +6254,14 @@ (declare (not safe)) (_g2413224147_ _g2413324151_))))) - (__tmp50360 + (__tmp50363 (list (let () (declare (not safe)) (_generate123637_ _L24114_ _L24112_ _E23993_)) - (let ((__tmp50361 + (let ((__tmp50364 (let () (declare (not safe)) (cons _L24115_ @@ -6269,9 +6271,9 @@ (declare (not safe)) (_generate-clauses23636_ _L24041_ - __tmp50361))))) + __tmp50364))))) (declare (not safe)) - (_g2413124192_ __tmp50360)) + (_g2413124192_ __tmp50363)) (let* ((_g2419624204_ (lambda (_g2419724200_) (gx#raise-syntax-error @@ -6282,71 +6284,71 @@ (lambda (_g2419724208_) ((lambda (_L24211_) (let () - (let ((__tmp50347 + (let ((__tmp50350 (gx#datum->syntax '#f 'let)) - (__tmp50333 - (let ((__tmp50335 + (__tmp50336 + (let ((__tmp50338 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50336 - (let ((__tmp50337 - (let ((__tmp50338 - (let ((__tmp50346 + (let ((__tmp50339 + (let ((__tmp50340 + (let ((__tmp50341 + (let ((__tmp50349 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp50339 - (let ((__tmp50345 + (__tmp50342 + (let ((__tmp50348 (gx#datum->syntax '#f '@match-else)) - (__tmp50340 - (let ((__tmp50341 + (__tmp50343 + (let ((__tmp50344 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50344 (gx#datum->syntax '#f 'lambda)) - (__tmp50342 - (let ((__tmp50343 + (let ((__tmp50347 (gx#datum->syntax '#f 'lambda)) + (__tmp50345 + (let ((__tmp50346 (let () (declare (not safe)) (cons _L24112_ '())))) (declare (not safe)) - (cons '() __tmp50343)))) + (cons '() __tmp50346)))) (declare (not safe)) - (cons __tmp50344 __tmp50342)))) + (cons __tmp50347 __tmp50345)))) (declare (not safe)) - (cons __tmp50341 '())))) + (cons __tmp50344 '())))) (declare (not safe)) - (cons __tmp50345 __tmp50340)))) + (cons __tmp50348 __tmp50343)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50346 __tmp50339)))) + (cons __tmp50349 __tmp50342)))) (declare (not safe)) - (cons __tmp50338 '())))) + (cons __tmp50341 '())))) (declare (not safe)) - (cons _L24115_ __tmp50337)))) + (cons _L24115_ __tmp50340)))) (declare (not safe)) - (cons __tmp50336 '()))) - (__tmp50334 + (cons __tmp50339 '()))) + (__tmp50337 (let () (declare (not safe)) (cons _L24211_ '())))) (declare (not safe)) - (cons __tmp50335 __tmp50334)))) + (cons __tmp50338 __tmp50337)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50347 - __tmp50333)))) + (cons __tmp50350 + __tmp50336)))) _g2419724208_))) - (__tmp50348 - (let ((__tmp50349 + (__tmp50351 + (let ((__tmp50352 (let () (declare (not safe)) (cons _L24115_ '())))) (declare (not safe)) (_generate-clauses23636_ _L24041_ - __tmp50349)))) + __tmp50352)))) (declare (not safe)) - (_g2419524222_ __tmp50348)))) + (_g2419524222_ __tmp50351)))) _hd2406824106_ _hd2406524096_ _hd2406224086_) @@ -6369,15 +6371,15 @@ (_g2405524226_ _L24043_)))) (___kont4622346224_ (lambda () - (let ((__tmp50362 - (let ((__tmp50363 + (let ((__tmp50365 + (let ((__tmp50366 (let () (declare (not safe)) (cons _E23993_ '())))) (declare (not safe)) - (cons '@match-body __tmp50363)))) + (cons '@match-body __tmp50366)))) (declare (not safe)) - (cons 'begin-annotation __tmp50362))))) + (cons 'begin-annotation __tmp50365))))) (if (gx#stx-pair? ___stx4621646217_) (let ((_e2400224237_ (gx#syntax-e ___stx4621646217_))) @@ -6429,25 +6431,25 @@ (##cdr _e2365323685_)))) (if (gx#stx-pair/null? _hd2365223689_) - (let ((_g50364_ + (let ((_g50367_ (gx#syntax-split-splice _hd2365223689_ '0))) (begin - (let ((_g50365_ + (let ((_g50368_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g50364_) - (##vector-length _g50364_) + (if (##values? _g50367_) + (##vector-length _g50367_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50365_ 2))) - (error "Context expects 2 values" _g50365_))) + (if (not (let () (declare (not safe)) (##fx= _g50368_ 2))) + (error "Context expects 2 values" _g50368_))) (let ((_target2365423695_ - (let () (declare (not safe)) (##vector-ref _g50364_ 0))) + (let () (declare (not safe)) (##vector-ref _g50367_ 0))) (_tl2365623698_ - (let () (declare (not safe)) (##vector-ref _g50364_ 1)))) + (let () (declare (not safe)) (##vector-ref _g50367_ 1)))) (if (gx#stx-null? _tl2365623698_) (letrec ((_loop2365723701_ (lambda (_hd2365523705_ _var2366123708_) @@ -6462,7 +6464,7 @@ (let () (declare (not safe)) (##cdr _e2365823711_)))) - (let ((__tmp50382 + (let ((__tmp50385 (let () (declare (not safe)) (cons _lp-hd2365923715_ @@ -6470,14 +6472,14 @@ (declare (not safe)) (_loop2365723701_ _lp-tl2366023718_ - __tmp50382)))) + __tmp50385)))) (let ((_var2366223721_ (reverse _var2366123708_))) (if (gx#stx-null? _tl2365123692_) ((lambda (_L23725_ _L23727_) (let () (gx#check-duplicate-identifiers - (let ((__tmp50366 + (let ((__tmp50369 (lambda (_g2374823751_ _g2374923754_) (let () @@ -6487,7 +6489,7 @@ _g2374923754_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp50366 + (foldr1 __tmp50369 '() _L23725_)) _stx23628_) @@ -6524,61 +6526,61 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp50371 + (let ((__tmp50374 (gx#datum->syntax '#f 'let)) - (__tmp50367 - (let ((__tmp50369 + (__tmp50370 + (let ((__tmp50372 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50370 + (let ((__tmp50373 (let () (declare (not safe)) (cons _L23828_ '())))) (declare (not safe)) - (cons _L23727_ __tmp50370))) - (__tmp50368 + (cons _L23727_ __tmp50373))) + (__tmp50371 (let () (declare (not safe)) (cons _L23772_ '())))) (declare (not safe)) - (cons __tmp50369 __tmp50368)))) + (cons __tmp50372 __tmp50371)))) (declare (not safe)) - (cons __tmp50371 __tmp50367)) + (cons __tmp50374 __tmp50370)) (gx#stx-source _stx23628_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2381423825_))) - (__tmp50372 + (__tmp50375 (gx#stx-wrap-source - (let ((__tmp50377 + (let ((__tmp50380 (gx#datum->syntax '#f 'lambda)) - (__tmp50373 - (let ((__tmp50375 - (let ((__tmp50376 + (__tmp50376 + (let ((__tmp50378 + (let ((__tmp50379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g2384623849_ _g2384723852_) (let () (declare (not safe)) (cons _g2384623849_ _g2384723852_))))) (declare (not safe)) - (foldr1 __tmp50376 '() _L23725_))) - (__tmp50374 + (foldr1 __tmp50379 '() _L23725_))) + (__tmp50377 (let () (declare (not safe)) (cons _L23800_ '())))) (declare (not safe)) - (cons __tmp50375 __tmp50374)))) + (cons __tmp50378 __tmp50377)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50377 __tmp50373)) + (cons __tmp50380 __tmp50376)) (gx#stx-source _stx23628_)))) (declare (not safe)) - (_g2381223843_ __tmp50372)))) + (_g2381223843_ __tmp50375)))) _g2378623797_)))) (declare (not safe)) (_g2378423855_ _body23641_)))) _g2375823769_))) - (__tmp50378 + (__tmp50381 (let _recur23863_ ((_rest23866_ _clause23639_) (_rest-targets23868_ _tgt-lst23630_)) (let* ((___stx4624246243_ _rest23866_) @@ -6610,7 +6612,7 @@ (declare (not safe)) (##cdr _e2394223955_)))) ((lambda (_L23965_ _L23967_) - (let ((__tmp50379 + (let ((__tmp50382 (let () (declare (not safe)) (_recur23863_ @@ -6621,7 +6623,7 @@ _stx23628_ _L23967_ _L23921_ - __tmp50379 + __tmp50382 _E23642_))) _tl2394023962_ _hd2394123959_))) @@ -6632,17 +6634,17 @@ (_g2393523979_ _rest-targets23868_)))) (___kont4624746248_ (lambda () - (let ((__tmp50380 - (let ((__tmp50381 + (let ((__tmp50383 + (let ((__tmp50384 (lambda (_g2389323896_ _g2389423899_) (let () (declare (not safe)) (cons _g2389323896_ _g2389423899_))))) (declare (not safe)) - (foldr1 __tmp50381 '() _L23725_)))) + (foldr1 __tmp50384 '() _L23725_)))) (declare (not safe)) - (cons _L23727_ __tmp50380))))) + (cons _L23727_ __tmp50383))))) (if (gx#stx-pair? ___stx4624246243_) (let ((_e2387723909_ (gx#syntax-e ___stx4624246243_))) (let ((_tl2387523916_ @@ -6659,7 +6661,7 @@ (___kont4624746248_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2375623859_ __tmp50378)))) + (_g2375623859_ __tmp50381)))) _var2366223721_ _hd2364923679_) (let () @@ -6683,19 +6685,19 @@ (let () (declare (not safe)) (_g2364423668_ _g2364523672_))))) - (__tmp50383 + (__tmp50386 (list (gx#genident 'K) (apply append (map |gerbil/core$[1]#match-pattern-vars| _clause23639_))))) (declare (not safe)) - (_g2364323987_ __tmp50383))))) - (let ((__tmp50384 - (let ((__tmp50385 (gx#stx-length _tgt-lst23630_))) + (_g2364323987_ __tmp50386))))) + (let ((__tmp50387 + (let ((__tmp50388 (gx#stx-length _tgt-lst23630_))) (declare (not safe)) - (_parse-body23633_ __tmp50385)))) + (_parse-body23633_ __tmp50388)))) (declare (not safe)) - (_generate-body23635_ __tmp50384))))) + (_generate-body23635_ __tmp50387))))) (define |gerbil/core$[1]#generate-match| (lambda (_stx23530_ _tgt23532_ _clauses23533_) (letrec ((_reclause23535_ @@ -6711,12 +6713,12 @@ (___kont4626346264_ (lambda (_L23586_ _L23588_) (gx#stx-wrap-source - (let ((__tmp50386 + (let ((__tmp50389 (let () (declare (not safe)) (cons _L23588_ '())))) (declare (not safe)) - (cons __tmp50386 _L23586_)) + (cons __tmp50389 _L23586_)) (gx#stx-source (gx#datum->syntax '#f 'clause))))) (___kont4626546266_ @@ -6739,7 +6741,7 @@ (##car _e2354723610_)))) (if (gx#identifier? _hd2354623614_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50387_| + |gerbil/core$[1]#_g50390_| _hd2354623614_) (___kont4626146262_) (___kont4626346264_ @@ -6749,14 +6751,14 @@ _tl2354523617_ _hd2354623614_)))) (___kont4626546266_))))))) - (let ((__tmp50389 + (let ((__tmp50392 (let () (declare (not safe)) (cons _tgt23532_ '()))) - (__tmp50388 (gx#stx-map _reclause23535_ _clauses23533_))) + (__tmp50391 (gx#stx-map _reclause23535_ _clauses23533_))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| _stx23530_ - __tmp50389 - __tmp50388))))) + __tmp50392 + __tmp50391))))) (define |gerbil/core$[:0:]#match| (lambda (_stx30761_) (let* ((___stx4628646287_ _stx30761_) @@ -6789,33 +6791,33 @@ ((lambda (_L31090_) (let () (let () - (let ((__tmp50393 + (let ((__tmp50396 (gx#datum->syntax '#f 'lambda)) - (__tmp50390 - (let ((__tmp50392 + (__tmp50393 + (let ((__tmp50395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L31063_ '()))) - (__tmp50391 + (__tmp50394 (let () (declare (not safe)) (cons _L31090_ '())))) (declare (not safe)) - (cons __tmp50392 __tmp50391)))) + (cons __tmp50395 __tmp50394)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50393 - __tmp50390))))) + (cons __tmp50396 + __tmp50393))))) _g3107631087_)))) (_g3107431105_ (gx#stx-wrap-source - (let ((__tmp50395 + (let ((__tmp50398 (gx#datum->syntax '#f 'match)) - (__tmp50394 + (__tmp50397 (let () (declare (not safe)) (cons _L31063_ _L31035_)))) (declare (not safe)) - (cons __tmp50395 __tmp50394)) + (cons __tmp50398 __tmp50397)) (gx#stx-source _stx30761_)))))) _g3104931060_)))) (_g3104731109_ (gx#genident 'e))))) @@ -6842,31 +6844,31 @@ ((lambda (_L30985_) (let () (let () - (let ((__tmp50398 + (let ((__tmp50401 (gx#datum->syntax '#f 'lambda)) - (__tmp50396 - (let ((__tmp50397 + (__tmp50399 + (let ((__tmp50400 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L30985_ '())))) (declare (not safe)) - (cons _L30958_ __tmp50397)))) + (cons _L30958_ __tmp50400)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50398 - __tmp50396))))) + (cons __tmp50401 + __tmp50399))))) _g3097130982_)))) (_g3096931000_ (gx#stx-wrap-source - (let ((__tmp50400 + (let ((__tmp50403 (gx#datum->syntax '#f 'match)) - (__tmp50399 + (__tmp50402 (let () (declare (not safe)) (cons _L30958_ _L30930_)))) (declare (not safe)) - (cons __tmp50400 __tmp50399)) + (cons __tmp50403 __tmp50402)) (gx#stx-source _stx30761_)))))) _g3094430955_)))) (_g3094231004_ (gx#genident 'args))))) @@ -6893,30 +6895,30 @@ ((lambda (_L30880_) (let () (let () - (let ((__tmp50406 + (let ((__tmp50409 (gx#datum->syntax '#f 'let)) - (__tmp50401 - (let ((__tmp50403 + (__tmp50404 + (let ((__tmp50406 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50404 - (let ((__tmp50405 + (let ((__tmp50407 + (let ((__tmp50408 (let () (declare (not safe)) (cons _L30824_ '())))) (declare (not safe)) - (cons _L30853_ __tmp50405)))) + (cons _L30853_ __tmp50408)))) (declare (not safe)) - (cons __tmp50404 '()))) - (__tmp50402 + (cons __tmp50407 '()))) + (__tmp50405 (let () (declare (not safe)) (cons _L30880_ '())))) (declare (not safe)) - (cons __tmp50403 __tmp50402)))) + (cons __tmp50406 __tmp50405)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50406 - __tmp50401))))) + (cons __tmp50409 + __tmp50404))))) _g3086630877_)))) (_g3086430895_ (let () @@ -6993,7 +6995,7 @@ (##car _e3077431025_)))) (if (gx#identifier? _hd3077331029_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50408_| + |gerbil/core$[1]#_g50411_| _hd3077331029_) (___match4631146312_ _e3077131015_ @@ -7003,7 +7005,7 @@ _hd3077331029_ _tl3077231032_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50407_| + |gerbil/core$[1]#_g50410_| _hd3077331029_) (___match4632746328_ _e3077131015_ @@ -7060,31 +7062,31 @@ (declare (not safe)) (##cdr _e3112931161_)))) (if (gx#stx-pair/null? _hd3112831165_) - (let ((_g50409_ + (let ((_g50412_ (gx#syntax-split-splice _hd3112831165_ '0))) (begin - (let ((_g50410_ + (let ((_g50413_ (let () (declare (not safe)) - (if (##values? _g50409_) + (if (##values? _g50412_) (##vector-length - _g50409_) + _g50412_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50410_ 2))) + (##fx= _g50413_ 2))) (error "Context expects 2 values" - _g50410_))) + _g50413_))) (let ((_target3113031171_ (let () (declare (not safe)) - (##vector-ref _g50409_ 0))) + (##vector-ref _g50412_ 0))) (_tl3113231174_ (let () (declare (not safe)) - (##vector-ref _g50409_ 1)))) + (##vector-ref _g50412_ 1)))) (if (gx#stx-null? _tl3113231174_) (letrec ((_loop3113331177_ (lambda (_hd3113131181_ @@ -7118,41 +7120,41 @@ (lambda (_g3122231242_) (if (gx#stx-pair/null? _g3122231242_) - (let ((_g50411_ + (let ((_g50414_ (gx#syntax-split-splice _g3122231242_ '0))) (begin - (let ((_g50412_ + (let ((_g50415_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50411_) - (##vector-length _g50411_) + _g50414_) + (##vector-length _g50414_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50412_ 2))) - (error "Context expects 2 values" _g50412_))) + (##fx= _g50415_ 2))) + (error "Context expects 2 values" _g50415_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3122431245_ (let () (declare (not safe)) (##vector-ref - _g50411_ + _g50414_ 0))) (_tl3122631248_ (let () (declare (not safe)) (##vector-ref - _g50411_ + _g50414_ 1)))) (if (gx#stx-null? _tl3122631248_) @@ -7191,47 +7193,47 @@ ((lambda (_L31306_) (let () (let () - (let ((__tmp50419 + (let ((__tmp50422 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp50413 - (let ((__tmp50415 + (__tmp50416 + (let ((__tmp50418 (begin (gx#syntax-check-splice-targets _L31203_ _L31275_) - (let ((__tmp50416 + (let ((__tmp50419 (lambda (_g3132031324_ _g3132131327_ _g3132231329_) - (let ((__tmp50417 - (let ((__tmp50418 + (let ((__tmp50420 + (let ((__tmp50421 (let () (declare (not safe)) (cons _g3132031324_ '())))) (declare (not safe)) (cons _g3132131327_ - __tmp50418)))) + __tmp50421)))) (declare (not safe)) - (cons __tmp50417 _g3132231329_))))) + (cons __tmp50420 _g3132231329_))))) (declare (not safe)) - (foldr2 __tmp50416 '() _L31203_ _L31275_)))) - (__tmp50414 + (foldr2 __tmp50419 '() _L31203_ _L31275_)))) + (__tmp50417 (let () (declare (not safe)) (cons _L31306_ '())))) (declare (not safe)) - (cons __tmp50415 __tmp50414)))) + (cons __tmp50418 __tmp50417)))) (declare (not safe)) - (cons __tmp50419 __tmp50413))))) + (cons __tmp50422 __tmp50416))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g3129231303_)))) (_g3129031332_ - (let ((__tmp50420 - (let ((__tmp50421 + (let ((__tmp50423 + (let ((__tmp50424 (lambda (_g3133531338_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3133631341_) @@ -7240,13 +7242,13 @@ (cons _g3133531338_ _g3133631341_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp50421 + (foldr1 __tmp50424 '() _L31275_)))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| _stx31117_ - __tmp50420 + __tmp50423 _L31201_)))))) _$e3123231271_)))))) (_loop3122731251_ _target3122431245_ '())) @@ -7256,7 +7258,7 @@ _g3122231242_))))) (_g3122031344_ (gx#gentemps - (let ((__tmp50422 + (let ((__tmp50425 (lambda (_g3134731350_ _g3134831353_) (let () @@ -7264,7 +7266,7 @@ (cons _g3134731350_ _g3134831353_))))) (declare (not safe)) - (foldr1 __tmp50422 '() _L31203_))))) + (foldr1 __tmp50425 '() _L31203_))))) (_g3112031144_ _g3112131148_))) _tl3112731168_ _e3113831197_)))))) @@ -7289,64 +7291,64 @@ ___stx4634246343_)))) (let ((___kont4634546346_ (lambda (_L31781_) - (let ((__tmp50426 (gx#datum->syntax '#f 'let)) - (__tmp50423 - (let ((__tmp50424 - (let ((__tmp50425 + (let ((__tmp50429 (gx#datum->syntax '#f 'let)) + (__tmp50426 + (let ((__tmp50427 + (let ((__tmp50428 (lambda (_g3179731800_ _g3179831803_) (let () (declare (not safe)) (cons _g3179731800_ _g3179831803_))))) (declare (not safe)) - (foldr1 __tmp50425 '() _L31781_)))) + (foldr1 __tmp50428 '() _L31781_)))) (declare (not safe)) - (cons '() __tmp50424)))) + (cons '() __tmp50427)))) (declare (not safe)) - (cons __tmp50426 __tmp50423)))) + (cons __tmp50429 __tmp50426)))) (___kont4634946350_ (lambda (_L31689_ _L31691_ _L31692_ _L31693_) - (let ((__tmp50427 - (let ((__tmp50430 - (let ((__tmp50431 - (let ((__tmp50432 + (let ((__tmp50430 + (let ((__tmp50433 + (let ((__tmp50434 + (let ((__tmp50435 (let () (declare (not safe)) (cons _L31691_ '())))) (declare (not safe)) - (cons _L31692_ __tmp50432)))) + (cons _L31692_ __tmp50435)))) (declare (not safe)) - (cons __tmp50431 '()))) - (__tmp50428 - (let ((__tmp50429 + (cons __tmp50434 '()))) + (__tmp50431 + (let ((__tmp50432 (lambda (_g3171531718_ _g3171631721_) (let () (declare (not safe)) (cons _g3171531718_ _g3171631721_))))) (declare (not safe)) - (foldr1 __tmp50429 '() _L31689_)))) + (foldr1 __tmp50432 '() _L31689_)))) (declare (not safe)) - (cons __tmp50430 __tmp50428)))) + (cons __tmp50433 __tmp50431)))) (declare (not safe)) - (cons _L31693_ __tmp50427)))) + (cons _L31693_ __tmp50430)))) (___kont4635346354_ (lambda (_L31562_ _L31564_ _L31565_) - (let ((__tmp50442 (gx#datum->syntax '#f 'match*)) - (__tmp50433 - (let ((__tmp50440 - (let ((__tmp50441 + (let ((__tmp50445 (gx#datum->syntax '#f 'match*)) + (__tmp50436 + (let ((__tmp50443 + (let ((__tmp50444 (lambda (_g3159131594_ _g3159231597_) (let () (declare (not safe)) (cons _g3159131594_ _g3159231597_))))) (declare (not safe)) - (foldr1 __tmp50441 '() _L31564_))) - (__tmp50434 - (let ((__tmp50435 - (let ((__tmp50438 - (let ((__tmp50439 + (foldr1 __tmp50444 '() _L31564_))) + (__tmp50437 + (let ((__tmp50438 + (let ((__tmp50441 + (let ((__tmp50442 (lambda (_g3158931600_ _g3159031603_) (let () @@ -7354,11 +7356,11 @@ (cons _g3158931600_ _g3159031603_))))) (declare (not safe)) - (foldr1 __tmp50439 + (foldr1 __tmp50442 '() _L31565_))) - (__tmp50436 - (let ((__tmp50437 + (__tmp50439 + (let ((__tmp50440 (lambda (_g3158731606_ _g3158831609_) (let () @@ -7366,17 +7368,17 @@ (cons _g3158731606_ _g3158831609_))))) (declare (not safe)) - (foldr1 __tmp50437 + (foldr1 __tmp50440 '() _L31562_)))) (declare (not safe)) - (cons __tmp50438 __tmp50436)))) + (cons __tmp50441 __tmp50439)))) (declare (not safe)) - (cons __tmp50435 '())))) + (cons __tmp50438 '())))) (declare (not safe)) - (cons __tmp50440 __tmp50434)))) + (cons __tmp50443 __tmp50437)))) (declare (not safe)) - (cons __tmp50442 __tmp50433))))) + (cons __tmp50445 __tmp50436))))) (let* ((___match4643546436_ (lambda (_e3141631458_ _hd3141531462_ @@ -7966,23 +7968,23 @@ ___stx4643846439_)))) (let ((___kont4644146442_ (lambda (_L32041_ _L32043_ _L32044_ _L32045_ _L32046_) - (let ((__tmp50452 (gx#datum->syntax '#f 'with)) - (__tmp50443 - (let ((__tmp50449 - (let ((__tmp50450 - (let ((__tmp50451 + (let ((__tmp50455 (gx#datum->syntax '#f 'with)) + (__tmp50446 + (let ((__tmp50452 + (let ((__tmp50453 + (let ((__tmp50454 (let () (declare (not safe)) (cons _L32044_ '())))) (declare (not safe)) - (cons _L32045_ __tmp50451)))) + (cons _L32045_ __tmp50454)))) (declare (not safe)) - (cons __tmp50450 '()))) - (__tmp50444 - (let ((__tmp50445 - (let ((__tmp50446 - (let ((__tmp50447 - (let ((__tmp50448 + (cons __tmp50453 '()))) + (__tmp50447 + (let ((__tmp50448 + (let ((__tmp50449 + (let ((__tmp50450 + (let ((__tmp50451 (lambda (_g3207132074_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3207232077_) @@ -7990,35 +7992,35 @@ (declare (not safe)) (cons _g3207132074_ _g3207232077_))))) (declare (not safe)) - (foldr1 __tmp50448 '() _L32041_)))) + (foldr1 __tmp50451 '() _L32041_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L32043_ __tmp50447)))) + (cons _L32043_ __tmp50450)))) (declare (not safe)) - (cons _L32046_ __tmp50446)))) + (cons _L32046_ __tmp50449)))) (declare (not safe)) - (cons __tmp50445 '())))) + (cons __tmp50448 '())))) (declare (not safe)) - (cons __tmp50449 __tmp50444)))) + (cons __tmp50452 __tmp50447)))) (declare (not safe)) - (cons __tmp50452 __tmp50443)))) + (cons __tmp50455 __tmp50446)))) (___kont4644546446_ (lambda (_L31928_) - (let ((__tmp50456 (gx#datum->syntax '#f 'let)) - (__tmp50453 - (let ((__tmp50454 - (let ((__tmp50455 + (let ((__tmp50459 (gx#datum->syntax '#f 'let)) + (__tmp50456 + (let ((__tmp50457 + (let ((__tmp50458 (lambda (_g3194531948_ _g3194631951_) (let () (declare (not safe)) (cons _g3194531948_ _g3194631951_))))) (declare (not safe)) - (foldr1 __tmp50455 '() _L31928_)))) + (foldr1 __tmp50458 '() _L31928_)))) (declare (not safe)) - (cons '() __tmp50454)))) + (cons '() __tmp50457)))) (declare (not safe)) - (cons __tmp50456 __tmp50453))))) + (cons __tmp50459 __tmp50456))))) (let* ((___match4651146512_ (lambda (_e3185331878_ _hd3185231882_ @@ -8250,271 +8252,271 @@ ___stx4651446515_)))) (let ((___kont4651746518_ (lambda (_L32847_ _L32849_ _L32850_) - (let ((__tmp50462 (gx#datum->syntax '#f 'and)) - (__tmp50457 - (let ((__tmp50458 + (let ((__tmp50465 (gx#datum->syntax '#f 'and)) + (__tmp50460 + (let ((__tmp50461 (lambda (_g3287132874_ _g3287232877_) - (let ((__tmp50459 - (let ((__tmp50460 - (let ((__tmp50461 + (let ((__tmp50462 + (let ((__tmp50463 + (let ((__tmp50464 (let () (declare (not safe)) (cons _L32847_ '())))) (declare (not safe)) (cons _g3287132874_ - __tmp50461)))) + __tmp50464)))) (declare (not safe)) - (cons _L32850_ __tmp50460)))) + (cons _L32850_ __tmp50463)))) (declare (not safe)) - (cons __tmp50459 _g3287232877_))))) + (cons __tmp50462 _g3287232877_))))) (declare (not safe)) - (foldr1 __tmp50458 '() _L32849_)))) + (foldr1 __tmp50461 '() _L32849_)))) (declare (not safe)) - (cons __tmp50462 __tmp50457)))) + (cons __tmp50465 __tmp50460)))) (___kont4652146522_ (lambda (_L32737_ _L32739_ _L32740_) - (let ((__tmp50468 (gx#datum->syntax '#f 'or)) - (__tmp50463 - (let ((__tmp50464 + (let ((__tmp50471 (gx#datum->syntax '#f 'or)) + (__tmp50466 + (let ((__tmp50467 (lambda (_g3276132764_ _g3276232767_) - (let ((__tmp50465 - (let ((__tmp50466 - (let ((__tmp50467 + (let ((__tmp50468 + (let ((__tmp50469 + (let ((__tmp50470 (let () (declare (not safe)) (cons _L32737_ '())))) (declare (not safe)) (cons _g3276132764_ - __tmp50467)))) + __tmp50470)))) (declare (not safe)) - (cons _L32740_ __tmp50466)))) + (cons _L32740_ __tmp50469)))) (declare (not safe)) - (cons __tmp50465 _g3276232767_))))) + (cons __tmp50468 _g3276232767_))))) (declare (not safe)) - (foldr1 __tmp50464 '() _L32739_)))) + (foldr1 __tmp50467 '() _L32739_)))) (declare (not safe)) - (cons __tmp50468 __tmp50463)))) + (cons __tmp50471 __tmp50466)))) (___kont4652546526_ (lambda (_L32637_ _L32639_ _L32640_) - (let ((__tmp50473 (gx#datum->syntax '#f 'not)) - (__tmp50469 - (let ((__tmp50470 - (let ((__tmp50471 - (let ((__tmp50472 + (let ((__tmp50476 (gx#datum->syntax '#f 'not)) + (__tmp50472 + (let ((__tmp50473 + (let ((__tmp50474 + (let ((__tmp50475 (let () (declare (not safe)) (cons _L32637_ '())))) (declare (not safe)) - (cons _L32639_ __tmp50472)))) + (cons _L32639_ __tmp50475)))) (declare (not safe)) - (cons _L32640_ __tmp50471)))) + (cons _L32640_ __tmp50474)))) (declare (not safe)) - (cons __tmp50470 '())))) + (cons __tmp50473 '())))) (declare (not safe)) - (cons __tmp50473 __tmp50469)))) + (cons __tmp50476 __tmp50472)))) (___kont4652746528_ (lambda (_L32563_ _L32565_) - (let ((__tmp50474 + (let ((__tmp50477 (let () (declare (not safe)) (cons _L32563_ '())))) (declare (not safe)) - (cons _L32565_ __tmp50474)))) + (cons _L32565_ __tmp50477)))) (___kont4652946530_ (lambda (_L32511_ _L32513_) - (let ((__tmp50483 (gx#datum->syntax '#f 'lambda)) - (__tmp50475 - (let ((__tmp50481 - (let ((__tmp50482 + (let ((__tmp50486 (gx#datum->syntax '#f 'lambda)) + (__tmp50478 + (let ((__tmp50484 + (let ((__tmp50485 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50482 '()))) - (__tmp50476 - (let ((__tmp50477 - (let ((__tmp50478 - (let ((__tmp50479 - (let ((__tmp50480 + (cons __tmp50485 '()))) + (__tmp50479 + (let ((__tmp50480 + (let ((__tmp50481 + (let ((__tmp50482 + (let ((__tmp50483 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50480 + (cons __tmp50483 '())))) (declare (not safe)) - (cons _L32511_ __tmp50479)))) + (cons _L32511_ __tmp50482)))) (declare (not safe)) - (cons _L32513_ __tmp50478)))) + (cons _L32513_ __tmp50481)))) (declare (not safe)) - (cons __tmp50477 '())))) + (cons __tmp50480 '())))) (declare (not safe)) - (cons __tmp50481 __tmp50476)))) + (cons __tmp50484 __tmp50479)))) (declare (not safe)) - (cons __tmp50483 __tmp50475)))) + (cons __tmp50486 __tmp50478)))) (___kont4653146532_ (lambda (_L32463_ _L32465_ _L32466_) - (let ((__tmp50502 (gx#datum->syntax '#f 'lambda)) - (__tmp50484 - (let ((__tmp50500 - (let ((__tmp50501 + (let ((__tmp50505 (gx#datum->syntax '#f 'lambda)) + (__tmp50487 + (let ((__tmp50503 + (let ((__tmp50504 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50501 '()))) - (__tmp50485 - (let ((__tmp50486 - (let ((__tmp50499 + (cons __tmp50504 '()))) + (__tmp50488 + (let ((__tmp50489 + (let ((__tmp50502 (gx#datum->syntax '#f 'alet)) - (__tmp50487 - (let ((__tmp50492 - (let ((__tmp50498 + (__tmp50490 + (let ((__tmp50495 + (let ((__tmp50501 (gx#datum->syntax '#f '$val)) - (__tmp50493 - (let ((__tmp50494 + (__tmp50496 + (let ((__tmp50497 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50495 - (let ((__tmp50496 - (let ((__tmp50497 + (let ((__tmp50498 + (let ((__tmp50499 + (let ((__tmp50500 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50497 '())))) + (cons __tmp50500 '())))) (declare (not safe)) - (cons _L32465_ __tmp50496)))) + (cons _L32465_ __tmp50499)))) (declare (not safe)) - (cons _L32466_ __tmp50495)))) + (cons _L32466_ __tmp50498)))) (declare (not safe)) - (cons __tmp50494 '())))) + (cons __tmp50497 '())))) (declare (not safe)) - (cons __tmp50498 __tmp50493))) + (cons __tmp50501 __tmp50496))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50488 - (let ((__tmp50489 - (let ((__tmp50490 + (__tmp50491 + (let ((__tmp50492 + (let ((__tmp50493 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50491 (gx#datum->syntax '#f '$val))) + (let ((__tmp50494 (gx#datum->syntax '#f '$val))) (declare (not safe)) - (cons __tmp50491 '())))) + (cons __tmp50494 '())))) (declare (not safe)) - (cons _L32463_ __tmp50490)))) + (cons _L32463_ __tmp50493)))) (declare (not safe)) - (cons __tmp50489 '())))) + (cons __tmp50492 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50492 - __tmp50488)))) + (cons __tmp50495 + __tmp50491)))) (declare (not safe)) - (cons __tmp50499 __tmp50487)))) + (cons __tmp50502 __tmp50490)))) (declare (not safe)) - (cons __tmp50486 '())))) + (cons __tmp50489 '())))) (declare (not safe)) - (cons __tmp50500 __tmp50485)))) + (cons __tmp50503 __tmp50488)))) (declare (not safe)) - (cons __tmp50502 __tmp50484)))) + (cons __tmp50505 __tmp50487)))) (___kont4653346534_ (lambda (_L32394_ _L32396_ _L32397_) - (let ((__tmp50518 (gx#datum->syntax '#f 'lambda)) - (__tmp50503 - (let ((__tmp50516 - (let ((__tmp50517 + (let ((__tmp50521 (gx#datum->syntax '#f 'lambda)) + (__tmp50506 + (let ((__tmp50519 + (let ((__tmp50520 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50517 '()))) - (__tmp50504 - (let ((__tmp50505 - (let ((__tmp50515 + (cons __tmp50520 '()))) + (__tmp50507 + (let ((__tmp50508 + (let ((__tmp50518 (gx#datum->syntax '#f 'and)) - (__tmp50506 - (let ((__tmp50511 - (let ((__tmp50512 - (let ((__tmp50513 + (__tmp50509 + (let ((__tmp50514 + (let ((__tmp50515 + (let ((__tmp50516 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50514 (gx#datum->syntax '#f '$obj))) + (let ((__tmp50517 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50514 '())))) + (cons __tmp50517 '())))) (declare (not safe)) - (cons _L32396_ __tmp50513)))) + (cons _L32396_ __tmp50516)))) (declare (not safe)) - (cons _L32397_ __tmp50512))) + (cons _L32397_ __tmp50515))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50507 - (let ((__tmp50508 - (let ((__tmp50509 + (__tmp50510 + (let ((__tmp50511 + (let ((__tmp50512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50510 (gx#datum->syntax '#f '$obj))) + (let ((__tmp50513 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50510 '())))) + (cons __tmp50513 '())))) (declare (not safe)) - (cons _L32394_ __tmp50509)))) + (cons _L32394_ __tmp50512)))) (declare (not safe)) - (cons __tmp50508 '())))) + (cons __tmp50511 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50511 - __tmp50507)))) + (cons __tmp50514 + __tmp50510)))) (declare (not safe)) - (cons __tmp50515 __tmp50506)))) + (cons __tmp50518 __tmp50509)))) (declare (not safe)) - (cons __tmp50505 '())))) + (cons __tmp50508 '())))) (declare (not safe)) - (cons __tmp50516 __tmp50504)))) + (cons __tmp50519 __tmp50507)))) (declare (not safe)) - (cons __tmp50518 __tmp50503)))) + (cons __tmp50521 __tmp50506)))) (___kont4653546536_ (lambda (_L32314_ _L32316_ _L32317_ _L32318_) - (let ((__tmp50536 (gx#datum->syntax '#f 'lambda)) - (__tmp50519 - (let ((__tmp50534 - (let ((__tmp50535 + (let ((__tmp50539 (gx#datum->syntax '#f 'lambda)) + (__tmp50522 + (let ((__tmp50537 + (let ((__tmp50538 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50535 '()))) - (__tmp50520 - (let ((__tmp50521 - (let ((__tmp50533 + (cons __tmp50538 '()))) + (__tmp50523 + (let ((__tmp50524 + (let ((__tmp50536 (gx#datum->syntax '#f 'and)) - (__tmp50522 - (let ((__tmp50529 - (let ((__tmp50530 - (let ((__tmp50531 + (__tmp50525 + (let ((__tmp50532 + (let ((__tmp50533 + (let ((__tmp50534 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50532 (gx#datum->syntax '#f '$obj))) + (let ((__tmp50535 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50532 '())))) + (cons __tmp50535 '())))) (declare (not safe)) - (cons _L32317_ __tmp50531)))) + (cons _L32317_ __tmp50534)))) (declare (not safe)) - (cons _L32318_ __tmp50530))) + (cons _L32318_ __tmp50533))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50523 - (let ((__tmp50524 - (let ((__tmp50525 + (__tmp50526 + (let ((__tmp50527 + (let ((__tmp50528 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50526 - (let ((__tmp50527 - (let ((__tmp50528 + (let ((__tmp50529 + (let ((__tmp50530 + (let ((__tmp50531 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50528 '())))) + (cons __tmp50531 '())))) (declare (not safe)) - (cons _L32316_ __tmp50527)))) + (cons _L32316_ __tmp50530)))) (declare (not safe)) - (cons __tmp50526 '())))) + (cons __tmp50529 '())))) (declare (not safe)) - (cons _L32314_ __tmp50525)))) + (cons _L32314_ __tmp50528)))) (declare (not safe)) - (cons __tmp50524 '())))) + (cons __tmp50527 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50529 - __tmp50523)))) + (cons __tmp50532 + __tmp50526)))) (declare (not safe)) - (cons __tmp50533 __tmp50522)))) + (cons __tmp50536 __tmp50525)))) (declare (not safe)) - (cons __tmp50521 '())))) + (cons __tmp50524 '())))) (declare (not safe)) - (cons __tmp50534 __tmp50520)))) + (cons __tmp50537 __tmp50523)))) (declare (not safe)) - (cons __tmp50536 __tmp50519))))) + (cons __tmp50539 __tmp50522))))) (let* ((___match4668746688_ (lambda (_e3218932423_ _hd3218832427_ @@ -8527,7 +8529,7 @@ _tl3219332450_) (if (gx#identifier? _hd3219432447_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3219432447_) (if (gx#stx-pair? _tl3219332450_) (let ((_e3219832453_ @@ -8588,7 +8590,7 @@ (let () (declare (not safe)) (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) (let ((_e3223732304_ (gx#syntax-e _tl3223232301_))) @@ -8645,7 +8647,7 @@ (##car _e3219532443_)))) (if (gx#identifier? _hd3219432447_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3219432447_) (if (gx#stx-pair? _tl3219332450_) (let ((_e3219832453_ @@ -8710,7 +8712,7 @@ (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) (let ((_e3223732304_ @@ -8924,7 +8926,7 @@ (##car _e3211032797_)))) (if (gx#identifier? _hd3210932801_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50541_| + |gerbil/core$[1]#_g50544_| _hd3210932801_) (if (gx#stx-pair/null? _tl3210832804_) @@ -8980,7 +8982,7 @@ _hd3210632791_) (if (gx#identifier? _hd3217432557_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3217432557_) (if (gx#stx-pair? _tl3217332560_) (let ((_e3219832453_ @@ -9046,7 +9048,7 @@ (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) (let ((_e3223732304_ @@ -9104,7 +9106,7 @@ (___kont4652746528_ _hd3217432557_ _hd3210632791_) (if (gx#identifier? _hd3217432557_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3217432557_) (if (gx#stx-pair? _tl3217332560_) (let ((_e3219832453_ @@ -9165,7 +9167,7 @@ (let () (declare (not safe)) (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) (let ((_e3223732304_ (gx#syntax-e _tl3223232301_))) @@ -9207,7 +9209,7 @@ (let () (declare (not safe)) (_g3209732243_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g50540_| + |gerbil/core$[1]#_g50543_| _hd3210932801_) (if (gx#stx-pair/null? _tl3210832804_) @@ -9254,7 +9256,7 @@ _hd3210632791_) (if (gx#identifier? _hd3217432557_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3217432557_) (if (gx#stx-pair? _tl3217332560_) (let ((_e3219832453_ @@ -9319,7 +9321,7 @@ (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) (let ((_e3223732304_ @@ -9380,7 +9382,7 @@ (___kont4652746528_ _hd3217432557_ _hd3210632791_) (if (gx#identifier? _hd3217432557_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3217432557_) (if (gx#stx-pair? _tl3217332560_) (let ((_e3219832453_ @@ -9443,7 +9445,7 @@ (let () (declare (not safe)) (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) (let ((_e3223732304_ @@ -9484,7 +9486,7 @@ (let () (declare (not safe)) (_g3209732243_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g50539_| + |gerbil/core$[1]#_g50542_| _hd3210932801_) (if (gx#stx-pair? _tl3210832804_) @@ -9516,7 +9518,7 @@ _hd3210332781_) (if (gx#identifier? _hd3216332631_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3216332631_) (if (gx#stx-pair? _tl3216232634_) (let ((_e3219832453_ @@ -9583,7 +9585,7 @@ (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) (let ((_e3223732304_ @@ -9649,7 +9651,7 @@ _hd3210632791_) (if (gx#identifier? _hd3217432557_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3217432557_) (if (gx#stx-pair? _tl3217332560_) (let ((_e3219832453_ @@ -9716,7 +9718,7 @@ (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) (let ((_e3223732304_ @@ -9781,7 +9783,7 @@ _hd3210632791_) (if (gx#identifier? _hd3217432557_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3217432557_) (if (gx#stx-pair? _tl3217332560_) (let ((_e3219832453_ @@ -9847,7 +9849,7 @@ (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) (let ((_e3223732304_ @@ -9900,7 +9902,7 @@ (___kont4652746528_ _hd3217432557_ _hd3210632791_) (if (gx#identifier? _hd3217432557_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3217432557_) (if (gx#stx-pair? _tl3217332560_) (let ((_e3219832453_ @@ -9963,7 +9965,7 @@ (let () (declare (not safe)) (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) (let ((_e3223732304_ @@ -10023,7 +10025,7 @@ (if (gx#identifier? _hd3217432557_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3217432557_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10083,7 +10085,7 @@ (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) @@ -10143,7 +10145,7 @@ (if (gx#identifier? _hd3217432557_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50538_| + |gerbil/core$[1]#_g50541_| _hd3217432557_) (if (gx#stx-pair? _tl3217332560_) @@ -10204,7 +10206,7 @@ (##car _e3223432294_)))) (if (gx#identifier? _hd3223332298_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50537_| + |gerbil/core$[1]#_g50540_| _hd3223332298_) (if (gx#stx-pair? _tl3223232301_) @@ -10263,256 +10265,256 @@ ___stx4678246783_)))) (let ((___kont4678546786_ (lambda (_L33029_ _L33031_ _L33032_) - (let ((__tmp50603 (gx#datum->syntax '#f 'defsyntax)) - (__tmp50542 - (let ((__tmp50543 - (let ((__tmp50544 - (let ((__tmp50602 + (let ((__tmp50606 (gx#datum->syntax '#f 'defsyntax)) + (__tmp50545 + (let ((__tmp50546 + (let ((__tmp50547 + (let ((__tmp50605 (gx#datum->syntax '#f 'make-match-macro)) - (__tmp50545 - (let ((__tmp50546 - (let ((__tmp50547 - (let ((__tmp50601 + (__tmp50548 + (let ((__tmp50549 + (let ((__tmp50550 + (let ((__tmp50604 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp50548 - (let ((__tmp50593 - (let ((__tmp50598 - (let ((__tmp50600 + (__tmp50551 + (let ((__tmp50596 + (let ((__tmp50601 + (let ((__tmp50603 (gx#datum->syntax '#f '$match-e)) - (__tmp50599 + (__tmp50602 (let () (declare (not safe)) (cons _L33031_ '())))) (declare (not safe)) - (cons __tmp50600 __tmp50599))) - (__tmp50594 - (let ((__tmp50595 - (let ((__tmp50597 + (cons __tmp50603 __tmp50602))) + (__tmp50597 + (let ((__tmp50598 + (let ((__tmp50600 (gx#datum->syntax '#f '$macro-e)) - (__tmp50596 + (__tmp50599 (let () (declare (not safe)) (cons _L33029_ '())))) (declare (not safe)) - (cons __tmp50597 - __tmp50596)))) + (cons __tmp50600 + __tmp50599)))) (declare (not safe)) - (cons __tmp50595 '())))) + (cons __tmp50598 '())))) (declare (not safe)) - (cons __tmp50598 __tmp50594))) - (__tmp50549 - (let ((__tmp50550 - (let ((__tmp50592 + (cons __tmp50601 __tmp50597))) + (__tmp50552 + (let ((__tmp50553 + (let ((__tmp50595 (gx#datum->syntax '#f 'lambda)) - (__tmp50551 - (let ((__tmp50590 - (let ((__tmp50591 + (__tmp50554 + (let ((__tmp50593 + (let ((__tmp50594 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50591 + (cons __tmp50594 '()))) - (__tmp50552 - (let ((__tmp50553 - (let ((__tmp50589 + (__tmp50555 + (let ((__tmp50556 + (let ((__tmp50592 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp50554 - (let ((__tmp50588 (gx#datum->syntax '#f '$stx)) - (__tmp50555 - (let ((__tmp50556 - (let ((__tmp50567 - (let ((__tmp50586 - (let ((__tmp50587 + (__tmp50557 + (let ((__tmp50591 (gx#datum->syntax '#f '$stx)) + (__tmp50558 + (let ((__tmp50559 + (let ((__tmp50570 + (let ((__tmp50589 + (let ((__tmp50590 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons 'match: __tmp50587))) - (__tmp50568 - (let ((__tmp50569 - (let ((__tmp50585 + (cons 'match: __tmp50590))) + (__tmp50571 + (let ((__tmp50572 + (let ((__tmp50588 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp50570 - (let ((__tmp50584 + (__tmp50573 + (let ((__tmp50587 (gx#datum->syntax '#f '$match-e)) - (__tmp50571 - (let ((__tmp50572 - (let ((__tmp50583 + (__tmp50574 + (let ((__tmp50575 + (let ((__tmp50586 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp50573 - (let ((__tmp50579 - (let ((__tmp50582 + (__tmp50576 + (let ((__tmp50582 + (let ((__tmp50585 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp50580 - (let ((__tmp50581 (gx#datum->syntax '#f 'body))) + (__tmp50583 + (let ((__tmp50584 (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons __tmp50581 '())))) + (cons __tmp50584 '())))) (declare (not safe)) - (cons __tmp50582 __tmp50580))) - (__tmp50574 - (let ((__tmp50575 - (let ((__tmp50578 + (cons __tmp50585 __tmp50583))) + (__tmp50577 + (let ((__tmp50578 + (let ((__tmp50581 (gx#datum->syntax '#f 'stx-source)) - (__tmp50576 - (let ((__tmp50577 + (__tmp50579 + (let ((__tmp50580 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50577 '())))) + (cons __tmp50580 '())))) (declare (not safe)) - (cons __tmp50578 __tmp50576)))) + (cons __tmp50581 __tmp50579)))) (declare (not safe)) - (cons __tmp50575 '())))) + (cons __tmp50578 '())))) (declare (not safe)) - (cons __tmp50579 __tmp50574)))) + (cons __tmp50582 __tmp50577)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50583 __tmp50573)))) + (cons __tmp50586 __tmp50576)))) (declare (not safe)) - (cons __tmp50572 '())))) + (cons __tmp50575 '())))) (declare (not safe)) - (cons __tmp50584 __tmp50571)))) + (cons __tmp50587 __tmp50574)))) (declare (not safe)) - (cons __tmp50585 __tmp50570)))) + (cons __tmp50588 __tmp50573)))) (declare (not safe)) - (cons __tmp50569 '())))) + (cons __tmp50572 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50586 - __tmp50568))) - (__tmp50557 - (let ((__tmp50558 - (let ((__tmp50566 + (cons __tmp50589 + __tmp50571))) + (__tmp50560 + (let ((__tmp50561 + (let ((__tmp50569 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp50559 - (let ((__tmp50560 - (let ((__tmp50565 + (__tmp50562 + (let ((__tmp50563 + (let ((__tmp50568 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp50561 - (let ((__tmp50564 + (__tmp50564 + (let ((__tmp50567 (gx#datum->syntax '#f '$macro-e)) - (__tmp50562 - (let ((__tmp50563 + (__tmp50565 + (let ((__tmp50566 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50563 '())))) + (cons __tmp50566 '())))) (declare (not safe)) - (cons __tmp50564 __tmp50562)))) + (cons __tmp50567 __tmp50565)))) (declare (not safe)) - (cons __tmp50565 __tmp50561)))) + (cons __tmp50568 __tmp50564)))) (declare (not safe)) - (cons __tmp50560 '())))) + (cons __tmp50563 '())))) (declare (not safe)) - (cons __tmp50566 __tmp50559)))) + (cons __tmp50569 __tmp50562)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50558 '())))) + (cons __tmp50561 '())))) (declare (not safe)) - (cons __tmp50567 __tmp50557)))) + (cons __tmp50570 __tmp50560)))) (declare (not safe)) - (cons '() __tmp50556)))) + (cons '() __tmp50559)))) (declare (not safe)) - (cons __tmp50588 __tmp50555)))) + (cons __tmp50591 __tmp50558)))) (declare (not safe)) - (cons __tmp50589 __tmp50554)))) + (cons __tmp50592 __tmp50557)))) (declare (not safe)) - (cons __tmp50553 '())))) + (cons __tmp50556 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50590 - __tmp50552)))) + (cons __tmp50593 + __tmp50555)))) (declare (not safe)) - (cons __tmp50592 __tmp50551)))) + (cons __tmp50595 __tmp50554)))) (declare (not safe)) - (cons __tmp50550 '())))) + (cons __tmp50553 '())))) (declare (not safe)) - (cons __tmp50593 __tmp50549)))) + (cons __tmp50596 __tmp50552)))) (declare (not safe)) - (cons __tmp50601 __tmp50548)))) + (cons __tmp50604 __tmp50551)))) (declare (not safe)) - (cons __tmp50547 '())))) + (cons __tmp50550 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'macro: __tmp50546)))) + (cons 'macro: __tmp50549)))) (declare (not safe)) - (cons __tmp50602 __tmp50545)))) + (cons __tmp50605 __tmp50548)))) (declare (not safe)) - (cons __tmp50544 '())))) + (cons __tmp50547 '())))) (declare (not safe)) - (cons _L33032_ __tmp50543)))) + (cons _L33032_ __tmp50546)))) (declare (not safe)) - (cons __tmp50603 __tmp50542)))) + (cons __tmp50606 __tmp50545)))) (___kont4678746788_ (lambda (_L32962_ _L32964_ _L32965_) - (let ((__tmp50604 - (let ((__tmp50605 - (let ((__tmp50606 - (let ((__tmp50607 - (let ((__tmp50618 + (let ((__tmp50607 + (let ((__tmp50608 + (let ((__tmp50609 + (let ((__tmp50610 + (let ((__tmp50621 (gx#datum->syntax '#f 'lambda)) - (__tmp50608 - (let ((__tmp50616 - (let ((__tmp50617 + (__tmp50611 + (let ((__tmp50619 + (let ((__tmp50620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50617 '()))) - (__tmp50609 - (let ((__tmp50610 - (let ((__tmp50615 + (cons __tmp50620 '()))) + (__tmp50612 + (let ((__tmp50613 + (let ((__tmp50618 (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp50611 - (let ((__tmp50612 - (let ((__tmp50613 - (let ((__tmp50614 + (__tmp50614 + (let ((__tmp50615 + (let ((__tmp50616 + (let ((__tmp50617 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50614 '())))) + (cons __tmp50617 '())))) (declare (not safe)) (cons '"bad syntax; no macro definition for defsyntax-for-match" - __tmp50613)))) + __tmp50616)))) (declare (not safe)) - (cons '#f __tmp50612)))) + (cons '#f __tmp50615)))) (declare (not safe)) - (cons __tmp50615 __tmp50611)))) + (cons __tmp50618 __tmp50614)))) (declare (not safe)) - (cons __tmp50610 '())))) + (cons __tmp50613 '())))) (declare (not safe)) - (cons __tmp50616 __tmp50609)))) + (cons __tmp50619 __tmp50612)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50618 - __tmp50608)))) + (cons __tmp50621 + __tmp50611)))) (declare (not safe)) - (cons __tmp50607 '())))) + (cons __tmp50610 '())))) (declare (not safe)) - (cons _L32962_ __tmp50606)))) + (cons _L32962_ __tmp50609)))) (declare (not safe)) - (cons _L32964_ __tmp50605)))) + (cons _L32964_ __tmp50608)))) (declare (not safe)) - (cons _L32965_ __tmp50604))))) + (cons _L32965_ __tmp50607))))) (let ((___match4681546816_ (lambda (_e3289832989_ _hd3289732993_ @@ -10634,25 +10636,25 @@ (declare (not safe)) (##cdr _e3306733090_)))) ((lambda (_L33100_ _L33102_) - (let ((__tmp50623 + (let ((__tmp50626 (gx#datum->syntax '#f 'defsyntax-for-match)) - (__tmp50619 - (let ((__tmp50620 - (let ((__tmp50621 - (let ((__tmp50622 + (__tmp50622 + (let ((__tmp50623 + (let ((__tmp50624 + (let ((__tmp50625 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp50622 _L33100_)))) + (cons __tmp50625 _L33100_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50621 '())))) + (cons __tmp50624 '())))) (declare (not safe)) - (cons _L33102_ __tmp50620)))) + (cons _L33102_ __tmp50623)))) (declare (not safe)) - (cons __tmp50623 __tmp50619))) + (cons __tmp50626 __tmp50622))) _tl3306533097_ _hd3306633094_))) (_g3305833073_ _g3305933077_)))) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index a020de4f6..ea0ff069f 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]#_g50626_| + (define |gerbil/core$[2]#_g50629_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50628_| + (define |gerbil/core$[2]#_g50631_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50630_| + (define |gerbil/core$[2]#_g50633_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50632_| + (define |gerbil/core$[2]#_g50635_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50636_| + (define |gerbil/core$[2]#_g50639_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50640_| + (define |gerbil/core$[2]#_g50643_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50644_| + (define |gerbil/core$[2]#_g50647_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50648_| + (define |gerbil/core$[2]#_g50651_| (##structure gx#syntax-quote::t '&match-macro-macro-set! @@ -58,7 +58,7 @@ '())) (define |gerbil/core$[:1:]#match-macro| (let ((__obj47287 - (make-object* gerbil/core$$#class-type-info::t '15))) + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! @@ -83,14 +83,14 @@ '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50624 - (let ((__tmp50625 |gerbil/core$[2]#_g50626_|)) + (let ((__tmp50627 + (let ((__tmp50628 |gerbil/core$[2]#_g50629_|)) (declare (not safe)) - (cons __tmp50625 '())))) + (cons __tmp50628 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47287 - __tmp50624 + __tmp50627 '3 gerbil/core$$#class-type-info::t '#f)) @@ -118,83 +118,83 @@ '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50627 |gerbil/core$[2]#_g50628_|)) + (let ((__tmp50630 |gerbil/core$[2]#_g50631_|)) (declare (not safe)) (##unchecked-structure-set! __obj47287 - __tmp50627 + __tmp50630 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50629 |gerbil/core$[2]#_g50630_|)) + (let ((__tmp50632 |gerbil/core$[2]#_g50633_|)) (declare (not safe)) (##unchecked-structure-set! __obj47287 - __tmp50629 + __tmp50632 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50631 |gerbil/core$[2]#_g50632_|)) + (let ((__tmp50634 |gerbil/core$[2]#_g50635_|)) (declare (not safe)) (##unchecked-structure-set! __obj47287 - __tmp50631 + __tmp50634 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50633 - (let ((__tmp50634 - (let ((__tmp50635 |gerbil/core$[2]#_g50636_|)) + (let ((__tmp50636 + (let ((__tmp50637 + (let ((__tmp50638 |gerbil/core$[2]#_g50639_|)) (declare (not safe)) - (cons 'macro __tmp50635)))) + (cons 'macro __tmp50638)))) (declare (not safe)) - (cons __tmp50634 '())))) + (cons __tmp50637 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47287 - __tmp50633 + __tmp50636 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50637 - (let ((__tmp50638 - (let ((__tmp50639 |gerbil/core$[2]#_g50640_|)) + (let ((__tmp50640 + (let ((__tmp50641 + (let ((__tmp50642 |gerbil/core$[2]#_g50643_|)) (declare (not safe)) - (cons 'macro __tmp50639)))) + (cons 'macro __tmp50642)))) (declare (not safe)) - (cons __tmp50638 '())))) + (cons __tmp50641 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47287 - __tmp50637 + __tmp50640 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50641 - (let ((__tmp50642 - (let ((__tmp50643 |gerbil/core$[2]#_g50644_|)) + (let ((__tmp50644 + (let ((__tmp50645 + (let ((__tmp50646 |gerbil/core$[2]#_g50647_|)) (declare (not safe)) - (cons 'macro __tmp50643)))) + (cons 'macro __tmp50646)))) (declare (not safe)) - (cons __tmp50642 '())))) + (cons __tmp50645 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47287 - __tmp50641 + __tmp50644 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50645 - (let ((__tmp50646 - (let ((__tmp50647 |gerbil/core$[2]#_g50648_|)) + (let ((__tmp50648 + (let ((__tmp50649 + (let ((__tmp50650 |gerbil/core$[2]#_g50651_|)) (declare (not safe)) - (cons 'macro __tmp50647)))) + (cons 'macro __tmp50650)))) (declare (not safe)) - (cons __tmp50646 '())))) + (cons __tmp50649 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47287 - __tmp50645 + __tmp50648 '14 gerbil/core$$#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index bd02fcc85..e0bcfaf68 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -37,13 +37,15 @@ _g3316733169_)))) (_g3316633173_ _$stx33163_)))) (define |gerbil/core$[1]#setq-macro::t| - (make-class-type* - 'gerbil.core#setq-macro::t - 'setq-macro - (list gerbil/core$#macro-object::t) - '() - '() - '#f)) + (let ((__tmp50652 (list gerbil/core$#macro-object::t))) + (declare (not safe)) + (make-class-type + 'gerbil.core#setq-macro::t + 'setq-macro + __tmp50652 + '() + '() + '#f))) (define |gerbil/core$[1]#setq-macro?| (let () (declare (not safe)) @@ -78,13 +80,15 @@ |gerbil/core$[1]#setq-macro::t| 'macro))) (define |gerbil/core$[1]#setf-macro::t| - (make-class-type* - 'gerbil.core#setf-macro::t - 'setf-macro - (list gerbil/core$#macro-object::t) - '() - '() - '#f)) + (let ((__tmp50653 (list gerbil/core$#macro-object::t))) + (declare (not safe)) + (make-class-type + 'gerbil.core#setf-macro::t + 'setf-macro + __tmp50653 + '() + '() + '#f))) (define |gerbil/core$[1]#setf-macro?| (let () (declare (not safe)) @@ -121,20 +125,20 @@ (define |gerbil/core$[1]#syntax-local-setf-macro?| (lambda (_stx33181_) (if (gx#identifier? _stx33181_) - (let ((__tmp50649 (gx#syntax-local-value _stx33181_ false))) + (let ((__tmp50654 (gx#syntax-local-value _stx33181_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setf-macro::t| - __tmp50649)) + __tmp50654)) '#f))) (define |gerbil/core$[1]#syntax-local-setq-macro?| (lambda (_stx33178_) (if (gx#identifier? _stx33178_) - (let ((__tmp50650 (gx#syntax-local-value _stx33178_ false))) + (let ((__tmp50655 (gx#syntax-local-value _stx33178_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setq-macro::t| - __tmp50650)) + __tmp50655)) '#f))) (define |gerbil/core$[:0:]#set!| (lambda (_stx33192_) @@ -162,24 +166,24 @@ (lambda (_g3345533466_) ((lambda (_L33469_) (let () - (let ((__tmp50651 - (let ((__tmp50653 + (let ((__tmp50656 + (let ((__tmp50658 (lambda (_g3348033483_ _g3348133486_) (let () (declare (not safe)) (cons _g3348033483_ _g3348133486_)))) - (__tmp50652 + (__tmp50657 (let () (declare (not safe)) (cons _L33429_ '())))) (declare (not safe)) - (foldr1 __tmp50653 - __tmp50652 + (foldr1 __tmp50658 + __tmp50657 _L33431_)))) (declare (not safe)) - (cons _L33469_ __tmp50651)))) + (cons _L33469_ __tmp50656)))) _g3345533466_)))) (_g3345333489_ (gx#stx-identifier _L33432_ _L33432_ '"-set!"))))) @@ -190,16 +194,16 @@ _stx33192_))) (___kont4684946850_ (lambda (_L33294_ _L33296_) - (let ((__tmp50656 (gx#datum->syntax '#f '%#set!)) - (__tmp50654 - (let ((__tmp50655 + (let ((__tmp50661 (gx#datum->syntax '#f '%#set!)) + (__tmp50659 + (let ((__tmp50660 (let () (declare (not safe)) (cons _L33294_ '())))) (declare (not safe)) - (cons _L33296_ __tmp50655)))) + (cons _L33296_ __tmp50660)))) (declare (not safe)) - (cons __tmp50656 __tmp50654))))) + (cons __tmp50661 __tmp50659))))) (let* ((___match4692946930_ (lambda (_e3324533264_ _hd3324433268_ @@ -362,11 +366,11 @@ (let () (declare (not safe)) (##car _e3320933520_)))) - (if (let ((__tmp50657 + (if (let ((__tmp50662 (gx#datum->syntax '#f 'setfid))) (declare (not safe)) (|gerbil/core$[1]#syntax-local-setf-macro?| - __tmp50657)) + __tmp50662)) (let ((_L33530_ _hd3320833524_)) (___kont4684146842_ _L33530_)) (if (gx#stx-pair/null? _tl3320733527_) @@ -446,30 +450,30 @@ (##cdr _e3355933584_)))) (if (gx#stx-pair/null? _tl3355733591_) (if (fx>= (gx#stx-length _tl3355733591_) '1) - (let ((_g50658_ + (let ((_g50663_ (gx#syntax-split-splice _tl3355733591_ '1))) (begin - (let ((_g50659_ + (let ((_g50664_ (let () (declare (not safe)) - (if (##values? _g50658_) - (##vector-length _g50658_) + (if (##values? _g50663_) + (##vector-length _g50663_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50659_ 2))) + (##fx= _g50664_ 2))) (error "Context expects 2 values" - _g50659_))) + _g50664_))) (let ((_target3356033594_ (let () (declare (not safe)) - (##vector-ref _g50658_ 0))) + (##vector-ref _g50663_ 0))) (_tl3356233597_ (let () (declare (not safe)) - (##vector-ref _g50658_ 1)))) + (##vector-ref _g50663_ 1)))) (if (gx#stx-pair? _tl3356233597_) (let ((_e3357133600_ (gx#syntax-e _tl3356233597_))) @@ -512,38 +516,38 @@ (_g3365333743_ (lambda (_g3365533675_) (if (gx#stx-pair/null? _g3365533675_) - (let ((_g50660_ + (let ((_g50665_ (gx#syntax-split-splice _g3365533675_ '0))) (begin - (let ((_g50661_ + (let ((_g50666_ (let () (declare (not safe)) (if (##values? - _g50660_) + _g50665_) (##vector-length - _g50660_) + _g50665_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50661_ + (##fx= _g50666_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g50661_))) + (error "Context expects 2 values" _g50666_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3365733678_ (let () (declare (not safe)) (##vector-ref - _g50660_ + _g50665_ 0))) (_tl3365933681_ (let () (declare (not safe)) (##vector-ref - _g50660_ + _g50665_ 1)))) (if (gx#stx-null? _tl3365933681_) @@ -570,59 +574,59 @@ (let ((_$e3366533704_ (reverse _$e3366433691_))) ((lambda (_L33708_) (let () - (let ((__tmp50674 + (let ((__tmp50679 (gx#datum->syntax '#f 'let-values)) - (__tmp50662 - (let ((__tmp50669 - (let ((__tmp50670 - (let ((__tmp50672 + (__tmp50667 + (let ((__tmp50674 + (let ((__tmp50675 + (let ((__tmp50677 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50673 + (let ((__tmp50678 (lambda (_g3372633729_ _g3372733732_) (let () (declare (not safe)) (cons _g3372633729_ _g3372733732_))))) (declare (not safe)) - (foldr1 __tmp50673 '() _L33708_))) - (__tmp50671 + (foldr1 __tmp50678 '() _L33708_))) + (__tmp50676 (let () (declare (not safe)) (cons _L33634_ '())))) (declare (not safe)) - (cons __tmp50672 __tmp50671)))) + (cons __tmp50677 __tmp50676)))) (declare (not safe)) - (cons __tmp50670 '()))) + (cons __tmp50675 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50663 + (__tmp50668 (begin (gx#syntax-check-splice-targets _L33708_ _L33636_) - (let ((__tmp50664 + (let ((__tmp50669 (lambda (_g3372333735_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3372433738_ _g3372533740_) - (let ((__tmp50665 - (let ((__tmp50668 (gx#datum->syntax '#f 'set!)) - (__tmp50666 - (let ((__tmp50667 + (let ((__tmp50670 + (let ((__tmp50673 (gx#datum->syntax '#f 'set!)) + (__tmp50671 + (let ((__tmp50672 (let () (declare (not safe)) (cons _g3372333735_ '())))) (declare (not safe)) - (cons _g3372433738_ __tmp50667)))) + (cons _g3372433738_ __tmp50672)))) (declare (not safe)) - (cons __tmp50668 __tmp50666)))) + (cons __tmp50673 __tmp50671)))) (declare (not safe)) - (cons __tmp50665 _g3372533740_))))) + (cons __tmp50670 _g3372533740_))))) (declare (not safe)) - (foldr2 __tmp50664 '() _L33708_ _L33636_))))) + (foldr2 __tmp50669 '() _L33708_ _L33636_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50669 __tmp50663)))) + (cons __tmp50674 __tmp50668)))) (declare (not safe)) - (cons __tmp50674 __tmp50662)))) + (cons __tmp50679 __tmp50667)))) _$e3366533704_)))))) (_loop3366033684_ _target3365733678_ '())) (_g3365433671_ _g3365533675_))))) @@ -630,14 +634,14 @@ (_g3365433671_ _g3365533675_))))) (_g3365333743_ (gx#gentemps - (let ((__tmp50675 + (let ((__tmp50680 (lambda (_g3374633749_ _g3374733752_) (let () (declare (not safe)) (cons _g3374633749_ _g3374733752_))))) (declare (not safe)) - (foldr1 __tmp50675 '() _L33636_)))))) + (foldr1 __tmp50680 '() _L33636_)))))) _hd3357033604_ _tgt3356833630_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -662,21 +666,21 @@ ___stx4693246933_)))) (let ((___kont4693546936_ (lambda (_L34157_) - (let ((__tmp50679 (gx#datum->syntax '#f 'let)) - (__tmp50676 - (let ((__tmp50677 - (let ((__tmp50678 + (let ((__tmp50684 (gx#datum->syntax '#f 'let)) + (__tmp50681 + (let ((__tmp50682 + (let ((__tmp50683 (lambda (_g3417334176_ _g3417434179_) (let () (declare (not safe)) (cons _g3417334176_ _g3417434179_))))) (declare (not safe)) - (foldr1 __tmp50678 '() _L34157_)))) + (foldr1 __tmp50683 '() _L34157_)))) (declare (not safe)) - (cons '() __tmp50677)))) + (cons '() __tmp50682)))) (declare (not safe)) - (cons __tmp50679 __tmp50676)))) + (cons __tmp50684 __tmp50681)))) (___kont4693946940_ (lambda (_L33934_ _L33936_ _L33937_) (let* ((_g3396033968_ @@ -698,37 +702,37 @@ (_g3398634068_ (lambda (_g3398834008_) (if (gx#stx-pair/null? _g3398834008_) - (let ((_g50680_ + (let ((_g50685_ (gx#syntax-split-splice _g3398834008_ '0))) (begin - (let ((_g50681_ + (let ((_g50686_ (let () (declare (not safe)) (if (##values? - _g50680_) + _g50685_) (##vector-length - _g50680_) + _g50685_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50681_ 2))) - (error "Context expects 2 values" _g50681_))) + (##fx= _g50686_ 2))) + (error "Context expects 2 values" _g50686_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3399034011_ (let () (declare (not safe)) (##vector-ref - _g50680_ + _g50685_ 0))) (_tl3399234014_ (let () (declare (not safe)) (##vector-ref - _g50680_ + _g50685_ 1)))) (if (gx#stx-null? _tl3399234014_) @@ -757,13 +761,13 @@ ((lambda (_L34041_) (let () (let () - (let ((__tmp50685 + (let ((__tmp50690 (gx#datum->syntax '#f 'call-with-parameters)) - (__tmp50682 - (let ((__tmp50683 - (let ((__tmp50684 + (__tmp50687 + (let ((__tmp50688 + (let ((__tmp50689 (lambda (_g3405934062_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3406034065_) @@ -771,21 +775,21 @@ (declare (not safe)) (cons _g3405934062_ _g3406034065_))))) (declare (not safe)) - (foldr1 __tmp50684 '() _L34041_)))) + (foldr1 __tmp50689 '() _L34041_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L33975_ __tmp50683)))) + (cons _L33975_ __tmp50688)))) (declare (not safe)) - (cons __tmp50685 __tmp50682))))) + (cons __tmp50690 __tmp50687))))) _arg3399834037_)))))) (_loop3399334017_ _target3399034011_ '())) (_g3398734004_ _g3398834008_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3398734004_ _g3398834008_))))) (_g3398634068_ - (let ((__tmp50688 + (let ((__tmp50693 (gx#syntax->list - (let ((__tmp50689 + (let ((__tmp50694 (lambda (_g3407134074_ _g3407234077_) (let () @@ -793,12 +797,12 @@ (cons _g3407134074_ _g3407234077_))))) (declare (not safe)) - (foldr1 __tmp50689 + (foldr1 __tmp50694 '() _L33937_)))) - (__tmp50686 + (__tmp50691 (gx#syntax->list - (let ((__tmp50687 + (let ((__tmp50692 (lambda (_g3407934082_ _g3408034085_) (let () @@ -806,32 +810,32 @@ (cons _g3407934082_ _g3408034085_))))) (declare (not safe)) - (foldr1 __tmp50687 + (foldr1 __tmp50692 '() _L33936_))))) (declare (not safe)) (foldr2 cons* '() - __tmp50688 - __tmp50686)))))) + __tmp50693 + __tmp50691)))))) _g3396133972_)))) (_g3395934088_ (gx#stx-wrap-source - (let ((__tmp50693 (gx#datum->syntax '#f 'lambda)) - (__tmp50690 - (let ((__tmp50691 - (let ((__tmp50692 + (let ((__tmp50698 (gx#datum->syntax '#f 'lambda)) + (__tmp50695 + (let ((__tmp50696 + (let ((__tmp50697 (lambda (_g3409134094_ _g3409234097_) (let () (declare (not safe)) (cons _g3409134094_ _g3409234097_))))) (declare (not safe)) - (foldr1 __tmp50692 '() _L33934_)))) + (foldr1 __tmp50697 '() _L33934_)))) (declare (not safe)) - (cons '() __tmp50691)))) + (cons '() __tmp50696)))) (declare (not safe)) - (cons __tmp50693 __tmp50690)) + (cons __tmp50698 __tmp50695)) (gx#stx-source _stx33761_))))))) (let* ((___match4698746988_ (lambda (_e3378833830_ @@ -1173,30 +1177,30 @@ (declare (not safe)) (##cdr _e3420334235_)))) (if (gx#stx-pair/null? _tl3420134242_) - (let ((_g50694_ + (let ((_g50699_ (gx#syntax-split-splice _tl3420134242_ '0))) (begin - (let ((_g50695_ + (let ((_g50700_ (let () (declare (not safe)) - (if (##values? _g50694_) - (##vector-length _g50694_) + (if (##values? _g50699_) + (##vector-length _g50699_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50695_ 2))) + (##fx= _g50700_ 2))) (error "Context expects 2 values" - _g50695_))) + _g50700_))) (let ((_target3420434245_ (let () (declare (not safe)) - (##vector-ref _g50694_ 0))) + (##vector-ref _g50699_ 0))) (_tl3420634248_ (let () (declare (not safe)) - (##vector-ref _g50694_ 1)))) + (##vector-ref _g50699_ 1)))) (if (gx#stx-null? _tl3420634248_) (letrec ((_loop3420734251_ (lambda (_hd3420534255_ @@ -1220,39 +1224,39 @@ (let ((_body3421234271_ (reverse _body3421134258_))) ((lambda (_L34275_ _L34277_) (if (gx#identifier? _L34277_) - (let ((__tmp50703 + (let ((__tmp50708 (gx#datum->syntax '#f 'call/cc)) - (__tmp50696 - (let ((__tmp50697 - (let ((__tmp50702 + (__tmp50701 + (let ((__tmp50702 + (let ((__tmp50707 (gx#datum->syntax '#f 'lambda)) - (__tmp50698 - (let ((__tmp50701 + (__tmp50703 + (let ((__tmp50706 (let () (declare (not safe)) (cons _L34277_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp50699 - (let ((__tmp50700 + (__tmp50704 + (let ((__tmp50705 (lambda (_g3429434297_ _g3429534300_) (let () (declare (not safe)) (cons _g3429434297_ _g3429534300_))))) (declare (not safe)) - (foldr1 __tmp50700 '() _L34275_)))) + (foldr1 __tmp50705 '() _L34275_)))) (declare (not safe)) - (cons __tmp50701 __tmp50699)))) + (cons __tmp50706 __tmp50704)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50702 __tmp50698)))) + (cons __tmp50707 __tmp50703)))) (declare (not safe)) - (cons __tmp50697 '())))) + (cons __tmp50702 '())))) (declare (not safe)) - (cons __tmp50703 __tmp50696)) + (cons __tmp50708 __tmp50701)) (_g3419434218_ _g3419534222_))) _body3421234271_ _hd3420234239_)))))) @@ -1296,30 +1300,30 @@ (declare (not safe)) (##cdr _e3432134353_)))) (if (gx#stx-pair/null? _tl3431934360_) - (let ((_g50704_ + (let ((_g50709_ (gx#syntax-split-splice _tl3431934360_ '0))) (begin - (let ((_g50705_ + (let ((_g50710_ (let () (declare (not safe)) - (if (##values? _g50704_) - (##vector-length _g50704_) + (if (##values? _g50709_) + (##vector-length _g50709_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50705_ 2))) + (##fx= _g50710_ 2))) (error "Context expects 2 values" - _g50705_))) + _g50710_))) (let ((_target3432234363_ (let () (declare (not safe)) - (##vector-ref _g50704_ 0))) + (##vector-ref _g50709_ 0))) (_tl3432434366_ (let () (declare (not safe)) - (##vector-ref _g50704_ 1)))) + (##vector-ref _g50709_ 1)))) (if (gx#stx-null? _tl3432434366_) (letrec ((_loop3432534369_ (lambda (_hd3432334373_ @@ -1343,39 +1347,39 @@ (let ((_body3433034389_ (reverse _body3432934376_))) ((lambda (_L34393_ _L34395_) (if (gx#identifier? _L34395_) - (let ((__tmp50713 + (let ((__tmp50718 (gx#datum->syntax '#f 'call/esc)) - (__tmp50706 - (let ((__tmp50707 - (let ((__tmp50712 + (__tmp50711 + (let ((__tmp50712 + (let ((__tmp50717 (gx#datum->syntax '#f 'lambda)) - (__tmp50708 - (let ((__tmp50711 + (__tmp50713 + (let ((__tmp50716 (let () (declare (not safe)) (cons _L34395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp50709 - (let ((__tmp50710 + (__tmp50714 + (let ((__tmp50715 (lambda (_g3441234415_ _g3441334418_) (let () (declare (not safe)) (cons _g3441234415_ _g3441334418_))))) (declare (not safe)) - (foldr1 __tmp50710 '() _L34393_)))) + (foldr1 __tmp50715 '() _L34393_)))) (declare (not safe)) - (cons __tmp50711 __tmp50709)))) + (cons __tmp50716 __tmp50714)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50712 __tmp50708)))) + (cons __tmp50717 __tmp50713)))) (declare (not safe)) - (cons __tmp50707 '())))) + (cons __tmp50712 '())))) (declare (not safe)) - (cons __tmp50713 __tmp50706)) + (cons __tmp50718 __tmp50711)) (_g3431234336_ _g3431334340_))) _body3433034389_ _hd3432034357_)))))) @@ -1430,38 +1434,38 @@ (declare (not safe)) (##cdr _e3444334485_)))) (if (gx#stx-pair/null? _tl3444134492_) - (let ((_g50714_ + (let ((_g50719_ (gx#syntax-split-splice _tl3444134492_ '0))) (begin - (let ((_g50715_ + (let ((_g50720_ (let () (declare (not safe)) (if (##values? - _g50714_) + _g50719_) (##vector-length - _g50714_) + _g50719_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50715_ + (##fx= _g50720_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g50715_))) + (error "Context expects 2 values" _g50720_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3444434495_ (let () (declare (not safe)) (##vector-ref - _g50714_ + _g50719_ 0))) (_tl3444634498_ (let () (declare (not safe)) (##vector-ref - _g50714_ + _g50719_ 1)))) (if (gx#stx-null? _tl3444634498_) @@ -1489,39 +1493,39 @@ (let ((_rest3445234521_ (reverse _rest3445134508_))) ((lambda (_L34525_ _L34527_ _L34528_) - (let ((__tmp50728 + (let ((__tmp50733 (gx#datum->syntax '#f 'with-unwind-protect)) - (__tmp50716 - (let ((__tmp50724 - (let ((__tmp50727 + (__tmp50721 + (let ((__tmp50729 + (let ((__tmp50732 (gx#datum->syntax '#f 'lambda)) - (__tmp50725 - (let ((__tmp50726 + (__tmp50730 + (let ((__tmp50731 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L34528_ '())))) (declare (not safe)) - (cons '() __tmp50726)))) + (cons '() __tmp50731)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50727 - __tmp50725))) - (__tmp50717 - (let ((__tmp50718 - (let ((__tmp50723 + (cons __tmp50732 + __tmp50730))) + (__tmp50722 + (let ((__tmp50723 + (let ((__tmp50728 (gx#datum->syntax '#f 'lambda)) - (__tmp50719 - (let ((__tmp50720 + (__tmp50724 + (let ((__tmp50725 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50721 - (let ((__tmp50722 + (let ((__tmp50726 + (let ((__tmp50727 (lambda (_g3454834551_ _g3454934554_) (let () @@ -1529,20 +1533,20 @@ (cons _g3454834551_ _g3454934554_))))) (declare (not safe)) - (foldr1 __tmp50722 '() _L34525_)))) + (foldr1 __tmp50727 '() _L34525_)))) (declare (not safe)) - (cons _L34527_ __tmp50721)))) + (cons _L34527_ __tmp50726)))) (declare (not safe)) - (cons '() __tmp50720)))) + (cons '() __tmp50725)))) (declare (not safe)) - (cons __tmp50723 __tmp50719)))) + (cons __tmp50728 __tmp50724)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50718 '())))) + (cons __tmp50723 '())))) (declare (not safe)) - (cons __tmp50724 __tmp50717)))) + (cons __tmp50729 __tmp50722)))) (declare (not safe)) - (cons __tmp50728 __tmp50716))) + (cons __tmp50733 __tmp50721))) _rest3445234521_ _hd3444234489_ _hd3443934479_)))))) @@ -1597,13 +1601,13 @@ (lambda (_g3462134632_) ((lambda (_L34635_) (let () - (let ((__tmp50730 + (let ((__tmp50735 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp50729 + (__tmp50734 (let () (declare (not safe)) (cons _L34635_ '())))) (declare (not safe)) - (cons __tmp50730 __tmp50729)))) + (cons __tmp50735 __tmp50734)))) _g3462134632_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3461934647_ diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index 539711826..78f4da290 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]#_g50733_| + (define |gerbil/core$[2]#_g50738_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50735_| + (define |gerbil/core$[2]#_g50740_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50737_| + (define |gerbil/core$[2]#_g50742_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50739_| + (define |gerbil/core$[2]#_g50744_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50743_| + (define |gerbil/core$[2]#_g50748_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50747_| + (define |gerbil/core$[2]#_g50752_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50751_| + (define |gerbil/core$[2]#_g50756_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50755_| + (define |gerbil/core$[2]#_g50760_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50759_| + (define |gerbil/core$[2]#_g50764_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50761_| + (define |gerbil/core$[2]#_g50766_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50763_| + (define |gerbil/core$[2]#_g50768_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50767_| + (define |gerbil/core$[2]#_g50772_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50771_| + (define |gerbil/core$[2]#_g50776_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50775_| + (define |gerbil/core$[2]#_g50780_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50779_| + (define |gerbil/core$[2]#_g50784_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -108,7 +108,7 @@ (begin (define |gerbil/core$[:1:]#setq-macro| (let ((__obj47296 - (make-object* gerbil/core$$#class-type-info::t '15))) + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! @@ -133,14 +133,14 @@ '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50731 - (let ((__tmp50732 |gerbil/core$[2]#_g50733_|)) + (let ((__tmp50736 + (let ((__tmp50737 |gerbil/core$[2]#_g50738_|)) (declare (not safe)) - (cons __tmp50732 '())))) + (cons __tmp50737 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47296 - __tmp50731 + __tmp50736 '3 gerbil/core$$#class-type-info::t '#f)) @@ -168,94 +168,94 @@ '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50734 |gerbil/core$[2]#_g50735_|)) + (let ((__tmp50739 |gerbil/core$[2]#_g50740_|)) (declare (not safe)) (##unchecked-structure-set! __obj47296 - __tmp50734 + __tmp50739 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50736 |gerbil/core$[2]#_g50737_|)) + (let ((__tmp50741 |gerbil/core$[2]#_g50742_|)) (declare (not safe)) (##unchecked-structure-set! __obj47296 - __tmp50736 + __tmp50741 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50738 |gerbil/core$[2]#_g50739_|)) + (let ((__tmp50743 |gerbil/core$[2]#_g50744_|)) (declare (not safe)) (##unchecked-structure-set! __obj47296 - __tmp50738 + __tmp50743 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50740 - (let ((__tmp50741 - (let ((__tmp50742 - |gerbil/core$[2]#_g50743_|)) + (let ((__tmp50745 + (let ((__tmp50746 + (let ((__tmp50747 + |gerbil/core$[2]#_g50748_|)) (declare (not safe)) - (cons 'macro __tmp50742)))) + (cons 'macro __tmp50747)))) (declare (not safe)) - (cons __tmp50741 '())))) + (cons __tmp50746 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47296 - __tmp50740 + __tmp50745 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50744 - (let ((__tmp50745 - (let ((__tmp50746 - |gerbil/core$[2]#_g50747_|)) + (let ((__tmp50749 + (let ((__tmp50750 + (let ((__tmp50751 + |gerbil/core$[2]#_g50752_|)) (declare (not safe)) - (cons 'macro __tmp50746)))) + (cons 'macro __tmp50751)))) (declare (not safe)) - (cons __tmp50745 '())))) + (cons __tmp50750 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47296 - __tmp50744 + __tmp50749 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50748 - (let ((__tmp50749 - (let ((__tmp50750 - |gerbil/core$[2]#_g50751_|)) + (let ((__tmp50753 + (let ((__tmp50754 + (let ((__tmp50755 + |gerbil/core$[2]#_g50756_|)) (declare (not safe)) - (cons 'macro __tmp50750)))) + (cons 'macro __tmp50755)))) (declare (not safe)) - (cons __tmp50749 '())))) + (cons __tmp50754 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47296 - __tmp50748 + __tmp50753 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50752 - (let ((__tmp50753 - (let ((__tmp50754 - |gerbil/core$[2]#_g50755_|)) + (let ((__tmp50757 + (let ((__tmp50758 + (let ((__tmp50759 + |gerbil/core$[2]#_g50760_|)) (declare (not safe)) - (cons 'macro __tmp50754)))) + (cons 'macro __tmp50759)))) (declare (not safe)) - (cons __tmp50753 '())))) + (cons __tmp50758 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47296 - __tmp50752 + __tmp50757 '14 gerbil/core$$#class-type-info::t '#f)) __obj47296)) (define |gerbil/core$[:1:]#setf-macro| (let ((__obj47297 - (make-object* gerbil/core$$#class-type-info::t '15))) + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! @@ -280,14 +280,14 @@ '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50756 - (let ((__tmp50757 |gerbil/core$[2]#_g50733_|)) + (let ((__tmp50761 + (let ((__tmp50762 |gerbil/core$[2]#_g50738_|)) (declare (not safe)) - (cons __tmp50757 '())))) + (cons __tmp50762 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47297 - __tmp50756 + __tmp50761 '3 gerbil/core$$#class-type-info::t '#f)) @@ -315,87 +315,87 @@ '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50758 |gerbil/core$[2]#_g50759_|)) + (let ((__tmp50763 |gerbil/core$[2]#_g50764_|)) (declare (not safe)) (##unchecked-structure-set! __obj47297 - __tmp50758 + __tmp50763 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50760 |gerbil/core$[2]#_g50761_|)) + (let ((__tmp50765 |gerbil/core$[2]#_g50766_|)) (declare (not safe)) (##unchecked-structure-set! __obj47297 - __tmp50760 + __tmp50765 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50762 |gerbil/core$[2]#_g50763_|)) + (let ((__tmp50767 |gerbil/core$[2]#_g50768_|)) (declare (not safe)) (##unchecked-structure-set! __obj47297 - __tmp50762 + __tmp50767 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50764 - (let ((__tmp50765 - (let ((__tmp50766 - |gerbil/core$[2]#_g50767_|)) + (let ((__tmp50769 + (let ((__tmp50770 + (let ((__tmp50771 + |gerbil/core$[2]#_g50772_|)) (declare (not safe)) - (cons 'macro __tmp50766)))) + (cons 'macro __tmp50771)))) (declare (not safe)) - (cons __tmp50765 '())))) + (cons __tmp50770 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47297 - __tmp50764 + __tmp50769 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50768 - (let ((__tmp50769 - (let ((__tmp50770 - |gerbil/core$[2]#_g50771_|)) + (let ((__tmp50773 + (let ((__tmp50774 + (let ((__tmp50775 + |gerbil/core$[2]#_g50776_|)) (declare (not safe)) - (cons 'macro __tmp50770)))) + (cons 'macro __tmp50775)))) (declare (not safe)) - (cons __tmp50769 '())))) + (cons __tmp50774 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47297 - __tmp50768 + __tmp50773 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50772 - (let ((__tmp50773 - (let ((__tmp50774 - |gerbil/core$[2]#_g50775_|)) + (let ((__tmp50777 + (let ((__tmp50778 + (let ((__tmp50779 + |gerbil/core$[2]#_g50780_|)) (declare (not safe)) - (cons 'macro __tmp50774)))) + (cons 'macro __tmp50779)))) (declare (not safe)) - (cons __tmp50773 '())))) + (cons __tmp50778 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47297 - __tmp50772 + __tmp50777 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50776 - (let ((__tmp50777 - (let ((__tmp50778 - |gerbil/core$[2]#_g50779_|)) + (let ((__tmp50781 + (let ((__tmp50782 + (let ((__tmp50783 + |gerbil/core$[2]#_g50784_|)) (declare (not safe)) - (cons 'macro __tmp50778)))) + (cons 'macro __tmp50783)))) (declare (not safe)) - (cons __tmp50777 '())))) + (cons __tmp50782 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47297 - __tmp50776 + __tmp50781 '14 gerbil/core$$#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/core__14.scm b/src/bootstrap/gerbil/core__14.scm index a9b29bf9e..7bb567478 100644 --- a/src/bootstrap/gerbil/core__14.scm +++ b/src/bootstrap/gerbil/core__14.scm @@ -21,23 +21,23 @@ (declare (not safe)) (##cdr _e3466734680_)))) ((lambda (_L34690_) - (let ((__tmp50784 + (let ((__tmp50789 (gx#datum->syntax '#f 'make-setq-macro)) - (__tmp50780 - (let ((__tmp50781 - (let ((__tmp50782 - (let ((__tmp50783 + (__tmp50785 + (let ((__tmp50786 + (let ((__tmp50787 + (let ((__tmp50788 (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp50783 _L34690_)))) + (cons __tmp50788 _L34690_)))) (declare (not safe)) - (cons __tmp50782 '())))) + (cons __tmp50787 '())))) (declare (not safe)) - (cons 'macro: __tmp50781)))) + (cons 'macro: __tmp50786)))) (declare (not safe)) - (cons __tmp50784 __tmp50780))) + (cons __tmp50789 __tmp50785))) _tl3466534687_))) (_g3466234673_ _g3466334677_))))) (_g3466134703_ _$stx34658_)))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index a2fdd462e..3b01b40c8 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -11,52 +11,52 @@ ___stx4699046991_)))) (let ((___kont4699346994_ (lambda () - (let ((__tmp50785 (gx#datum->syntax '#f 'begin))) + (let ((__tmp50790 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp50785 '())))) + (cons __tmp50790 '())))) (___kont4699546996_ (lambda (_L34773_ _L34775_ _L34776_) - (let ((__tmp50798 (gx#datum->syntax '#f 'cond-expand)) - (__tmp50786 - (let ((__tmp50795 - (let ((__tmp50796 - (let ((__tmp50797 + (let ((__tmp50803 (gx#datum->syntax '#f 'cond-expand)) + (__tmp50791 + (let ((__tmp50800 + (let ((__tmp50801 + (let ((__tmp50802 (let () (declare (not safe)) (cons _L34776_ _L34773_)))) (declare (not safe)) - (cons __tmp50797 '())))) + (cons __tmp50802 '())))) (declare (not safe)) - (cons _L34775_ __tmp50796))) - (__tmp50787 - (let ((__tmp50788 - (let ((__tmp50794 + (cons _L34775_ __tmp50801))) + (__tmp50792 + (let ((__tmp50793 + (let ((__tmp50799 (gx#datum->syntax '#f 'else)) - (__tmp50789 - (let ((__tmp50790 - (let ((__tmp50793 + (__tmp50794 + (let ((__tmp50795 + (let ((__tmp50798 (gx#datum->syntax '#f 'syntax-error)) - (__tmp50791 - (let ((__tmp50792 + (__tmp50796 + (let ((__tmp50797 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L34775_ '())))) (declare (not safe)) - (cons '"Missing required feature" __tmp50792)))) + (cons '"Missing required feature" __tmp50797)))) (declare (not safe)) - (cons __tmp50793 __tmp50791)))) + (cons __tmp50798 __tmp50796)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50790 '())))) + (cons __tmp50795 '())))) (declare (not safe)) - (cons __tmp50794 __tmp50789)))) + (cons __tmp50799 __tmp50794)))) (declare (not safe)) - (cons __tmp50788 '())))) + (cons __tmp50793 '())))) (declare (not safe)) - (cons __tmp50795 __tmp50787)))) + (cons __tmp50800 __tmp50792)))) (declare (not safe)) - (cons __tmp50798 __tmp50786))))) + (cons __tmp50803 __tmp50791))))) (if (gx#stx-pair? ___stx4699046991_) (let ((_e3473134799_ (gx#syntax-e ___stx4699046991_))) (let ((_tl3472934806_ @@ -92,36 +92,36 @@ ___stx4702047021_)))) (let ((___kont4702347024_ (lambda (_L35000_ _L35002_) - (let ((__tmp50804 (gx#datum->syntax '#f 'defsyntax)) - (__tmp50799 - (let ((__tmp50800 - (let ((__tmp50801 - (let ((__tmp50803 + (let ((__tmp50809 (gx#datum->syntax '#f 'defsyntax)) + (__tmp50804 + (let ((__tmp50805 + (let ((__tmp50806 + (let ((__tmp50808 (gx#datum->syntax '#f 'make-import-expander)) - (__tmp50802 + (__tmp50807 (let () (declare (not safe)) (cons _L35000_ '())))) (declare (not safe)) - (cons __tmp50803 __tmp50802)))) + (cons __tmp50808 __tmp50807)))) (declare (not safe)) - (cons __tmp50801 '())))) + (cons __tmp50806 '())))) (declare (not safe)) - (cons _L35002_ __tmp50800)))) + (cons _L35002_ __tmp50805)))) (declare (not safe)) - (cons __tmp50804 __tmp50799)))) + (cons __tmp50809 __tmp50804)))) (___kont4702547026_ (lambda (_L34929_ _L34931_ _L34932_ _L34933_) - (let ((__tmp50805 - (let ((__tmp50806 - (let ((__tmp50807 - (let ((__tmp50811 + (let ((__tmp50810 + (let ((__tmp50811 + (let ((__tmp50812 + (let ((__tmp50816 (gx#datum->syntax '#f 'lambda)) - (__tmp50808 - (let ((__tmp50809 - (let ((__tmp50810 + (__tmp50813 + (let ((__tmp50814 + (let ((__tmp50815 (lambda (_g3495434957_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3495534960_) @@ -129,18 +129,18 @@ (declare (not safe)) (cons _g3495434957_ _g3495534960_))))) (declare (not safe)) - (foldr1 __tmp50810 '() _L34929_)))) + (foldr1 __tmp50815 '() _L34929_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L34931_ __tmp50809)))) + (cons _L34931_ __tmp50814)))) (declare (not safe)) - (cons __tmp50811 __tmp50808)))) + (cons __tmp50816 __tmp50813)))) (declare (not safe)) - (cons __tmp50807 '())))) + (cons __tmp50812 '())))) (declare (not safe)) - (cons _L34932_ __tmp50806)))) + (cons _L34932_ __tmp50811)))) (declare (not safe)) - (cons _L34933_ __tmp50805))))) + (cons _L34933_ __tmp50810))))) (let* ((___match4707547076_ (lambda (_e3484134869_ _hd3484034873_ @@ -406,36 +406,36 @@ ___stx4707847079_)))) (let ((___kont4708147082_ (lambda (_L35205_ _L35207_) - (let ((__tmp50817 (gx#datum->syntax '#f 'defsyntax)) - (__tmp50812 - (let ((__tmp50813 - (let ((__tmp50814 - (let ((__tmp50816 + (let ((__tmp50822 (gx#datum->syntax '#f 'defsyntax)) + (__tmp50817 + (let ((__tmp50818 + (let ((__tmp50819 + (let ((__tmp50821 (gx#datum->syntax '#f 'make-export-expander)) - (__tmp50815 + (__tmp50820 (let () (declare (not safe)) (cons _L35205_ '())))) (declare (not safe)) - (cons __tmp50816 __tmp50815)))) + (cons __tmp50821 __tmp50820)))) (declare (not safe)) - (cons __tmp50814 '())))) + (cons __tmp50819 '())))) (declare (not safe)) - (cons _L35207_ __tmp50813)))) + (cons _L35207_ __tmp50818)))) (declare (not safe)) - (cons __tmp50817 __tmp50812)))) + (cons __tmp50822 __tmp50817)))) (___kont4708347084_ (lambda (_L35134_ _L35136_ _L35137_ _L35138_) - (let ((__tmp50818 - (let ((__tmp50819 - (let ((__tmp50820 - (let ((__tmp50824 + (let ((__tmp50823 + (let ((__tmp50824 + (let ((__tmp50825 + (let ((__tmp50829 (gx#datum->syntax '#f 'lambda)) - (__tmp50821 - (let ((__tmp50822 - (let ((__tmp50823 + (__tmp50826 + (let ((__tmp50827 + (let ((__tmp50828 (lambda (_g3515935162_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3516035165_) @@ -443,18 +443,18 @@ (declare (not safe)) (cons _g3515935162_ _g3516035165_))))) (declare (not safe)) - (foldr1 __tmp50823 '() _L35134_)))) + (foldr1 __tmp50828 '() _L35134_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35136_ __tmp50822)))) + (cons _L35136_ __tmp50827)))) (declare (not safe)) - (cons __tmp50824 __tmp50821)))) + (cons __tmp50829 __tmp50826)))) (declare (not safe)) - (cons __tmp50820 '())))) + (cons __tmp50825 '())))) (declare (not safe)) - (cons _L35137_ __tmp50819)))) + (cons _L35137_ __tmp50824)))) (declare (not safe)) - (cons _L35138_ __tmp50818))))) + (cons _L35138_ __tmp50823))))) (let* ((___match4713347134_ (lambda (_e3504635074_ _hd3504535078_ @@ -720,36 +720,36 @@ ___stx4713647137_)))) (let ((___kont4713947140_ (lambda (_L35410_ _L35412_) - (let ((__tmp50830 (gx#datum->syntax '#f 'defsyntax)) - (__tmp50825 - (let ((__tmp50826 - (let ((__tmp50827 - (let ((__tmp50829 + (let ((__tmp50835 (gx#datum->syntax '#f 'defsyntax)) + (__tmp50830 + (let ((__tmp50831 + (let ((__tmp50832 + (let ((__tmp50834 (gx#datum->syntax '#f 'make-import-export-expander)) - (__tmp50828 + (__tmp50833 (let () (declare (not safe)) (cons _L35410_ '())))) (declare (not safe)) - (cons __tmp50829 __tmp50828)))) + (cons __tmp50834 __tmp50833)))) (declare (not safe)) - (cons __tmp50827 '())))) + (cons __tmp50832 '())))) (declare (not safe)) - (cons _L35412_ __tmp50826)))) + (cons _L35412_ __tmp50831)))) (declare (not safe)) - (cons __tmp50830 __tmp50825)))) + (cons __tmp50835 __tmp50830)))) (___kont4714147142_ (lambda (_L35339_ _L35341_ _L35342_ _L35343_) - (let ((__tmp50831 - (let ((__tmp50832 - (let ((__tmp50833 - (let ((__tmp50837 + (let ((__tmp50836 + (let ((__tmp50837 + (let ((__tmp50838 + (let ((__tmp50842 (gx#datum->syntax '#f 'lambda)) - (__tmp50834 - (let ((__tmp50835 - (let ((__tmp50836 + (__tmp50839 + (let ((__tmp50840 + (let ((__tmp50841 (lambda (_g3536435367_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3536535370_) @@ -757,18 +757,18 @@ (declare (not safe)) (cons _g3536435367_ _g3536535370_))))) (declare (not safe)) - (foldr1 __tmp50836 '() _L35339_)))) + (foldr1 __tmp50841 '() _L35339_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35341_ __tmp50835)))) + (cons _L35341_ __tmp50840)))) (declare (not safe)) - (cons __tmp50837 __tmp50834)))) + (cons __tmp50842 __tmp50839)))) (declare (not safe)) - (cons __tmp50833 '())))) + (cons __tmp50838 '())))) (declare (not safe)) - (cons _L35342_ __tmp50832)))) + (cons _L35342_ __tmp50837)))) (declare (not safe)) - (cons _L35343_ __tmp50831))))) + (cons _L35343_ __tmp50836))))) (let* ((___match4719147192_ (lambda (_e3525135279_ _hd3525035283_ @@ -1045,30 +1045,30 @@ (declare (not safe)) (##cdr _e3544035462_)))) (if (gx#stx-pair/null? _tl3543835469_) - (let ((_g50838_ + (let ((_g50843_ (gx#syntax-split-splice _tl3543835469_ '0))) (begin - (let ((_g50839_ + (let ((_g50844_ (let () (declare (not safe)) - (if (##values? _g50838_) - (##vector-length _g50838_) + (if (##values? _g50843_) + (##vector-length _g50843_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50839_ 2))) + (##fx= _g50844_ 2))) (error "Context expects 2 values" - _g50839_))) + _g50844_))) (let ((_target3544135472_ (let () (declare (not safe)) - (##vector-ref _g50838_ 0))) + (##vector-ref _g50843_ 0))) (_tl3544335475_ (let () (declare (not safe)) - (##vector-ref _g50838_ 1)))) + (##vector-ref _g50843_ 1)))) (if (gx#stx-null? _tl3544335475_) (letrec ((_loop3544435478_ (lambda (_hd3544235482_ @@ -1092,20 +1092,20 @@ (cons _lp-hd3544635492_ _body3544835485_))))) (let ((_body3544935498_ (reverse _body3544835485_))) ((lambda (_L35502_) - (let ((__tmp50840 - (let ((__tmp50841 - (let ((__tmp50842 + (let ((__tmp50845 + (let ((__tmp50846 + (let ((__tmp50847 (lambda (_g3551735520_ _g3551835523_) (let () (declare (not safe)) (cons _g3551735520_ _g3551835523_))))) (declare (not safe)) - (foldr1 __tmp50842 '() _L35502_)))) + (foldr1 __tmp50847 '() _L35502_)))) (declare (not safe)) - (cons '1 __tmp50841)))) + (cons '1 __tmp50846)))) (declare (not safe)) - (cons 'phi: __tmp50840))) + (cons 'phi: __tmp50845))) _body3544935498_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3544435478_ @@ -1137,30 +1137,30 @@ (declare (not safe)) (##cdr _e3553935561_)))) (if (gx#stx-pair/null? _tl3553735568_) - (let ((_g50843_ + (let ((_g50848_ (gx#syntax-split-splice _tl3553735568_ '0))) (begin - (let ((_g50844_ + (let ((_g50849_ (let () (declare (not safe)) - (if (##values? _g50843_) - (##vector-length _g50843_) + (if (##values? _g50848_) + (##vector-length _g50848_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50844_ 2))) + (##fx= _g50849_ 2))) (error "Context expects 2 values" - _g50844_))) + _g50849_))) (let ((_target3554035571_ (let () (declare (not safe)) - (##vector-ref _g50843_ 0))) + (##vector-ref _g50848_ 0))) (_tl3554235574_ (let () (declare (not safe)) - (##vector-ref _g50843_ 1)))) + (##vector-ref _g50848_ 1)))) (if (gx#stx-null? _tl3554235574_) (letrec ((_loop3554335577_ (lambda (_hd3554135581_ @@ -1184,20 +1184,20 @@ (cons _lp-hd3554535591_ _body3554735584_))))) (let ((_body3554835597_ (reverse _body3554735584_))) ((lambda (_L35601_) - (let ((__tmp50845 - (let ((__tmp50846 - (let ((__tmp50847 + (let ((__tmp50850 + (let ((__tmp50851 + (let ((__tmp50852 (lambda (_g3561635619_ _g3561735622_) (let () (declare (not safe)) (cons _g3561635619_ _g3561735622_))))) (declare (not safe)) - (foldr1 __tmp50847 '() _L35601_)))) + (foldr1 __tmp50852 '() _L35601_)))) (declare (not safe)) - (cons '-1 __tmp50846)))) + (cons '-1 __tmp50851)))) (declare (not safe)) - (cons 'phi: __tmp50845))) + (cons 'phi: __tmp50850))) _body3554835597_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3554335577_ @@ -1240,31 +1240,31 @@ (declare (not safe)) (##cdr _e3564235674_)))) (if (gx#stx-pair/null? _tl3564035681_) - (let ((_g50848_ + (let ((_g50853_ (gx#syntax-split-splice _tl3564035681_ '0))) (begin - (let ((_g50849_ + (let ((_g50854_ (let () (declare (not safe)) - (if (##values? _g50848_) + (if (##values? _g50853_) (##vector-length - _g50848_) + _g50853_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50849_ 2))) + (##fx= _g50854_ 2))) (error "Context expects 2 values" - _g50849_))) + _g50854_))) (let ((_target3564335684_ (let () (declare (not safe)) - (##vector-ref _g50848_ 0))) + (##vector-ref _g50853_ 0))) (_tl3564535687_ (let () (declare (not safe)) - (##vector-ref _g50848_ 1)))) + (##vector-ref _g50853_ 1)))) (if (gx#stx-null? _tl3564535687_) (letrec ((_loop3564635690_ (lambda (_hd3564435694_ @@ -1288,18 +1288,18 @@ (let ((_id3565135710_ (reverse _id3565035697_))) ((lambda (_L35714_ _L35716_) (if (gx#identifier-list? - (let ((__tmp50854 + (let ((__tmp50859 (lambda (_g3573335736_ _g3573435739_) (let () (declare (not safe)) (cons _g3573335736_ _g3573435739_))))) (declare (not safe)) - (foldr1 __tmp50854 '() _L35714_))) + (foldr1 __tmp50859 '() _L35714_))) (let* ((_keys35750_ (gx#stx-map gx#core-identifier-key - (let ((__tmp50850 + (let ((__tmp50855 (lambda (_g3574135744_ _g3574235747_) (let () @@ -1307,7 +1307,7 @@ (cons _g3574135744_ _g3574235747_))))) (declare (not safe)) - (foldr1 __tmp50850 '() _L35714_)))) + (foldr1 __tmp50855 '() _L35714_)))) (_keytab35761_ (let ((_ht35753_ (let () @@ -1331,28 +1331,28 @@ (lambda (_in35770_ _r35772_) (if (gx#module-import? _in35770_) - (if (let ((__tmp50852 + (if (let ((__tmp50857 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-import-name _in35770_))) (declare (not safe)) - (table-ref _keytab35761_ __tmp50852 '#f)) + (table-ref _keytab35761_ __tmp50857 '#f)) (let () (declare (not safe)) (cons _in35770_ _r35772_)) _r35772_) (if (gx#import-set? _in35770_) - (let ((__tmp50851 (gx#import-set-imports _in35770_))) + (let ((__tmp50856 (gx#import-set-imports _in35770_))) (declare (not safe)) - (foldl1 _fold-e35767_ _r35772_ __tmp50851)) + (foldl1 _fold-e35767_ _r35772_ __tmp50856)) _r35772_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e35767_))) - (let ((__tmp50853 + (let ((__tmp50858 (let () (declare (not safe)) (foldl1 _fold-e35774_ '() _imports35764_)))) (declare (not safe)) - (cons 'begin: __tmp50853))) + (cons 'begin: __tmp50858))) (_g3563335657_ _g3563435661_))) _id3565135710_ _hd3564135678_)))))) @@ -1399,31 +1399,31 @@ (declare (not safe)) (##cdr _e3579635828_)))) (if (gx#stx-pair/null? _tl3579435835_) - (let ((_g50855_ + (let ((_g50860_ (gx#syntax-split-splice _tl3579435835_ '0))) (begin - (let ((_g50856_ + (let ((_g50861_ (let () (declare (not safe)) - (if (##values? _g50855_) + (if (##values? _g50860_) (##vector-length - _g50855_) + _g50860_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50856_ 2))) + (##fx= _g50861_ 2))) (error "Context expects 2 values" - _g50856_))) + _g50861_))) (let ((_target3579735838_ (let () (declare (not safe)) - (##vector-ref _g50855_ 0))) + (##vector-ref _g50860_ 0))) (_tl3579935841_ (let () (declare (not safe)) - (##vector-ref _g50855_ 1)))) + (##vector-ref _g50860_ 1)))) (if (gx#stx-null? _tl3579935841_) (letrec ((_loop3580035844_ (lambda (_hd3579835848_ @@ -1447,18 +1447,18 @@ (let ((_id3580535864_ (reverse _id3580435851_))) ((lambda (_L35868_ _L35870_) (if (gx#identifier-list? - (let ((__tmp50861 + (let ((__tmp50866 (lambda (_g3588735890_ _g3588835893_) (let () (declare (not safe)) (cons _g3588735890_ _g3588835893_))))) (declare (not safe)) - (foldr1 __tmp50861 '() _L35868_))) + (foldr1 __tmp50866 '() _L35868_))) (let* ((_keys35904_ (gx#stx-map gx#core-identifier-key - (let ((__tmp50857 + (let ((__tmp50862 (lambda (_g3589535898_ _g3589635901_) (let () @@ -1466,7 +1466,7 @@ (cons _g3589535898_ _g3589635901_))))) (declare (not safe)) - (foldr1 __tmp50857 '() _L35868_)))) + (foldr1 __tmp50862 '() _L35868_)))) (_keytab35915_ (let ((_ht35907_ (let () @@ -1490,30 +1490,30 @@ (lambda (_in35924_ _r35926_) (if (gx#module-import? _in35924_) - (if (let ((__tmp50859 + (if (let ((__tmp50864 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-import-name _in35924_))) (declare (not safe)) - (table-ref _keytab35915_ __tmp50859 '#f)) + (table-ref _keytab35915_ __tmp50864 '#f)) _r35926_ (let () (declare (not safe)) (cons _in35924_ _r35926_))) (if (gx#import-set? _in35924_) - (let ((__tmp50858 (gx#import-set-imports _in35924_))) + (let ((__tmp50863 (gx#import-set-imports _in35924_))) (declare (not safe)) - (foldl1 _fold-e35921_ _r35926_ __tmp50858)) + (foldl1 _fold-e35921_ _r35926_ __tmp50863)) (let () (declare (not safe)) (cons _in35924_ _r35926_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e35921_))) - (let ((__tmp50860 + (let ((__tmp50865 (let () (declare (not safe)) (foldl1 _fold-e35928_ '() _imports35918_)))) (declare (not safe)) - (cons 'begin: __tmp50860))) + (cons 'begin: __tmp50865))) (_g3578735811_ _g3578835815_))) _id3580535864_ _hd3579535832_)))))) @@ -1541,9 +1541,9 @@ (lambda () (make-symbol _pre35940_ _name35938_))) (_K3594535969_ (lambda (_mark35965_ _id35967_) - (let ((__tmp50862 (make-symbol _pre35940_ _id35967_))) + (let ((__tmp50867 (make-symbol _pre35940_ _id35967_))) (declare (not safe)) - (cons __tmp50862 _mark35965_))))) + (cons __tmp50867 _mark35965_))))) (if (let () (declare (not safe)) (##pair? _name3594135949_)) (let ((_hd3594635973_ (let () (declare (not safe)) (##car _name3594135949_))) @@ -1586,31 +1586,31 @@ (declare (not safe)) (##cdr _e3600236042_)))) (if (gx#stx-pair/null? _tl3600036049_) - (let ((_g50863_ + (let ((_g50868_ (gx#syntax-split-splice _tl3600036049_ '0))) (begin - (let ((_g50864_ + (let ((_g50869_ (let () (declare (not safe)) - (if (##values? _g50863_) + (if (##values? _g50868_) (##vector-length - _g50863_) + _g50868_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50864_ 2))) + (##fx= _g50869_ 2))) (error "Context expects 2 values" - _g50864_))) + _g50869_))) (let ((_target3600336052_ (let () (declare (not safe)) - (##vector-ref _g50863_ 0))) + (##vector-ref _g50868_ 0))) (_tl3600536055_ (let () (declare (not safe)) - (##vector-ref _g50863_ 1)))) + (##vector-ref _g50868_ 1)))) (if (gx#stx-null? _tl3600536055_) (letrec ((_loop3600636058_ (lambda (_hd3600436062_ @@ -1667,7 +1667,7 @@ (_id3601336103_ (reverse _id3601136067_))) ((lambda (_L36106_ _L36108_ _L36109_) (if (and (gx#identifier-list? - (let ((__tmp50875 + (let ((__tmp50880 (lambda (_g3612736130_ _g3612836133_) (let () @@ -1675,9 +1675,9 @@ (cons _g3612736130_ _g3612836133_))))) (declare (not safe)) - (foldr1 __tmp50875 '() _L36108_))) + (foldr1 __tmp50880 '() _L36108_))) (gx#identifier-list? - (let ((__tmp50874 + (let ((__tmp50879 (lambda (_g3613536138_ _g3613636141_) (let () @@ -1685,7 +1685,7 @@ (cons _g3613536138_ _g3613636141_))))) (declare (not safe)) - (foldr1 __tmp50874 '() _L36106_)))) + (foldr1 __tmp50879 '() _L36106_)))) (let* ((_keytab36144_ (let () (declare (not safe)) @@ -1694,21 +1694,21 @@ (let () (declare (not safe)) (make-table))) - (_g50869_ + (_g50874_ (for-each (lambda (_id36150_ _new-id36152_) - (let ((__tmp50866 + (let ((__tmp50871 (gx#core-identifier-key _id36150_)) - (__tmp50865 + (__tmp50870 (gx#core-identifier-key _new-id36152_))) (declare (not safe)) (table-set! _keytab36144_ - __tmp50866 - __tmp50865))) - (let ((__tmp50867 + __tmp50871 + __tmp50870))) + (let ((__tmp50872 (lambda (_g3615336156_ _g3615436159_) (let () @@ -1716,8 +1716,8 @@ (cons _g3615336156_ _g3615436159_))))) (declare (not safe)) - (foldr1 __tmp50867 '() _L36108_)) - (let ((__tmp50868 + (foldr1 __tmp50872 '() _L36108_)) + (let ((__tmp50873 (lambda (_g3616136164_ _g3616236167_) (let () @@ -1725,7 +1725,7 @@ (cons _g3616136164_ _g3616236167_))))) (declare (not safe)) - (foldr1 __tmp50868 '() _L36106_)))) + (foldr1 __tmp50873 '() _L36106_)))) (_imports36172_ (gx#core-expand-import-source _L36109_)) @@ -1747,20 +1747,20 @@ (let () (declare (not safe)) (table-set! _found36147_ _name36182_ '#t)) - (let ((__tmp50871 + (let ((__tmp50876 (let () (declare (not safe)) (|gerbil/core$[1]#module-import-rename| _in36178_ _rename36189_)))) (declare (not safe)) - (cons __tmp50871 _r36180_))) + (cons __tmp50876 _r36180_))) _$e36185_) (let () (declare (not safe)) (cons _in36178_ _r36180_)))) (if (gx#import-set? _in36178_) - (let ((__tmp50870 (gx#import-set-imports _in36178_))) + (let ((__tmp50875 (gx#import-set-imports _in36178_))) (declare (not safe)) - (foldl1 _fold-e36175_ _r36180_ __tmp50870)) + (foldl1 _fold-e36175_ _r36180_ __tmp50875)) (let () (declare (not safe)) (cons _in36178_ _r36180_))))))) @@ -1774,13 +1774,13 @@ _imports36172_)))) (for-each (lambda (_id36200_) - (if (let ((__tmp50872 + (if (let ((__tmp50877 (gx#core-identifier-key _id36200_))) (declare (not safe)) (table-ref _found36147_ - __tmp50872 + __tmp50877 '#f)) '#!void (gx#raise-syntax-error @@ -1788,14 +1788,14 @@ '"bad syntax; identifier is not in the import set" _stx35989_ _id36200_))) - (let ((__tmp50873 + (let ((__tmp50878 (lambda (_g3620236205_ _g3620336208_) (let () (declare (not safe)) (cons _g3620236205_ _g3620336208_))))) (declare (not safe)) - (foldr1 __tmp50873 '() _L36108_))) + (foldr1 __tmp50878 '() _L36108_))) (let () (declare (not safe)) (cons 'begin: _new-imports36195_))) @@ -1879,35 +1879,35 @@ (letrec ((_fold-e36305_ (lambda (_in36308_ _r36310_) (if (gx#module-import? _in36308_) - (let ((__tmp50877 - (let ((__tmp50878 + (let ((__tmp50882 + (let ((__tmp50883 (_rename-e36302_ (gx#module-import-name _in36308_)))) (declare (not safe)) (|gerbil/core$[1]#module-import-rename| _in36308_ - __tmp50878)))) + __tmp50883)))) (declare (not safe)) - (cons __tmp50877 _r36310_)) + (cons __tmp50882 _r36310_)) (if (gx#import-set? _in36308_) - (let ((__tmp50876 + (let ((__tmp50881 (gx#import-set-imports _in36308_))) (declare (not safe)) (foldl1 _fold-e36305_ _r36310_ - __tmp50876)) + __tmp50881)) (let () (declare (not safe)) (cons _in36308_ _r36310_))))))) _fold-e36305_))) - (let ((__tmp50879 + (let ((__tmp50884 (let () (declare (not safe)) (foldl1 _fold-e36312_ '() _imports36296_)))) (declare (not safe)) - (cons 'begin: __tmp50879))) + (cons 'begin: __tmp50884))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3622036238_ _g3622136242_))) @@ -1923,7 +1923,7 @@ (lambda (_stx36321_) (letrec ((_flatten36324_ (lambda (_list-of-lists36579_) - (let ((__tmp50880 + (let ((__tmp50885 (lambda (_v36582_ _acc36584_) (if (let () (declare (not safe)) (null? _v36582_)) _acc36584_ @@ -1936,7 +1936,7 @@ (declare (not safe)) (cons _v36582_ _acc36584_))))))) (declare (not safe)) - (foldr1 __tmp50880 '() _list-of-lists36579_)))) + (foldr1 __tmp50885 '() _list-of-lists36579_)))) (_expand-path36326_ (lambda (_top36447_ _mod36449_) (let* ((___stx4719447195_ _mod36449_) @@ -1959,7 +1959,7 @@ (_expand-path36326_ _L36544_ _g3656136563_)) - (let ((__tmp50881 + (let ((__tmp50886 (lambda (_g3656636569_ _g3656736572_) (let () @@ -1967,7 +1967,7 @@ (cons _g3656636569_ _g3656736572_))))) (declare (not safe)) - (foldr1 __tmp50881 + (foldr1 __tmp50886 '() _L36542_))))))) (___kont4720147202_ @@ -2099,32 +2099,32 @@ (declare (not safe)) (##cdr _e3633736369_)))) (if (gx#stx-pair/null? _tl3633536376_) - (let ((_g50882_ + (let ((_g50887_ (gx#syntax-split-splice _tl3633536376_ '0))) (begin - (let ((_g50883_ + (let ((_g50888_ (let () (declare (not safe)) - (if (##values? _g50882_) + (if (##values? _g50887_) (##vector-length - _g50882_) + _g50887_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50883_ 2))) + (##fx= _g50888_ 2))) (error "Context expects 2 values" - _g50883_))) + _g50888_))) (let ((_target3633836379_ (let () (declare (not safe)) - (##vector-ref _g50882_ 0))) + (##vector-ref _g50887_ 0))) (_tl3634036382_ (let () (declare (not safe)) (##vector-ref - _g50882_ + _g50887_ 1)))) (if (gx#stx-null? _tl3634036382_) (letrec ((_loop3634136385_ @@ -2148,13 +2148,13 @@ (cons _lp-hd3634336399_ _mod3634536392_))))) (let ((_mod3634636405_ (reverse _mod3634536392_))) ((lambda (_L36409_ _L36411_) - (let ((__tmp50884 + (let ((__tmp50889 (_flatten36324_ (map (lambda (_g3642936431_) (_expand-path36326_ _L36411_ _g3642936431_)) - (let ((__tmp50885 + (let ((__tmp50890 (lambda (_g3643436437_ _g3643536440_) (let () @@ -2162,11 +2162,11 @@ (cons _g3643436437_ _g3643536440_))))) (declare (not safe)) - (foldr1 __tmp50885 + (foldr1 __tmp50890 '() _L36409_)))))) (declare (not safe)) - (cons 'begin: __tmp50884))) + (cons 'begin: __tmp50889))) _mod3634636405_ _hd3633636373_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2212,31 +2212,31 @@ (declare (not safe)) (##cdr _e3660036632_)))) (if (gx#stx-pair/null? _tl3659836639_) - (let ((_g50886_ + (let ((_g50891_ (gx#syntax-split-splice _tl3659836639_ '0))) (begin - (let ((_g50887_ + (let ((_g50892_ (let () (declare (not safe)) - (if (##values? _g50886_) + (if (##values? _g50891_) (##vector-length - _g50886_) + _g50891_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50887_ 2))) + (##fx= _g50892_ 2))) (error "Context expects 2 values" - _g50887_))) + _g50892_))) (let ((_target3660136642_ (let () (declare (not safe)) - (##vector-ref _g50886_ 0))) + (##vector-ref _g50891_ 0))) (_tl3660336645_ (let () (declare (not safe)) - (##vector-ref _g50886_ 1)))) + (##vector-ref _g50891_ 1)))) (if (gx#stx-null? _tl3660336645_) (letrec ((_loop3660436648_ (lambda (_hd3660236652_ @@ -2260,18 +2260,18 @@ (let ((_id3660936668_ (reverse _id3660836655_))) ((lambda (_L36672_ _L36674_) (if (gx#identifier-list? - (let ((__tmp50892 + (let ((__tmp50897 (lambda (_g3669136694_ _g3669236697_) (let () (declare (not safe)) (cons _g3669136694_ _g3669236697_))))) (declare (not safe)) - (foldr1 __tmp50892 '() _L36672_))) + (foldr1 __tmp50897 '() _L36672_))) (let* ((_keys36708_ (gx#stx-map gx#core-identifier-key - (let ((__tmp50888 + (let ((__tmp50893 (lambda (_g3669936702_ _g3670036705_) (let () @@ -2279,7 +2279,7 @@ (cons _g3669936702_ _g3670036705_))))) (declare (not safe)) - (foldr1 __tmp50888 '() _L36672_)))) + (foldr1 __tmp50893 '() _L36672_)))) (_keytab36719_ (let ((_ht36711_ (let () @@ -2303,28 +2303,28 @@ (lambda (_out36728_ _r36730_) (if (gx#module-export? _out36728_) - (if (let ((__tmp50890 + (if (let ((__tmp50895 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-export-name _out36728_))) (declare (not safe)) - (table-ref _keytab36719_ __tmp50890 '#f)) + (table-ref _keytab36719_ __tmp50895 '#f)) _r36730_ (let () (declare (not safe)) (cons _out36728_ _r36730_))) (if (gx#export-set? _out36728_) - (let ((__tmp50889 (gx#export-set-exports _out36728_))) + (let ((__tmp50894 (gx#export-set-exports _out36728_))) (declare (not safe)) - (foldl1 _fold-e36725_ _r36730_ __tmp50889)) + (foldl1 _fold-e36725_ _r36730_ __tmp50894)) _r36730_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e36725_))) - (let ((__tmp50891 + (let ((__tmp50896 (let () (declare (not safe)) (foldl1 _fold-e36732_ '() _exports36722_)))) (declare (not safe)) - (cons 'begin: __tmp50891))) + (cons 'begin: __tmp50896))) (_g3659136615_ _g3659236619_))) _id3660936668_ _hd3659936636_)))))) @@ -2379,31 +2379,31 @@ (declare (not safe)) (##cdr _e3675936799_)))) (if (gx#stx-pair/null? _tl3675736806_) - (let ((_g50893_ + (let ((_g50898_ (gx#syntax-split-splice _tl3675736806_ '0))) (begin - (let ((_g50894_ + (let ((_g50899_ (let () (declare (not safe)) - (if (##values? _g50893_) + (if (##values? _g50898_) (##vector-length - _g50893_) + _g50898_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50894_ 2))) + (##fx= _g50899_ 2))) (error "Context expects 2 values" - _g50894_))) + _g50899_))) (let ((_target3676036809_ (let () (declare (not safe)) - (##vector-ref _g50893_ 0))) + (##vector-ref _g50898_ 0))) (_tl3676236812_ (let () (declare (not safe)) - (##vector-ref _g50893_ 1)))) + (##vector-ref _g50898_ 1)))) (if (gx#stx-null? _tl3676236812_) (letrec ((_loop3676336815_ (lambda (_hd3676136819_ @@ -2460,7 +2460,7 @@ (_id3677036860_ (reverse _id3676836824_))) ((lambda (_L36863_ _L36865_ _L36866_) (if (and (gx#identifier-list? - (let ((__tmp50905 + (let ((__tmp50910 (lambda (_g3688436887_ _g3688536890_) (let () @@ -2468,9 +2468,9 @@ (cons _g3688436887_ _g3688536890_))))) (declare (not safe)) - (foldr1 __tmp50905 '() _L36865_))) + (foldr1 __tmp50910 '() _L36865_))) (gx#identifier-list? - (let ((__tmp50904 + (let ((__tmp50909 (lambda (_g3689236895_ _g3689336898_) (let () @@ -2478,7 +2478,7 @@ (cons _g3689236895_ _g3689336898_))))) (declare (not safe)) - (foldr1 __tmp50904 '() _L36863_)))) + (foldr1 __tmp50909 '() _L36863_)))) (let* ((_keytab36901_ (let () (declare (not safe)) @@ -2487,21 +2487,21 @@ (let () (declare (not safe)) (make-table))) - (_g50899_ + (_g50904_ (for-each (lambda (_id36907_ _new-id36909_) - (let ((__tmp50896 + (let ((__tmp50901 (gx#core-identifier-key _id36907_)) - (__tmp50895 + (__tmp50900 (gx#core-identifier-key _new-id36909_))) (declare (not safe)) (table-set! _keytab36901_ - __tmp50896 - __tmp50895))) - (let ((__tmp50897 + __tmp50901 + __tmp50900))) + (let ((__tmp50902 (lambda (_g3691036913_ _g3691136916_) (let () @@ -2509,8 +2509,8 @@ (cons _g3691036913_ _g3691136916_))))) (declare (not safe)) - (foldr1 __tmp50897 '() _L36865_)) - (let ((__tmp50898 + (foldr1 __tmp50902 '() _L36865_)) + (let ((__tmp50903 (lambda (_g3691836921_ _g3691936924_) (let () @@ -2518,7 +2518,7 @@ (cons _g3691836921_ _g3691936924_))))) (declare (not safe)) - (foldr1 __tmp50898 '() _L36863_)))) + (foldr1 __tmp50903 '() _L36863_)))) (_exports36929_ (gx#core-expand-export-source _L36866_)) @@ -2540,22 +2540,22 @@ (let () (declare (not safe)) (table-set! _found36904_ _name36939_ '#t)) - (let ((__tmp50901 + (let ((__tmp50906 (let () (declare (not safe)) (|gerbil/core$[1]#module-export-rename| _out36935_ _rename36946_)))) (declare (not safe)) - (cons __tmp50901 _r36937_))) + (cons __tmp50906 _r36937_))) _$e36942_) (let () (declare (not safe)) (cons _out36935_ _r36937_)))) (if (gx#export-set? _out36935_) - (let ((__tmp50900 (gx#export-set-exports _out36935_))) + (let ((__tmp50905 (gx#export-set-exports _out36935_))) (declare (not safe)) - (foldl1 _fold-e36932_ _r36937_ __tmp50900)) + (foldl1 _fold-e36932_ _r36937_ __tmp50905)) (let () (declare (not safe)) (cons _out36935_ _r36937_))))))) @@ -2569,13 +2569,13 @@ _exports36929_)))) (for-each (lambda (_id36957_) - (if (let ((__tmp50902 + (if (let ((__tmp50907 (gx#core-identifier-key _id36957_))) (declare (not safe)) (table-ref _found36904_ - __tmp50902 + __tmp50907 '#f)) '#!void (gx#raise-syntax-error @@ -2583,14 +2583,14 @@ '"bad syntax; identifier is not in the export set" _stx36746_ _id36957_))) - (let ((__tmp50903 + (let ((__tmp50908 (lambda (_g3695936962_ _g3696036965_) (let () (declare (not safe)) (cons _g3695936962_ _g3696036965_))))) (declare (not safe)) - (foldr1 __tmp50903 '() _L36865_))) + (foldr1 __tmp50908 '() _L36865_))) (let () (declare (not safe)) (cons 'begin: _new-exports36952_))) @@ -2674,35 +2674,35 @@ (letrec ((_fold-e37062_ (lambda (_out37065_ _r37067_) (if (gx#module-export? _out37065_) - (let ((__tmp50907 - (let ((__tmp50908 + (let ((__tmp50912 + (let ((__tmp50913 (_rename-e37059_ (gx#module-export-name _out37065_)))) (declare (not safe)) (|gerbil/core$[1]#module-export-rename| _out37065_ - __tmp50908)))) + __tmp50913)))) (declare (not safe)) - (cons __tmp50907 _r37067_)) + (cons __tmp50912 _r37067_)) (if (gx#export-set? _out37065_) - (let ((__tmp50906 + (let ((__tmp50911 (gx#export-set-exports _out37065_))) (declare (not safe)) (foldl1 _fold-e37062_ _r37067_ - __tmp50906)) + __tmp50911)) (let () (declare (not safe)) (cons _out37065_ _r37067_))))))) _fold-e37062_))) - (let ((__tmp50909 + (let ((__tmp50914 (let () (declare (not safe)) (foldl1 _fold-e37069_ '() _exports37053_)))) (declare (not safe)) - (cons 'begin: __tmp50909))) + (cons 'begin: __tmp50914))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3697736995_ _g3697836999_))) @@ -2724,8 +2724,8 @@ (class-instance? gerbil/core$$#class-type-info::t _info37317_)) - (let ((__tmp50910 - (let ((__tmp50922 + (let ((__tmp50915 + (let ((__tmp50927 (let ((__obj47298 _info37317_)) (if (let () (declare (not safe)) @@ -2743,9 +2743,9 @@ gerbil/core$$#class-type-info::t __obj47298 'type-descriptor)))) - (__tmp50911 - (let ((__tmp50913 - (let ((__tmp50921 + (__tmp50916 + (let ((__tmp50918 + (let ((__tmp50926 (let ((__obj47299 _info37317_)) (if (let () @@ -2766,12 +2766,12 @@ gerbil/core$$#class-type-info::t __obj47299 'predicate)))) - (__tmp50914 - (let ((__tmp50916 - (let ((__tmp50918 + (__tmp50919 + (let ((__tmp50921 + (let ((__tmp50923 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if _unchecked?37315_ - (let ((__tmp50920 + (let ((__tmp50925 (map cdr (let ((__obj47300 _info37317_)) (if (let () @@ -2790,7 +2790,7 @@ gerbil/core$$#class-type-info::t __obj47300 'unchecked-mutators))))) - (__tmp50919 + (__tmp50924 (map cdr (let ((__obj47301 _info37317_)) (if (let () @@ -2810,9 +2810,9 @@ __obj47301 'unchecked-accessors)))))) (declare (not safe)) - (foldr1 cons __tmp50920 __tmp50919)) + (foldr1 cons __tmp50925 __tmp50924)) '())) - (__tmp50917 + (__tmp50922 (map cdr (let ((__obj47302 _info37317_)) (if (let () @@ -2832,8 +2832,8 @@ __obj47302 'mutators)))))) (declare (not safe)) - (foldr1 cons __tmp50918 __tmp50917))) - (__tmp50915 + (foldr1 cons __tmp50923 __tmp50922))) + (__tmp50920 (map cdr (let ((__obj47303 _info37317_)) (if (let () @@ -2853,11 +2853,11 @@ __obj47303 'accessors)))))) (declare (not safe)) - (foldr1 cons __tmp50916 __tmp50915)))) + (foldr1 cons __tmp50921 __tmp50920)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50921 __tmp50914))) - (__tmp50912 + (cons __tmp50926 __tmp50919))) + (__tmp50917 (let ((_ctor37320_ (let ((__obj47304 _info37317_)) @@ -2885,11 +2885,11 @@ (cons _ctor37320_ '())) '())))) (declare (not safe)) - (foldr1 cons __tmp50913 __tmp50912)))) + (foldr1 cons __tmp50918 __tmp50917)))) (declare (not safe)) - (cons __tmp50922 __tmp50911)))) + (cons __tmp50927 __tmp50916)))) (declare (not safe)) - (cons _id37313_ __tmp50910)) + (cons _id37313_ __tmp50915)) (gx#raise-syntax-error '#f '"no class type info" @@ -2904,38 +2904,38 @@ ___stx4722047221_)))) (let ((___kont4722347224_ (lambda (_L37274_ _L37276_) - (let ((__tmp50923 + (let ((__tmp50928 (concatenate (gx#stx-map (lambda (_g3729537297_) (_identifiers37081_ _g3729537297_ (gx#stx-e _L37276_))) - (let ((__tmp50924 + (let ((__tmp50929 (lambda (_g3730037303_ _g3730137306_) (let () (declare (not safe)) (cons _g3730037303_ _g3730137306_))))) (declare (not safe)) - (foldr1 __tmp50924 '() _L37274_)))))) + (foldr1 __tmp50929 '() _L37274_)))))) (declare (not safe)) - (cons 'begin: __tmp50923)))) + (cons 'begin: __tmp50928)))) (___kont4722747228_ (lambda (_L37173_) - (let ((__tmp50925 + (let ((__tmp50930 (concatenate (gx#stx-map (lambda (_g3718937191_) (_identifiers37081_ _g3718937191_ '#f)) - (let ((__tmp50926 + (let ((__tmp50931 (lambda (_g3719437197_ _g3719537200_) (let () (declare (not safe)) (cons _g3719437197_ _g3719537200_))))) (declare (not safe)) - (foldr1 __tmp50926 '() _L37173_)))))) + (foldr1 __tmp50931 '() _L37173_)))))) (declare (not safe)) - (cons 'begin: __tmp50925))))) + (cons 'begin: __tmp50930))))) (let* ((___match4727747278_ (lambda (_e3711137133_ _hd3711037137_ diff --git a/src/bootstrap/gerbil/core__16.scm b/src/bootstrap/gerbil/core__16.scm index 96666fbef..c9584bc32 100644 --- a/src/bootstrap/gerbil/core__16.scm +++ b/src/bootstrap/gerbil/core__16.scm @@ -32,10 +32,10 @@ (if (gx#current-expander-compiling?) (gx#eval-syntax _L37370_) '#!void) - (let ((__tmp50927 + (let ((__tmp50932 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp50927 '()))) + (cons __tmp50932 '()))) _hd3733637364_) (_g3732937343_ _g3733037347_)))) (_g3732937343_ _g3733037347_)))) diff --git a/src/bootstrap/gerbil/core__2.scm b/src/bootstrap/gerbil/core__2.scm index ac9a7abb5..64433726b 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]#_g47392_| + (define |gerbil/core$[1]#_g47394_| (##structure gx#syntax-quote::t 'values @@ -34,31 +34,31 @@ (declare (not safe)) (##cdr _e6092_)))) (if (gx#stx-pair/null? _tl5899_) - (let ((_g47312_ + (let ((_g47314_ (gx#syntax-split-splice _tl5899_ '0))) (begin - (let ((_g47313_ + (let ((_g47315_ (let () (declare (not safe)) - (if (##values? _g47312_) + (if (##values? _g47314_) (##vector-length - _g47312_) + _g47314_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47313_ 2))) + (##fx= _g47315_ 2))) (error "Context expects 2 values" - _g47313_))) + _g47315_))) (let ((_target61102_ (let () (declare (not safe)) - (##vector-ref _g47312_ 0))) + (##vector-ref _g47314_ 0))) (_tl63105_ (let () (declare (not safe)) - (##vector-ref _g47312_ 1)))) + (##vector-ref _g47314_ 1)))) (if (gx#stx-null? _tl63105_) (letrec ((_loop64108_ (lambda (_hd62112_ @@ -95,43 +95,43 @@ ___stx4160441605_)))) (let ((___kont4160741608_ (lambda (_L270_ _L272_) - (let ((__tmp47314 - (let ((__tmp47315 + (let ((__tmp47316 + (let ((__tmp47317 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47317 (gx#datum->syntax '#f 'syntax)) - (__tmp47316 + (let ((__tmp47319 (gx#datum->syntax '#f 'syntax)) + (__tmp47318 (let () (declare (not safe)) (cons _L270_ '())))) (declare (not safe)) - (cons __tmp47317 __tmp47316)))) + (cons __tmp47319 __tmp47318)))) (declare (not safe)) - (cons __tmp47315 '())))) + (cons __tmp47317 '())))) (declare (not safe)) - (cons _L272_ __tmp47314)))) + (cons _L272_ __tmp47316)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4160941610_ (lambda (_L222_ _L224_ _L225_) - (let ((__tmp47318 - (let ((__tmp47319 + (let ((__tmp47320 + (let ((__tmp47321 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47320 - (let ((__tmp47322 + (let ((__tmp47322 + (let ((__tmp47324 (gx#datum->syntax '#f 'syntax)) - (__tmp47321 + (__tmp47323 (let () (declare (not safe)) (cons _L222_ '())))) (declare (not safe)) - (cons __tmp47322 __tmp47321)))) + (cons __tmp47324 __tmp47323)))) (declare (not safe)) - (cons __tmp47320 '())))) + (cons __tmp47322 '())))) (declare (not safe)) - (cons _L224_ __tmp47319)))) + (cons _L224_ __tmp47321)))) (declare (not safe)) - (cons _L225_ __tmp47318))))) + (cons _L225_ __tmp47320))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx4160441605_) @@ -178,14 +178,14 @@ (let () (declare (not safe)) (_g158185_)))))) - (let ((__tmp47323 + (let ((__tmp47325 (lambda (_g288291_ _g289294_) (let () (declare (not safe)) (cons _g288291_ _g289294_))))) (declare (not safe)) - (foldr1 __tmp47323 '() _L132_)))) + (foldr1 __tmp47325 '() _L132_)))) (_g300317_ (lambda (_g301313_) (gx#raise-syntax-error @@ -195,41 +195,41 @@ (_g299376_ (lambda (_g301321_) (if (gx#stx-pair/null? _g301321_) - (let ((_g47324_ + (let ((_g47326_ (gx#syntax-split-splice _g301321_ '0))) (begin - (let ((_g47325_ + (let ((_g47327_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47324_) - (##vector-length _g47324_) + _g47326_) + (##vector-length _g47326_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47325_ 2))) - (error "Context expects 2 values" _g47325_))) + (##fx= _g47327_ 2))) + (error "Context expects 2 values" _g47327_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target303324_ (let () (declare (not safe)) (##vector-ref - _g47324_ + _g47326_ 0))) (_tl305327_ (let () (declare (not safe)) (##vector-ref - _g47324_ + _g47326_ 1)))) (if (gx#stx-null? _tl305327_) @@ -254,46 +254,46 @@ (let ((_clause311350_ (reverse _clause310337_))) ((lambda (_L354_) - (let ((__tmp47337 + (let ((__tmp47339 (gx#datum->syntax '#f 'lambda%)) - (__tmp47326 - (let ((__tmp47335 - (let ((__tmp47336 + (__tmp47328 + (let ((__tmp47337 + (let ((__tmp47338 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp47336 '()))) - (__tmp47327 - (let ((__tmp47328 - (let ((__tmp47334 + (cons __tmp47338 '()))) + (__tmp47329 + (let ((__tmp47330 + (let ((__tmp47336 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp47329 - (let ((__tmp47333 (gx#datum->syntax '#f '$stx)) - (__tmp47330 - (let ((__tmp47331 - (let ((__tmp47332 + (__tmp47331 + (let ((__tmp47335 (gx#datum->syntax '#f '$stx)) + (__tmp47332 + (let ((__tmp47333 + (let ((__tmp47334 (lambda (_g367370_ _g368373_) (let () (declare (not safe)) (cons _g367370_ _g368373_))))) (declare (not safe)) - (foldr1 __tmp47332 '() _L354_)))) + (foldr1 __tmp47334 '() _L354_)))) (declare (not safe)) - (cons _L134_ __tmp47331)))) + (cons _L134_ __tmp47333)))) (declare (not safe)) - (cons __tmp47333 __tmp47330)))) + (cons __tmp47335 __tmp47332)))) (declare (not safe)) - (cons __tmp47334 __tmp47329)))) + (cons __tmp47336 __tmp47331)))) (declare (not safe)) - (cons __tmp47328 '())))) + (cons __tmp47330 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47335 __tmp47327)))) + (cons __tmp47337 __tmp47329)))) (declare (not safe)) - (cons __tmp47337 __tmp47326))) + (cons __tmp47339 __tmp47328))) _clause311350_)))))) (_loop306330_ _target303324_ '())) (_g300317_ _g301321_))))) @@ -323,81 +323,81 @@ ___stx4164841649_)))) (let ((___kont4165141652_ (lambda (_L816_) - (let ((__tmp47341 (gx#datum->syntax '#f 'let-values)) - (__tmp47338 - (let ((__tmp47339 - (let ((__tmp47340 + (let ((__tmp47343 (gx#datum->syntax '#f 'let-values)) + (__tmp47340 + (let ((__tmp47341 + (let ((__tmp47342 (lambda (_g832835_ _g833838_) (let () (declare (not safe)) (cons _g832835_ _g833838_))))) (declare (not safe)) - (foldr1 __tmp47340 '() _L816_)))) + (foldr1 __tmp47342 '() _L816_)))) (declare (not safe)) - (cons '() __tmp47339)))) + (cons '() __tmp47341)))) (declare (not safe)) - (cons __tmp47341 __tmp47338)))) + (cons __tmp47343 __tmp47340)))) (___kont4165541656_ (lambda (_L724_ _L726_ _L727_) - (let ((__tmp47352 (gx#datum->syntax '#f 'syntax-case)) - (__tmp47342 - (let ((__tmp47343 - (let ((__tmp47344 - (let ((__tmp47345 - (let ((__tmp47346 - (let ((__tmp47347 - (let ((__tmp47351 + (let ((__tmp47354 (gx#datum->syntax '#f 'syntax-case)) + (__tmp47344 + (let ((__tmp47345 + (let ((__tmp47346 + (let ((__tmp47347 + (let ((__tmp47348 + (let ((__tmp47349 + (let ((__tmp47353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let-values)) - (__tmp47348 - (let ((__tmp47349 - (let ((__tmp47350 + (__tmp47350 + (let ((__tmp47351 + (let ((__tmp47352 (lambda (_g750753_ _g751756_) (let () (declare (not safe)) (cons _g750753_ _g751756_))))) (declare (not safe)) - (foldr1 __tmp47350 '() _L724_)))) + (foldr1 __tmp47352 '() _L724_)))) (declare (not safe)) - (cons '() __tmp47349)))) + (cons '() __tmp47351)))) (declare (not safe)) - (cons __tmp47351 __tmp47348)))) + (cons __tmp47353 __tmp47350)))) (declare (not safe)) - (cons __tmp47347 '())))) + (cons __tmp47349 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L727_ __tmp47346)))) + (cons _L727_ __tmp47348)))) (declare (not safe)) - (cons __tmp47345 '())))) + (cons __tmp47347 '())))) (declare (not safe)) - (cons '() __tmp47344)))) + (cons '() __tmp47346)))) (declare (not safe)) - (cons _L726_ __tmp47343)))) + (cons _L726_ __tmp47345)))) (declare (not safe)) - (cons __tmp47352 __tmp47342)))) + (cons __tmp47354 __tmp47344)))) (___kont4165941660_ (lambda (_L587_ _L589_ _L590_) - (let ((__tmp47369 (gx#datum->syntax '#f 'syntax-case)) - (__tmp47353 - (let ((__tmp47365 - (let ((__tmp47368 + (let ((__tmp47371 (gx#datum->syntax '#f 'syntax-case)) + (__tmp47355 + (let ((__tmp47367 + (let ((__tmp47370 (gx#datum->syntax '#f 'list)) - (__tmp47366 - (let ((__tmp47367 + (__tmp47368 + (let ((__tmp47369 (lambda (_g616619_ _g617622_) (let () (declare (not safe)) (cons _g616619_ _g617622_))))) (declare (not safe)) - (foldr1 __tmp47367 '() _L589_)))) + (foldr1 __tmp47369 '() _L589_)))) (declare (not safe)) - (cons __tmp47368 __tmp47366))) - (__tmp47354 - (let ((__tmp47355 - (let ((__tmp47356 - (let ((__tmp47363 - (let ((__tmp47364 + (cons __tmp47370 __tmp47368))) + (__tmp47356 + (let ((__tmp47357 + (let ((__tmp47358 + (let ((__tmp47365 + (let ((__tmp47366 (lambda (_g614625_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g615628_) @@ -405,40 +405,40 @@ (declare (not safe)) (cons _g614625_ _g615628_))))) (declare (not safe)) - (foldr1 __tmp47364 '() _L590_))) + (foldr1 __tmp47366 '() _L590_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp47357 - (let ((__tmp47358 - (let ((__tmp47362 + (__tmp47359 + (let ((__tmp47360 + (let ((__tmp47364 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let-values)) - (__tmp47359 - (let ((__tmp47360 - (let ((__tmp47361 + (__tmp47361 + (let ((__tmp47362 + (let ((__tmp47363 (lambda (_g612631_ _g613634_) (let () (declare (not safe)) (cons _g612631_ _g613634_))))) (declare (not safe)) - (foldr1 __tmp47361 '() _L587_)))) + (foldr1 __tmp47363 '() _L587_)))) (declare (not safe)) - (cons '() __tmp47360)))) + (cons '() __tmp47362)))) (declare (not safe)) - (cons __tmp47362 __tmp47359)))) + (cons __tmp47364 __tmp47361)))) (declare (not safe)) - (cons __tmp47358 '())))) + (cons __tmp47360 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47363 - __tmp47357)))) + (cons __tmp47365 + __tmp47359)))) (declare (not safe)) - (cons __tmp47356 '())))) + (cons __tmp47358 '())))) (declare (not safe)) - (cons '() __tmp47355)))) + (cons '() __tmp47357)))) (declare (not safe)) - (cons __tmp47365 __tmp47354)))) + (cons __tmp47367 __tmp47356)))) (declare (not safe)) - (cons __tmp47369 __tmp47353))))) + (cons __tmp47371 __tmp47355))))) (let* ((___match4174941750_ (lambda (_e441483_ _hd440487_ @@ -1050,39 +1050,39 @@ ___stx4175241753_)))) (let ((___kont4175541756_ (lambda (_L1227_) - (let ((__tmp47373 (gx#datum->syntax '#f 'let-values)) - (__tmp47370 - (let ((__tmp47371 - (let ((__tmp47372 + (let ((__tmp47375 (gx#datum->syntax '#f 'let-values)) + (__tmp47372 + (let ((__tmp47373 + (let ((__tmp47374 (lambda (_g12431246_ _g12441249_) (let () (declare (not safe)) (cons _g12431246_ _g12441249_))))) (declare (not safe)) - (foldr1 __tmp47372 '() _L1227_)))) + (foldr1 __tmp47374 '() _L1227_)))) (declare (not safe)) - (cons '() __tmp47371)))) + (cons '() __tmp47373)))) (declare (not safe)) - (cons __tmp47373 __tmp47370)))) + (cons __tmp47375 __tmp47372)))) (___kont4175941760_ (lambda (_L1129_ _L1131_ _L1132_ _L1133_ _L1134_) - (let ((__tmp47383 (gx#datum->syntax '#f 'let-values)) - (__tmp47374 - (let ((__tmp47380 - (let ((__tmp47381 - (let ((__tmp47382 + (let ((__tmp47385 (gx#datum->syntax '#f 'let-values)) + (__tmp47376 + (let ((__tmp47382 + (let ((__tmp47383 + (let ((__tmp47384 (let () (declare (not safe)) (cons _L1132_ '())))) (declare (not safe)) - (cons _L1133_ __tmp47382)))) + (cons _L1133_ __tmp47384)))) (declare (not safe)) - (cons __tmp47381 '()))) - (__tmp47375 - (let ((__tmp47376 - (let ((__tmp47377 - (let ((__tmp47378 - (let ((__tmp47379 + (cons __tmp47383 '()))) + (__tmp47377 + (let ((__tmp47378 + (let ((__tmp47379 + (let ((__tmp47380 + (let ((__tmp47381 (lambda (_g11611164_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g11621167_) @@ -1090,31 +1090,31 @@ (declare (not safe)) (cons _g11611164_ _g11621167_))))) (declare (not safe)) - (foldr1 __tmp47379 '() _L1129_)))) + (foldr1 __tmp47381 '() _L1129_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1131_ __tmp47378)))) + (cons _L1131_ __tmp47380)))) (declare (not safe)) - (cons _L1134_ __tmp47377)))) + (cons _L1134_ __tmp47379)))) (declare (not safe)) - (cons __tmp47376 '())))) + (cons __tmp47378 '())))) (declare (not safe)) - (cons __tmp47380 __tmp47375)))) + (cons __tmp47382 __tmp47377)))) (declare (not safe)) - (cons __tmp47383 __tmp47374)))) + (cons __tmp47385 __tmp47376)))) (___kont4176341764_ (lambda (_L998_ _L1000_ _L1001_ _L1002_) - (let ((__tmp47391 (gx#datum->syntax '#f 'with-syntax)) - (__tmp47384 - (let ((__tmp47390 + (let ((__tmp47393 (gx#datum->syntax '#f 'with-syntax)) + (__tmp47386 + (let ((__tmp47392 (let () (declare (not safe)) (cons _L1001_ '()))) - (__tmp47385 - (let ((__tmp47386 - (let ((__tmp47387 - (let ((__tmp47388 - (let ((__tmp47389 + (__tmp47387 + (let ((__tmp47388 + (let ((__tmp47389 + (let ((__tmp47390 + (let ((__tmp47391 (lambda (_g10231026_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g10241029_) @@ -1122,18 +1122,18 @@ (declare (not safe)) (cons _g10231026_ _g10241029_))))) (declare (not safe)) - (foldr1 __tmp47389 '() _L998_)))) + (foldr1 __tmp47391 '() _L998_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1000_ __tmp47388)))) + (cons _L1000_ __tmp47390)))) (declare (not safe)) - (cons _L1002_ __tmp47387)))) + (cons _L1002_ __tmp47389)))) (declare (not safe)) - (cons __tmp47386 '())))) + (cons __tmp47388 '())))) (declare (not safe)) - (cons __tmp47390 __tmp47385)))) + (cons __tmp47392 __tmp47387)))) (declare (not safe)) - (cons __tmp47391 __tmp47384))))) + (cons __tmp47393 __tmp47386))))) (let* ((___match4186541866_ (lambda (_e910938_ _hd909942_ @@ -1345,7 +1345,7 @@ (let () (declare (not safe)) (##car _e8911079_)))) (if (gx#identifier? _hd8901083_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g47392_| + |gerbil/core$[1]#_g47394_| _hd8901083_) (if (gx#stx-pair? _tl8861076_) (let ((_e8941089_ (gx#syntax-e _tl8861076_))) @@ -1654,39 +1654,39 @@ (##cdr _e12741307_)))) (if (gx#stx-null? _tl12721314_) ((lambda (_L1317_ _L1319_) - (let ((__tmp47401 + (let ((__tmp47403 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp47393 - (let ((__tmp47398 - (let ((__tmp47400 + (__tmp47395 + (let ((__tmp47400 + (let ((__tmp47402 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp47399 + (__tmp47401 (let () (declare (not safe)) (cons _L1317_ '())))) (declare (not safe)) - (cons __tmp47400 __tmp47399))) - (__tmp47394 - (let ((__tmp47395 - (let ((__tmp47397 + (cons __tmp47402 __tmp47401))) + (__tmp47396 + (let ((__tmp47397 + (let ((__tmp47399 (gx#datum->syntax '#f 'stx-source)) - (__tmp47396 + (__tmp47398 (let () (declare (not safe)) (cons _L1319_ '())))) (declare (not safe)) - (cons __tmp47397 __tmp47396)))) + (cons __tmp47399 __tmp47398)))) (declare (not safe)) - (cons __tmp47395 '())))) + (cons __tmp47397 '())))) (declare (not safe)) - (cons __tmp47398 __tmp47394)))) + (cons __tmp47400 __tmp47396)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47401 - __tmp47393))) + (cons __tmp47403 + __tmp47395))) _hd12731311_ _hd12701301_) (_g12621280_ _g12631284_)))) diff --git a/src/bootstrap/gerbil/core__3.scm b/src/bootstrap/gerbil/core__3.scm index 5474022f9..d66066457 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]#_g47498_| + (define |gerbil/core$$[1]#_g47500_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47499_| + (define |gerbil/core$$[1]#_g47501_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47582_| + (define |gerbil/core$$[1]#_g47584_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47583_| + (define |gerbil/core$$[1]#_g47585_| (##structure gx#syntax-quote::t 'else @@ -66,37 +66,37 @@ (declare (not safe)) (##cdr _e13581400_)))) (if (gx#stx-pair/null? _tl13561407_) - (let ((_g47402_ + (let ((_g47404_ (gx#syntax-split-splice _tl13561407_ '0))) (begin - (let ((_g47403_ + (let ((_g47405_ (let () (declare (not safe)) (if (##values? - _g47402_) + _g47404_) (##vector-length - _g47402_) + _g47404_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47403_ 2))) - (error "Context expects 2 values" _g47403_))) + (##fx= _g47405_ 2))) + (error "Context expects 2 values" _g47405_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target13591410_ (let () (declare (not safe)) (##vector-ref - _g47402_ + _g47404_ 0))) (_tl13611413_ (let () (declare (not safe)) (##vector-ref - _g47402_ + _g47404_ 1)))) (if (gx#stx-null? _tl13611413_) @@ -123,37 +123,37 @@ (reverse _clauses13661423_))) ((lambda (_L1440_ _L1442_ _L1443_) (if (gx#identifier? _L1443_) - (let ((__tmp47411 + (let ((__tmp47413 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47404 - (let ((__tmp47405 - (let ((__tmp47406 - (let ((__tmp47410 + (__tmp47406 + (let ((__tmp47407 + (let ((__tmp47408 + (let ((__tmp47412 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules)) - (__tmp47407 - (let ((__tmp47408 - (let ((__tmp47409 + (__tmp47409 + (let ((__tmp47410 + (let ((__tmp47411 (lambda (_g14651468_ _g14661471_) (let () (declare (not safe)) (cons _g14651468_ _g14661471_))))) (declare (not safe)) - (foldr1 __tmp47409 '() _L1440_)))) + (foldr1 __tmp47411 '() _L1440_)))) (declare (not safe)) - (cons _L1442_ __tmp47408)))) + (cons _L1442_ __tmp47410)))) (declare (not safe)) - (cons __tmp47410 __tmp47407)))) + (cons __tmp47412 __tmp47409)))) (declare (not safe)) - (cons __tmp47406 '())))) + (cons __tmp47408 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1443_ __tmp47405)))) + (cons _L1443_ __tmp47407)))) (declare (not safe)) - (cons __tmp47411 __tmp47404)) + (cons __tmp47413 __tmp47406)) (_g13451373_ _g13461377_))) _clauses13671436_ _hd13571404_ @@ -177,15 +177,15 @@ ___stx4186841869_)))) (let ((___kont4187141872_ (lambda (_L1645_ _L1647_ _L1648_) - (let ((__tmp47419 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47412 - (let ((__tmp47413 - (let ((__tmp47414 - (let ((__tmp47418 + (let ((__tmp47421 (gx#datum->syntax '#f 'define-syntax)) + (__tmp47414 + (let ((__tmp47415 + (let ((__tmp47416 + (let ((__tmp47420 (gx#datum->syntax '#f 'lambda%)) - (__tmp47415 - (let ((__tmp47416 - (let ((__tmp47417 + (__tmp47417 + (let ((__tmp47418 + (let ((__tmp47419 (lambda (_g16671670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g16681673_) @@ -193,30 +193,30 @@ (declare (not safe)) (cons _g16671670_ _g16681673_))))) (declare (not safe)) - (foldr1 __tmp47417 '() _L1645_)))) + (foldr1 __tmp47419 '() _L1645_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1647_ __tmp47416)))) + (cons _L1647_ __tmp47418)))) (declare (not safe)) - (cons __tmp47418 __tmp47415)))) + (cons __tmp47420 __tmp47417)))) (declare (not safe)) - (cons __tmp47414 '())))) + (cons __tmp47416 '())))) (declare (not safe)) - (cons _L1648_ __tmp47413)))) + (cons _L1648_ __tmp47415)))) (declare (not safe)) - (cons __tmp47419 __tmp47412)))) + (cons __tmp47421 __tmp47414)))) (___kont4187541876_ (lambda (_L1560_ _L1562_) - (let ((__tmp47422 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47420 - (let ((__tmp47421 + (let ((__tmp47424 (gx#datum->syntax '#f 'define-syntax)) + (__tmp47422 + (let ((__tmp47423 (let () (declare (not safe)) (cons _L1560_ '())))) (declare (not safe)) - (cons _L1562_ __tmp47421)))) + (cons _L1562_ __tmp47423)))) (declare (not safe)) - (cons __tmp47422 __tmp47420))))) + (cons __tmp47424 __tmp47422))))) (let* ((___match4192341924_ (lambda (_e15111530_ _hd15101534_ @@ -500,22 +500,22 @@ (##cdr _e16971730_)))) (if (gx#stx-null? _tl16951737_) ((lambda (_L1740_ _L1742_) - (let ((__tmp47425 + (let ((__tmp47427 (gx#datum->syntax '#f 'define-alias)) - (__tmp47423 - (let ((__tmp47424 + (__tmp47425 + (let ((__tmp47426 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L1740_ '())))) (declare (not safe)) - (cons _L1742_ __tmp47424)))) + (cons _L1742_ __tmp47426)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47425 - __tmp47423))) + (cons __tmp47427 + __tmp47425))) _hd16961734_ _hd16931724_) (_g16851703_ _g16861707_)))) @@ -534,19 +534,19 @@ ___stx4192641927_)))) (let ((___kont4192941930_ (lambda (_L1928_ _L1930_ _L1931_) - (let ((__tmp47434 (gx#datum->syntax '#f 'define-values)) - (__tmp47426 - (let ((__tmp47433 + (let ((__tmp47436 (gx#datum->syntax '#f 'define-values)) + (__tmp47428 + (let ((__tmp47435 (let () (declare (not safe)) (cons _L1931_ '()))) - (__tmp47427 - (let ((__tmp47428 - (let ((__tmp47432 + (__tmp47429 + (let ((__tmp47430 + (let ((__tmp47434 (gx#datum->syntax '#f 'lambda%)) - (__tmp47429 - (let ((__tmp47430 - (let ((__tmp47431 + (__tmp47431 + (let ((__tmp47432 + (let ((__tmp47433 (lambda (_g19501953_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g19511956_) @@ -554,34 +554,34 @@ (declare (not safe)) (cons _g19501953_ _g19511956_))))) (declare (not safe)) - (foldr1 __tmp47431 '() _L1928_)))) + (foldr1 __tmp47433 '() _L1928_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1930_ __tmp47430)))) + (cons _L1930_ __tmp47432)))) (declare (not safe)) - (cons __tmp47432 __tmp47429)))) + (cons __tmp47434 __tmp47431)))) (declare (not safe)) - (cons __tmp47428 '())))) + (cons __tmp47430 '())))) (declare (not safe)) - (cons __tmp47433 __tmp47427)))) + (cons __tmp47435 __tmp47429)))) (declare (not safe)) - (cons __tmp47434 __tmp47426)))) + (cons __tmp47436 __tmp47428)))) (___kont4193341934_ (lambda (_L1843_ _L1845_) - (let ((__tmp47438 (gx#datum->syntax '#f 'define-values)) - (__tmp47435 - (let ((__tmp47437 + (let ((__tmp47440 (gx#datum->syntax '#f 'define-values)) + (__tmp47437 + (let ((__tmp47439 (let () (declare (not safe)) (cons _L1845_ '()))) - (__tmp47436 + (__tmp47438 (let () (declare (not safe)) (cons _L1843_ '())))) (declare (not safe)) - (cons __tmp47437 __tmp47436)))) + (cons __tmp47439 __tmp47438)))) (declare (not safe)) - (cons __tmp47438 __tmp47435))))) + (cons __tmp47440 __tmp47437))))) (let* ((___match4198141982_ (lambda (_e17941813_ _hd17931817_ @@ -833,33 +833,33 @@ ___stx4198441985_)))) (let ((___kont4198741988_ (lambda (_L2172_) - (let ((__tmp47442 (gx#datum->syntax '#f 'let-values)) - (__tmp47439 - (let ((__tmp47440 - (let ((__tmp47441 + (let ((__tmp47444 (gx#datum->syntax '#f 'let-values)) + (__tmp47441 + (let ((__tmp47442 + (let ((__tmp47443 (lambda (_g21882191_ _g21892194_) (let () (declare (not safe)) (cons _g21882191_ _g21892194_))))) (declare (not safe)) - (foldr1 __tmp47441 '() _L2172_)))) + (foldr1 __tmp47443 '() _L2172_)))) (declare (not safe)) - (cons '() __tmp47440)))) + (cons '() __tmp47442)))) (declare (not safe)) - (cons __tmp47442 __tmp47439)))) + (cons __tmp47444 __tmp47441)))) (___kont4199141992_ (lambda (_L2081_ _L2083_ _L2084_ _L2085_) - (let ((__tmp47450 (gx#datum->syntax '#f 'let-values)) - (__tmp47443 - (let ((__tmp47449 + (let ((__tmp47452 (gx#datum->syntax '#f 'let-values)) + (__tmp47445 + (let ((__tmp47451 (let () (declare (not safe)) (cons _L2084_ '()))) - (__tmp47444 - (let ((__tmp47445 - (let ((__tmp47446 - (let ((__tmp47447 - (let ((__tmp47448 + (__tmp47446 + (let ((__tmp47447 + (let ((__tmp47448 + (let ((__tmp47449 + (let ((__tmp47450 (lambda (_g21062109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g21072112_) @@ -867,18 +867,18 @@ (declare (not safe)) (cons _g21062109_ _g21072112_))))) (declare (not safe)) - (foldr1 __tmp47448 '() _L2081_)))) + (foldr1 __tmp47450 '() _L2081_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L2083_ __tmp47447)))) + (cons _L2083_ __tmp47449)))) (declare (not safe)) - (cons _L2085_ __tmp47446)))) + (cons _L2085_ __tmp47448)))) (declare (not safe)) - (cons __tmp47445 '())))) + (cons __tmp47447 '())))) (declare (not safe)) - (cons __tmp47449 __tmp47444)))) + (cons __tmp47451 __tmp47446)))) (declare (not safe)) - (cons __tmp47450 __tmp47443))))) + (cons __tmp47452 __tmp47445))))) (let* ((___match4204342044_ (lambda (_e19932021_ _hd19922025_ @@ -1069,78 +1069,78 @@ ___stx4204642047_)))) (let ((___kont4204942050_ (lambda (_L2478_ _L2480_ _L2481_ _L2482_ _L2483_) - (let ((__tmp47453 - (let ((__tmp47467 + (let ((__tmp47455 + (let ((__tmp47469 (gx#datum->syntax '#f 'letrec-values)) - (__tmp47454 - (let ((__tmp47456 - (let ((__tmp47457 - (let ((__tmp47466 + (__tmp47456 + (let ((__tmp47458 + (let ((__tmp47459 + (let ((__tmp47468 (let () (declare (not safe)) (cons _L2483_ '()))) - (__tmp47458 - (let ((__tmp47459 - (let ((__tmp47465 + (__tmp47460 + (let ((__tmp47461 + (let ((__tmp47467 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda%)) - (__tmp47460 - (let ((__tmp47463 - (let ((__tmp47464 + (__tmp47462 + (let ((__tmp47465 + (let ((__tmp47466 (lambda (_g25122515_ _g25132518_) (let () (declare (not safe)) (cons _g25122515_ _g25132518_))))) (declare (not safe)) - (foldr1 __tmp47464 _L2480_ _L2482_))) - (__tmp47461 - (let ((__tmp47462 + (foldr1 __tmp47466 _L2480_ _L2482_))) + (__tmp47463 + (let ((__tmp47464 (lambda (_g25102521_ _g25112524_) (let () (declare (not safe)) (cons _g25102521_ _g25112524_))))) (declare (not safe)) - (foldr1 __tmp47462 '() _L2478_)))) + (foldr1 __tmp47464 '() _L2478_)))) (declare (not safe)) - (cons __tmp47463 __tmp47461)))) + (cons __tmp47465 __tmp47463)))) (declare (not safe)) - (cons __tmp47465 __tmp47460)))) + (cons __tmp47467 __tmp47462)))) (declare (not safe)) - (cons __tmp47459 '())))) + (cons __tmp47461 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47466 - __tmp47458)))) + (cons __tmp47468 + __tmp47460)))) (declare (not safe)) - (cons __tmp47457 '()))) - (__tmp47455 + (cons __tmp47459 '()))) + (__tmp47457 (let () (declare (not safe)) (cons _L2483_ '())))) (declare (not safe)) - (cons __tmp47456 __tmp47455)))) + (cons __tmp47458 __tmp47457)))) (declare (not safe)) - (cons __tmp47467 __tmp47454))) - (__tmp47451 - (let ((__tmp47452 + (cons __tmp47469 __tmp47456))) + (__tmp47453 + (let ((__tmp47454 (lambda (_g25082527_ _g25092530_) (let () (declare (not safe)) (cons _g25082527_ _g25092530_))))) (declare (not safe)) - (foldr1 __tmp47452 '() _L2481_)))) + (foldr1 __tmp47454 '() _L2481_)))) (declare (not safe)) - (cons __tmp47453 __tmp47451)))) + (cons __tmp47455 __tmp47453)))) (___kont4205542056_ (lambda (_L2329_ _L2331_) - (let ((__tmp47473 (gx#datum->syntax '#f '~let)) - (__tmp47468 - (let ((__tmp47472 (gx#datum->syntax '#f 'let-values)) - (__tmp47469 - (let ((__tmp47470 - (let ((__tmp47471 + (let ((__tmp47475 (gx#datum->syntax '#f '~let)) + (__tmp47470 + (let ((__tmp47474 (gx#datum->syntax '#f 'let-values)) + (__tmp47471 + (let ((__tmp47472 + (let ((__tmp47473 (lambda (_g23482351_ _g23492354_) (let () @@ -1148,13 +1148,13 @@ (cons _g23482351_ _g23492354_))))) (declare (not safe)) - (foldr1 __tmp47471 '() _L2329_)))) + (foldr1 __tmp47473 '() _L2329_)))) (declare (not safe)) - (cons _L2331_ __tmp47470)))) + (cons _L2331_ __tmp47472)))) (declare (not safe)) - (cons __tmp47472 __tmp47469)))) + (cons __tmp47474 __tmp47471)))) (declare (not safe)) - (cons __tmp47473 __tmp47468))))) + (cons __tmp47475 __tmp47470))))) (let* ((___match4210342104_ (lambda (_e22542279_ _hd22532283_ @@ -1543,31 +1543,31 @@ (declare (not safe)) (##cdr _e25532585_)))) (if (gx#stx-pair/null? _tl25512592_) - (let ((_g47474_ + (let ((_g47476_ (gx#syntax-split-splice _tl25512592_ '0))) (begin - (let ((_g47475_ + (let ((_g47477_ (let () (declare (not safe)) - (if (##values? _g47474_) + (if (##values? _g47476_) (##vector-length - _g47474_) + _g47476_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47475_ 2))) + (##fx= _g47477_ 2))) (error "Context expects 2 values" - _g47475_))) + _g47477_))) (let ((_target25542595_ (let () (declare (not safe)) - (##vector-ref _g47474_ 0))) + (##vector-ref _g47476_ 0))) (_tl25562598_ (let () (declare (not safe)) - (##vector-ref _g47474_ 1)))) + (##vector-ref _g47476_ 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 ((__tmp47481 (gx#datum->syntax '#f '~let)) - (__tmp47476 - (let ((__tmp47480 + (let ((__tmp47483 (gx#datum->syntax '#f '~let)) + (__tmp47478 + (let ((__tmp47482 (gx#datum->syntax '#f 'let*-values)) - (__tmp47477 - (let ((__tmp47478 - (let ((__tmp47479 + (__tmp47479 + (let ((__tmp47480 + (let ((__tmp47481 (lambda (_g26442647_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g26452650_) @@ -1605,15 +1605,15 @@ (cons _g26442647_ _g26452650_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp47479 + (foldr1 __tmp47481 '() _L2625_)))) (declare (not safe)) - (cons _L2627_ __tmp47478)))) + (cons _L2627_ __tmp47480)))) (declare (not safe)) - (cons __tmp47480 __tmp47477)))) + (cons __tmp47482 __tmp47479)))) (declare (not safe)) - (cons __tmp47481 __tmp47476))) + (cons __tmp47483 __tmp47478))) _body25622621_ _hd25522589_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1656,31 +1656,31 @@ (declare (not safe)) (##cdr _e26712703_)))) (if (gx#stx-pair/null? _tl26692710_) - (let ((_g47482_ + (let ((_g47484_ (gx#syntax-split-splice _tl26692710_ '0))) (begin - (let ((_g47483_ + (let ((_g47485_ (let () (declare (not safe)) - (if (##values? _g47482_) + (if (##values? _g47484_) (##vector-length - _g47482_) + _g47484_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47483_ 2))) + (##fx= _g47485_ 2))) (error "Context expects 2 values" - _g47483_))) + _g47485_))) (let ((_target26722713_ (let () (declare (not safe)) - (##vector-ref _g47482_ 0))) + (##vector-ref _g47484_ 0))) (_tl26742716_ (let () (declare (not safe)) - (##vector-ref _g47482_ 1)))) + (##vector-ref _g47484_ 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 ((__tmp47489 (gx#datum->syntax '#f '~let)) - (__tmp47484 - (let ((__tmp47488 + (let ((__tmp47491 (gx#datum->syntax '#f '~let)) + (__tmp47486 + (let ((__tmp47490 (gx#datum->syntax '#f 'letrec-values)) - (__tmp47485 - (let ((__tmp47486 - (let ((__tmp47487 + (__tmp47487 + (let ((__tmp47488 + (let ((__tmp47489 (lambda (_g27622765_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g27632768_) @@ -1720,15 +1720,15 @@ (cons _g27622765_ _g27632768_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp47487 + (foldr1 __tmp47489 '() _L2743_)))) (declare (not safe)) - (cons _L2745_ __tmp47486)))) + (cons _L2745_ __tmp47488)))) (declare (not safe)) - (cons __tmp47488 __tmp47485)))) + (cons __tmp47490 __tmp47487)))) (declare (not safe)) - (cons __tmp47489 __tmp47484))) + (cons __tmp47491 __tmp47486))) _body26802739_ _hd26702707_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1771,31 +1771,31 @@ (declare (not safe)) (##cdr _e27892821_)))) (if (gx#stx-pair/null? _tl27872828_) - (let ((_g47490_ + (let ((_g47492_ (gx#syntax-split-splice _tl27872828_ '0))) (begin - (let ((_g47491_ + (let ((_g47493_ (let () (declare (not safe)) - (if (##values? _g47490_) + (if (##values? _g47492_) (##vector-length - _g47490_) + _g47492_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47491_ 2))) + (##fx= _g47493_ 2))) (error "Context expects 2 values" - _g47491_))) + _g47493_))) (let ((_target27902831_ (let () (declare (not safe)) - (##vector-ref _g47490_ 0))) + (##vector-ref _g47492_ 0))) (_tl27922834_ (let () (declare (not safe)) - (##vector-ref _g47490_ 1)))) + (##vector-ref _g47492_ 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 ((__tmp47497 (gx#datum->syntax '#f '~let)) - (__tmp47492 - (let ((__tmp47496 + (let ((__tmp47499 (gx#datum->syntax '#f '~let)) + (__tmp47494 + (let ((__tmp47498 (gx#datum->syntax '#f 'letrec*-values)) - (__tmp47493 - (let ((__tmp47494 - (let ((__tmp47495 + (__tmp47495 + (let ((__tmp47496 + (let ((__tmp47497 (lambda (_g28802883_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g28812886_) @@ -1835,15 +1835,15 @@ (cons _g28802883_ _g28812886_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp47495 + (foldr1 __tmp47497 '() _L2861_)))) (declare (not safe)) - (cons _L2863_ __tmp47494)))) + (cons _L2863_ __tmp47496)))) (declare (not safe)) - (cons __tmp47496 __tmp47493)))) + (cons __tmp47498 __tmp47495)))) (declare (not safe)) - (cons __tmp47497 __tmp47492))) + (cons __tmp47499 __tmp47494))) _body27982857_ _hd27882825_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1884,7 +1884,7 @@ (##car _e33863410_)))) (if (gx#identifier? _hd33853414_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47498_| + |gerbil/core$$[1]#_g47500_| _hd33853414_) (___kont4210942110_ _tl33843417_) (___kont4211142112_)) @@ -1914,7 +1914,7 @@ (##car _e33263350_)))) (if (gx#identifier? _hd33253354_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47499_| + |gerbil/core$$[1]#_g47501_| _hd33253354_) (___kont4212942130_ _tl33243357_) (___kont4213142132_)) @@ -1929,24 +1929,24 @@ ___stx4214642147_)))) (let ((___kont4214942150_ (lambda (_L3286_ _L3288_ _L3289_ _L3290_ _L3291_) - (let ((__tmp47500 - (let ((__tmp47501 - (let ((__tmp47502 - (let ((__tmp47503 - (let ((__tmp47504 + (let ((__tmp47502 + (let ((__tmp47503 + (let ((__tmp47504 + (let ((__tmp47505 + (let ((__tmp47506 (let () (declare (not safe)) (cons _L3288_ '())))) (declare (not safe)) - (cons _L3289_ __tmp47504)))) + (cons _L3289_ __tmp47506)))) (declare (not safe)) - (cons __tmp47503 '())))) + (cons __tmp47505 '())))) (declare (not safe)) - (cons __tmp47502 _L3286_)))) + (cons __tmp47504 _L3286_)))) (declare (not safe)) - (cons _L3290_ __tmp47501)))) + (cons _L3290_ __tmp47503)))) (declare (not safe)) - (cons _L3291_ __tmp47500)))) + (cons _L3291_ __tmp47502)))) (___kont4215142152_ (lambda (_L3089_ _L3091_ _L3092_ _L3093_) (let* ((_g31283145_ @@ -1958,30 +1958,30 @@ (_g31273217_ (lambda (_g31293149_) (if (gx#stx-pair/null? _g31293149_) - (let ((_g47505_ + (let ((_g47507_ (gx#syntax-split-splice _g31293149_ '0))) (begin - (let ((_g47506_ + (let ((_g47508_ (let () (declare (not safe)) - (if (##values? _g47505_) - (##vector-length _g47505_) + (if (##values? _g47507_) + (##vector-length _g47507_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47506_ 2))) + (##fx= _g47508_ 2))) (error "Context expects 2 values" - _g47506_))) + _g47508_))) (let ((_target31313152_ (let () (declare (not safe)) - (##vector-ref _g47505_ 0))) + (##vector-ref _g47507_ 0))) (_tl31333155_ (let () (declare (not safe)) - (##vector-ref _g47505_ 1)))) + (##vector-ref _g47507_ 1)))) (if (gx#stx-null? _tl31333155_) (letrec ((_loop31343158_ (lambda (_hd31323162_ @@ -2007,34 +2007,34 @@ (let ((_hd-bind31393178_ (reverse _hd-bind31383165_))) ((lambda (_L3182_) (let () - (let ((__tmp47507 - (let ((__tmp47510 + (let ((__tmp47509 + (let ((__tmp47512 (begin (gx#syntax-check-splice-targets _L3091_ _L3182_) - (let ((__tmp47511 + (let ((__tmp47513 (lambda (_g31993203_ _g32003206_ _g32013208_) - (let ((__tmp47512 - (let ((__tmp47513 + (let ((__tmp47514 + (let ((__tmp47515 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _g31993203_ '())))) (declare (not safe)) - (cons _g32003206_ __tmp47513)))) + (cons _g32003206_ __tmp47515)))) (declare (not safe)) - (cons __tmp47512 _g32013208_))))) + (cons __tmp47514 _g32013208_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp47511 + (foldr2 __tmp47513 '() _L3091_ _L3182_)))) - (__tmp47508 - (let ((__tmp47509 + (__tmp47510 + (let ((__tmp47511 (lambda (_g31973211_ _g31983214_) (let () @@ -2042,11 +2042,11 @@ (cons _g31973211_ _g31983214_))))) (declare (not safe)) - (foldr1 __tmp47509 '() _L3089_)))) + (foldr1 __tmp47511 '() _L3089_)))) (declare (not safe)) - (cons __tmp47510 __tmp47508)))) + (cons __tmp47512 __tmp47510)))) (declare (not safe)) - (cons _L3093_ __tmp47507)))) + (cons _L3093_ __tmp47509)))) _hd-bind31393178_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop31343158_ @@ -2057,13 +2057,13 @@ (_g31273217_ (gx#stx-map _let-head2899_ - (let ((__tmp47514 + (let ((__tmp47516 (lambda (_g32203223_ _g32213226_) (let () (declare (not safe)) (cons _g32203223_ _g32213226_))))) (declare (not safe)) - (foldr1 __tmp47514 '() _L3092_)))))))) + (foldr1 __tmp47516 '() _L3092_)))))))) (let* ((___match4221542216_ (lambda (_e29302975_ _hd29292979_ @@ -2178,14 +2178,14 @@ (_L3093_ _hd29322989_)) (if (gx#stx-andmap _let-head?2897_ - (let ((__tmp47515 + (let ((__tmp47517 (lambda (_g31193122_ _g31203125_) (let () (declare (not safe)) (cons _g31193122_ _g31203125_))))) (declare (not safe)) - (foldr1 __tmp47515 '() _L3092_))) + (foldr1 __tmp47517 '() _L3092_))) (___kont4215142152_ _L3089_ _L3091_ @@ -2452,23 +2452,23 @@ (___kont4222342224_ (lambda (_L3544_) _L3544_)) (___kont4222542226_ (lambda (_L3499_ _L3501_ _L3502_) - (let ((__tmp47520 (gx#datum->syntax '#f 'if)) - (__tmp47516 - (let ((__tmp47517 - (let ((__tmp47519 + (let ((__tmp47522 (gx#datum->syntax '#f 'if)) + (__tmp47518 + (let ((__tmp47519 + (let ((__tmp47521 (let () (declare (not safe)) (cons _L3502_ _L3499_))) - (__tmp47518 + (__tmp47520 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp47519 __tmp47518)))) + (cons __tmp47521 __tmp47520)))) (declare (not safe)) - (cons _L3501_ __tmp47517)))) + (cons _L3501_ __tmp47519)))) (declare (not safe)) - (cons __tmp47520 __tmp47516))))) + (cons __tmp47522 __tmp47518))))) (if (gx#stx-pair? ___stx4221842219_) (let ((_e34503564_ (gx#syntax-e ___stx4221842219_))) (let ((_tl34483571_ @@ -2508,52 +2508,52 @@ (___kont4226942270_ (lambda (_L3686_) _L3686_)) (___kont4227142272_ (lambda (_L3641_ _L3643_ _L3644_) - (let ((__tmp47534 (gx#datum->syntax '#f 'let)) - (__tmp47521 - (let ((__tmp47531 - (let ((__tmp47533 (gx#datum->syntax '#f '$e)) - (__tmp47532 + (let ((__tmp47536 (gx#datum->syntax '#f 'let)) + (__tmp47523 + (let ((__tmp47533 + (let ((__tmp47535 (gx#datum->syntax '#f '$e)) + (__tmp47534 (let () (declare (not safe)) (cons _L3643_ '())))) (declare (not safe)) - (cons __tmp47533 __tmp47532))) - (__tmp47522 - (let ((__tmp47523 - (let ((__tmp47530 + (cons __tmp47535 __tmp47534))) + (__tmp47524 + (let ((__tmp47525 + (let ((__tmp47532 (gx#datum->syntax '#f 'if)) - (__tmp47524 - (let ((__tmp47529 + (__tmp47526 + (let ((__tmp47531 (gx#datum->syntax '#f '$e)) - (__tmp47525 - (let ((__tmp47528 + (__tmp47527 + (let ((__tmp47530 (gx#datum->syntax '#f '$e)) - (__tmp47526 - (let ((__tmp47527 + (__tmp47528 + (let ((__tmp47529 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L3644_ _L3641_)))) (declare (not safe)) - (cons __tmp47527 '())))) + (cons __tmp47529 '())))) (declare (not safe)) - (cons __tmp47528 __tmp47526)))) + (cons __tmp47530 __tmp47528)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47529 - __tmp47525)))) + (cons __tmp47531 + __tmp47527)))) (declare (not safe)) - (cons __tmp47530 __tmp47524)))) + (cons __tmp47532 __tmp47526)))) (declare (not safe)) - (cons __tmp47523 '())))) + (cons __tmp47525 '())))) (declare (not safe)) - (cons __tmp47531 __tmp47522)))) + (cons __tmp47533 __tmp47524)))) (declare (not safe)) - (cons __tmp47534 __tmp47521))))) + (cons __tmp47536 __tmp47523))))) (if (gx#stx-pair? ___stx4226442265_) (let ((_e35923706_ (gx#syntax-e ___stx4226442265_))) (let ((_tl35903713_ @@ -2592,13 +2592,13 @@ (let ((___kont4231342314_ (lambda () '#!void)) (___kont4231542316_ (lambda (_L4171_) - (let ((__tmp47540 (gx#datum->syntax '#f '%#expression)) - (__tmp47535 - (let ((__tmp47536 - (let ((__tmp47539 + (let ((__tmp47542 (gx#datum->syntax '#f '%#expression)) + (__tmp47537 + (let ((__tmp47538 + (let ((__tmp47541 (gx#datum->syntax '#f 'begin)) - (__tmp47537 - (let ((__tmp47538 + (__tmp47539 + (let ((__tmp47540 (lambda (_g41904193_ _g41914196_) (let () @@ -2606,131 +2606,131 @@ (cons _g41904193_ _g41914196_))))) (declare (not safe)) - (foldr1 __tmp47538 '() _L4171_)))) + (foldr1 __tmp47540 '() _L4171_)))) (declare (not safe)) - (cons __tmp47539 __tmp47537)))) + (cons __tmp47541 __tmp47539)))) (declare (not safe)) - (cons __tmp47536 '())))) + (cons __tmp47538 '())))) (declare (not safe)) - (cons __tmp47540 __tmp47535)))) + (cons __tmp47542 __tmp47537)))) (___kont4231942320_ (lambda () - (let ((__tmp47542 (gx#datum->syntax '#f 'syntax-error)) - (__tmp47541 + (let ((__tmp47544 (gx#datum->syntax '#f 'syntax-error)) + (__tmp47543 (let () (declare (not safe)) (cons '"bad syntax; misplaced else" '())))) (declare (not safe)) - (cons __tmp47542 __tmp47541)))) + (cons __tmp47544 __tmp47543)))) (___kont4232142322_ (lambda (_L4044_ _L4046_ _L4047_) - (let ((__tmp47556 (gx#datum->syntax '#f 'let)) - (__tmp47543 - (let ((__tmp47553 - (let ((__tmp47555 (gx#datum->syntax '#f '$e)) - (__tmp47554 + (let ((__tmp47558 (gx#datum->syntax '#f 'let)) + (__tmp47545 + (let ((__tmp47555 + (let ((__tmp47557 (gx#datum->syntax '#f '$e)) + (__tmp47556 (let () (declare (not safe)) (cons _L4046_ '())))) (declare (not safe)) - (cons __tmp47555 __tmp47554))) - (__tmp47544 - (let ((__tmp47545 - (let ((__tmp47552 + (cons __tmp47557 __tmp47556))) + (__tmp47546 + (let ((__tmp47547 + (let ((__tmp47554 (gx#datum->syntax '#f 'if)) - (__tmp47546 - (let ((__tmp47551 + (__tmp47548 + (let ((__tmp47553 (gx#datum->syntax '#f '$e)) - (__tmp47547 - (let ((__tmp47550 + (__tmp47549 + (let ((__tmp47552 (gx#datum->syntax '#f '$e)) - (__tmp47548 - (let ((__tmp47549 + (__tmp47550 + (let ((__tmp47551 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L4047_ _L4044_)))) (declare (not safe)) - (cons __tmp47549 '())))) + (cons __tmp47551 '())))) (declare (not safe)) - (cons __tmp47550 __tmp47548)))) + (cons __tmp47552 __tmp47550)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47551 - __tmp47547)))) + (cons __tmp47553 + __tmp47549)))) (declare (not safe)) - (cons __tmp47552 __tmp47546)))) + (cons __tmp47554 __tmp47548)))) (declare (not safe)) - (cons __tmp47545 '())))) + (cons __tmp47547 '())))) (declare (not safe)) - (cons __tmp47553 __tmp47544)))) + (cons __tmp47555 __tmp47546)))) (declare (not safe)) - (cons __tmp47556 __tmp47543)))) + (cons __tmp47558 __tmp47545)))) (___kont4232342324_ (lambda (_L3982_ _L3984_ _L3985_ _L3986_) - (let ((__tmp47572 (gx#datum->syntax '#f 'let)) - (__tmp47557 - (let ((__tmp47569 - (let ((__tmp47571 (gx#datum->syntax '#f '$e)) - (__tmp47570 + (let ((__tmp47574 (gx#datum->syntax '#f 'let)) + (__tmp47559 + (let ((__tmp47571 + (let ((__tmp47573 (gx#datum->syntax '#f '$e)) + (__tmp47572 (let () (declare (not safe)) (cons _L3985_ '())))) (declare (not safe)) - (cons __tmp47571 __tmp47570))) - (__tmp47558 - (let ((__tmp47559 - (let ((__tmp47568 + (cons __tmp47573 __tmp47572))) + (__tmp47560 + (let ((__tmp47561 + (let ((__tmp47570 (gx#datum->syntax '#f 'if)) - (__tmp47560 - (let ((__tmp47567 + (__tmp47562 + (let ((__tmp47569 (gx#datum->syntax '#f '$e)) - (__tmp47561 - (let ((__tmp47564 - (let ((__tmp47565 + (__tmp47563 + (let ((__tmp47566 + (let ((__tmp47567 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47566 (gx#datum->syntax '#f '$e))) + (let ((__tmp47568 (gx#datum->syntax '#f '$e))) (declare (not safe)) - (cons __tmp47566 '())))) + (cons __tmp47568 '())))) (declare (not safe)) - (cons _L3984_ __tmp47565))) - (__tmp47562 - (let ((__tmp47563 + (cons _L3984_ __tmp47567))) + (__tmp47564 + (let ((__tmp47565 (let () (declare (not safe)) (cons _L3986_ _L3982_)))) (declare (not safe)) - (cons __tmp47563 '())))) + (cons __tmp47565 '())))) (declare (not safe)) - (cons __tmp47564 __tmp47562)))) + (cons __tmp47566 __tmp47564)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47567 - __tmp47561)))) + (cons __tmp47569 + __tmp47563)))) (declare (not safe)) - (cons __tmp47568 __tmp47560)))) + (cons __tmp47570 __tmp47562)))) (declare (not safe)) - (cons __tmp47559 '())))) + (cons __tmp47561 '())))) (declare (not safe)) - (cons __tmp47569 __tmp47558)))) + (cons __tmp47571 __tmp47560)))) (declare (not safe)) - (cons __tmp47572 __tmp47557)))) + (cons __tmp47574 __tmp47559)))) (___kont4232542326_ (lambda (_L3891_ _L3893_ _L3894_ _L3895_) - (let ((__tmp47581 (gx#datum->syntax '#f 'if)) - (__tmp47573 - (let ((__tmp47574 - (let ((__tmp47577 - (let ((__tmp47580 + (let ((__tmp47583 (gx#datum->syntax '#f 'if)) + (__tmp47575 + (let ((__tmp47576 + (let ((__tmp47579 + (let ((__tmp47582 (gx#datum->syntax '#f 'begin)) - (__tmp47578 - (let ((__tmp47579 + (__tmp47580 + (let ((__tmp47581 (lambda (_g39163919_ _g39173922_) (let () @@ -2738,24 +2738,24 @@ (cons _g39163919_ _g39173922_))))) (declare (not safe)) - (foldr1 __tmp47579 + (foldr1 __tmp47581 '() _L3893_)))) (declare (not safe)) - (cons __tmp47580 __tmp47578))) - (__tmp47575 - (let ((__tmp47576 + (cons __tmp47582 __tmp47580))) + (__tmp47577 + (let ((__tmp47578 (let () (declare (not safe)) (cons _L3895_ _L3891_)))) (declare (not safe)) - (cons __tmp47576 '())))) + (cons __tmp47578 '())))) (declare (not safe)) - (cons __tmp47577 __tmp47575)))) + (cons __tmp47579 __tmp47577)))) (declare (not safe)) - (cons _L3894_ __tmp47574)))) + (cons _L3894_ __tmp47576)))) (declare (not safe)) - (cons __tmp47581 __tmp47573))))) + (cons __tmp47583 __tmp47575))))) (let* ((___match4247142472_ (lambda (_e38033831_ _hd38023835_ @@ -2865,7 +2865,7 @@ (##car _e37474131_)))) (if (gx#identifier? _hd37464135_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47583_| + |gerbil/core$$[1]#_g47585_| _hd37464135_) (if (gx#stx-pair/null? _tl37454138_) @@ -2916,7 +2916,7 @@ (let () (declare (not safe)) (##car _e37933962_)))) (if (gx#identifier? _hd37923966_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47582_| + |gerbil/core$$[1]#_g47584_| _hd37923966_) (if (gx#stx-pair? _tl37913969_) (let ((_e37963972_ @@ -3125,7 +3125,7 @@ (let () (declare (not safe)) (##car _e37933962_)))) (if (gx#identifier? _hd37923966_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47582_| + |gerbil/core$$[1]#_g47584_| _hd37923966_) (if (gx#stx-pair? _tl37913969_) (let ((_e37963972_ (gx#syntax-e _tl37913969_))) @@ -3341,31 +3341,31 @@ (declare (not safe)) (##cdr _e42394271_)))) (if (gx#stx-pair/null? _tl42374278_) - (let ((_g47584_ + (let ((_g47586_ (gx#syntax-split-splice _tl42374278_ '0))) (begin - (let ((_g47585_ + (let ((_g47587_ (let () (declare (not safe)) - (if (##values? _g47584_) + (if (##values? _g47586_) (##vector-length - _g47584_) + _g47586_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47585_ 2))) + (##fx= _g47587_ 2))) (error "Context expects 2 values" - _g47585_))) + _g47587_))) (let ((_target42404281_ (let () (declare (not safe)) - (##vector-ref _g47584_ 0))) + (##vector-ref _g47586_ 0))) (_tl42424284_ (let () (declare (not safe)) - (##vector-ref _g47584_ 1)))) + (##vector-ref _g47586_ 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 ((__tmp47593 (gx#datum->syntax '#f 'if)) - (__tmp47586 - (let ((__tmp47587 - (let ((__tmp47589 - (let ((__tmp47592 + (let ((__tmp47595 (gx#datum->syntax '#f 'if)) + (__tmp47588 + (let ((__tmp47589 + (let ((__tmp47591 + (let ((__tmp47594 (gx#datum->syntax '#f 'begin)) - (__tmp47590 - (let ((__tmp47591 + (__tmp47592 + (let ((__tmp47593 (lambda (_g43304333_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g43314336_) @@ -3405,21 +3405,21 @@ (declare (not safe)) (cons _g43304333_ _g43314336_))))) (declare (not safe)) - (foldr1 __tmp47591 '() _L4311_)))) + (foldr1 __tmp47593 '() _L4311_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47592 - __tmp47590))) - (__tmp47588 + (cons __tmp47594 + __tmp47592))) + (__tmp47590 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp47589 __tmp47588)))) + (cons __tmp47591 __tmp47590)))) (declare (not safe)) - (cons _L4313_ __tmp47587)))) + (cons _L4313_ __tmp47589)))) (declare (not safe)) - (cons __tmp47593 __tmp47586))) + (cons __tmp47595 __tmp47588))) _expr42484307_ _hd42384275_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3462,31 +3462,31 @@ (declare (not safe)) (##cdr _e43574389_)))) (if (gx#stx-pair/null? _tl43554396_) - (let ((_g47594_ + (let ((_g47596_ (gx#syntax-split-splice _tl43554396_ '0))) (begin - (let ((_g47595_ + (let ((_g47597_ (let () (declare (not safe)) - (if (##values? _g47594_) + (if (##values? _g47596_) (##vector-length - _g47594_) + _g47596_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47595_ 2))) + (##fx= _g47597_ 2))) (error "Context expects 2 values" - _g47595_))) + _g47597_))) (let ((_target43584399_ (let () (declare (not safe)) - (##vector-ref _g47594_ 0))) + (##vector-ref _g47596_ 0))) (_tl43604402_ (let () (declare (not safe)) - (##vector-ref _g47594_ 1)))) + (##vector-ref _g47596_ 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 ((__tmp47603 (gx#datum->syntax '#f 'if)) - (__tmp47596 - (let ((__tmp47597 - (let ((__tmp47598 - (let ((__tmp47599 - (let ((__tmp47602 + (let ((__tmp47605 (gx#datum->syntax '#f 'if)) + (__tmp47598 + (let ((__tmp47599 + (let ((__tmp47600 + (let ((__tmp47601 + (let ((__tmp47604 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin)) - (__tmp47600 - (let ((__tmp47601 + (__tmp47602 + (let ((__tmp47603 (lambda (_g44484451_ _g44494454_) (let () (declare (not safe)) (cons _g44484451_ _g44494454_))))) (declare (not safe)) - (foldr1 __tmp47601 '() _L4429_)))) + (foldr1 __tmp47603 '() _L4429_)))) (declare (not safe)) - (cons __tmp47602 __tmp47600)))) + (cons __tmp47604 __tmp47602)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47599 '())))) + (cons __tmp47601 '())))) (declare (not safe)) - (cons '#!void __tmp47598)))) + (cons '#!void __tmp47600)))) (declare (not safe)) - (cons _L4431_ __tmp47597)))) + (cons _L4431_ __tmp47599)))) (declare (not safe)) - (cons __tmp47603 __tmp47596))) + (cons __tmp47605 __tmp47598))) _expr43664425_ _hd43564393_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3580,31 +3580,31 @@ (declare (not safe)) (##cdr _e44744506_)))) (if (gx#stx-pair/null? _tl44724513_) - (let ((_g47604_ + (let ((_g47606_ (gx#syntax-split-splice _tl44724513_ '0))) (begin - (let ((_g47605_ + (let ((_g47607_ (let () (declare (not safe)) - (if (##values? _g47604_) + (if (##values? _g47606_) (##vector-length - _g47604_) + _g47606_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47605_ 2))) + (##fx= _g47607_ 2))) (error "Context expects 2 values" - _g47605_))) + _g47607_))) (let ((_target44754516_ (let () (declare (not safe)) - (##vector-ref _g47604_ 0))) + (##vector-ref _g47606_ 0))) (_tl44774519_ (let () (declare (not safe)) - (##vector-ref _g47604_ 1)))) + (##vector-ref _g47606_ 1)))) (if (gx#stx-null? _tl44774519_) (letrec ((_loop44784522_ (lambda (_hd44764526_ @@ -3633,7 +3633,7 @@ (gx#stx-e _L4548_) _stx4462_ (gx#syntax->list - (let ((__tmp47606 + (let ((__tmp47608 (lambda (_g45654568_ _g45664571_) (let () @@ -3641,7 +3641,7 @@ (cons _g45654568_ _g45664571_))))) (declare (not safe)) - (foldr1 __tmp47606 '() _L4546_)))) + (foldr1 __tmp47608 '() _L4546_)))) (_g44654489_ _g44664493_))) _detail44834542_ _hd44734510_)))))) @@ -3697,52 +3697,52 @@ (##cdr _e45954628_)))) (if (gx#stx-null? _tl45934635_) ((lambda (_L4638_ _L4640_) - (let ((__tmp47620 + (let ((__tmp47622 (gx#datum->syntax '#f 'begin)) - (__tmp47607 - (let ((__tmp47616 - (let ((__tmp47619 + (__tmp47609 + (let ((__tmp47618 + (let ((__tmp47621 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'def)) - (__tmp47617 - (let ((__tmp47618 + (__tmp47619 + (let ((__tmp47620 (let () (declare (not safe)) (cons _L4638_ '())))) (declare (not safe)) - (cons _L4640_ __tmp47618)))) + (cons _L4640_ __tmp47620)))) (declare (not safe)) - (cons __tmp47619 __tmp47617))) - (__tmp47608 - (let ((__tmp47612 - (let ((__tmp47615 (gx#datum->syntax '#f 'set!)) - (__tmp47613 - (let ((__tmp47614 + (cons __tmp47621 __tmp47619))) + (__tmp47610 + (let ((__tmp47614 + (let ((__tmp47617 (gx#datum->syntax '#f 'set!)) + (__tmp47615 + (let ((__tmp47616 (let () (declare (not safe)) (cons _L4640_ '())))) (declare (not safe)) - (cons _L4640_ __tmp47614)))) + (cons _L4640_ __tmp47616)))) (declare (not safe)) - (cons __tmp47615 __tmp47613))) - (__tmp47609 - (let ((__tmp47610 - (let ((__tmp47611 + (cons __tmp47617 __tmp47615))) + (__tmp47611 + (let ((__tmp47612 + (let ((__tmp47613 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp47611 '())))) + (cons __tmp47613 '())))) (declare (not safe)) - (cons __tmp47610 '())))) + (cons __tmp47612 '())))) (declare (not safe)) - (cons __tmp47612 __tmp47609)))) + (cons __tmp47614 __tmp47611)))) (declare (not safe)) - (cons __tmp47616 __tmp47608)))) + (cons __tmp47618 __tmp47610)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47620 - __tmp47607))) + (cons __tmp47622 + __tmp47609))) _hd45944632_ _hd45914622_) (_g45834601_ _g45844605_)))) diff --git a/src/bootstrap/gerbil/core__4.scm b/src/bootstrap/gerbil/core__4.scm index 93bdc5955..3c862d947 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]#_g47845_| + (define |gerbil/core$$[1]#_g47847_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47846_| + (define |gerbil/core$$[1]#_g47848_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47847_| + (define |gerbil/core$$[1]#_g47849_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48677_| + (define |gerbil/core$$[1]#_g48679_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48680_| + (define |gerbil/core$$[1]#_g48682_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48681_| + (define |gerbil/core$$[1]#_g48683_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48754_| + (define |gerbil/core$$[1]#_g48756_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48755_| + (define |gerbil/core$$[1]#_g48757_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48757_| + (define |gerbil/core$$[1]#_g48759_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48758_| + (define |gerbil/core$$[1]#_g48760_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48803_| + (define |gerbil/core$$[1]#_g48805_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48804_| + (define |gerbil/core$$[1]#_g48806_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48805_| + (define |gerbil/core$$[1]#_g48807_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48806_| + (define |gerbil/core$$[1]#_g48808_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48818_| + (define |gerbil/core$$[1]#_g48820_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48819_| + (define |gerbil/core$$[1]#_g48821_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (begin (define |gerbil/core$$[:0:]#lambda| @@ -233,24 +233,24 @@ (_lp7768_ _L7817_ _pre7773_ - (let ((__tmp47621 - (let ((__tmp47622 + (let ((__tmp47623 + (let ((__tmp47624 (_generate-bind4670_ _L7890_))) (declare (not safe)) - (cons __tmp47622 + (cons __tmp47624 _L7888_)))) (declare (not safe)) - (cons __tmp47621 _opt7774_))))) + (cons __tmp47623 _opt7774_))))) (___kont4251942520_ (lambda () (_lp7768_ _L7817_ - (let ((__tmp47623 + (let ((__tmp47625 (_generate-bind4670_ _L7819_))) (declare (not safe)) - (cons __tmp47623 _pre7773_)) + (cons __tmp47625 _pre7773_)) _opt7774_)))) (if (gx#stx-pair? ___stx4251442515_) (let ((_e78417868_ @@ -540,15 +540,15 @@ (let ((___kont4267942680_ (lambda (_L7330_ _L7332_ _L7333_) (let ((_key7347_ (gx#stx-e _L7333_))) - (if (let ((__tmp47629 + (if (let ((__tmp47631 (lambda (_kwarg7350_) - (let ((__tmp47630 + (let ((__tmp47632 (car _kwarg7350_))) (declare (not safe)) (eq? _key7347_ - __tmp47630))))) + __tmp47632))))) (declare (not safe)) - (find __tmp47629 _kwargs7175_)) + (find __tmp47631 _kwargs7175_)) (gx#raise-syntax-error '#f '"bad syntax; duplicate keyword argument" @@ -567,7 +567,7 @@ (_lp7169_ _L7330_ _kwvar7174_ - (let ((__tmp47624 + (let ((__tmp47626 (list _key7347_ (_generate-bind4670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -575,7 +575,7 @@ _L7407_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47624 + (cons __tmp47626 _kwargs7175_)) _args7176_))) (___kont4265742658_ @@ -583,25 +583,25 @@ (_lp7169_ _L7330_ _kwvar7174_ - (let ((__tmp47625 + (let ((__tmp47627 (list _key7347_ (_generate-bind4670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L7332_) - (let ((__tmp47628 (gx#datum->syntax '#f 'error)) - (__tmp47626 - (let ((__tmp47627 + (let ((__tmp47630 (gx#datum->syntax '#f 'error)) + (__tmp47628 + (let ((__tmp47629 (let () (declare (not safe)) (cons _L7333_ '())))) (declare (not safe)) (cons '"Missing required keyword argument" - __tmp47627)))) + __tmp47629)))) (declare (not safe)) - (cons __tmp47628 __tmp47626))))) + (cons __tmp47630 __tmp47628))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47625 + (cons __tmp47627 _kwargs7175_)) _args7176_)))) (if (gx#stx-pair? ___stx4265242653_) @@ -877,10 +877,10 @@ (_g69917003_ _g69927007_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g69907105_ _L6914_)) - (if (let ((__tmp47631 + (if (let ((__tmp47633 (gx#stx-e _L6916_))) (declare (not safe)) - (eq? __tmp47631 '#!key)) + (eq? __tmp47633 '#!key)) (let* ((_g71097121_ (lambda (_g71107117_) (gx#raise-syntax-error @@ -957,34 +957,34 @@ (declare (not safe)) (##cdr _e66666706_)))) (if (gx#stx-pair/null? _hd66656710_) - (let ((_g47632_ + (let ((_g47634_ (gx#syntax-split-splice _hd66656710_ '0))) (begin - (let ((_g47633_ + (let ((_g47635_ (let () (declare (not safe)) - (if (##values? _g47632_) + (if (##values? _g47634_) (##vector-length - _g47632_) + _g47634_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47633_ 2))) + (##fx= _g47635_ 2))) (error "Context expects 2 values" - _g47633_))) + _g47635_))) (let ((_target66676716_ (let () (declare (not safe)) (##vector-ref - _g47632_ + _g47634_ 0))) (_tl66696719_ (let () (declare (not safe)) (##vector-ref - _g47632_ + _g47634_ 1)))) (if (gx#stx-null? _tl66696719_) (letrec ((_loop66706722_ @@ -1019,34 +1019,34 @@ (declare (not safe)) (##cdr _e66786746_)))) (if (gx#stx-pair/null? _hd66776750_) - (let ((_g47634_ + (let ((_g47636_ (gx#syntax-split-splice _hd66776750_ '0))) (begin - (let ((_g47635_ + (let ((_g47637_ (let () (declare (not safe)) - (if (##values? _g47634_) + (if (##values? _g47636_) (##vector-length - _g47634_) + _g47636_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47635_ 2))) + (##fx= _g47637_ 2))) (error "Context expects 2 values" - _g47635_))) + _g47637_))) (let ((_target66796756_ (let () (declare (not safe)) (##vector-ref - _g47634_ + _g47636_ 0))) (_tl66816759_ (let () (declare (not safe)) (##vector-ref - _g47634_ + _g47636_ 1)))) (if (gx#stx-null? _tl66816759_) (letrec ((_loop66826762_ @@ -1097,33 +1097,33 @@ _L6809_ _L6810_) (let () - (let ((__tmp47641 + (let ((__tmp47643 (gx#datum->syntax '#f 'lambda%)) - (__tmp47636 - (let ((__tmp47637 + (__tmp47638 + (let ((__tmp47639 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47640 + (let ((__tmp47642 (lambda (_g68396844_ _g68406847_) (let () (declare (not safe)) (cons _g68396844_ _g68406847_)))) - (__tmp47638 - (let ((__tmp47639 + (__tmp47640 + (let ((__tmp47641 (lambda (_g68416850_ _g68426853_) (let () (declare (not safe)) (cons _g68416850_ _g68426853_))))) (declare (not safe)) - (foldr1 __tmp47639 _L6808_ _L6809_)))) + (foldr1 __tmp47641 _L6808_ _L6809_)))) (declare (not safe)) - (foldr1 __tmp47640 __tmp47638 _L6810_)))) + (foldr1 __tmp47642 __tmp47640 _L6810_)))) (declare (not safe)) - (cons __tmp47637 _L6806_)))) + (cons __tmp47639 _L6806_)))) (declare (not safe)) - (cons __tmp47641 __tmp47636)))) + (cons __tmp47643 __tmp47638)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd66926800_ _hd66896790_ @@ -1151,20 +1151,20 @@ _body6656_))))) (_generate-opt-dispatch4673_ (lambda (_primary6646_ _pre6648_ _opt6649_ _tail6650_) - (let ((__tmp47643 + (let ((__tmp47645 (list _pre6648_ (_generate-opt-clause4675_ _primary6646_ _pre6648_ _opt6649_))) - (__tmp47642 + (__tmp47644 (_generate-opt-dispatch*4674_ _primary6646_ _pre6648_ _opt6649_ _tail6650_))) (declare (not safe)) - (cons __tmp47643 __tmp47642)))) + (cons __tmp47645 __tmp47644)))) (_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 ((_g47658_ + (let ((_g47660_ (gx#syntax-split-splice _g62266246_ '0))) (begin - (let ((_g47659_ + (let ((_g47661_ (let () (declare (not safe)) - (if (##values? _g47658_) + (if (##values? _g47660_) (##vector-length - _g47658_) + _g47660_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47659_ 2))) + (##fx= _g47661_ 2))) (error "Context expects 2 values" - _g47659_))) + _g47661_))) (let ((_target62286249_ (let () (declare (not safe)) (##vector-ref - _g47658_ + _g47660_ 0))) (_tl62306252_ (let () (declare (not safe)) (##vector-ref - _g47658_ + _g47660_ 1)))) (if (gx#stx-null? _tl62306252_) (letrec ((_loop62316255_ @@ -1247,41 +1247,41 @@ (_g62996421_ (lambda (_g63016321_) (if (gx#stx-pair/null? _g63016321_) - (let ((_g47660_ + (let ((_g47662_ (gx#syntax-split-splice _g63016321_ '0))) (begin - (let ((_g47661_ + (let ((_g47663_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47660_) - (##vector-length _g47660_) + _g47662_) + (##vector-length _g47662_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47661_ 2))) - (error "Context expects 2 values" _g47661_))) + (##fx= _g47663_ 2))) + (error "Context expects 2 values" _g47663_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target63036324_ (let () (declare (not safe)) (##vector-ref - _g47660_ + _g47662_ 0))) (_tl63056327_ (let () (declare (not safe)) (##vector-ref - _g47660_ + _g47662_ 1)))) (if (gx#stx-null? _tl63056327_) @@ -1320,39 +1320,39 @@ ((lambda (_L6386_) (let () (let () - (let ((__tmp47663 - (list (let ((__tmp47667 + (let ((__tmp47665 + (list (let ((__tmp47669 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g64006405_ _g64016408_) (let () (declare (not safe)) (cons _g64006405_ _g64016408_)))) - (__tmp47664 - (let ((__tmp47666 + (__tmp47666 + (let ((__tmp47668 (lambda (_g64026411_ _g64036414_) (let () (declare (not safe)) (cons _g64026411_ _g64036414_)))) - (__tmp47665 + (__tmp47667 (let () (declare (not safe)) (cons _L6386_ '())))) (declare (not safe)) - (foldr1 __tmp47666 - __tmp47665 + (foldr1 __tmp47668 + __tmp47667 _L6354_)))) (declare (not safe)) - (foldr1 __tmp47667 __tmp47664 _L6279_)) + (foldr1 __tmp47669 __tmp47666 _L6279_)) (_generate-opt-clause4675_ _primary6203_ - (let ((__tmp47668 (reverse _right*6222_))) + (let ((__tmp47670 (reverse _right*6222_))) (declare (not safe)) - (foldr1 cons __tmp47668 _pre6205_)) + (foldr1 cons __tmp47670 _pre6205_)) _rest6219_))) - (__tmp47662 (_recur6209_ _rest6219_ _right*6222_))) + (__tmp47664 (_recur6209_ _rest6219_ _right*6222_))) (declare (not safe)) - (cons __tmp47663 __tmp47662))))) + (cons __tmp47665 __tmp47664))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g63726383_)))) (_g63706417_ _hd6216_)))) @@ -1393,26 +1393,26 @@ (##cdr _e64376477_)))) (if (gx#stx-pair/null? _hd64366481_) - (let ((_g47644_ + (let ((_g47646_ (gx#syntax-split-splice _hd64366481_ '0))) (begin - (let ((_g47645_ + (let ((_g47647_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g47644_) - (##vector-length _g47644_) + (if (##values? _g47646_) + (##vector-length _g47646_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47645_ 2))) - (error "Context expects 2 values" _g47645_))) + (if (not (let () (declare (not safe)) (##fx= _g47647_ 2))) + (error "Context expects 2 values" _g47647_))) (let ((_target64386487_ - (let () (declare (not safe)) (##vector-ref _g47644_ 0))) + (let () (declare (not safe)) (##vector-ref _g47646_ 0))) (_tl64406490_ (let () (declare (not safe)) - (##vector-ref _g47644_ 1)))) + (##vector-ref _g47646_ 1)))) (if (gx#stx-null? _tl64406490_) (letrec ((_loop64416493_ (lambda (_hd64396497_ _pre64456500_) @@ -1448,26 +1448,26 @@ (##cdr _e64496517_)))) (if (gx#stx-pair/null? _hd64486521_) - (let ((_g47646_ + (let ((_g47648_ (gx#syntax-split-splice _hd64486521_ '0))) (begin - (let ((_g47647_ + (let ((_g47649_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g47646_) - (##vector-length _g47646_) + (if (##values? _g47648_) + (##vector-length _g47648_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47647_ 2))) - (error "Context expects 2 values" _g47647_))) + (if (not (let () (declare (not safe)) (##fx= _g47649_ 2))) + (error "Context expects 2 values" _g47649_))) (let ((_target64506527_ - (let () (declare (not safe)) (##vector-ref _g47646_ 0))) + (let () (declare (not safe)) (##vector-ref _g47648_ 0))) (_tl64526530_ (let () (declare (not safe)) - (##vector-ref _g47646_ 1)))) + (##vector-ref _g47648_ 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 ((__tmp47650 + (list (list (let ((__tmp47652 (lambda (_g66096614_ _g66106617_) (let () (declare (not safe)) (cons _g66096614_ _g66106617_)))) - (__tmp47648 - (let ((__tmp47649 + (__tmp47650 + (let ((__tmp47651 (lambda (_g66116620_ _g66126623_) (let () @@ -1531,40 +1531,40 @@ (cons _g66116620_ _g66126623_))))) (declare (not safe)) - (foldr1 __tmp47649 + (foldr1 __tmp47651 _L6579_ _L6580_)))) (declare (not safe)) - (foldr1 __tmp47650 __tmp47648 _L6581_)) + (foldr1 __tmp47652 __tmp47650 _L6581_)) (gx#stx-wrap-source - (let ((__tmp47657 + (let ((__tmp47659 (gx#datum->syntax '#f 'apply)) - (__tmp47651 - (let ((__tmp47652 - (let ((__tmp47656 + (__tmp47653 + (let ((__tmp47654 + (let ((__tmp47658 (lambda (_g66256630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g66266633_) (let () (declare (not safe)) (cons _g66256630_ _g66266633_)))) - (__tmp47653 - (let ((__tmp47655 + (__tmp47655 + (let ((__tmp47657 (lambda (_g66276636_ _g66286639_) (let () (declare (not safe)) (cons _g66276636_ _g66286639_)))) - (__tmp47654 + (__tmp47656 (let () (declare (not safe)) (cons _L6579_ '())))) (declare (not safe)) - (foldr1 __tmp47655 __tmp47654 _L6580_)))) + (foldr1 __tmp47657 __tmp47656 _L6580_)))) (declare (not safe)) - (foldr1 __tmp47656 __tmp47653 _L6581_)))) + (foldr1 __tmp47658 __tmp47655 _L6581_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L6577_ __tmp47652)))) + (cons _L6577_ __tmp47654)))) (declare (not safe)) - (cons __tmp47657 __tmp47651)) + (cons __tmp47659 __tmp47653)) (gx#stx-source _stx4661_)))))) _hd64636571_ _hd64606561_ @@ -1631,32 +1631,32 @@ ((lambda (_L5993_) (let () (let () - (let ((__tmp47683 + (let ((__tmp47685 (gx#datum->syntax '#f 'let-values)) - (__tmp47677 - (let ((__tmp47679 - (let ((__tmp47680 - (let ((__tmp47682 + (__tmp47679 + (let ((__tmp47681 + (let ((__tmp47682 + (let ((__tmp47684 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L5934_ '()))) - (__tmp47681 + (__tmp47683 (let () (declare (not safe)) (cons _L5965_ '())))) (declare (not safe)) - (cons __tmp47682 __tmp47681)))) + (cons __tmp47684 __tmp47683)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47680 '()))) - (__tmp47678 + (cons __tmp47682 '()))) + (__tmp47680 (let () (declare (not safe)) (cons _L5993_ '())))) (declare (not safe)) - (cons __tmp47679 __tmp47678)))) + (cons __tmp47681 __tmp47680)))) (declare (not safe)) - (cons __tmp47683 __tmp47677))))) + (cons __tmp47685 __tmp47679))))) _g59795990_)))) (_g59776008_ (_recur5906_ @@ -1690,36 +1690,36 @@ (##cdr _e60276064_)))) (if (gx#stx-pair/null? _hd60266068_) - (let ((_g47669_ + (let ((_g47671_ (gx#syntax-split-splice _hd60266068_ '0))) (begin - (let ((_g47670_ + (let ((_g47672_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47669_) - (##vector-length _g47669_) + _g47671_) + (##vector-length _g47671_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47670_ 2))) - (error "Context expects 2 values" _g47670_))) + (if (not (let () (declare (not safe)) (##fx= _g47672_ 2))) + (error "Context expects 2 values" _g47672_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target60286074_ (let () (declare (not safe)) (##vector-ref - _g47669_ + _g47671_ 0))) (_tl60306077_ (let () (declare (not safe)) (##vector-ref - _g47669_ + _g47671_ 1)))) (if (gx#stx-null? _tl60306077_) @@ -1758,36 +1758,36 @@ (##cdr _e60396104_)))) (if (gx#stx-pair/null? _hd60386108_) - (let ((_g47671_ + (let ((_g47673_ (gx#syntax-split-splice _hd60386108_ '0))) (begin - (let ((_g47672_ + (let ((_g47674_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47671_) - (##vector-length _g47671_) + _g47673_) + (##vector-length _g47673_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47672_ 2))) - (error "Context expects 2 values" _g47672_))) + (if (not (let () (declare (not safe)) (##fx= _g47674_ 2))) + (error "Context expects 2 values" _g47674_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target60406114_ (let () (declare (not safe)) (##vector-ref - _g47671_ + _g47673_ 0))) (_tl60426117_ (let () (declare (not safe)) (##vector-ref - _g47671_ + _g47673_ 1)))) (if (gx#stx-null? _tl60426117_) @@ -1830,25 +1830,25 @@ _L6157_) (let () (gx#stx-wrap-source - (let ((__tmp47673 - (let ((__tmp47676 + (let ((__tmp47675 + (let ((__tmp47678 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g61826187_ _g61836190_) (let () (declare (not safe)) (cons _g61826187_ _g61836190_)))) - (__tmp47674 - (let ((__tmp47675 + (__tmp47676 + (let ((__tmp47677 (lambda (_g61846193_ _g61856196_) (let () (declare (not safe)) (cons _g61846193_ _g61856196_))))) (declare (not safe)) - (foldr1 __tmp47675 '() _L6156_)))) + (foldr1 __tmp47677 '() _L6156_)))) (declare (not safe)) - (foldr1 __tmp47676 __tmp47674 _L6157_)))) + (foldr1 __tmp47678 __tmp47676 _L6157_)))) (declare (not safe)) - (cons _L6154_ __tmp47673)) + (cons _L6154_ __tmp47675)) (gx#stx-source _stx4661_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd60506148_ @@ -1940,62 +1940,62 @@ _L5867_ _L5868_) (let () - (let ((__tmp47700 + (let ((__tmp47702 (gx#datum->syntax '#f 'let-values)) - (__tmp47684 - (let ((__tmp47686 - (let ((__tmp47687 + (__tmp47686 + (let ((__tmp47688 + (let ((__tmp47689 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47699 + (let ((__tmp47701 (let () (declare (not safe)) (cons _L5868_ '()))) - (__tmp47688 - (let ((__tmp47689 - (let ((__tmp47698 + (__tmp47690 + (let ((__tmp47691 + (let ((__tmp47700 (gx#datum->syntax '#f 'if)) - (__tmp47690 - (let ((__tmp47693 - (let ((__tmp47697 + (__tmp47692 + (let ((__tmp47695 + (let ((__tmp47699 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'eq?)) - (__tmp47694 - (let ((__tmp47695 - (let ((__tmp47696 + (__tmp47696 + (let ((__tmp47697 + (let ((__tmp47698 (gx#datum->syntax '#f 'absent-value))) (declare (not safe)) - (cons __tmp47696 '())))) + (cons __tmp47698 '())))) (declare (not safe)) - (cons _L5867_ __tmp47695)))) + (cons _L5867_ __tmp47697)))) (declare (not safe)) - (cons __tmp47697 __tmp47694))) - (__tmp47691 - (let ((__tmp47692 + (cons __tmp47699 __tmp47696))) + (__tmp47693 + (let ((__tmp47694 (let () (declare (not safe)) (cons _L5867_ '())))) (declare (not safe)) - (cons _L5866_ __tmp47692)))) + (cons _L5866_ __tmp47694)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47693 - __tmp47691)))) + (cons __tmp47695 + __tmp47693)))) (declare (not safe)) - (cons __tmp47698 __tmp47690)))) + (cons __tmp47700 __tmp47692)))) (declare (not safe)) - (cons __tmp47689 '())))) + (cons __tmp47691 '())))) (declare (not safe)) - (cons __tmp47699 __tmp47688)))) + (cons __tmp47701 __tmp47690)))) (declare (not safe)) - (cons __tmp47687 '()))) - (__tmp47685 + (cons __tmp47689 '()))) + (__tmp47687 (let () (declare (not safe)) (cons _L5864_ '())))) (declare (not safe)) - (cons __tmp47686 __tmp47685)))) + (cons __tmp47688 __tmp47687)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47700 - __tmp47684)))) + (cons __tmp47702 + __tmp47686)))) _hd58105858_ _hd58075848_ _hd58045838_ @@ -2039,28 +2039,28 @@ (lambda (_g56065626_) (if (gx#stx-pair/null? _g56065626_) - (let ((_g47701_ + (let ((_g47703_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g56065626_ '0))) (begin - (let ((_g47702_ + (let ((_g47704_ (let () (declare (not safe)) - (if (##values? _g47701_) - (##vector-length _g47701_) + (if (##values? _g47703_) + (##vector-length _g47703_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47702_ 2))) - (error "Context expects 2 values" _g47702_))) + (##fx= _g47704_ 2))) + (error "Context expects 2 values" _g47704_))) (let ((_target56085629_ (let () (declare (not safe)) - (##vector-ref _g47701_ 0))) + (##vector-ref _g47703_ 0))) (_tl56105632_ (let () (declare (not safe)) - (##vector-ref _g47701_ 1)))) + (##vector-ref _g47703_ 1)))) (if (gx#stx-null? _tl56105632_) (letrec ((_loop56115635_ (lambda (_hd56095639_ _kwval56155642_) @@ -2109,42 +2109,42 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp47708 + (let ((__tmp47710 (gx#datum->syntax '#f 'lambda)) - (__tmp47703 - (let ((__tmp47705 - (let ((__tmp47706 + (__tmp47705 + (let ((__tmp47707 + (let ((__tmp47708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47707 + (let ((__tmp47709 (lambda (_g57335736_ _g57345739_) (let () (declare (not safe)) (cons _g57335736_ _g57345739_))))) (declare (not safe)) - (foldr1 __tmp47707 _L5691_ _L5659_)))) + (foldr1 __tmp47709 _L5691_ _L5659_)))) (declare (not safe)) - (cons _L5593_ __tmp47706))) - (__tmp47704 + (cons _L5593_ __tmp47708))) + (__tmp47706 (let () (declare (not safe)) (cons _L5719_ '())))) (declare (not safe)) - (cons __tmp47705 __tmp47704)))) + (cons __tmp47707 __tmp47706)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47708 __tmp47703)) + (cons __tmp47710 __tmp47705)) (gx#stx-source _stx4661_))))) _g57055716_)))) (_g57035742_ (_make-body5283_ _kwargs5279_ - (let ((__tmp47709 + (let ((__tmp47711 (lambda (_g57455748_ _g57465751_) (let () (declare (not safe)) (cons _g57455748_ _g57465751_))))) (declare (not safe)) - (foldr1 __tmp47709 '() _L5659_))))))) + (foldr1 __tmp47711 '() _L5659_))))))) _g56775688_)))) (_g56755754_ _args5280_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2182,28 +2182,28 @@ (lambda (_g54175437_) (if (gx#stx-pair/null? _g54175437_) - (let ((_g47710_ + (let ((_g47712_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g54175437_ '0))) (begin - (let ((_g47711_ + (let ((_g47713_ (let () (declare (not safe)) - (if (##values? _g47710_) - (##vector-length _g47710_) + (if (##values? _g47712_) + (##vector-length _g47712_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47711_ 2))) - (error "Context expects 2 values" _g47711_))) + (##fx= _g47713_ 2))) + (error "Context expects 2 values" _g47713_))) (let ((_target54195440_ (let () (declare (not safe)) - (##vector-ref _g47710_ 0))) + (##vector-ref _g47712_ 0))) (_tl54215443_ (let () (declare (not safe)) - (##vector-ref _g47710_ 1)))) + (##vector-ref _g47712_ 1)))) (if (gx#stx-null? _tl54215443_) (letrec ((_loop54225446_ (lambda (_hd54205450_ @@ -2243,51 +2243,51 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp47724 + (let ((__tmp47726 (gx#datum->syntax '#f 'lambda)) - (__tmp47712 - (let ((__tmp47722 - (let ((__tmp47723 + (__tmp47714 + (let ((__tmp47724 + (let ((__tmp47725 (gx#datum->syntax '#f 'args))) (declare (not safe)) - (cons _L5404_ __tmp47723))) - (__tmp47713 - (let ((__tmp47714 - (let ((__tmp47721 + (cons _L5404_ __tmp47725))) + (__tmp47715 + (let ((__tmp47716 + (let ((__tmp47723 (gx#datum->syntax '#f 'apply)) - (__tmp47715 - (let ((__tmp47716 + (__tmp47717 + (let ((__tmp47718 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47717 - (let ((__tmp47720 + (let ((__tmp47719 + (let ((__tmp47722 (lambda (_g55165519_ _g55175522_) (let () (declare (not safe)) (cons _g55165519_ _g55175522_)))) - (__tmp47718 - (let ((__tmp47719 + (__tmp47720 + (let ((__tmp47721 (gx#datum->syntax '#f 'args))) (declare (not safe)) - (cons __tmp47719 '())))) + (cons __tmp47721 '())))) (declare (not safe)) - (foldr1 __tmp47720 __tmp47718 _L5470_)))) + (foldr1 __tmp47722 __tmp47720 _L5470_)))) (declare (not safe)) - (cons _L5404_ __tmp47717)))) + (cons _L5404_ __tmp47719)))) (declare (not safe)) - (cons _L5502_ __tmp47716)))) + (cons _L5502_ __tmp47718)))) (declare (not safe)) - (cons __tmp47721 __tmp47715)))) + (cons __tmp47723 __tmp47717)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47714 '())))) + (cons __tmp47716 '())))) (declare (not safe)) - (cons __tmp47722 __tmp47713)))) + (cons __tmp47724 __tmp47715)))) (declare (not safe)) - (cons __tmp47724 __tmp47712)) + (cons __tmp47726 __tmp47714)) (gx#stx-source _stx4661_))))) _g54885499_)))) (_g54865525_ _main5386_)))) @@ -2310,16 +2310,16 @@ (lambda (_g55375548_) ((lambda (_L5551_) (let () - (let ((__tmp47732 + (let ((__tmp47734 (gx#datum->syntax '#f 'hash-ref)) - (__tmp47725 - (let ((__tmp47726 - (let ((__tmp47729 - (let ((__tmp47731 + (__tmp47727 + (let ((__tmp47728 + (let ((__tmp47731 + (let ((__tmp47733 (gx#datum->syntax '#f 'quote)) - (__tmp47730 + (__tmp47732 (let () (declare (not safe)) @@ -2327,21 +2327,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp47731 __tmp47730))) + (cons __tmp47733 __tmp47732))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp47727 - (let ((__tmp47728 + (__tmp47729 + (let ((__tmp47730 (gx#datum->syntax '#f 'absent-value))) (declare (not safe)) - (cons __tmp47728 '())))) + (cons __tmp47730 '())))) (declare (not safe)) - (cons __tmp47729 __tmp47727)))) + (cons __tmp47731 __tmp47729)))) (declare (not safe)) - (cons _L5404_ __tmp47726)))) + (cons _L5404_ __tmp47728)))) (declare (not safe)) - (cons __tmp47732 __tmp47725)))) + (cons __tmp47734 __tmp47727)))) _g55375548_)))) (_g55355564_ (car _kwarg5533_)))) _kwargs5279_))))) @@ -2384,16 +2384,16 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (let () - (let ((__tmp47739 + (let ((__tmp47741 (gx#datum->syntax '#f 'let-values)) - (__tmp47733 - (let ((__tmp47735 - (let ((__tmp47736 - (let ((__tmp47738 + (__tmp47735 + (let ((__tmp47737 + (let ((__tmp47738 + (let ((__tmp47740 (let () (declare (not safe)) (cons _L5303_ '()))) - (__tmp47737 + (__tmp47739 (let () (declare (not safe)) (cons _L5359_ @@ -2401,18 +2401,18 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47738 - __tmp47737)))) + (cons __tmp47740 + __tmp47739)))) (declare (not safe)) - (cons __tmp47736 '()))) - (__tmp47734 + (cons __tmp47738 '()))) + (__tmp47736 (let () (declare (not safe)) (cons _L5331_ '())))) (declare (not safe)) - (cons __tmp47735 __tmp47734)))) + (cons __tmp47737 __tmp47736)))) (declare (not safe)) - (cons __tmp47739 __tmp47733))))) + (cons __tmp47741 __tmp47735))))) _g53455356_)))) (_g53435374_ (_make-main5285_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2474,50 +2474,50 @@ _L5253_ _L5254_) (let () - (let ((__tmp47752 (gx#datum->syntax '#f 'lambda%)) - (__tmp47740 - (let ((__tmp47741 - (let ((__tmp47742 - (let ((__tmp47751 + (let ((__tmp47754 (gx#datum->syntax '#f 'lambda%)) + (__tmp47742 + (let ((__tmp47743 + (let ((__tmp47744 + (let ((__tmp47753 (gx#datum->syntax '#f 'apply)) - (__tmp47743 - (let ((__tmp47750 + (__tmp47745 + (let ((__tmp47752 (gx#datum->syntax '#f 'keyword-dispatch)) - (__tmp47744 - (let ((__tmp47747 + (__tmp47746 + (let ((__tmp47749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47749 (gx#datum->syntax '#f 'quote)) - (__tmp47748 + (let ((__tmp47751 (gx#datum->syntax '#f 'quote)) + (__tmp47750 (let () (declare (not safe)) (cons _L5254_ '())))) (declare (not safe)) - (cons __tmp47749 __tmp47748))) - (__tmp47745 - (let ((__tmp47746 + (cons __tmp47751 __tmp47750))) + (__tmp47747 + (let ((__tmp47748 (let () (declare (not safe)) (cons _L5251_ '())))) (declare (not safe)) - (cons _L5253_ __tmp47746)))) + (cons _L5253_ __tmp47748)))) (declare (not safe)) - (cons __tmp47747 __tmp47745)))) + (cons __tmp47749 __tmp47747)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47750 - __tmp47744)))) + (cons __tmp47752 + __tmp47746)))) (declare (not safe)) - (cons __tmp47751 __tmp47743)))) + (cons __tmp47753 __tmp47745)))) (declare (not safe)) - (cons __tmp47742 '())))) + (cons __tmp47744 '())))) (declare (not safe)) - (cons _L5251_ __tmp47741)))) + (cons _L5251_ __tmp47743)))) (declare (not safe)) - (cons __tmp47752 __tmp47740)))) + (cons __tmp47754 __tmp47742)))) _hd52075245_ _hd52045235_ _hd52015225_) @@ -2568,39 +2568,39 @@ ___stx4276642767_)))) (let ((___kont4276942770_ (lambda (_L5145_ _L5147_) - (let ((__tmp47754 (gx#datum->syntax '#f 'lambda%)) - (__tmp47753 + (let ((__tmp47756 (gx#datum->syntax '#f 'lambda%)) + (__tmp47755 (let () (declare (not safe)) (cons _L5147_ _L5145_)))) (declare (not safe)) - (cons __tmp47754 __tmp47753)))) + (cons __tmp47756 __tmp47755)))) (___kont4277142772_ (lambda (_L4917_ _L4919_) - (let ((_g47755_ (_opt-lambda-split4667_ _L4919_))) + (let ((_g47757_ (_opt-lambda-split4667_ _L4919_))) (begin - (let ((_g47756_ + (let ((_g47758_ (let () (declare (not safe)) - (if (##values? _g47755_) - (##vector-length _g47755_) + (if (##values? _g47757_) + (##vector-length _g47757_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47756_ 3))) - (error "Context expects 3 values" _g47756_))) + (##fx= _g47758_ 3))) + (error "Context expects 3 values" _g47758_))) (let ((_pre4932_ (let () (declare (not safe)) - (##vector-ref _g47755_ 0))) + (##vector-ref _g47757_ 0))) (_opt4934_ (let () (declare (not safe)) - (##vector-ref _g47755_ 1))) + (##vector-ref _g47757_ 1))) (_tail4935_ (let () (declare (not safe)) - (##vector-ref _g47755_ 2)))) + (##vector-ref _g47757_ 2)))) (let* ((_g49374945_ (lambda (_g49384941_) (gx#raise-syntax-error @@ -2631,28 +2631,28 @@ (_g49925106_ (lambda (_g49945014_) (if (gx#stx-pair/null? _g49945014_) - (let ((_g47757_ + (let ((_g47759_ (gx#syntax-split-splice _g49945014_ '0))) (begin - (let ((_g47758_ + (let ((_g47760_ (let () (declare (not safe)) - (if (##values? _g47757_) - (##vector-length _g47757_) + (if (##values? _g47759_) + (##vector-length _g47759_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47758_ 2))) + (##fx= _g47760_ 2))) (error "Context expects 2 values" - _g47758_))) + _g47760_))) (let ((_target49965017_ (let () (declare (not safe)) - (##vector-ref _g47757_ 0))) + (##vector-ref _g47759_ 0))) (_tl49985020_ (let () (declare (not safe)) - (##vector-ref _g47757_ 1)))) + (##vector-ref _g47759_ 1)))) (if (gx#stx-null? _tl49985020_) (letrec ((_loop49995023_ (lambda (_hd49975027_ @@ -2686,45 +2686,45 @@ ((lambda (_L5079_) (let () (let () - (let ((__tmp47765 + (let ((__tmp47767 (gx#datum->syntax '#f 'let-values)) - (__tmp47759 - (let ((__tmp47761 - (let ((__tmp47762 - (let ((__tmp47764 + (__tmp47761 + (let ((__tmp47763 + (let ((__tmp47764 + (let ((__tmp47766 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L4952_ '()))) - (__tmp47763 + (__tmp47765 (let () (declare (not safe)) (cons _L4980_ '())))) (declare (not safe)) - (cons __tmp47764 __tmp47763)))) + (cons __tmp47766 __tmp47765)))) (declare (not safe)) - (cons __tmp47762 '()))) - (__tmp47760 (let () (declare (not safe)) (cons _L5079_ '())))) + (cons __tmp47764 '()))) + (__tmp47762 (let () (declare (not safe)) (cons _L5079_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47761 - __tmp47760)))) + (cons __tmp47763 + __tmp47762)))) (declare (not safe)) - (cons __tmp47765 __tmp47759))))) + (cons __tmp47767 __tmp47761))))) _g50655076_)))) (_g50635094_ (gx#stx-wrap-source - (let ((__tmp47768 + (let ((__tmp47770 (gx#datum->syntax '#f 'case-lambda)) - (__tmp47766 - (let ((__tmp47767 + (__tmp47768 + (let ((__tmp47769 (lambda (_g50975100_ _g50985103_) (let () (declare (not safe)) (cons _g50975100_ _g50985103_))))) (declare (not safe)) - (foldr1 __tmp47767 '() _L5047_)))) + (foldr1 __tmp47769 '() _L5047_)))) (declare (not safe)) - (cons __tmp47768 __tmp47766)) + (cons __tmp47770 __tmp47768)) (gx#stx-source _stx4661_)))))) _clause50045043_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2763,32 +2763,32 @@ (lambda (_g47594769_) ((lambda () (let () - (let ((_g47769_ + (let ((_g47771_ (_kw-lambda-split4669_ _L4742_))) (begin - (let ((_g47770_ + (let ((_g47772_ (let () (declare (not safe)) - (if (##values? _g47769_) - (##vector-length _g47769_) + (if (##values? _g47771_) + (##vector-length _g47771_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47770_ 3))) + (##fx= _g47772_ 3))) (error "Context expects 3 values" - _g47770_))) + _g47772_))) (let ((_key4778_ (let () (declare (not safe)) - (##vector-ref _g47769_ 0))) + (##vector-ref _g47771_ 0))) (_kwargs4780_ (let () (declare (not safe)) - (##vector-ref _g47769_ 1))) + (##vector-ref _g47771_ 1))) (_args4781_ (let () (declare (not safe)) - (##vector-ref _g47769_ 2)))) + (##vector-ref _g47771_ 2)))) (let* ((_g47834791_ (lambda (_g47844787_) (gx#raise-syntax-error @@ -2821,34 +2821,34 @@ ((lambda (_L4859_) (let () (let () - (let ((__tmp47777 + (let ((__tmp47779 (gx#datum->syntax '#f 'let-values)) - (__tmp47771 - (let ((__tmp47773 - (let ((__tmp47774 + (__tmp47773 + (let ((__tmp47775 + (let ((__tmp47776 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47776 + (let ((__tmp47778 (let () (declare (not safe)) (cons _L4798_ '()))) - (__tmp47775 + (__tmp47777 (let () (declare (not safe)) (cons _L4831_ '())))) (declare (not safe)) - (cons __tmp47776 __tmp47775)))) + (cons __tmp47778 __tmp47777)))) (declare (not safe)) - (cons __tmp47774 '()))) - (__tmp47772 + (cons __tmp47776 '()))) + (__tmp47774 (let () (declare (not safe)) (cons _L4859_ '())))) (declare (not safe)) - (cons __tmp47773 __tmp47772)))) + (cons __tmp47775 __tmp47774)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47777 - __tmp47771))))) + (cons __tmp47779 + __tmp47773))))) _g48454856_)))) (_g48434874_ (gx#stx-wrap-source @@ -2958,19 +2958,19 @@ ___stx4281442815_)))) (let ((___kont4281742818_ (lambda (_L8377_ _L8379_ _L8380_ _L8381_) - (let ((__tmp47786 (gx#datum->syntax '#f 'def)) - (__tmp47778 - (let ((__tmp47785 + (let ((__tmp47788 (gx#datum->syntax '#f 'def)) + (__tmp47780 + (let ((__tmp47787 (let () (declare (not safe)) (cons _L8381_ _L8380_))) - (__tmp47779 - (let ((__tmp47780 - (let ((__tmp47784 + (__tmp47781 + (let ((__tmp47782 + (let ((__tmp47786 (gx#datum->syntax '#f 'lambda)) - (__tmp47781 - (let ((__tmp47782 - (let ((__tmp47783 + (__tmp47783 + (let ((__tmp47784 + (let ((__tmp47785 (lambda (_g84038406_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g84048409_) @@ -2978,33 +2978,33 @@ (declare (not safe)) (cons _g84038406_ _g84048409_))))) (declare (not safe)) - (foldr1 __tmp47783 '() _L8377_)))) + (foldr1 __tmp47785 '() _L8377_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L8379_ __tmp47782)))) + (cons _L8379_ __tmp47784)))) (declare (not safe)) - (cons __tmp47784 __tmp47781)))) + (cons __tmp47786 __tmp47783)))) (declare (not safe)) - (cons __tmp47780 '())))) + (cons __tmp47782 '())))) (declare (not safe)) - (cons __tmp47785 __tmp47779)))) + (cons __tmp47787 __tmp47781)))) (declare (not safe)) - (cons __tmp47786 __tmp47778)))) + (cons __tmp47788 __tmp47780)))) (___kont4282142822_ (lambda (_L8269_ _L8271_ _L8272_) - (let ((__tmp47795 (gx#datum->syntax '#f 'define-values)) - (__tmp47787 - (let ((__tmp47794 + (let ((__tmp47797 (gx#datum->syntax '#f 'define-values)) + (__tmp47789 + (let ((__tmp47796 (let () (declare (not safe)) (cons _L8272_ '()))) - (__tmp47788 - (let ((__tmp47789 - (let ((__tmp47793 + (__tmp47790 + (let ((__tmp47791 + (let ((__tmp47795 (gx#datum->syntax '#f 'lambda)) - (__tmp47790 - (let ((__tmp47791 - (let ((__tmp47792 + (__tmp47792 + (let ((__tmp47793 + (let ((__tmp47794 (lambda (_g82918294_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g82928297_) @@ -3012,34 +3012,34 @@ (declare (not safe)) (cons _g82918294_ _g82928297_))))) (declare (not safe)) - (foldr1 __tmp47792 '() _L8269_)))) + (foldr1 __tmp47794 '() _L8269_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L8271_ __tmp47791)))) + (cons _L8271_ __tmp47793)))) (declare (not safe)) - (cons __tmp47793 __tmp47790)))) + (cons __tmp47795 __tmp47792)))) (declare (not safe)) - (cons __tmp47789 '())))) + (cons __tmp47791 '())))) (declare (not safe)) - (cons __tmp47794 __tmp47788)))) + (cons __tmp47796 __tmp47790)))) (declare (not safe)) - (cons __tmp47795 __tmp47787)))) + (cons __tmp47797 __tmp47789)))) (___kont4282542826_ (lambda (_L8184_ _L8186_) - (let ((__tmp47799 (gx#datum->syntax '#f 'define-values)) - (__tmp47796 - (let ((__tmp47798 + (let ((__tmp47801 (gx#datum->syntax '#f 'define-values)) + (__tmp47798 + (let ((__tmp47800 (let () (declare (not safe)) (cons _L8186_ '()))) - (__tmp47797 + (__tmp47799 (let () (declare (not safe)) (cons _L8184_ '())))) (declare (not safe)) - (cons __tmp47798 __tmp47797)))) + (cons __tmp47800 __tmp47799)))) (declare (not safe)) - (cons __tmp47799 __tmp47796))))) + (cons __tmp47801 __tmp47798))))) (let* ((___match4290542906_ (lambda (_e81358154_ _hd81348158_ @@ -3457,31 +3457,31 @@ (declare (not safe)) (##cdr _e84318463_)))) (if (gx#stx-pair/null? _tl84298470_) - (let ((_g47800_ + (let ((_g47802_ (gx#syntax-split-splice _tl84298470_ '0))) (begin - (let ((_g47801_ + (let ((_g47803_ (let () (declare (not safe)) - (if (##values? _g47800_) + (if (##values? _g47802_) (##vector-length - _g47800_) + _g47802_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47801_ 2))) + (##fx= _g47803_ 2))) (error "Context expects 2 values" - _g47801_))) + _g47803_))) (let ((_target84328473_ (let () (declare (not safe)) - (##vector-ref _g47800_ 0))) + (##vector-ref _g47802_ 0))) (_tl84348476_ (let () (declare (not safe)) - (##vector-ref _g47800_ 1)))) + (##vector-ref _g47802_ 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 ((__tmp47809 + (let ((__tmp47811 (gx#datum->syntax '#f 'define-values)) - (__tmp47802 - (let ((__tmp47808 + (__tmp47804 + (let ((__tmp47810 (let () (declare (not safe)) (cons _L8505_ '()))) - (__tmp47803 - (let ((__tmp47804 - (let ((__tmp47807 + (__tmp47805 + (let ((__tmp47806 + (let ((__tmp47809 (gx#datum->syntax '#f 'case-lambda)) - (__tmp47805 - (let ((__tmp47806 + (__tmp47807 + (let ((__tmp47808 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g85228525_ _g85238528_) (let () (declare (not safe)) (cons _g85228525_ _g85238528_))))) (declare (not safe)) - (foldr1 __tmp47806 '() _L8503_)))) + (foldr1 __tmp47808 '() _L8503_)))) (declare (not safe)) - (cons __tmp47807 __tmp47805)))) + (cons __tmp47809 __tmp47807)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47804 '())))) + (cons __tmp47806 '())))) (declare (not safe)) - (cons __tmp47808 __tmp47803)))) + (cons __tmp47810 __tmp47805)))) (declare (not safe)) - (cons __tmp47809 __tmp47802)) + (cons __tmp47811 __tmp47804)) (_g84228446_ _g84238450_))) _clauses84408499_ _hd84308467_)))))) @@ -3593,18 +3593,18 @@ ((lambda (_L8595_ _L8597_) (if (gx#identifier-list? _L8597_) - (let ((__tmp47812 + (let ((__tmp47814 (gx#datum->syntax '#f 'define-values)) - (__tmp47810 - (let ((__tmp47811 + (__tmp47812 + (let ((__tmp47813 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L8595_ '())))) (declare (not safe)) - (cons _L8597_ __tmp47811)))) + (cons _L8597_ __tmp47813)))) (declare (not safe)) - (cons __tmp47812 __tmp47810)) + (cons __tmp47814 __tmp47812)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g85408558_ _g85418562_))) @@ -3646,31 +3646,31 @@ (declare (not safe)) (##cdr _e86308662_)))) (if (gx#stx-pair/null? _tl86288669_) - (let ((_g47813_ + (let ((_g47815_ (gx#syntax-split-splice _tl86288669_ '0))) (begin - (let ((_g47814_ + (let ((_g47816_ (let () (declare (not safe)) - (if (##values? _g47813_) + (if (##values? _g47815_) (##vector-length - _g47813_) + _g47815_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47814_ 2))) + (##fx= _g47816_ 2))) (error "Context expects 2 values" - _g47814_))) + _g47816_))) (let ((_target86318672_ (let () (declare (not safe)) - (##vector-ref _g47813_ 0))) + (##vector-ref _g47815_ 0))) (_tl86338675_ (let () (declare (not safe)) - (##vector-ref _g47813_ 1)))) + (##vector-ref _g47815_ 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 ((__tmp47826 (gx#datum->syntax '#f 'let)) - (__tmp47815 - (let ((__tmp47823 - (let ((__tmp47825 + (let ((__tmp47828 (gx#datum->syntax '#f 'let)) + (__tmp47817 + (let ((__tmp47825 + (let ((__tmp47827 (gx#datum->syntax '#f '$e)) - (__tmp47824 + (__tmp47826 (let () (declare (not safe)) (cons _L8704_ '())))) (declare (not safe)) - (cons __tmp47825 __tmp47824))) - (__tmp47816 - (let ((__tmp47817 - (let ((__tmp47822 + (cons __tmp47827 __tmp47826))) + (__tmp47818 + (let ((__tmp47819 + (let ((__tmp47824 (gx#datum->syntax '#f '~case)) - (__tmp47818 - (let ((__tmp47821 + (__tmp47820 + (let ((__tmp47823 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp47819 - (let ((__tmp47820 + (__tmp47821 + (let ((__tmp47822 (lambda (_g87218724_ _g87228727_) (let () (declare (not safe)) (cons _g87218724_ _g87228727_))))) (declare (not safe)) - (foldr1 __tmp47820 '() _L8702_)))) + (foldr1 __tmp47822 '() _L8702_)))) (declare (not safe)) - (cons __tmp47821 __tmp47819)))) + (cons __tmp47823 __tmp47821)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47822 - __tmp47818)))) + (cons __tmp47824 + __tmp47820)))) (declare (not safe)) - (cons __tmp47817 '())))) + (cons __tmp47819 '())))) (declare (not safe)) - (cons __tmp47823 __tmp47816)))) + (cons __tmp47825 __tmp47818)))) (declare (not safe)) - (cons __tmp47826 __tmp47815))) + (cons __tmp47828 __tmp47817))) _clause86398698_ _hd86298666_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3788,13 +3788,13 @@ '() _datums11210_ _dispatch11211_ - (let ((__tmp47827 + (let ((__tmp47829 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L11747_ '())))) (declare (not safe)) - (cons _L11717_ __tmp47827))))) + (cons _L11717_ __tmp47829))))) _g1173311744_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1173111759_ _e11201_)) @@ -3810,12 +3810,12 @@ '() _datums11210_ _dispatch11211_ - (let ((__tmp47830 + (let ((__tmp47832 (gx#datum->syntax '#f 'begin)) - (__tmp47828 - (let ((__tmp47829 + (__tmp47830 + (let ((__tmp47831 (lambda (_g1167111674_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1167211677_) @@ -3823,11 +3823,11 @@ (declare (not safe)) (cons _g1167111674_ _g1167211677_))))) (declare (not safe)) - (foldr1 __tmp47829 '() _L11657_)))) + (foldr1 __tmp47831 '() _L11657_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47830 - __tmp47828))) + (cons __tmp47832 + __tmp47830))) (gx#raise-syntax-error '#f '"Misplaced else clause" @@ -3835,8 +3835,8 @@ _L11261_)))) (___kont4291742918_ (lambda (_L11542_ _L11544_) - (if (let ((__tmp47835 - (let ((__tmp47836 + (if (let ((__tmp47837 + (let ((__tmp47838 (lambda (_g1156211565_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1156311568_) @@ -3844,10 +3844,10 @@ (declare (not safe)) (cons _g1156211565_ _g1156311568_))))) (declare (not safe)) - (foldr1 __tmp47836 '() _L11544_)))) + (foldr1 __tmp47838 '() _L11544_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp47835)) + (null? __tmp47837)) (_lp11205_ _L11259_ _datums11210_ @@ -3865,10 +3865,10 @@ (let () (_lp11205_ _L11259_ - (let ((__tmp47831 + (let ((__tmp47833 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map gx#stx-e - (let ((__tmp47832 + (let ((__tmp47834 (lambda (_g1159711600_ _g1159811603_) (let () @@ -3876,26 +3876,26 @@ (cons _g1159711600_ _g1159811603_))))) (declare (not safe)) - (foldr1 __tmp47832 '() _L11544_))))) + (foldr1 __tmp47834 '() _L11544_))))) (declare (not safe)) - (cons __tmp47831 _datums11210_)) - (let ((__tmp47833 - (let ((__tmp47834 + (cons __tmp47833 _datums11210_)) + (let ((__tmp47835 + (let ((__tmp47836 (let () (declare (not safe)) (cons _L11586_ '())))) (declare (not safe)) - (cons _L11542_ __tmp47834)))) + (cons _L11542_ __tmp47836)))) (declare (not safe)) - (cons __tmp47833 _dispatch11211_)) + (cons __tmp47835 _dispatch11211_)) _default11212_))) _g1157211583_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1157011606_ _e11201_))))) (___kont4292142922_ (lambda (_L11429_ _L11431_) - (if (let ((__tmp47843 - (let ((__tmp47844 + (if (let ((__tmp47845 + (let ((__tmp47846 (lambda (_g1145011453_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1145111456_) @@ -3903,10 +3903,10 @@ (declare (not safe)) (cons _g1145011453_ _g1145111456_))))) (declare (not safe)) - (foldr1 __tmp47844 '() _L11431_)))) + (foldr1 __tmp47846 '() _L11431_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp47843)) + (null? __tmp47845)) (_lp11205_ _L11259_ _datums11210_ @@ -3914,39 +3914,39 @@ _default11212_) (_lp11205_ _L11259_ - (let ((__tmp47837 + (let ((__tmp47839 (map gx#stx-e - (let ((__tmp47838 + (let ((__tmp47840 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1145811461_ _g1145911464_) (let () (declare (not safe)) (cons _g1145811461_ _g1145911464_))))) (declare (not safe)) - (foldr1 __tmp47838 '() _L11431_))))) + (foldr1 __tmp47840 '() _L11431_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47837 + (cons __tmp47839 _datums11210_)) - (let ((__tmp47839 - (let ((__tmp47842 + (let ((__tmp47841 + (let ((__tmp47844 (gx#datum->syntax '#f 'begin)) - (__tmp47840 - (let ((__tmp47841 + (__tmp47842 + (let ((__tmp47843 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1146611469_ _g1146711472_) (let () (declare (not safe)) (cons _g1146611469_ _g1146711472_))))) (declare (not safe)) - (foldr1 __tmp47841 '() _L11429_)))) + (foldr1 __tmp47843 '() _L11429_)))) (declare (not safe)) - (cons __tmp47842 __tmp47840)))) + (cons __tmp47844 __tmp47842)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47839 + (cons __tmp47841 _dispatch11211_)) _default11212_))))) (let* ((___match4300143002_ @@ -4074,7 +4074,7 @@ (##car _e1132011522_)))) (if (gx#identifier? _hd1131911526_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47845_| + |gerbil/core$$[1]#_g47847_| _hd1131911526_) (if (gx#stx-pair? _tl1131811529_) (let ((_e1132311532_ @@ -4179,7 +4179,7 @@ (if (gx#identifier? _hd1128311691_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47847_| + |gerbil/core$$[1]#_g47849_| _hd1128311691_) (if (gx#stx-pair? _tl1128211694_) @@ -4196,7 +4196,7 @@ (##car _e1128711697_)))) (if (gx#identifier? _hd1128611701_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47846_| + |gerbil/core$$[1]#_g47848_| _hd1128611701_) (if (gx#stx-pair? _tl1128511704_) (let ((_e1129011707_ @@ -4748,43 +4748,43 @@ _datums11189_)))) (_count-datums8741_ (lambda (_datums11182_) - (let ((__tmp47848 + (let ((__tmp47850 (lambda (_lst11185_ _r11187_) (+ (length _lst11185_) _r11187_)))) (declare (not safe)) - (foldl1 __tmp47848 '0 _datums11182_)))) + (foldl1 __tmp47850 '0 _datums11182_)))) (_symbolic-datums?8742_ (lambda (_datums11176_) - (let ((__tmp47849 + (let ((__tmp47851 (lambda (_lst11179_) (let () (declare (not safe)) (andmap1 symbol? _lst11179_))))) (declare (not safe)) - (andmap1 __tmp47849 _datums11176_)))) + (andmap1 __tmp47851 _datums11176_)))) (_char-datums?8743_ (lambda (_datums11170_) - (let ((__tmp47850 + (let ((__tmp47852 (lambda (_lst11173_) (let () (declare (not safe)) (andmap1 char? _lst11173_))))) (declare (not safe)) - (andmap1 __tmp47850 _datums11170_)))) + (andmap1 __tmp47852 _datums11170_)))) (_fixnum-datums?8744_ (lambda (_datums11164_) - (let ((__tmp47851 + (let ((__tmp47853 (lambda (_lst11167_) (let () (declare (not safe)) (andmap1 fixnum? _lst11167_))))) (declare (not safe)) - (andmap1 __tmp47851 _datums11164_)))) + (andmap1 __tmp47853 _datums11164_)))) (_eq-datums?8745_ (lambda (_datums11147_) - (let ((__tmp47852 + (let ((__tmp47854 (lambda (_lst11150_) - (let ((__tmp47853 + (let ((__tmp47855 (lambda (_x11153_) (let ((_$e11156_ (let () @@ -4801,9 +4801,9 @@ (immediate? _x11153_))))))))) (declare (not safe)) - (andmap1 __tmp47853 _lst11150_))))) + (andmap1 __tmp47855 _lst11150_))))) (declare (not safe)) - (andmap1 __tmp47852 _datums11147_)))) + (andmap1 __tmp47854 _datums11147_)))) (_generate-simple-case8746_ (lambda (_e10911_ _datums10913_ @@ -4864,48 +4864,48 @@ (lambda (_g1109711108_) ((lambda (_L11111_) (let () - (let ((__tmp47865 + (let ((__tmp47867 (gx#datum->syntax '#f 'if)) - (__tmp47854 - (let ((__tmp47857 - (let ((__tmp47864 + (__tmp47856 + (let ((__tmp47859 + (let ((__tmp47866 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'or)) - (__tmp47858 - (let ((__tmp47859 + (__tmp47860 + (let ((__tmp47861 (lambda (_g1112211125_ _g1112311128_) - (let ((__tmp47860 - (let ((__tmp47863 + (let ((__tmp47862 + (let ((__tmp47865 (gx#datum->syntax '#f '~case-test)) - (__tmp47861 - (let ((__tmp47862 + (__tmp47863 + (let ((__tmp47864 (let () (declare (not safe)) (cons _L10932_ '())))) (declare (not safe)) (cons _g1112211125_ - __tmp47862)))) + __tmp47864)))) (declare (not safe)) - (cons __tmp47863 __tmp47861)))) + (cons __tmp47865 __tmp47863)))) (declare (not safe)) - (cons __tmp47860 _g1112311128_))))) + (cons __tmp47862 _g1112311128_))))) (declare (not safe)) - (foldr1 __tmp47859 '() _L11033_)))) + (foldr1 __tmp47861 '() _L11033_)))) (declare (not safe)) - (cons __tmp47864 __tmp47858))) - (__tmp47855 - (let ((__tmp47856 + (cons __tmp47866 __tmp47860))) + (__tmp47857 + (let ((__tmp47858 (let () (declare (not safe)) (cons _L11111_ '())))) (declare (not safe)) - (cons _L11084_ __tmp47856)))) + (cons _L11084_ __tmp47858)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47857 - __tmp47855)))) + (cons __tmp47859 + __tmp47857)))) (declare (not safe)) - (cons __tmp47865 __tmp47854)))) + (cons __tmp47867 __tmp47856)))) _g1109711108_)))) (_g1109511131_ (_recur10944_ _L11031_ _L11082_)))) @@ -5012,17 +5012,17 @@ (let () (declare (not safe)) (fx+ _ix10791_ '1)) - (let ((__tmp47868 + (let ((__tmp47870 (lambda (_x10895_ _r10897_) - (let ((__tmp47869 + (let ((__tmp47871 (let () (declare (not safe)) (cons _x10895_ _ix10791_)))) (declare (not safe)) - (cons __tmp47869 _r10897_)))) - (__tmp47866 - (let ((__tmp47867 + (cons __tmp47871 _r10897_)))) + (__tmp47868 + (let ((__tmp47869 (lambda (_g1089810901_ _g1089910904_) (let () @@ -5030,9 +5030,9 @@ (cons _g1089810901_ _g1089910904_))))) (declare (not safe)) - (foldr1 __tmp47867 '() _L10876_)))) + (foldr1 __tmp47869 '() _L10876_)))) (declare (not safe)) - (foldl1 __tmp47868 _r10792_ __tmp47866))))) + (foldl1 __tmp47870 _r10792_ __tmp47868))))) (___kont4305543056_ (lambda () _r10792_))) (let ((___match4307143072_ (lambda (_e1080110834_ @@ -5287,210 +5287,210 @@ _L10487_ _L10488_) (let () - (let ((__tmp48028 (gx#datum->syntax '#f 'let)) - (__tmp47964 - (let ((__tmp48015 - (let ((__tmp48022 - (let ((__tmp48023 - (let ((__tmp48024 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48027 (gx#datum->syntax '#f 'lambda)) - (__tmp48025 - (let ((__tmp48026 + (let ((__tmp48030 (gx#datum->syntax '#f 'let)) + (__tmp47966 + (let ((__tmp48017 + (let ((__tmp48024 + (let ((__tmp48025 + (let ((__tmp48026 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48029 (gx#datum->syntax '#f 'lambda)) + (__tmp48027 + (let ((__tmp48028 (let () (declare (not safe)) (cons _L10484_ '())))) (declare (not safe)) - (cons '() __tmp48026)))) + (cons '() __tmp48028)))) (declare (not safe)) - (cons __tmp48027 __tmp48025)))) + (cons __tmp48029 __tmp48027)))) (declare (not safe)) - (cons __tmp48024 '())))) + (cons __tmp48026 '())))) (declare (not safe)) - (cons _L10487_ __tmp48023))) + (cons _L10487_ __tmp48025))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48016 - (let ((__tmp48017 - (let ((__tmp48018 + (__tmp48018 + (let ((__tmp48019 + (let ((__tmp48020 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48019 - (let ((__tmp48021 + (let ((__tmp48021 + (let ((__tmp48023 (gx#datum->syntax '#f 'quote)) - (__tmp48020 + (__tmp48022 (let () (declare (not safe)) (cons _L10483_ '())))) (declare (not safe)) - (cons __tmp48021 __tmp48020)))) + (cons __tmp48023 __tmp48022)))) (declare (not safe)) - (cons __tmp48019 '())))) + (cons __tmp48021 '())))) (declare (not safe)) - (cons _L10486_ __tmp48018)))) + (cons _L10486_ __tmp48020)))) (declare (not safe)) - (cons __tmp48017 '())))) + (cons __tmp48019 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48022 __tmp48016))) - (__tmp47965 - (let ((__tmp47966 - (let ((__tmp48014 + (cons __tmp48024 __tmp48018))) + (__tmp47967 + (let ((__tmp47968 + (let ((__tmp48016 (gx#datum->syntax '#f 'if)) - (__tmp47967 - (let ((__tmp48011 + (__tmp47969 + (let ((__tmp48013 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48013 (gx#datum->syntax '#f 'symbol?)) - (__tmp48012 + (let ((__tmp48015 (gx#datum->syntax '#f 'symbol?)) + (__tmp48014 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48013 __tmp48012))) - (__tmp47968 - (let ((__tmp47971 - (let ((__tmp48010 + (cons __tmp48015 __tmp48014))) + (__tmp47970 + (let ((__tmp47973 + (let ((__tmp48012 (gx#datum->syntax '#f 'let*)) - (__tmp47972 - (let ((__tmp47985 - (let ((__tmp48004 - (let ((__tmp48009 + (__tmp47974 + (let ((__tmp47987 + (let ((__tmp48006 + (let ((__tmp48011 (gx#datum->syntax '#f 'h)) - (__tmp48005 - (let ((__tmp48006 + (__tmp48007 + (let ((__tmp48008 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48008 + (let ((__tmp48010 (gx#datum->syntax '#f '##symbol-hash)) - (__tmp48007 + (__tmp48009 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48008 __tmp48007)))) + (cons __tmp48010 __tmp48009)))) (declare (not safe)) - (cons __tmp48006 '())))) + (cons __tmp48008 '())))) (declare (not safe)) - (cons __tmp48009 __tmp48005))) - (__tmp47986 - (let ((__tmp47996 - (let ((__tmp48003 (gx#datum->syntax '#f 'ix)) - (__tmp47997 - (let ((__tmp47998 - (let ((__tmp48002 + (cons __tmp48011 __tmp48007))) + (__tmp47988 + (let ((__tmp47998 + (let ((__tmp48005 (gx#datum->syntax '#f 'ix)) + (__tmp47999 + (let ((__tmp48000 + (let ((__tmp48004 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp47999 - (let ((__tmp48001 + (__tmp48001 + (let ((__tmp48003 (gx#datum->syntax '#f 'h)) - (__tmp48000 + (__tmp48002 (let () (declare (not safe)) (cons _L10481_ '())))) (declare (not safe)) - (cons __tmp48001 __tmp48000)))) + (cons __tmp48003 __tmp48002)))) (declare (not safe)) - (cons __tmp48002 __tmp47999)))) + (cons __tmp48004 __tmp48001)))) (declare (not safe)) - (cons __tmp47998 '())))) + (cons __tmp48000 '())))) (declare (not safe)) - (cons __tmp48003 __tmp47997))) - (__tmp47987 - (let ((__tmp47988 - (let ((__tmp47995 (gx#datum->syntax '#f 'q)) - (__tmp47989 - (let ((__tmp47990 - (let ((__tmp47994 + (cons __tmp48005 __tmp47999))) + (__tmp47989 + (let ((__tmp47990 + (let ((__tmp47997 (gx#datum->syntax '#f 'q)) + (__tmp47991 + (let ((__tmp47992 + (let ((__tmp47996 (gx#datum->syntax '#f '##vector-ref)) - (__tmp47991 - (let ((__tmp47992 - (let ((__tmp47993 + (__tmp47993 + (let ((__tmp47994 + (let ((__tmp47995 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp47993 '())))) + (cons __tmp47995 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L10486_ - __tmp47992)))) + __tmp47994)))) (declare (not safe)) - (cons __tmp47994 __tmp47991)))) + (cons __tmp47996 __tmp47993)))) (declare (not safe)) - (cons __tmp47990 '())))) + (cons __tmp47992 '())))) (declare (not safe)) - (cons __tmp47995 __tmp47989)))) + (cons __tmp47997 __tmp47991)))) (declare (not safe)) - (cons __tmp47988 '())))) + (cons __tmp47990 '())))) (declare (not safe)) - (cons __tmp47996 __tmp47987)))) + (cons __tmp47998 __tmp47989)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48004 - __tmp47986))) - (__tmp47973 - (let ((__tmp47974 - (let ((__tmp47984 + (cons __tmp48006 + __tmp47988))) + (__tmp47975 + (let ((__tmp47976 + (let ((__tmp47986 (gx#datum->syntax '#f 'if)) - (__tmp47975 - (let ((__tmp47979 + (__tmp47977 + (let ((__tmp47981 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47983 (gx#datum->syntax '#f 'eq?)) - (__tmp47980 - (let ((__tmp47982 + (let ((__tmp47985 (gx#datum->syntax '#f 'eq?)) + (__tmp47982 + (let ((__tmp47984 (gx#datum->syntax '#f 'q)) - (__tmp47981 + (__tmp47983 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp47982 __tmp47981)))) + (cons __tmp47984 __tmp47983)))) (declare (not safe)) - (cons __tmp47983 __tmp47980))) - (__tmp47976 - (let ((__tmp47977 - (let ((__tmp47978 + (cons __tmp47985 __tmp47982))) + (__tmp47978 + (let ((__tmp47979 + (let ((__tmp47980 (let () (declare (not safe)) (cons _L10487_ '())))) (declare (not safe)) - (cons __tmp47978 '())))) + (cons __tmp47980 '())))) (declare (not safe)) - (cons _L10485_ __tmp47977)))) + (cons _L10485_ __tmp47979)))) (declare (not safe)) - (cons __tmp47979 __tmp47976)))) + (cons __tmp47981 __tmp47978)))) (declare (not safe)) - (cons __tmp47984 __tmp47975)))) + (cons __tmp47986 __tmp47977)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47974 '())))) + (cons __tmp47976 '())))) (declare (not safe)) - (cons __tmp47985 __tmp47973)))) + (cons __tmp47987 __tmp47975)))) (declare (not safe)) - (cons __tmp48010 __tmp47972))) - (__tmp47969 - (let ((__tmp47970 + (cons __tmp48012 __tmp47974))) + (__tmp47971 + (let ((__tmp47972 (let () (declare (not safe)) (cons _L10487_ '())))) (declare (not safe)) - (cons __tmp47970 '())))) + (cons __tmp47972 '())))) (declare (not safe)) - (cons __tmp47971 __tmp47969)))) + (cons __tmp47973 __tmp47971)))) (declare (not safe)) - (cons __tmp48011 __tmp47968)))) + (cons __tmp48013 __tmp47970)))) (declare (not safe)) - (cons __tmp48014 __tmp47967)))) + (cons __tmp48016 __tmp47969)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47966 '())))) + (cons __tmp47968 '())))) (declare (not safe)) - (cons __tmp48015 __tmp47965)))) + (cons __tmp48017 __tmp47967)))) (declare (not safe)) - (cons __tmp48028 __tmp47964)))) + (cons __tmp48030 __tmp47966)))) _hd1038710475_ _hd1038410465_ _hd1038110455_ @@ -5572,30 +5572,30 @@ (declare (not safe)) (##cdr _e1054910610_)))) (if (gx#stx-pair/null? _hd1054810614_) - (let ((_g47870_ + (let ((_g47872_ (gx#syntax-split-splice _hd1054810614_ '0))) (begin - (let ((_g47871_ + (let ((_g47873_ (let () (declare (not safe)) - (if (##values? _g47870_) - (##vector-length _g47870_) + (if (##values? _g47872_) + (##vector-length _g47872_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47871_ 2))) + (##fx= _g47873_ 2))) (error "Context expects 2 values" - _g47871_))) + _g47873_))) (let ((_target1055010620_ (let () (declare (not safe)) - (##vector-ref _g47870_ 0))) + (##vector-ref _g47872_ 0))) (_tl1055210623_ (let () (declare (not safe)) - (##vector-ref _g47870_ 1)))) + (##vector-ref _g47872_ 1)))) (if (gx#stx-null? _tl1055210623_) (letrec ((_loop1055310626_ (lambda (_hd1055110630_ @@ -5658,97 +5658,97 @@ _L10686_ _L10687_) (let () - (let ((__tmp47963 + (let ((__tmp47965 (gx#datum->syntax '#f 'let)) - (__tmp47872 - (let ((__tmp47950 + (__tmp47874 + (let ((__tmp47952 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47957 - (let ((__tmp47958 - (let ((__tmp47959 - (let ((__tmp47962 + (let ((__tmp47959 + (let ((__tmp47960 + (let ((__tmp47961 + (let ((__tmp47964 (gx#datum->syntax '#f 'lambda)) - (__tmp47960 - (let ((__tmp47961 + (__tmp47962 + (let ((__tmp47963 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L10683_ '())))) (declare (not safe)) - (cons '() __tmp47961)))) + (cons '() __tmp47963)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47962 - __tmp47960)))) + (cons __tmp47964 + __tmp47962)))) (declare (not safe)) - (cons __tmp47959 '())))) + (cons __tmp47961 '())))) (declare (not safe)) - (cons _L10686_ __tmp47958))) - (__tmp47951 - (let ((__tmp47952 - (let ((__tmp47953 - (let ((__tmp47954 - (let ((__tmp47956 + (cons _L10686_ __tmp47960))) + (__tmp47953 + (let ((__tmp47954 + (let ((__tmp47955 + (let ((__tmp47956 + (let ((__tmp47958 (gx#datum->syntax '#f 'quote)) - (__tmp47955 + (__tmp47957 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L10682_ '())))) (declare (not safe)) - (cons __tmp47956 __tmp47955)))) + (cons __tmp47958 __tmp47957)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47954 '())))) + (cons __tmp47956 '())))) (declare (not safe)) - (cons _L10685_ __tmp47953)))) + (cons _L10685_ __tmp47955)))) (declare (not safe)) - (cons __tmp47952 '())))) + (cons __tmp47954 '())))) (declare (not safe)) - (cons __tmp47957 __tmp47951))) - (__tmp47873 - (let ((__tmp47874 - (let ((__tmp47949 (gx#datum->syntax '#f 'if)) - (__tmp47875 - (let ((__tmp47946 - (let ((__tmp47948 + (cons __tmp47959 __tmp47953))) + (__tmp47875 + (let ((__tmp47876 + (let ((__tmp47951 (gx#datum->syntax '#f 'if)) + (__tmp47877 + (let ((__tmp47948 + (let ((__tmp47950 (gx#datum->syntax '#f 'symbol?)) - (__tmp47947 + (__tmp47949 (let () (declare (not safe)) (cons _L10687_ '())))) (declare (not safe)) - (cons __tmp47948 - __tmp47947))) - (__tmp47876 - (let ((__tmp47879 - (let ((__tmp47945 + (cons __tmp47950 + __tmp47949))) + (__tmp47878 + (let ((__tmp47881 + (let ((__tmp47947 (gx#datum->syntax '#f 'let*)) - (__tmp47880 - (let ((__tmp47920 + (__tmp47882 + (let ((__tmp47922 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47939 - (let ((__tmp47944 + (let ((__tmp47941 + (let ((__tmp47946 (gx#datum->syntax '#f 'h)) - (__tmp47940 - (let ((__tmp47941 - (let ((__tmp47943 + (__tmp47942 + (let ((__tmp47943 + (let ((__tmp47945 (gx#datum->syntax '#f '##symbol-hash)) - (__tmp47942 + (__tmp47944 (let () (declare (not safe)) (cons _L10687_ @@ -5756,214 +5756,214 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47943 - __tmp47942)))) + (cons __tmp47945 + __tmp47944)))) (declare (not safe)) - (cons __tmp47941 '())))) + (cons __tmp47943 '())))) (declare (not safe)) - (cons __tmp47944 __tmp47940))) - (__tmp47921 - (let ((__tmp47931 - (let ((__tmp47938 + (cons __tmp47946 __tmp47942))) + (__tmp47923 + (let ((__tmp47933 + (let ((__tmp47940 (gx#datum->syntax '#f 'ix)) - (__tmp47932 - (let ((__tmp47933 - (let ((__tmp47937 + (__tmp47934 + (let ((__tmp47935 + (let ((__tmp47939 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fxmodulo)) - (__tmp47934 - (let ((__tmp47936 (gx#datum->syntax '#f 'h)) - (__tmp47935 + (__tmp47936 + (let ((__tmp47938 (gx#datum->syntax '#f 'h)) + (__tmp47937 (let () (declare (not safe)) (cons _L10680_ '())))) (declare (not safe)) - (cons __tmp47936 __tmp47935)))) + (cons __tmp47938 __tmp47937)))) (declare (not safe)) - (cons __tmp47937 __tmp47934)))) + (cons __tmp47939 __tmp47936)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47933 '())))) + (cons __tmp47935 '())))) (declare (not safe)) - (cons __tmp47938 __tmp47932))) - (__tmp47922 - (let ((__tmp47923 - (let ((__tmp47930 + (cons __tmp47940 __tmp47934))) + (__tmp47924 + (let ((__tmp47925 + (let ((__tmp47932 (gx#datum->syntax '#f 'q)) - (__tmp47924 - (let ((__tmp47925 - (let ((__tmp47929 + (__tmp47926 + (let ((__tmp47927 + (let ((__tmp47931 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp47926 - (let ((__tmp47927 - (let ((__tmp47928 + (__tmp47928 + (let ((__tmp47929 + (let ((__tmp47930 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp47928 '())))) + (cons __tmp47930 '())))) (declare (not safe)) - (cons _L10685_ __tmp47927)))) + (cons _L10685_ __tmp47929)))) (declare (not safe)) - (cons __tmp47929 __tmp47926)))) + (cons __tmp47931 __tmp47928)))) (declare (not safe)) - (cons __tmp47925 '())))) + (cons __tmp47927 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47930 - __tmp47924)))) + (cons __tmp47932 + __tmp47926)))) (declare (not safe)) - (cons __tmp47923 '())))) + (cons __tmp47925 '())))) (declare (not safe)) - (cons __tmp47931 __tmp47922)))) + (cons __tmp47933 __tmp47924)))) (declare (not safe)) - (cons __tmp47939 __tmp47921))) - (__tmp47881 - (let ((__tmp47882 - (let ((__tmp47919 + (cons __tmp47941 __tmp47923))) + (__tmp47883 + (let ((__tmp47884 + (let ((__tmp47921 (gx#datum->syntax '#f 'if)) - (__tmp47883 - (let ((__tmp47918 + (__tmp47885 + (let ((__tmp47920 (gx#datum->syntax '#f 'q)) - (__tmp47884 - (let ((__tmp47887 - (let ((__tmp47917 + (__tmp47886 + (let ((__tmp47889 + (let ((__tmp47919 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'if)) - (__tmp47888 - (let ((__tmp47909 - (let ((__tmp47916 (gx#datum->syntax '#f 'eq?)) - (__tmp47910 - (let ((__tmp47912 - (let ((__tmp47915 + (__tmp47890 + (let ((__tmp47911 + (let ((__tmp47918 (gx#datum->syntax '#f 'eq?)) + (__tmp47912 + (let ((__tmp47914 + (let ((__tmp47917 (gx#datum->syntax '#f '##car)) - (__tmp47913 - (let ((__tmp47914 + (__tmp47915 + (let ((__tmp47916 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp47914 '())))) + (cons __tmp47916 '())))) (declare (not safe)) - (cons __tmp47915 __tmp47913))) - (__tmp47911 + (cons __tmp47917 __tmp47915))) + (__tmp47913 (let () (declare (not safe)) (cons _L10687_ '())))) (declare (not safe)) - (cons __tmp47912 __tmp47911)))) + (cons __tmp47914 __tmp47913)))) (declare (not safe)) - (cons __tmp47916 __tmp47910))) - (__tmp47889 - (let ((__tmp47892 - (let ((__tmp47908 + (cons __tmp47918 __tmp47912))) + (__tmp47891 + (let ((__tmp47894 + (let ((__tmp47910 (gx#datum->syntax '#f 'let)) - (__tmp47893 - (let ((__tmp47901 - (let ((__tmp47907 + (__tmp47895 + (let ((__tmp47903 + (let ((__tmp47909 (gx#datum->syntax '#f 'x)) - (__tmp47902 - (let ((__tmp47903 + (__tmp47904 + (let ((__tmp47905 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47906 (gx#datum->syntax '#f '##cdr)) - (__tmp47904 - (let ((__tmp47905 (gx#datum->syntax '#f 'q))) + (let ((__tmp47908 (gx#datum->syntax '#f '##cdr)) + (__tmp47906 + (let ((__tmp47907 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp47905 '())))) + (cons __tmp47907 '())))) (declare (not safe)) - (cons __tmp47906 __tmp47904)))) + (cons __tmp47908 __tmp47906)))) (declare (not safe)) - (cons __tmp47903 '())))) + (cons __tmp47905 '())))) (declare (not safe)) - (cons __tmp47907 __tmp47902))) + (cons __tmp47909 __tmp47904))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp47894 - (let ((__tmp47895 - (let ((__tmp47900 + (__tmp47896 + (let ((__tmp47897 + (let ((__tmp47902 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '~case-dispatch)) - (__tmp47896 - (let ((__tmp47899 (gx#datum->syntax '#f 'x)) - (__tmp47897 - (let ((__tmp47898 + (__tmp47898 + (let ((__tmp47901 (gx#datum->syntax '#f 'x)) + (__tmp47899 + (let ((__tmp47900 (lambda (_g1072010723_ _g1072110726_) (let () (declare (not safe)) (cons _g1072010723_ _g1072110726_))))) (declare (not safe)) - (foldr1 __tmp47898 '() _L10684_)))) + (foldr1 __tmp47900 '() _L10684_)))) (declare (not safe)) - (cons __tmp47899 __tmp47897)))) + (cons __tmp47901 __tmp47899)))) (declare (not safe)) - (cons __tmp47900 __tmp47896)))) + (cons __tmp47902 __tmp47898)))) (declare (not safe)) - (cons __tmp47895 '())))) + (cons __tmp47897 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47901 __tmp47894)))) + (cons __tmp47903 __tmp47896)))) (declare (not safe)) - (cons __tmp47908 __tmp47893))) - (__tmp47890 - (let ((__tmp47891 + (cons __tmp47910 __tmp47895))) + (__tmp47892 + (let ((__tmp47893 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp47891 '())))) + (cons __tmp47893 '())))) (declare (not safe)) - (cons __tmp47892 __tmp47890)))) + (cons __tmp47894 __tmp47892)))) (declare (not safe)) - (cons __tmp47909 __tmp47889)))) + (cons __tmp47911 __tmp47891)))) (declare (not safe)) - (cons __tmp47917 __tmp47888))) - (__tmp47885 - (let ((__tmp47886 + (cons __tmp47919 __tmp47890))) + (__tmp47887 + (let ((__tmp47888 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp47886 '())))) + (cons __tmp47888 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47887 - __tmp47885)))) + (cons __tmp47889 + __tmp47887)))) (declare (not safe)) - (cons __tmp47918 __tmp47884)))) + (cons __tmp47920 __tmp47886)))) (declare (not safe)) - (cons __tmp47919 __tmp47883)))) + (cons __tmp47921 __tmp47885)))) (declare (not safe)) - (cons __tmp47882 '())))) + (cons __tmp47884 '())))) (declare (not safe)) - (cons __tmp47920 __tmp47881)))) + (cons __tmp47922 __tmp47883)))) (declare (not safe)) - (cons __tmp47945 __tmp47880))) - (__tmp47877 - (let ((__tmp47878 + (cons __tmp47947 __tmp47882))) + (__tmp47879 + (let ((__tmp47880 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp47878 '())))) + (cons __tmp47880 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47879 - __tmp47877)))) + (cons __tmp47881 + __tmp47879)))) (declare (not safe)) - (cons __tmp47946 __tmp47876)))) + (cons __tmp47948 __tmp47878)))) (declare (not safe)) - (cons __tmp47949 __tmp47875)))) + (cons __tmp47951 __tmp47877)))) (declare (not safe)) - (cons __tmp47874 '())))) + (cons __tmp47876 '())))) (declare (not safe)) - (cons __tmp47950 __tmp47873)))) + (cons __tmp47952 __tmp47875)))) (declare (not safe)) - (cons __tmp47963 __tmp47872)))) + (cons __tmp47965 __tmp47874)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1056610674_ _hd1056310664_ @@ -5999,16 +5999,16 @@ (vector-length _tab10345_)))))))) (_max-char8751_ (lambda (_datums10325_) - (let ((__tmp48029 + (let ((__tmp48031 (lambda (_lst10328_ _r10330_) - (let ((__tmp48030 + (let ((__tmp48032 (lambda (_char10332_ _r10334_) (max (char->integer _char10332_) _r10334_)))) (declare (not safe)) - (foldl1 __tmp48030 _r10330_ _lst10328_))))) + (foldl1 __tmp48032 _r10330_ _lst10328_))))) (declare (not safe)) - (foldl1 __tmp48029 '0 _datums10325_)))) + (foldl1 __tmp48031 '0 _datums10325_)))) (_generate-char-dispatch-table8752_ (lambda (_indexes10304_) (let* ((_ixs10310_ @@ -6016,12 +6016,12 @@ (char->integer (car _x10307_))) _indexes10304_)) (_len10313_ - (let ((__tmp48031 + (let ((__tmp48033 (let () (declare (not safe)) (foldl1 max '0 _ixs10310_)))) (declare (not safe)) - (fx+ __tmp48031 '1))) + (fx+ __tmp48033 '1))) (_vec10316_ (make-vector _len10313_ '#f))) (for-each (lambda (_entry10321_ _x10323_) @@ -6169,167 +6169,167 @@ _L10028_ _L10029_) (let () - (let ((__tmp48152 (gx#datum->syntax '#f 'let)) - (__tmp48105 - (let ((__tmp48146 - (let ((__tmp48147 - (let ((__tmp48148 - (let ((__tmp48151 + (let ((__tmp48154 (gx#datum->syntax '#f 'let)) + (__tmp48107 + (let ((__tmp48148 + (let ((__tmp48149 + (let ((__tmp48150 + (let ((__tmp48153 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp48149 - (let ((__tmp48150 + (__tmp48151 + (let ((__tmp48152 (let () (declare (not safe)) (cons _L10026_ '())))) (declare (not safe)) - (cons '() __tmp48150)))) + (cons '() __tmp48152)))) (declare (not safe)) - (cons __tmp48151 __tmp48149)))) + (cons __tmp48153 __tmp48151)))) (declare (not safe)) - (cons __tmp48148 '())))) + (cons __tmp48150 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L10028_ __tmp48147))) - (__tmp48106 - (let ((__tmp48107 - (let ((__tmp48145 + (cons _L10028_ __tmp48149))) + (__tmp48108 + (let ((__tmp48109 + (let ((__tmp48147 (gx#datum->syntax '#f 'if)) - (__tmp48108 - (let ((__tmp48142 + (__tmp48110 + (let ((__tmp48144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48144 (gx#datum->syntax '#f 'char?)) - (__tmp48143 + (let ((__tmp48146 (gx#datum->syntax '#f 'char?)) + (__tmp48145 (let () (declare (not safe)) (cons _L10029_ '())))) (declare (not safe)) - (cons __tmp48144 __tmp48143))) - (__tmp48109 - (let ((__tmp48112 - (let ((__tmp48141 (gx#datum->syntax '#f 'let)) - (__tmp48113 - (let ((__tmp48135 - (let ((__tmp48140 + (cons __tmp48146 __tmp48145))) + (__tmp48111 + (let ((__tmp48114 + (let ((__tmp48143 (gx#datum->syntax '#f 'let)) + (__tmp48115 + (let ((__tmp48137 + (let ((__tmp48142 (gx#datum->syntax '#f 'ix)) - (__tmp48136 - (let ((__tmp48137 - (let ((__tmp48139 + (__tmp48138 + (let ((__tmp48139 + (let ((__tmp48141 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##char->integer)) - (__tmp48138 + (__tmp48140 (let () (declare (not safe)) (cons _L10029_ '())))) (declare (not safe)) - (cons __tmp48139 __tmp48138)))) + (cons __tmp48141 __tmp48140)))) (declare (not safe)) - (cons __tmp48137 '())))) + (cons __tmp48139 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48140 __tmp48136))) - (__tmp48114 - (let ((__tmp48115 - (let ((__tmp48134 + (cons __tmp48142 __tmp48138))) + (__tmp48116 + (let ((__tmp48117 + (let ((__tmp48136 (gx#datum->syntax '#f 'if)) - (__tmp48116 - (let ((__tmp48120 + (__tmp48118 + (let ((__tmp48122 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48133 (gx#datum->syntax '#f 'and)) - (__tmp48121 - (let ((__tmp48128 - (let ((__tmp48132 + (let ((__tmp48135 (gx#datum->syntax '#f 'and)) + (__tmp48123 + (let ((__tmp48130 + (let ((__tmp48134 (gx#datum->syntax '#f '##fx>=)) - (__tmp48129 - (let ((__tmp48131 + (__tmp48131 + (let ((__tmp48133 (gx#datum->syntax '#f 'ix)) - (__tmp48130 + (__tmp48132 (let () (declare (not safe)) (cons _L10025_ '())))) (declare (not safe)) - (cons __tmp48131 - __tmp48130)))) + (cons __tmp48133 + __tmp48132)))) (declare (not safe)) - (cons __tmp48132 __tmp48129))) - (__tmp48122 - (let ((__tmp48123 - (let ((__tmp48127 + (cons __tmp48134 __tmp48131))) + (__tmp48124 + (let ((__tmp48125 + (let ((__tmp48129 (gx#datum->syntax '#f '##fx<)) - (__tmp48124 - (let ((__tmp48126 + (__tmp48126 + (let ((__tmp48128 (gx#datum->syntax '#f 'ix)) - (__tmp48125 + (__tmp48127 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L10023_ '())))) (declare (not safe)) - (cons __tmp48126 __tmp48125)))) + (cons __tmp48128 __tmp48127)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48127 - __tmp48124)))) + (cons __tmp48129 + __tmp48126)))) (declare (not safe)) - (cons __tmp48123 '())))) + (cons __tmp48125 '())))) (declare (not safe)) - (cons __tmp48128 __tmp48122)))) + (cons __tmp48130 __tmp48124)))) (declare (not safe)) - (cons __tmp48133 __tmp48121))) - (__tmp48117 - (let ((__tmp48118 - (let ((__tmp48119 + (cons __tmp48135 __tmp48123))) + (__tmp48119 + (let ((__tmp48120 + (let ((__tmp48121 (let () (declare (not safe)) (cons _L10028_ '())))) (declare (not safe)) - (cons __tmp48119 '())))) + (cons __tmp48121 '())))) (declare (not safe)) - (cons _L10027_ __tmp48118)))) + (cons _L10027_ __tmp48120)))) (declare (not safe)) - (cons __tmp48120 __tmp48117)))) + (cons __tmp48122 __tmp48119)))) (declare (not safe)) - (cons __tmp48134 __tmp48116)))) + (cons __tmp48136 __tmp48118)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48115 '())))) + (cons __tmp48117 '())))) (declare (not safe)) - (cons __tmp48135 __tmp48114)))) + (cons __tmp48137 __tmp48116)))) (declare (not safe)) - (cons __tmp48141 __tmp48113))) - (__tmp48110 - (let ((__tmp48111 + (cons __tmp48143 __tmp48115))) + (__tmp48112 + (let ((__tmp48113 (let () (declare (not safe)) (cons _L10028_ '())))) (declare (not safe)) - (cons __tmp48111 '())))) + (cons __tmp48113 '())))) (declare (not safe)) - (cons __tmp48112 __tmp48110)))) + (cons __tmp48114 __tmp48112)))) (declare (not safe)) - (cons __tmp48142 __tmp48109)))) + (cons __tmp48144 __tmp48111)))) (declare (not safe)) - (cons __tmp48145 __tmp48108)))) + (cons __tmp48147 __tmp48110)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48107 '())))) + (cons __tmp48109 '())))) (declare (not safe)) - (cons __tmp48146 __tmp48106)))) + (cons __tmp48148 __tmp48108)))) (declare (not safe)) - (cons __tmp48152 __tmp48105)))) + (cons __tmp48154 __tmp48107)))) _hd993910017_ _hd993610007_ _hd99339997_ @@ -6408,30 +6408,30 @@ (declare (not safe)) (##cdr _e1008710148_)))) (if (gx#stx-pair/null? _hd1008610152_) - (let ((_g48032_ + (let ((_g48034_ (gx#syntax-split-splice _hd1008610152_ '0))) (begin - (let ((_g48033_ + (let ((_g48035_ (let () (declare (not safe)) - (if (##values? _g48032_) - (##vector-length _g48032_) + (if (##values? _g48034_) + (##vector-length _g48034_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48033_ 2))) + (##fx= _g48035_ 2))) (error "Context expects 2 values" - _g48033_))) + _g48035_))) (let ((_target1008810158_ (let () (declare (not safe)) - (##vector-ref _g48032_ 0))) + (##vector-ref _g48034_ 0))) (_tl1009010161_ (let () (declare (not safe)) - (##vector-ref _g48032_ 1)))) + (##vector-ref _g48034_ 1)))) (if (gx#stx-null? _tl1009010161_) (letrec ((_loop1009110164_ (lambda (_hd1008910168_ @@ -6497,64 +6497,64 @@ _L10224_ _L10225_) (let () - (let ((__tmp48104 + (let ((__tmp48106 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp48034 - (let ((__tmp48091 - (let ((__tmp48098 - (let ((__tmp48099 - (let ((__tmp48100 - (let ((__tmp48103 + (__tmp48036 + (let ((__tmp48093 + (let ((__tmp48100 + (let ((__tmp48101 + (let ((__tmp48102 + (let ((__tmp48105 (gx#datum->syntax '#f 'lambda)) - (__tmp48101 - (let ((__tmp48102 + (__tmp48103 + (let ((__tmp48104 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L10221_ '())))) (declare (not safe)) - (cons '() __tmp48102)))) + (cons '() __tmp48104)))) (declare (not safe)) - (cons __tmp48103 __tmp48101)))) + (cons __tmp48105 __tmp48103)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48100 '())))) + (cons __tmp48102 '())))) (declare (not safe)) - (cons _L10224_ __tmp48099))) - (__tmp48092 - (let ((__tmp48093 - (let ((__tmp48094 - (let ((__tmp48095 - (let ((__tmp48097 + (cons _L10224_ __tmp48101))) + (__tmp48094 + (let ((__tmp48095 + (let ((__tmp48096 + (let ((__tmp48097 + (let ((__tmp48099 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48096 + (__tmp48098 (let () (declare (not safe)) (cons _L10220_ '())))) (declare (not safe)) - (cons __tmp48097 __tmp48096)))) + (cons __tmp48099 __tmp48098)))) (declare (not safe)) - (cons __tmp48095 '())))) + (cons __tmp48097 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L10223_ __tmp48094)))) + (cons _L10223_ __tmp48096)))) (declare (not safe)) - (cons __tmp48093 '())))) + (cons __tmp48095 '())))) (declare (not safe)) - (cons __tmp48098 __tmp48092))) - (__tmp48035 - (let ((__tmp48036 - (let ((__tmp48090 + (cons __tmp48100 __tmp48094))) + (__tmp48037 + (let ((__tmp48038 + (let ((__tmp48092 (gx#datum->syntax '#f 'if)) - (__tmp48037 - (let ((__tmp48087 - (let ((__tmp48089 + (__tmp48039 + (let ((__tmp48089 + (let ((__tmp48091 (gx#datum->syntax '#f 'char?)) - (__tmp48088 + (__tmp48090 (let () (declare (not safe)) @@ -6562,103 +6562,103 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48089 __tmp48088))) + (cons __tmp48091 __tmp48090))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48038 - (let ((__tmp48041 - (let ((__tmp48086 + (__tmp48040 + (let ((__tmp48043 + (let ((__tmp48088 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp48042 - (let ((__tmp48080 - (let ((__tmp48085 (gx#datum->syntax '#f 'ix)) - (__tmp48081 - (let ((__tmp48082 - (let ((__tmp48084 + (__tmp48044 + (let ((__tmp48082 + (let ((__tmp48087 (gx#datum->syntax '#f 'ix)) + (__tmp48083 + (let ((__tmp48084 + (let ((__tmp48086 (gx#datum->syntax '#f '##char->integer)) - (__tmp48083 + (__tmp48085 (let () (declare (not safe)) (cons _L10225_ '())))) (declare (not safe)) - (cons __tmp48084 - __tmp48083)))) + (cons __tmp48086 + __tmp48085)))) (declare (not safe)) - (cons __tmp48082 '())))) + (cons __tmp48084 '())))) (declare (not safe)) - (cons __tmp48085 __tmp48081))) - (__tmp48043 - (let ((__tmp48044 - (let ((__tmp48079 + (cons __tmp48087 __tmp48083))) + (__tmp48045 + (let ((__tmp48046 + (let ((__tmp48081 (gx#datum->syntax '#f 'if)) - (__tmp48045 - (let ((__tmp48074 - (let ((__tmp48078 + (__tmp48047 + (let ((__tmp48076 + (let ((__tmp48080 (gx#datum->syntax '#f '##fx<)) - (__tmp48075 - (let ((__tmp48077 + (__tmp48077 + (let ((__tmp48079 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix)) - (__tmp48076 + (__tmp48078 (let () (declare (not safe)) (cons _L10218_ '())))) (declare (not safe)) - (cons __tmp48077 __tmp48076)))) + (cons __tmp48079 __tmp48078)))) (declare (not safe)) - (cons __tmp48078 __tmp48075))) + (cons __tmp48080 __tmp48077))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48046 - (let ((__tmp48049 - (let ((__tmp48073 + (__tmp48048 + (let ((__tmp48051 + (let ((__tmp48075 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp48050 - (let ((__tmp48065 - (let ((__tmp48072 (gx#datum->syntax '#f 'x)) - (__tmp48066 - (let ((__tmp48067 - (let ((__tmp48071 + (__tmp48052 + (let ((__tmp48067 + (let ((__tmp48074 (gx#datum->syntax '#f 'x)) + (__tmp48068 + (let ((__tmp48069 + (let ((__tmp48073 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48068 - (let ((__tmp48069 - (let ((__tmp48070 + (__tmp48070 + (let ((__tmp48071 + (let ((__tmp48072 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48070 '())))) + (cons __tmp48072 '())))) (declare (not safe)) - (cons _L10223_ __tmp48069)))) + (cons _L10223_ __tmp48071)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48071 - __tmp48068)))) + (cons __tmp48073 + __tmp48070)))) (declare (not safe)) - (cons __tmp48067 '())))) + (cons __tmp48069 '())))) (declare (not safe)) - (cons __tmp48072 __tmp48066))) - (__tmp48051 - (let ((__tmp48052 - (let ((__tmp48064 + (cons __tmp48074 __tmp48068))) + (__tmp48053 + (let ((__tmp48054 + (let ((__tmp48066 (gx#datum->syntax '#f 'if)) - (__tmp48053 - (let ((__tmp48063 + (__tmp48055 + (let ((__tmp48065 (gx#datum->syntax '#f 'x)) - (__tmp48054 - (let ((__tmp48057 - (let ((__tmp48062 + (__tmp48056 + (let ((__tmp48059 + (let ((__tmp48064 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48058 - (let ((__tmp48061 (gx#datum->syntax '#f 'x)) - (__tmp48059 - (let ((__tmp48060 + (__tmp48060 + (let ((__tmp48063 (gx#datum->syntax '#f 'x)) + (__tmp48061 + (let ((__tmp48062 (lambda (_g1025810261_ _g1025910264_) (let () @@ -6666,69 +6666,69 @@ (cons _g1025810261_ _g1025910264_))))) (declare (not safe)) - (foldr1 __tmp48060 '() _L10222_)))) + (foldr1 __tmp48062 '() _L10222_)))) (declare (not safe)) - (cons __tmp48061 __tmp48059)))) + (cons __tmp48063 __tmp48061)))) (declare (not safe)) - (cons __tmp48062 __tmp48058))) - (__tmp48055 - (let ((__tmp48056 + (cons __tmp48064 __tmp48060))) + (__tmp48057 + (let ((__tmp48058 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48056 '())))) + (cons __tmp48058 '())))) (declare (not safe)) - (cons __tmp48057 __tmp48055)))) + (cons __tmp48059 __tmp48057)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48063 - __tmp48054)))) + (cons __tmp48065 + __tmp48056)))) (declare (not safe)) - (cons __tmp48064 __tmp48053)))) + (cons __tmp48066 __tmp48055)))) (declare (not safe)) - (cons __tmp48052 '())))) + (cons __tmp48054 '())))) (declare (not safe)) - (cons __tmp48065 __tmp48051)))) + (cons __tmp48067 __tmp48053)))) (declare (not safe)) - (cons __tmp48073 __tmp48050))) - (__tmp48047 - (let ((__tmp48048 + (cons __tmp48075 __tmp48052))) + (__tmp48049 + (let ((__tmp48050 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48048 '())))) + (cons __tmp48050 '())))) (declare (not safe)) - (cons __tmp48049 __tmp48047)))) + (cons __tmp48051 __tmp48049)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48074 - __tmp48046)))) + (cons __tmp48076 + __tmp48048)))) (declare (not safe)) - (cons __tmp48079 __tmp48045)))) + (cons __tmp48081 __tmp48047)))) (declare (not safe)) - (cons __tmp48044 '())))) + (cons __tmp48046 '())))) (declare (not safe)) - (cons __tmp48080 __tmp48043)))) + (cons __tmp48082 __tmp48045)))) (declare (not safe)) - (cons __tmp48086 __tmp48042))) - (__tmp48039 - (let ((__tmp48040 + (cons __tmp48088 __tmp48044))) + (__tmp48041 + (let ((__tmp48042 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48040 '())))) + (cons __tmp48042 '())))) (declare (not safe)) - (cons __tmp48041 __tmp48039)))) + (cons __tmp48043 __tmp48041)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48087 __tmp48038)))) + (cons __tmp48089 __tmp48040)))) (declare (not safe)) - (cons __tmp48090 __tmp48037)))) + (cons __tmp48092 __tmp48039)))) (declare (not safe)) - (cons __tmp48036 '())))) + (cons __tmp48038 '())))) (declare (not safe)) - (cons __tmp48091 __tmp48035)))) + (cons __tmp48093 __tmp48037)))) (declare (not safe)) - (cons __tmp48104 __tmp48034)))) + (cons __tmp48106 __tmp48036)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1010410212_ _hd1010110202_ @@ -6826,28 +6826,28 @@ (declare (not safe)) (##cdr _e97069767_)))) (if (gx#stx-pair/null? _hd97059771_) - (let ((_g48153_ + (let ((_g48155_ (gx#syntax-split-splice _hd97059771_ '0))) (begin - (let ((_g48154_ + (let ((_g48156_ (let () (declare (not safe)) - (if (##values? _g48153_) - (##vector-length _g48153_) + (if (##values? _g48155_) + (##vector-length _g48155_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48154_ 2))) + (##fx= _g48156_ 2))) (error "Context expects 2 values" - _g48154_))) + _g48156_))) (let ((_target97079777_ (let () (declare (not safe)) - (##vector-ref _g48153_ 0))) + (##vector-ref _g48155_ 0))) (_tl97099780_ (let () (declare (not safe)) - (##vector-ref _g48153_ 1)))) + (##vector-ref _g48155_ 1)))) (if (gx#stx-null? _tl97099780_) (letrec ((_loop97109783_ (lambda (_hd97089787_ @@ -6908,22 +6908,22 @@ _L9843_ _L9844_) (let () - (let ((__tmp48246 + (let ((__tmp48248 (gx#datum->syntax '#f 'let)) - (__tmp48155 - (let ((__tmp48233 - (let ((__tmp48240 + (__tmp48157 + (let ((__tmp48235 + (let ((__tmp48242 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48241 - (let ((__tmp48242 - (let ((__tmp48245 + (let ((__tmp48243 + (let ((__tmp48244 + (let ((__tmp48247 (gx#datum->syntax '#f 'lambda)) - (__tmp48243 - (let ((__tmp48244 + (__tmp48245 + (let ((__tmp48246 (let () (declare (not safe)) @@ -6932,22 +6932,22 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48244)))) + (cons '() __tmp48246)))) (declare (not safe)) - (cons __tmp48245 __tmp48243)))) + (cons __tmp48247 __tmp48245)))) (declare (not safe)) - (cons __tmp48242 '())))) + (cons __tmp48244 '())))) (declare (not safe)) - (cons _L9843_ __tmp48241))) - (__tmp48234 - (let ((__tmp48235 - (let ((__tmp48236 - (let ((__tmp48237 - (let ((__tmp48239 + (cons _L9843_ __tmp48243))) + (__tmp48236 + (let ((__tmp48237 + (let ((__tmp48238 + (let ((__tmp48239 + (let ((__tmp48241 (gx#datum->syntax '#f 'quote)) - (__tmp48238 + (__tmp48240 (let () (declare (not safe)) @@ -6956,222 +6956,222 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48239 - __tmp48238)))) + (cons __tmp48241 + __tmp48240)))) (declare (not safe)) - (cons __tmp48237 '())))) + (cons __tmp48239 '())))) (declare (not safe)) - (cons _L9842_ __tmp48236)))) + (cons _L9842_ __tmp48238)))) (declare (not safe)) - (cons __tmp48235 '())))) + (cons __tmp48237 '())))) (declare (not safe)) - (cons __tmp48240 __tmp48234))) - (__tmp48156 - (let ((__tmp48157 - (let ((__tmp48232 (gx#datum->syntax '#f 'if)) - (__tmp48158 - (let ((__tmp48229 - (let ((__tmp48231 + (cons __tmp48242 __tmp48236))) + (__tmp48158 + (let ((__tmp48159 + (let ((__tmp48234 (gx#datum->syntax '#f 'if)) + (__tmp48160 + (let ((__tmp48231 + (let ((__tmp48233 (gx#datum->syntax '#f 'char?)) - (__tmp48230 + (__tmp48232 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48231 __tmp48230))) - (__tmp48159 - (let ((__tmp48162 - (let ((__tmp48228 + (cons __tmp48233 __tmp48232))) + (__tmp48161 + (let ((__tmp48164 + (let ((__tmp48230 (gx#datum->syntax '#f 'let*)) - (__tmp48163 - (let ((__tmp48203 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48222 - (let ((__tmp48227 (gx#datum->syntax '#f 'h)) - (__tmp48223 - (let ((__tmp48224 - (let ((__tmp48226 + (__tmp48165 + (let ((__tmp48205 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48224 + (let ((__tmp48229 (gx#datum->syntax '#f 'h)) + (__tmp48225 + (let ((__tmp48226 + (let ((__tmp48228 (gx#datum->syntax '#f '##char->integer)) - (__tmp48225 + (__tmp48227 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48226 __tmp48225)))) + (cons __tmp48228 __tmp48227)))) (declare (not safe)) - (cons __tmp48224 '())))) + (cons __tmp48226 '())))) (declare (not safe)) - (cons __tmp48227 __tmp48223))) - (__tmp48204 - (let ((__tmp48214 - (let ((__tmp48221 + (cons __tmp48229 __tmp48225))) + (__tmp48206 + (let ((__tmp48216 + (let ((__tmp48223 (gx#datum->syntax '#f 'ix)) - (__tmp48215 - (let ((__tmp48216 - (let ((__tmp48220 + (__tmp48217 + (let ((__tmp48218 + (let ((__tmp48222 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48217 - (let ((__tmp48219 + (__tmp48219 + (let ((__tmp48221 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp48218 + (__tmp48220 (let () (declare (not safe)) (cons _L9837_ '())))) (declare (not safe)) - (cons __tmp48219 __tmp48218)))) + (cons __tmp48221 __tmp48220)))) (declare (not safe)) - (cons __tmp48220 __tmp48217)))) + (cons __tmp48222 __tmp48219)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48216 '())))) + (cons __tmp48218 '())))) (declare (not safe)) - (cons __tmp48221 __tmp48215))) - (__tmp48205 - (let ((__tmp48206 - (let ((__tmp48213 + (cons __tmp48223 __tmp48217))) + (__tmp48207 + (let ((__tmp48208 + (let ((__tmp48215 (gx#datum->syntax '#f 'q)) - (__tmp48207 - (let ((__tmp48208 - (let ((__tmp48212 + (__tmp48209 + (let ((__tmp48210 + (let ((__tmp48214 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp48209 - (let ((__tmp48210 - (let ((__tmp48211 + (__tmp48211 + (let ((__tmp48212 + (let ((__tmp48213 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48211 '())))) + (cons __tmp48213 '())))) (declare (not safe)) - (cons _L9842_ __tmp48210)))) + (cons _L9842_ __tmp48212)))) (declare (not safe)) - (cons __tmp48212 __tmp48209)))) + (cons __tmp48214 __tmp48211)))) (declare (not safe)) - (cons __tmp48208 '())))) + (cons __tmp48210 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48213 __tmp48207)))) + (cons __tmp48215 __tmp48209)))) (declare (not safe)) - (cons __tmp48206 '())))) + (cons __tmp48208 '())))) (declare (not safe)) - (cons __tmp48214 __tmp48205)))) + (cons __tmp48216 __tmp48207)))) (declare (not safe)) - (cons __tmp48222 __tmp48204))) - (__tmp48164 - (let ((__tmp48165 - (let ((__tmp48202 (gx#datum->syntax '#f 'if)) - (__tmp48166 - (let ((__tmp48201 + (cons __tmp48224 __tmp48206))) + (__tmp48166 + (let ((__tmp48167 + (let ((__tmp48204 (gx#datum->syntax '#f 'if)) + (__tmp48168 + (let ((__tmp48203 (gx#datum->syntax '#f 'q)) - (__tmp48167 - (let ((__tmp48170 - (let ((__tmp48200 + (__tmp48169 + (let ((__tmp48172 + (let ((__tmp48202 (gx#datum->syntax '#f 'if)) - (__tmp48171 - (let ((__tmp48192 + (__tmp48173 + (let ((__tmp48194 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48199 (gx#datum->syntax '#f 'eq?)) - (__tmp48193 - (let ((__tmp48195 - (let ((__tmp48198 + (let ((__tmp48201 (gx#datum->syntax '#f 'eq?)) + (__tmp48195 + (let ((__tmp48197 + (let ((__tmp48200 (gx#datum->syntax '#f '##car)) - (__tmp48196 - (let ((__tmp48197 + (__tmp48198 + (let ((__tmp48199 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48197 '())))) + (cons __tmp48199 '())))) (declare (not safe)) - (cons __tmp48198 __tmp48196))) - (__tmp48194 + (cons __tmp48200 __tmp48198))) + (__tmp48196 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48195 __tmp48194)))) + (cons __tmp48197 __tmp48196)))) (declare (not safe)) - (cons __tmp48199 __tmp48193))) - (__tmp48172 - (let ((__tmp48175 - (let ((__tmp48191 + (cons __tmp48201 __tmp48195))) + (__tmp48174 + (let ((__tmp48177 + (let ((__tmp48193 (gx#datum->syntax '#f 'let)) - (__tmp48176 - (let ((__tmp48184 - (let ((__tmp48190 + (__tmp48178 + (let ((__tmp48186 + (let ((__tmp48192 (gx#datum->syntax '#f 'x)) - (__tmp48185 - (let ((__tmp48186 - (let ((__tmp48189 + (__tmp48187 + (let ((__tmp48188 + (let ((__tmp48191 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48187 - (let ((__tmp48188 (gx#datum->syntax '#f 'q))) + (__tmp48189 + (let ((__tmp48190 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48188 '())))) + (cons __tmp48190 '())))) (declare (not safe)) - (cons __tmp48189 __tmp48187)))) + (cons __tmp48191 __tmp48189)))) (declare (not safe)) - (cons __tmp48186 '())))) + (cons __tmp48188 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48190 - __tmp48185))) - (__tmp48177 - (let ((__tmp48178 - (let ((__tmp48183 + (cons __tmp48192 + __tmp48187))) + (__tmp48179 + (let ((__tmp48180 + (let ((__tmp48185 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48179 - (let ((__tmp48182 + (__tmp48181 + (let ((__tmp48184 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48180 - (let ((__tmp48181 + (__tmp48182 + (let ((__tmp48183 (lambda (_g98819884_ _g98829887_) (let () (declare (not safe)) (cons _g98819884_ _g98829887_))))) (declare (not safe)) - (foldr1 __tmp48181 '() _L9841_)))) + (foldr1 __tmp48183 '() _L9841_)))) (declare (not safe)) - (cons __tmp48182 __tmp48180)))) + (cons __tmp48184 __tmp48182)))) (declare (not safe)) - (cons __tmp48183 __tmp48179)))) + (cons __tmp48185 __tmp48181)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48178 '())))) + (cons __tmp48180 '())))) (declare (not safe)) - (cons __tmp48184 __tmp48177)))) + (cons __tmp48186 __tmp48179)))) (declare (not safe)) - (cons __tmp48191 __tmp48176))) - (__tmp48173 - (let ((__tmp48174 + (cons __tmp48193 __tmp48178))) + (__tmp48175 + (let ((__tmp48176 (let () (declare (not safe)) (cons _L9843_ '())))) (declare (not safe)) - (cons __tmp48174 '())))) + (cons __tmp48176 '())))) (declare (not safe)) - (cons __tmp48175 __tmp48173)))) + (cons __tmp48177 __tmp48175)))) (declare (not safe)) - (cons __tmp48192 __tmp48172)))) + (cons __tmp48194 __tmp48174)))) (declare (not safe)) - (cons __tmp48200 __tmp48171))) + (cons __tmp48202 __tmp48173))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48168 - (let ((__tmp48169 + (__tmp48170 + (let ((__tmp48171 (let () (declare (not safe)) @@ -7179,24 +7179,24 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48169 '())))) + (cons __tmp48171 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48170 __tmp48168)))) + (cons __tmp48172 __tmp48170)))) (declare (not safe)) - (cons __tmp48201 __tmp48167)))) + (cons __tmp48203 __tmp48169)))) (declare (not safe)) - (cons __tmp48202 __tmp48166)))) + (cons __tmp48204 __tmp48168)))) (declare (not safe)) - (cons __tmp48165 '())))) + (cons __tmp48167 '())))) (declare (not safe)) - (cons __tmp48203 __tmp48164)))) + (cons __tmp48205 __tmp48166)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48228 - __tmp48163))) - (__tmp48160 - (let ((__tmp48161 + (cons __tmp48230 + __tmp48165))) + (__tmp48162 + (let ((__tmp48163 (let () (declare (not safe)) @@ -7205,21 +7205,21 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48161 '())))) + (cons __tmp48163 '())))) (declare (not safe)) - (cons __tmp48162 __tmp48160)))) + (cons __tmp48164 __tmp48162)))) (declare (not safe)) - (cons __tmp48229 __tmp48159)))) + (cons __tmp48231 __tmp48161)))) (declare (not safe)) - (cons __tmp48232 __tmp48158)))) + (cons __tmp48234 __tmp48160)))) (declare (not safe)) - (cons __tmp48157 '())))) + (cons __tmp48159 '())))) (declare (not safe)) - (cons __tmp48233 __tmp48156)))) + (cons __tmp48235 __tmp48158)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48246 - __tmp48155)))) + (cons __tmp48248 + __tmp48157)))) _hd97239831_ _hd97209821_ _hd97179811_ @@ -7251,32 +7251,32 @@ (vector-length _tab9681_))))))) (_min-fixnum8757_ (lambda (_datums9665_) - (let ((__tmp48247 + (let ((__tmp48249 (lambda (_lst9668_ _r9670_) (let () (declare (not safe)) (foldl1 min _r9670_ _lst9668_))))) (declare (not safe)) - (foldl1 __tmp48247 ##max-fixnum _datums9665_)))) + (foldl1 __tmp48249 ##max-fixnum _datums9665_)))) (_max-fixnum8758_ (lambda (_datums9658_) - (let ((__tmp48248 + (let ((__tmp48250 (lambda (_lst9661_ _r9663_) (let () (declare (not safe)) (foldl1 max _r9663_ _lst9661_))))) (declare (not safe)) - (foldl1 __tmp48248 ##min-fixnum _datums9658_)))) + (foldl1 __tmp48250 ##min-fixnum _datums9658_)))) (_generate-fixnum-dispatch-table8759_ (lambda (_indexes9640_) (let* ((_ixs9643_ (map car _indexes9640_)) (_len9646_ - (let ((__tmp48249 + (let ((__tmp48251 (let () (declare (not safe)) (foldl1 max '0 _ixs9643_)))) (declare (not safe)) - (fx+ __tmp48249 '1))) + (fx+ __tmp48251 '1))) (_vec9649_ (make-vector _len9646_ '#f))) (for-each (lambda (_entry9654_ _x9656_) @@ -7294,9 +7294,9 @@ (_generate-fixnum-dispatch-table8759_ _indexes9380_)) (_dense?9386_ - (let ((__tmp48250 (vector->list _tab9383_))) + (let ((__tmp48252 (vector->list _tab9383_))) (declare (not safe)) - (andmap1 values __tmp48250)))) + (andmap1 values __tmp48252)))) (let* ((_g93919435_ (lambda (_g93929431_) (gx#raise-syntax-error @@ -7349,30 +7349,30 @@ (declare (not safe)) (##cdr _e94119472_)))) (if (gx#stx-pair/null? _hd94109476_) - (let ((_g48251_ + (let ((_g48253_ (gx#syntax-split-splice _hd94109476_ '0))) (begin - (let ((_g48252_ + (let ((_g48254_ (let () (declare (not safe)) - (if (##values? _g48251_) - (##vector-length _g48251_) + (if (##values? _g48253_) + (##vector-length _g48253_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48252_ 2))) + (##fx= _g48254_ 2))) (error "Context expects 2 values" - _g48252_))) + _g48254_))) (let ((_target94129482_ (let () (declare (not safe)) - (##vector-ref _g48251_ 0))) + (##vector-ref _g48253_ 0))) (_tl94149485_ (let () (declare (not safe)) - (##vector-ref _g48251_ 1)))) + (##vector-ref _g48253_ 1)))) (if (gx#stx-null? _tl94149485_) (letrec ((_loop94159488_ (lambda (_hd94139492_ @@ -7443,145 +7443,145 @@ ((lambda (_L9603_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp48306 (gx#datum->syntax '#f 'let)) - (__tmp48253 - (let ((__tmp48293 - (let ((__tmp48300 - (let ((__tmp48301 - (let ((__tmp48302 - (let ((__tmp48305 + (let ((__tmp48308 (gx#datum->syntax '#f 'let)) + (__tmp48255 + (let ((__tmp48295 + (let ((__tmp48302 + (let ((__tmp48303 + (let ((__tmp48304 + (let ((__tmp48307 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp48303 - (let ((__tmp48304 + (__tmp48305 + (let ((__tmp48306 (let () (declare (not safe)) (cons _L9545_ '())))) (declare (not safe)) - (cons '() __tmp48304)))) + (cons '() __tmp48306)))) (declare (not safe)) - (cons __tmp48305 __tmp48303)))) + (cons __tmp48307 __tmp48305)))) (declare (not safe)) - (cons __tmp48302 '())))) + (cons __tmp48304 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L9548_ __tmp48301))) - (__tmp48294 - (let ((__tmp48295 - (let ((__tmp48296 - (let ((__tmp48297 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48299 (gx#datum->syntax '#f 'quote)) - (__tmp48298 + (cons _L9548_ __tmp48303))) + (__tmp48296 + (let ((__tmp48297 + (let ((__tmp48298 + (let ((__tmp48299 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48301 (gx#datum->syntax '#f 'quote)) + (__tmp48300 (let () (declare (not safe)) (cons _L9544_ '())))) (declare (not safe)) - (cons __tmp48299 __tmp48298)))) + (cons __tmp48301 __tmp48300)))) (declare (not safe)) - (cons __tmp48297 '())))) + (cons __tmp48299 '())))) (declare (not safe)) - (cons _L9547_ __tmp48296)))) + (cons _L9547_ __tmp48298)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48295 '())))) + (cons __tmp48297 '())))) (declare (not safe)) - (cons __tmp48300 __tmp48294))) - (__tmp48254 - (let ((__tmp48255 - (let ((__tmp48292 + (cons __tmp48302 __tmp48296))) + (__tmp48256 + (let ((__tmp48257 + (let ((__tmp48294 (gx#datum->syntax '#f 'if)) - (__tmp48256 - (let ((__tmp48289 - (let ((__tmp48291 + (__tmp48258 + (let ((__tmp48291 + (let ((__tmp48293 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fixnum?)) - (__tmp48290 + (__tmp48292 (let () (declare (not safe)) (cons _L9549_ '())))) (declare (not safe)) - (cons __tmp48291 __tmp48290))) - (__tmp48257 - (let ((__tmp48260 - (let ((__tmp48288 (gx#datum->syntax '#f 'if)) - (__tmp48261 - (let ((__tmp48276 - (let ((__tmp48287 + (cons __tmp48293 __tmp48292))) + (__tmp48259 + (let ((__tmp48262 + (let ((__tmp48290 (gx#datum->syntax '#f 'if)) + (__tmp48263 + (let ((__tmp48278 + (let ((__tmp48289 (gx#datum->syntax '#f 'and)) - (__tmp48277 - (let ((__tmp48283 - (let ((__tmp48286 + (__tmp48279 + (let ((__tmp48285 + (let ((__tmp48288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##fx>=)) - (__tmp48284 - (let ((__tmp48285 + (__tmp48286 + (let ((__tmp48287 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _L9549_ __tmp48285)))) + (cons _L9549_ __tmp48287)))) (declare (not safe)) - (cons __tmp48286 __tmp48284))) - (__tmp48278 - (let ((__tmp48279 - (let ((__tmp48282 (gx#datum->syntax '#f '##fx<)) - (__tmp48280 - (let ((__tmp48281 + (cons __tmp48288 __tmp48286))) + (__tmp48280 + (let ((__tmp48281 + (let ((__tmp48284 (gx#datum->syntax '#f '##fx<)) + (__tmp48282 + (let ((__tmp48283 (let () (declare (not safe)) (cons _L9542_ '())))) (declare (not safe)) - (cons _L9549_ __tmp48281)))) + (cons _L9549_ __tmp48283)))) (declare (not safe)) - (cons __tmp48282 __tmp48280)))) + (cons __tmp48284 __tmp48282)))) (declare (not safe)) - (cons __tmp48279 '())))) + (cons __tmp48281 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48283 - __tmp48278)))) + (cons __tmp48285 + __tmp48280)))) (declare (not safe)) - (cons __tmp48287 __tmp48277))) - (__tmp48262 - (let ((__tmp48265 - (let ((__tmp48275 + (cons __tmp48289 __tmp48279))) + (__tmp48264 + (let ((__tmp48267 + (let ((__tmp48277 (gx#datum->syntax '#f 'let)) - (__tmp48266 - (let ((__tmp48268 + (__tmp48268 + (let ((__tmp48270 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48274 (gx#datum->syntax '#f 'x)) - (__tmp48269 - (let ((__tmp48270 - (let ((__tmp48273 + (let ((__tmp48276 (gx#datum->syntax '#f 'x)) + (__tmp48271 + (let ((__tmp48272 + (let ((__tmp48275 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48271 - (let ((__tmp48272 + (__tmp48273 + (let ((__tmp48274 (let () (declare (not safe)) (cons _L9549_ '())))) (declare (not safe)) - (cons _L9547_ __tmp48272)))) + (cons _L9547_ __tmp48274)))) (declare (not safe)) - (cons __tmp48273 __tmp48271)))) + (cons __tmp48275 __tmp48273)))) (declare (not safe)) - (cons __tmp48270 '())))) + (cons __tmp48272 '())))) (declare (not safe)) - (cons __tmp48274 __tmp48269))) - (__tmp48267 + (cons __tmp48276 __tmp48271))) + (__tmp48269 (let () (declare (not safe)) (cons _L9603_ '())))) (declare (not safe)) - (cons __tmp48268 __tmp48267)))) + (cons __tmp48270 __tmp48269)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48275 - __tmp48266))) - (__tmp48263 - (let ((__tmp48264 + (cons __tmp48277 + __tmp48268))) + (__tmp48265 + (let ((__tmp48266 (let () (declare (not safe)) @@ -7590,68 +7590,68 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48264 '())))) + (cons __tmp48266 '())))) (declare (not safe)) - (cons __tmp48265 __tmp48263)))) + (cons __tmp48267 __tmp48265)))) (declare (not safe)) - (cons __tmp48276 __tmp48262)))) + (cons __tmp48278 __tmp48264)))) (declare (not safe)) - (cons __tmp48288 __tmp48261))) - (__tmp48258 - (let ((__tmp48259 + (cons __tmp48290 __tmp48263))) + (__tmp48260 + (let ((__tmp48261 (let () (declare (not safe)) (cons _L9548_ '())))) (declare (not safe)) - (cons __tmp48259 '())))) + (cons __tmp48261 '())))) (declare (not safe)) - (cons __tmp48260 __tmp48258)))) + (cons __tmp48262 __tmp48260)))) (declare (not safe)) - (cons __tmp48289 __tmp48257)))) + (cons __tmp48291 __tmp48259)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48292 - __tmp48256)))) + (cons __tmp48294 + __tmp48258)))) (declare (not safe)) - (cons __tmp48255 '())))) + (cons __tmp48257 '())))) (declare (not safe)) - (cons __tmp48293 __tmp48254)))) + (cons __tmp48295 __tmp48256)))) (declare (not safe)) - (cons __tmp48306 __tmp48253)))) + (cons __tmp48308 __tmp48255)))) _g95899600_)))) (_g95879616_ (if _dense?9386_ - (let ((__tmp48323 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48319 - (let ((__tmp48322 (gx#datum->syntax '#f 'x)) - (__tmp48320 - (let ((__tmp48321 + (let ((__tmp48325 (gx#datum->syntax '#f '~case-dispatch)) + (__tmp48321 + (let ((__tmp48324 (gx#datum->syntax '#f 'x)) + (__tmp48322 + (let ((__tmp48323 (lambda (_g96199622_ _g96209625_) (let () (declare (not safe)) (cons _g96199622_ _g96209625_))))) (declare (not safe)) - (foldr1 __tmp48321 '() _L9546_)))) + (foldr1 __tmp48323 '() _L9546_)))) (declare (not safe)) - (cons __tmp48322 __tmp48320)))) + (cons __tmp48324 __tmp48322)))) (declare (not safe)) - (cons __tmp48323 __tmp48319)) - (let ((__tmp48318 (gx#datum->syntax '#f 'if)) - (__tmp48307 - (let ((__tmp48317 (gx#datum->syntax '#f 'x)) - (__tmp48308 - (let ((__tmp48311 - (let ((__tmp48316 + (cons __tmp48325 __tmp48321)) + (let ((__tmp48320 (gx#datum->syntax '#f 'if)) + (__tmp48309 + (let ((__tmp48319 (gx#datum->syntax '#f 'x)) + (__tmp48310 + (let ((__tmp48313 + (let ((__tmp48318 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48312 - (let ((__tmp48315 + (__tmp48314 + (let ((__tmp48317 (gx#datum->syntax '#f 'x)) - (__tmp48313 - (let ((__tmp48314 + (__tmp48315 + (let ((__tmp48316 (lambda (_g96279630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g96289633_) @@ -7659,26 +7659,26 @@ (declare (not safe)) (cons _g96279630_ _g96289633_))))) (declare (not safe)) - (foldr1 __tmp48314 '() _L9546_)))) + (foldr1 __tmp48316 '() _L9546_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48315 - __tmp48313)))) + (cons __tmp48317 + __tmp48315)))) (declare (not safe)) - (cons __tmp48316 __tmp48312))) - (__tmp48309 - (let ((__tmp48310 + (cons __tmp48318 __tmp48314))) + (__tmp48311 + (let ((__tmp48312 (let () (declare (not safe)) (cons _L9548_ '())))) (declare (not safe)) - (cons __tmp48310 '())))) + (cons __tmp48312 '())))) (declare (not safe)) - (cons __tmp48311 __tmp48309)))) + (cons __tmp48313 __tmp48311)))) (declare (not safe)) - (cons __tmp48317 __tmp48308)))) + (cons __tmp48319 __tmp48310)))) (declare (not safe)) - (cons __tmp48318 __tmp48307))))))) + (cons __tmp48320 __tmp48309))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd94289536_ _hd94259526_ @@ -7774,28 +7774,28 @@ (declare (not safe)) (##cdr _e91869247_)))) (if (gx#stx-pair/null? _hd91859251_) - (let ((_g48324_ + (let ((_g48326_ (gx#syntax-split-splice _hd91859251_ '0))) (begin - (let ((_g48325_ + (let ((_g48327_ (let () (declare (not safe)) - (if (##values? _g48324_) - (##vector-length _g48324_) + (if (##values? _g48326_) + (##vector-length _g48326_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48325_ 2))) + (##fx= _g48327_ 2))) (error "Context expects 2 values" - _g48325_))) + _g48327_))) (let ((_target91879257_ (let () (declare (not safe)) - (##vector-ref _g48324_ 0))) + (##vector-ref _g48326_ 0))) (_tl91899260_ (let () (declare (not safe)) - (##vector-ref _g48324_ 1)))) + (##vector-ref _g48326_ 1)))) (if (gx#stx-null? _tl91899260_) (letrec ((_loop91909263_ (lambda (_hd91889267_ @@ -7856,22 +7856,22 @@ _L9323_ _L9324_) (let () - (let ((__tmp48409 + (let ((__tmp48411 (gx#datum->syntax '#f 'let)) - (__tmp48326 - (let ((__tmp48396 - (let ((__tmp48403 + (__tmp48328 + (let ((__tmp48398 + (let ((__tmp48405 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48404 - (let ((__tmp48405 - (let ((__tmp48408 + (let ((__tmp48406 + (let ((__tmp48407 + (let ((__tmp48410 (gx#datum->syntax '#f 'lambda)) - (__tmp48406 - (let ((__tmp48407 + (__tmp48408 + (let ((__tmp48409 (let () (declare (not safe)) @@ -7880,22 +7880,22 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48407)))) + (cons '() __tmp48409)))) (declare (not safe)) - (cons __tmp48408 __tmp48406)))) + (cons __tmp48410 __tmp48408)))) (declare (not safe)) - (cons __tmp48405 '())))) + (cons __tmp48407 '())))) (declare (not safe)) - (cons _L9323_ __tmp48404))) - (__tmp48397 - (let ((__tmp48398 - (let ((__tmp48399 - (let ((__tmp48400 - (let ((__tmp48402 + (cons _L9323_ __tmp48406))) + (__tmp48399 + (let ((__tmp48400 + (let ((__tmp48401 + (let ((__tmp48402 + (let ((__tmp48404 (gx#datum->syntax '#f 'quote)) - (__tmp48401 + (__tmp48403 (let () (declare (not safe)) @@ -7904,50 +7904,50 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48402 - __tmp48401)))) + (cons __tmp48404 + __tmp48403)))) (declare (not safe)) - (cons __tmp48400 '())))) + (cons __tmp48402 '())))) (declare (not safe)) - (cons _L9322_ __tmp48399)))) + (cons _L9322_ __tmp48401)))) (declare (not safe)) - (cons __tmp48398 '())))) + (cons __tmp48400 '())))) (declare (not safe)) - (cons __tmp48403 __tmp48397))) - (__tmp48327 - (let ((__tmp48328 - (let ((__tmp48395 (gx#datum->syntax '#f 'if)) - (__tmp48329 - (let ((__tmp48392 - (let ((__tmp48394 + (cons __tmp48405 __tmp48399))) + (__tmp48329 + (let ((__tmp48330 + (let ((__tmp48397 (gx#datum->syntax '#f 'if)) + (__tmp48331 + (let ((__tmp48394 + (let ((__tmp48396 (gx#datum->syntax '#f 'fixnum?)) - (__tmp48393 + (__tmp48395 (let () (declare (not safe)) (cons _L9324_ '())))) (declare (not safe)) - (cons __tmp48394 __tmp48393))) - (__tmp48330 - (let ((__tmp48333 - (let ((__tmp48391 + (cons __tmp48396 __tmp48395))) + (__tmp48332 + (let ((__tmp48335 + (let ((__tmp48393 (gx#datum->syntax '#f 'let*)) - (__tmp48334 - (let ((__tmp48374 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48384 - (let ((__tmp48390 (gx#datum->syntax '#f 'ix)) - (__tmp48385 - (let ((__tmp48386 - (let ((__tmp48389 + (__tmp48336 + (let ((__tmp48376 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48386 + (let ((__tmp48392 (gx#datum->syntax '#f 'ix)) + (__tmp48387 + (let ((__tmp48388 + (let ((__tmp48391 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48387 - (let ((__tmp48388 + (__tmp48389 + (let ((__tmp48390 (let () (declare (not safe)) @@ -7955,152 +7955,152 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L9324_ __tmp48388)))) + (cons _L9324_ __tmp48390)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48389 __tmp48387)))) + (cons __tmp48391 __tmp48389)))) (declare (not safe)) - (cons __tmp48386 '())))) + (cons __tmp48388 '())))) (declare (not safe)) - (cons __tmp48390 __tmp48385))) - (__tmp48375 - (let ((__tmp48376 - (let ((__tmp48383 + (cons __tmp48392 __tmp48387))) + (__tmp48377 + (let ((__tmp48378 + (let ((__tmp48385 (gx#datum->syntax '#f 'q)) - (__tmp48377 - (let ((__tmp48378 - (let ((__tmp48382 + (__tmp48379 + (let ((__tmp48380 + (let ((__tmp48384 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48379 - (let ((__tmp48380 + (__tmp48381 + (let ((__tmp48382 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48381 (gx#datum->syntax '#f 'ix))) + (let ((__tmp48383 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48381 '())))) + (cons __tmp48383 '())))) (declare (not safe)) - (cons _L9322_ __tmp48380)))) + (cons _L9322_ __tmp48382)))) (declare (not safe)) - (cons __tmp48382 __tmp48379)))) + (cons __tmp48384 __tmp48381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48378 '())))) + (cons __tmp48380 '())))) (declare (not safe)) - (cons __tmp48383 __tmp48377)))) + (cons __tmp48385 __tmp48379)))) (declare (not safe)) - (cons __tmp48376 '())))) + (cons __tmp48378 '())))) (declare (not safe)) - (cons __tmp48384 __tmp48375))) - (__tmp48335 - (let ((__tmp48336 - (let ((__tmp48373 (gx#datum->syntax '#f 'if)) - (__tmp48337 - (let ((__tmp48372 + (cons __tmp48386 __tmp48377))) + (__tmp48337 + (let ((__tmp48338 + (let ((__tmp48375 (gx#datum->syntax '#f 'if)) + (__tmp48339 + (let ((__tmp48374 (gx#datum->syntax '#f 'q)) - (__tmp48338 - (let ((__tmp48341 - (let ((__tmp48371 + (__tmp48340 + (let ((__tmp48343 + (let ((__tmp48373 (gx#datum->syntax '#f 'if)) - (__tmp48342 - (let ((__tmp48363 + (__tmp48344 + (let ((__tmp48365 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48370 (gx#datum->syntax '#f 'eq?)) - (__tmp48364 - (let ((__tmp48366 - (let ((__tmp48369 + (let ((__tmp48372 (gx#datum->syntax '#f 'eq?)) + (__tmp48366 + (let ((__tmp48368 + (let ((__tmp48371 (gx#datum->syntax '#f '##car)) - (__tmp48367 - (let ((__tmp48368 + (__tmp48369 + (let ((__tmp48370 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48368 '())))) + (cons __tmp48370 '())))) (declare (not safe)) - (cons __tmp48369 __tmp48367))) - (__tmp48365 + (cons __tmp48371 __tmp48369))) + (__tmp48367 (let () (declare (not safe)) (cons _L9324_ '())))) (declare (not safe)) - (cons __tmp48366 __tmp48365)))) + (cons __tmp48368 __tmp48367)))) (declare (not safe)) - (cons __tmp48370 __tmp48364))) - (__tmp48343 - (let ((__tmp48346 - (let ((__tmp48362 + (cons __tmp48372 __tmp48366))) + (__tmp48345 + (let ((__tmp48348 + (let ((__tmp48364 (gx#datum->syntax '#f 'let)) - (__tmp48347 - (let ((__tmp48355 - (let ((__tmp48361 + (__tmp48349 + (let ((__tmp48357 + (let ((__tmp48363 (gx#datum->syntax '#f 'x)) - (__tmp48356 - (let ((__tmp48357 - (let ((__tmp48360 + (__tmp48358 + (let ((__tmp48359 + (let ((__tmp48362 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48358 - (let ((__tmp48359 (gx#datum->syntax '#f 'q))) + (__tmp48360 + (let ((__tmp48361 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48359 '())))) + (cons __tmp48361 '())))) (declare (not safe)) - (cons __tmp48360 __tmp48358)))) + (cons __tmp48362 __tmp48360)))) (declare (not safe)) - (cons __tmp48357 '())))) + (cons __tmp48359 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48361 - __tmp48356))) - (__tmp48348 - (let ((__tmp48349 - (let ((__tmp48354 + (cons __tmp48363 + __tmp48358))) + (__tmp48350 + (let ((__tmp48351 + (let ((__tmp48356 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48350 - (let ((__tmp48353 + (__tmp48352 + (let ((__tmp48355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48351 - (let ((__tmp48352 + (__tmp48353 + (let ((__tmp48354 (lambda (_g93619364_ _g93629367_) (let () (declare (not safe)) (cons _g93619364_ _g93629367_))))) (declare (not safe)) - (foldr1 __tmp48352 '() _L9321_)))) + (foldr1 __tmp48354 '() _L9321_)))) (declare (not safe)) - (cons __tmp48353 __tmp48351)))) + (cons __tmp48355 __tmp48353)))) (declare (not safe)) - (cons __tmp48354 __tmp48350)))) + (cons __tmp48356 __tmp48352)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48349 '())))) + (cons __tmp48351 '())))) (declare (not safe)) - (cons __tmp48355 __tmp48348)))) + (cons __tmp48357 __tmp48350)))) (declare (not safe)) - (cons __tmp48362 __tmp48347))) - (__tmp48344 - (let ((__tmp48345 + (cons __tmp48364 __tmp48349))) + (__tmp48346 + (let ((__tmp48347 (let () (declare (not safe)) (cons _L9323_ '())))) (declare (not safe)) - (cons __tmp48345 '())))) + (cons __tmp48347 '())))) (declare (not safe)) - (cons __tmp48346 __tmp48344)))) + (cons __tmp48348 __tmp48346)))) (declare (not safe)) - (cons __tmp48363 __tmp48343)))) + (cons __tmp48365 __tmp48345)))) (declare (not safe)) - (cons __tmp48371 __tmp48342))) + (cons __tmp48373 __tmp48344))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48339 - (let ((__tmp48340 + (__tmp48341 + (let ((__tmp48342 (let () (declare (not safe)) @@ -8108,24 +8108,24 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48340 '())))) + (cons __tmp48342 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48341 __tmp48339)))) + (cons __tmp48343 __tmp48341)))) (declare (not safe)) - (cons __tmp48372 __tmp48338)))) + (cons __tmp48374 __tmp48340)))) (declare (not safe)) - (cons __tmp48373 __tmp48337)))) + (cons __tmp48375 __tmp48339)))) (declare (not safe)) - (cons __tmp48336 '())))) + (cons __tmp48338 '())))) (declare (not safe)) - (cons __tmp48374 __tmp48335)))) + (cons __tmp48376 __tmp48337)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48391 - __tmp48334))) - (__tmp48331 - (let ((__tmp48332 + (cons __tmp48393 + __tmp48336))) + (__tmp48333 + (let ((__tmp48334 (let () (declare (not safe)) @@ -8134,21 +8134,21 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48332 '())))) + (cons __tmp48334 '())))) (declare (not safe)) - (cons __tmp48333 __tmp48331)))) + (cons __tmp48335 __tmp48333)))) (declare (not safe)) - (cons __tmp48392 __tmp48330)))) + (cons __tmp48394 __tmp48332)))) (declare (not safe)) - (cons __tmp48395 __tmp48329)))) + (cons __tmp48397 __tmp48331)))) (declare (not safe)) - (cons __tmp48328 '())))) + (cons __tmp48330 '())))) (declare (not safe)) - (cons __tmp48396 __tmp48327)))) + (cons __tmp48398 __tmp48329)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48409 - __tmp48326)))) + (cons __tmp48411 + __tmp48328)))) _hd92039311_ _hd92009301_ _hd91979291_ @@ -8180,7 +8180,7 @@ (vector-length _tab9161_))))))) (_generate-generic-dispatch8762_ (lambda (_e8888_ _datums8890_ _dispatch8891_ _default8892_) - (let ((_g48410_ + (let ((_g48412_ (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 _g48410_ 0))) + (##vector-ref _g48412_ 0))) (_hashf8896_ (let () (declare (not safe)) - (##vector-ref _g48410_ 1))) + (##vector-ref _g48412_ 1))) (_eqf8897_ (let () (declare (not safe)) - (##vector-ref _g48410_ 2)))) + (##vector-ref _g48412_ 2)))) (let* ((_indexes8899_ (_datum-dispatch-index8747_ _datums8890_)) (_tab8902_ @@ -8257,30 +8257,30 @@ (declare (not safe)) (##cdr _e89298996_)))) (if (gx#stx-pair/null? _hd89289000_) - (let ((_g48411_ + (let ((_g48413_ (gx#syntax-split-splice _hd89289000_ '0))) (begin - (let ((_g48412_ + (let ((_g48414_ (let () (declare (not safe)) - (if (##values? _g48411_) - (##vector-length _g48411_) + (if (##values? _g48413_) + (##vector-length _g48413_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48412_ 2))) + (##fx= _g48414_ 2))) (error "Context expects 2 values" - _g48412_))) + _g48414_))) (let ((_target89309006_ (let () (declare (not safe)) - (##vector-ref _g48411_ 0))) + (##vector-ref _g48413_ 0))) (_tl89329009_ (let () (declare (not safe)) - (##vector-ref _g48411_ 1)))) + (##vector-ref _g48413_ 1)))) (if (gx#stx-null? _tl89329009_) (letrec ((_loop89339012_ (lambda (_hd89319016_ @@ -8368,267 +8368,267 @@ _L9094_ _L9095_) (let () - (let ((__tmp48493 (gx#datum->syntax '#f 'let)) - (__tmp48413 - (let ((__tmp48480 - (let ((__tmp48487 - (let ((__tmp48488 - (let ((__tmp48489 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48492 (gx#datum->syntax '#f 'lambda)) - (__tmp48490 - (let ((__tmp48491 + (let ((__tmp48495 (gx#datum->syntax '#f 'let)) + (__tmp48415 + (let ((__tmp48482 + (let ((__tmp48489 + (let ((__tmp48490 + (let ((__tmp48491 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48494 (gx#datum->syntax '#f 'lambda)) + (__tmp48492 + (let ((__tmp48493 (let () (declare (not safe)) (cons _L9091_ '())))) (declare (not safe)) - (cons '() __tmp48491)))) + (cons '() __tmp48493)))) (declare (not safe)) - (cons __tmp48492 __tmp48490)))) + (cons __tmp48494 __tmp48492)))) (declare (not safe)) - (cons __tmp48489 '())))) + (cons __tmp48491 '())))) (declare (not safe)) - (cons _L9094_ __tmp48488))) + (cons _L9094_ __tmp48490))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48481 - (let ((__tmp48482 - (let ((__tmp48483 + (__tmp48483 + (let ((__tmp48484 + (let ((__tmp48485 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48484 - (let ((__tmp48486 + (let ((__tmp48486 + (let ((__tmp48488 (gx#datum->syntax '#f 'quote)) - (__tmp48485 + (__tmp48487 (let () (declare (not safe)) (cons _L9090_ '())))) (declare (not safe)) - (cons __tmp48486 __tmp48485)))) + (cons __tmp48488 __tmp48487)))) (declare (not safe)) - (cons __tmp48484 '())))) + (cons __tmp48486 '())))) (declare (not safe)) - (cons _L9093_ __tmp48483)))) + (cons _L9093_ __tmp48485)))) (declare (not safe)) - (cons __tmp48482 '())))) + (cons __tmp48484 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48487 __tmp48481))) - (__tmp48414 - (let ((__tmp48415 - (let ((__tmp48479 + (cons __tmp48489 __tmp48483))) + (__tmp48416 + (let ((__tmp48417 + (let ((__tmp48481 (gx#datum->syntax '#f 'let*)) - (__tmp48416 - (let ((__tmp48455 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48474 - (let ((__tmp48478 (gx#datum->syntax '#f 'h)) - (__tmp48475 - (let ((__tmp48476 - (let ((__tmp48477 + (__tmp48418 + (let ((__tmp48457 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48476 + (let ((__tmp48480 (gx#datum->syntax '#f 'h)) + (__tmp48477 + (let ((__tmp48478 + (let ((__tmp48479 (let () (declare (not safe)) (cons _L9095_ '())))) (declare (not safe)) - (cons _L9088_ __tmp48477)))) + (cons _L9088_ __tmp48479)))) (declare (not safe)) - (cons __tmp48476 '())))) + (cons __tmp48478 '())))) (declare (not safe)) - (cons __tmp48478 __tmp48475))) - (__tmp48456 - (let ((__tmp48466 - (let ((__tmp48473 + (cons __tmp48480 __tmp48477))) + (__tmp48458 + (let ((__tmp48468 + (let ((__tmp48475 (gx#datum->syntax '#f 'ix)) - (__tmp48467 - (let ((__tmp48468 - (let ((__tmp48472 + (__tmp48469 + (let ((__tmp48470 + (let ((__tmp48474 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48469 - (let ((__tmp48471 + (__tmp48471 + (let ((__tmp48473 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp48470 + (__tmp48472 (let () (declare (not safe)) (cons _L9089_ '())))) (declare (not safe)) - (cons __tmp48471 __tmp48470)))) + (cons __tmp48473 __tmp48472)))) (declare (not safe)) - (cons __tmp48472 __tmp48469)))) + (cons __tmp48474 __tmp48471)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48468 '())))) + (cons __tmp48470 '())))) (declare (not safe)) - (cons __tmp48473 __tmp48467))) - (__tmp48457 - (let ((__tmp48458 - (let ((__tmp48465 + (cons __tmp48475 __tmp48469))) + (__tmp48459 + (let ((__tmp48460 + (let ((__tmp48467 (gx#datum->syntax '#f 'q)) - (__tmp48459 - (let ((__tmp48460 - (let ((__tmp48464 + (__tmp48461 + (let ((__tmp48462 + (let ((__tmp48466 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp48461 - (let ((__tmp48462 - (let ((__tmp48463 + (__tmp48463 + (let ((__tmp48464 + (let ((__tmp48465 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48463 '())))) + (cons __tmp48465 '())))) (declare (not safe)) - (cons _L9093_ __tmp48462)))) + (cons _L9093_ __tmp48464)))) (declare (not safe)) - (cons __tmp48464 __tmp48461)))) + (cons __tmp48466 __tmp48463)))) (declare (not safe)) - (cons __tmp48460 '())))) + (cons __tmp48462 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48465 - __tmp48459)))) + (cons __tmp48467 + __tmp48461)))) (declare (not safe)) - (cons __tmp48458 '())))) + (cons __tmp48460 '())))) (declare (not safe)) - (cons __tmp48466 __tmp48457)))) + (cons __tmp48468 __tmp48459)))) (declare (not safe)) - (cons __tmp48474 __tmp48456))) - (__tmp48417 - (let ((__tmp48418 - (let ((__tmp48454 (gx#datum->syntax '#f 'if)) - (__tmp48419 - (let ((__tmp48453 + (cons __tmp48476 __tmp48458))) + (__tmp48419 + (let ((__tmp48420 + (let ((__tmp48456 (gx#datum->syntax '#f 'if)) + (__tmp48421 + (let ((__tmp48455 (gx#datum->syntax '#f 'q)) - (__tmp48420 - (let ((__tmp48423 - (let ((__tmp48452 + (__tmp48422 + (let ((__tmp48425 + (let ((__tmp48454 (gx#datum->syntax '#f 'if)) - (__tmp48424 - (let ((__tmp48445 + (__tmp48426 + (let ((__tmp48447 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48446 - (let ((__tmp48448 - (let ((__tmp48451 + (let ((__tmp48448 + (let ((__tmp48450 + (let ((__tmp48453 (gx#datum->syntax '#f '##car)) - (__tmp48449 - (let ((__tmp48450 + (__tmp48451 + (let ((__tmp48452 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48450 '())))) + (cons __tmp48452 '())))) (declare (not safe)) - (cons __tmp48451 __tmp48449))) - (__tmp48447 + (cons __tmp48453 __tmp48451))) + (__tmp48449 (let () (declare (not safe)) (cons _L9095_ '())))) (declare (not safe)) - (cons __tmp48448 __tmp48447)))) + (cons __tmp48450 __tmp48449)))) (declare (not safe)) - (cons _L9086_ __tmp48446))) - (__tmp48425 - (let ((__tmp48428 - (let ((__tmp48444 + (cons _L9086_ __tmp48448))) + (__tmp48427 + (let ((__tmp48430 + (let ((__tmp48446 (gx#datum->syntax '#f 'let)) - (__tmp48429 - (let ((__tmp48437 - (let ((__tmp48443 + (__tmp48431 + (let ((__tmp48439 + (let ((__tmp48445 (gx#datum->syntax '#f 'x)) - (__tmp48438 - (let ((__tmp48439 - (let ((__tmp48442 + (__tmp48440 + (let ((__tmp48441 + (let ((__tmp48444 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48440 - (let ((__tmp48441 (gx#datum->syntax '#f 'q))) + (__tmp48442 + (let ((__tmp48443 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48441 '())))) + (cons __tmp48443 '())))) (declare (not safe)) - (cons __tmp48442 __tmp48440)))) + (cons __tmp48444 __tmp48442)))) (declare (not safe)) - (cons __tmp48439 '())))) + (cons __tmp48441 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48443 - __tmp48438))) - (__tmp48430 - (let ((__tmp48431 - (let ((__tmp48436 + (cons __tmp48445 + __tmp48440))) + (__tmp48432 + (let ((__tmp48433 + (let ((__tmp48438 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48432 - (let ((__tmp48435 + (__tmp48434 + (let ((__tmp48437 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48433 - (let ((__tmp48434 + (__tmp48435 + (let ((__tmp48436 (lambda (_g91399142_ _g91409145_) (let () (declare (not safe)) (cons _g91399142_ _g91409145_))))) (declare (not safe)) - (foldr1 __tmp48434 '() _L9092_)))) + (foldr1 __tmp48436 '() _L9092_)))) (declare (not safe)) - (cons __tmp48435 __tmp48433)))) + (cons __tmp48437 __tmp48435)))) (declare (not safe)) - (cons __tmp48436 __tmp48432)))) + (cons __tmp48438 __tmp48434)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48431 '())))) + (cons __tmp48433 '())))) (declare (not safe)) - (cons __tmp48437 __tmp48430)))) + (cons __tmp48439 __tmp48432)))) (declare (not safe)) - (cons __tmp48444 __tmp48429))) - (__tmp48426 - (let ((__tmp48427 + (cons __tmp48446 __tmp48431))) + (__tmp48428 + (let ((__tmp48429 (let () (declare (not safe)) (cons _L9094_ '())))) (declare (not safe)) - (cons __tmp48427 '())))) + (cons __tmp48429 '())))) (declare (not safe)) - (cons __tmp48428 __tmp48426)))) + (cons __tmp48430 __tmp48428)))) (declare (not safe)) - (cons __tmp48445 __tmp48425)))) + (cons __tmp48447 __tmp48427)))) (declare (not safe)) - (cons __tmp48452 __tmp48424))) + (cons __tmp48454 __tmp48426))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48421 - (let ((__tmp48422 + (__tmp48423 + (let ((__tmp48424 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L9094_ '())))) (declare (not safe)) - (cons __tmp48422 '())))) + (cons __tmp48424 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48423 - __tmp48421)))) + (cons __tmp48425 + __tmp48423)))) (declare (not safe)) - (cons __tmp48453 __tmp48420)))) + (cons __tmp48455 __tmp48422)))) (declare (not safe)) - (cons __tmp48454 __tmp48419)))) + (cons __tmp48456 __tmp48421)))) (declare (not safe)) - (cons __tmp48418 '())))) + (cons __tmp48420 '())))) (declare (not safe)) - (cons __tmp48455 __tmp48417)))) + (cons __tmp48457 __tmp48419)))) (declare (not safe)) - (cons __tmp48479 __tmp48416)))) + (cons __tmp48481 __tmp48418)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48415 '())))) + (cons __tmp48417 '())))) (declare (not safe)) - (cons __tmp48480 __tmp48414)))) + (cons __tmp48482 __tmp48416)))) (declare (not safe)) - (cons __tmp48493 __tmp48413)))) + (cons __tmp48495 __tmp48415)))) _hd89529080_ _hd89499070_ _hd89469060_ @@ -8695,34 +8695,34 @@ (declare (not safe)) (##cdr _e87738805_)))) (if (gx#stx-pair/null? _tl87718812_) - (let ((_g48494_ + (let ((_g48496_ (gx#syntax-split-splice _tl87718812_ '0))) (begin - (let ((_g48495_ + (let ((_g48497_ (let () (declare (not safe)) - (if (##values? _g48494_) + (if (##values? _g48496_) (##vector-length - _g48494_) + _g48496_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48495_ 2))) + (##fx= _g48497_ 2))) (error "Context expects 2 values" - _g48495_))) + _g48497_))) (let ((_target87748815_ (let () (declare (not safe)) (##vector-ref - _g48494_ + _g48496_ 0))) (_tl87768818_ (let () (declare (not safe)) (##vector-ref - _g48494_ + _g48496_ 1)))) (if (gx#stx-null? _tl87768818_) (letrec ((_loop87778821_ @@ -8746,41 +8746,41 @@ (cons _lp-hd87798835_ _clause87818828_))))) (let ((_clause87828841_ (reverse _clause87818828_))) ((lambda (_L8845_ _L8847_) - (let ((_g48496_ + (let ((_g48498_ (_parse-clauses8738_ _L8847_ - (let ((__tmp48498 + (let ((__tmp48500 (lambda (_g88658868_ _g88668871_) (let () (declare (not safe)) (cons _g88658868_ _g88668871_))))) (declare (not safe)) - (foldr1 __tmp48498 '() _L8845_))))) + (foldr1 __tmp48500 '() _L8845_))))) (begin - (let ((_g48497_ + (let ((_g48499_ (let () (declare (not safe)) - (if (##values? _g48496_) - (##vector-length _g48496_) + (if (##values? _g48498_) + (##vector-length _g48498_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48497_ 3))) + (##fx= _g48499_ 3))) (error "Context expects 3 values" - _g48497_))) + _g48499_))) (let ((_datums8874_ (let () (declare (not safe)) - (##vector-ref _g48496_ 0))) + (##vector-ref _g48498_ 0))) (_dispatch8876_ (let () (declare (not safe)) - (##vector-ref _g48496_ 1))) + (##vector-ref _g48498_ 1))) (_default8877_ (let () (declare (not safe)) - (##vector-ref _g48496_ 2)))) + (##vector-ref _g48498_ 2)))) (let ((_datum-count8879_ (_count-datums8741_ _datums8874_))) (if (< _datum-count8879_ '6) @@ -8890,67 +8890,67 @@ (not safe)) (immediate? _datum-e11862_))) - (let ((__tmp48516 + (let ((__tmp48518 (gx#datum->syntax '#f 'eq?)) - (__tmp48511 - (let ((__tmp48513 + (__tmp48513 + (let ((__tmp48515 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48515 (gx#datum->syntax '#f 'quote)) - (__tmp48514 + (let ((__tmp48517 (gx#datum->syntax '#f 'quote)) + (__tmp48516 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48515 __tmp48514))) - (__tmp48512 + (cons __tmp48517 __tmp48516))) + (__tmp48514 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48513 __tmp48512)))) + (cons __tmp48515 __tmp48514)))) (declare (not safe)) - (cons __tmp48516 __tmp48511)) + (cons __tmp48518 __tmp48513)) (if (let () (declare (not safe)) (number? _datum-e11862_)) - (let ((__tmp48510 (gx#datum->syntax '#f 'eqv?)) - (__tmp48505 - (let ((__tmp48507 - (let ((__tmp48509 + (let ((__tmp48512 (gx#datum->syntax '#f 'eqv?)) + (__tmp48507 + (let ((__tmp48509 + (let ((__tmp48511 (gx#datum->syntax '#f 'quote)) - (__tmp48508 + (__tmp48510 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48509 __tmp48508))) - (__tmp48506 + (cons __tmp48511 __tmp48510))) + (__tmp48508 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48507 __tmp48506)))) + (cons __tmp48509 __tmp48508)))) (declare (not safe)) - (cons __tmp48510 __tmp48505)) - (let ((__tmp48504 (gx#datum->syntax '#f 'equal?)) - (__tmp48499 - (let ((__tmp48501 - (let ((__tmp48503 + (cons __tmp48512 __tmp48507)) + (let ((__tmp48506 (gx#datum->syntax '#f 'equal?)) + (__tmp48501 + (let ((__tmp48503 + (let ((__tmp48505 (gx#datum->syntax '#f 'quote)) - (__tmp48502 + (__tmp48504 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48503 __tmp48502))) - (__tmp48500 + (cons __tmp48505 __tmp48504))) + (__tmp48502 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48501 __tmp48500)))) + (cons __tmp48503 __tmp48502)))) (declare (not safe)) - (cons __tmp48504 __tmp48499)))))) + (cons __tmp48506 __tmp48501)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1180011838_ _hd1179711828_) @@ -8991,31 +8991,31 @@ (declare (not safe)) (##cdr _e1189011922_)))) (if (gx#stx-pair/null? _tl1188811929_) - (let ((_g48517_ + (let ((_g48519_ (gx#syntax-split-splice _tl1188811929_ '0))) (begin - (let ((_g48518_ + (let ((_g48520_ (let () (declare (not safe)) - (if (##values? _g48517_) + (if (##values? _g48519_) (##vector-length - _g48517_) + _g48519_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48518_ 2))) + (##fx= _g48520_ 2))) (error "Context expects 2 values" - _g48518_))) + _g48520_))) (let ((_target1189111932_ (let () (declare (not safe)) - (##vector-ref _g48517_ 0))) + (##vector-ref _g48519_ 0))) (_tl1189311935_ (let () (declare (not safe)) - (##vector-ref _g48517_ 1)))) + (##vector-ref _g48519_ 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 ((__tmp48523 + (let ((__tmp48525 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48519 - (let ((__tmp48520 - (let ((__tmp48521 - (let ((__tmp48522 + (__tmp48521 + (let ((__tmp48522 + (let ((__tmp48523 + (let ((__tmp48524 (lambda (_g1198111984_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1198211987_) @@ -9052,15 +9052,15 @@ (cons _g1198111984_ _g1198211987_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48522 + (foldr1 __tmp48524 '() _L11962_)))) (declare (not safe)) - (cons _L11964_ __tmp48521)))) + (cons _L11964_ __tmp48523)))) (declare (not safe)) - (cons '0 __tmp48520)))) + (cons '0 __tmp48522)))) (declare (not safe)) - (cons __tmp48523 __tmp48519))) + (cons __tmp48525 __tmp48521))) _K1189911958_ _hd1188911926_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -9084,11 +9084,11 @@ ___stx4307443075_)))) (let ((___kont4307743078_ (lambda (_L12575_ _L12577_) - (let ((__tmp48525 (gx#datum->syntax '#f 'quote)) - (__tmp48524 + (let ((__tmp48527 (gx#datum->syntax '#f 'quote)) + (__tmp48526 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp48525 __tmp48524)))) + (cons __tmp48527 __tmp48526)))) (___kont4307943080_ (lambda (_L12517_ _L12519_ _L12520_) _L12517_)) (___kont4308143082_ @@ -9103,37 +9103,37 @@ (lambda (_g1244012451_) ((lambda (_L12454_) (let () - (let ((__tmp48533 (gx#datum->syntax '#f 'if)) - (__tmp48526 - (let ((__tmp48529 - (let ((__tmp48532 + (let ((__tmp48535 (gx#datum->syntax '#f 'if)) + (__tmp48528 + (let ((__tmp48531 + (let ((__tmp48534 (gx#datum->syntax '#f '##fx=)) - (__tmp48530 - (let ((__tmp48531 + (__tmp48532 + (let ((__tmp48533 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L12454_ '())))) (declare (not safe)) - (cons _L12417_ __tmp48531)))) + (cons _L12417_ __tmp48533)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48532 - __tmp48530))) - (__tmp48527 - (let ((__tmp48528 + (cons __tmp48534 + __tmp48532))) + (__tmp48529 + (let ((__tmp48530 (let () (declare (not safe)) (cons _L12414_ '())))) (declare (not safe)) - (cons _L12416_ __tmp48528)))) + (cons _L12416_ __tmp48530)))) (declare (not safe)) - (cons __tmp48529 __tmp48527)))) + (cons __tmp48531 __tmp48529)))) (declare (not safe)) - (cons __tmp48533 __tmp48526)))) + (cons __tmp48535 __tmp48528)))) _g1244012451_)))) (_g1243812466_ (gx#stx-e _L12418_))))) (___kont4308343084_ @@ -9171,63 +9171,63 @@ (if (gx#stx-null? _tl1230012332_) ((lambda (_L12335_ _L12337_) (let () - (let ((__tmp48550 + (let ((__tmp48552 (gx#datum->syntax '#f 'if)) - (__tmp48534 - (let ((__tmp48546 + (__tmp48536 + (let ((__tmp48548 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48549 (gx#datum->syntax '#f '##fx=)) - (__tmp48547 - (let ((__tmp48548 + (let ((__tmp48551 (gx#datum->syntax '#f '##fx=)) + (__tmp48549 + (let ((__tmp48550 (let () (declare (not safe)) (cons _L12337_ '())))) (declare (not safe)) - (cons _L12268_ __tmp48548)))) + (cons _L12268_ __tmp48550)))) (declare (not safe)) - (cons __tmp48549 __tmp48547))) - (__tmp48535 - (let ((__tmp48536 - (let ((__tmp48537 - (let ((__tmp48545 + (cons __tmp48551 __tmp48549))) + (__tmp48537 + (let ((__tmp48538 + (let ((__tmp48539 + (let ((__tmp48547 (gx#datum->syntax '#f 'if)) - (__tmp48538 - (let ((__tmp48541 - (let ((__tmp48544 + (__tmp48540 + (let ((__tmp48543 + (let ((__tmp48546 (gx#datum->syntax '#f '##fx=)) - (__tmp48542 - (let ((__tmp48543 + (__tmp48544 + (let ((__tmp48545 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L12335_ '())))) (declare (not safe)) - (cons _L12268_ __tmp48543)))) + (cons _L12268_ __tmp48545)))) (declare (not safe)) - (cons __tmp48544 __tmp48542))) - (__tmp48539 - (let ((__tmp48540 + (cons __tmp48546 __tmp48544))) + (__tmp48541 + (let ((__tmp48542 (let () (declare (not safe)) (cons _L12264_ '())))) (declare (not safe)) - (cons _L12266_ __tmp48540)))) + (cons _L12266_ __tmp48542)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48541 - __tmp48539)))) + (cons __tmp48543 + __tmp48541)))) (declare (not safe)) - (cons __tmp48545 __tmp48538)))) + (cons __tmp48547 __tmp48540)))) (declare (not safe)) - (cons __tmp48537 '())))) + (cons __tmp48539 '())))) (declare (not safe)) - (cons _L12267_ __tmp48536)))) + (cons _L12267_ __tmp48538)))) (declare (not safe)) - (cons __tmp48546 __tmp48535)))) + (cons __tmp48548 __tmp48537)))) (declare (not safe)) - (cons __tmp48550 __tmp48534)))) + (cons __tmp48552 __tmp48536)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1230112329_ _hd1229812319_) @@ -9237,17 +9237,17 @@ (_g1229312308_ _g1229412312_))))) (_g1229212353_ (list (gx#stx-e _L12269_) - (let ((__tmp48551 (gx#stx-e _L12269_))) + (let ((__tmp48553 (gx#stx-e _L12269_))) (declare (not safe)) - (fx+ __tmp48551 '1))))))) + (fx+ __tmp48553 '1))))))) (___kont4308543086_ (lambda (_L12165_ _L12167_ _L12168_) - (let ((__tmp48556 + (let ((__tmp48558 (gx#datum->syntax '#f '~case-dispatch-bsearch)) - (__tmp48552 - (let ((__tmp48553 - (let ((__tmp48554 - (let ((__tmp48555 + (__tmp48554 + (let ((__tmp48555 + (let ((__tmp48556 + (let ((__tmp48557 (lambda (_g1218812191_ _g1218912194_) (let () @@ -9255,13 +9255,13 @@ (cons _g1218812191_ _g1218912194_))))) (declare (not safe)) - (foldr1 __tmp48555 '() _L12165_)))) + (foldr1 __tmp48557 '() _L12165_)))) (declare (not safe)) - (cons _L12167_ __tmp48554)))) + (cons _L12167_ __tmp48556)))) (declare (not safe)) - (cons _L12168_ __tmp48553)))) + (cons _L12168_ __tmp48555)))) (declare (not safe)) - (cons __tmp48556 __tmp48552))))) + (cons __tmp48558 __tmp48554))))) (let ((___match4323143232_ (lambda (_e1207712105_ _hd1207612109_ @@ -9547,9 +9547,9 @@ (_lp12965_ (let () (declare (not safe)) (fx+ _i12968_ '1)) (cdr _rest12970_) - (let ((__tmp48557 (car _rest12970_))) + (let ((__tmp48559 (car _rest12970_))) (declare (not safe)) - (cons __tmp48557 _left12971_))) + (cons __tmp48559 _left12971_))) (values (reverse _left12971_) _rest12970_)))))) (let* ((_g1260312631_ (lambda (_g1260412627_) @@ -9593,36 +9593,36 @@ (##cdr _e1261612658_)))) (if (gx#stx-pair/null? _tl1261412665_) - (let ((_g48558_ + (let ((_g48560_ (gx#syntax-split-splice _tl1261412665_ '0))) (begin - (let ((_g48559_ + (let ((_g48561_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48558_) - (##vector-length _g48558_) + _g48560_) + (##vector-length _g48560_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48559_ 2))) - (error "Context expects 2 values" _g48559_))) + (if (not (let () (declare (not safe)) (##fx= _g48561_ 2))) + (error "Context expects 2 values" _g48561_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1261712668_ (let () (declare (not safe)) (##vector-ref - _g48558_ + _g48560_ 0))) (_tl1261912671_ (let () (declare (not safe)) (##vector-ref - _g48558_ + _g48560_ 1)))) (if (gx#stx-null? _tl1261912671_) @@ -9650,7 +9650,7 @@ (reverse _K1262412681_))) ((lambda (_L12698_ _L12700_ _L12701_) (let* ((_len12731_ - (length (let ((__tmp48560 + (length (let ((__tmp48562 (lambda (_g1272212725_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1272312728_) @@ -9658,13 +9658,13 @@ (declare (not safe)) (cons _g1272212725_ _g1272312728_))))) (declare (not safe)) - (foldr1 __tmp48560 '() _L12698_)))) + (foldr1 __tmp48562 '() _L12698_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_mid12734_ (quotient _len12731_ '2)) - (_g48561_ + (_g48563_ (_split12600_ - (let ((__tmp48563 + (let ((__tmp48565 (lambda (_g1273612739_ _g1273712742_) (let () @@ -9674,32 +9674,32 @@ _g1273712742_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48563 + (foldr1 __tmp48565 '() _L12698_)) _mid12734_))) (begin - (let ((_g48562_ + (let ((_g48564_ (let () (declare (not safe)) - (if (##values? _g48561_) + (if (##values? _g48563_) (##vector-length - _g48561_) + _g48563_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48562_ 2))) + (##fx= _g48564_ 2))) (error "Context expects 2 values" - _g48562_))) + _g48564_))) (let ((_left12745_ (let () (declare (not safe)) - (##vector-ref _g48561_ 0))) + (##vector-ref _g48563_ 0))) (_right12747_ (let () (declare (not safe)) (##vector-ref - _g48561_ + _g48563_ 1)))) (let () (let* ((_g1275112792_ @@ -9735,31 +9735,31 @@ (declare (not safe)) (##cdr _e1276212809_)))) (if (gx#stx-pair/null? _hd1276112813_) - (let ((_g48564_ + (let ((_g48566_ (gx#syntax-split-splice _hd1276112813_ '0))) (begin - (let ((_g48565_ + (let ((_g48567_ (let () (declare (not safe)) - (if (##values? _g48564_) + (if (##values? _g48566_) (##vector-length - _g48564_) + _g48566_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48565_ 2))) + (##fx= _g48567_ 2))) (error "Context expects 2 values" - _g48565_))) + _g48567_))) (let ((_target1276312819_ (let () (declare (not safe)) - (##vector-ref _g48564_ 0))) + (##vector-ref _g48566_ 0))) (_tl1276512822_ (let () (declare (not safe)) - (##vector-ref _g48564_ 1)))) + (##vector-ref _g48566_ 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 ((_g48566_ + (let ((_g48568_ (gx#syntax-split-splice _hd1277312853_ '0))) (begin - (let ((_g48567_ + (let ((_g48569_ (let () (declare (not safe)) - (if (##values? _g48566_) + (if (##values? _g48568_) (##vector-length - _g48566_) + _g48568_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48567_ 2))) + (##fx= _g48569_ 2))) (error "Context expects 2 values" - _g48567_))) + _g48569_))) (let ((_target1277512859_ (let () (declare (not safe)) - (##vector-ref _g48566_ 0))) + (##vector-ref _g48568_ 0))) (_tl1277712862_ (let () (declare (not safe)) - (##vector-ref _g48566_ 1)))) + (##vector-ref _g48568_ 1)))) (if (gx#stx-null? _tl1277712862_) (letrec ((_loop1277812865_ (lambda (_hd1277612869_ @@ -9857,32 +9857,32 @@ _L12902_ _L12903_) (let () - (let ((__tmp48587 + (let ((__tmp48589 (gx#datum->syntax '#f 'if)) - (__tmp48568 - (let ((__tmp48583 - (let ((__tmp48586 + (__tmp48570 + (let ((__tmp48585 + (let ((__tmp48588 (gx#datum->syntax '#f '##fx<)) - (__tmp48584 - (let ((__tmp48585 + (__tmp48586 + (let ((__tmp48587 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L12899_ '())))) (declare (not safe)) - (cons _L12700_ __tmp48585)))) + (cons _L12700_ __tmp48587)))) (declare (not safe)) - (cons __tmp48586 __tmp48584))) - (__tmp48569 - (let ((__tmp48577 - (let ((__tmp48582 + (cons __tmp48588 __tmp48586))) + (__tmp48571 + (let ((__tmp48579 + (let ((__tmp48584 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48578 - (let ((__tmp48579 - (let ((__tmp48580 - (let ((__tmp48581 + (__tmp48580 + (let ((__tmp48581 + (let ((__tmp48582 + (let ((__tmp48583 (lambda (_g1293812941_ _g1293912944_) (let () @@ -9890,23 +9890,23 @@ (cons _g1293812941_ _g1293912944_))))) (declare (not safe)) - (foldr1 __tmp48581 + (foldr1 __tmp48583 '() _L12902_)))) (declare (not safe)) - (cons _L12700_ __tmp48580)))) + (cons _L12700_ __tmp48582)))) (declare (not safe)) - (cons _L12701_ __tmp48579)))) + (cons _L12701_ __tmp48581)))) (declare (not safe)) - (cons __tmp48582 __tmp48578))) - (__tmp48570 - (let ((__tmp48571 - (let ((__tmp48576 + (cons __tmp48584 __tmp48580))) + (__tmp48572 + (let ((__tmp48573 + (let ((__tmp48578 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48572 - (let ((__tmp48573 - (let ((__tmp48574 - (let ((__tmp48575 + (__tmp48574 + (let ((__tmp48575 + (let ((__tmp48576 + (let ((__tmp48577 (lambda (_g1293612947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1293712950_) @@ -9915,25 +9915,25 @@ (cons _g1293612947_ _g1293712950_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48575 + (foldr1 __tmp48577 '() _L12901_)))) (declare (not safe)) - (cons _L12700_ __tmp48574)))) + (cons _L12700_ __tmp48576)))) (declare (not safe)) - (cons _L12899_ __tmp48573)))) + (cons _L12899_ __tmp48575)))) (declare (not safe)) - (cons __tmp48576 __tmp48572)))) + (cons __tmp48578 __tmp48574)))) (declare (not safe)) - (cons __tmp48571 '())))) + (cons __tmp48573 '())))) (declare (not safe)) - (cons __tmp48577 __tmp48570)))) + (cons __tmp48579 __tmp48572)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48583 - __tmp48569)))) + (cons __tmp48585 + __tmp48571)))) (declare (not safe)) - (cons __tmp48587 __tmp48568)))) + (cons __tmp48589 __tmp48570)))) _hd1278512893_ _K-right1278312885_ _K-left1277112845_ @@ -10009,31 +10009,31 @@ (declare (not safe)) (##cdr _e1299413069_)))) (if (gx#stx-pair/null? _hd1299313073_) - (let ((_g48588_ + (let ((_g48590_ (gx#syntax-split-splice _hd1299313073_ '0))) (begin - (let ((_g48589_ + (let ((_g48591_ (let () (declare (not safe)) - (if (##values? _g48588_) + (if (##values? _g48590_) (##vector-length - _g48588_) + _g48590_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48589_ 2))) + (##fx= _g48591_ 2))) (error "Context expects 2 values" - _g48589_))) + _g48591_))) (let ((_target1299513079_ (let () (declare (not safe)) - (##vector-ref _g48588_ 0))) + (##vector-ref _g48590_ 0))) (_tl1299713082_ (let () (declare (not safe)) - (##vector-ref _g48588_ 1)))) + (##vector-ref _g48590_ 1)))) (if (gx#stx-null? _tl1299713082_) (letrec ((_loop1299813085_ (lambda (_hd1299613089_ @@ -10075,36 +10075,36 @@ (##cdr _e1301313119_)))) (if (gx#stx-pair/null? _tl1301113126_) - (let ((_g48628_ + (let ((_g48630_ (gx#syntax-split-splice _tl1301113126_ '0))) (begin - (let ((_g48629_ + (let ((_g48631_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48628_) - (##vector-length _g48628_) + _g48630_) + (##vector-length _g48630_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48629_ 2))) - (error "Context expects 2 values" _g48629_))) + (if (not (let () (declare (not safe)) (##fx= _g48631_ 2))) + (error "Context expects 2 values" _g48631_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1301413129_ (let () (declare (not safe)) (##vector-ref - _g48628_ + _g48630_ 0))) (_tl1301613132_ (let () (declare (not safe)) (##vector-ref - _g48628_ + _g48630_ 1)))) (if (gx#stx-null? _tl1301613132_) @@ -10177,37 +10177,37 @@ (##cdr _e1302813177_)))) (if (gx#stx-pair/null? _tl1302613184_) - (let ((_g48590_ + (let ((_g48592_ (gx#syntax-split-splice _tl1302613184_ '0))) (begin - (let ((_g48591_ + (let ((_g48593_ (let () (declare (not safe)) (if (##values? - _g48590_) + _g48592_) (##vector-length - _g48590_) + _g48592_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g48591_ 2))) - (error "Context expects 2 values" _g48591_))) + (##fx= _g48593_ 2))) + (error "Context expects 2 values" _g48593_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1302913187_ (let () (declare (not safe)) (##vector-ref - _g48590_ + _g48592_ 0))) (_tl1303113190_ (let () (declare (not safe)) (##vector-ref - _g48590_ + _g48592_ 1)))) (if (gx#stx-null? _tl1303113190_) @@ -10234,31 +10234,31 @@ (let ((_fini1303713213_ (reverse _fini1303613200_))) (if (gx#stx-pair/null? _tl1302313174_) - (let ((_g48592_ + (let ((_g48594_ (gx#syntax-split-splice _tl1302313174_ '0))) (begin - (let ((_g48593_ + (let ((_g48595_ (let () (declare (not safe)) - (if (##values? _g48592_) + (if (##values? _g48594_) (##vector-length - _g48592_) + _g48594_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48593_ 2))) + (##fx= _g48595_ 2))) (error "Context expects 2 values" - _g48593_))) + _g48595_))) (let ((_target1303813217_ (let () (declare (not safe)) - (##vector-ref _g48592_ 0))) + (##vector-ref _g48594_ 0))) (_tl1304013220_ (let () (declare (not safe)) - (##vector-ref _g48592_ 1)))) + (##vector-ref _g48594_ 1)))) (if (gx#stx-null? _tl1304013220_) (letrec ((_loop1304113223_ (lambda (_hd1303913227_ @@ -10288,54 +10288,54 @@ _L13253_) (if (gx#stx-andmap gx#identifier? - (let ((__tmp48627 + (let ((__tmp48629 (lambda (_g1328613289_ _g1328713292_) (let () (declare (not safe)) (cons _g1328613289_ _g1328713292_))))) (declare (not safe)) - (foldr1 __tmp48627 '() _L13253_))) - (let ((__tmp48626 (gx#datum->syntax '#f 'let)) - (__tmp48594 - (let ((__tmp48625 + (foldr1 __tmp48629 '() _L13253_))) + (let ((__tmp48628 (gx#datum->syntax '#f 'let)) + (__tmp48596 + (let ((__tmp48627 (gx#datum->syntax '#f '$loop)) - (__tmp48595 - (let ((__tmp48621 + (__tmp48597 + (let ((__tmp48623 (begin (gx#syntax-check-splice-targets _L13252_ _L13253_) - (let ((__tmp48622 + (let ((__tmp48624 (lambda (_g1330313307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1330413310_ _g1330513312_) - (let ((__tmp48623 - (let ((__tmp48624 + (let ((__tmp48625 + (let ((__tmp48626 (let () (declare (not safe)) (cons _g1330313307_ '())))) (declare (not safe)) - (cons _g1330413310_ __tmp48624)))) + (cons _g1330413310_ __tmp48626)))) (declare (not safe)) - (cons __tmp48623 _g1330513312_))))) + (cons __tmp48625 _g1330513312_))))) (declare (not safe)) - (foldr2 __tmp48622 '() _L13252_ _L13253_)))) + (foldr2 __tmp48624 '() _L13252_ _L13253_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48596 - (let ((__tmp48597 - (let ((__tmp48620 + (__tmp48598 + (let ((__tmp48599 + (let ((__tmp48622 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp48598 - (let ((__tmp48599 - (let ((__tmp48615 - (let ((__tmp48619 + (__tmp48600 + (let ((__tmp48601 + (let ((__tmp48617 + (let ((__tmp48621 (gx#datum->syntax '#f 'begin)) - (__tmp48616 - (let ((__tmp48617 - (let ((__tmp48618 + (__tmp48618 + (let ((__tmp48619 + (let ((__tmp48620 (lambda (_g1330113315_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1330213318_) @@ -10343,94 +10343,94 @@ (declare (not safe)) (cons _g1330113315_ _g1330213318_))))) (declare (not safe)) - (foldr1 __tmp48618 '() _L13249_)))) + (foldr1 __tmp48620 '() _L13249_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#!void __tmp48617)))) + (cons '#!void __tmp48619)))) (declare (not safe)) - (cons __tmp48619 __tmp48616))) - (__tmp48600 - (let ((__tmp48601 - (let ((__tmp48614 + (cons __tmp48621 __tmp48618))) + (__tmp48602 + (let ((__tmp48603 + (let ((__tmp48616 (gx#datum->syntax '#f 'begin)) - (__tmp48602 - (let ((__tmp48613 + (__tmp48604 + (let ((__tmp48615 (lambda (_g1329413321_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1329513324_) (let () (declare (not safe)) (cons _g1329413321_ _g1329513324_)))) - (__tmp48603 - (let ((__tmp48604 - (let ((__tmp48612 (gx#datum->syntax '#f '$loop)) - (__tmp48605 + (__tmp48605 + (let ((__tmp48606 + (let ((__tmp48614 (gx#datum->syntax '#f '$loop)) + (__tmp48607 (begin (gx#syntax-check-splice-targets _L13251_ _L13253_) - (let ((__tmp48606 + (let ((__tmp48608 (lambda (_g1329613327_ _g1329713330_ _g1329813332_) - (let ((__tmp48607 - (let ((__tmp48611 + (let ((__tmp48609 + (let ((__tmp48613 (gx#datum->syntax '#f 'begin)) - (__tmp48608 - (let ((__tmp48609 + (__tmp48610 + (let ((__tmp48611 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48610 + (let ((__tmp48612 (lambda (_g1329913335_ _g1330013338_) (let () (declare (not safe)) (cons _g1329913335_ _g1330013338_))))) (declare (not safe)) - (foldr1 __tmp48610 '() _g1329613327_)))) + (foldr1 __tmp48612 '() _g1329613327_)))) (declare (not safe)) - (cons _g1329713330_ __tmp48609)))) + (cons _g1329713330_ __tmp48611)))) (declare (not safe)) - (cons __tmp48611 __tmp48608)))) + (cons __tmp48613 __tmp48610)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48607 + (cons __tmp48609 _g1329813332_))))) (declare (not safe)) - (foldr2 __tmp48606 + (foldr2 __tmp48608 '() _L13251_ _L13253_))))) (declare (not safe)) - (cons __tmp48612 __tmp48605)))) + (cons __tmp48614 __tmp48607)))) (declare (not safe)) - (cons __tmp48604 '())))) + (cons __tmp48606 '())))) (declare (not safe)) - (foldr1 __tmp48613 __tmp48603 _L13247_)))) + (foldr1 __tmp48615 __tmp48605 _L13247_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48614 - __tmp48602)))) + (cons __tmp48616 + __tmp48604)))) (declare (not safe)) - (cons __tmp48601 '())))) + (cons __tmp48603 '())))) (declare (not safe)) - (cons __tmp48615 __tmp48600)))) + (cons __tmp48617 __tmp48602)))) (declare (not safe)) - (cons _L13250_ __tmp48599)))) + (cons _L13250_ __tmp48601)))) (declare (not safe)) - (cons __tmp48620 __tmp48598)))) + (cons __tmp48622 __tmp48600)))) (declare (not safe)) - (cons __tmp48597 '())))) + (cons __tmp48599 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48621 - __tmp48596)))) + (cons __tmp48623 + __tmp48598)))) (declare (not safe)) - (cons __tmp48625 __tmp48595)))) + (cons __tmp48627 __tmp48597)))) (declare (not safe)) - (cons __tmp48626 __tmp48594)) + (cons __tmp48628 __tmp48596)) (_g1298113052_ _g1298213056_))) _body1304613243_ _fini1303713213_ @@ -10521,31 +10521,31 @@ _L13425_ _L13426_ _L13427_) - (let ((__tmp48636 + (let ((__tmp48638 (gx#datum->syntax '#f 'do)) - (__tmp48630 - (let ((__tmp48631 + (__tmp48632 + (let ((__tmp48633 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48632 - (let ((__tmp48633 - (let ((__tmp48635 + (let ((__tmp48634 + (let ((__tmp48635 + (let ((__tmp48637 (gx#datum->syntax '#f 'not)) - (__tmp48634 + (__tmp48636 (let () (declare (not safe)) (cons _L13426_ '())))) (declare (not safe)) - (cons __tmp48635 __tmp48634)))) + (cons __tmp48637 __tmp48636)))) (declare (not safe)) - (cons __tmp48633 _L13425_)))) + (cons __tmp48635 _L13425_)))) (declare (not safe)) - (cons __tmp48632 _L13423_)))) + (cons __tmp48634 _L13423_)))) (declare (not safe)) - (cons _L13427_ __tmp48631)))) + (cons _L13427_ __tmp48633)))) (declare (not safe)) - (cons __tmp48636 __tmp48630))) + (cons __tmp48638 __tmp48632))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _tl1336513410_ _tl1336813420_ @@ -10568,55 +10568,55 @@ (let ((___kont4323743238_ (lambda (_L13599_) _L13599_)) (___kont4323943240_ (lambda (_L13544_ _L13546_) - (let ((__tmp48651 (gx#datum->syntax '#f 'let)) - (__tmp48637 - (let ((__tmp48648 - (let ((__tmp48650 (gx#datum->syntax '#f '$r)) - (__tmp48649 + (let ((__tmp48653 (gx#datum->syntax '#f 'let)) + (__tmp48639 + (let ((__tmp48650 + (let ((__tmp48652 (gx#datum->syntax '#f '$r)) + (__tmp48651 (let () (declare (not safe)) (cons _L13546_ '())))) (declare (not safe)) - (cons __tmp48650 __tmp48649))) - (__tmp48638 - (let ((__tmp48641 - (let ((__tmp48647 + (cons __tmp48652 __tmp48651))) + (__tmp48640 + (let ((__tmp48643 + (let ((__tmp48649 (gx#datum->syntax '#f '%#expression)) - (__tmp48642 - (let ((__tmp48643 - (let ((__tmp48646 + (__tmp48644 + (let ((__tmp48645 + (let ((__tmp48648 (gx#datum->syntax '#f 'begin)) - (__tmp48644 - (let ((__tmp48645 + (__tmp48646 + (let ((__tmp48647 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1356313566_ _g1356413569_) (let () (declare (not safe)) (cons _g1356313566_ _g1356413569_))))) (declare (not safe)) - (foldr1 __tmp48645 '() _L13544_)))) + (foldr1 __tmp48647 '() _L13544_)))) (declare (not safe)) - (cons __tmp48646 __tmp48644)))) + (cons __tmp48648 __tmp48646)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48643 '())))) + (cons __tmp48645 '())))) (declare (not safe)) - (cons __tmp48647 __tmp48642))) - (__tmp48639 - (let ((__tmp48640 + (cons __tmp48649 __tmp48644))) + (__tmp48641 + (let ((__tmp48642 (gx#datum->syntax '#f '$r))) (declare (not safe)) - (cons __tmp48640 '())))) + (cons __tmp48642 '())))) (declare (not safe)) - (cons __tmp48641 __tmp48639)))) + (cons __tmp48643 __tmp48641)))) (declare (not safe)) - (cons __tmp48648 __tmp48638)))) + (cons __tmp48650 __tmp48640)))) (declare (not safe)) - (cons __tmp48651 __tmp48637))))) + (cons __tmp48653 __tmp48639))))) (let ((___match4327743278_ (lambda (_e1346913494_ _hd1346813498_ @@ -10719,93 +10719,93 @@ ___stx4328043281_)))) (let ((___kont4328343284_ (lambda (_L13878_ _L13880_) - (let ((__tmp48657 (gx#datum->syntax '#f 'letrec)) - (__tmp48652 - (let ((__tmp48654 - (let ((__tmp48655 - (let ((__tmp48656 + (let ((__tmp48659 (gx#datum->syntax '#f 'letrec)) + (__tmp48654 + (let ((__tmp48656 + (let ((__tmp48657 + (let ((__tmp48658 (let () (declare (not safe)) (cons _L13878_ '())))) (declare (not safe)) - (cons _L13880_ __tmp48656)))) + (cons _L13880_ __tmp48658)))) (declare (not safe)) - (cons __tmp48655 '()))) - (__tmp48653 + (cons __tmp48657 '()))) + (__tmp48655 (let () (declare (not safe)) (cons _L13880_ '())))) (declare (not safe)) - (cons __tmp48654 __tmp48653)))) + (cons __tmp48656 __tmp48655)))) (declare (not safe)) - (cons __tmp48657 __tmp48652)))) + (cons __tmp48659 __tmp48654)))) (___kont4328543286_ (lambda (_L13822_ _L13824_) - (let ((__tmp48665 (gx#datum->syntax '#f 'letrec-values)) - (__tmp48658 - (let ((__tmp48662 - (let ((__tmp48663 - (let ((__tmp48664 + (let ((__tmp48667 (gx#datum->syntax '#f 'letrec-values)) + (__tmp48660 + (let ((__tmp48664 + (let ((__tmp48665 + (let ((__tmp48666 (let () (declare (not safe)) (cons _L13822_ '())))) (declare (not safe)) - (cons _L13824_ __tmp48664)))) + (cons _L13824_ __tmp48666)))) (declare (not safe)) - (cons __tmp48663 '()))) - (__tmp48659 - (let ((__tmp48660 - (let ((__tmp48661 + (cons __tmp48665 '()))) + (__tmp48661 + (let ((__tmp48662 + (let ((__tmp48663 (gx#datum->syntax '#f 'values))) (declare (not safe)) - (cons __tmp48661 _L13824_)))) + (cons __tmp48663 _L13824_)))) (declare (not safe)) - (cons __tmp48660 '())))) + (cons __tmp48662 '())))) (declare (not safe)) - (cons __tmp48662 __tmp48659)))) + (cons __tmp48664 __tmp48661)))) (declare (not safe)) - (cons __tmp48665 __tmp48658)))) + (cons __tmp48667 __tmp48660)))) (___kont4328743288_ (lambda (_L13743_ _L13745_ _L13746_) - (let ((__tmp48676 (gx#datum->syntax '#f 'letrec)) - (__tmp48666 - (let ((__tmp48668 - (let ((__tmp48669 - (let ((__tmp48670 - (let ((__tmp48671 - (let ((__tmp48675 + (let ((__tmp48678 (gx#datum->syntax '#f 'letrec)) + (__tmp48668 + (let ((__tmp48670 + (let ((__tmp48671 + (let ((__tmp48672 + (let ((__tmp48673 + (let ((__tmp48677 (gx#datum->syntax '#f 'lambda)) - (__tmp48672 - (let ((__tmp48673 + (__tmp48674 + (let ((__tmp48675 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48674 + (let ((__tmp48676 (lambda (_g1376613769_ _g1376713772_) (let () (declare (not safe)) (cons _g1376613769_ _g1376713772_))))) (declare (not safe)) - (foldr1 __tmp48674 '() _L13743_)))) + (foldr1 __tmp48676 '() _L13743_)))) (declare (not safe)) - (cons _L13745_ __tmp48673)))) + (cons _L13745_ __tmp48675)))) (declare (not safe)) - (cons __tmp48675 __tmp48672)))) + (cons __tmp48677 __tmp48674)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48671 '())))) + (cons __tmp48673 '())))) (declare (not safe)) - (cons _L13746_ __tmp48670)))) + (cons _L13746_ __tmp48672)))) (declare (not safe)) - (cons __tmp48669 '()))) - (__tmp48667 + (cons __tmp48671 '()))) + (__tmp48669 (let () (declare (not safe)) (cons _L13746_ '())))) (declare (not safe)) - (cons __tmp48668 __tmp48667)))) + (cons __tmp48670 __tmp48669)))) (declare (not safe)) - (cons __tmp48676 __tmp48666))))) + (cons __tmp48678 __tmp48668))))) (let* ((___match4336743368_ (lambda (_e1365513683_ _hd1365413687_ @@ -10933,7 +10933,7 @@ (##car _e1364613802_)))) (if (gx#identifier? _hd1364513806_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48677_| + |gerbil/core$$[1]#_g48679_| _hd1364513806_) (___match4334143342_ _e1362913848_ @@ -11230,13 +11230,13 @@ (lambda (_L14807_ _L14809_) _x14728_)) (___kont4340943410_ (lambda (_L14768_) - (let ((__tmp48679 (gx#datum->syntax '#f '_)) - (__tmp48678 + (let ((__tmp48681 (gx#datum->syntax '#f '_)) + (__tmp48680 (let () (declare (not safe)) (cons _L14768_ '())))) (declare (not safe)) - (cons __tmp48679 __tmp48678))))) + (cons __tmp48681 __tmp48680))))) (if (gx#stx-pair? ___stx4340443405_) (let ((_e1473814787_ (gx#syntax-e ___stx4340443405_))) @@ -11299,7 +11299,7 @@ (##car _e1467714701_)))) (if (gx#identifier? _hd1467614705_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48680_| + |gerbil/core$$[1]#_g48682_| _hd1467614705_) (___kont4343943440_ _tl1467514708_) (___kont4344143442_)) @@ -11329,7 +11329,7 @@ (##car _e1461714641_)))) (if (gx#identifier? _hd1461614645_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48681_| + |gerbil/core$$[1]#_g48683_| _hd1461614645_) (___kont4345943460_ _tl1461514648_) (___kont4346143462_)) @@ -11344,32 +11344,32 @@ ___stx4347643477_)))) (let ((___kont4347943480_ (lambda (_L14581_ _L14583_ _L14584_ _L14585_) - (let ((__tmp48682 - (let ((__tmp48683 - (let ((__tmp48684 - (let ((__tmp48685 + (let ((__tmp48684 + (let ((__tmp48685 + (let ((__tmp48686 + (let ((__tmp48687 (let () (declare (not safe)) (cons _L14583_ '())))) (declare (not safe)) - (cons _L14584_ __tmp48685)))) + (cons _L14584_ __tmp48687)))) (declare (not safe)) - (cons __tmp48684 '())))) + (cons __tmp48686 '())))) (declare (not safe)) - (cons __tmp48683 _L14581_)))) + (cons __tmp48685 _L14581_)))) (declare (not safe)) - (cons _L14585_ __tmp48682)))) + (cons _L14585_ __tmp48684)))) (___kont4348143482_ (lambda (_L14503_ _L14505_) - (let ((__tmp48693 (gx#datum->syntax '#f 'and)) - (__tmp48686 - (let ((__tmp48687 - (let ((__tmp48688 - (let ((__tmp48692 + (let ((__tmp48695 (gx#datum->syntax '#f 'and)) + (__tmp48688 + (let ((__tmp48689 + (let ((__tmp48690 + (let ((__tmp48694 (gx#datum->syntax '#f 'let)) - (__tmp48689 - (let ((__tmp48690 - (let ((__tmp48691 + (__tmp48691 + (let ((__tmp48692 + (let ((__tmp48693 (lambda (_g1452514528_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1452614531_) @@ -11377,18 +11377,18 @@ (declare (not safe)) (cons _g1452514528_ _g1452614531_))))) (declare (not safe)) - (foldr1 __tmp48691 '() _L14503_)))) + (foldr1 __tmp48693 '() _L14503_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48690)))) + (cons '() __tmp48692)))) (declare (not safe)) - (cons __tmp48692 __tmp48689)))) + (cons __tmp48694 __tmp48691)))) (declare (not safe)) - (cons __tmp48688 '())))) + (cons __tmp48690 '())))) (declare (not safe)) - (cons _L14505_ __tmp48687)))) + (cons _L14505_ __tmp48689)))) (declare (not safe)) - (cons __tmp48693 __tmp48686)))) + (cons __tmp48695 __tmp48688)))) (___kont4348543486_ (lambda (_L14070_ _L14072_) (let* ((_g1410314129_ @@ -11400,30 +11400,30 @@ (_g1410214414_ (lambda (_g1410414133_) (if (gx#stx-pair/null? _g1410414133_) - (let ((_g48694_ + (let ((_g48696_ (gx#syntax-split-splice _g1410414133_ '0))) (begin - (let ((_g48695_ + (let ((_g48697_ (let () (declare (not safe)) - (if (##values? _g48694_) - (##vector-length _g48694_) + (if (##values? _g48696_) + (##vector-length _g48696_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48695_ 2))) + (##fx= _g48697_ 2))) (error "Context expects 2 values" - _g48695_))) + _g48697_))) (let ((_target1410714136_ (let () (declare (not safe)) - (##vector-ref _g48694_ 0))) + (##vector-ref _g48696_ 0))) (_tl1410914139_ (let () (declare (not safe)) - (##vector-ref _g48694_ 1)))) + (##vector-ref _g48696_ 1)))) (if (gx#stx-null? _tl1410914139_) (letrec ((_loop1411014142_ (lambda (_hd1410814146_ @@ -11491,34 +11491,34 @@ (_g1420714402_ (lambda (_g1420914229_) (if (gx#stx-pair/null? _g1420914229_) - (let ((_g48696_ + (let ((_g48698_ (gx#syntax-split-splice _g1420914229_ '0))) (begin - (let ((_g48697_ + (let ((_g48699_ (let () (declare (not safe)) - (if (##values? _g48696_) + (if (##values? _g48698_) (##vector-length - _g48696_) + _g48698_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48697_ 2))) + (##fx= _g48699_ 2))) (error "Context expects 2 values" - _g48697_))) + _g48699_))) (let ((_target1421114232_ (let () (declare (not safe)) (##vector-ref - _g48696_ + _g48698_ 0))) (_tl1421314235_ (let () (declare (not safe)) (##vector-ref - _g48696_ + _g48698_ 1)))) (if (gx#stx-null? _tl1421314235_) @@ -11554,36 +11554,36 @@ (lambda (_g1428014300_) (if (gx#stx-pair/null? _g1428014300_) - (let ((_g48698_ + (let ((_g48700_ (gx#syntax-split-splice _g1428014300_ '0))) (begin - (let ((_g48699_ + (let ((_g48701_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48698_) - (##vector-length _g48698_) + _g48700_) + (##vector-length _g48700_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48699_ 2))) - (error "Context expects 2 values" _g48699_))) + (if (not (let () (declare (not safe)) (##fx= _g48701_ 2))) + (error "Context expects 2 values" _g48701_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1428214303_ (let () (declare (not safe)) (##vector-ref - _g48698_ + _g48700_ 0))) (_tl1428414306_ (let () (declare (not safe)) (##vector-ref - _g48698_ + _g48700_ 1)))) (if (gx#stx-null? _tl1428414306_) @@ -11612,99 +11612,99 @@ ((lambda (_L14333_) (let () (let () - (let ((__tmp48721 + (let ((__tmp48723 (gx#datum->syntax '#f 'let-values)) - (__tmp48700 - (let ((__tmp48716 + (__tmp48702 + (let ((__tmp48718 (begin (gx#syntax-check-splice-targets _L14190_ _L14262_) - (let ((__tmp48717 + (let ((__tmp48719 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1435814362_ _g1435914365_ _g1436014367_) - (let ((__tmp48718 - (let ((__tmp48720 + (let ((__tmp48720 + (let ((__tmp48722 (let () (declare (not safe)) (cons _g1435914365_ '()))) - (__tmp48719 + (__tmp48721 (let () (declare (not safe)) (cons _g1435814362_ '())))) (declare (not safe)) - (cons __tmp48720 __tmp48719)))) + (cons __tmp48722 __tmp48721)))) (declare (not safe)) - (cons __tmp48718 _g1436014367_))))) + (cons __tmp48720 _g1436014367_))))) (declare (not safe)) - (foldr2 __tmp48717 '() _L14190_ _L14262_)))) - (__tmp48701 - (let ((__tmp48702 - (let ((__tmp48715 (gx#datum->syntax '#f 'and)) - (__tmp48703 - (let ((__tmp48714 + (foldr2 __tmp48719 '() _L14190_ _L14262_)))) + (__tmp48703 + (let ((__tmp48704 + (let ((__tmp48717 (gx#datum->syntax '#f 'and)) + (__tmp48705 + (let ((__tmp48716 (lambda (_g1435114370_ _g1435214373_) (let () (declare (not safe)) (cons _g1435114370_ _g1435214373_)))) - (__tmp48704 - (let ((__tmp48705 - (let ((__tmp48713 + (__tmp48706 + (let ((__tmp48707 + (let ((__tmp48715 (gx#datum->syntax '#f 'let-values)) - (__tmp48706 - (let ((__tmp48709 + (__tmp48708 + (let ((__tmp48711 (begin (gx#syntax-check-splice-targets _L14262_ _L14333_) - (let ((__tmp48710 + (let ((__tmp48712 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1435514376_ _g1435614379_ _g1435714381_) - (let ((__tmp48711 - (let ((__tmp48712 + (let ((__tmp48713 + (let ((__tmp48714 (let () (declare (not safe)) (cons _g1435514376_ '())))) (declare (not safe)) - (cons _g1435614379_ __tmp48712)))) + (cons _g1435614379_ __tmp48714)))) (declare (not safe)) - (cons __tmp48711 _g1435714381_))))) + (cons __tmp48713 _g1435714381_))))) (declare (not safe)) - (foldr2 __tmp48710 '() _L14262_ _L14333_)))) - (__tmp48707 - (let ((__tmp48708 + (foldr2 __tmp48712 '() _L14262_ _L14333_)))) + (__tmp48709 + (let ((__tmp48710 (lambda (_g1435314384_ _g1435414387_) (let () (declare (not safe)) (cons _g1435314384_ _g1435414387_))))) (declare (not safe)) - (foldr1 __tmp48708 '() _L14070_)))) + (foldr1 __tmp48710 '() _L14070_)))) (declare (not safe)) - (cons __tmp48709 __tmp48707)))) + (cons __tmp48711 __tmp48709)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48713 __tmp48706)))) + (cons __tmp48715 __tmp48708)))) (declare (not safe)) - (cons __tmp48705 '())))) + (cons __tmp48707 '())))) (declare (not safe)) - (foldr1 __tmp48714 __tmp48704 _L14262_)))) + (foldr1 __tmp48716 __tmp48706 _L14262_)))) (declare (not safe)) - (cons __tmp48715 __tmp48703)))) + (cons __tmp48717 __tmp48705)))) (declare (not safe)) - (cons __tmp48702 '())))) + (cons __tmp48704 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48716 - __tmp48701)))) + (cons __tmp48718 + __tmp48703)))) (declare (not safe)) - (cons __tmp48721 __tmp48700))))) + (cons __tmp48723 __tmp48702))))) _hd-bind1429014329_)))))) (_loop1428514309_ _target1428214303_ '())) (_g1427914296_ _g1428014300_))))) @@ -11714,7 +11714,7 @@ (_g1427814390_ (gx#stx-map _let-head13907_ - (let ((__tmp48722 + (let ((__tmp48724 (lambda (_g1439314396_ _g1439414399_) (let () @@ -11722,7 +11722,7 @@ (cons _g1439314396_ _g1439414399_))))) (declare (not safe)) - (foldr1 __tmp48722 '() _L14192_))))))) + (foldr1 __tmp48724 '() _L14192_))))))) _$e1421914258_)))))) (_loop1421414238_ _target1421114232_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11731,14 +11731,14 @@ (_g1420814225_ _g1420914229_))))) (_g1420714402_ (gx#gentemps - (let ((__tmp48723 + (let ((__tmp48725 (lambda (_g1440514408_ _g1440614411_) (let () (declare (not safe)) (cons _g1440514408_ _g1440614411_))))) (declare (not safe)) - (foldr1 __tmp48723 '() _L14192_))))))) + (foldr1 __tmp48725 '() _L14192_))))))) _e1411614184_ _hd1411714187_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11751,13 +11751,13 @@ (_g1410214414_ (gx#stx-map _let-bind13905_ - (let ((__tmp48724 + (let ((__tmp48726 (lambda (_g1441714420_ _g1441814423_) (let () (declare (not safe)) (cons _g1441714420_ _g1441814423_))))) (declare (not safe)) - (foldr1 __tmp48724 '() _L14072_)))))))) + (foldr1 __tmp48726 '() _L14072_)))))))) (let* ((___match4357343574_ (lambda (_e1395613990_ _hd1395513994_ @@ -11836,7 +11836,7 @@ (_L14072_ _bind1396814036_)) (if (gx#stx-andmap _let-bind?13903_ - (let ((__tmp48725 + (let ((__tmp48727 (lambda (_g1409414097_ _g1409514100_) (let () @@ -11844,7 +11844,7 @@ (cons _g1409414097_ _g1409514100_))))) (declare (not safe)) - (foldr1 __tmp48725 '() _L14072_))) + (foldr1 __tmp48727 '() _L14072_))) (___kont4348543486_ _L14070_ _L14072_) (let () (declare (not safe)) @@ -12357,34 +12357,34 @@ (let ((___kont4357943580_ (lambda () '#t)) (___kont4358143582_ (lambda (_L15158_) - (let ((__tmp48729 (gx#datum->syntax '#f 'let)) - (__tmp48726 - (let ((__tmp48727 - (let ((__tmp48728 + (let ((__tmp48731 (gx#datum->syntax '#f 'let)) + (__tmp48728 + (let ((__tmp48729 + (let ((__tmp48730 (lambda (_g1517415177_ _g1517515180_) (let () (declare (not safe)) (cons _g1517415177_ _g1517515180_))))) (declare (not safe)) - (foldr1 __tmp48728 '() _L15158_)))) + (foldr1 __tmp48730 '() _L15158_)))) (declare (not safe)) - (cons '() __tmp48727)))) + (cons '() __tmp48729)))) (declare (not safe)) - (cons __tmp48729 __tmp48726)))) + (cons __tmp48731 __tmp48728)))) (___kont4358543586_ (lambda (_L15067_ _L15069_ _L15070_ _L15071_) - (let ((__tmp48737 (gx#datum->syntax '#f 'alet)) - (__tmp48730 - (let ((__tmp48736 + (let ((__tmp48739 (gx#datum->syntax '#f 'alet)) + (__tmp48732 + (let ((__tmp48738 (let () (declare (not safe)) (cons _L15070_ '()))) - (__tmp48731 - (let ((__tmp48732 - (let ((__tmp48733 - (let ((__tmp48734 - (let ((__tmp48735 + (__tmp48733 + (let ((__tmp48734 + (let ((__tmp48735 + (let ((__tmp48736 + (let ((__tmp48737 (lambda (_g1509215095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1509315098_) @@ -12392,18 +12392,18 @@ (declare (not safe)) (cons _g1509215095_ _g1509315098_))))) (declare (not safe)) - (foldr1 __tmp48735 '() _L15067_)))) + (foldr1 __tmp48737 '() _L15067_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L15069_ __tmp48734)))) + (cons _L15069_ __tmp48736)))) (declare (not safe)) - (cons _L15071_ __tmp48733)))) + (cons _L15071_ __tmp48735)))) (declare (not safe)) - (cons __tmp48732 '())))) + (cons __tmp48734 '())))) (declare (not safe)) - (cons __tmp48736 __tmp48731)))) + (cons __tmp48738 __tmp48733)))) (declare (not safe)) - (cons __tmp48737 __tmp48730))))) + (cons __tmp48739 __tmp48732))))) (let* ((___match4365343654_ (lambda (_e1497915007_ _hd1497815011_ @@ -12599,62 +12599,62 @@ ___stx4365643657_)))) (let ((___kont4365943660_ (lambda () - (let ((__tmp48739 (gx#datum->syntax '#f 'quote)) - (__tmp48738 + (let ((__tmp48741 (gx#datum->syntax '#f 'quote)) + (__tmp48740 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp48739 __tmp48738)))) + (cons __tmp48741 __tmp48740)))) (___kont4366143662_ (lambda (_L15640_) - (let ((__tmp48741 (gx#datum->syntax '#f 'quote)) - (__tmp48740 + (let ((__tmp48743 (gx#datum->syntax '#f 'quote)) + (__tmp48742 (let () (declare (not safe)) (cons _L15640_ '())))) (declare (not safe)) - (cons __tmp48741 __tmp48740)))) + (cons __tmp48743 __tmp48742)))) (___kont4366343664_ (lambda (_L15588_) - (let ((__tmp48743 (gx#datum->syntax '#f 'quasiquote)) - (__tmp48742 + (let ((__tmp48745 (gx#datum->syntax '#f 'quasiquote)) + (__tmp48744 (let () (declare (not safe)) (cons _L15588_ '())))) (declare (not safe)) - (cons __tmp48743 __tmp48742)))) + (cons __tmp48745 __tmp48744)))) (___kont4366543666_ (lambda (_L15535_) _L15535_)) (___kont4366743668_ (lambda (_L15477_ _L15479_) _L15479_)) (___kont4366943670_ (lambda (_L15419_ _L15421_ _L15422_ _L15423_) - (let ((__tmp48749 (gx#datum->syntax '#f 'foldr)) - (__tmp48744 - (let ((__tmp48748 (gx#datum->syntax '#f 'cons)) - (__tmp48745 - (let ((__tmp48747 + (let ((__tmp48751 (gx#datum->syntax '#f 'foldr)) + (__tmp48746 + (let ((__tmp48750 (gx#datum->syntax '#f 'cons)) + (__tmp48747 + (let ((__tmp48749 (let () (declare (not safe)) (cons _L15423_ _L15419_))) - (__tmp48746 + (__tmp48748 (let () (declare (not safe)) (cons _L15422_ '())))) (declare (not safe)) - (cons __tmp48747 __tmp48746)))) + (cons __tmp48749 __tmp48748)))) (declare (not safe)) - (cons __tmp48748 __tmp48745)))) + (cons __tmp48750 __tmp48747)))) (declare (not safe)) - (cons __tmp48749 __tmp48744)))) + (cons __tmp48751 __tmp48746)))) (___kont4367143672_ (lambda (_L15365_ _L15367_ _L15368_) - (let ((__tmp48753 (gx#datum->syntax '#f 'cons)) - (__tmp48750 - (let ((__tmp48751 - (let ((__tmp48752 + (let ((__tmp48755 (gx#datum->syntax '#f 'cons)) + (__tmp48752 + (let ((__tmp48753 + (let ((__tmp48754 (let () (declare (not safe)) (cons _L15368_ _L15365_)))) (declare (not safe)) - (cons __tmp48752 '())))) + (cons __tmp48754 '())))) (declare (not safe)) - (cons _L15367_ __tmp48751)))) + (cons _L15367_ __tmp48753)))) (declare (not safe)) - (cons __tmp48753 __tmp48750)))) + (cons __tmp48755 __tmp48752)))) (___kont4367343674_ (lambda (_L15326_) _L15326_))) (let* ((___match4379543796_ (lambda (_e1528415389_ @@ -12727,7 +12727,7 @@ (##car _e1524215620_)))) (if (gx#identifier? _hd1524115624_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48755_| + |gerbil/core$$[1]#_g48757_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1524515630_ @@ -12760,7 +12760,7 @@ _hd1524115624_ _hd1523415666_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48754_| + |gerbil/core$$[1]#_g48756_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1525515578_ @@ -12970,14 +12970,14 @@ (___kont4382543826_ (lambda (_L16495_) (_simple-quote?15683_ - (let ((__tmp48756 + (let ((__tmp48758 (lambda (_g1650816511_ _g1650916514_) (let () (declare (not safe)) (cons _g1650816511_ _g1650916514_))))) (declare (not safe)) - (foldr1 __tmp48756 '() _L16495_))))) + (foldr1 __tmp48758 '() _L16495_))))) (___kont4382943830_ (lambda (_L16442_) (_simple-quote?15683_ _L16442_))) @@ -13074,7 +13074,7 @@ (##car _e1638716585_)))) (if (gx#identifier? _hd1638616589_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48758_| + |gerbil/core$$[1]#_g48760_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639016595_ @@ -13098,7 +13098,7 @@ _tl1638516592_ _hd1638616589_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48757_| + |gerbil/core$$[1]#_g48759_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639616564_ @@ -13153,29 +13153,29 @@ (lambda (_g1634116352_) ((lambda (_L16355_) (let () - (let ((__tmp48765 + (let ((__tmp48767 (gx#datum->syntax '#f 'list)) - (__tmp48759 - (let ((__tmp48761 - (let ((__tmp48764 + (__tmp48761 + (let ((__tmp48763 + (let ((__tmp48766 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48762 - (let ((__tmp48763 + (__tmp48764 + (let ((__tmp48765 (gx#datum->syntax '#f 'quasiquote))) (declare (not safe)) - (cons __tmp48763 '())))) + (cons __tmp48765 '())))) (declare (not safe)) - (cons __tmp48764 __tmp48762))) - (__tmp48760 + (cons __tmp48766 __tmp48764))) + (__tmp48762 (let () (declare (not safe)) (cons _L16355_ '())))) (declare (not safe)) - (cons __tmp48761 __tmp48760)))) + (cons __tmp48763 __tmp48762)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48765 __tmp48759)))) + (cons __tmp48767 __tmp48761)))) _g1634116352_)))) (_g1633916367_ (_generate15685_ @@ -13199,30 +13199,30 @@ (lambda (_g1627016281_) ((lambda (_L16284_) (let () - (let ((__tmp48772 + (let ((__tmp48774 (gx#datum->syntax '#f 'list)) - (__tmp48766 - (let ((__tmp48768 - (let ((__tmp48771 + (__tmp48768 + (let ((__tmp48770 + (let ((__tmp48773 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48769 - (let ((__tmp48770 + (__tmp48771 + (let ((__tmp48772 (gx#datum->syntax '#f 'unquote))) (declare (not safe)) - (cons __tmp48770 '())))) + (cons __tmp48772 '())))) (declare (not safe)) - (cons __tmp48771 __tmp48769))) - (__tmp48767 + (cons __tmp48773 __tmp48771))) + (__tmp48769 (let () (declare (not safe)) (cons _L16284_ '())))) (declare (not safe)) - (cons __tmp48768 __tmp48767)))) + (cons __tmp48770 __tmp48769)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48772 - __tmp48766)))) + (cons __tmp48774 + __tmp48768)))) _g1627016281_)))) (_g1626816296_ (_generate15685_ @@ -13235,33 +13235,33 @@ (if (let () (declare (not safe)) (fxzero? _d15749_)) - (let ((__tmp48787 + (let ((__tmp48789 (gx#datum->syntax '#f 'foldr)) - (__tmp48780 - (let ((__tmp48786 + (__tmp48782 + (let ((__tmp48788 (gx#datum->syntax '#f 'cons)) - (__tmp48781 - (let ((__tmp48783 - (let ((__tmp48785 + (__tmp48783 + (let ((__tmp48785 + (let ((__tmp48787 (gx#datum->syntax '#f 'quote)) - (__tmp48784 + (__tmp48786 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp48785 __tmp48784))) - (__tmp48782 (let () (declare (not safe)) (cons _L16185_ '())))) + (cons __tmp48787 __tmp48786))) + (__tmp48784 (let () (declare (not safe)) (cons _L16185_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48783 - __tmp48782)))) + (cons __tmp48785 + __tmp48784)))) (declare (not safe)) - (cons __tmp48786 __tmp48781)))) + (cons __tmp48788 __tmp48783)))) (declare (not safe)) - (cons __tmp48787 __tmp48780)) + (cons __tmp48789 __tmp48782)) (let* ((_g1619816206_ (lambda (_g1619916202_) (gx#raise-syntax-error @@ -13272,32 +13272,32 @@ (lambda (_g1619916210_) ((lambda (_L16213_) (let () - (let ((__tmp48779 + (let ((__tmp48781 (gx#datum->syntax '#f 'list)) - (__tmp48773 - (let ((__tmp48775 - (let ((__tmp48778 + (__tmp48775 + (let ((__tmp48777 + (let ((__tmp48780 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48776 - (let ((__tmp48777 + (__tmp48778 + (let ((__tmp48779 (gx#datum->syntax '#f 'unquote-splicing))) (declare (not safe)) - (cons __tmp48777 '())))) + (cons __tmp48779 '())))) (declare (not safe)) - (cons __tmp48778 __tmp48776))) - (__tmp48774 + (cons __tmp48780 __tmp48778))) + (__tmp48776 (let () (declare (not safe)) (cons _L16213_ '())))) (declare (not safe)) - (cons __tmp48775 __tmp48774)))) + (cons __tmp48777 __tmp48776)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48779 - __tmp48773)))) + (cons __tmp48781 + __tmp48775)))) _g1619916210_)))) (_g1619716225_ (_generate15685_ @@ -13317,26 +13317,26 @@ (lambda (_g1612816139_) ((lambda (_L16142_) (let () - (let ((__tmp48792 + (let ((__tmp48794 (gx#datum->syntax '#f 'foldr)) - (__tmp48788 - (let ((__tmp48791 + (__tmp48790 + (let ((__tmp48793 (gx#datum->syntax '#f 'cons)) - (__tmp48789 - (let ((__tmp48790 + (__tmp48791 + (let ((__tmp48792 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L16112_ '())))) (declare (not safe)) - (cons _L16142_ __tmp48790)))) + (cons _L16142_ __tmp48792)))) (declare (not safe)) - (cons __tmp48791 __tmp48789)))) + (cons __tmp48793 __tmp48791)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48792 __tmp48788)))) + (cons __tmp48794 __tmp48790)))) _g1612816139_)))) (_g1612616154_ (_generate15685_ _L16110_ _d15749_))))) @@ -13378,16 +13378,16 @@ (if (gx#stx-null? _tl1601616048_) ((lambda (_L16051_ _L16053_) (let () - (let ((__tmp48795 (gx#datum->syntax '#f 'cons)) - (__tmp48793 - (let ((__tmp48794 + (let ((__tmp48797 (gx#datum->syntax '#f 'cons)) + (__tmp48795 + (let ((__tmp48796 (let () (declare (not safe)) (cons _L16051_ '())))) (declare (not safe)) - (cons _L16053_ __tmp48794)))) + (cons _L16053_ __tmp48796)))) (declare (not safe)) - (cons __tmp48795 __tmp48793)))) + (cons __tmp48797 __tmp48795)))) _hd1601716045_ _hd1601416035_) (_g1600916024_ _g1601016028_)))) @@ -13412,27 +13412,27 @@ (lambda (_g1594115952_) ((lambda (_L15955_) (let () - (let ((__tmp48797 + (let ((__tmp48799 (gx#datum->syntax '#f 'list->vector)) - (__tmp48796 + (__tmp48798 (let () (declare (not safe)) (cons _L15955_ '())))) (declare (not safe)) - (cons __tmp48797 __tmp48796)))) + (cons __tmp48799 __tmp48798)))) _g1594115952_)))) (_g1593915967_ (_generate15685_ - (let ((__tmp48798 + (let ((__tmp48800 (lambda (_g1597015973_ _g1597115976_) (let () (declare (not safe)) (cons _g1597015973_ _g1597115976_))))) (declare (not safe)) - (foldr1 __tmp48798 '() _L15926_)) + (foldr1 __tmp48800 '() _L15926_)) _d15749_))))) (___kont4391143912_ (lambda (_L15844_) @@ -13446,28 +13446,28 @@ (lambda (_g1585515866_) ((lambda (_L15869_) (let () - (let ((__tmp48800 + (let ((__tmp48802 (gx#datum->syntax '#f 'box)) - (__tmp48799 + (__tmp48801 (let () (declare (not safe)) (cons _L15869_ '())))) (declare (not safe)) - (cons __tmp48800 __tmp48799)))) + (cons __tmp48802 __tmp48801)))) _g1585515866_)))) (_g1585315881_ (_generate15685_ _L15844_ _d15749_))))) (___kont4391343914_ (lambda (_L15823_) - (let ((__tmp48802 (gx#datum->syntax '#f 'quote)) - (__tmp48801 + (let ((__tmp48804 (gx#datum->syntax '#f 'quote)) + (__tmp48803 (let () (declare (not safe)) (cons _L15823_ '())))) (declare (not safe)) - (cons __tmp48802 __tmp48801))))) + (cons __tmp48804 __tmp48803))))) (let* ((_g1575615885_ (lambda () (if (gx#stx-box? ___stx4389443895_) @@ -13562,7 +13562,7 @@ (##car _e1576316307_)))) (if (gx#identifier? _hd1576216311_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48806_| + |gerbil/core$$[1]#_g48808_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1576616317_ @@ -13587,7 +13587,7 @@ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48805_| + |gerbil/core$$[1]#_g48807_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1577316246_ @@ -13614,7 +13614,7 @@ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48804_| + |gerbil/core$$[1]#_g48806_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) @@ -13650,7 +13650,7 @@ (if (gx#identifier? _hd1578716094_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48803_| + |gerbil/core$$[1]#_g48805_| _hd1578716094_) (if (gx#stx-pair? _tl1578616097_) @@ -13716,16 +13716,16 @@ (if (gx#stx-null? _tl1569315725_) ((lambda (_L15728_) (if (_simple-quote?15683_ _L15728_) - (let ((__tmp48808 + (let ((__tmp48810 (gx#datum->syntax '#f 'quote)) - (__tmp48807 + (__tmp48809 (let () (declare (not safe)) (cons _L15728_ '())))) (declare (not safe)) - (cons __tmp48808 __tmp48807)) + (cons __tmp48810 __tmp48809)) (_generate15685_ _L15728_ '0))) _hd1569415722_) (_g1568715701_ _g1568815705_)))) @@ -13743,31 +13743,31 @@ ___stx4402044021_)))) (let ((___kont4402344024_ (lambda (_L16709_) - (let ((__tmp48810 (gx#datum->syntax '#f 'quote)) - (__tmp48809 + (let ((__tmp48812 (gx#datum->syntax '#f 'quote)) + (__tmp48811 (let () (declare (not safe)) (cons _L16709_ '())))) (declare (not safe)) - (cons __tmp48810 __tmp48809)))) + (cons __tmp48812 __tmp48811)))) (___kont4402544026_ (lambda (_L16668_) - (let ((__tmp48816 (gx#datum->syntax '#f 'make-promise)) - (__tmp48811 - (let ((__tmp48812 - (let ((__tmp48815 + (let ((__tmp48818 (gx#datum->syntax '#f 'make-promise)) + (__tmp48813 + (let ((__tmp48814 + (let ((__tmp48817 (gx#datum->syntax '#f 'lambda%)) - (__tmp48813 - (let ((__tmp48814 + (__tmp48815 + (let ((__tmp48816 (let () (declare (not safe)) (cons _L16668_ '())))) (declare (not safe)) - (cons '() __tmp48814)))) + (cons '() __tmp48816)))) (declare (not safe)) - (cons __tmp48815 __tmp48813)))) + (cons __tmp48817 __tmp48815)))) (declare (not safe)) - (cons __tmp48812 '())))) + (cons __tmp48814 '())))) (declare (not safe)) - (cons __tmp48816 __tmp48811))))) + (cons __tmp48818 __tmp48813))))) (let ((___match4404144042_ (lambda (_e1662516689_ _hd1662416693_ @@ -13857,9 +13857,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _tail16948_ _hd16856_)) - (let ((__tmp48817 (list _tail16948_))) + (let ((__tmp48819 (list _tail16948_))) (declare (not safe)) - (foldl1 cons __tmp48817 _body16857_)) + (foldl1 cons __tmp48819 _body16857_)) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error @@ -13877,11 +13877,11 @@ (cons _L16902_ _body16857_)))))) (if (gx#identifier? ___stx4405844059_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48819_| + |gerbil/core$$[1]#_g48821_| ___stx4405844059_) (___kont4406144062_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48818_| + |gerbil/core$$[1]#_g48820_| ___stx4405844059_) (___kont4406344064_) (___kont4406544066_))) @@ -13926,35 +13926,35 @@ (##cdr _e1673716750_)))) ((lambda (_L16760_) (if (and (gx#stx-list? _L16760_) - (let ((__tmp48830 + (let ((__tmp48832 (gx#stx-null? _L16760_))) (declare (not safe)) - (not __tmp48830))) - (let ((_g48820_ (_generate16729_ _L16760_))) + (not __tmp48832))) + (let ((_g48822_ (_generate16729_ _L16760_))) (begin - (let ((_g48821_ + (let ((_g48823_ (let () (declare (not safe)) - (if (##values? _g48820_) - (##vector-length _g48820_) + (if (##values? _g48822_) + (##vector-length _g48822_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48821_ 3))) + (##fx= _g48823_ 3))) (error "Context expects 3 values" - _g48821_))) + _g48823_))) (let ((_hd16773_ (let () (declare (not safe)) - (##vector-ref _g48820_ 0))) + (##vector-ref _g48822_ 0))) (_body16775_ (let () (declare (not safe)) - (##vector-ref _g48820_ 1))) + (##vector-ref _g48822_ 1))) (_tail?16776_ (let () (declare (not safe)) - (##vector-ref _g48820_ 2)))) + (##vector-ref _g48822_ 2)))) (let* ((_g1677816786_ (lambda (_g1677916782_) (gx#raise-syntax-error @@ -13978,34 +13978,34 @@ (let () (let () (if _tail?16776_ - (let ((__tmp48829 + (let ((__tmp48831 (gx#datum->syntax '#f 'lambda%)) - (__tmp48825 - (let ((__tmp48826 - (let ((__tmp48827 - (let ((__tmp48828 + (__tmp48827 + (let ((__tmp48828 + (let ((__tmp48829 + (let ((__tmp48830 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply))) (declare (not safe)) - (cons __tmp48828 _L16821_)))) + (cons __tmp48830 _L16821_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48827 '())))) + (cons __tmp48829 '())))) (declare (not safe)) - (cons _L16793_ __tmp48826)))) + (cons _L16793_ __tmp48828)))) (declare (not safe)) - (cons __tmp48829 __tmp48825)) - (let ((__tmp48824 + (cons __tmp48831 __tmp48827)) + (let ((__tmp48826 (gx#datum->syntax '#f 'lambda%)) - (__tmp48822 - (let ((__tmp48823 + (__tmp48824 + (let ((__tmp48825 (let () (declare (not safe)) (cons _L16821_ '())))) (declare (not safe)) - (cons _L16793_ __tmp48823)))) + (cons _L16793_ __tmp48825)))) (declare (not safe)) - (cons __tmp48824 __tmp48822)))))) + (cons __tmp48826 __tmp48824)))))) _g1680716818_)))) (_g1680516836_ _body16775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index c1f413cba..33b747ea5 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]#_g48915_| + (define |gerbil/core$$[1]#_g48917_| (##structure gx#syntax-quote::t 'quote @@ -19,15 +19,15 @@ ___stx4409444095_)))) (let ((___kont4409744098_ (lambda (_L17170_ _L17172_ _L17173_) - (let ((__tmp48838 (gx#datum->syntax '#f 'define-syntax)) - (__tmp48831 - (let ((__tmp48832 - (let ((__tmp48833 - (let ((__tmp48837 + (let ((__tmp48840 (gx#datum->syntax '#f 'define-syntax)) + (__tmp48833 + (let ((__tmp48834 + (let ((__tmp48835 + (let ((__tmp48839 (gx#datum->syntax '#f 'lambda)) - (__tmp48834 - (let ((__tmp48835 - (let ((__tmp48836 + (__tmp48836 + (let ((__tmp48837 + (let ((__tmp48838 (lambda (_g1719217195_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1719317198_) @@ -35,30 +35,30 @@ (declare (not safe)) (cons _g1719217195_ _g1719317198_))))) (declare (not safe)) - (foldr1 __tmp48836 '() _L17170_)))) + (foldr1 __tmp48838 '() _L17170_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17172_ __tmp48835)))) + (cons _L17172_ __tmp48837)))) (declare (not safe)) - (cons __tmp48837 __tmp48834)))) + (cons __tmp48839 __tmp48836)))) (declare (not safe)) - (cons __tmp48833 '())))) + (cons __tmp48835 '())))) (declare (not safe)) - (cons _L17173_ __tmp48832)))) + (cons _L17173_ __tmp48834)))) (declare (not safe)) - (cons __tmp48838 __tmp48831)))) + (cons __tmp48840 __tmp48833)))) (___kont4410144102_ (lambda (_L17084_ _L17086_) - (let ((__tmp48841 (gx#datum->syntax '#f 'define-syntax)) - (__tmp48839 - (let ((__tmp48840 + (let ((__tmp48843 (gx#datum->syntax '#f 'define-syntax)) + (__tmp48841 + (let ((__tmp48842 (let () (declare (not safe)) (cons _L17084_ '())))) (declare (not safe)) - (cons _L17086_ __tmp48840)))) + (cons _L17086_ __tmp48842)))) (declare (not safe)) - (cons __tmp48841 __tmp48839))))) + (cons __tmp48843 __tmp48841))))) (let* ((___match4414944150_ (lambda (_e1703517054_ _hd1703417058_ @@ -346,37 +346,37 @@ (##cdr _e1722217273_)))) (if (gx#stx-pair/null? _tl1722017280_) - (let ((_g48842_ + (let ((_g48844_ (gx#syntax-split-splice _tl1722017280_ '0))) (begin - (let ((_g48843_ + (let ((_g48845_ (let () (declare (not safe)) (if (##values? - _g48842_) + _g48844_) (##vector-length - _g48842_) + _g48844_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g48843_ 2))) - (error "Context expects 2 values" _g48843_))) + (##fx= _g48845_ 2))) + (error "Context expects 2 values" _g48845_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1722317283_ (let () (declare (not safe)) (##vector-ref - _g48842_ + _g48844_ 0))) (_tl1722517286_ (let () (declare (not safe)) (##vector-ref - _g48842_ + _g48844_ 1)))) (if (gx#stx-null? _tl1722517286_) @@ -403,31 +403,31 @@ (let ((_arg1723117309_ (reverse _arg1723017296_))) (if (gx#stx-pair/null? _tl1721717270_) - (let ((_g48844_ + (let ((_g48846_ (gx#syntax-split-splice _tl1721717270_ '0))) (begin - (let ((_g48845_ + (let ((_g48847_ (let () (declare (not safe)) - (if (##values? _g48844_) + (if (##values? _g48846_) (##vector-length - _g48844_) + _g48846_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48845_ 2))) + (##fx= _g48847_ 2))) (error "Context expects 2 values" - _g48845_))) + _g48847_))) (let ((_target1723217313_ (let () (declare (not safe)) - (##vector-ref _g48844_ 0))) + (##vector-ref _g48846_ 0))) (_tl1723417316_ (let () (declare (not safe)) - (##vector-ref _g48844_ 1)))) + (##vector-ref _g48846_ 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 ((__tmp48891 + (let ((__tmp48893 (lambda (_g1737017373_ _g1737117376_) (let () @@ -460,7 +460,7 @@ (cons _g1737017373_ _g1737117376_))))) (declare (not safe)) - (foldr1 __tmp48891 '() _L17345_)))) + (foldr1 __tmp48893 '() _L17345_)))) (let* ((_g1737917387_ (lambda (_g1738017383_) (gx#raise-syntax-error @@ -481,28 +481,28 @@ (lambda (_g1740717427_) (if (gx#stx-pair/null? _g1740717427_) - (let ((_g48846_ + (let ((_g48848_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1740717427_ '0))) (begin - (let ((_g48847_ + (let ((_g48849_ (let () (declare (not safe)) - (if (##values? _g48846_) - (##vector-length _g48846_) + (if (##values? _g48848_) + (##vector-length _g48848_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48847_ 2))) - (error "Context expects 2 values" _g48847_))) + (##fx= _g48849_ 2))) + (error "Context expects 2 values" _g48849_))) (let ((_target1740917430_ (let () (declare (not safe)) - (##vector-ref _g48846_ 0))) + (##vector-ref _g48848_ 0))) (_tl1741117433_ (let () (declare (not safe)) - (##vector-ref _g48846_ 1)))) + (##vector-ref _g48848_ 1)))) (if (gx#stx-null? _tl1741117433_) (letrec ((_loop1741217436_ (lambda (_hd1741017440_ @@ -552,32 +552,32 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp48850 + (let ((__tmp48852 (gx#datum->syntax '#f 'begin)) - (__tmp48848 - (let ((__tmp48849 + (__tmp48850 + (let ((__tmp48851 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L17492_ '())))) (declare (not safe)) - (cons _L17520_ __tmp48849)))) + (cons _L17520_ __tmp48851)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48850 __tmp48848)) + (cons __tmp48852 __tmp48850)) (gx#stx-source _stx17206_))))) _g1750617517_)))) (_g1750417535_ (gx#stx-wrap-source - (let ((__tmp48857 + (let ((__tmp48859 (gx#datum->syntax '#f 'def)) - (__tmp48851 - (let ((__tmp48854 - (let ((__tmp48855 - (let ((__tmp48856 + (__tmp48853 + (let ((__tmp48856 + (let ((__tmp48857 + (let ((__tmp48858 (lambda (_g1754017543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1754117546_) @@ -585,12 +585,12 @@ (declare (not safe)) (cons _g1754017543_ _g1754117546_))))) (declare (not safe)) - (foldr1 __tmp48856 '() _L17345_)))) + (foldr1 __tmp48858 '() _L17345_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17394_ __tmp48855))) - (__tmp48852 - (let ((__tmp48853 + (cons _L17394_ __tmp48857))) + (__tmp48854 + (let ((__tmp48855 (lambda (_g1753817549_ _g1753917552_) (let () @@ -600,47 +600,47 @@ _g1753917552_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48853 + (foldr1 __tmp48855 '() _L17343_)))) (declare (not safe)) - (cons __tmp48854 __tmp48852)))) + (cons __tmp48856 __tmp48854)))) (declare (not safe)) - (cons __tmp48857 __tmp48851)) + (cons __tmp48859 __tmp48853)) (gx#stx-source _stx17206_)))))) _g1747817489_)))) (_g1747617555_ (gx#stx-wrap-source - (let ((__tmp48889 (gx#datum->syntax '#f 'defrules)) - (__tmp48858 - (let ((__tmp48859 - (let ((__tmp48860 - (let ((__tmp48873 - (let ((__tmp48885 - (let ((__tmp48888 + (let ((__tmp48891 (gx#datum->syntax '#f 'defrules)) + (__tmp48860 + (let ((__tmp48861 + (let ((__tmp48862 + (let ((__tmp48875 + (let ((__tmp48887 + (let ((__tmp48890 (gx#datum->syntax '#f '_)) - (__tmp48886 - (let ((__tmp48887 + (__tmp48888 + (let ((__tmp48889 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1756417567_ _g1756517570_) (let () (declare (not safe)) (cons _g1756417567_ _g1756517570_))))) (declare (not safe)) - (foldr1 __tmp48887 '() _L17460_)))) + (foldr1 __tmp48889 '() _L17460_)))) (declare (not safe)) - (cons __tmp48888 __tmp48886))) + (cons __tmp48890 __tmp48888))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48874 - (let ((__tmp48875 - (let ((__tmp48878 + (__tmp48876 + (let ((__tmp48877 + (let ((__tmp48880 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48884 (gx#datum->syntax '#f 'lambda)) - (__tmp48879 - (let ((__tmp48882 - (let ((__tmp48883 + (let ((__tmp48886 (gx#datum->syntax '#f 'lambda)) + (__tmp48881 + (let ((__tmp48884 + (let ((__tmp48885 (lambda (_g1756217573_ _g1756317576_) (let () @@ -648,9 +648,9 @@ (cons _g1756217573_ _g1756317576_))))) (declare (not safe)) - (foldr1 __tmp48883 '() _L17345_))) - (__tmp48880 - (let ((__tmp48881 + (foldr1 __tmp48885 '() _L17345_))) + (__tmp48882 + (let ((__tmp48883 (lambda (_g1756017579_ _g1756117582_) (let () @@ -658,73 +658,73 @@ (cons _g1756017579_ _g1756117582_))))) (declare (not safe)) - (foldr1 __tmp48881 '() _L17343_)))) + (foldr1 __tmp48883 '() _L17343_)))) (declare (not safe)) - (cons __tmp48882 __tmp48880)))) + (cons __tmp48884 __tmp48882)))) (declare (not safe)) - (cons __tmp48884 __tmp48879))) - (__tmp48876 - (let ((__tmp48877 + (cons __tmp48886 __tmp48881))) + (__tmp48878 + (let ((__tmp48879 (lambda (_g1755817585_ _g1755917588_) (let () (declare (not safe)) (cons _g1755817585_ _g1755917588_))))) (declare (not safe)) - (foldr1 __tmp48877 '() _L17460_)))) + (foldr1 __tmp48879 '() _L17460_)))) (declare (not safe)) - (cons __tmp48878 __tmp48876)))) + (cons __tmp48880 __tmp48878)))) (declare (not safe)) - (cons __tmp48875 '())))) + (cons __tmp48877 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48885 __tmp48874))) - (__tmp48861 - (let ((__tmp48862 - (let ((__tmp48872 + (cons __tmp48887 __tmp48876))) + (__tmp48863 + (let ((__tmp48864 + (let ((__tmp48874 (gx#datum->syntax '#f 'ref)) - (__tmp48863 - (let ((__tmp48865 + (__tmp48865 + (let ((__tmp48867 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48871 + (let ((__tmp48873 (gx#datum->syntax '#f 'identifier?)) - (__tmp48866 - (let ((__tmp48867 - (let ((__tmp48870 + (__tmp48868 + (let ((__tmp48869 + (let ((__tmp48872 (gx#datum->syntax '#f 'syntax)) - (__tmp48868 - (let ((__tmp48869 + (__tmp48870 + (let ((__tmp48871 (gx#datum->syntax '#f 'ref))) (declare (not safe)) - (cons __tmp48869 '())))) + (cons __tmp48871 '())))) (declare (not safe)) - (cons __tmp48870 __tmp48868)))) + (cons __tmp48872 __tmp48870)))) (declare (not safe)) - (cons __tmp48867 '())))) + (cons __tmp48869 '())))) (declare (not safe)) - (cons __tmp48871 __tmp48866))) - (__tmp48864 + (cons __tmp48873 __tmp48868))) + (__tmp48866 (let () (declare (not safe)) (cons _L17394_ '())))) (declare (not safe)) - (cons __tmp48865 __tmp48864)))) + (cons __tmp48867 __tmp48866)))) (declare (not safe)) - (cons __tmp48872 __tmp48863)))) + (cons __tmp48874 __tmp48865)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48862 '())))) + (cons __tmp48864 '())))) (declare (not safe)) - (cons __tmp48873 __tmp48861)))) + (cons __tmp48875 __tmp48863)))) (declare (not safe)) - (cons '() __tmp48860)))) + (cons '() __tmp48862)))) (declare (not safe)) - (cons _L17346_ __tmp48859)))) + (cons _L17346_ __tmp48861)))) (declare (not safe)) - (cons __tmp48889 __tmp48858)) + (cons __tmp48891 __tmp48860)) (gx#stx-source _stx17206_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _xarg1741717456_)))))) @@ -734,7 +734,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1740517591_ (gx#gentemps - (let ((__tmp48890 + (let ((__tmp48892 (lambda (_g1759417597_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1759517600_) @@ -742,7 +742,7 @@ (declare (not safe)) (cons _g1759417597_ _g1759517600_))))) (declare (not safe)) - (foldr1 __tmp48890 '() _L17345_))))))) + (foldr1 __tmp48892 '() _L17345_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1738017391_)))) (_g1737817603_ @@ -780,79 +780,79 @@ ___stx4415244153_)))) (let ((___kont4415544156_ (lambda (_L17769_ _L17771_) - (let ((__tmp48909 (gx#datum->syntax '#f 'defrules)) - (__tmp48892 - (let ((__tmp48893 - (let ((__tmp48894 - (let ((__tmp48895 - (let ((__tmp48908 + (let ((__tmp48911 (gx#datum->syntax '#f 'defrules)) + (__tmp48894 + (let ((__tmp48895 + (let ((__tmp48896 + (let ((__tmp48897 + (let ((__tmp48910 (gx#datum->syntax '#f 'x)) - (__tmp48896 - (let ((__tmp48901 - (let ((__tmp48907 + (__tmp48898 + (let ((__tmp48903 + (let ((__tmp48909 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'identifier?)) - (__tmp48902 - (let ((__tmp48903 - (let ((__tmp48906 + (__tmp48904 + (let ((__tmp48905 + (let ((__tmp48908 (gx#datum->syntax '#f 'syntax)) - (__tmp48904 - (let ((__tmp48905 + (__tmp48906 + (let ((__tmp48907 (gx#datum->syntax '#f 'x))) (declare (not safe)) - (cons __tmp48905 '())))) + (cons __tmp48907 '())))) (declare (not safe)) - (cons __tmp48906 __tmp48904)))) + (cons __tmp48908 __tmp48906)))) (declare (not safe)) - (cons __tmp48903 '())))) + (cons __tmp48905 '())))) (declare (not safe)) - (cons __tmp48907 __tmp48902))) - (__tmp48897 - (let ((__tmp48898 - (let ((__tmp48900 (gx#datum->syntax '#f 'quote)) - (__tmp48899 + (cons __tmp48909 __tmp48904))) + (__tmp48899 + (let ((__tmp48900 + (let ((__tmp48902 (gx#datum->syntax '#f 'quote)) + (__tmp48901 (let () (declare (not safe)) (cons _L17769_ '())))) (declare (not safe)) - (cons __tmp48900 __tmp48899)))) + (cons __tmp48902 __tmp48901)))) (declare (not safe)) - (cons __tmp48898 '())))) + (cons __tmp48900 '())))) (declare (not safe)) - (cons __tmp48901 __tmp48897)))) + (cons __tmp48903 __tmp48899)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48908 - __tmp48896)))) + (cons __tmp48910 + __tmp48898)))) (declare (not safe)) - (cons __tmp48895 '())))) + (cons __tmp48897 '())))) (declare (not safe)) - (cons '() __tmp48894)))) + (cons '() __tmp48896)))) (declare (not safe)) - (cons _L17771_ __tmp48893)))) + (cons _L17771_ __tmp48895)))) (declare (not safe)) - (cons __tmp48909 __tmp48892)))) + (cons __tmp48911 __tmp48894)))) (___kont4415744158_ (lambda (_L17692_ _L17694_ _L17695_) - (let ((__tmp48910 - (let ((__tmp48911 - (let ((__tmp48912 - (let ((__tmp48914 + (let ((__tmp48912 + (let ((__tmp48913 + (let ((__tmp48914 + (let ((__tmp48916 (gx#datum->syntax '#f 'quote)) - (__tmp48913 + (__tmp48915 (let () (declare (not safe)) (cons _L17692_ '())))) (declare (not safe)) - (cons __tmp48914 __tmp48913)))) + (cons __tmp48916 __tmp48915)))) (declare (not safe)) - (cons __tmp48912 '())))) + (cons __tmp48914 '())))) (declare (not safe)) - (cons _L17694_ __tmp48911)))) + (cons _L17694_ __tmp48913)))) (declare (not safe)) - (cons _L17695_ __tmp48910))))) + (cons _L17695_ __tmp48912))))) (let* ((___match4421744218_ (lambda (_e1764317662_ _hd1764217666_ @@ -943,7 +943,7 @@ (if (gx#identifier? _hd1763317753_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48915_| + |gerbil/core$$[1]#_g48917_| _hd1763317753_) (if (gx#stx-pair? _tl1763217756_) diff --git a/src/bootstrap/gerbil/core__6.scm b/src/bootstrap/gerbil/core__6.scm index 9ed92511f..7a04485e5 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -206,32 +206,32 @@ (_g1794419167_ (lambda (_g1794617966_) (if (gx#stx-pair/null? _g1794617966_) - (let ((_g48916_ + (let ((_g48918_ (gx#syntax-split-splice _g1794617966_ '0))) (begin - (let ((_g48917_ + (let ((_g48919_ (let () (declare (not safe)) - (if (##values? _g48916_) + (if (##values? _g48918_) (##vector-length - _g48916_) + _g48918_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48917_ 2))) + (##fx= _g48919_ 2))) (error "Context expects 2 values" - _g48917_))) + _g48919_))) (let ((_target1794817969_ (let () (declare (not safe)) - (##vector-ref _g48916_ 0))) + (##vector-ref _g48918_ 0))) (_tl1795017972_ (let () (declare (not safe)) (##vector-ref - _g48916_ + _g48918_ 1)))) (if (gx#stx-null? _tl1795017972_) (letrec ((_loop1795117975_ @@ -248,7 +248,7 @@ (let () (declare (not safe)) (##cdr _e1795217985_)))) - (let ((__tmp49156 + (let ((__tmp49158 (let () (declare (not safe)) (cons _lp-hd1795317989_ @@ -256,7 +256,7 @@ (declare (not safe)) (_loop1795117975_ _lp-tl1795417992_ - __tmp49156)))) + __tmp49158)))) (let ((_slot1795617995_ (reverse _slot1795517982_))) ((lambda (_L17999_) (let () @@ -523,28 +523,28 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1859018619_) - (let ((_g48918_ + (let ((_g48920_ (gx#syntax-split-splice _g1859018619_ '0))) (begin - (let ((_g48919_ + (let ((_g48921_ (let () (declare (not safe)) - (if (##values? _g48918_) - (##vector-length _g48918_) + (if (##values? _g48920_) + (##vector-length _g48920_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48919_ 2))) + (##fx= _g48921_ 2))) (error "Context expects 2 values" - _g48919_))) + _g48921_))) (let ((_target1859318622_ (let () (declare (not safe)) - (##vector-ref _g48918_ 0))) + (##vector-ref _g48920_ 0))) (_tl1859518625_ (let () (declare (not safe)) - (##vector-ref _g48918_ 1)))) + (##vector-ref _g48920_ 1)))) (if (gx#stx-null? _tl1859518625_) (letrec ((_loop1859618628_ (lambda (_hd1859418632_ @@ -584,12 +584,12 @@ (declare (not safe)) (##cdr _e1860918660_)))) (if (gx#stx-null? _tl1860718667_) - (let ((__tmp48981 + (let ((__tmp48983 (let () (declare (not safe)) (cons _hd1860818664_ _def-setf1860018635_))) - (__tmp48980 + (__tmp48982 (let () (declare (not safe)) (cons _hd1860518654_ @@ -597,8 +597,8 @@ (declare (not safe)) (_loop1859618628_ _lp-tl1859918647_ - __tmp48981 - __tmp48980)) + __tmp48983 + __tmp48982)) (let () (declare (not safe)) (_g1858918615_ _g1859018619_))))) @@ -626,30 +626,30 @@ (_g1869418835_ (lambda (_g1869618725_) (if (gx#stx-pair/null? _g1869618725_) - (let ((_g48920_ + (let ((_g48922_ (gx#syntax-split-splice _g1869618725_ '0))) (begin - (let ((_g48921_ + (let ((_g48923_ (let () (declare (not safe)) - (if (##values? _g48920_) - (##vector-length _g48920_) + (if (##values? _g48922_) + (##vector-length _g48922_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48921_ 2))) + (##fx= _g48923_ 2))) (error "Context expects 2 values" - _g48921_))) + _g48923_))) (let ((_target1869918728_ (let () (declare (not safe)) - (##vector-ref _g48920_ 0))) + (##vector-ref _g48922_ 0))) (_tl1870118731_ (let () (declare (not safe)) - (##vector-ref _g48920_ 1)))) + (##vector-ref _g48922_ 1)))) (if (gx#stx-null? _tl1870118731_) (letrec ((_loop1870218734_ (lambda (_hd1870018738_ @@ -691,12 +691,12 @@ (declare (not safe)) (##cdr _e1871518766_)))) (if (gx#stx-null? _tl1871318773_) - (let ((__tmp48936 + (let ((__tmp48938 (let () (declare (not safe)) (cons _hd1871418770_ _def-usetf1870618741_))) - (__tmp48935 + (__tmp48937 (let () (declare (not safe)) (cons _hd1871118760_ @@ -704,8 +704,8 @@ (declare (not safe)) (_loop1870218734_ _lp-tl1870518753_ - __tmp48936 - __tmp48935)) + __tmp48938 + __tmp48937)) (let () (declare (not safe)) (_g1869518721_ _g1869618725_))))) @@ -722,35 +722,35 @@ ((lambda (_L18782_ _L18784_) (let () (let () - (let ((__tmp48922 - (let ((__tmp48934 + (let ((__tmp48924 + (let ((__tmp48936 (gx#datum->syntax '#f 'begin)) - (__tmp48923 - (let ((__tmp48924 - (let ((__tmp48925 - (let ((__tmp48926 - (let ((__tmp48933 + (__tmp48925 + (let ((__tmp48926 + (let ((__tmp48927 + (let ((__tmp48928 + (let ((__tmp48935 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1880218811_ _g1880318814_) (let () (declare (not safe)) (cons _g1880218811_ _g1880318814_)))) - (__tmp48927 - (let ((__tmp48932 + (__tmp48929 + (let ((__tmp48934 (lambda (_g1880418817_ _g1880518820_) (let () (declare (not safe)) (cons _g1880418817_ _g1880518820_)))) - (__tmp48928 - (let ((__tmp48931 + (__tmp48930 + (let ((__tmp48933 (lambda (_g1880618823_ _g1880718826_) (let () (declare (not safe)) (cons _g1880618823_ _g1880718826_)))) - (__tmp48929 - (let ((__tmp48930 + (__tmp48931 + (let ((__tmp48932 (lambda (_g1880818829_ _g1880918832_) (let () @@ -758,29 +758,29 @@ (cons _g1880818829_ _g1880918832_))))) (declare (not safe)) - (foldr1 __tmp48930 + (foldr1 __tmp48932 '() _L18782_)))) (declare (not safe)) - (foldr1 __tmp48931 - __tmp48929 + (foldr1 __tmp48933 + __tmp48931 _L18784_)))) (declare (not safe)) - (foldr1 __tmp48932 __tmp48928 _L18676_)))) + (foldr1 __tmp48934 __tmp48930 _L18676_)))) (declare (not safe)) - (foldr1 __tmp48933 __tmp48927 _L18678_)))) + (foldr1 __tmp48935 __tmp48929 _L18678_)))) (declare (not safe)) - (cons _L18548_ __tmp48926)))) + (cons _L18548_ __tmp48928)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18576_ - __tmp48925)))) + __tmp48927)))) (declare (not safe)) - (cons _L18520_ __tmp48924)))) + (cons _L18520_ __tmp48926)))) (declare (not safe)) - (cons __tmp48934 __tmp48923)))) + (cons __tmp48936 __tmp48925)))) (declare (not safe)) - (_wrap17800_ __tmp48922))))) + (_wrap17800_ __tmp48924))))) _def-usetf1870818776_ _def-ugetf1870918779_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -796,7 +796,7 @@ (let () (declare (not safe)) (_g1869518721_ _g1869618725_))))) - (__tmp48937 + (__tmp48939 (gx#stx-map (lambda (_ref18839_) (let* ((_g1884218861_ @@ -880,147 +880,147 @@ (if (gx#stx-null? _tl1892618958_) ((lambda (_L18961_ _L18963_) (let () - (let ((__tmp48959 - (let ((__tmp48960 - (let ((__tmp48978 + (let ((__tmp48961 + (let ((__tmp48962 + (let ((__tmp48980 (gx#datum->syntax '#f 'def)) - (__tmp48961 - (let ((__tmp48962 - (let ((__tmp48963 - (let ((__tmp48977 + (__tmp48963 + (let ((__tmp48964 + (let ((__tmp48965 + (let ((__tmp48979 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp48964 - (let ((__tmp48972 - (let ((__tmp48976 + (__tmp48966 + (let ((__tmp48974 + (let ((__tmp48978 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp48973 - (let ((__tmp48974 - (let ((__tmp48975 + (__tmp48975 + (let ((__tmp48976 + (let ((__tmp48977 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) (cons _L18901_ - __tmp48975)))) + __tmp48977)))) (declare (not safe)) - (cons _L18268_ __tmp48974)))) + (cons _L18268_ __tmp48976)))) (declare (not safe)) - (cons __tmp48976 __tmp48973))) - (__tmp48965 - (let ((__tmp48966 - (let ((__tmp48967 - (let ((__tmp48968 - (let ((__tmp48969 - (let ((__tmp48971 + (cons __tmp48978 __tmp48975))) + (__tmp48967 + (let ((__tmp48968 + (let ((__tmp48969 + (let ((__tmp48970 + (let ((__tmp48971 + (let ((__tmp48973 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48970 + (__tmp48972 (let () (declare (not safe)) (cons _L18901_ '())))) (declare (not safe)) - (cons __tmp48971 __tmp48970)))) + (cons __tmp48973 __tmp48972)))) (declare (not safe)) - (cons __tmp48969 '())))) + (cons __tmp48971 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L17894_ - __tmp48968)))) + __tmp48970)))) (declare (not safe)) - (cons _L18132_ __tmp48967)))) + (cons _L18132_ __tmp48969)))) (declare (not safe)) - (cons __tmp48966 '())))) + (cons __tmp48968 '())))) (declare (not safe)) - (cons __tmp48972 __tmp48965)))) + (cons __tmp48974 __tmp48967)))) (declare (not safe)) - (cons __tmp48977 __tmp48964)))) + (cons __tmp48979 __tmp48966)))) (declare (not safe)) - (cons __tmp48963 '())))) + (cons __tmp48965 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18963_ __tmp48962)))) + (cons _L18963_ __tmp48964)))) (declare (not safe)) - (cons __tmp48978 __tmp48961)))) + (cons __tmp48980 __tmp48963)))) (declare (not safe)) - (_wrap17800_ __tmp48960))) - (__tmp48938 - (let ((__tmp48939 - (let ((__tmp48940 - (let ((__tmp48958 + (_wrap17800_ __tmp48962))) + (__tmp48940 + (let ((__tmp48941 + (let ((__tmp48942 + (let ((__tmp48960 (gx#datum->syntax '#f 'def)) - (__tmp48941 - (let ((__tmp48942 - (let ((__tmp48943 + (__tmp48943 + (let ((__tmp48944 + (let ((__tmp48945 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48957 + (let ((__tmp48959 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp48944 - (let ((__tmp48952 - (let ((__tmp48956 + (__tmp48946 + (let ((__tmp48954 + (let ((__tmp48958 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp48953 - (let ((__tmp48954 - (let ((__tmp48955 + (__tmp48955 + (let ((__tmp48956 + (let ((__tmp48957 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L18901_ __tmp48955)))) + (cons _L18901_ __tmp48957)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18268_ - __tmp48954)))) + __tmp48956)))) (declare (not safe)) - (cons __tmp48956 __tmp48953))) - (__tmp48945 - (let ((__tmp48946 - (let ((__tmp48947 - (let ((__tmp48948 - (let ((__tmp48949 + (cons __tmp48958 __tmp48955))) + (__tmp48947 + (let ((__tmp48948 + (let ((__tmp48949 + (let ((__tmp48950 + (let ((__tmp48951 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48951 (gx#datum->syntax '#f 'quote)) - (__tmp48950 + (let ((__tmp48953 (gx#datum->syntax '#f 'quote)) + (__tmp48952 (let () (declare (not safe)) (cons _L18901_ '())))) (declare (not safe)) - (cons __tmp48951 __tmp48950)))) + (cons __tmp48953 __tmp48952)))) (declare (not safe)) - (cons __tmp48949 '())))) + (cons __tmp48951 '())))) (declare (not safe)) - (cons _L17894_ __tmp48948)))) + (cons _L17894_ __tmp48950)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18130_ - __tmp48947)))) + __tmp48949)))) (declare (not safe)) - (cons __tmp48946 '())))) + (cons __tmp48948 '())))) (declare (not safe)) - (cons __tmp48952 __tmp48945)))) + (cons __tmp48954 __tmp48947)))) (declare (not safe)) - (cons __tmp48957 __tmp48944)))) + (cons __tmp48959 __tmp48946)))) (declare (not safe)) - (cons __tmp48943 '())))) + (cons __tmp48945 '())))) (declare (not safe)) - (cons _L18961_ __tmp48942)))) + (cons _L18961_ __tmp48944)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48958 - __tmp48941)))) + (cons __tmp48960 + __tmp48943)))) (declare (not safe)) - (_wrap17800_ __tmp48940)))) + (_wrap17800_ __tmp48942)))) (declare (not safe)) - (cons __tmp48939 '())))) + (cons __tmp48941 '())))) (declare (not safe)) - (cons __tmp48959 __tmp48938)))) + (cons __tmp48961 __tmp48940)))) _hd1892718955_ _hd1892418945_) (let () @@ -1035,7 +1035,7 @@ (declare (not safe)) (_g1891918934_ _g1892018938_))))) - (__tmp48979 + (__tmp48981 (list (gx#stx-identifier _L18900_ '"&" @@ -1045,7 +1045,7 @@ '"&" _L18898_)))) (declare (not safe)) - (_g1891818979_ __tmp48979))) + (_g1891818979_ __tmp48981))) _hd1885418892_ _hd1885118882_ _hd1884818872_) @@ -1068,7 +1068,7 @@ (_g1884118983_ _ref18839_))) _accessible-slots17942_))) (declare (not safe)) - (_g1869418835_ __tmp48937)))) + (_g1869418835_ __tmp48939)))) _def-setf1860218670_ _def-getf1860318673_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1084,7 +1084,7 @@ (let () (declare (not safe)) (_g1858918615_ _g1859018619_))))) - (__tmp48982 + (__tmp48984 (gx#stx-map (lambda (_ref18991_) (let* ((_g1899419013_ @@ -1133,139 +1133,139 @@ (let () (declare (not safe)) (##cdr _e1900719040_)))) (if (gx#stx-null? _tl1900519047_) ((lambda (_L19050_ _L19052_ _L19053_) - (let ((__tmp49004 - (let ((__tmp49005 - (let ((__tmp49023 + (let ((__tmp49006 + (let ((__tmp49007 + (let ((__tmp49025 (gx#datum->syntax '#f 'def)) - (__tmp49006 - (let ((__tmp49007 - (let ((__tmp49008 - (let ((__tmp49022 + (__tmp49008 + (let ((__tmp49009 + (let ((__tmp49010 + (let ((__tmp49024 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49009 - (let ((__tmp49017 - (let ((__tmp49021 + (__tmp49011 + (let ((__tmp49019 + (let ((__tmp49023 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp49018 - (let ((__tmp49019 - (let ((__tmp49020 + (__tmp49020 + (let ((__tmp49021 + (let ((__tmp49022 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L19053_ __tmp49020)))) + (cons _L19053_ __tmp49022)))) (declare (not safe)) - (cons _L18268_ __tmp49019)))) + (cons _L18268_ __tmp49021)))) (declare (not safe)) - (cons __tmp49021 __tmp49018))) - (__tmp49010 - (let ((__tmp49011 - (let ((__tmp49012 - (let ((__tmp49013 - (let ((__tmp49014 - (let ((__tmp49016 + (cons __tmp49023 __tmp49020))) + (__tmp49012 + (let ((__tmp49013 + (let ((__tmp49014 + (let ((__tmp49015 + (let ((__tmp49016 + (let ((__tmp49018 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49015 + (__tmp49017 (let () (declare (not safe)) (cons _L19053_ '())))) (declare (not safe)) - (cons __tmp49016 __tmp49015)))) + (cons __tmp49018 __tmp49017)))) (declare (not safe)) - (cons __tmp49014 '())))) + (cons __tmp49016 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17894_ __tmp49013)))) + (cons _L17894_ __tmp49015)))) (declare (not safe)) - (cons _L18134_ __tmp49012)))) + (cons _L18134_ __tmp49014)))) (declare (not safe)) - (cons __tmp49011 '())))) + (cons __tmp49013 '())))) (declare (not safe)) - (cons __tmp49017 __tmp49010)))) + (cons __tmp49019 __tmp49012)))) (declare (not safe)) - (cons __tmp49022 __tmp49009)))) + (cons __tmp49024 __tmp49011)))) (declare (not safe)) - (cons __tmp49008 '())))) + (cons __tmp49010 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L19052_ __tmp49007)))) + (cons _L19052_ __tmp49009)))) (declare (not safe)) - (cons __tmp49023 __tmp49006)))) + (cons __tmp49025 __tmp49008)))) (declare (not safe)) - (_wrap17800_ __tmp49005))) - (__tmp48983 - (let ((__tmp48984 - (let ((__tmp48985 - (let ((__tmp49003 + (_wrap17800_ __tmp49007))) + (__tmp48985 + (let ((__tmp48986 + (let ((__tmp48987 + (let ((__tmp49005 (gx#datum->syntax '#f 'def)) - (__tmp48986 - (let ((__tmp48987 - (let ((__tmp48988 + (__tmp48988 + (let ((__tmp48989 + (let ((__tmp48990 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49002 + (let ((__tmp49004 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp48989 - (let ((__tmp48997 - (let ((__tmp49001 + (__tmp48991 + (let ((__tmp48999 + (let ((__tmp49003 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp48998 - (let ((__tmp48999 - (let ((__tmp49000 + (__tmp49000 + (let ((__tmp49001 + (let ((__tmp49002 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L19053_ __tmp49000)))) + (cons _L19053_ __tmp49002)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18268_ __tmp48999)))) + (cons _L18268_ __tmp49001)))) (declare (not safe)) - (cons __tmp49001 __tmp48998))) - (__tmp48990 - (let ((__tmp48991 - (let ((__tmp48992 - (let ((__tmp48993 - (let ((__tmp48994 + (cons __tmp49003 __tmp49000))) + (__tmp48992 + (let ((__tmp48993 + (let ((__tmp48994 + (let ((__tmp48995 + (let ((__tmp48996 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48996 (gx#datum->syntax '#f 'quote)) - (__tmp48995 + (let ((__tmp48998 (gx#datum->syntax '#f 'quote)) + (__tmp48997 (let () (declare (not safe)) (cons _L19053_ '())))) (declare (not safe)) - (cons __tmp48996 __tmp48995)))) + (cons __tmp48998 __tmp48997)))) (declare (not safe)) - (cons __tmp48994 '())))) + (cons __tmp48996 '())))) (declare (not safe)) - (cons _L17894_ __tmp48993)))) + (cons _L17894_ __tmp48995)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18133_ __tmp48992)))) + (cons _L18133_ __tmp48994)))) (declare (not safe)) - (cons __tmp48991 '())))) + (cons __tmp48993 '())))) (declare (not safe)) - (cons __tmp48997 __tmp48990)))) + (cons __tmp48999 __tmp48992)))) (declare (not safe)) - (cons __tmp49002 __tmp48989)))) + (cons __tmp49004 __tmp48991)))) (declare (not safe)) - (cons __tmp48988 '())))) + (cons __tmp48990 '())))) (declare (not safe)) - (cons _L19050_ __tmp48987)))) + (cons _L19050_ __tmp48989)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49003 __tmp48986)))) + (cons __tmp49005 __tmp48988)))) (declare (not safe)) - (_wrap17800_ __tmp48985)))) + (_wrap17800_ __tmp48987)))) (declare (not safe)) - (cons __tmp48984 '())))) + (cons __tmp48986 '())))) (declare (not safe)) - (cons __tmp49004 __tmp48983))) + (cons __tmp49006 __tmp48985))) _hd1900619044_ _hd1900319034_ _hd1900019024_) @@ -1288,170 +1288,170 @@ (_g1899319071_ _ref18991_))) _accessible-slots17942_))) (declare (not safe)) - (_g1858818987_ __tmp48982)))) + (_g1858818987_ __tmp48984)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1856218573_))) - (__tmp49024 - (let ((__tmp49025 - (let ((__tmp49037 + (__tmp49026 + (let ((__tmp49027 + (let ((__tmp49039 (gx#datum->syntax '#f 'def)) - (__tmp49026 - (let ((__tmp49027 + (__tmp49028 + (let ((__tmp49029 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49028 - (let ((__tmp49036 + (let ((__tmp49030 + (let ((__tmp49038 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49029 - (let ((__tmp49033 - (let ((__tmp49035 + (__tmp49031 + (let ((__tmp49035 + (let ((__tmp49037 (gx#datum->syntax '#f '@mop.predicate)) - (__tmp49034 + (__tmp49036 (let () (declare (not safe)) (cons _L18268_ '())))) (declare (not safe)) - (cons __tmp49035 __tmp49034))) - (__tmp49030 - (let ((__tmp49031 - (let ((__tmp49032 + (cons __tmp49037 __tmp49036))) + (__tmp49032 + (let ((__tmp49033 + (let ((__tmp49034 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L17894_ '())))) (declare (not safe)) - (cons _L18135_ __tmp49032)))) + (cons _L18135_ __tmp49034)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49031 '())))) + (cons __tmp49033 '())))) (declare (not safe)) - (cons __tmp49033 __tmp49030)))) + (cons __tmp49035 __tmp49032)))) (declare (not safe)) - (cons __tmp49036 __tmp49029)))) + (cons __tmp49038 __tmp49031)))) (declare (not safe)) - (cons __tmp49028 '())))) + (cons __tmp49030 '())))) (declare (not safe)) - (cons _L17891_ __tmp49027)))) + (cons _L17891_ __tmp49029)))) (declare (not safe)) - (cons __tmp49037 __tmp49026)))) + (cons __tmp49039 __tmp49028)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17800_ __tmp49025)))) + (_wrap17800_ __tmp49027)))) (declare (not safe)) - (_g1856019075_ __tmp49024)))) + (_g1856019075_ __tmp49026)))) _g1853418545_))) - (__tmp49038 + (__tmp49040 (if (gx#stx-false? _L17892_) - (let ((__tmp49061 + (let ((__tmp49063 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp49061 '())) - (let ((__tmp49039 - (let ((__tmp49060 + (cons __tmp49063 '())) + (let ((__tmp49041 + (let ((__tmp49062 (gx#datum->syntax '#f 'def)) - (__tmp49040 - (let ((__tmp49041 - (let ((__tmp49042 - (let ((__tmp49059 + (__tmp49042 + (let ((__tmp49043 + (let ((__tmp49044 + (let ((__tmp49061 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49043 - (let ((__tmp49056 - (let ((__tmp49058 + (__tmp49045 + (let ((__tmp49058 + (let ((__tmp49060 (gx#datum->syntax '#f '@mop.constructor)) - (__tmp49057 + (__tmp49059 (let () (declare (not safe)) (cons _L18268_ '())))) (declare (not safe)) - (cons __tmp49058 __tmp49057))) - (__tmp49044 - (let ((__tmp49045 - (let ((__tmp49055 + (cons __tmp49060 __tmp49059))) + (__tmp49046 + (let ((__tmp49047 + (let ((__tmp49057 (gx#datum->syntax '#f 'lambda)) - (__tmp49046 - (let ((__tmp49054 + (__tmp49048 + (let ((__tmp49056 (gx#datum->syntax '#f '$args)) - (__tmp49047 - (let ((__tmp49048 - (let ((__tmp49053 + (__tmp49049 + (let ((__tmp49050 + (let ((__tmp49055 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply)) - (__tmp49049 - (let ((__tmp49050 - (let ((__tmp49051 - (let ((__tmp49052 + (__tmp49051 + (let ((__tmp49052 + (let ((__tmp49053 + (let ((__tmp49054 (gx#datum->syntax '#f '$args))) (declare (not safe)) - (cons __tmp49052 '())))) + (cons __tmp49054 '())))) (declare (not safe)) - (cons _L17894_ __tmp49051)))) + (cons _L17894_ __tmp49053)))) (declare (not safe)) - (cons _L18136_ __tmp49050)))) + (cons _L18136_ __tmp49052)))) (declare (not safe)) - (cons __tmp49053 __tmp49049)))) + (cons __tmp49055 __tmp49051)))) (declare (not safe)) - (cons __tmp49048 '())))) + (cons __tmp49050 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49054 - __tmp49047)))) + (cons __tmp49056 + __tmp49049)))) (declare (not safe)) - (cons __tmp49055 __tmp49046)))) + (cons __tmp49057 __tmp49048)))) (declare (not safe)) - (cons __tmp49045 '())))) + (cons __tmp49047 '())))) (declare (not safe)) - (cons __tmp49056 __tmp49044)))) + (cons __tmp49058 __tmp49046)))) (declare (not safe)) - (cons __tmp49059 __tmp49043)))) + (cons __tmp49061 __tmp49045)))) (declare (not safe)) - (cons __tmp49042 '())))) + (cons __tmp49044 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17892_ __tmp49041)))) + (cons _L17892_ __tmp49043)))) (declare (not safe)) - (cons __tmp49060 __tmp49040)))) + (cons __tmp49062 __tmp49042)))) (declare (not safe)) - (_wrap17800_ __tmp49039))))) + (_wrap17800_ __tmp49041))))) (declare (not safe)) - (_g1853219079_ __tmp49038)))) + (_g1853219079_ __tmp49040)))) _g1850618517_))) - (__tmp49062 - (let ((__tmp49063 - (let ((__tmp49080 (gx#datum->syntax '#f 'def)) - (__tmp49064 - (let ((__tmp49065 - (let ((__tmp49066 - (let ((__tmp49079 + (__tmp49064 + (let ((__tmp49065 + (let ((__tmp49082 (gx#datum->syntax '#f 'def)) + (__tmp49066 + (let ((__tmp49067 + (let ((__tmp49068 + (let ((__tmp49081 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49067 - (let ((__tmp49069 - (let ((__tmp49078 + (__tmp49069 + (let ((__tmp49071 + (let ((__tmp49080 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.class)) - (__tmp49070 - (let ((__tmp49071 - (let ((__tmp49072 - (let ((__tmp49076 - (let ((__tmp49077 + (__tmp49072 + (let ((__tmp49073 + (let ((__tmp49074 + (let ((__tmp49078 + (let ((__tmp49079 (lambda (_g1908619089_ _g1908719092_) (let () @@ -1459,12 +1459,12 @@ (cons _g1908619089_ _g1908719092_))))) (declare (not safe)) - (foldr1 __tmp49077 + (foldr1 __tmp49079 '() _L17999_))) - (__tmp49073 - (let ((__tmp49074 - (let ((__tmp49075 + (__tmp49075 + (let ((__tmp49076 + (let ((__tmp49077 (let () (declare (not safe)) @@ -1472,70 +1472,70 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L18324_ __tmp49075)))) + (cons _L18324_ __tmp49077)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18240_ __tmp49074)))) + (cons _L18240_ __tmp49076)))) (declare (not safe)) - (cons __tmp49076 __tmp49073)))) + (cons __tmp49078 __tmp49075)))) (declare (not safe)) - (cons _L18296_ __tmp49072)))) + (cons _L18296_ __tmp49074)))) (declare (not safe)) - (cons _L18184_ __tmp49071)))) + (cons _L18184_ __tmp49073)))) (declare (not safe)) - (cons __tmp49078 __tmp49070))) - (__tmp49068 (let () (declare (not safe)) (cons _L18492_ '())))) + (cons __tmp49080 __tmp49072))) + (__tmp49070 (let () (declare (not safe)) (cons _L18492_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49069 - __tmp49068)))) + (cons __tmp49071 + __tmp49070)))) (declare (not safe)) - (cons __tmp49079 __tmp49067)))) + (cons __tmp49081 __tmp49069)))) (declare (not safe)) - (cons __tmp49066 '())))) + (cons __tmp49068 '())))) (declare (not safe)) - (cons _L17894_ __tmp49065)))) + (cons _L17894_ __tmp49067)))) (declare (not safe)) - (cons __tmp49080 __tmp49064)))) + (cons __tmp49082 __tmp49066)))) (declare (not safe)) - (_wrap17800_ __tmp49063)))) + (_wrap17800_ __tmp49065)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1850419083_ __tmp49062)))) + (_g1850419083_ __tmp49064)))) _g1847818489_))) - (__tmp49081 - (let ((__tmp49082 - (let ((__tmp49099 - (let ((__tmp49101 + (__tmp49083 + (let ((__tmp49084 + (let ((__tmp49101 + (let ((__tmp49103 (gx#datum->syntax '#f 'quote)) - (__tmp49100 + (__tmp49102 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L18184_ '())))) (declare (not safe)) - (cons __tmp49101 __tmp49100))) + (cons __tmp49103 __tmp49102))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49083 - (let ((__tmp49096 - (let ((__tmp49098 + (__tmp49085 + (let ((__tmp49098 + (let ((__tmp49100 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49097 + (__tmp49099 (let () (declare (not safe)) (cons _L18212_ '())))) (declare (not safe)) - (cons __tmp49098 __tmp49097))) - (__tmp49084 - (let ((__tmp49085 - (let ((__tmp49091 - (let ((__tmp49095 + (cons __tmp49100 __tmp49099))) + (__tmp49086 + (let ((__tmp49087 + (let ((__tmp49093 + (let ((__tmp49097 (gx#datum->syntax '#f 'quote)) - (__tmp49092 - (let ((__tmp49093 - (let ((__tmp49094 + (__tmp49094 + (let ((__tmp49095 + (let ((__tmp49096 (lambda (_g1909819101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1909919104_) @@ -1544,100 +1544,100 @@ (cons _g1909819101_ _g1909919104_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp49094 + (foldr1 __tmp49096 '() _L17999_)))) (declare (not safe)) - (cons __tmp49093 '())))) + (cons __tmp49095 '())))) (declare (not safe)) - (cons __tmp49095 __tmp49092))) - (__tmp49086 - (let ((__tmp49087 - (let ((__tmp49088 - (let ((__tmp49090 + (cons __tmp49097 __tmp49094))) + (__tmp49088 + (let ((__tmp49089 + (let ((__tmp49090 + (let ((__tmp49092 (gx#datum->syntax '#f 'quote)) - (__tmp49089 + (__tmp49091 (let () (declare (not safe)) (cons _L18240_ '())))) (declare (not safe)) - (cons __tmp49090 - __tmp49089)))) + (cons __tmp49092 + __tmp49091)))) (declare (not safe)) - (cons __tmp49088 '())))) + (cons __tmp49090 '())))) (declare (not safe)) - (cons _L18436_ __tmp49087)))) + (cons _L18436_ __tmp49089)))) (declare (not safe)) - (cons __tmp49091 __tmp49086)))) + (cons __tmp49093 __tmp49088)))) (declare (not safe)) - (cons _L18464_ __tmp49085)))) + (cons _L18464_ __tmp49087)))) (declare (not safe)) - (cons __tmp49096 __tmp49084)))) + (cons __tmp49098 __tmp49086)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49099 - __tmp49083)))) + (cons __tmp49101 + __tmp49085)))) (declare (not safe)) - (cons _L18137_ __tmp49082)))) + (cons _L18137_ __tmp49084)))) (declare (not safe)) - (_g1847619095_ __tmp49081)))) + (_g1847619095_ __tmp49083)))) _g1845018461_))) - (__tmp49102 + (__tmp49104 (if _struct?17798_ _L17893_ - (let ((__tmp49103 (gx#datum->syntax '#f 'list))) + (let ((__tmp49105 (gx#datum->syntax '#f 'list))) (declare (not safe)) - (cons __tmp49103 _L17893_))))) + (cons __tmp49105 _L17893_))))) (declare (not safe)) - (_g1844819107_ __tmp49102)))) + (_g1844819107_ __tmp49104)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1842218433_))) - (__tmp49104 + (__tmp49106 (if _struct?17798_ - (let ((__tmp49111 + (let ((__tmp49113 (gx#datum->syntax '#f '@list)) - (__tmp49105 - (let ((__tmp49108 + (__tmp49107 + (let ((__tmp49110 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49110 (gx#datum->syntax '#f '@list)) - (__tmp49109 + (let ((__tmp49112 (gx#datum->syntax '#f '@list)) + (__tmp49111 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp49110 __tmp49109))) - (__tmp49106 - (let ((__tmp49107 + (cons __tmp49112 __tmp49111))) + (__tmp49108 + (let ((__tmp49109 (let () (declare (not safe)) (cons _L18408_ '())))) (declare (not safe)) - (cons ':: __tmp49107)))) + (cons ':: __tmp49109)))) (declare (not safe)) - (cons __tmp49108 __tmp49106)))) + (cons __tmp49110 __tmp49108)))) (declare (not safe)) - (cons __tmp49111 __tmp49105)) + (cons __tmp49113 __tmp49107)) _L18408_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1842019111_ __tmp49104)))) + (_g1842019111_ __tmp49106)))) _g1839418405_))) - (__tmp49112 + (__tmp49114 (if (gx#stx-e _L18352_) - (let ((__tmp49119 + (let ((__tmp49121 (gx#datum->syntax '#f '@list)) - (__tmp49113 - (let ((__tmp49116 - (let ((__tmp49118 + (__tmp49115 + (let ((__tmp49118 + (let ((__tmp49120 (gx#datum->syntax '#f '@list)) - (__tmp49117 + (__tmp49119 (let () (declare (not safe)) @@ -1645,10 +1645,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#t)))) (declare (not safe)) - (cons __tmp49118 __tmp49117))) + (cons __tmp49120 __tmp49119))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49114 - (let ((__tmp49115 + (__tmp49116 + (let ((__tmp49117 (let () (declare (not safe)) @@ -1656,58 +1656,58 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons ':: __tmp49115)))) + (cons ':: __tmp49117)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49116 __tmp49114)))) + (cons __tmp49118 __tmp49116)))) (declare (not safe)) - (cons __tmp49119 __tmp49113)) + (cons __tmp49121 __tmp49115)) _L18380_))) (declare (not safe)) - (_g1839219115_ __tmp49112)))) + (_g1839219115_ __tmp49114)))) _g1836618377_))) - (__tmp49120 + (__tmp49122 (let ((_$e19123_ (gx#stx-getq 'properties: _L17889_))) (if _$e19123_ _$e19123_ - (let ((__tmp49121 (gx#datum->syntax '#f '@list))) + (let ((__tmp49123 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp49121 '())))))) + (cons __tmp49123 '())))))) (declare (not safe)) - (_g1836419119_ __tmp49120)))) + (_g1836419119_ __tmp49122)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1833818349_))) - (__tmp49122 + (__tmp49124 (gx#stx-getq 'final: _L17889_))) (declare (not safe)) - (_g1833619127_ __tmp49122)))) + (_g1833619127_ __tmp49124)))) _g1831018321_)))) (declare (not safe)) (_g1830819131_ _struct?17798_)))) _g1828218293_))) - (__tmp49123 + (__tmp49125 (if _struct?17798_ (if (gx#stx-e _L17893_) - (let ((__tmp49124 (gx#core-quote-syntax _L17893_))) + (let ((__tmp49126 (gx#core-quote-syntax _L17893_))) (declare (not safe)) - (cons __tmp49124 '())) + (cons __tmp49126 '())) '()) (gx#stx-map gx#core-quote-syntax _L17893_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1828019135_ __tmp49123)))) + (_g1828019135_ __tmp49125)))) _g1825418265_))) - (__tmp49125 + (__tmp49127 (gx#core-quote-syntax _L17894_))) (declare (not safe)) - (_g1825219139_ __tmp49125)))) + (_g1825219139_ __tmp49127)))) _g1822618237_))) - (__tmp49126 (gx#stx-getq 'constructor: _L17889_))) + (__tmp49128 (gx#stx-getq 'constructor: _L17889_))) (declare (not safe)) - (_g1822419143_ __tmp49126)))) + (_g1822419143_ __tmp49128)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1819818209_))) - (__tmp49127 + (__tmp49129 (let ((_$e19151_ (gx#stx-getq 'name: @@ -1716,9 +1716,9 @@ _$e19151_ _L17894_)))) (declare (not safe)) - (_g1819619147_ __tmp49127)))) + (_g1819619147_ __tmp49129)))) _g1817018181_))) - (__tmp49128 + (__tmp49130 (let ((_$e19159_ (gx#stx-getq 'id: _L17889_))) (if _$e19159_ @@ -1726,9 +1726,9 @@ (let () (declare (not safe)) (|gerbil/core$$[1]#make-class-type-id| - type-id)))))) + _L17894_)))))) (declare (not safe)) - (_g1816819155_ __tmp49128)))) + (_g1816819155_ __tmp49130)))) _hd1804618124_ _hd1804318114_ _hd1804018104_ @@ -1760,108 +1760,108 @@ (declare (not safe)) (_g1801818053_ _g1801918057_))))) - (__tmp49129 + (__tmp49131 (if _struct?17798_ - (let ((__tmp49155 + (let ((__tmp49157 (gx#datum->syntax '#f - 'make-struct-type*)) - (__tmp49143 - (let ((__tmp49154 + 'make-struct-type)) + (__tmp49145 + (let ((__tmp49156 (gx#datum->syntax '#f 'make-struct-instance)) - (__tmp49144 - (let ((__tmp49153 + (__tmp49146 + (let ((__tmp49155 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'make-struct-predicate)) - (__tmp49145 - (let ((__tmp49152 + (__tmp49147 + (let ((__tmp49154 (gx#datum->syntax '#f 'make-struct-slot-accessor)) - (__tmp49146 - (let ((__tmp49151 + (__tmp49148 + (let ((__tmp49153 (gx#datum->syntax '#f 'make-struct-slot-mutator)) - (__tmp49147 - (let ((__tmp49150 + (__tmp49149 + (let ((__tmp49152 (gx#datum->syntax '#f 'make-struct-slot-unchecked-accessor)) - (__tmp49148 - (let ((__tmp49149 + (__tmp49150 + (let ((__tmp49151 (gx#datum->syntax '#f 'make-struct-slot-unchecked-mutator))) (declare (not safe)) - (cons __tmp49149 '())))) + (cons __tmp49151 '())))) (declare (not safe)) - (cons __tmp49150 __tmp49148)))) + (cons __tmp49152 __tmp49150)))) (declare (not safe)) - (cons __tmp49151 __tmp49147)))) + (cons __tmp49153 __tmp49149)))) (declare (not safe)) - (cons __tmp49152 __tmp49146)))) + (cons __tmp49154 __tmp49148)))) (declare (not safe)) - (cons __tmp49153 __tmp49145)))) + (cons __tmp49155 __tmp49147)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49154 - __tmp49144)))) + (cons __tmp49156 + __tmp49146)))) (declare (not safe)) - (cons __tmp49155 __tmp49143)) - (let ((__tmp49142 + (cons __tmp49157 __tmp49145)) + (let ((__tmp49144 (gx#datum->syntax '#f - 'make-class-type*)) - (__tmp49130 - (let ((__tmp49141 + 'make-class-type)) + (__tmp49132 + (let ((__tmp49143 (gx#datum->syntax '#f 'make-class-instance)) - (__tmp49131 - (let ((__tmp49140 + (__tmp49133 + (let ((__tmp49142 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'make-class-predicate)) - (__tmp49132 - (let ((__tmp49139 + (__tmp49134 + (let ((__tmp49141 (gx#datum->syntax '#f 'make-class-slot-accessor)) - (__tmp49133 - (let ((__tmp49138 + (__tmp49135 + (let ((__tmp49140 (gx#datum->syntax '#f 'make-class-slot-mutator)) - (__tmp49134 - (let ((__tmp49137 + (__tmp49136 + (let ((__tmp49139 (gx#datum->syntax '#f 'make-class-slot-unchecked-accessor)) - (__tmp49135 - (let ((__tmp49136 + (__tmp49137 + (let ((__tmp49138 (gx#datum->syntax '#f 'make-class-slot-unchecked-mutator))) (declare (not safe)) - (cons __tmp49136 '())))) + (cons __tmp49138 '())))) (declare (not safe)) - (cons __tmp49137 __tmp49135)))) + (cons __tmp49139 __tmp49137)))) (declare (not safe)) - (cons __tmp49138 __tmp49134)))) + (cons __tmp49140 __tmp49136)))) (declare (not safe)) - (cons __tmp49139 __tmp49133)))) + (cons __tmp49141 __tmp49135)))) (declare (not safe)) - (cons __tmp49140 __tmp49132)))) + (cons __tmp49142 __tmp49134)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49141 - __tmp49131)))) + (cons __tmp49143 + __tmp49133)))) (declare (not safe)) - (cons __tmp49142 __tmp49130))))) + (cons __tmp49144 __tmp49132))))) (declare (not safe)) - (_g1801719163_ __tmp49129)))) + (_g1801719163_ __tmp49131)))) _slot1795617995_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -1876,10 +1876,10 @@ (let () (declare (not safe)) (_g1794517962_ _g1794617966_))))) - (__tmp49157 + (__tmp49159 (gx#stx-map _slot-name17802_ _slots17932_))) (declare (not safe)) - (_g1794419167_ __tmp49157)) + (_g1794419167_ __tmp49159)) (let () (declare (not safe)) (_g1780517832_ _g1780617836_)))) diff --git a/src/bootstrap/gerbil/core__7.scm b/src/bootstrap/gerbil/core__7.scm index 72ded477b..6b9e9c4be 100644 --- a/src/bootstrap/gerbil/core__7.scm +++ b/src/bootstrap/gerbil/core__7.scm @@ -1,412 +1,412 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g49159_| + (define |gerbil/core$$[1]#_g49161_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49161_| + (define |gerbil/core$$[1]#_g49163_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49163_| + (define |gerbil/core$$[1]#_g49165_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49180_| + (define |gerbil/core$$[1]#_g49182_| (##structure gx#syntax-quote::t 'class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49183_| + (define |gerbil/core$$[1]#_g49185_| (##structure gx#syntax-quote::t 'class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49186_| + (define |gerbil/core$$[1]#_g49188_| (##structure gx#syntax-quote::t 'class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49189_| + (define |gerbil/core$$[1]#_g49191_| (##structure gx#syntax-quote::t 'class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49192_| + (define |gerbil/core$$[1]#_g49194_| (##structure gx#syntax-quote::t 'class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49195_| + (define |gerbil/core$$[1]#_g49197_| (##structure gx#syntax-quote::t 'class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49198_| + (define |gerbil/core$$[1]#_g49200_| (##structure gx#syntax-quote::t 'class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49201_| + (define |gerbil/core$$[1]#_g49203_| (##structure gx#syntax-quote::t 'class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49204_| + (define |gerbil/core$$[1]#_g49206_| (##structure gx#syntax-quote::t 'class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49207_| + (define |gerbil/core$$[1]#_g49209_| (##structure gx#syntax-quote::t 'class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49210_| + (define |gerbil/core$$[1]#_g49212_| (##structure gx#syntax-quote::t 'class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49213_| + (define |gerbil/core$$[1]#_g49215_| (##structure gx#syntax-quote::t 'class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49216_| + (define |gerbil/core$$[1]#_g49218_| (##structure gx#syntax-quote::t 'class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49219_| + (define |gerbil/core$$[1]#_g49221_| (##structure gx#syntax-quote::t 'class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49236_| + (define |gerbil/core$$[1]#_g49238_| (##structure gx#syntax-quote::t 'class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49239_| + (define |gerbil/core$$[1]#_g49241_| (##structure gx#syntax-quote::t 'class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49242_| + (define |gerbil/core$$[1]#_g49244_| (##structure gx#syntax-quote::t 'class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49245_| + (define |gerbil/core$$[1]#_g49247_| (##structure gx#syntax-quote::t 'class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49248_| + (define |gerbil/core$$[1]#_g49250_| (##structure gx#syntax-quote::t 'class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49251_| + (define |gerbil/core$$[1]#_g49253_| (##structure gx#syntax-quote::t 'class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49254_| + (define |gerbil/core$$[1]#_g49256_| (##structure gx#syntax-quote::t 'class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49257_| + (define |gerbil/core$$[1]#_g49259_| (##structure gx#syntax-quote::t 'class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49260_| + (define |gerbil/core$$[1]#_g49262_| (##structure gx#syntax-quote::t 'class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49263_| + (define |gerbil/core$$[1]#_g49265_| (##structure gx#syntax-quote::t 'class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49266_| + (define |gerbil/core$$[1]#_g49268_| (##structure gx#syntax-quote::t 'class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49269_| + (define |gerbil/core$$[1]#_g49271_| (##structure gx#syntax-quote::t 'class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49272_| + (define |gerbil/core$$[1]#_g49274_| (##structure gx#syntax-quote::t 'class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49275_| + (define |gerbil/core$$[1]#_g49277_| (##structure gx#syntax-quote::t 'class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49292_| + (define |gerbil/core$$[1]#_g49294_| (##structure gx#syntax-quote::t '&class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49295_| + (define |gerbil/core$$[1]#_g49297_| (##structure gx#syntax-quote::t '&class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49298_| + (define |gerbil/core$$[1]#_g49300_| (##structure gx#syntax-quote::t '&class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49301_| + (define |gerbil/core$$[1]#_g49303_| (##structure gx#syntax-quote::t '&class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49304_| + (define |gerbil/core$$[1]#_g49306_| (##structure gx#syntax-quote::t '&class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49307_| + (define |gerbil/core$$[1]#_g49309_| (##structure gx#syntax-quote::t '&class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49310_| + (define |gerbil/core$$[1]#_g49312_| (##structure gx#syntax-quote::t '&class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49313_| + (define |gerbil/core$$[1]#_g49315_| (##structure gx#syntax-quote::t '&class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49316_| + (define |gerbil/core$$[1]#_g49318_| (##structure gx#syntax-quote::t '&class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49319_| + (define |gerbil/core$$[1]#_g49321_| (##structure gx#syntax-quote::t '&class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49322_| + (define |gerbil/core$$[1]#_g49324_| (##structure gx#syntax-quote::t '&class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49325_| + (define |gerbil/core$$[1]#_g49327_| (##structure gx#syntax-quote::t '&class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49328_| + (define |gerbil/core$$[1]#_g49330_| (##structure gx#syntax-quote::t '&class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49331_| + (define |gerbil/core$$[1]#_g49333_| (##structure gx#syntax-quote::t '&class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49348_| + (define |gerbil/core$$[1]#_g49350_| (##structure gx#syntax-quote::t '&class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49351_| + (define |gerbil/core$$[1]#_g49353_| (##structure gx#syntax-quote::t '&class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49354_| + (define |gerbil/core$$[1]#_g49356_| (##structure gx#syntax-quote::t '&class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49357_| + (define |gerbil/core$$[1]#_g49359_| (##structure gx#syntax-quote::t '&class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49360_| + (define |gerbil/core$$[1]#_g49362_| (##structure gx#syntax-quote::t '&class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49363_| + (define |gerbil/core$$[1]#_g49365_| (##structure gx#syntax-quote::t '&class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49366_| + (define |gerbil/core$$[1]#_g49368_| (##structure gx#syntax-quote::t '&class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49369_| + (define |gerbil/core$$[1]#_g49371_| (##structure gx#syntax-quote::t '&class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49372_| + (define |gerbil/core$$[1]#_g49374_| (##structure gx#syntax-quote::t '&class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49375_| + (define |gerbil/core$$[1]#_g49377_| (##structure gx#syntax-quote::t '&class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49378_| + (define |gerbil/core$$[1]#_g49380_| (##structure gx#syntax-quote::t '&class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49381_| + (define |gerbil/core$$[1]#_g49383_| (##structure gx#syntax-quote::t '&class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49384_| + (define |gerbil/core$$[1]#_g49386_| (##structure gx#syntax-quote::t '&class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49387_| + (define |gerbil/core$$[1]#_g49389_| (##structure gx#syntax-quote::t '&class-type-id-set! @@ -415,7 +415,7 @@ '())) (define |gerbil/core$$[:0:]#class-type-info| (let ((__obj47280 - (make-object* gerbil/core$$#class-type-info::t '15))) + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! @@ -484,535 +484,535 @@ '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49158 |gerbil/core$$[1]#_g49159_|)) + (let ((__tmp49160 |gerbil/core$$[1]#_g49161_|)) (declare (not safe)) (##unchecked-structure-set! __obj47280 - __tmp49158 + __tmp49160 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49160 |gerbil/core$$[1]#_g49161_|)) + (let ((__tmp49162 |gerbil/core$$[1]#_g49163_|)) (declare (not safe)) (##unchecked-structure-set! __obj47280 - __tmp49160 + __tmp49162 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49162 |gerbil/core$$[1]#_g49163_|)) + (let ((__tmp49164 |gerbil/core$$[1]#_g49165_|)) (declare (not safe)) (##unchecked-structure-set! __obj47280 - __tmp49162 + __tmp49164 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49164 - (let ((__tmp49217 - (let ((__tmp49218 |gerbil/core$$[1]#_g49219_|)) + (let ((__tmp49166 + (let ((__tmp49219 + (let ((__tmp49220 |gerbil/core$$[1]#_g49221_|)) (declare (not safe)) - (cons 'id __tmp49218))) - (__tmp49165 - (let ((__tmp49214 - (let ((__tmp49215 - |gerbil/core$$[1]#_g49216_|)) + (cons 'id __tmp49220))) + (__tmp49167 + (let ((__tmp49216 + (let ((__tmp49217 + |gerbil/core$$[1]#_g49218_|)) (declare (not safe)) - (cons 'name __tmp49215))) - (__tmp49166 - (let ((__tmp49211 - (let ((__tmp49212 - |gerbil/core$$[1]#_g49213_|)) + (cons 'name __tmp49217))) + (__tmp49168 + (let ((__tmp49213 + (let ((__tmp49214 + |gerbil/core$$[1]#_g49215_|)) (declare (not safe)) - (cons 'super __tmp49212))) - (__tmp49167 - (let ((__tmp49208 - (let ((__tmp49209 - |gerbil/core$$[1]#_g49210_|)) + (cons 'super __tmp49214))) + (__tmp49169 + (let ((__tmp49210 + (let ((__tmp49211 + |gerbil/core$$[1]#_g49212_|)) (declare (not safe)) - (cons 'slots __tmp49209))) - (__tmp49168 - (let ((__tmp49205 - (let ((__tmp49206 - |gerbil/core$$[1]#_g49207_|)) + (cons 'slots __tmp49211))) + (__tmp49170 + (let ((__tmp49207 + (let ((__tmp49208 + |gerbil/core$$[1]#_g49209_|)) (declare (not safe)) - (cons 'struct? __tmp49206))) - (__tmp49169 - (let ((__tmp49202 - (let ((__tmp49203 - |gerbil/core$$[1]#_g49204_|)) + (cons 'struct? __tmp49208))) + (__tmp49171 + (let ((__tmp49204 + (let ((__tmp49205 + |gerbil/core$$[1]#_g49206_|)) (declare (not safe)) (cons 'final? - __tmp49203))) - (__tmp49170 - (let ((__tmp49199 - (let ((__tmp49200 + __tmp49205))) + (__tmp49172 + (let ((__tmp49201 + (let ((__tmp49202 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49201_|)) + |gerbil/core$$[1]#_g49203_|)) (declare (not safe)) - (cons 'constructor-method __tmp49200))) - (__tmp49171 - (let ((__tmp49196 - (let ((__tmp49197 - |gerbil/core$$[1]#_g49198_|)) + (cons 'constructor-method __tmp49202))) + (__tmp49173 + (let ((__tmp49198 + (let ((__tmp49199 + |gerbil/core$$[1]#_g49200_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49197))) - (__tmp49172 - (let ((__tmp49193 - (let ((__tmp49194 - |gerbil/core$$[1]#_g49195_|)) + (cons 'type-descriptor __tmp49199))) + (__tmp49174 + (let ((__tmp49195 + (let ((__tmp49196 + |gerbil/core$$[1]#_g49197_|)) (declare (not safe)) - (cons 'constructor __tmp49194))) - (__tmp49173 - (let ((__tmp49190 - (let ((__tmp49191 - |gerbil/core$$[1]#_g49192_|)) + (cons 'constructor __tmp49196))) + (__tmp49175 + (let ((__tmp49192 + (let ((__tmp49193 + |gerbil/core$$[1]#_g49194_|)) (declare (not safe)) - (cons 'predicate __tmp49191))) - (__tmp49174 - (let ((__tmp49187 - (let ((__tmp49188 - |gerbil/core$$[1]#_g49189_|)) + (cons 'predicate __tmp49193))) + (__tmp49176 + (let ((__tmp49189 + (let ((__tmp49190 + |gerbil/core$$[1]#_g49191_|)) (declare (not safe)) (cons 'accessors - __tmp49188))) - (__tmp49175 - (let ((__tmp49184 - (let ((__tmp49185 - |gerbil/core$$[1]#_g49186_|)) + __tmp49190))) + (__tmp49177 + (let ((__tmp49186 + (let ((__tmp49187 + |gerbil/core$$[1]#_g49188_|)) (declare (not safe)) (cons 'mutators ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49185))) - (__tmp49176 - (let ((__tmp49181 - (let ((__tmp49182 - |gerbil/core$$[1]#_g49183_|)) + __tmp49187))) + (__tmp49178 + (let ((__tmp49183 + (let ((__tmp49184 + |gerbil/core$$[1]#_g49185_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49182))) - (__tmp49177 - (let ((__tmp49178 - (let ((__tmp49179 - |gerbil/core$$[1]#_g49180_|)) + (cons 'unchecked-accessors __tmp49184))) + (__tmp49179 + (let ((__tmp49180 + (let ((__tmp49181 + |gerbil/core$$[1]#_g49182_|)) (declare (not safe)) - (cons 'unchecked-mutators __tmp49179)))) + (cons 'unchecked-mutators __tmp49181)))) (declare (not safe)) - (cons __tmp49178 '())))) + (cons __tmp49180 '())))) (declare (not safe)) - (cons __tmp49181 __tmp49177)))) + (cons __tmp49183 __tmp49179)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49184 - __tmp49176)))) + (cons __tmp49186 + __tmp49178)))) (declare (not safe)) - (cons __tmp49187 __tmp49175)))) + (cons __tmp49189 __tmp49177)))) (declare (not safe)) - (cons __tmp49190 __tmp49174)))) + (cons __tmp49192 __tmp49176)))) (declare (not safe)) - (cons __tmp49193 __tmp49173)))) + (cons __tmp49195 __tmp49175)))) (declare (not safe)) - (cons __tmp49196 __tmp49172)))) + (cons __tmp49198 __tmp49174)))) (declare (not safe)) - (cons __tmp49199 __tmp49171)))) + (cons __tmp49201 __tmp49173)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49202 - __tmp49170)))) + (cons __tmp49204 + __tmp49172)))) (declare (not safe)) - (cons __tmp49205 __tmp49169)))) + (cons __tmp49207 __tmp49171)))) (declare (not safe)) - (cons __tmp49208 __tmp49168)))) + (cons __tmp49210 __tmp49170)))) (declare (not safe)) - (cons __tmp49211 __tmp49167)))) + (cons __tmp49213 __tmp49169)))) (declare (not safe)) - (cons __tmp49214 __tmp49166)))) + (cons __tmp49216 __tmp49168)))) (declare (not safe)) - (cons __tmp49217 __tmp49165)))) + (cons __tmp49219 __tmp49167)))) (declare (not safe)) (##unchecked-structure-set! __obj47280 - __tmp49164 + __tmp49166 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49220 - (let ((__tmp49273 - (let ((__tmp49274 |gerbil/core$$[1]#_g49275_|)) + (let ((__tmp49222 + (let ((__tmp49275 + (let ((__tmp49276 |gerbil/core$$[1]#_g49277_|)) (declare (not safe)) - (cons 'id __tmp49274))) - (__tmp49221 - (let ((__tmp49270 - (let ((__tmp49271 - |gerbil/core$$[1]#_g49272_|)) + (cons 'id __tmp49276))) + (__tmp49223 + (let ((__tmp49272 + (let ((__tmp49273 + |gerbil/core$$[1]#_g49274_|)) (declare (not safe)) - (cons 'name __tmp49271))) - (__tmp49222 - (let ((__tmp49267 - (let ((__tmp49268 - |gerbil/core$$[1]#_g49269_|)) + (cons 'name __tmp49273))) + (__tmp49224 + (let ((__tmp49269 + (let ((__tmp49270 + |gerbil/core$$[1]#_g49271_|)) (declare (not safe)) - (cons 'super __tmp49268))) - (__tmp49223 - (let ((__tmp49264 - (let ((__tmp49265 - |gerbil/core$$[1]#_g49266_|)) + (cons 'super __tmp49270))) + (__tmp49225 + (let ((__tmp49266 + (let ((__tmp49267 + |gerbil/core$$[1]#_g49268_|)) (declare (not safe)) - (cons 'slots __tmp49265))) - (__tmp49224 - (let ((__tmp49261 - (let ((__tmp49262 - |gerbil/core$$[1]#_g49263_|)) + (cons 'slots __tmp49267))) + (__tmp49226 + (let ((__tmp49263 + (let ((__tmp49264 + |gerbil/core$$[1]#_g49265_|)) (declare (not safe)) - (cons 'struct? __tmp49262))) - (__tmp49225 - (let ((__tmp49258 - (let ((__tmp49259 - |gerbil/core$$[1]#_g49260_|)) + (cons 'struct? __tmp49264))) + (__tmp49227 + (let ((__tmp49260 + (let ((__tmp49261 + |gerbil/core$$[1]#_g49262_|)) (declare (not safe)) (cons 'final? - __tmp49259))) - (__tmp49226 - (let ((__tmp49255 - (let ((__tmp49256 + __tmp49261))) + (__tmp49228 + (let ((__tmp49257 + (let ((__tmp49258 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49257_|)) + |gerbil/core$$[1]#_g49259_|)) (declare (not safe)) - (cons 'constructor-method __tmp49256))) - (__tmp49227 - (let ((__tmp49252 - (let ((__tmp49253 - |gerbil/core$$[1]#_g49254_|)) + (cons 'constructor-method __tmp49258))) + (__tmp49229 + (let ((__tmp49254 + (let ((__tmp49255 + |gerbil/core$$[1]#_g49256_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49253))) - (__tmp49228 - (let ((__tmp49249 - (let ((__tmp49250 - |gerbil/core$$[1]#_g49251_|)) + (cons 'type-descriptor __tmp49255))) + (__tmp49230 + (let ((__tmp49251 + (let ((__tmp49252 + |gerbil/core$$[1]#_g49253_|)) (declare (not safe)) - (cons 'constructor __tmp49250))) - (__tmp49229 - (let ((__tmp49246 - (let ((__tmp49247 - |gerbil/core$$[1]#_g49248_|)) + (cons 'constructor __tmp49252))) + (__tmp49231 + (let ((__tmp49248 + (let ((__tmp49249 + |gerbil/core$$[1]#_g49250_|)) (declare (not safe)) - (cons 'predicate __tmp49247))) - (__tmp49230 - (let ((__tmp49243 - (let ((__tmp49244 - |gerbil/core$$[1]#_g49245_|)) + (cons 'predicate __tmp49249))) + (__tmp49232 + (let ((__tmp49245 + (let ((__tmp49246 + |gerbil/core$$[1]#_g49247_|)) (declare (not safe)) (cons 'accessors - __tmp49244))) - (__tmp49231 - (let ((__tmp49240 - (let ((__tmp49241 - |gerbil/core$$[1]#_g49242_|)) + __tmp49246))) + (__tmp49233 + (let ((__tmp49242 + (let ((__tmp49243 + |gerbil/core$$[1]#_g49244_|)) (declare (not safe)) (cons 'mutators ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49241))) - (__tmp49232 - (let ((__tmp49237 - (let ((__tmp49238 - |gerbil/core$$[1]#_g49239_|)) + __tmp49243))) + (__tmp49234 + (let ((__tmp49239 + (let ((__tmp49240 + |gerbil/core$$[1]#_g49241_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49238))) - (__tmp49233 - (let ((__tmp49234 - (let ((__tmp49235 - |gerbil/core$$[1]#_g49236_|)) + (cons 'unchecked-accessors __tmp49240))) + (__tmp49235 + (let ((__tmp49236 + (let ((__tmp49237 + |gerbil/core$$[1]#_g49238_|)) (declare (not safe)) - (cons 'unchecked-mutators __tmp49235)))) + (cons 'unchecked-mutators __tmp49237)))) (declare (not safe)) - (cons __tmp49234 '())))) + (cons __tmp49236 '())))) (declare (not safe)) - (cons __tmp49237 __tmp49233)))) + (cons __tmp49239 __tmp49235)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49240 - __tmp49232)))) + (cons __tmp49242 + __tmp49234)))) (declare (not safe)) - (cons __tmp49243 __tmp49231)))) + (cons __tmp49245 __tmp49233)))) (declare (not safe)) - (cons __tmp49246 __tmp49230)))) + (cons __tmp49248 __tmp49232)))) (declare (not safe)) - (cons __tmp49249 __tmp49229)))) + (cons __tmp49251 __tmp49231)))) (declare (not safe)) - (cons __tmp49252 __tmp49228)))) + (cons __tmp49254 __tmp49230)))) (declare (not safe)) - (cons __tmp49255 __tmp49227)))) + (cons __tmp49257 __tmp49229)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49258 - __tmp49226)))) + (cons __tmp49260 + __tmp49228)))) (declare (not safe)) - (cons __tmp49261 __tmp49225)))) + (cons __tmp49263 __tmp49227)))) (declare (not safe)) - (cons __tmp49264 __tmp49224)))) + (cons __tmp49266 __tmp49226)))) (declare (not safe)) - (cons __tmp49267 __tmp49223)))) + (cons __tmp49269 __tmp49225)))) (declare (not safe)) - (cons __tmp49270 __tmp49222)))) + (cons __tmp49272 __tmp49224)))) (declare (not safe)) - (cons __tmp49273 __tmp49221)))) + (cons __tmp49275 __tmp49223)))) (declare (not safe)) (##unchecked-structure-set! __obj47280 - __tmp49220 + __tmp49222 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49276 - (let ((__tmp49329 - (let ((__tmp49330 |gerbil/core$$[1]#_g49331_|)) + (let ((__tmp49278 + (let ((__tmp49331 + (let ((__tmp49332 |gerbil/core$$[1]#_g49333_|)) (declare (not safe)) - (cons 'id __tmp49330))) - (__tmp49277 - (let ((__tmp49326 - (let ((__tmp49327 - |gerbil/core$$[1]#_g49328_|)) + (cons 'id __tmp49332))) + (__tmp49279 + (let ((__tmp49328 + (let ((__tmp49329 + |gerbil/core$$[1]#_g49330_|)) (declare (not safe)) - (cons 'name __tmp49327))) - (__tmp49278 - (let ((__tmp49323 - (let ((__tmp49324 - |gerbil/core$$[1]#_g49325_|)) + (cons 'name __tmp49329))) + (__tmp49280 + (let ((__tmp49325 + (let ((__tmp49326 + |gerbil/core$$[1]#_g49327_|)) (declare (not safe)) - (cons 'super __tmp49324))) - (__tmp49279 - (let ((__tmp49320 - (let ((__tmp49321 - |gerbil/core$$[1]#_g49322_|)) + (cons 'super __tmp49326))) + (__tmp49281 + (let ((__tmp49322 + (let ((__tmp49323 + |gerbil/core$$[1]#_g49324_|)) (declare (not safe)) - (cons 'slots __tmp49321))) - (__tmp49280 - (let ((__tmp49317 - (let ((__tmp49318 - |gerbil/core$$[1]#_g49319_|)) + (cons 'slots __tmp49323))) + (__tmp49282 + (let ((__tmp49319 + (let ((__tmp49320 + |gerbil/core$$[1]#_g49321_|)) (declare (not safe)) - (cons 'struct? __tmp49318))) - (__tmp49281 - (let ((__tmp49314 - (let ((__tmp49315 - |gerbil/core$$[1]#_g49316_|)) + (cons 'struct? __tmp49320))) + (__tmp49283 + (let ((__tmp49316 + (let ((__tmp49317 + |gerbil/core$$[1]#_g49318_|)) (declare (not safe)) (cons 'final? - __tmp49315))) - (__tmp49282 - (let ((__tmp49311 - (let ((__tmp49312 + __tmp49317))) + (__tmp49284 + (let ((__tmp49313 + (let ((__tmp49314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49313_|)) + |gerbil/core$$[1]#_g49315_|)) (declare (not safe)) - (cons 'constructor-method __tmp49312))) - (__tmp49283 - (let ((__tmp49308 - (let ((__tmp49309 - |gerbil/core$$[1]#_g49310_|)) + (cons 'constructor-method __tmp49314))) + (__tmp49285 + (let ((__tmp49310 + (let ((__tmp49311 + |gerbil/core$$[1]#_g49312_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49309))) - (__tmp49284 - (let ((__tmp49305 - (let ((__tmp49306 - |gerbil/core$$[1]#_g49307_|)) + (cons 'type-descriptor __tmp49311))) + (__tmp49286 + (let ((__tmp49307 + (let ((__tmp49308 + |gerbil/core$$[1]#_g49309_|)) (declare (not safe)) - (cons 'constructor __tmp49306))) - (__tmp49285 - (let ((__tmp49302 - (let ((__tmp49303 - |gerbil/core$$[1]#_g49304_|)) + (cons 'constructor __tmp49308))) + (__tmp49287 + (let ((__tmp49304 + (let ((__tmp49305 + |gerbil/core$$[1]#_g49306_|)) (declare (not safe)) - (cons 'predicate __tmp49303))) - (__tmp49286 - (let ((__tmp49299 - (let ((__tmp49300 - |gerbil/core$$[1]#_g49301_|)) + (cons 'predicate __tmp49305))) + (__tmp49288 + (let ((__tmp49301 + (let ((__tmp49302 + |gerbil/core$$[1]#_g49303_|)) (declare (not safe)) (cons 'accessors - __tmp49300))) - (__tmp49287 - (let ((__tmp49296 - (let ((__tmp49297 - |gerbil/core$$[1]#_g49298_|)) + __tmp49302))) + (__tmp49289 + (let ((__tmp49298 + (let ((__tmp49299 + |gerbil/core$$[1]#_g49300_|)) (declare (not safe)) (cons 'mutators ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49297))) - (__tmp49288 - (let ((__tmp49293 - (let ((__tmp49294 - |gerbil/core$$[1]#_g49295_|)) + __tmp49299))) + (__tmp49290 + (let ((__tmp49295 + (let ((__tmp49296 + |gerbil/core$$[1]#_g49297_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49294))) - (__tmp49289 - (let ((__tmp49290 - (let ((__tmp49291 - |gerbil/core$$[1]#_g49292_|)) + (cons 'unchecked-accessors __tmp49296))) + (__tmp49291 + (let ((__tmp49292 + (let ((__tmp49293 + |gerbil/core$$[1]#_g49294_|)) (declare (not safe)) - (cons 'unchecked-mutators __tmp49291)))) + (cons 'unchecked-mutators __tmp49293)))) (declare (not safe)) - (cons __tmp49290 '())))) + (cons __tmp49292 '())))) (declare (not safe)) - (cons __tmp49293 __tmp49289)))) + (cons __tmp49295 __tmp49291)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49296 - __tmp49288)))) + (cons __tmp49298 + __tmp49290)))) (declare (not safe)) - (cons __tmp49299 __tmp49287)))) + (cons __tmp49301 __tmp49289)))) (declare (not safe)) - (cons __tmp49302 __tmp49286)))) + (cons __tmp49304 __tmp49288)))) (declare (not safe)) - (cons __tmp49305 __tmp49285)))) + (cons __tmp49307 __tmp49287)))) (declare (not safe)) - (cons __tmp49308 __tmp49284)))) + (cons __tmp49310 __tmp49286)))) (declare (not safe)) - (cons __tmp49311 __tmp49283)))) + (cons __tmp49313 __tmp49285)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49314 - __tmp49282)))) + (cons __tmp49316 + __tmp49284)))) (declare (not safe)) - (cons __tmp49317 __tmp49281)))) + (cons __tmp49319 __tmp49283)))) (declare (not safe)) - (cons __tmp49320 __tmp49280)))) + (cons __tmp49322 __tmp49282)))) (declare (not safe)) - (cons __tmp49323 __tmp49279)))) + (cons __tmp49325 __tmp49281)))) (declare (not safe)) - (cons __tmp49326 __tmp49278)))) + (cons __tmp49328 __tmp49280)))) (declare (not safe)) - (cons __tmp49329 __tmp49277)))) + (cons __tmp49331 __tmp49279)))) (declare (not safe)) (##unchecked-structure-set! __obj47280 - __tmp49276 + __tmp49278 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49332 - (let ((__tmp49385 - (let ((__tmp49386 |gerbil/core$$[1]#_g49387_|)) + (let ((__tmp49334 + (let ((__tmp49387 + (let ((__tmp49388 |gerbil/core$$[1]#_g49389_|)) (declare (not safe)) - (cons 'id __tmp49386))) - (__tmp49333 - (let ((__tmp49382 - (let ((__tmp49383 - |gerbil/core$$[1]#_g49384_|)) + (cons 'id __tmp49388))) + (__tmp49335 + (let ((__tmp49384 + (let ((__tmp49385 + |gerbil/core$$[1]#_g49386_|)) (declare (not safe)) - (cons 'name __tmp49383))) - (__tmp49334 - (let ((__tmp49379 - (let ((__tmp49380 - |gerbil/core$$[1]#_g49381_|)) + (cons 'name __tmp49385))) + (__tmp49336 + (let ((__tmp49381 + (let ((__tmp49382 + |gerbil/core$$[1]#_g49383_|)) (declare (not safe)) - (cons 'super __tmp49380))) - (__tmp49335 - (let ((__tmp49376 - (let ((__tmp49377 - |gerbil/core$$[1]#_g49378_|)) + (cons 'super __tmp49382))) + (__tmp49337 + (let ((__tmp49378 + (let ((__tmp49379 + |gerbil/core$$[1]#_g49380_|)) (declare (not safe)) - (cons 'slots __tmp49377))) - (__tmp49336 - (let ((__tmp49373 - (let ((__tmp49374 - |gerbil/core$$[1]#_g49375_|)) + (cons 'slots __tmp49379))) + (__tmp49338 + (let ((__tmp49375 + (let ((__tmp49376 + |gerbil/core$$[1]#_g49377_|)) (declare (not safe)) - (cons 'struct? __tmp49374))) - (__tmp49337 - (let ((__tmp49370 - (let ((__tmp49371 - |gerbil/core$$[1]#_g49372_|)) + (cons 'struct? __tmp49376))) + (__tmp49339 + (let ((__tmp49372 + (let ((__tmp49373 + |gerbil/core$$[1]#_g49374_|)) (declare (not safe)) (cons 'final? - __tmp49371))) - (__tmp49338 - (let ((__tmp49367 - (let ((__tmp49368 + __tmp49373))) + (__tmp49340 + (let ((__tmp49369 + (let ((__tmp49370 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49369_|)) + |gerbil/core$$[1]#_g49371_|)) (declare (not safe)) - (cons 'constructor-method __tmp49368))) - (__tmp49339 - (let ((__tmp49364 - (let ((__tmp49365 - |gerbil/core$$[1]#_g49366_|)) + (cons 'constructor-method __tmp49370))) + (__tmp49341 + (let ((__tmp49366 + (let ((__tmp49367 + |gerbil/core$$[1]#_g49368_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49365))) - (__tmp49340 - (let ((__tmp49361 - (let ((__tmp49362 - |gerbil/core$$[1]#_g49363_|)) + (cons 'type-descriptor __tmp49367))) + (__tmp49342 + (let ((__tmp49363 + (let ((__tmp49364 + |gerbil/core$$[1]#_g49365_|)) (declare (not safe)) - (cons 'constructor __tmp49362))) - (__tmp49341 - (let ((__tmp49358 - (let ((__tmp49359 - |gerbil/core$$[1]#_g49360_|)) + (cons 'constructor __tmp49364))) + (__tmp49343 + (let ((__tmp49360 + (let ((__tmp49361 + |gerbil/core$$[1]#_g49362_|)) (declare (not safe)) - (cons 'predicate __tmp49359))) - (__tmp49342 - (let ((__tmp49355 - (let ((__tmp49356 - |gerbil/core$$[1]#_g49357_|)) + (cons 'predicate __tmp49361))) + (__tmp49344 + (let ((__tmp49357 + (let ((__tmp49358 + |gerbil/core$$[1]#_g49359_|)) (declare (not safe)) (cons 'accessors - __tmp49356))) - (__tmp49343 - (let ((__tmp49352 - (let ((__tmp49353 - |gerbil/core$$[1]#_g49354_|)) + __tmp49358))) + (__tmp49345 + (let ((__tmp49354 + (let ((__tmp49355 + |gerbil/core$$[1]#_g49356_|)) (declare (not safe)) (cons 'mutators ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49353))) - (__tmp49344 - (let ((__tmp49349 - (let ((__tmp49350 - |gerbil/core$$[1]#_g49351_|)) + __tmp49355))) + (__tmp49346 + (let ((__tmp49351 + (let ((__tmp49352 + |gerbil/core$$[1]#_g49353_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49350))) - (__tmp49345 - (let ((__tmp49346 - (let ((__tmp49347 - |gerbil/core$$[1]#_g49348_|)) + (cons 'unchecked-accessors __tmp49352))) + (__tmp49347 + (let ((__tmp49348 + (let ((__tmp49349 + |gerbil/core$$[1]#_g49350_|)) (declare (not safe)) - (cons 'unchecked-mutators __tmp49347)))) + (cons 'unchecked-mutators __tmp49349)))) (declare (not safe)) - (cons __tmp49346 '())))) + (cons __tmp49348 '())))) (declare (not safe)) - (cons __tmp49349 __tmp49345)))) + (cons __tmp49351 __tmp49347)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49352 - __tmp49344)))) + (cons __tmp49354 + __tmp49346)))) (declare (not safe)) - (cons __tmp49355 __tmp49343)))) + (cons __tmp49357 __tmp49345)))) (declare (not safe)) - (cons __tmp49358 __tmp49342)))) + (cons __tmp49360 __tmp49344)))) (declare (not safe)) - (cons __tmp49361 __tmp49341)))) + (cons __tmp49363 __tmp49343)))) (declare (not safe)) - (cons __tmp49364 __tmp49340)))) + (cons __tmp49366 __tmp49342)))) (declare (not safe)) - (cons __tmp49367 __tmp49339)))) + (cons __tmp49369 __tmp49341)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49370 - __tmp49338)))) + (cons __tmp49372 + __tmp49340)))) (declare (not safe)) - (cons __tmp49373 __tmp49337)))) + (cons __tmp49375 __tmp49339)))) (declare (not safe)) - (cons __tmp49376 __tmp49336)))) + (cons __tmp49378 __tmp49338)))) (declare (not safe)) - (cons __tmp49379 __tmp49335)))) + (cons __tmp49381 __tmp49337)))) (declare (not safe)) - (cons __tmp49382 __tmp49334)))) + (cons __tmp49384 __tmp49336)))) (declare (not safe)) - (cons __tmp49385 __tmp49333)))) + (cons __tmp49387 __tmp49335)))) (declare (not safe)) (##unchecked-structure-set! __obj47280 - __tmp49332 + __tmp49334 '14 gerbil/core$$#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/core__8.scm b/src/bootstrap/gerbil/core__8.scm index cb3b8daf8..086a9ad08 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]#_g49726_| + (define |gerbil/core$$[1]#_g49728_| (##structure gx#syntax-quote::t '@method @@ -35,7 +35,7 @@ (gx#stx-source _stx19407_)))) (_make-id19417_ (if (uninterned-symbol? (gx#stx-e _id19409_)) - (lambda _g49388_ (gx#genident _id19409_)) + (lambda _g49390_ (gx#genident _id19409_)) (lambda _args21594_ (apply gx#stx-identifier _id19409_ _args21594_)))) (_get-mixin-slots19418_ @@ -58,11 +58,11 @@ _tab21572_ _slot21589_ '#f)) - (let ((__tmp49391 + (let ((__tmp49393 (cdr _rest21585_))) (declare (not safe)) (_lp21582_ - __tmp49391 + __tmp49393 _r21587_)) (begin (let () @@ -71,40 +71,40 @@ _tab21572_ _slot21589_ '#t)) - (let ((__tmp49390 + (let ((__tmp49392 (cdr _rest21585_)) - (__tmp49389 + (__tmp49391 (let () (declare (not safe)) (cons _slot21589_ _r21587_)))) (declare (not safe)) (_lp21582_ - __tmp49390 - __tmp49389))))) + __tmp49392 + __tmp49391))))) (reverse _r21587_)))))) (gx#stx-for-each (lambda (_slot21576_) - (let ((__tmp49392 (gx#stx-e _slot21576_))) + (let ((__tmp49394 (gx#stx-e _slot21576_))) (declare (not safe)) - (table-set! _tab21572_ __tmp49392 '#t))) + (table-set! _tab21572_ __tmp49394 '#t))) _slots21570_) (if (let () (declare (not safe)) (not _super21568_)) '() (if (gx#identifier? _super21568_) - (let ((__tmp49394 + (let ((__tmp49396 (let () (declare (not safe)) (_get-mixin-slots-r19419_ _super21568_)))) (declare (not safe)) - (_dedup21574_ __tmp49394)) - (let ((__tmp49393 + (_dedup21574_ __tmp49396)) + (let ((__tmp49395 (concatenate (map _get-mixin-slots-r19419_ _super21568_)))) (declare (not safe)) - (_dedup21574_ __tmp49393))))))) + (_dedup21574_ __tmp49395))))))) (_get-mixin-slots-r19419_ (lambda (_type-id21562_) (let ((_info21565_ @@ -224,30 +224,30 @@ (_g1959621534_ (lambda (_g1959819618_) (if (gx#stx-pair/null? _g1959819618_) - (let ((_g49395_ + (let ((_g49397_ (gx#syntax-split-splice _g1959819618_ '0))) (begin - (let ((_g49396_ + (let ((_g49398_ (let () (declare (not safe)) - (if (##values? _g49395_) - (##vector-length _g49395_) + (if (##values? _g49397_) + (##vector-length _g49397_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49396_ 2))) + (##fx= _g49398_ 2))) (error "Context expects 2 values" - _g49396_))) + _g49398_))) (let ((_target1960019621_ (let () (declare (not safe)) - (##vector-ref _g49395_ 0))) + (##vector-ref _g49397_ 0))) (_tl1960219624_ (let () (declare (not safe)) - (##vector-ref _g49395_ 1)))) + (##vector-ref _g49397_ 1)))) (if (gx#stx-null? _tl1960219624_) (letrec ((_loop1960319627_ (lambda (_hd1960119631_ @@ -265,12 +265,12 @@ (let () (declare (not safe)) (##cdr _e1960419637_)))) - (let ((__tmp49669 + (let ((__tmp49671 (let () (declare (not safe)) (cons _lp-hd1960519641_ _slot1960719634_)))) (declare (not safe)) - (_loop1960319627_ _lp-tl1960619644_ __tmp49669)))) + (_loop1960319627_ _lp-tl1960619644_ __tmp49671)))) (let ((_slot1960819647_ (reverse _slot1960719634_))) ((lambda (_L19651_) (let () @@ -283,34 +283,34 @@ (_g1966721525_ (lambda (_g1966919689_) (if (gx#stx-pair/null? _g1966919689_) - (let ((_g49397_ + (let ((_g49399_ (gx#syntax-split-splice _g1966919689_ '0))) (begin - (let ((_g49398_ + (let ((_g49400_ (let () (declare (not safe)) - (if (##values? _g49397_) + (if (##values? _g49399_) (##vector-length - _g49397_) + _g49399_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49398_ 2))) + (##fx= _g49400_ 2))) (error "Context expects 2 values" - _g49398_))) + _g49400_))) (let ((_target1967119692_ (let () (declare (not safe)) (##vector-ref - _g49397_ + _g49399_ 0))) (_tl1967319695_ (let () (declare (not safe)) (##vector-ref - _g49397_ + _g49399_ 1)))) (if (gx#stx-null? _tl1967319695_) @@ -328,7 +328,7 @@ (let () (declare (not safe)) (##cdr _e1967519708_)))) - (let ((__tmp49667 + (let ((__tmp49669 (let () (declare (not safe)) (cons _lp-hd1967619712_ @@ -336,7 +336,7 @@ (declare (not safe)) (_loop1967419698_ _lp-tl1967719715_ - __tmp49667)))) + __tmp49669)))) (let ((_getf1967919718_ (reverse _getf1967819705_))) ((lambda (_L19722_) (let () @@ -350,36 +350,36 @@ (lambda (_g1974019760_) (if (gx#stx-pair/null? _g1974019760_) - (let ((_g49399_ + (let ((_g49401_ (gx#syntax-split-splice _g1974019760_ '0))) (begin - (let ((_g49400_ + (let ((_g49402_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49399_) - (##vector-length _g49399_) + _g49401_) + (##vector-length _g49401_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49400_ 2))) - (error "Context expects 2 values" _g49400_))) + (if (not (let () (declare (not safe)) (##fx= _g49402_ 2))) + (error "Context expects 2 values" _g49402_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1974219763_ (let () (declare (not safe)) (##vector-ref - _g49399_ + _g49401_ 0))) (_tl1974419766_ (let () (declare (not safe)) (##vector-ref - _g49399_ + _g49401_ 1)))) (if (gx#stx-null? _tl1974419766_) @@ -397,7 +397,7 @@ (let () (declare (not safe)) (##cdr _e1974619779_)))) - (let ((__tmp49665 + (let ((__tmp49667 (let () (declare (not safe)) (cons _lp-hd1974719783_ @@ -405,7 +405,7 @@ (declare (not safe)) (_loop1974519769_ _lp-tl1974819786_ - __tmp49665)))) + __tmp49667)))) (let ((_setf1975019789_ (reverse _setf1974919776_))) ((lambda (_L19793_) @@ -426,28 +426,28 @@ (lambda (_g1981419834_) (if (gx#stx-pair/null? _g1981419834_) - (let ((_g49401_ + (let ((_g49403_ (gx#syntax-split-splice _g1981419834_ '0))) (begin - (let ((_g49402_ + (let ((_g49404_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g49401_) - (##vector-length _g49401_) + (if (##values? _g49403_) + (##vector-length _g49403_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49402_ 2))) - (error "Context expects 2 values" _g49402_))) + (if (not (let () (declare (not safe)) (##fx= _g49404_ 2))) + (error "Context expects 2 values" _g49404_))) (let ((_target1981619837_ (let () (declare (not safe)) - (##vector-ref _g49401_ 0))) + (##vector-ref _g49403_ 0))) (_tl1981819840_ (let () (declare (not safe)) - (##vector-ref _g49401_ 1)))) + (##vector-ref _g49403_ 1)))) (if (gx#stx-null? _tl1981819840_) (letrec ((_loop1981919843_ (lambda (_hd1981719847_ @@ -463,7 +463,7 @@ (let () (declare (not safe)) (##cdr _e1982019853_)))) - (let ((__tmp49664 + (let ((__tmp49666 (let () (declare (not safe)) (cons _lp-hd1982119857_ @@ -471,7 +471,7 @@ (declare (not safe)) (_loop1981919843_ _lp-tl1982219860_ - __tmp49664)))) + __tmp49666)))) (let ((_mixin-slot1982419863_ (reverse _mixin-slot1982319850_))) ((lambda (_L19867_) @@ -486,28 +486,28 @@ (lambda (_g1988619906_) (if (gx#stx-pair/null? _g1988619906_) - (let ((_g49403_ + (let ((_g49405_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1988619906_ '0))) (begin - (let ((_g49404_ + (let ((_g49406_ (let () (declare (not safe)) - (if (##values? _g49403_) - (##vector-length _g49403_) + (if (##values? _g49405_) + (##vector-length _g49405_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49404_ 2))) - (error "Context expects 2 values" _g49404_))) + (##fx= _g49406_ 2))) + (error "Context expects 2 values" _g49406_))) (let ((_target1988819909_ (let () (declare (not safe)) - (##vector-ref _g49403_ 0))) + (##vector-ref _g49405_ 0))) (_tl1989019912_ (let () (declare (not safe)) - (##vector-ref _g49403_ 1)))) + (##vector-ref _g49405_ 1)))) (if (gx#stx-null? _tl1989019912_) (letrec ((_loop1989119915_ (lambda (_hd1988919919_ @@ -524,7 +524,7 @@ (let () (declare (not safe)) (##cdr _e1989219925_)))) - (let ((__tmp49662 + (let ((__tmp49664 (let () (declare (not safe)) @@ -532,7 +532,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _mixin-getf1989519922_)))) (declare (not safe)) - (_loop1989119915_ _lp-tl1989419932_ __tmp49662)))) + (_loop1989119915_ _lp-tl1989419932_ __tmp49664)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_mixin-getf1989619935_ (reverse _mixin-getf1989519922_))) @@ -548,28 +548,28 @@ (_g1995521494_ (lambda (_g1995719977_) (if (gx#stx-pair/null? _g1995719977_) - (let ((_g49405_ + (let ((_g49407_ (gx#syntax-split-splice _g1995719977_ '0))) (begin - (let ((_g49406_ + (let ((_g49408_ (let () (declare (not safe)) - (if (##values? _g49405_) - (##vector-length _g49405_) + (if (##values? _g49407_) + (##vector-length _g49407_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49406_ 2))) + (##fx= _g49408_ 2))) (error "Context expects 2 values" - _g49406_))) + _g49408_))) (let ((_target1995919980_ (let () (declare (not safe)) - (##vector-ref _g49405_ 0))) + (##vector-ref _g49407_ 0))) (_tl1996119983_ (let () (declare (not safe)) - (##vector-ref _g49405_ 1)))) + (##vector-ref _g49407_ 1)))) (if (gx#stx-null? _tl1996119983_) (letrec ((_loop1996219986_ (lambda (_hd1996019990_ @@ -586,12 +586,12 @@ (##car _e1996319996_))) (_lp-tl1996520003_ (let () (declare (not safe)) (##cdr _e1996319996_)))) - (let ((__tmp49660 + (let ((__tmp49662 (let () (declare (not safe)) (cons _lp-hd1996420000_ _mixin-setf1996619993_)))) (declare (not safe)) - (_loop1996219986_ _lp-tl1996520003_ __tmp49660)))) + (_loop1996219986_ _lp-tl1996520003_ __tmp49662)))) (let ((_mixin-setf1996720006_ (reverse _mixin-setf1996619993_))) ((lambda (_L20010_) (let () @@ -604,30 +604,30 @@ (_g2002621477_ (lambda (_g2002820048_) (if (gx#stx-pair/null? _g2002820048_) - (let ((_g49407_ + (let ((_g49409_ (gx#syntax-split-splice _g2002820048_ '0))) (begin - (let ((_g49408_ + (let ((_g49410_ (let () (declare (not safe)) - (if (##values? _g49407_) - (##vector-length _g49407_) + (if (##values? _g49409_) + (##vector-length _g49409_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49408_ 2))) + (##fx= _g49410_ 2))) (error "Context expects 2 values" - _g49408_))) + _g49410_))) (let ((_target2003020051_ (let () (declare (not safe)) - (##vector-ref _g49407_ 0))) + (##vector-ref _g49409_ 0))) (_tl2003220054_ (let () (declare (not safe)) - (##vector-ref _g49407_ 1)))) + (##vector-ref _g49409_ 1)))) (if (gx#stx-null? _tl2003220054_) (letrec ((_loop2003320057_ (lambda (_hd2003120061_ @@ -643,13 +643,13 @@ (let () (declare (not safe)) (##cdr _e2003420067_)))) - (let ((__tmp49657 + (let ((__tmp49659 (let () (declare (not safe)) (cons _lp-hd2003520071_ _ugetf2003720064_)))) (declare (not safe)) - (_loop2003320057_ _lp-tl2003620074_ __tmp49657)))) + (_loop2003320057_ _lp-tl2003620074_ __tmp49659)))) (let ((_ugetf2003820077_ (reverse _ugetf2003720064_))) ((lambda (_L20081_) (let () @@ -662,39 +662,39 @@ (_g2009721460_ (lambda (_g2009920119_) (if (gx#stx-pair/null? _g2009920119_) - (let ((_g49409_ + (let ((_g49411_ (gx#syntax-split-splice _g2009920119_ '0))) (begin - (let ((_g49410_ + (let ((_g49412_ (let () (declare (not safe)) (if (##values? - _g49409_) + _g49411_) (##vector-length - _g49409_) + _g49411_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49410_ + (##fx= _g49412_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g49410_))) + _g49412_))) (let ((_target2010120122_ (let () (declare (not safe)) (##vector-ref - _g49409_ + _g49411_ 0))) (_tl2010320125_ (let () (declare (not safe)) (##vector-ref - _g49409_ + _g49411_ 1)))) (if (gx#stx-null? _tl2010320125_) @@ -713,7 +713,7 @@ (let () (declare (not safe)) (##cdr _e2010520138_)))) - (let ((__tmp49654 + (let ((__tmp49656 (let () (declare (not safe)) (cons _lp-hd2010620142_ @@ -721,7 +721,7 @@ (declare (not safe)) (_loop2010420128_ _lp-tl2010720145_ - __tmp49654)))) + __tmp49656)))) (let ((_usetf2010920148_ (reverse _usetf2010820135_))) ((lambda (_L20152_) @@ -736,25 +736,25 @@ (lambda (_g2017020190_) (if (gx#stx-pair/null? _g2017020190_) - (let ((_g49411_ + (let ((_g49413_ (gx#syntax-split-splice _g2017020190_ '0))) (begin - (let ((_g49412_ + (let ((_g49414_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g49411_) - (##vector-length _g49411_) + (if (##values? _g49413_) + (##vector-length _g49413_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49412_ 2))) - (error "Context expects 2 values" _g49412_))) + (if (not (let () (declare (not safe)) (##fx= _g49414_ 2))) + (error "Context expects 2 values" _g49414_))) (let ((_target2017220193_ - (let () (declare (not safe)) (##vector-ref _g49411_ 0))) + (let () (declare (not safe)) (##vector-ref _g49413_ 0))) (_tl2017420196_ - (let () (declare (not safe)) (##vector-ref _g49411_ 1)))) + (let () (declare (not safe)) (##vector-ref _g49413_ 1)))) (if (gx#stx-null? _tl2017420196_) (letrec ((_loop2017520199_ (lambda (_hd2017320203_ _mixin-ugetf2017920206_) @@ -769,7 +769,7 @@ (let () (declare (not safe)) (##cdr _e2017620209_)))) - (let ((__tmp49651 + (let ((__tmp49653 (let () (declare (not safe)) (cons _lp-hd2017720213_ @@ -777,7 +777,7 @@ (declare (not safe)) (_loop2017520199_ _lp-tl2017820216_ - __tmp49651)))) + __tmp49653)))) (let ((_mixin-ugetf2018020219_ (reverse _mixin-ugetf2017920206_))) ((lambda (_L20223_) @@ -792,30 +792,30 @@ (lambda (_g2024120261_) (if (gx#stx-pair/null? _g2024120261_) - (let ((_g49413_ + (let ((_g49415_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2024120261_ '0))) (begin - (let ((_g49414_ + (let ((_g49416_ (let () (declare (not safe)) - (if (##values? _g49413_) - (##vector-length _g49413_) + (if (##values? _g49415_) + (##vector-length _g49415_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49414_ 2))) - (error "Context expects 2 values" _g49414_))) + (##fx= _g49416_ 2))) + (error "Context expects 2 values" _g49416_))) (let ((_target2024320264_ (let () (declare (not safe)) - (##vector-ref _g49413_ 0))) + (##vector-ref _g49415_ 0))) (_tl2024520267_ (let () (declare (not safe)) - (##vector-ref _g49413_ 1)))) + (##vector-ref _g49415_ 1)))) (if (gx#stx-null? _tl2024520267_) (letrec ((_loop2024620270_ (lambda (_hd2024420274_ @@ -832,7 +832,7 @@ (let () (declare (not safe)) (##cdr _e2024720280_)))) - (let ((__tmp49648 + (let ((__tmp49650 (let () (declare (not safe)) (cons _lp-hd2024820284_ @@ -840,7 +840,7 @@ (declare (not safe)) (_loop2024620270_ _lp-tl2024920287_ - __tmp49648)))) + __tmp49650)))) (let ((_mixin-usetf2025120290_ (reverse _mixin-usetf2025020277_))) ((lambda (_L20294_) @@ -849,97 +849,97 @@ (if (gx#stx-null? _slots19411_) '() - (let ((__tmp49415 + (let ((__tmp49417 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49416 + (let ((__tmp49418 (begin (gx#syntax-check-splice-targets _L19793_ _L19722_ _L19651_) - (let ((__tmp49417 + (let ((__tmp49419 (lambda (_g2031020315_ _g2031120318_ _g2031220320_ _g2031320322_) - (let ((__tmp49418 - (let ((__tmp49419 - (let ((__tmp49420 + (let ((__tmp49420 + (let ((__tmp49421 + (let ((__tmp49422 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _g2031020315_ '())))) (declare (not safe)) - (cons _g2031120318_ __tmp49420)))) + (cons _g2031120318_ __tmp49422)))) (declare (not safe)) - (cons _g2031220320_ __tmp49419)))) + (cons _g2031220320_ __tmp49421)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49418 + (cons __tmp49420 _g2031320322_))))) (declare (not safe)) - (foldr* __tmp49417 + (foldr* __tmp49419 '() _L19793_ _L19722_ _L19651_))))) (declare (not safe)) - (cons __tmp49416 '())))) + (cons __tmp49418 '())))) (declare (not safe)) - (cons 'slots: __tmp49415)))) + (cons 'slots: __tmp49417)))) (_type-mixin-slots20342_ (if (gx#stx-null? _mixin-slots19810_) '() - (let ((__tmp49421 - (let ((__tmp49422 + (let ((__tmp49423 + (let ((__tmp49424 (begin (gx#syntax-check-splice-targets _L20010_ _L19939_ _L19867_) - (let ((__tmp49423 + (let ((__tmp49425 (lambda (_g2032720332_ _g2032820335_ _g2032920337_ _g2033020339_) - (let ((__tmp49424 - (let ((__tmp49425 - (let ((__tmp49426 + (let ((__tmp49426 + (let ((__tmp49427 + (let ((__tmp49428 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _g2032720332_ '())))) (declare (not safe)) - (cons _g2032820335_ __tmp49426)))) + (cons _g2032820335_ __tmp49428)))) (declare (not safe)) - (cons _g2032920337_ __tmp49425)))) + (cons _g2032920337_ __tmp49427)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49424 + (cons __tmp49426 _g2033020339_))))) (declare (not safe)) - (foldr* __tmp49423 + (foldr* __tmp49425 '() _L20010_ _L19939_ _L19867_))))) (declare (not safe)) - (cons __tmp49422 '())))) + (cons __tmp49424 '())))) (declare (not safe)) - (cons 'mixin: __tmp49421)))) + (cons 'mixin: __tmp49423)))) (_type-name20349_ - (let ((__tmp49427 - (let ((__tmp49428 + (let ((__tmp49429 + (let ((__tmp49430 (let ((_$e20345_ (gx#stx-getq 'name: _body19412_))) (if _$e20345_ _$e20345_ _id19409_)))) (declare (not safe)) - (cons __tmp49428 '())))) + (cons __tmp49430 '())))) (declare (not safe)) - (cons 'name: __tmp49427))) + (cons 'name: __tmp49429))) (_type-id20356_ - (let ((__tmp49429 - (let ((__tmp49430 + (let ((__tmp49431 + (let ((__tmp49432 (let ((_$e20352_ (gx#stx-getq 'id: _body19412_))) (if _$e20352_ @@ -949,33 +949,33 @@ (|gerbil/core$$[1]#make-class-type-id| _L19472_)))))) (declare (not safe)) - (cons __tmp49430 '())))) + (cons __tmp49432 '())))) (declare (not safe)) - (cons 'id: __tmp49429))) + (cons 'id: __tmp49431))) (_type-constructor20371_ (let ((_$e20367_ (let ((_e2035820360_ (gx#stx-getq 'constructor: _body19412_))) (if _e2035820360_ (let* ((_e20364_ _e2035820360_) - (__tmp49431 + (__tmp49433 (let () (declare (not safe)) (cons _e20364_ '())))) (declare (not safe)) - (cons 'constructor: __tmp49431)) + (cons 'constructor: __tmp49433)) '#f)))) (if _$e20367_ _$e20367_ '()))) (_properties20405_ (let* ((_properties20374_ (if (gx#stx-e (gx#stx-getq 'transparent: _body19412_)) - (let ((__tmp49432 + (let ((__tmp49434 (let () (declare (not safe)) (cons 'transparent: '#t)))) (declare (not safe)) - (cons __tmp49432 '())) + (cons __tmp49434 '())) '())) (_properties20387_ (let ((_$e20377_ @@ -988,12 +988,12 @@ (eq? _print20381_ '#t)) _slots19411_ _print20381_)) - (__tmp49433 + (__tmp49435 (let () (declare (not safe)) (cons 'print: _print20384_)))) (declare (not safe)) - (cons __tmp49433 _properties20374_))) + (cons __tmp49435 _properties20374_))) _$e20377_) _properties20374_))) (_properties20400_ @@ -1007,12 +1007,12 @@ (eq? _equal20394_ '#t)) _slots19411_ _equal20394_)) - (__tmp49434 + (__tmp49436 (let () (declare (not safe)) (cons 'equal: _equal20397_)))) (declare (not safe)) - (cons __tmp49434 _properties20387_))) + (cons __tmp49436 _properties20387_))) _$e20390_) _properties20387_)))) _properties20400_)) @@ -1029,13 +1029,13 @@ (lambda (_g2040920420_) ((lambda (_L20423_) (let () - (let ((__tmp49435 - (let ((__tmp49436 - (let ((__tmp49438 + (let ((__tmp49437 + (let ((__tmp49438 + (let ((__tmp49440 (gx#datum->syntax '#f 'quote)) - (__tmp49437 + (__tmp49439 (let () (declare (not safe)) @@ -1044,23 +1044,23 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49438 - __tmp49437)))) + (cons __tmp49440 + __tmp49439)))) (declare (not safe)) - (cons __tmp49436 '())))) + (cons __tmp49438 '())))) (declare (not safe)) - (cons 'properties: __tmp49435)))) + (cons 'properties: __tmp49437)))) _g2040920420_)))) (declare (not safe)) (_g2040720442_ _properties20405_)))) (_final?20449_ (gx#stx-e (gx#stx-getq 'final: _body19412_))) (_type-final20452_ - (let ((__tmp49439 + (let ((__tmp49441 (let () (declare (not safe)) (cons _final?20449_ '())))) (declare (not safe)) - (cons 'final: __tmp49439))) + (cons 'final: __tmp49441))) (_g2045520472_ (lambda (_g2045620468_) (gx#raise-syntax-error @@ -1070,27 +1070,27 @@ (_g2045421422_ (lambda (_g2045620476_) (if (gx#stx-pair/null? _g2045620476_) - (let ((_g49440_ + (let ((_g49442_ (gx#syntax-split-splice _g2045620476_ '0))) (begin - (let ((_g49441_ + (let ((_g49443_ (let () (declare (not safe)) - (if (##values? _g49440_) - (##vector-length _g49440_) + (if (##values? _g49442_) + (##vector-length _g49442_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49441_ 2))) - (error "Context expects 2 values" _g49441_))) + (##fx= _g49443_ 2))) + (error "Context expects 2 values" _g49443_))) (let ((_target2045820479_ (let () (declare (not safe)) - (##vector-ref _g49440_ 0))) + (##vector-ref _g49442_ 0))) (_tl2046020482_ (let () (declare (not safe)) - (##vector-ref _g49440_ 1)))) + (##vector-ref _g49442_ 1)))) (if (gx#stx-null? _tl2046020482_) (letrec ((_loop2046120485_ (lambda (_hd2045920489_ @@ -1109,14 +1109,14 @@ (declare (not safe)) (##cdr _e2046220495_)))) - (let ((__tmp49641 + (let ((__tmp49643 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _lp-hd2046320499_ _type-body2046520492_)))) (declare (not safe)) - (_loop2046120485_ _lp-tl2046420502_ __tmp49641)))) + (_loop2046120485_ _lp-tl2046420502_ __tmp49643)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_type-body2046620505_ (reverse _type-body2046520492_))) @@ -1289,443 +1289,443 @@ ((lambda (_L20962_) (let () (let () - (let ((__tmp49442 + (let ((__tmp49444 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49445 (gx#datum->syntax '#f 'begin)) - (__tmp49443 - (let ((__tmp49444 + (let ((__tmp49447 (gx#datum->syntax '#f 'begin)) + (__tmp49445 + (let ((__tmp49446 (let () (declare (not safe)) (cons _L20962_ '())))) (declare (not safe)) - (cons _L20542_ __tmp49444)))) + (cons _L20542_ __tmp49446)))) (declare (not safe)) - (cons __tmp49445 __tmp49443)))) + (cons __tmp49447 __tmp49445)))) (declare (not safe)) - (_wrap19415_ __tmp49442))))) + (_wrap19415_ __tmp49444))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2094820959_))) - (__tmp49446 - (let ((__tmp49447 - (let ((__tmp49480 + (__tmp49448 + (let ((__tmp49449 + (let ((__tmp49482 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'defsyntax)) - (__tmp49448 - (let ((__tmp49449 - (let ((__tmp49450 - (let ((__tmp49479 + (__tmp49450 + (let ((__tmp49451 + (let ((__tmp49452 + (let ((__tmp49481 (gx#datum->syntax '#f 'make-class-type-info)) - (__tmp49451 - (let ((__tmp49452 - (let ((__tmp49453 - (let ((__tmp49454 + (__tmp49453 + (let ((__tmp49454 + (let ((__tmp49455 + (let ((__tmp49456 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49455 - (let ((__tmp49456 - (let ((__tmp49457 - (let ((__tmp49458 - (let ((__tmp49459 - (let ((__tmp49460 + (let ((__tmp49457 + (let ((__tmp49458 + (let ((__tmp49459 + (let ((__tmp49460 + (let ((__tmp49461 + (let ((__tmp49462 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49461 - (let ((__tmp49462 - (let ((__tmp49463 - (let ((__tmp49464 - (let ((__tmp49465 - (let ((__tmp49466 + (let ((__tmp49463 + (let ((__tmp49464 + (let ((__tmp49465 + (let ((__tmp49466 + (let ((__tmp49467 + (let ((__tmp49468 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49467 - (let ((__tmp49468 - (let ((__tmp49469 - (let ((__tmp49470 - (let ((__tmp49471 + (let ((__tmp49469 + (let ((__tmp49470 + (let ((__tmp49471 + (let ((__tmp49472 + (let ((__tmp49473 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49472 - (let ((__tmp49473 - (let ((__tmp49474 - (let ((__tmp49475 - (let ((__tmp49476 - (let ((__tmp49477 + (let ((__tmp49474 + (let ((__tmp49475 + (let ((__tmp49476 + (let ((__tmp49477 + (let ((__tmp49478 + (let ((__tmp49479 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49478 + (let ((__tmp49480 (let () (declare (not safe)) (cons _L20934_ '())))) (declare (not safe)) - (cons 'unchecked-mutators: __tmp49478)))) + (cons 'unchecked-mutators: __tmp49480)))) (declare (not safe)) - (cons _L20906_ __tmp49477)))) + (cons _L20906_ __tmp49479)))) (declare (not safe)) - (cons 'unchecked-accessors: __tmp49476)))) + (cons 'unchecked-accessors: __tmp49478)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L20878_ __tmp49475)))) + (cons _L20878_ __tmp49477)))) (declare (not safe)) - (cons 'mutators: __tmp49474)))) + (cons 'mutators: __tmp49476)))) (declare (not safe)) - (cons _L20850_ __tmp49473)))) + (cons _L20850_ __tmp49475)))) (declare (not safe)) - (cons 'accessors: __tmp49472)))) + (cons 'accessors: __tmp49474)))) (declare (not safe)) - (cons _L20822_ __tmp49471)))) + (cons _L20822_ __tmp49473)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'predicate: - __tmp49470)))) + __tmp49472)))) (declare (not safe)) - (cons _L20794_ __tmp49469)))) + (cons _L20794_ __tmp49471)))) (declare (not safe)) - (cons 'constructor: __tmp49468)))) + (cons 'constructor: __tmp49470)))) (declare (not safe)) - (cons _L20766_ __tmp49467)))) + (cons _L20766_ __tmp49469)))) (declare (not safe)) - (cons 'type-descriptor: __tmp49466)))) + (cons 'type-descriptor: __tmp49468)))) (declare (not safe)) - (cons _L20738_ __tmp49465)))) + (cons _L20738_ __tmp49467)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'constructor-method: - __tmp49464)))) + __tmp49466)))) (declare (not safe)) - (cons _L20710_ __tmp49463)))) + (cons _L20710_ __tmp49465)))) (declare (not safe)) - (cons 'final?: __tmp49462)))) + (cons 'final?: __tmp49464)))) (declare (not safe)) - (cons _L20682_ __tmp49461)))) + (cons _L20682_ __tmp49463)))) (declare (not safe)) - (cons 'struct?: __tmp49460)))) + (cons 'struct?: __tmp49462)))) (declare (not safe)) - (cons _L20626_ __tmp49459)))) + (cons _L20626_ __tmp49461)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'super: __tmp49458)))) + (cons 'super: __tmp49460)))) (declare (not safe)) - (cons _L20654_ __tmp49457)))) + (cons _L20654_ __tmp49459)))) (declare (not safe)) - (cons 'slots: __tmp49456)))) + (cons 'slots: __tmp49458)))) (declare (not safe)) - (cons _L20598_ __tmp49455)))) + (cons _L20598_ __tmp49457)))) (declare (not safe)) - (cons 'name: __tmp49454)))) + (cons 'name: __tmp49456)))) (declare (not safe)) - (cons _L20570_ __tmp49453)))) + (cons _L20570_ __tmp49455)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'id: __tmp49452)))) + (cons 'id: __tmp49454)))) (declare (not safe)) - (cons __tmp49479 __tmp49451)))) + (cons __tmp49481 __tmp49453)))) (declare (not safe)) - (cons __tmp49450 '())))) + (cons __tmp49452 '())))) (declare (not safe)) - (cons _L19472_ __tmp49449)))) + (cons _L19472_ __tmp49451)))) (declare (not safe)) - (cons __tmp49480 __tmp49448)))) + (cons __tmp49482 __tmp49450)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19415_ __tmp49447)))) + (_wrap19415_ __tmp49449)))) (declare (not safe)) - (_g2094620977_ __tmp49446)))) + (_g2094620977_ __tmp49448)))) _g2092020931_))) - (__tmp49481 - (let ((__tmp49508 + (__tmp49483 + (let ((__tmp49510 (gx#datum->syntax '#f '@list)) - (__tmp49482 + (__tmp49484 (begin (gx#syntax-check-splice-targets _L20152_ _L19651_) - (let ((__tmp49496 + (let ((__tmp49498 (lambda (_g2098420991_ _g2098520994_ _g2098620996_) - (let ((__tmp49497 - (let ((__tmp49507 + (let ((__tmp49499 + (let ((__tmp49509 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp49498 - (let ((__tmp49504 - (let ((__tmp49506 + (__tmp49500 + (let ((__tmp49506 + (let ((__tmp49508 (gx#datum->syntax '#f 'quote)) - (__tmp49505 + (__tmp49507 (let () (declare (not safe)) (cons _g2098520994_ '())))) (declare (not safe)) - (cons __tmp49506 __tmp49505))) - (__tmp49499 - (let ((__tmp49500 - (let ((__tmp49501 - (let ((__tmp49503 + (cons __tmp49508 __tmp49507))) + (__tmp49501 + (let ((__tmp49502 + (let ((__tmp49503 + (let ((__tmp49505 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49502 + (__tmp49504 (let () (declare (not safe)) (cons _g2098420991_ '())))) (declare (not safe)) - (cons __tmp49503 - __tmp49502)))) + (cons __tmp49505 + __tmp49504)))) (declare (not safe)) - (cons __tmp49501 '())))) + (cons __tmp49503 '())))) (declare (not safe)) - (cons ':: __tmp49500)))) + (cons ':: __tmp49502)))) (declare (not safe)) - (cons __tmp49504 __tmp49499)))) + (cons __tmp49506 __tmp49501)))) (declare (not safe)) - (cons __tmp49507 __tmp49498)))) + (cons __tmp49509 __tmp49500)))) (declare (not safe)) - (cons __tmp49497 _g2098620996_)))) + (cons __tmp49499 _g2098620996_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49483 + (__tmp49485 (begin (gx#syntax-check-splice-targets _L20294_ _L19867_) - (let ((__tmp49484 + (let ((__tmp49486 (lambda (_g2098720999_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2098821002_ _g2098921004_) - (let ((__tmp49485 - (let ((__tmp49495 (gx#datum->syntax '#f '@list)) - (__tmp49486 - (let ((__tmp49492 - (let ((__tmp49494 + (let ((__tmp49487 + (let ((__tmp49497 (gx#datum->syntax '#f '@list)) + (__tmp49488 + (let ((__tmp49494 + (let ((__tmp49496 (gx#datum->syntax '#f 'quote)) - (__tmp49493 + (__tmp49495 (let () (declare (not safe)) (cons _g2098821002_ '())))) (declare (not safe)) - (cons __tmp49494 __tmp49493))) - (__tmp49487 - (let ((__tmp49488 - (let ((__tmp49489 - (let ((__tmp49491 + (cons __tmp49496 __tmp49495))) + (__tmp49489 + (let ((__tmp49490 + (let ((__tmp49491 + (let ((__tmp49493 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax)) - (__tmp49490 + (__tmp49492 (let () (declare (not safe)) (cons _g2098720999_ '())))) (declare (not safe)) - (cons __tmp49491 __tmp49490)))) + (cons __tmp49493 __tmp49492)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49489 '())))) + (cons __tmp49491 '())))) (declare (not safe)) - (cons ':: __tmp49488)))) + (cons ':: __tmp49490)))) (declare (not safe)) - (cons __tmp49492 __tmp49487)))) + (cons __tmp49494 __tmp49489)))) (declare (not safe)) - (cons __tmp49495 __tmp49486)))) + (cons __tmp49497 __tmp49488)))) (declare (not safe)) - (cons __tmp49485 _g2098921004_))))) + (cons __tmp49487 _g2098921004_))))) (declare (not safe)) - (foldr2 __tmp49484 '() _L20294_ _L19867_))))) + (foldr2 __tmp49486 '() _L20294_ _L19867_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp49496 - __tmp49483 + (foldr2 __tmp49498 + __tmp49485 _L20152_ _L19651_))))) (declare (not safe)) - (cons __tmp49508 __tmp49482)))) + (cons __tmp49510 __tmp49484)))) (declare (not safe)) - (_g2091820981_ __tmp49481)))) + (_g2091820981_ __tmp49483)))) _g2089220903_))) - (__tmp49509 - (let ((__tmp49536 (gx#datum->syntax '#f '@list)) - (__tmp49510 + (__tmp49511 + (let ((__tmp49538 (gx#datum->syntax '#f '@list)) + (__tmp49512 (begin (gx#syntax-check-splice-targets _L20081_ _L19651_) - (let ((__tmp49524 + (let ((__tmp49526 (lambda (_g2101021017_ _g2101121020_ _g2101221022_) - (let ((__tmp49525 - (let ((__tmp49535 + (let ((__tmp49527 + (let ((__tmp49537 (gx#datum->syntax '#f '@list)) - (__tmp49526 - (let ((__tmp49532 - (let ((__tmp49534 + (__tmp49528 + (let ((__tmp49534 + (let ((__tmp49536 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49533 + (__tmp49535 (let () (declare (not safe)) (cons _g2101121020_ '())))) (declare (not safe)) - (cons __tmp49534 __tmp49533))) - (__tmp49527 - (let ((__tmp49528 - (let ((__tmp49529 - (let ((__tmp49531 + (cons __tmp49536 __tmp49535))) + (__tmp49529 + (let ((__tmp49530 + (let ((__tmp49531 + (let ((__tmp49533 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49530 + (__tmp49532 (let () (declare (not safe)) (cons _g2101021017_ '())))) (declare (not safe)) - (cons __tmp49531 __tmp49530)))) + (cons __tmp49533 __tmp49532)))) (declare (not safe)) - (cons __tmp49529 '())))) + (cons __tmp49531 '())))) (declare (not safe)) - (cons ':: __tmp49528)))) + (cons ':: __tmp49530)))) (declare (not safe)) - (cons __tmp49532 __tmp49527)))) + (cons __tmp49534 __tmp49529)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49535 __tmp49526)))) + (cons __tmp49537 __tmp49528)))) (declare (not safe)) - (cons __tmp49525 _g2101221022_)))) - (__tmp49511 + (cons __tmp49527 _g2101221022_)))) + (__tmp49513 (begin (gx#syntax-check-splice-targets _L20223_ _L19867_) - (let ((__tmp49512 + (let ((__tmp49514 (lambda (_g2101321025_ _g2101421028_ _g2101521030_) - (let ((__tmp49513 - (let ((__tmp49523 + (let ((__tmp49515 + (let ((__tmp49525 (gx#datum->syntax '#f '@list)) - (__tmp49514 - (let ((__tmp49520 + (__tmp49516 + (let ((__tmp49522 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49522 (gx#datum->syntax '#f 'quote)) - (__tmp49521 + (let ((__tmp49524 (gx#datum->syntax '#f 'quote)) + (__tmp49523 (let () (declare (not safe)) (cons _g2101421028_ '())))) (declare (not safe)) - (cons __tmp49522 __tmp49521))) - (__tmp49515 - (let ((__tmp49516 - (let ((__tmp49517 - (let ((__tmp49519 + (cons __tmp49524 __tmp49523))) + (__tmp49517 + (let ((__tmp49518 + (let ((__tmp49519 + (let ((__tmp49521 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49518 + (__tmp49520 (let () (declare (not safe)) (cons _g2101321025_ '())))) (declare (not safe)) - (cons __tmp49519 __tmp49518)))) + (cons __tmp49521 __tmp49520)))) (declare (not safe)) - (cons __tmp49517 '())))) + (cons __tmp49519 '())))) (declare (not safe)) - (cons ':: __tmp49516)))) + (cons ':: __tmp49518)))) (declare (not safe)) - (cons __tmp49520 __tmp49515)))) + (cons __tmp49522 __tmp49517)))) (declare (not safe)) - (cons __tmp49523 __tmp49514)))) + (cons __tmp49525 __tmp49516)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49513 + (cons __tmp49515 _g2101521030_))))) (declare (not safe)) - (foldr2 __tmp49512 + (foldr2 __tmp49514 '() _L20223_ _L19867_))))) (declare (not safe)) - (foldr2 __tmp49524 - __tmp49511 + (foldr2 __tmp49526 + __tmp49513 _L20081_ _L19651_))))) (declare (not safe)) - (cons __tmp49536 __tmp49510)))) + (cons __tmp49538 __tmp49512)))) (declare (not safe)) - (_g2089021007_ __tmp49509)))) + (_g2089021007_ __tmp49511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2086420875_))) - (__tmp49537 - (let ((__tmp49564 + (__tmp49539 + (let ((__tmp49566 (gx#datum->syntax '#f '@list)) - (__tmp49538 + (__tmp49540 (begin (gx#syntax-check-splice-targets _L19793_ _L19651_) - (let ((__tmp49552 + (let ((__tmp49554 (lambda (_g2103621043_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2103721046_ _g2103821048_) - (let ((__tmp49553 - (let ((__tmp49563 (gx#datum->syntax '#f '@list)) - (__tmp49554 - (let ((__tmp49560 - (let ((__tmp49562 + (let ((__tmp49555 + (let ((__tmp49565 (gx#datum->syntax '#f '@list)) + (__tmp49556 + (let ((__tmp49562 + (let ((__tmp49564 (gx#datum->syntax '#f 'quote)) - (__tmp49561 + (__tmp49563 (let () (declare (not safe)) (cons _g2103721046_ '())))) (declare (not safe)) - (cons __tmp49562 __tmp49561))) - (__tmp49555 - (let ((__tmp49556 - (let ((__tmp49557 - (let ((__tmp49559 + (cons __tmp49564 __tmp49563))) + (__tmp49557 + (let ((__tmp49558 + (let ((__tmp49559 + (let ((__tmp49561 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49558 + (__tmp49560 (let () (declare (not safe)) (cons _g2103621043_ '())))) (declare (not safe)) - (cons __tmp49559 __tmp49558)))) + (cons __tmp49561 __tmp49560)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49557 '())))) + (cons __tmp49559 '())))) (declare (not safe)) - (cons ':: __tmp49556)))) + (cons ':: __tmp49558)))) (declare (not safe)) - (cons __tmp49560 __tmp49555)))) + (cons __tmp49562 __tmp49557)))) (declare (not safe)) - (cons __tmp49563 __tmp49554)))) + (cons __tmp49565 __tmp49556)))) (declare (not safe)) - (cons __tmp49553 _g2103821048_)))) - (__tmp49539 + (cons __tmp49555 _g2103821048_)))) + (__tmp49541 (begin (gx#syntax-check-splice-targets _L20010_ _L19867_) - (let ((__tmp49540 + (let ((__tmp49542 (lambda (_g2103921051_ _g2104021054_ _g2104121056_) - (let ((__tmp49541 - (let ((__tmp49551 + (let ((__tmp49543 + (let ((__tmp49553 (gx#datum->syntax '#f '@list)) - (__tmp49542 - (let ((__tmp49548 - (let ((__tmp49550 + (__tmp49544 + (let ((__tmp49550 + (let ((__tmp49552 (gx#datum->syntax '#f 'quote)) - (__tmp49549 + (__tmp49551 (let () (declare (not safe)) @@ -1733,123 +1733,123 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp49550 __tmp49549))) + (cons __tmp49552 __tmp49551))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49543 - (let ((__tmp49544 - (let ((__tmp49545 + (__tmp49545 + (let ((__tmp49546 + (let ((__tmp49547 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49547 + (let ((__tmp49549 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49546 + (__tmp49548 (let () (declare (not safe)) (cons _g2103921051_ '())))) (declare (not safe)) - (cons __tmp49547 __tmp49546)))) + (cons __tmp49549 __tmp49548)))) (declare (not safe)) - (cons __tmp49545 '())))) + (cons __tmp49547 '())))) (declare (not safe)) - (cons ':: __tmp49544)))) + (cons ':: __tmp49546)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49548 __tmp49543)))) + (cons __tmp49550 __tmp49545)))) (declare (not safe)) - (cons __tmp49551 __tmp49542)))) + (cons __tmp49553 __tmp49544)))) (declare (not safe)) - (cons __tmp49541 _g2104121056_))))) + (cons __tmp49543 _g2104121056_))))) (declare (not safe)) - (foldr2 __tmp49540 '() _L20010_ _L19867_))))) + (foldr2 __tmp49542 '() _L20010_ _L19867_))))) (declare (not safe)) - (foldr2 __tmp49552 __tmp49539 _L19793_ _L19651_))))) + (foldr2 __tmp49554 __tmp49541 _L19793_ _L19651_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49564 __tmp49538)))) + (cons __tmp49566 __tmp49540)))) (declare (not safe)) - (_g2086221033_ __tmp49537)))) + (_g2086221033_ __tmp49539)))) _g2083620847_))) - (__tmp49565 - (let ((__tmp49592 (gx#datum->syntax '#f '@list)) - (__tmp49566 + (__tmp49567 + (let ((__tmp49594 (gx#datum->syntax '#f '@list)) + (__tmp49568 (begin (gx#syntax-check-splice-targets _L19722_ _L19651_) - (let ((__tmp49580 + (let ((__tmp49582 (lambda (_g2106221069_ _g2106321072_ _g2106421074_) - (let ((__tmp49581 - (let ((__tmp49591 + (let ((__tmp49583 + (let ((__tmp49593 (gx#datum->syntax '#f '@list)) - (__tmp49582 - (let ((__tmp49588 + (__tmp49584 + (let ((__tmp49590 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49590 (gx#datum->syntax '#f 'quote)) - (__tmp49589 + (let ((__tmp49592 (gx#datum->syntax '#f 'quote)) + (__tmp49591 (let () (declare (not safe)) (cons _g2106321072_ '())))) (declare (not safe)) - (cons __tmp49590 __tmp49589))) - (__tmp49583 - (let ((__tmp49584 - (let ((__tmp49585 - (let ((__tmp49587 + (cons __tmp49592 __tmp49591))) + (__tmp49585 + (let ((__tmp49586 + (let ((__tmp49587 + (let ((__tmp49589 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49586 + (__tmp49588 (let () (declare (not safe)) (cons _g2106221069_ '())))) (declare (not safe)) - (cons __tmp49587 __tmp49586)))) + (cons __tmp49589 __tmp49588)))) (declare (not safe)) - (cons __tmp49585 '())))) + (cons __tmp49587 '())))) (declare (not safe)) - (cons ':: __tmp49584)))) + (cons ':: __tmp49586)))) (declare (not safe)) - (cons __tmp49588 __tmp49583)))) + (cons __tmp49590 __tmp49585)))) (declare (not safe)) - (cons __tmp49591 __tmp49582)))) + (cons __tmp49593 __tmp49584)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49581 + (cons __tmp49583 _g2106421074_)))) - (__tmp49567 + (__tmp49569 (begin (gx#syntax-check-splice-targets _L19939_ _L19867_) - (let ((__tmp49568 + (let ((__tmp49570 (lambda (_g2106521077_ _g2106621080_ _g2106721082_) - (let ((__tmp49569 - (let ((__tmp49579 + (let ((__tmp49571 + (let ((__tmp49581 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp49570 - (let ((__tmp49576 - (let ((__tmp49578 + (__tmp49572 + (let ((__tmp49578 + (let ((__tmp49580 (gx#datum->syntax '#f 'quote)) - (__tmp49577 + (__tmp49579 (let () (declare (not safe)) (cons _g2106621080_ '())))) (declare (not safe)) - (cons __tmp49578 __tmp49577))) - (__tmp49571 - (let ((__tmp49572 - (let ((__tmp49573 - (let ((__tmp49575 + (cons __tmp49580 __tmp49579))) + (__tmp49573 + (let ((__tmp49574 + (let ((__tmp49575 + (let ((__tmp49577 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49574 + (__tmp49576 (let () (declare (not safe)) @@ -1857,72 +1857,72 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp49575 __tmp49574)))) + (cons __tmp49577 __tmp49576)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49573 '())))) + (cons __tmp49575 '())))) (declare (not safe)) - (cons ':: __tmp49572)))) + (cons ':: __tmp49574)))) (declare (not safe)) - (cons __tmp49576 __tmp49571)))) + (cons __tmp49578 __tmp49573)))) (declare (not safe)) - (cons __tmp49579 __tmp49570)))) + (cons __tmp49581 __tmp49572)))) (declare (not safe)) - (cons __tmp49569 _g2106721082_))))) + (cons __tmp49571 _g2106721082_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp49568 + (foldr2 __tmp49570 '() _L19939_ _L19867_))))) (declare (not safe)) - (foldr2 __tmp49580 - __tmp49567 + (foldr2 __tmp49582 + __tmp49569 _L19722_ _L19651_))))) (declare (not safe)) - (cons __tmp49592 __tmp49566)))) + (cons __tmp49594 __tmp49568)))) (declare (not safe)) - (_g2083421059_ __tmp49565)))) + (_g2083421059_ __tmp49567)))) _g2080820819_))) - (__tmp49593 - (let ((__tmp49595 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49594 + (__tmp49595 + (let ((__tmp49597 (gx#datum->syntax '#f 'quote-syntax)) + (__tmp49596 (let () (declare (not safe)) (cons _L19556_ '())))) (declare (not safe)) - (cons __tmp49595 __tmp49594)))) + (cons __tmp49597 __tmp49596)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2080621085_ __tmp49593)))) + (_g2080621085_ __tmp49595)))) _g2078020791_))) - (__tmp49596 - (let ((__tmp49598 + (__tmp49598 + (let ((__tmp49600 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49597 + (__tmp49599 (let () (declare (not safe)) (cons _L19528_ '())))) (declare (not safe)) - (cons __tmp49598 __tmp49597)))) + (cons __tmp49600 __tmp49599)))) (declare (not safe)) - (_g2077821089_ __tmp49596)))) + (_g2077821089_ __tmp49598)))) _g2075220763_))) - (__tmp49599 - (let ((__tmp49601 + (__tmp49601 + (let ((__tmp49603 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49600 + (__tmp49602 (let () (declare (not safe)) (cons _L19500_ '())))) (declare (not safe)) - (cons __tmp49601 __tmp49600)))) + (cons __tmp49603 __tmp49602)))) (declare (not safe)) - (_g2075021093_ __tmp49599)))) + (_g2075021093_ __tmp49601)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2072420735_))) - (__tmp49602 + (__tmp49604 (if (let () (declare (not safe)) (null? _type-constructor20371_)) @@ -1969,13 +1969,13 @@ _tl2110821144_) ((lambda (_L21147_) (let () - (let ((__tmp49604 + (let ((__tmp49606 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49603 + (__tmp49605 (let () (declare (not safe)) (cons _L21147_ '())))) (declare (not safe)) - (cons __tmp49604 __tmp49603)))) + (cons __tmp49606 __tmp49605)))) _hd2110921141_) (let () (declare (not safe)) (_g2110121116_ _g2110221120_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1995,7 +1995,7 @@ (_g2110021164_ _type-constructor20371_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2072221097_ __tmp49602)))) + (_g2072221097_ __tmp49604)))) _g2069620707_)))) (declare (not safe)) (_g2069421168_ _final?20449_)))) @@ -2004,30 +2004,30 @@ (_g2066621172_ _struct?19413_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2064020651_))) - (__tmp49605 - (let ((__tmp49609 + (__tmp49607 + (let ((__tmp49611 (gx#datum->syntax '#f 'quote)) - (__tmp49606 - (let ((__tmp49607 - (let ((__tmp49608 + (__tmp49608 + (let ((__tmp49609 + (let ((__tmp49610 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g2117921182_ _g2118021185_) (let () (declare (not safe)) (cons _g2117921182_ _g2118021185_))))) (declare (not safe)) - (foldr1 __tmp49608 '() _L19651_)))) + (foldr1 __tmp49610 '() _L19651_)))) (declare (not safe)) - (cons __tmp49607 '())))) + (cons __tmp49609 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49609 __tmp49606)))) + (cons __tmp49611 __tmp49608)))) (declare (not safe)) - (_g2063821176_ __tmp49605)))) + (_g2063821176_ __tmp49607)))) _g2061220623_))) - (__tmp49610 + (__tmp49612 (if _struct?19413_ (if _super19424_ (let* ((_g2119221200_ @@ -2040,33 +2040,33 @@ (lambda (_g2119321204_) ((lambda (_L21207_) (let () - (let ((__tmp49625 + (let ((__tmp49627 (gx#datum->syntax '#f '@list)) - (__tmp49621 - (let ((__tmp49622 + (__tmp49623 + (let ((__tmp49624 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49624 + (let ((__tmp49626 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49623 + (__tmp49625 (let () (declare (not safe)) (cons _L21207_ '())))) (declare (not safe)) - (cons __tmp49624 __tmp49623)))) + (cons __tmp49626 __tmp49625)))) (declare (not safe)) - (cons __tmp49622 '())))) + (cons __tmp49624 '())))) (declare (not safe)) - (cons __tmp49625 __tmp49621)))) + (cons __tmp49627 __tmp49623)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2119321204_)))) (declare (not safe)) (_g2119121219_ _super-ref19410_)) - (let ((__tmp49620 + (let ((__tmp49622 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp49620 '()))) + (cons __tmp49622 '()))) (let* ((_g2122321240_ (lambda (_g2122421236_) (gx#raise-syntax-error @@ -2077,36 +2077,36 @@ (lambda (_g2122421244_) (if (gx#stx-pair/null? _g2122421244_) - (let ((_g49611_ + (let ((_g49613_ (gx#syntax-split-splice _g2122421244_ '0))) (begin - (let ((_g49612_ + (let ((_g49614_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49611_) - (##vector-length _g49611_) + _g49613_) + (##vector-length _g49613_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49612_ 2))) - (error "Context expects 2 values" _g49612_))) + (if (not (let () (declare (not safe)) (##fx= _g49614_ 2))) + (error "Context expects 2 values" _g49614_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2122621247_ (let () (declare (not safe)) (##vector-ref - _g49611_ + _g49613_ 0))) (_tl2122821250_ (let () (declare (not safe)) (##vector-ref - _g49611_ + _g49613_ 1)))) (if (gx#stx-null? _tl2122821250_) @@ -2124,7 +2124,7 @@ (let () (declare (not safe)) (##cdr _e2123021263_)))) - (let ((__tmp49619 + (let ((__tmp49621 (let () (declare (not safe)) (cons _lp-hd2123121267_ @@ -2132,36 +2132,36 @@ (declare (not safe)) (_loop2122921253_ _lp-tl2123221270_ - __tmp49619)))) + __tmp49621)))) (let ((_super-id2123421273_ (reverse _super-id2123321260_))) ((lambda (_L21277_) (let () - (let ((__tmp49618 + (let ((__tmp49620 (gx#datum->syntax '#f '@list)) - (__tmp49613 - (let ((__tmp49614 + (__tmp49615 + (let ((__tmp49616 (lambda (_g2129121294_ _g2129221297_) - (let ((__tmp49615 - (let ((__tmp49617 + (let ((__tmp49617 + (let ((__tmp49619 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49616 + (__tmp49618 (let () (declare (not safe)) (cons _g2129121294_ '())))) (declare (not safe)) - (cons __tmp49617 __tmp49616)))) + (cons __tmp49619 __tmp49618)))) (declare (not safe)) - (cons __tmp49615 _g2129221297_))))) + (cons __tmp49617 _g2129221297_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp49614 + (foldr1 __tmp49616 '() _L21277_)))) (declare (not safe)) - (cons __tmp49618 __tmp49613)))) + (cons __tmp49620 __tmp49615)))) _super-id2123421273_)))))) (let () (declare (not safe)) @@ -2177,9 +2177,9 @@ (declare (not safe)) (_g2122221300_ _super-ref19410_))))) (declare (not safe)) - (_g2061021188_ __tmp49610)))) + (_g2061021188_ __tmp49612)))) _g2058420595_))) - (__tmp49626 + (__tmp49628 (let* ((_g2130821316_ (lambda (_g2130921312_) (gx#raise-syntax-error @@ -2190,22 +2190,22 @@ (lambda (_g2130921320_) ((lambda (_L21323_) (let () - (let ((__tmp49628 (gx#datum->syntax '#f 'quote)) - (__tmp49627 + (let ((__tmp49630 (gx#datum->syntax '#f 'quote)) + (__tmp49629 (let () (declare (not safe)) (cons _L21323_ '())))) (declare (not safe)) - (cons __tmp49628 __tmp49627)))) + (cons __tmp49630 __tmp49629)))) _g2130921320_))) - (__tmp49629 (cadr _type-name20349_))) + (__tmp49631 (cadr _type-name20349_))) (declare (not safe)) - (_g2130721335_ __tmp49629)))) + (_g2130721335_ __tmp49631)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2058221304_ __tmp49626)))) + (_g2058221304_ __tmp49628)))) _g2055620567_))) - (__tmp49630 + (__tmp49632 (let* ((_g2134321358_ (lambda (_g2134421354_) (gx#raise-syntax-error @@ -2245,16 +2245,16 @@ (if (gx#stx-null? _tl2135021386_) ((lambda (_L21389_) (let () - (let ((__tmp49632 + (let ((__tmp49634 (gx#datum->syntax '#f 'quote)) - (__tmp49631 + (__tmp49633 (let () (declare (not safe)) (cons _L21389_ '())))) (declare (not safe)) - (cons __tmp49632 __tmp49631)))) + (cons __tmp49634 __tmp49633)))) _hd2135121383_) (let () (declare (not safe)) @@ -2273,38 +2273,38 @@ (declare (not safe)) (_g2134221406_ _type-id20356_)))) (declare (not safe)) - (_g2055421339_ __tmp49630)))) + (_g2055421339_ __tmp49632)))) _g2052820539_))) - (__tmp49633 - (let ((__tmp49634 - (let ((__tmp49635 - (let ((__tmp49636 - (let ((__tmp49637 - (let ((__tmp49638 - (let ((__tmp49639 + (__tmp49635 + (let ((__tmp49636 + (let ((__tmp49637 + (let ((__tmp49638 + (let ((__tmp49639 + (let ((__tmp49640 + (let ((__tmp49641 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49640 + (let ((__tmp49642 (lambda (_g2141321416_ _g2141421419_) (let () (declare (not safe)) (cons _g2141321416_ _g2141421419_))))) (declare (not safe)) - (foldr1 __tmp49640 '() _L20509_)))) + (foldr1 __tmp49642 '() _L20509_)))) (declare (not safe)) - (cons _L19556_ __tmp49639)))) + (cons _L19556_ __tmp49641)))) (declare (not safe)) - (cons _L19528_ __tmp49638)))) + (cons _L19528_ __tmp49640)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L19584_ __tmp49637)))) + (cons _L19584_ __tmp49639)))) (declare (not safe)) - (cons _L19500_ __tmp49636)))) + (cons _L19500_ __tmp49638)))) (declare (not safe)) - (cons _L19442_ __tmp49635)))) + (cons _L19442_ __tmp49637)))) (declare (not safe)) - (_wrap19415_ __tmp49634)))) + (_wrap19415_ __tmp49636)))) (declare (not safe)) - (_g2052621410_ __tmp49633)))) + (_g2052621410_ __tmp49635)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _type-body2046620505_)))))) (let () @@ -2318,12 +2318,12 @@ (let () (declare (not safe)) (_g2045520472_ _g2045620476_))))) - (__tmp49642 - (let ((__tmp49643 - (let ((__tmp49644 - (let ((__tmp49645 - (let ((__tmp49646 - (let ((__tmp49647 + (__tmp49644 + (let ((__tmp49645 + (let ((__tmp49646 + (let ((__tmp49647 + (let ((__tmp49648 + (let ((__tmp49649 (let () (declare (not safe)) (foldr1 cons @@ -2331,24 +2331,24 @@ _type-slots20325_)))) (declare (not safe)) (foldr1 cons - __tmp49647 + __tmp49649 _type-properties20446_)))) (declare (not safe)) (foldr1 cons - __tmp49646 + __tmp49648 _type-final20452_)))) (declare (not safe)) (foldr1 cons - __tmp49645 + __tmp49647 _type-constructor20371_)))) (declare (not safe)) - (foldr1 cons __tmp49644 _type-name20349_)))) + (foldr1 cons __tmp49646 _type-name20349_)))) (declare (not safe)) - (foldr1 cons __tmp49643 _type-id20356_)))) + (foldr1 cons __tmp49645 _type-id20356_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2045421422_ - __tmp49642)))) + __tmp49644)))) _mixin-usetf2025120290_)))))) (let () (declare (not safe)) @@ -2358,13 +2358,13 @@ (_g2024020257_ _g2024120261_)))))) (let () (declare (not safe)) (_g2024020257_ _g2024120261_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49649 + (__tmp49651 (gx#stx-map (lambda (_g2142921431_) (_make-id19417_ '"&" _g2142921431_)) - (let ((__tmp49650 + (let ((__tmp49652 (lambda (_g2143421437_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2143521440_) @@ -2372,10 +2372,10 @@ (declare (not safe)) (cons _g2143421437_ _g2143521440_))))) (declare (not safe)) - (foldr1 __tmp49650 '() _L20010_))))) + (foldr1 __tmp49652 '() _L20010_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2023921426_ __tmp49649)))) + (_g2023921426_ __tmp49651)))) _mixin-ugetf2018020219_)))))) (let () (declare (not safe)) @@ -2388,13 +2388,13 @@ (declare (not safe)) (_g2016920186_ _g2017020190_))))) - (__tmp49652 + (__tmp49654 (gx#stx-map (lambda (_g2144621448_) (_make-id19417_ '"&" _g2144621448_)) - (let ((__tmp49653 + (let ((__tmp49655 (lambda (_g2145121454_ _g2145221457_) (let () @@ -2402,11 +2402,11 @@ (cons _g2145121454_ _g2145221457_))))) (declare (not safe)) - (foldr1 __tmp49653 + (foldr1 __tmp49655 '() _L19939_))))) (declare (not safe)) - (_g2016821443_ __tmp49652)))) + (_g2016821443_ __tmp49654)))) _usetf2010920148_)))))) (let () (declare (not safe)) @@ -2419,11 +2419,11 @@ (let () (declare (not safe)) (_g2009820115_ _g2009920119_))))) - (__tmp49655 + (__tmp49657 (gx#stx-map (lambda (_g2146321465_) (_make-id19417_ '"&" _g2146321465_)) - (let ((__tmp49656 + (let ((__tmp49658 (lambda (_g2146821471_ _g2146921474_) (let () @@ -2431,9 +2431,9 @@ (cons _g2146821471_ _g2146921474_))))) (declare (not safe)) - (foldr1 __tmp49656 '() _L19793_))))) + (foldr1 __tmp49658 '() _L19793_))))) (declare (not safe)) - (_g2009721460_ __tmp49655)))) + (_g2009721460_ __tmp49657)))) _ugetf2003820077_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2448,20 +2448,20 @@ (let () (declare (not safe)) (_g2002720044_ _g2002820048_))))) - (__tmp49658 + (__tmp49660 (gx#stx-map (lambda (_g2148021482_) (_make-id19417_ '"&" _g2148021482_)) - (let ((__tmp49659 + (let ((__tmp49661 (lambda (_g2148521488_ _g2148621491_) (let () (declare (not safe)) (cons _g2148521488_ _g2148621491_))))) (declare (not safe)) - (foldr1 __tmp49659 '() _L19722_))))) + (foldr1 __tmp49661 '() _L19722_))))) (declare (not safe)) - (_g2002621477_ __tmp49658)))) + (_g2002621477_ __tmp49660)))) _mixin-setf1996720006_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2475,7 +2475,7 @@ (let () (declare (not safe)) (_g1995619973_ _g1995719977_))))) - (__tmp49661 + (__tmp49663 (gx#stx-map (lambda (_g2149721499_) (_make-id19417_ @@ -2485,7 +2485,7 @@ '"-set!")) _mixin-slots19810_))) (declare (not safe)) - (_g1995521494_ __tmp49661)))) + (_g1995521494_ __tmp49663)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _mixin-getf1989619935_)))))) (let () @@ -2497,14 +2497,14 @@ (let () (declare (not safe)) (_g1988519902_ _g1988619906_))))) - (__tmp49663 + (__tmp49665 (gx#stx-map (lambda (_g2150621508_) (_make-id19417_ _name19421_ '"-" _g2150621508_)) _mixin-slots19810_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1988421503_ __tmp49663)))) + (_g1988421503_ __tmp49665)))) _mixin-slot1982419863_)))))) (let () (declare (not safe)) @@ -2529,7 +2529,7 @@ (declare (not safe)) (_g1973919756_ _g1974019760_))))) - (__tmp49666 + (__tmp49668 (gx#stx-map (lambda (_g2151921521_) (_make-id19417_ @@ -2539,7 +2539,7 @@ '"-set!")) _slots19411_))) (declare (not safe)) - (_g1973821516_ __tmp49666)))) + (_g1973821516_ __tmp49668)))) _getf1967919718_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2554,7 +2554,7 @@ (let () (declare (not safe)) (_g1966819685_ _g1966919689_))))) - (__tmp49668 + (__tmp49670 (gx#stx-map (lambda (_g2152821530_) (_make-id19417_ @@ -2563,7 +2563,7 @@ _g2152821530_)) _slots19411_))) (declare (not safe)) - (_g1966721525_ __tmp49668)))) + (_g1966721525_ __tmp49670)))) _slot1960819647_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2582,7 +2582,7 @@ (_g1959621534_ _slots19411_)))) _g1957019581_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49670 + (__tmp49672 (if _struct?19413_ (if _super19424_ (let ((__obj47283 @@ -2609,34 +2609,34 @@ _super19424_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1956821538_ __tmp49670)))) + (_g1956821538_ __tmp49672)))) _g1954219553_))) - (__tmp49671 + (__tmp49673 (_make-id19417_ _name19421_ '"?"))) (declare (not safe)) - (_g1954021542_ __tmp49671)))) + (_g1954021542_ __tmp49673)))) _g1951419525_))) - (__tmp49672 (_make-id19417_ '"make-" _name19421_))) + (__tmp49674 (_make-id19417_ '"make-" _name19421_))) (declare (not safe)) - (_g1951221546_ __tmp49672)))) + (_g1951221546_ __tmp49674)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1948619497_))) - (__tmp49673 + (__tmp49675 (_make-id19417_ _name19421_ '"::t"))) (declare (not safe)) - (_g1948421550_ __tmp49673)))) + (_g1948421550_ __tmp49675)))) _g1945819469_)))) (declare (not safe)) (_g1945621554_ _id19409_)))) _g1942819439_))) - (__tmp49674 + (__tmp49676 (if _struct?19413_ (gx#datum->syntax '#f 'defstruct-type) (gx#datum->syntax '#f 'defclass-type)))) (declare (not safe)) - (_g1942621558_ __tmp49674))))) + (_g1942621558_ __tmp49676))))) (define |gerbil/core$$[:0:]#defstruct| (lambda (_stx21622_) (letrec ((_generate21625_ @@ -2801,12 +2801,12 @@ ___stx4424444245_)))) (let ((___kont4424744248_ (lambda (_L21922_ _L21924_) - (let ((__tmp49675 (gx#syntax->list _L21922_))) + (let ((__tmp49677 (gx#syntax->list _L21922_))) (declare (not safe)) (|gerbil/core$$[1]#generate-typedef| _stx21789_ _L21924_ - __tmp49675 + __tmp49677 _slots21878_ _body21879_ '#f)))) @@ -2968,7 +2968,7 @@ (##cdr _e2196222004_)))) (if (gx#identifier? _hd2196122008_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49726_| + |gerbil/core$$[1]#_g49728_| _hd2196122008_) (if (gx#stx-pair? _tl2196022011_) @@ -3088,166 +3088,166 @@ (let () (let () (_wrap21944_ - (let ((__tmp49680 + (let ((__tmp49682 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp49678 - (let ((__tmp49679 + (__tmp49680 + (let ((__tmp49681 (let () (declare (not safe)) (cons _L22235_ '())))) (declare (not safe)) - (cons _L22179_ __tmp49679)))) + (cons _L22179_ __tmp49681)))) (declare (not safe)) - (cons __tmp49680 __tmp49678)))))) + (cons __tmp49682 __tmp49680)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2222122232_)))) (_g2221922250_ (_wrap21944_ - (let ((__tmp49688 + (let ((__tmp49690 (gx#datum->syntax '#f 'bind-method!)) - (__tmp49681 - (let ((__tmp49682 - (let ((__tmp49685 + (__tmp49683 + (let ((__tmp49684 + (let ((__tmp49687 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49687 (gx#datum->syntax '#f 'quote)) - (__tmp49686 + (let ((__tmp49689 (gx#datum->syntax '#f 'quote)) + (__tmp49688 (let () (declare (not safe)) (cons _L22048_ '())))) (declare (not safe)) - (cons __tmp49687 __tmp49686))) - (__tmp49683 - (let ((__tmp49684 + (cons __tmp49689 __tmp49688))) + (__tmp49685 + (let ((__tmp49686 (let () (declare (not safe)) (cons _L22207_ '())))) (declare (not safe)) - (cons _L22123_ __tmp49684)))) + (cons _L22123_ __tmp49686)))) (declare (not safe)) - (cons __tmp49685 __tmp49683)))) + (cons __tmp49687 __tmp49685)))) (declare (not safe)) - (cons _L22094_ __tmp49682)))) + (cons _L22094_ __tmp49684)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49688 - __tmp49681))))))) + (cons __tmp49690 + __tmp49683))))))) _g2219322204_)))) (_g2219122254_ _rebind?22076_)))) _g2216522176_)))) (_g2216322258_ (_wrap21944_ - (let ((__tmp49725 (gx#datum->syntax '#f 'def)) - (__tmp49689 - (let ((__tmp49690 - (let ((__tmp49691 - (let ((__tmp49724 + (let ((__tmp49727 (gx#datum->syntax '#f 'def)) + (__tmp49691 + (let ((__tmp49692 + (let ((__tmp49693 + (let ((__tmp49726 (gx#datum->syntax '#f 'let-syntax)) - (__tmp49692 - (let ((__tmp49694 - (let ((__tmp49695 - (let ((__tmp49696 + (__tmp49694 + (let ((__tmp49696 + (let ((__tmp49697 + (let ((__tmp49698 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49697 - (let ((__tmp49723 + (let ((__tmp49699 + (let ((__tmp49725 (gx#datum->syntax '#f 'syntax-rules)) - (__tmp49698 - (let ((__tmp49699 - (let ((__tmp49700 - (let ((__tmp49715 - (let ((__tmp49722 + (__tmp49700 + (let ((__tmp49701 + (let ((__tmp49702 + (let ((__tmp49717 + (let ((__tmp49724 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp49716 - (let ((__tmp49721 (gx#datum->syntax '#f 'obj)) - (__tmp49717 - (let ((__tmp49720 + (__tmp49718 + (let ((__tmp49723 (gx#datum->syntax '#f 'obj)) + (__tmp49719 + (let ((__tmp49722 (gx#datum->syntax '#f 'arg)) - (__tmp49718 - (let ((__tmp49719 + (__tmp49720 + (let ((__tmp49721 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp49719 '())))) + (cons __tmp49721 '())))) (declare (not safe)) - (cons __tmp49720 __tmp49718)))) + (cons __tmp49722 __tmp49720)))) (declare (not safe)) - (cons __tmp49721 __tmp49717)))) + (cons __tmp49723 __tmp49719)))) (declare (not safe)) - (cons __tmp49722 __tmp49716))) - (__tmp49701 - (let ((__tmp49702 - (let ((__tmp49714 + (cons __tmp49724 __tmp49718))) + (__tmp49703 + (let ((__tmp49704 + (let ((__tmp49716 (gx#datum->syntax '#f 'call-next-method)) - (__tmp49703 - (let ((__tmp49704 - (let ((__tmp49713 + (__tmp49705 + (let ((__tmp49706 + (let ((__tmp49715 (gx#datum->syntax '#f 'obj)) - (__tmp49705 - (let ((__tmp49710 - (let ((__tmp49712 + (__tmp49707 + (let ((__tmp49712 + (let ((__tmp49714 (gx#datum->syntax '#f 'quote)) - (__tmp49711 + (__tmp49713 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L22048_ '())))) (declare (not safe)) - (cons __tmp49712 __tmp49711))) - (__tmp49706 - (let ((__tmp49709 (gx#datum->syntax '#f 'arg)) - (__tmp49707 - (let ((__tmp49708 (gx#datum->syntax '#f '...))) + (cons __tmp49714 __tmp49713))) + (__tmp49708 + (let ((__tmp49711 (gx#datum->syntax '#f 'arg)) + (__tmp49709 + (let ((__tmp49710 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp49708 '())))) + (cons __tmp49710 '())))) (declare (not safe)) - (cons __tmp49709 __tmp49707)))) + (cons __tmp49711 __tmp49709)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49710 - __tmp49706)))) + (cons __tmp49712 + __tmp49708)))) (declare (not safe)) - (cons __tmp49713 __tmp49705)))) + (cons __tmp49715 __tmp49707)))) (declare (not safe)) - (cons _L22094_ __tmp49704)))) + (cons _L22094_ __tmp49706)))) (declare (not safe)) - (cons __tmp49714 __tmp49703)))) + (cons __tmp49716 __tmp49705)))) (declare (not safe)) - (cons __tmp49702 '())))) + (cons __tmp49704 '())))) (declare (not safe)) - (cons __tmp49715 __tmp49701)))) + (cons __tmp49717 __tmp49703)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49700 '())))) + (cons __tmp49702 '())))) (declare (not safe)) - (cons '() __tmp49699)))) + (cons '() __tmp49701)))) (declare (not safe)) - (cons __tmp49723 __tmp49698)))) + (cons __tmp49725 __tmp49700)))) (declare (not safe)) - (cons __tmp49697 '())))) + (cons __tmp49699 '())))) (declare (not safe)) - (cons _L22151_ __tmp49696)))) + (cons _L22151_ __tmp49698)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49695 '()))) - (__tmp49693 + (cons __tmp49697 '()))) + (__tmp49695 (let () (declare (not safe)) (cons _L22046_ '())))) (declare (not safe)) - (cons __tmp49694 __tmp49693)))) + (cons __tmp49696 __tmp49695)))) (declare (not safe)) - (cons __tmp49724 __tmp49692)))) + (cons __tmp49726 __tmp49694)))) (declare (not safe)) - (cons __tmp49691 '())))) + (cons __tmp49693 '())))) (declare (not safe)) - (cons _L22123_ __tmp49690)))) + (cons _L22123_ __tmp49692)))) (declare (not safe)) - (cons __tmp49725 __tmp49689))))))) + (cons __tmp49727 __tmp49691))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2213722148_)))) (_g2213522262_ @@ -3282,17 +3282,17 @@ gerbil/core$$#class-type-info::t __obj47284 'type-descriptor))))) - (if (let ((__tmp49677 + (if (let ((__tmp49679 (gx#identifier? _L22048_))) (declare (not safe)) - (not __tmp49677)) + (not __tmp49679)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" _stx21941_ _L22048_) - (if (let ((__tmp49676 + (if (let ((__tmp49678 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -3300,7 +3300,7 @@ (gerbil/core$$#syntax-local-class-type-info?__0 _L22047_)))) (declare (not safe)) - (not __tmp49676)) + (not __tmp49678)) (gx#raise-syntax-error '#f '"bad syntax; expected type identifier" @@ -3353,17 +3353,17 @@ (let () (declare (not safe)) (string-split _id-str22912_ '#\.)))) - (let ((__tmp49729 + (let ((__tmp49731 (gx#stx-identifier _id22909_ (car _split22915_))) - (__tmp49727 - (let ((__tmp49728 + (__tmp49729 + (let ((__tmp49730 (gx#stx-identifier _id22909_ (cadr _split22915_)))) (declare (not safe)) - (cons __tmp49728 '())))) + (cons __tmp49730 '())))) (declare (not safe)) - (cons __tmp49729 __tmp49727)))))) + (cons __tmp49731 __tmp49729)))))) (let* ((___stx4426044261_ _stx22284_) (_g2229422381_ (lambda () @@ -3408,56 +3408,56 @@ _tl2284022872_) ((lambda (_L22875_ _L22877_) (let () - (let ((__tmp49742 + (let ((__tmp49744 (gx#datum->syntax '#f 'apply)) - (__tmp49730 - (let ((__tmp49741 + (__tmp49732 + (let ((__tmp49743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'call-method)) - (__tmp49731 - (let ((__tmp49732 - (let ((__tmp49738 - (let ((__tmp49740 + (__tmp49733 + (let ((__tmp49734 + (let ((__tmp49740 + (let ((__tmp49742 (gx#datum->syntax '#f 'quote)) - (__tmp49739 + (__tmp49741 (let () (declare (not safe)) (cons _L22875_ '())))) (declare (not safe)) - (cons __tmp49740 __tmp49739))) - (__tmp49733 - (let ((__tmp49734 - (let ((__tmp49737 + (cons __tmp49742 __tmp49741))) + (__tmp49735 + (let ((__tmp49736 + (let ((__tmp49739 (gx#datum->syntax '#f '@list)) - (__tmp49735 - (let ((__tmp49736 + (__tmp49737 + (let ((__tmp49738 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g2289222895_ _g2289322898_) (let () (declare (not safe)) (cons _g2289222895_ _g2289322898_))))) (declare (not safe)) - (foldr1 __tmp49736 '() _L22804_)))) + (foldr1 __tmp49738 '() _L22804_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49737 - __tmp49735)))) + (cons __tmp49739 + __tmp49737)))) (declare (not safe)) - (cons __tmp49734 '())))) + (cons __tmp49736 '())))) (declare (not safe)) - (cons __tmp49738 __tmp49733)))) + (cons __tmp49740 __tmp49735)))) (declare (not safe)) - (cons _L22877_ __tmp49732)))) + (cons _L22877_ __tmp49734)))) (declare (not safe)) - (cons __tmp49741 __tmp49731)))) + (cons __tmp49743 __tmp49733)))) (declare (not safe)) - (cons __tmp49742 __tmp49730)))) + (cons __tmp49744 __tmp49732)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2284122869_ _hd2283822859_) @@ -3503,24 +3503,24 @@ _tl2267022702_) ((lambda (_L22705_ _L22707_) (let () - (let ((__tmp49750 + (let ((__tmp49752 (gx#datum->syntax '#f 'call-method)) - (__tmp49743 - (let ((__tmp49744 + (__tmp49745 + (let ((__tmp49746 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49747 - (let ((__tmp49749 + (let ((__tmp49749 + (let ((__tmp49751 (gx#datum->syntax '#f 'quote)) - (__tmp49748 + (__tmp49750 (let () (declare (not safe)) (cons _L22705_ '())))) (declare (not safe)) - (cons __tmp49749 __tmp49748))) - (__tmp49745 - (let ((__tmp49746 + (cons __tmp49751 __tmp49750))) + (__tmp49747 + (let ((__tmp49748 (lambda (_g2272222725_ _g2272322728_) (let () @@ -3528,13 +3528,13 @@ (cons _g2272222725_ _g2272322728_))))) (declare (not safe)) - (foldr1 __tmp49746 '() _L22644_)))) + (foldr1 __tmp49748 '() _L22644_)))) (declare (not safe)) - (cons __tmp49747 __tmp49745)))) + (cons __tmp49749 __tmp49747)))) (declare (not safe)) - (cons _L22707_ __tmp49744)))) + (cons _L22707_ __tmp49746)))) (declare (not safe)) - (cons __tmp49750 __tmp49743)))) + (cons __tmp49752 __tmp49745)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2267122699_ _hd2266822689_) @@ -3545,69 +3545,69 @@ (_g2266222731_ (_split-dotted22289_ _L22646_))))) (___kont4427144272_ (lambda (_L22548_ _L22550_ _L22551_) - (let ((__tmp49763 (gx#datum->syntax '#f 'apply)) - (__tmp49751 - (let ((__tmp49762 + (let ((__tmp49765 (gx#datum->syntax '#f 'apply)) + (__tmp49753 + (let ((__tmp49764 (gx#datum->syntax '#f 'call-method)) - (__tmp49752 - (let ((__tmp49753 - (let ((__tmp49759 - (let ((__tmp49761 + (__tmp49754 + (let ((__tmp49755 + (let ((__tmp49761 + (let ((__tmp49763 (gx#datum->syntax '#f 'quote)) - (__tmp49760 + (__tmp49762 (let () (declare (not safe)) (cons _L22551_ '())))) (declare (not safe)) - (cons __tmp49761 - __tmp49760))) - (__tmp49754 - (let ((__tmp49755 - (let ((__tmp49758 + (cons __tmp49763 + __tmp49762))) + (__tmp49756 + (let ((__tmp49757 + (let ((__tmp49760 (gx#datum->syntax '#f '@list)) - (__tmp49756 - (let ((__tmp49757 + (__tmp49758 + (let ((__tmp49759 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g2257822581_ _g2257922584_) (let () (declare (not safe)) (cons _g2257822581_ _g2257922584_))))) (declare (not safe)) - (foldr1 __tmp49757 '() _L22548_)))) + (foldr1 __tmp49759 '() _L22548_)))) (declare (not safe)) - (cons __tmp49758 __tmp49756)))) + (cons __tmp49760 __tmp49758)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49755 '())))) + (cons __tmp49757 '())))) (declare (not safe)) - (cons __tmp49759 __tmp49754)))) + (cons __tmp49761 __tmp49756)))) (declare (not safe)) - (cons _L22550_ __tmp49753)))) + (cons _L22550_ __tmp49755)))) (declare (not safe)) - (cons __tmp49762 __tmp49752)))) + (cons __tmp49764 __tmp49754)))) (declare (not safe)) - (cons __tmp49763 __tmp49751)))) + (cons __tmp49765 __tmp49753)))) (___kont4427544276_ (lambda (_L22448_ _L22450_ _L22451_) - (let ((__tmp49771 (gx#datum->syntax '#f 'call-method)) - (__tmp49764 - (let ((__tmp49765 - (let ((__tmp49768 - (let ((__tmp49770 + (let ((__tmp49773 (gx#datum->syntax '#f 'call-method)) + (__tmp49766 + (let ((__tmp49767 + (let ((__tmp49770 + (let ((__tmp49772 (gx#datum->syntax '#f 'quote)) - (__tmp49769 + (__tmp49771 (let () (declare (not safe)) (cons _L22451_ '())))) (declare (not safe)) - (cons __tmp49770 __tmp49769))) - (__tmp49766 - (let ((__tmp49767 + (cons __tmp49772 __tmp49771))) + (__tmp49768 + (let ((__tmp49769 (lambda (_g2247222475_ _g2247322478_) (let () @@ -3615,13 +3615,13 @@ (cons _g2247222475_ _g2247322478_))))) (declare (not safe)) - (foldr1 __tmp49767 '() _L22448_)))) + (foldr1 __tmp49769 '() _L22448_)))) (declare (not safe)) - (cons __tmp49768 __tmp49766)))) + (cons __tmp49770 __tmp49768)))) (declare (not safe)) - (cons _L22450_ __tmp49765)))) + (cons _L22450_ __tmp49767)))) (declare (not safe)) - (cons __tmp49771 __tmp49764))))) + (cons __tmp49773 __tmp49766))))) (let* ((___match4437944380_ (lambda (_e2236022388_ _hd2235922392_ @@ -3708,7 +3708,7 @@ (if (and (gx#identifier? _L22551_) (gx#stx-ormap gx#ellipsis? - (let ((__tmp49772 + (let ((__tmp49774 (lambda (_g2257022573_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2257122576_) @@ -3716,7 +3716,7 @@ (declare (not safe)) (cons _g2257022573_ _g2257122576_))))) (declare (not safe)) - (foldr1 __tmp49772 '() _L22548_)))) + (foldr1 __tmp49774 '() _L22548_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4427144272_ _L22548_ @@ -3950,7 +3950,7 @@ _L22805_) (gx#stx-ormap gx#ellipsis? - (let ((__tmp49773 + (let ((__tmp49775 (lambda (_g2282422827_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2282522830_) @@ -3958,7 +3958,7 @@ (declare (not safe)) (cons _g2282422827_ _g2282522830_))))) (declare (not safe)) - (foldr1 __tmp49773 '() _L22804_)))) + (foldr1 __tmp49775 '() _L22804_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4426344264_ _L22802_ @@ -4343,50 +4343,50 @@ ___stx4438244383_)))) (let ((___kont4438544386_ (lambda (_L23116_ _L23118_) - (let ((__tmp49779 (gx#datum->syntax '#f 'slot-ref)) - (__tmp49774 - (let ((__tmp49775 - (let ((__tmp49776 - (let ((__tmp49778 + (let ((__tmp49781 (gx#datum->syntax '#f 'slot-ref)) + (__tmp49776 + (let ((__tmp49777 + (let ((__tmp49778 + (let ((__tmp49780 (gx#datum->syntax '#f 'quote)) - (__tmp49777 + (__tmp49779 (let () (declare (not safe)) (cons _L23116_ '())))) (declare (not safe)) - (cons __tmp49778 __tmp49777)))) + (cons __tmp49780 __tmp49779)))) (declare (not safe)) - (cons __tmp49776 '())))) + (cons __tmp49778 '())))) (declare (not safe)) - (cons _L23118_ __tmp49775)))) + (cons _L23118_ __tmp49777)))) (declare (not safe)) - (cons __tmp49779 __tmp49774)))) + (cons __tmp49781 __tmp49776)))) (___kont4438744388_ (lambda (_L23045_ _L23047_ _L23048_ _L23049_) - (let ((__tmp49780 - (let ((__tmp49783 - (let ((__tmp49784 - (let ((__tmp49785 + (let ((__tmp49782 + (let ((__tmp49785 + (let ((__tmp49786 + (let ((__tmp49787 (let () (declare (not safe)) (cons _L23047_ '())))) (declare (not safe)) - (cons _L23048_ __tmp49785)))) + (cons _L23048_ __tmp49787)))) (declare (not safe)) - (cons _L23049_ __tmp49784))) - (__tmp49781 - (let ((__tmp49782 + (cons _L23049_ __tmp49786))) + (__tmp49783 + (let ((__tmp49784 (lambda (_g2307023073_ _g2307123076_) (let () (declare (not safe)) (cons _g2307023073_ _g2307123076_))))) (declare (not safe)) - (foldr1 __tmp49782 '() _L23045_)))) + (foldr1 __tmp49784 '() _L23045_)))) (declare (not safe)) - (cons __tmp49783 __tmp49781)))) + (cons __tmp49785 __tmp49783)))) (declare (not safe)) - (cons _L23049_ __tmp49780))))) + (cons _L23049_ __tmp49782))))) (let* ((___match4443744438_ (lambda (_e2295722985_ _hd2295622989_ @@ -4573,28 +4573,28 @@ ___stx4444044441_)))) (let ((___kont4444344444_ (lambda (_L23371_ _L23373_ _L23374_) - (let ((__tmp49792 (gx#datum->syntax '#f 'slot-set!)) - (__tmp49786 - (let ((__tmp49787 - (let ((__tmp49789 - (let ((__tmp49791 + (let ((__tmp49794 (gx#datum->syntax '#f 'slot-set!)) + (__tmp49788 + (let ((__tmp49789 + (let ((__tmp49791 + (let ((__tmp49793 (gx#datum->syntax '#f 'quote)) - (__tmp49790 + (__tmp49792 (let () (declare (not safe)) (cons _L23373_ '())))) (declare (not safe)) - (cons __tmp49791 __tmp49790))) - (__tmp49788 + (cons __tmp49793 __tmp49792))) + (__tmp49790 (let () (declare (not safe)) (cons _L23371_ '())))) (declare (not safe)) - (cons __tmp49789 __tmp49788)))) + (cons __tmp49791 __tmp49790)))) (declare (not safe)) - (cons _L23374_ __tmp49787)))) + (cons _L23374_ __tmp49789)))) (declare (not safe)) - (cons __tmp49792 __tmp49786)))) + (cons __tmp49794 __tmp49788)))) (___kont4444544446_ (lambda (_L23282_ _L23284_ @@ -4602,13 +4602,13 @@ _L23286_ _L23287_ _L23288_) - (let ((__tmp49793 - (let ((__tmp49796 - (let ((__tmp49801 (gx#datum->syntax '#f '@)) - (__tmp49797 - (let ((__tmp49798 - (let ((__tmp49799 - (let ((__tmp49800 + (let ((__tmp49795 + (let ((__tmp49798 + (let ((__tmp49803 (gx#datum->syntax '#f '@)) + (__tmp49799 + (let ((__tmp49800 + (let ((__tmp49801 + (let ((__tmp49802 (lambda (_g2331523318_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2331623321_) @@ -4616,25 +4616,25 @@ (declare (not safe)) (cons _g2331523318_ _g2331623321_))))) (declare (not safe)) - (foldr1 __tmp49800 '() _L23285_)))) + (foldr1 __tmp49802 '() _L23285_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L23286_ __tmp49799)))) + (cons _L23286_ __tmp49801)))) (declare (not safe)) - (cons _L23287_ __tmp49798)))) + (cons _L23287_ __tmp49800)))) (declare (not safe)) - (cons __tmp49801 __tmp49797))) - (__tmp49794 - (let ((__tmp49795 + (cons __tmp49803 __tmp49799))) + (__tmp49796 + (let ((__tmp49797 (let () (declare (not safe)) (cons _L23282_ '())))) (declare (not safe)) - (cons _L23284_ __tmp49795)))) + (cons _L23284_ __tmp49797)))) (declare (not safe)) - (cons __tmp49796 __tmp49794)))) + (cons __tmp49798 __tmp49796)))) (declare (not safe)) - (cons _L23288_ __tmp49793))))) + (cons _L23288_ __tmp49795))))) (let* ((___match4451544516_ (lambda (_e2316823202_ _hd2316723206_ diff --git a/src/bootstrap/gerbil/core__9.scm b/src/bootstrap/gerbil/core__9.scm index 7aa509a3b..6207dc954 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]#_g49803_| + (define |gerbil/core$[1]#_g49805_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49805_| + (define |gerbil/core$[1]#_g49807_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49807_| + (define |gerbil/core$[1]#_g49809_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49811_| + (define |gerbil/core$[1]#_g49813_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49815_| + (define |gerbil/core$[1]#_g49817_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49819_| + (define |gerbil/core$[1]#_g49821_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49823_| + (define |gerbil/core$[1]#_g49825_| (##structure gx#syntax-quote::t '¯o-object-macro-set! @@ -51,7 +51,7 @@ '())) (define |gerbil/core$[:0:]#macro-object| (let ((__obj47285 - (make-object* gerbil/core$$#class-type-info::t '15))) + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! @@ -108,87 +108,87 @@ '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49802 |gerbil/core$[1]#_g49803_|)) + (let ((__tmp49804 |gerbil/core$[1]#_g49805_|)) (declare (not safe)) (##unchecked-structure-set! __obj47285 - __tmp49802 + __tmp49804 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49804 |gerbil/core$[1]#_g49805_|)) + (let ((__tmp49806 |gerbil/core$[1]#_g49807_|)) (declare (not safe)) (##unchecked-structure-set! __obj47285 - __tmp49804 + __tmp49806 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49806 |gerbil/core$[1]#_g49807_|)) + (let ((__tmp49808 |gerbil/core$[1]#_g49809_|)) (declare (not safe)) (##unchecked-structure-set! __obj47285 - __tmp49806 + __tmp49808 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49808 - (let ((__tmp49809 - (let ((__tmp49810 - |gerbil/core$[1]#_g49811_|)) + (let ((__tmp49810 + (let ((__tmp49811 + (let ((__tmp49812 + |gerbil/core$[1]#_g49813_|)) (declare (not safe)) - (cons 'macro __tmp49810)))) + (cons 'macro __tmp49812)))) (declare (not safe)) - (cons __tmp49809 '())))) + (cons __tmp49811 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47285 - __tmp49808 + __tmp49810 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49812 - (let ((__tmp49813 - (let ((__tmp49814 - |gerbil/core$[1]#_g49815_|)) + (let ((__tmp49814 + (let ((__tmp49815 + (let ((__tmp49816 + |gerbil/core$[1]#_g49817_|)) (declare (not safe)) - (cons 'macro __tmp49814)))) + (cons 'macro __tmp49816)))) (declare (not safe)) - (cons __tmp49813 '())))) + (cons __tmp49815 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47285 - __tmp49812 + __tmp49814 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49816 - (let ((__tmp49817 - (let ((__tmp49818 - |gerbil/core$[1]#_g49819_|)) + (let ((__tmp49818 + (let ((__tmp49819 + (let ((__tmp49820 + |gerbil/core$[1]#_g49821_|)) (declare (not safe)) - (cons 'macro __tmp49818)))) + (cons 'macro __tmp49820)))) (declare (not safe)) - (cons __tmp49817 '())))) + (cons __tmp49819 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47285 - __tmp49816 + __tmp49818 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49820 - (let ((__tmp49821 - (let ((__tmp49822 - |gerbil/core$[1]#_g49823_|)) + (let ((__tmp49822 + (let ((__tmp49823 + (let ((__tmp49824 + |gerbil/core$[1]#_g49825_|)) (declare (not safe)) - (cons 'macro __tmp49822)))) + (cons 'macro __tmp49824)))) (declare (not safe)) - (cons __tmp49821 '())))) + (cons __tmp49823 '())))) (declare (not safe)) (##unchecked-structure-set! __obj47285 - __tmp49820 + __tmp49822 '14 gerbil/core$$#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/expander/common__0.scm b/src/bootstrap/gerbil/expander/common__0.scm index e72e4b66a..3937e91ef 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 1707423039) + (define gerbil/expander/common::timestamp 1707565659) (begin (define gx#AST::t - (let ((__tmp129926 - (let ((__tmp129927 + (let ((__tmp129856 + (let ((__tmp129857 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp129927 '())))) + (cons __tmp129857 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil#AST::t 'syntax '#f '(e source) - __tmp129926 + __tmp129856 '#f))) (define gx#AST? (let () (declare (not safe)) (make-struct-predicate gx#AST::t))) (define gx#make-AST - (lambda _$args125631_ - (apply make-struct-instance gx#AST::t _$args125631_))) + (lambda _$args125561_ + (apply make-struct-instance gx#AST::t _$args125561_))) (define gx#AST-e (let () (declare (not safe)) (make-struct-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 ac6cd5547..658675668 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]#_g129929_| + (define |gx[1]#_g129859_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129931_| + (define |gx[1]#_g129861_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g129933_| + (define |gx[1]#_g129863_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129938_| + (define |gx[1]#_g129868_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129941_| + (define |gx[1]#_g129871_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129946_| + (define |gx[1]#_g129876_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129949_| + (define |gx[1]#_g129879_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129954_| + (define |gx[1]#_g129884_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129957_| + (define |gx[1]#_g129887_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129962_| + (define |gx[1]#_g129892_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129965_| + (define |gx[1]#_g129895_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130072_| + (define |gx[1]#_g130002_| (##structure gx#syntax-quote::t 'else @@ -86,12 +86,12 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj129925 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj129855 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129925 + __obj129855 'gerbil#AST::t '1 gerbil/core$$#class-type-info::t @@ -99,7 +99,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129925 + __obj129855 'syntax '2 gerbil/core$$#class-type-info::t @@ -107,7 +107,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129925 + __obj129855 '(e source) '4 gerbil/core$$#class-type-info::t @@ -115,7 +115,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129925 + __obj129855 '() '3 gerbil/core$$#class-type-info::t @@ -123,7 +123,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129925 + __obj129855 '#t '5 gerbil/core$$#class-type-info::t @@ -131,7 +131,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129925 + __obj129855 '#f '6 gerbil/core$$#class-type-info::t @@ -139,859 +139,859 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129925 + __obj129855 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp129928 |gx[1]#_g129929_|)) + (let ((__tmp129858 |gx[1]#_g129859_|)) (declare (not safe)) (##unchecked-structure-set! - __obj129925 - __tmp129928 + __obj129855 + __tmp129858 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp129930 |gx[1]#_g129931_|)) + (let ((__tmp129860 |gx[1]#_g129861_|)) (declare (not safe)) (##unchecked-structure-set! - __obj129925 - __tmp129930 + __obj129855 + __tmp129860 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp129932 |gx[1]#_g129933_|)) + (let ((__tmp129862 |gx[1]#_g129863_|)) (declare (not safe)) (##unchecked-structure-set! - __obj129925 - __tmp129932 + __obj129855 + __tmp129862 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp129934 - (let ((__tmp129939 - (let ((__tmp129940 |gx[1]#_g129941_|)) + (let ((__tmp129864 + (let ((__tmp129869 + (let ((__tmp129870 |gx[1]#_g129871_|)) (declare (not safe)) - (cons 'e __tmp129940))) - (__tmp129935 - (let ((__tmp129936 - (let ((__tmp129937 |gx[1]#_g129938_|)) + (cons 'e __tmp129870))) + (__tmp129865 + (let ((__tmp129866 + (let ((__tmp129867 |gx[1]#_g129868_|)) (declare (not safe)) - (cons 'source __tmp129937)))) + (cons 'source __tmp129867)))) (declare (not safe)) - (cons __tmp129936 '())))) + (cons __tmp129866 '())))) (declare (not safe)) - (cons __tmp129939 __tmp129935)))) + (cons __tmp129869 __tmp129865)))) (declare (not safe)) (##unchecked-structure-set! - __obj129925 - __tmp129934 + __obj129855 + __tmp129864 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp129942 - (let ((__tmp129947 - (let ((__tmp129948 |gx[1]#_g129949_|)) + (let ((__tmp129872 + (let ((__tmp129877 + (let ((__tmp129878 |gx[1]#_g129879_|)) (declare (not safe)) - (cons 'e __tmp129948))) - (__tmp129943 - (let ((__tmp129944 - (let ((__tmp129945 |gx[1]#_g129946_|)) + (cons 'e __tmp129878))) + (__tmp129873 + (let ((__tmp129874 + (let ((__tmp129875 |gx[1]#_g129876_|)) (declare (not safe)) - (cons 'source __tmp129945)))) + (cons 'source __tmp129875)))) (declare (not safe)) - (cons __tmp129944 '())))) + (cons __tmp129874 '())))) (declare (not safe)) - (cons __tmp129947 __tmp129943)))) + (cons __tmp129877 __tmp129873)))) (declare (not safe)) (##unchecked-structure-set! - __obj129925 - __tmp129942 + __obj129855 + __tmp129872 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp129950 - (let ((__tmp129955 - (let ((__tmp129956 |gx[1]#_g129957_|)) + (let ((__tmp129880 + (let ((__tmp129885 + (let ((__tmp129886 |gx[1]#_g129887_|)) (declare (not safe)) - (cons 'e __tmp129956))) - (__tmp129951 - (let ((__tmp129952 - (let ((__tmp129953 |gx[1]#_g129954_|)) + (cons 'e __tmp129886))) + (__tmp129881 + (let ((__tmp129882 + (let ((__tmp129883 |gx[1]#_g129884_|)) (declare (not safe)) - (cons 'source __tmp129953)))) + (cons 'source __tmp129883)))) (declare (not safe)) - (cons __tmp129952 '())))) + (cons __tmp129882 '())))) (declare (not safe)) - (cons __tmp129955 __tmp129951)))) + (cons __tmp129885 __tmp129881)))) (declare (not safe)) (##unchecked-structure-set! - __obj129925 - __tmp129950 + __obj129855 + __tmp129880 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp129958 - (let ((__tmp129963 - (let ((__tmp129964 |gx[1]#_g129965_|)) + (let ((__tmp129888 + (let ((__tmp129893 + (let ((__tmp129894 |gx[1]#_g129895_|)) (declare (not safe)) - (cons 'e __tmp129964))) - (__tmp129959 - (let ((__tmp129960 - (let ((__tmp129961 |gx[1]#_g129962_|)) + (cons 'e __tmp129894))) + (__tmp129889 + (let ((__tmp129890 + (let ((__tmp129891 |gx[1]#_g129892_|)) (declare (not safe)) - (cons 'source __tmp129961)))) + (cons 'source __tmp129891)))) (declare (not safe)) - (cons __tmp129960 '())))) + (cons __tmp129890 '())))) (declare (not safe)) - (cons __tmp129963 __tmp129959)))) + (cons __tmp129893 __tmp129889)))) (declare (not safe)) (##unchecked-structure-set! - __obj129925 - __tmp129958 + __obj129855 + __tmp129888 '14 gerbil/core$$#class-type-info::t '#f)) - __obj129925)) + __obj129855)) (define |gx[:0:]#check-procedure| - (lambda (_$stx124351_) - (let* ((_g124355124369_ - (lambda (_g124356124365_) + (lambda (_$stx124281_) + (let* ((_g124285124299_ + (lambda (_g124286124295_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124356124365_))) - (_g124354124411_ - (lambda (_g124356124373_) - (if (gx#stx-pair? _g124356124373_) - (let ((_e124360124376_ (gx#syntax-e _g124356124373_))) - (let ((_hd124359124380_ + _g124286124295_))) + (_g124284124341_ + (lambda (_g124286124303_) + (if (gx#stx-pair? _g124286124303_) + (let ((_e124290124306_ (gx#syntax-e _g124286124303_))) + (let ((_hd124289124310_ (let () (declare (not safe)) - (##car _e124360124376_))) - (_tl124358124383_ + (##car _e124290124306_))) + (_tl124288124313_ (let () (declare (not safe)) - (##cdr _e124360124376_)))) - (if (gx#stx-pair? _tl124358124383_) - (let ((_e124363124386_ - (gx#syntax-e _tl124358124383_))) - (let ((_hd124362124390_ + (##cdr _e124290124306_)))) + (if (gx#stx-pair? _tl124288124313_) + (let ((_e124293124316_ + (gx#syntax-e _tl124288124313_))) + (let ((_hd124292124320_ (let () (declare (not safe)) - (##car _e124363124386_))) - (_tl124361124393_ + (##car _e124293124316_))) + (_tl124291124323_ (let () (declare (not safe)) - (##cdr _e124363124386_)))) - (if (gx#stx-null? _tl124361124393_) - ((lambda (_L124396_) - (let ((__tmp129975 + (##cdr _e124293124316_)))) + (if (gx#stx-null? _tl124291124323_) + ((lambda (_L124326_) + (let ((__tmp129905 (gx#datum->syntax '#f 'unless)) - (__tmp129966 - (let ((__tmp129972 - (let ((__tmp129974 + (__tmp129896 + (let ((__tmp129902 + (let ((__tmp129904 (gx#datum->syntax '#f 'procedure?)) - (__tmp129973 + (__tmp129903 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L124396_ '())))) + (cons _L124326_ '())))) (declare (not safe)) - (cons __tmp129974 __tmp129973))) - (__tmp129967 - (let ((__tmp129968 - (let ((__tmp129971 (gx#datum->syntax '#f 'error)) - (__tmp129969 - (let ((__tmp129970 + (cons __tmp129904 __tmp129903))) + (__tmp129897 + (let ((__tmp129898 + (let ((__tmp129901 (gx#datum->syntax '#f 'error)) + (__tmp129899 + (let ((__tmp129900 (let () (declare (not safe)) - (cons _L124396_ '())))) + (cons _L124326_ '())))) (declare (not safe)) - (cons '"expected procedure" __tmp129970)))) + (cons '"expected procedure" __tmp129900)))) (declare (not safe)) - (cons __tmp129971 __tmp129969)))) + (cons __tmp129901 __tmp129899)))) (declare (not safe)) - (cons __tmp129968 '())))) + (cons __tmp129898 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129972 - __tmp129967)))) + (cons __tmp129902 + __tmp129897)))) (declare (not safe)) - (cons __tmp129975 __tmp129966))) - _hd124362124390_) - (_g124355124369_ _g124356124373_)))) - (_g124355124369_ _g124356124373_)))) - (_g124355124369_ _g124356124373_))))) - (_g124354124411_ _$stx124351_)))) + (cons __tmp129905 __tmp129896))) + _hd124292124320_) + (_g124285124299_ _g124286124303_)))) + (_g124285124299_ _g124286124303_)))) + (_g124285124299_ _g124286124303_))))) + (_g124284124341_ _$stx124281_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_stx124415_) - (letrec ((_generate124418_ - (lambda (_tgt124567_ _kws124569_ _clauses124570_) - (letrec ((_generate-clause124572_ - (lambda (_hd125482_ _E125484_) - (let* ((___stx129828129829_ _hd125482_) - (_g125488125515_ + (lambda (_stx124345_) + (letrec ((_generate124348_ + (lambda (_tgt124497_ _kws124499_ _clauses124500_) + (letrec ((_generate-clause124502_ + (lambda (_hd125412_ _E125414_) + (let* ((___stx129758129759_ _hd125412_) + (_g125418125445_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129828129829_)))) - (let ((___kont129831129832_ - (lambda (_L125611_ _L125613_) - (_generate1124574_ - _hd125482_ - _L125613_ + ___stx129758129759_)))) + (let ((___kont129761129762_ + (lambda (_L125541_ _L125543_) + (_generate1124504_ + _hd125412_ + _L125543_ '#t - _L125611_ - _E125484_))) - (___kont129833129834_ - (lambda (_L125563_ - _L125565_ - _L125566_) - (_generate1124574_ - _hd125482_ - _L125566_ - _L125565_ - _L125563_ - _E125484_))) - (___kont129835129836_ + _L125541_ + _E125414_))) + (___kont129763129764_ + (lambda (_L125493_ + _L125495_ + _L125496_) + (_generate1124504_ + _hd125412_ + _L125496_ + _L125495_ + _L125493_ + _E125414_))) + (___kont129765129766_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _stx124415_ - _hd125482_)))) - (if (gx#stx-pair? ___stx129828129829_) - (let ((_e125494125591_ + _stx124345_ + _hd125412_)))) + (if (gx#stx-pair? ___stx129758129759_) + (let ((_e125424125521_ (gx#syntax-e - ___stx129828129829_))) - (let ((_tl125492125598_ + ___stx129758129759_))) + (let ((_tl125422125528_ (let () (declare (not safe)) - (##cdr _e125494125591_))) - (_hd125493125595_ + (##cdr _e125424125521_))) + (_hd125423125525_ (let () (declare (not safe)) - (##car _e125494125591_)))) - (if (gx#stx-pair? _tl125492125598_) - (let ((_e125497125601_ + (##car _e125424125521_)))) + (if (gx#stx-pair? _tl125422125528_) + (let ((_e125427125531_ (gx#syntax-e - _tl125492125598_))) - (let ((_tl125495125608_ + _tl125422125528_))) + (let ((_tl125425125538_ (let () (declare (not safe)) - (##cdr _e125497125601_))) - (_hd125496125605_ + (##cdr _e125427125531_))) + (_hd125426125535_ (let () (declare (not safe)) - (##car _e125497125601_)))) + (##car _e125427125531_)))) (if (gx#stx-null? - _tl125495125608_) - (___kont129831129832_ - _hd125496125605_ - _hd125493125595_) + _tl125425125538_) + (___kont129761129762_ + _hd125426125535_ + _hd125423125525_) (if (gx#stx-pair? - _tl125495125608_) - (let ((_e125509125553_ + _tl125425125538_) + (let ((_e125439125483_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl125495125608_))) - (let ((_tl125507125560_ + (gx#syntax-e _tl125425125538_))) + (let ((_tl125437125490_ (let () (declare (not safe)) - (##cdr _e125509125553_))) - (_hd125508125557_ + (##cdr _e125439125483_))) + (_hd125438125487_ (let () (declare (not safe)) - (##car _e125509125553_)))) - (if (gx#stx-null? _tl125507125560_) - (___kont129833129834_ - _hd125508125557_ - _hd125496125605_ - _hd125493125595_) - (___kont129835129836_)))) - (___kont129835129836_))))) + (##car _e125439125483_)))) + (if (gx#stx-null? _tl125437125490_) + (___kont129763129764_ + _hd125438125487_ + _hd125426125535_ + _hd125423125525_) + (___kont129765129766_)))) + (___kont129765129766_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129835129836_)))) - (___kont129835129836_)))))) - (_generate1124574_ - (lambda (_where124960_ - _hd124962_ - _fender124963_ - _body124964_ - _E124965_) - (letrec ((_recur124967_ - (lambda (_hd124970_ - _tgt124972_ - _K124973_) - (let* ((___stx129874129875_ - _hd124970_) - (_g124976124988_ + (___kont129765129766_)))) + (___kont129765129766_)))))) + (_generate1124504_ + (lambda (_where124890_ + _hd124892_ + _fender124893_ + _body124894_ + _E124895_) + (letrec ((_recur124897_ + (lambda (_hd124900_ + _tgt124902_ + _K124903_) + (let* ((___stx129804129805_ + _hd124900_) + (_g124906124918_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129874129875_)))) - (let ((___kont129877129878_ - (lambda (_L125272_ - _L125274_) - (let* ((_g125285125293_ - (lambda (_g125286125289_) + ___stx129804129805_)))) + (let ((___kont129807129808_ + (lambda (_L125202_ + _L125204_) + (let* ((_g125215125223_ + (lambda (_g125216125219_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125286125289_))) - (_g125284125474_ - (lambda (_g125286125297_) - ((lambda (_L125300_) + _g125216125219_))) + (_g125214125404_ + (lambda (_g125216125227_) + ((lambda (_L125230_) (let () - (let* ((_g125312125320_ - (lambda (_g125313125316_) + (let* ((_g125242125250_ + (lambda (_g125243125246_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125313125316_))) - (_g125311125470_ - (lambda (_g125313125324_) - ((lambda (_L125327_) + _g125243125246_))) + (_g125241125400_ + (lambda (_g125243125254_) + ((lambda (_L125257_) (let () - (let* ((_g125340125348_ - (lambda (_g125341125344_) + (let* ((_g125270125278_ + (lambda (_g125271125274_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125341125344_))) - (_g125339125466_ - (lambda (_g125341125352_) - ((lambda (_L125355_) + _g125271125274_))) + (_g125269125396_ + (lambda (_g125271125282_) + ((lambda (_L125285_) (let () - (let* ((_g125368125376_ + (let* ((_g125298125306_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g125369125372_) + (lambda (_g125299125302_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125369125372_))) - (_g125367125462_ - (lambda (_g125369125380_) - ((lambda (_L125383_) + _g125299125302_))) + (_g125297125392_ + (lambda (_g125299125310_) + ((lambda (_L125313_) (let () - (let* ((_g125396125404_ - (lambda (_g125397125400_) + (let* ((_g125326125334_ + (lambda (_g125327125330_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125397125400_))) - (_g125395125458_ - (lambda (_g125397125408_) - ((lambda (_L125411_) + _g125327125330_))) + (_g125325125388_ + (lambda (_g125327125338_) + ((lambda (_L125341_) (let () - (let* ((_g125424125432_ - (lambda (_g125425125428_) + (let* ((_g125354125362_ + (lambda (_g125355125358_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125425125428_))) - (_g125423125454_ - (lambda (_g125425125436_) - ((lambda (_L125439_) + _g125355125358_))) + (_g125353125384_ + (lambda (_g125355125366_) + ((lambda (_L125369_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp130008 (gx#datum->syntax '#f 'if)) - (__tmp129976 - (let ((__tmp130005 - (let ((__tmp130007 + (let ((__tmp129938 (gx#datum->syntax '#f 'if)) + (__tmp129906 + (let ((__tmp129935 + (let ((__tmp129937 (gx#datum->syntax '#f 'stx-pair?)) - (__tmp130006 + (__tmp129936 (let () (declare (not safe)) - (cons _L125300_ '())))) + (cons _L125230_ '())))) (declare (not safe)) - (cons __tmp130007 __tmp130006))) - (__tmp129977 - (let ((__tmp129979 - (let ((__tmp130004 + (cons __tmp129937 __tmp129936))) + (__tmp129907 + (let ((__tmp129909 + (let ((__tmp129934 (gx#datum->syntax '#f 'let)) - (__tmp129980 - (let ((__tmp129998 - (let ((__tmp129999 + (__tmp129910 + (let ((__tmp129928 + (let ((__tmp129929 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130000 - (let ((__tmp130001 - (let ((__tmp130003 + (let ((__tmp129930 + (let ((__tmp129931 + (let ((__tmp129933 (gx#datum->syntax '#f 'syntax-e)) - (__tmp130002 + (__tmp129932 (let () (declare (not safe)) - (cons _L125300_ '())))) + (cons _L125230_ '())))) (declare (not safe)) - (cons __tmp130003 __tmp130002)))) + (cons __tmp129933 __tmp129932)))) (declare (not safe)) - (cons __tmp130001 '())))) + (cons __tmp129931 '())))) (declare (not safe)) - (cons _L125327_ __tmp130000)))) + (cons _L125257_ __tmp129930)))) (declare (not safe)) - (cons __tmp129999 '()))) - (__tmp129981 - (let ((__tmp129982 - (let ((__tmp129997 (gx#datum->syntax '#f 'let)) - (__tmp129983 - (let ((__tmp129985 - (let ((__tmp129992 - (let ((__tmp129993 - (let ((__tmp129994 - (let ((__tmp129996 + (cons __tmp129929 '()))) + (__tmp129911 + (let ((__tmp129912 + (let ((__tmp129927 (gx#datum->syntax '#f 'let)) + (__tmp129913 + (let ((__tmp129915 + (let ((__tmp129922 + (let ((__tmp129923 + (let ((__tmp129924 + (let ((__tmp129926 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp129995 + (__tmp129925 (let () (declare (not safe)) - (cons _L125327_ '())))) + (cons _L125257_ '())))) (declare (not safe)) - (cons __tmp129996 __tmp129995)))) + (cons __tmp129926 __tmp129925)))) (declare (not safe)) - (cons __tmp129994 '())))) + (cons __tmp129924 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L125355_ - __tmp129993))) - (__tmp129986 - (let ((__tmp129987 - (let ((__tmp129988 - (let ((__tmp129989 + (cons _L125285_ + __tmp129923))) + (__tmp129916 + (let ((__tmp129917 + (let ((__tmp129918 + (let ((__tmp129919 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129991 + (let ((__tmp129921 (gx#datum->syntax '#f '##cdr)) - (__tmp129990 + (__tmp129920 (let () (declare (not safe)) - (cons _L125327_ '())))) + (cons _L125257_ '())))) (declare (not safe)) - (cons __tmp129991 __tmp129990)))) + (cons __tmp129921 __tmp129920)))) (declare (not safe)) - (cons __tmp129989 '())))) + (cons __tmp129919 '())))) (declare (not safe)) - (cons _L125383_ __tmp129988)))) + (cons _L125313_ __tmp129918)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129987 '())))) + (cons __tmp129917 '())))) (declare (not safe)) - (cons __tmp129992 __tmp129986))) - (__tmp129984 + (cons __tmp129922 __tmp129916))) + (__tmp129914 (let () (declare (not safe)) - (cons _L125411_ '())))) + (cons _L125341_ '())))) (declare (not safe)) - (cons __tmp129985 __tmp129984)))) + (cons __tmp129915 __tmp129914)))) (declare (not safe)) - (cons __tmp129997 __tmp129983)))) + (cons __tmp129927 __tmp129913)))) (declare (not safe)) - (cons __tmp129982 '())))) + (cons __tmp129912 '())))) (declare (not safe)) - (cons __tmp129998 __tmp129981)))) + (cons __tmp129928 __tmp129911)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130004 - __tmp129980))) - (__tmp129978 + (cons __tmp129934 + __tmp129910))) + (__tmp129908 (let () (declare (not safe)) - (cons _L125439_ '())))) + (cons _L125369_ '())))) (declare (not safe)) - (cons __tmp129979 __tmp129978)))) + (cons __tmp129909 __tmp129908)))) (declare (not safe)) - (cons __tmp130005 __tmp129977)))) + (cons __tmp129935 __tmp129907)))) (declare (not safe)) - (cons __tmp130008 __tmp129976))))) - _g125425125436_)))) + (cons __tmp129938 __tmp129906))))) + _g125355125366_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g125423125454_ - _E124965_)))) - _g125397125408_)))) - (_g125395125458_ - (_recur124967_ - _L125274_ - _L125355_ - (_recur124967_ - _L125272_ - _L125383_ - _K124973_)))))) - _g125369125380_)))) - (_g125367125462_ (gx#genident 'tl))))) - _g125341125352_)))) + (_g125353125384_ + _E124895_)))) + _g125327125338_)))) + (_g125325125388_ + (_recur124897_ + _L125204_ + _L125285_ + (_recur124897_ + _L125202_ + _L125313_ + _K124903_)))))) + _g125299125310_)))) + (_g125297125392_ (gx#genident 'tl))))) + _g125271125282_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g125339125466_ + (_g125269125396_ (gx#genident 'hd))))) - _g125313125324_)))) - (_g125311125470_ (gx#genident 'e))))) - _g125286125297_)))) - (_g125284125474_ _tgt124972_)))) + _g125243125254_)))) + (_g125241125400_ (gx#genident 'e))))) + _g125216125227_)))) + (_g125214125404_ _tgt124902_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129879129880_ + (___kont129809129810_ (lambda () (if (gx#identifier? - _hd124970_) + _hd124900_) (if (gx#underscore? - _hd124970_) - _K124973_ - (if (let ((__tmp130053 + _hd124900_) + _K124903_ + (if (let ((__tmp129983 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g124998125000_) + (lambda (_g124928124930_) (gx#bound-identifier=? - _g124998125000_ - _hd124970_)))) + _g124928124930_ + _hd124900_)))) (declare (not safe)) - (find __tmp130053 _kws124569_)) - (let* ((_g125004125019_ - (lambda (_g125005125015_) + (find __tmp129983 _kws124499_)) + (let* ((_g124934124949_ + (lambda (_g124935124945_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125005125015_))) - (_g125003125070_ - (lambda (_g125005125023_) - (if (gx#stx-pair? _g125005125023_) - (let ((_e125010125026_ - (gx#syntax-e _g125005125023_))) - (let ((_hd125009125030_ + _g124935124945_))) + (_g124933125000_ + (lambda (_g124935124953_) + (if (gx#stx-pair? _g124935124953_) + (let ((_e124940124956_ + (gx#syntax-e _g124935124953_))) + (let ((_hd124939124960_ (let () (declare (not safe)) - (##car _e125010125026_))) - (_tl125008125033_ + (##car _e124940124956_))) + (_tl124938124963_ (let () (declare (not safe)) - (##cdr _e125010125026_)))) + (##cdr _e124940124956_)))) (if (gx#stx-pair? - _tl125008125033_) - (let ((_e125013125036_ + _tl124938124963_) + (let ((_e124943124966_ (gx#syntax-e - _tl125008125033_))) - (let ((_hd125012125040_ + _tl124938124963_))) + (let ((_hd124942124970_ (let () (declare (not safe)) - (##car _e125013125036_))) - (_tl125011125043_ + (##car _e124943124966_))) + (_tl124941124973_ (let () (declare (not safe)) - (##cdr _e125013125036_)))) + (##cdr _e124943124966_)))) (if (gx#stx-null? - _tl125011125043_) - ((lambda (_L125046_ + _tl124941124973_) + ((lambda (_L124976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L125048_) + _L124978_) (let () - (let ((__tmp130052 (gx#datum->syntax '#f 'if)) - (__tmp130035 - (let ((__tmp130038 - (let ((__tmp130051 + (let ((__tmp129982 (gx#datum->syntax '#f 'if)) + (__tmp129965 + (let ((__tmp129968 + (let ((__tmp129981 (gx#datum->syntax '#f 'and)) - (__tmp130039 - (let ((__tmp130048 - (let ((__tmp130050 + (__tmp129969 + (let ((__tmp129978 + (let ((__tmp129980 (gx#datum->syntax '#f 'identifier?)) - (__tmp130049 + (__tmp129979 (let () (declare (not safe)) - (cons _L125048_ + (cons _L124978_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130050 - __tmp130049))) - (__tmp130040 - (let ((__tmp130041 - (let ((__tmp130047 + (cons __tmp129980 + __tmp129979))) + (__tmp129970 + (let ((__tmp129971 + (let ((__tmp129977 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'core-identifier=?)) - (__tmp130042 - (let ((__tmp130043 - (let ((__tmp130044 - (let ((__tmp130046 + (__tmp129972 + (let ((__tmp129973 + (let ((__tmp129974 + (let ((__tmp129976 (gx#datum->syntax '#f 'quote)) - (__tmp130045 + (__tmp129975 (let () (declare (not safe)) - (cons _L125046_ '())))) + (cons _L124976_ '())))) (declare (not safe)) - (cons __tmp130046 __tmp130045)))) + (cons __tmp129976 __tmp129975)))) (declare (not safe)) - (cons __tmp130044 '())))) + (cons __tmp129974 '())))) (declare (not safe)) - (cons _L125048_ __tmp130043)))) + (cons _L124978_ __tmp129973)))) (declare (not safe)) - (cons __tmp130047 __tmp130042)))) + (cons __tmp129977 __tmp129972)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130041 '())))) + (cons __tmp129971 '())))) (declare (not safe)) - (cons __tmp130048 __tmp130040)))) + (cons __tmp129978 __tmp129970)))) (declare (not safe)) - (cons __tmp130051 __tmp130039))) - (__tmp130036 - (let ((__tmp130037 + (cons __tmp129981 __tmp129969))) + (__tmp129966 + (let ((__tmp129967 (let () (declare (not safe)) - (cons _E124965_ '())))) + (cons _E124895_ '())))) (declare (not safe)) - (cons _K124973_ __tmp130037)))) + (cons _K124903_ __tmp129967)))) (declare (not safe)) - (cons __tmp130038 __tmp130036)))) + (cons __tmp129968 __tmp129966)))) (declare (not safe)) - (cons __tmp130052 __tmp130035)))) - _hd125012125040_ - _hd125009125030_) - (_g125004125019_ _g125005125023_)))) + (cons __tmp129982 __tmp129965)))) + _hd124942124970_ + _hd124939124960_) + (_g124934124949_ _g124935124953_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g125004125019_ - _g125005125023_)))) - (_g125004125019_ _g125005125023_))))) - (_g125003125070_ (list _tgt124972_ _hd124970_))) - (let* ((_g125074125089_ - (lambda (_g125075125085_) + (_g124934124949_ + _g124935124953_)))) + (_g124934124949_ _g124935124953_))))) + (_g124933125000_ (list _tgt124902_ _hd124900_))) + (let* ((_g125004125019_ + (lambda (_g125005125015_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125075125085_))) - (_g125073125133_ - (lambda (_g125075125093_) - (if (gx#stx-pair? _g125075125093_) - (let ((_e125080125096_ - (gx#syntax-e _g125075125093_))) - (let ((_hd125079125100_ + _g125005125015_))) + (_g125003125063_ + (lambda (_g125005125023_) + (if (gx#stx-pair? _g125005125023_) + (let ((_e125010125026_ + (gx#syntax-e _g125005125023_))) + (let ((_hd125009125030_ (let () (declare (not safe)) - (##car _e125080125096_))) - (_tl125078125103_ + (##car _e125010125026_))) + (_tl125008125033_ (let () (declare (not safe)) - (##cdr _e125080125096_)))) + (##cdr _e125010125026_)))) (if (gx#stx-pair? - _tl125078125103_) - (let ((_e125083125106_ + _tl125008125033_) + (let ((_e125013125036_ (gx#syntax-e - _tl125078125103_))) - (let ((_hd125082125110_ + _tl125008125033_))) + (let ((_hd125012125040_ (let () (declare (not safe)) - (##car _e125083125106_))) - (_tl125081125113_ + (##car _e125013125036_))) + (_tl125011125043_ (let () (declare (not safe)) - (##cdr _e125083125106_)))) + (##cdr _e125013125036_)))) (if (gx#stx-null? - _tl125081125113_) - ((lambda (_L125116_ + _tl125011125043_) + ((lambda (_L125046_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L125118_) + _L125048_) (let () - (let ((__tmp130034 (gx#datum->syntax '#f 'let)) - (__tmp130029 - (let ((__tmp130031 - (let ((__tmp130032 - (let ((__tmp130033 + (let ((__tmp129964 (gx#datum->syntax '#f 'let)) + (__tmp129959 + (let ((__tmp129961 + (let ((__tmp129962 + (let ((__tmp129963 (let () (declare (not safe)) - (cons _L125118_ '())))) + (cons _L125048_ '())))) (declare (not safe)) - (cons _L125116_ __tmp130033)))) + (cons _L125046_ __tmp129963)))) (declare (not safe)) - (cons __tmp130032 '()))) - (__tmp130030 + (cons __tmp129962 '()))) + (__tmp129960 (let () (declare (not safe)) - (cons _K124973_ '())))) + (cons _K124903_ '())))) (declare (not safe)) - (cons __tmp130031 __tmp130030)))) + (cons __tmp129961 __tmp129960)))) (declare (not safe)) - (cons __tmp130034 __tmp130029)))) - _hd125082125110_ - _hd125079125100_) - (_g125074125089_ _g125075125093_)))) + (cons __tmp129964 __tmp129959)))) + _hd125012125040_ + _hd125009125030_) + (_g125004125019_ _g125005125023_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g125074125089_ - _g125075125093_)))) - (_g125074125089_ _g125075125093_))))) - (_g125073125133_ (list _tgt124972_ _hd124970_))))) - (if (gx#stx-null? _hd124970_) - (let* ((_g125137125145_ - (lambda (_g125138125141_) + (_g125004125019_ + _g125005125023_)))) + (_g125004125019_ _g125005125023_))))) + (_g125003125063_ (list _tgt124902_ _hd124900_))))) + (if (gx#stx-null? _hd124900_) + (let* ((_g125067125075_ + (lambda (_g125068125071_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125138125141_))) - (_g125136125163_ - (lambda (_g125138125149_) - ((lambda (_L125152_) + _g125068125071_))) + (_g125066125093_ + (lambda (_g125068125079_) + ((lambda (_L125082_) (let () - (let ((__tmp130028 + (let ((__tmp129958 (gx#datum->syntax '#f 'if)) - (__tmp130022 - (let ((__tmp130025 - (let ((__tmp130027 + (__tmp129952 + (let ((__tmp129955 + (let ((__tmp129957 (gx#datum->syntax '#f 'stx-null?)) - (__tmp130026 + (__tmp129956 (let () (declare (not safe)) - (cons _L125152_ + (cons _L125082_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp130027 __tmp130026))) + (cons __tmp129957 __tmp129956))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp130023 - (let ((__tmp130024 + (__tmp129953 + (let ((__tmp129954 (let () (declare (not safe)) - (cons _E124965_ + (cons _E124895_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _K124973_ __tmp130024)))) + (cons _K124903_ __tmp129954)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130025 - __tmp130023)))) + (cons __tmp129955 + __tmp129953)))) (declare (not safe)) - (cons __tmp130028 __tmp130022)))) - _g125138125149_)))) - (_g125136125163_ _tgt124972_)) - (if (gx#stx-datum? _hd124970_) - (let* ((_g125167125186_ - (lambda (_g125168125182_) + (cons __tmp129958 __tmp129952)))) + _g125068125079_)))) + (_g125066125093_ _tgt124902_)) + (if (gx#stx-datum? _hd124900_) + (let* ((_g125097125116_ + (lambda (_g125098125112_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125168125182_))) - (_g125166125244_ - (lambda (_g125168125190_) - (if (gx#stx-pair? _g125168125190_) - (let ((_e125174125193_ - (gx#syntax-e _g125168125190_))) - (let ((_hd125173125197_ + _g125098125112_))) + (_g125096125174_ + (lambda (_g125098125120_) + (if (gx#stx-pair? _g125098125120_) + (let ((_e125104125123_ + (gx#syntax-e _g125098125120_))) + (let ((_hd125103125127_ (let () (declare (not safe)) - (##car _e125174125193_))) - (_tl125172125200_ + (##car _e125104125123_))) + (_tl125102125130_ (let () (declare (not safe)) - (##cdr _e125174125193_)))) + (##cdr _e125104125123_)))) (if (gx#stx-pair? - _tl125172125200_) - (let ((_e125177125203_ + _tl125102125130_) + (let ((_e125107125133_ (gx#syntax-e - _tl125172125200_))) - (let ((_hd125176125207_ + _tl125102125130_))) + (let ((_hd125106125137_ (let () (declare (not safe)) - (##car _e125177125203_))) - (_tl125175125210_ + (##car _e125107125133_))) + (_tl125105125140_ (let () (declare (not safe)) - (##cdr _e125177125203_)))) + (##cdr _e125107125133_)))) (if (gx#stx-pair? - _tl125175125210_) - (let ((_e125180125213_ + _tl125105125140_) + (let ((_e125110125143_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl125175125210_))) - (let ((_hd125179125217_ + _tl125105125140_))) + (let ((_hd125109125147_ (let () (declare (not safe)) - (##car _e125180125213_))) - (_tl125178125220_ + (##car _e125110125143_))) + (_tl125108125150_ (let () (declare (not safe)) - (##cdr _e125180125213_)))) - (if (gx#stx-null? _tl125178125220_) - ((lambda (_L125223_ _L125225_ _L125226_) + (##cdr _e125110125143_)))) + (if (gx#stx-null? _tl125108125150_) + ((lambda (_L125153_ _L125155_ _L125156_) (let () - (let ((__tmp130021 (gx#datum->syntax '#f 'if)) - (__tmp130009 - (let ((__tmp130012 - (let ((__tmp130013 - (let ((__tmp130018 - (let ((__tmp130020 + (let ((__tmp129951 (gx#datum->syntax '#f 'if)) + (__tmp129939 + (let ((__tmp129942 + (let ((__tmp129943 + (let ((__tmp129948 + (let ((__tmp129950 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'stx-e)) - (__tmp130019 - (let () (declare (not safe)) (cons _L125226_ '())))) + (__tmp129949 + (let () (declare (not safe)) (cons _L125156_ '())))) (declare (not safe)) - (cons __tmp130020 __tmp130019))) - (__tmp130014 - (let ((__tmp130015 - (let ((__tmp130017 (gx#datum->syntax '#f 'quote)) - (__tmp130016 + (cons __tmp129950 __tmp129949))) + (__tmp129944 + (let ((__tmp129945 + (let ((__tmp129947 (gx#datum->syntax '#f 'quote)) + (__tmp129946 (let () (declare (not safe)) - (cons _L125225_ '())))) + (cons _L125155_ '())))) (declare (not safe)) - (cons __tmp130017 __tmp130016)))) + (cons __tmp129947 __tmp129946)))) (declare (not safe)) - (cons __tmp130015 '())))) + (cons __tmp129945 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130018 - __tmp130014)))) + (cons __tmp129948 + __tmp129944)))) (declare (not safe)) - (cons _L125223_ __tmp130013))) - (__tmp130010 - (let ((__tmp130011 + (cons _L125153_ __tmp129943))) + (__tmp129940 + (let ((__tmp129941 (let () (declare (not safe)) - (cons _E124965_ '())))) + (cons _E124895_ '())))) (declare (not safe)) - (cons _K124973_ __tmp130011)))) + (cons _K124903_ __tmp129941)))) (declare (not safe)) - (cons __tmp130012 __tmp130010)))) + (cons __tmp129942 __tmp129940)))) (declare (not safe)) - (cons __tmp130021 __tmp130009)))) - _hd125179125217_ - _hd125176125207_ - _hd125173125197_) - (_g125167125186_ _g125168125190_)))) - (_g125167125186_ _g125168125190_)))) + (cons __tmp129951 __tmp129939)))) + _hd125109125147_ + _hd125106125137_ + _hd125103125127_) + (_g125097125116_ _g125098125120_)))) + (_g125097125116_ _g125098125120_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g125167125186_ - _g125168125190_)))) - (_g125167125186_ _g125168125190_))))) - (_g125166125244_ - (list _tgt124972_ - _hd124970_ - (let ((_e125248_ (gx#stx-e _hd124970_))) - (if (or (keyword? _e125248_) + (_g125097125116_ + _g125098125120_)))) + (_g125097125116_ _g125098125120_))))) + (_g125096125174_ + (list _tgt124902_ + _hd124900_ + (let ((_e125178_ (gx#stx-e _hd124900_))) + (if (or (keyword? _e125178_) (let () (declare (not safe)) - (immediate? _e125248_))) + (immediate? _e125178_))) (gx#datum->syntax '#f 'eq?) (if (let () (declare (not safe)) - (number? _e125248_)) + (number? _e125178_)) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -999,511 +999,511 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _stx124415_ - _where124960_ - _hd124970_))))))) + _stx124345_ + _where124890_ + _hd124900_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx129874129875_) - (let ((_e124982125262_ + ___stx129804129805_) + (let ((_e124912125192_ (gx#syntax-e - ___stx129874129875_))) - (let ((_tl124980125269_ + ___stx129804129805_))) + (let ((_tl124910125199_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124982125262_))) - (_hd124981125266_ - (let () (declare (not safe)) (##car _e124982125262_)))) - (___kont129877129878_ _tl124980125269_ _hd124981125266_))) + (##cdr _e124912125192_))) + (_hd124911125196_ + (let () (declare (not safe)) (##car _e124912125192_)))) + (___kont129807129808_ _tl124910125199_ _hd124911125196_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129879129880_))))))) - (_recur124967_ - _hd124962_ - _tgt124567_ - (let ((__tmp130057 + (___kont129809129810_))))))) + (_recur124897_ + _hd124892_ + _tgt124497_ + (let ((__tmp129987 (gx#datum->syntax '#f 'if)) - (__tmp130054 - (let ((__tmp130055 - (let ((__tmp130056 + (__tmp129984 + (let ((__tmp129985 + (let ((__tmp129986 (let () (declare (not safe)) - (cons _E124965_ + (cons _E124895_ '())))) (declare (not safe)) - (cons _body124964_ - __tmp130056)))) + (cons _body124894_ + __tmp129986)))) (declare (not safe)) - (cons _fender124963_ - __tmp130055)))) + (cons _fender124893_ + __tmp129985)))) (declare (not safe)) - (cons __tmp130057 __tmp130054)))))) - (_generate-clauses124575_ - (lambda (_clauses124698_) - (let _lp124701_ ((_rest124704_ _clauses124698_) - (_E124706_ (gx#genident 'E)) - (_r124707_ '())) - (let* ((___stx129910129911_ _rest124704_) - (_g124710124722_ + (cons __tmp129987 __tmp129984)))))) + (_generate-clauses124505_ + (lambda (_clauses124628_) + (let _lp124631_ ((_rest124634_ _clauses124628_) + (_E124636_ (gx#genident 'E)) + (_r124637_ '())) + (let* ((___stx129840129841_ _rest124634_) + (_g124640124652_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129910129911_)))) - (let ((___kont129913129914_ - (lambda (_L124787_ _L124789_) - (let* ((___stx129890129891_ - _L124789_) - (_g124801124812_ + ___stx129840129841_)))) + (let ((___kont129843129844_ + (lambda (_L124717_ _L124719_) + (let* ((___stx129820129821_ + _L124719_) + (_g124731124742_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129890129891_)))) - (let ((___kont129893129894_ - (lambda (_L124941_) + ___stx129820129821_)))) + (let ((___kont129823129824_ + (lambda (_L124871_) (if (gx#stx-null? - _L124787_) + _L124717_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L124941_) - (let ((__tmp130066 (gx#stx-null? _L124941_))) + _L124871_) + (let ((__tmp129996 (gx#stx-null? _L124871_))) (declare (not safe)) - (not __tmp130066))) - (let ((__tmp130058 - (let ((__tmp130059 - (let ((__tmp130060 + (not __tmp129996))) + (let ((__tmp129988 + (let ((__tmp129989 + (let ((__tmp129990 (gx#stx-wrap-source - (let ((__tmp130065 + (let ((__tmp129995 (gx#datum->syntax '#f 'lambda)) - (__tmp130061 - (let ((__tmp130062 - (let ((__tmp130063 + (__tmp129991 + (let ((__tmp129992 + (let ((__tmp129993 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130064 (gx#datum->syntax '#f 'begin))) + (let ((__tmp129994 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp130064 _L124941_)))) + (cons __tmp129994 _L124871_)))) (declare (not safe)) - (cons __tmp130063 '())))) + (cons __tmp129993 '())))) (declare (not safe)) - (cons '() __tmp130062)))) + (cons '() __tmp129992)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130065 __tmp130061)) - (gx#stx-source _L124789_)))) + (cons __tmp129995 __tmp129991)) + (gx#stx-source _L124719_)))) (declare (not safe)) - (cons __tmp130060 '())))) + (cons __tmp129990 '())))) (declare (not safe)) - (cons _E124706_ __tmp130059)))) + (cons _E124636_ __tmp129989)))) (declare (not safe)) - (cons __tmp130058 _r124707_)) + (cons __tmp129988 _r124637_)) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _stx124415_ - _L124789_)) + _stx124345_ + _L124719_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx124415_ - _L124789_)))) + _stx124345_ + _L124719_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129895129896_ + (___kont129825129826_ (lambda () - (let* ((_g124823124831_ - (lambda (_g124824124827_) + (let* ((_g124753124761_ + (lambda (_g124754124757_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124824124827_))) - (_g124822124920_ - (lambda (_g124824124835_) - ((lambda (_L124838_) + _g124754124757_))) + (_g124752124850_ + (lambda (_g124754124765_) + ((lambda (_L124768_) (let () - (let* ((_g124854124862_ - (lambda (_g124855124858_) + (let* ((_g124784124792_ + (lambda (_g124785124788_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124855124858_))) - (_g124853124916_ - (lambda (_g124855124866_) - ((lambda (_L124869_) + _g124785124788_))) + (_g124783124846_ + (lambda (_g124785124796_) + ((lambda (_L124799_) (let () - (let* ((_g124882124890_ - (lambda (_g124883124886_) + (let* ((_g124812124820_ + (lambda (_g124813124816_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124883124886_))) - (_g124881124912_ - (lambda (_g124883124894_) - ((lambda (_L124897_) + _g124813124816_))) + (_g124811124842_ + (lambda (_g124813124824_) + ((lambda (_L124827_) (let () (let () - (_lp124701_ - _L124787_ - _L124838_ - (let ((__tmp130067 + (_lp124631_ + _L124717_ + _L124768_ + (let ((__tmp129997 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130068 + (let ((__tmp129998 (let () (declare (not safe)) - (cons _L124897_ '())))) + (cons _L124827_ '())))) (declare (not safe)) - (cons _E124706_ __tmp130068)))) + (cons _E124636_ __tmp129998)))) (declare (not safe)) - (cons __tmp130067 _r124707_)))))) - _g124883124894_)))) + (cons __tmp129997 _r124637_)))))) + _g124813124824_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g124881124912_ + (_g124811124842_ (gx#stx-wrap-source - (let ((__tmp130071 + (let ((__tmp130001 (gx#datum->syntax '#f 'lambda)) - (__tmp130069 - (let ((__tmp130070 + (__tmp129999 + (let ((__tmp130000 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L124869_ '())))) + (cons _L124799_ '())))) (declare (not safe)) - (cons '() __tmp130070)))) + (cons '() __tmp130000)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130071 - __tmp130069)) + (cons __tmp130001 + __tmp129999)) (gx#stx-source - _L124789_)))))) - _g124855124866_)))) - (_g124853124916_ - (_generate-clause124572_ - _L124789_ + _L124719_)))))) + _g124785124796_)))) + (_g124783124846_ + (_generate-clause124502_ + _L124719_ (let () (declare (not safe)) - (cons _L124838_ '()))))))) - _g124824124835_)))) - (_g124822124920_ (gx#genident 'E)))))) + (cons _L124768_ '()))))))) + _g124754124765_)))) + (_g124752124850_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx129890129891_) - (let ((_e124806124931_ + ___stx129820129821_) + (let ((_e124736124861_ (gx#syntax-e - ___stx129890129891_))) - (let ((_tl124804124938_ + ___stx129820129821_))) + (let ((_tl124734124868_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124806124931_))) - (_hd124805124935_ - (let () (declare (not safe)) (##car _e124806124931_)))) - (if (gx#identifier? _hd124805124935_) + (##cdr _e124736124861_))) + (_hd124735124865_ + (let () (declare (not safe)) (##car _e124736124861_)))) + (if (gx#identifier? _hd124735124865_) (if (gx#free-identifier=? - |gx[1]#_g130072_| - _hd124805124935_) - (___kont129893129894_ _tl124804124938_) - (___kont129895129896_)) - (___kont129895129896_)))) + |gx[1]#_g130002_| + _hd124735124865_) + (___kont129823129824_ _tl124734124868_) + (___kont129825129826_)) + (___kont129825129826_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129895129896_)))))) - (___kont129915129916_ + (___kont129825129826_)))))) + (___kont129845129846_ (lambda () - (let* ((_g124733124741_ - (lambda (_g124734124737_) + (let* ((_g124663124671_ + (lambda (_g124664124667_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124734124737_))) - (_g124732124766_ - (lambda (_g124734124745_) - ((lambda (_L124748_) + _g124664124667_))) + (_g124662124696_ + (lambda (_g124664124675_) + ((lambda (_L124678_) (let () - (let ((__tmp130073 + (let ((__tmp130003 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130074 - (let ((__tmp130075 + (let ((__tmp130004 + (let ((__tmp130005 (gx#stx-wrap-source - (let ((__tmp130083 + (let ((__tmp130013 (gx#datum->syntax '#f 'lambda)) - (__tmp130076 - (let ((__tmp130077 - (let ((__tmp130078 - (let ((__tmp130082 + (__tmp130006 + (let ((__tmp130007 + (let ((__tmp130008 + (let ((__tmp130012 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp130079 - (let ((__tmp130080 - (let ((__tmp130081 + (__tmp130009 + (let ((__tmp130010 + (let ((__tmp130011 (let () (declare (not safe)) - (cons _L124748_ '())))) + (cons _L124678_ '())))) (declare (not safe)) (cons '"Bad syntax; invalid syntax-case clause" - __tmp130081)))) + __tmp130011)))) (declare (not safe)) - (cons '#f __tmp130080)))) + (cons '#f __tmp130010)))) (declare (not safe)) - (cons __tmp130082 __tmp130079)))) + (cons __tmp130012 __tmp130009)))) (declare (not safe)) - (cons __tmp130078 '())))) + (cons __tmp130008 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp130077)))) + (cons '() __tmp130007)))) (declare (not safe)) - (cons __tmp130083 __tmp130076)) - (gx#stx-source _stx124415_)))) + (cons __tmp130013 __tmp130006)) + (gx#stx-source _stx124345_)))) (declare (not safe)) - (cons __tmp130075 '())))) + (cons __tmp130005 '())))) (declare (not safe)) - (cons _E124706_ __tmp130074)))) + (cons _E124636_ __tmp130004)))) (declare (not safe)) - (cons __tmp130073 _r124707_)))) - _g124734124745_)))) + (cons __tmp130003 _r124637_)))) + _g124664124675_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g124732124766_ - _tgt124567_))))) - (if (gx#stx-pair? ___stx129910129911_) - (let ((_e124716124777_ + (_g124662124696_ + _tgt124497_))))) + (if (gx#stx-pair? ___stx129840129841_) + (let ((_e124646124707_ (gx#syntax-e - ___stx129910129911_))) - (let ((_tl124714124784_ + ___stx129840129841_))) + (let ((_tl124644124714_ (let () (declare (not safe)) - (##cdr _e124716124777_))) - (_hd124715124781_ + (##cdr _e124646124707_))) + (_hd124645124711_ (let () (declare (not safe)) - (##car _e124716124777_)))) - (___kont129913129914_ - _tl124714124784_ - _hd124715124781_))) - (___kont129915129916_)))))))) - (let* ((_bind124577_ - (_generate-clauses124575_ _clauses124570_)) - (_g124580124597_ - (lambda (_g124581124593_) + (##car _e124646124707_)))) + (___kont129843129844_ + _tl124644124714_ + _hd124645124711_))) + (___kont129845129846_)))))))) + (let* ((_bind124507_ + (_generate-clauses124505_ _clauses124500_)) + (_g124510124527_ + (lambda (_g124511124523_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124581124593_))) - (_g124579124694_ - (lambda (_g124581124601_) - (if (gx#stx-pair/null? _g124581124601_) - (let ((_g130084_ + _g124511124523_))) + (_g124509124624_ + (lambda (_g124511124531_) + (if (gx#stx-pair/null? _g124511124531_) + (let ((_g130014_ (gx#syntax-split-splice - _g124581124601_ + _g124511124531_ '0))) (begin - (let ((_g130085_ + (let ((_g130015_ (let () (declare (not safe)) - (if (##values? _g130084_) + (if (##values? _g130014_) (##vector-length - _g130084_) + _g130014_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130085_ 2))) + (##fx= _g130015_ 2))) (error "Context expects 2 values" - _g130085_))) - (let ((_target124583124604_ + _g130015_))) + (let ((_target124513124534_ (let () (declare (not safe)) - (##vector-ref _g130084_ 0))) - (_tl124585124607_ + (##vector-ref _g130014_ 0))) + (_tl124515124537_ (let () (declare (not safe)) - (##vector-ref _g130084_ 1)))) - (if (gx#stx-null? _tl124585124607_) - (letrec ((_loop124586124610_ - (lambda (_hd124584124614_ + (##vector-ref _g130014_ 1)))) + (if (gx#stx-null? _tl124515124537_) + (letrec ((_loop124516124540_ + (lambda (_hd124514124544_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind-try124590124617_) - (if (gx#stx-pair? _hd124584124614_) - (let ((_e124587124620_ (gx#syntax-e _hd124584124614_))) - (let ((_lp-hd124588124624_ + _bind-try124520124547_) + (if (gx#stx-pair? _hd124514124544_) + (let ((_e124517124550_ (gx#syntax-e _hd124514124544_))) + (let ((_lp-hd124518124554_ (let () (declare (not safe)) - (##car _e124587124620_))) - (_lp-tl124589124627_ + (##car _e124517124550_))) + (_lp-tl124519124557_ (let () (declare (not safe)) - (##cdr _e124587124620_)))) - (_loop124586124610_ - _lp-tl124589124627_ + (##cdr _e124517124550_)))) + (_loop124516124540_ + _lp-tl124519124557_ (let () (declare (not safe)) - (cons _lp-hd124588124624_ - _bind-try124590124617_))))) - (let ((_bind-try124591124630_ - (reverse _bind-try124590124617_))) - ((lambda (_L124634_) + (cons _lp-hd124518124554_ + _bind-try124520124547_))))) + (let ((_bind-try124521124560_ + (reverse _bind-try124520124547_))) + ((lambda (_L124564_) (let () - (let* ((_g124652124660_ - (lambda (_g124653124656_) + (let* ((_g124582124590_ + (lambda (_g124583124586_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124653124656_))) - (_g124651124690_ - (lambda (_g124653124664_) - ((lambda (_L124667_) + _g124583124586_))) + (_g124581124620_ + (lambda (_g124583124594_) + ((lambda (_L124597_) (let () (let () - (let ((__tmp130091 + (let ((__tmp130021 (gx#datum->syntax '#f 'let*)) - (__tmp130086 - (let ((__tmp130089 - (let ((__tmp130090 + (__tmp130016 + (let ((__tmp130019 + (let ((__tmp130020 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g124681124684_ _g124682124687_) + (lambda (_g124611124614_ _g124612124617_) (let () (declare (not safe)) - (cons _g124681124684_ _g124682124687_))))) + (cons _g124611124614_ _g124612124617_))))) (declare (not safe)) - (foldr1 __tmp130090 '() _L124634_))) - (__tmp130087 - (let ((__tmp130088 - (let () (declare (not safe)) (cons _L124667_ '())))) + (foldr1 __tmp130020 '() _L124564_))) + (__tmp130017 + (let ((__tmp130018 + (let () (declare (not safe)) (cons _L124597_ '())))) (declare (not safe)) - (cons __tmp130088 '())))) + (cons __tmp130018 '())))) (declare (not safe)) - (cons __tmp130089 __tmp130087)))) + (cons __tmp130019 __tmp130017)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130091 - __tmp130086))))) - _g124653124664_)))) - (_g124651124690_ + (cons __tmp130021 + __tmp130016))))) + _g124583124594_)))) + (_g124581124620_ (car (let () (declare (not safe)) - (last _bind124577_))))))) - _bind-try124591124630_)))))) + (last _bind124507_))))))) + _bind-try124521124560_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop124586124610_ - _target124583124604_ + (_loop124516124540_ + _target124513124534_ '())) - (_g124580124597_ - _g124581124601_))))) - (_g124580124597_ _g124581124601_))))) - (_g124579124694_ _bind124577_)))))) - (let* ((_g124421124440_ - (lambda (_g124422124436_) + (_g124510124527_ + _g124511124531_))))) + (_g124510124527_ _g124511124531_))))) + (_g124509124624_ _bind124507_)))))) + (let* ((_g124351124370_ + (lambda (_g124352124366_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124422124436_))) - (_g124420124563_ - (lambda (_g124422124444_) - (if (gx#stx-pair? _g124422124444_) - (let ((_e124428124447_ (gx#syntax-e _g124422124444_))) - (let ((_hd124427124451_ + _g124352124366_))) + (_g124350124493_ + (lambda (_g124352124374_) + (if (gx#stx-pair? _g124352124374_) + (let ((_e124358124377_ (gx#syntax-e _g124352124374_))) + (let ((_hd124357124381_ (let () (declare (not safe)) - (##car _e124428124447_))) - (_tl124426124454_ + (##car _e124358124377_))) + (_tl124356124384_ (let () (declare (not safe)) - (##cdr _e124428124447_)))) - (if (gx#stx-pair? _tl124426124454_) - (let ((_e124431124457_ - (gx#syntax-e _tl124426124454_))) - (let ((_hd124430124461_ + (##cdr _e124358124377_)))) + (if (gx#stx-pair? _tl124356124384_) + (let ((_e124361124387_ + (gx#syntax-e _tl124356124384_))) + (let ((_hd124360124391_ (let () (declare (not safe)) - (##car _e124431124457_))) - (_tl124429124464_ + (##car _e124361124387_))) + (_tl124359124394_ (let () (declare (not safe)) - (##cdr _e124431124457_)))) - (if (gx#stx-pair? _tl124429124464_) - (let ((_e124434124467_ - (gx#syntax-e _tl124429124464_))) - (let ((_hd124433124471_ + (##cdr _e124361124387_)))) + (if (gx#stx-pair? _tl124359124394_) + (let ((_e124364124397_ + (gx#syntax-e _tl124359124394_))) + (let ((_hd124363124401_ (let () (declare (not safe)) - (##car _e124434124467_))) - (_tl124432124474_ + (##car _e124364124397_))) + (_tl124362124404_ (let () (declare (not safe)) - (##cdr _e124434124467_)))) - ((lambda (_L124477_ - _L124479_ - _L124480_) + (##cdr _e124364124397_)))) + ((lambda (_L124407_ + _L124409_ + _L124410_) (if (and (gx#identifier-list? - _L124479_) + _L124409_) (gx#stx-list? - _L124477_)) - (let* ((_g124498124506_ - (lambda (_g124499124502_) + _L124407_)) + (let* ((_g124428124436_ + (lambda (_g124429124432_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124499124502_))) - (_g124497124559_ - (lambda (_g124499124510_) - ((lambda (_L124513_) + _g124429124432_))) + (_g124427124489_ + (lambda (_g124429124440_) + ((lambda (_L124443_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g124525124533_ - (lambda (_g124526124529_) + (let* ((_g124455124463_ + (lambda (_g124456124459_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124526124529_))) - (_g124524124555_ - (lambda (_g124526124537_) - ((lambda (_L124540_) + _g124456124459_))) + (_g124454124485_ + (lambda (_g124456124467_) + ((lambda (_L124470_) (let () (let () - (let ((__tmp130097 + (let ((__tmp130027 (gx#datum->syntax '#f 'let)) - (__tmp130092 - (let ((__tmp130094 - (let ((__tmp130095 - (let ((__tmp130096 + (__tmp130022 + (let ((__tmp130024 + (let ((__tmp130025 + (let ((__tmp130026 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L124480_ '())))) + (cons _L124410_ '())))) (declare (not safe)) - (cons _L124513_ __tmp130096)))) + (cons _L124443_ __tmp130026)))) (declare (not safe)) - (cons __tmp130095 '()))) - (__tmp130093 - (let () (declare (not safe)) (cons _L124540_ '())))) + (cons __tmp130025 '()))) + (__tmp130023 + (let () (declare (not safe)) (cons _L124470_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130094 - __tmp130093)))) + (cons __tmp130024 + __tmp130023)))) (declare (not safe)) - (cons __tmp130097 __tmp130092))))) - _g124526124537_)))) - (_g124524124555_ - (_generate124418_ - _L124513_ - (gx#syntax->list _L124479_) - _L124477_))))) - _g124499124510_)))) + (cons __tmp130027 __tmp130022))))) + _g124456124467_)))) + (_g124454124485_ + (_generate124348_ + _L124443_ + (gx#syntax->list _L124409_) + _L124407_))))) + _g124429124440_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g124497124559_ + (_g124427124489_ (gx#genident 'e))) - (_g124421124440_ - _g124422124444_))) - _tl124432124474_ - _hd124433124471_ - _hd124430124461_))) - (_g124421124440_ _g124422124444_)))) - (_g124421124440_ _g124422124444_)))) - (_g124421124440_ _g124422124444_))))) - (_g124420124563_ _stx124415_))))))) + (_g124351124370_ + _g124352124374_))) + _tl124362124404_ + _hd124363124401_ + _hd124360124391_))) + (_g124351124370_ _g124352124374_)))) + (_g124351124370_ _g124352124374_)))) + (_g124351124370_ _g124352124374_))))) + (_g124350124493_ _stx124345_))))))) diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index ec83205dd..91e921675 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 1707423040) + (define gerbil/expander/compile::timestamp 1707565660) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_stx161448_) - (let* ((_e161449161456_ _stx161448_) - (_E161451161460_ + (lambda (_stx161378_) + (let* ((_e161379161386_ _stx161378_) + (_E161381161390_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161449161456_))) - (_E161450161474_ - (lambda () - (if (gx#stx-pair? _e161449161456_) - (let ((_e161452161464_ (gx#syntax-e _e161449161456_))) - (let ((_hd161453161467_ (##car _e161452161464_)) - (_tl161454161469_ (##cdr _e161452161464_))) - (let ((_form161472_ _hd161453161467_)) + _e161379161386_))) + (_E161380161404_ + (lambda () + (if (gx#stx-pair? _e161379161386_) + (let ((_e161382161394_ (gx#syntax-e _e161379161386_))) + (let ((_hd161383161397_ (##car _e161382161394_)) + (_tl161384161399_ (##cdr _e161382161394_))) + (let ((_form161402_ _hd161383161397_)) (if '#t - (let* ((__self165671 - (gx#syntax-local-e__0 _form161472_)) - (__method165672 + (let* ((__self165601 + (gx#syntax-local-e__0 _form161402_)) + (__method165602 (method-ref - __self165671 + __self165601 'compile-top-syntax))) - (if __method165672 - (__method165672 __self165671 _stx161448_) + (if __method165602 + (__method165602 __self165601 _stx161378_) (error '"Missing method" - __self165671 + __self165601 'compile-top-syntax))) - (_E161451161460_))))) - (_E161451161460_))))) - (_E161450161474_)))) + (_E161381161390_))))) + (_E161381161390_))))) + (_E161380161404_)))) (define gx#core-expander::compile-top-syntax - (lambda (_self161408_ _stx161409_) - (let* ((_self161410161418_ _self161408_) - (_E161412161422_ - (lambda () (error '"No clause matching" _self161410161418_))) - (_K161413161434_ - (lambda (_K161425_) - (let ((_$e161427_ (gx#stx-source _stx161409_))) - (if _$e161427_ - ((lambda (_g161429161431_) + (lambda (_self161338_ _stx161339_) + (let* ((_self161340161348_ _self161338_) + (_E161342161352_ + (lambda () (error '"No clause matching" _self161340161348_))) + (_K161343161364_ + (lambda (_K161355_) + (let ((_$e161357_ (gx#stx-source _stx161339_))) + (if _$e161357_ + ((lambda (_g161359161361_) (gx#stx-wrap-source - (_K161425_ _stx161409_) - _g161429161431_)) - _$e161427_) - (_K161425_ _stx161409_)))))) + (_K161355_ _stx161339_) + _g161359161361_)) + _$e161357_) + (_K161355_ _stx161339_)))))) (if (##structure-instance-of? - _self161410161418_ + _self161340161348_ 'gx#core-expander::t) - (let* ((_e161414161437_ + (let* ((_e161344161367_ (##unchecked-structure-ref - _self161410161418_ + _self161340161348_ '1 gx#expander::t '#f)) - (_e161415161440_ + (_e161345161370_ (##unchecked-structure-ref - _self161410161418_ + _self161340161348_ '2 gx#core-expander::t '#f)) - (_e161416161443_ + (_e161346161373_ (##unchecked-structure-ref - _self161410161418_ + _self161340161348_ '3 gx#core-expander::t '#f)) - (_K161446_ _e161416161443_)) - (_K161413161434_ _K161446_)) - (_E161412161422_))))) + (_K161376_ _e161346161373_)) + (_K161343161364_ _K161376_)) + (_E161342161352_))))) (bind-method! gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_stx161282_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _stx161282_))) + (lambda (_stx161212_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _stx161212_))) (define gx#core-compile-top-begin% - (lambda (_stx161252_) - (let* ((_e161253161260_ _stx161252_) - (_E161255161264_ + (lambda (_stx161182_) + (let* ((_e161183161190_ _stx161182_) + (_E161185161194_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161253161260_))) - (_E161254161278_ - (lambda () - (if (gx#stx-pair? _e161253161260_) - (let ((_e161256161268_ (gx#syntax-e _e161253161260_))) - (let ((_hd161257161271_ (##car _e161256161268_)) - (_tl161258161273_ (##cdr _e161256161268_))) - (let ((_body161276_ _tl161258161273_)) + _e161183161190_))) + (_E161184161208_ + (lambda () + (if (gx#stx-pair? _e161183161190_) + (let ((_e161186161198_ (gx#syntax-e _e161183161190_))) + (let ((_hd161187161201_ (##car _e161186161198_)) + (_tl161188161203_ (##cdr _e161186161198_))) + (let ((_body161206_ _tl161188161203_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _body161276_)) - (_E161255161264_))))) - (_E161255161264_))))) - (_E161254161278_)))) + _body161206_)) + (_E161185161194_))))) + (_E161185161194_))))) + (_E161184161208_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_stx161221_) - (let* ((_e161222161229_ _stx161221_) - (_E161224161233_ + (lambda (_stx161151_) + (let* ((_e161152161159_ _stx161151_) + (_E161154161163_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161222161229_))) - (_E161223161248_ - (lambda () - (if (gx#stx-pair? _e161222161229_) - (let ((_e161225161237_ (gx#syntax-e _e161222161229_))) - (let ((_hd161226161240_ (##car _e161225161237_)) - (_tl161227161242_ (##cdr _e161225161237_))) - (let ((_body161245_ _tl161227161242_)) + _e161152161159_))) + (_E161153161178_ + (lambda () + (if (gx#stx-pair? _e161152161159_) + (let ((_e161155161167_ (gx#syntax-e _e161152161159_))) + (let ((_hd161156161170_ (##car _e161155161167_)) + (_tl161157161172_ (##cdr _e161155161167_))) + (let ((_body161175_ _tl161157161172_)) (if '#t (cons '%#begin-syntax (call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _body161245_)) + _body161175_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - (_E161224161233_))))) - (_E161224161233_))))) - (_E161223161248_)))) + (_E161154161163_))))) + (_E161154161163_))))) + (_E161153161178_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_stx161191_) - (let* ((_e161192161199_ _stx161191_) - (_E161194161203_ + (lambda (_stx161121_) + (let* ((_e161122161129_ _stx161121_) + (_E161124161133_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161192161199_))) - (_E161193161217_ - (lambda () - (if (gx#stx-pair? _e161192161199_) - (let ((_e161195161207_ (gx#syntax-e _e161192161199_))) - (let ((_hd161196161210_ (##car _e161195161207_)) - (_tl161197161212_ (##cdr _e161195161207_))) - (let ((_body161215_ _tl161197161212_)) + _e161122161129_))) + (_E161123161147_ + (lambda () + (if (gx#stx-pair? _e161122161129_) + (let ((_e161125161137_ (gx#syntax-e _e161122161129_))) + (let ((_hd161126161140_ (##car _e161125161137_)) + (_tl161127161142_ (##cdr _e161125161137_))) + (let ((_body161145_ _tl161127161142_)) (if '#t - (cons '%#begin-foreign _body161215_) - (_E161194161203_))))) - (_E161194161203_))))) - (_E161193161217_)))) + (cons '%#begin-foreign _body161145_) + (_E161124161133_))))) + (_E161124161133_))))) + (_E161123161147_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_stx161137_) - (let* ((_e161138161151_ _stx161137_) - (_E161140161155_ + (lambda (_stx161067_) + (let* ((_e161068161081_ _stx161067_) + (_E161070161085_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161138161151_))) - (_E161139161187_ - (lambda () - (if (gx#stx-pair? _e161138161151_) - (let ((_e161141161159_ (gx#syntax-e _e161138161151_))) - (let ((_hd161142161162_ (##car _e161141161159_)) - (_tl161143161164_ (##cdr _e161141161159_))) - (if (gx#stx-pair? _tl161143161164_) - (let ((_e161144161167_ - (gx#syntax-e _tl161143161164_))) - (let ((_hd161145161170_ - (##car _e161144161167_)) - (_tl161146161172_ - (##cdr _e161144161167_))) - (let ((_ann161175_ _hd161145161170_)) - (if (gx#stx-pair? _tl161146161172_) - (let ((_e161147161177_ - (gx#syntax-e _tl161146161172_))) - (let ((_hd161148161180_ - (##car _e161147161177_)) - (_tl161149161182_ - (##cdr _e161147161177_))) - (let ((_expr161185_ - _hd161148161180_)) + _e161068161081_))) + (_E161069161117_ + (lambda () + (if (gx#stx-pair? _e161068161081_) + (let ((_e161071161089_ (gx#syntax-e _e161068161081_))) + (let ((_hd161072161092_ (##car _e161071161089_)) + (_tl161073161094_ (##cdr _e161071161089_))) + (if (gx#stx-pair? _tl161073161094_) + (let ((_e161074161097_ + (gx#syntax-e _tl161073161094_))) + (let ((_hd161075161100_ + (##car _e161074161097_)) + (_tl161076161102_ + (##cdr _e161074161097_))) + (let ((_ann161105_ _hd161075161100_)) + (if (gx#stx-pair? _tl161076161102_) + (let ((_e161077161107_ + (gx#syntax-e _tl161076161102_))) + (let ((_hd161078161110_ + (##car _e161077161107_)) + (_tl161079161112_ + (##cdr _e161077161107_))) + (let ((_expr161115_ + _hd161078161110_)) (if (gx#stx-null? - _tl161149161182_) + _tl161079161112_) (if '#t (gx#core-compile-top-syntax - _expr161185_) - (_E161140161155_)) - (_E161140161155_))))) - (_E161140161155_))))) - (_E161140161155_)))) - (_E161140161155_))))) - (_E161139161187_)))) + _expr161115_) + (_E161070161085_)) + (_E161070161085_))))) + (_E161070161085_))))) + (_E161070161085_)))) + (_E161070161085_))))) + (_E161069161117_)))) (define gx#core-compile-top-import% - (lambda (_stx161107_) - (let* ((_e161108161115_ _stx161107_) - (_E161110161119_ + (lambda (_stx161037_) + (let* ((_e161038161045_ _stx161037_) + (_E161040161049_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161108161115_))) - (_E161109161133_ - (lambda () - (if (gx#stx-pair? _e161108161115_) - (let ((_e161111161123_ (gx#syntax-e _e161108161115_))) - (let ((_hd161112161126_ (##car _e161111161123_)) - (_tl161113161128_ (##cdr _e161111161123_))) - (let ((_body161131_ _tl161113161128_)) + _e161038161045_))) + (_E161039161063_ + (lambda () + (if (gx#stx-pair? _e161038161045_) + (let ((_e161041161053_ (gx#syntax-e _e161038161045_))) + (let ((_hd161042161056_ (##car _e161041161053_)) + (_tl161043161058_ (##cdr _e161041161053_))) + (let ((_body161061_ _tl161043161058_)) (if '#t - (cons '%#import _body161131_) - (_E161110161119_))))) - (_E161110161119_))))) - (_E161109161133_)))) + (cons '%#import _body161061_) + (_E161040161049_))))) + (_E161040161049_))))) + (_E161039161063_)))) (define gx#core-compile-top-module% - (lambda (_stx161064_) - (let* ((_e161065161075_ _stx161064_) - (_E161067161079_ + (lambda (_stx160994_) + (let* ((_e160995161005_ _stx160994_) + (_E160997161009_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161065161075_))) - (_E161066161103_ - (lambda () - (if (gx#stx-pair? _e161065161075_) - (let ((_e161068161083_ (gx#syntax-e _e161065161075_))) - (let ((_hd161069161086_ (##car _e161068161083_)) - (_tl161070161088_ (##cdr _e161068161083_))) - (if (gx#stx-pair? _tl161070161088_) - (let ((_e161071161091_ - (gx#syntax-e _tl161070161088_))) - (let ((_hd161072161094_ - (##car _e161071161091_)) - (_tl161073161096_ - (##cdr _e161071161091_))) - (let* ((_hd161099_ _hd161072161094_) - (_body161101_ _tl161073161096_)) + _e160995161005_))) + (_E160996161033_ + (lambda () + (if (gx#stx-pair? _e160995161005_) + (let ((_e160998161013_ (gx#syntax-e _e160995161005_))) + (let ((_hd160999161016_ (##car _e160998161013_)) + (_tl161000161018_ (##cdr _e160998161013_))) + (if (gx#stx-pair? _tl161000161018_) + (let ((_e161001161021_ + (gx#syntax-e _tl161000161018_))) + (let ((_hd161002161024_ + (##car _e161001161021_)) + (_tl161003161026_ + (##cdr _e161001161021_))) + (let* ((_hd161029_ _hd161002161024_) + (_body161031_ _tl161003161026_)) (if '#t (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _hd161099_) + _hd161029_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _body161101_))) - (_E161067161079_))))) - (_E161067161079_)))) - (_E161067161079_))))) - (_E161066161103_)))) + _body161031_))) + (_E160997161009_))))) + (_E160997161009_)))) + (_E160997161009_))))) + (_E160996161033_)))) (define gx#core-compile-top-export% - (lambda (_stx161034_) - (let* ((_e161035161042_ _stx161034_) - (_E161037161046_ + (lambda (_stx160964_) + (let* ((_e160965160972_ _stx160964_) + (_E160967160976_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161035161042_))) - (_E161036161060_ - (lambda () - (if (gx#stx-pair? _e161035161042_) - (let ((_e161038161050_ (gx#syntax-e _e161035161042_))) - (let ((_hd161039161053_ (##car _e161038161050_)) - (_tl161040161055_ (##cdr _e161038161050_))) - (let ((_body161058_ _tl161040161055_)) + _e160965160972_))) + (_E160966160990_ + (lambda () + (if (gx#stx-pair? _e160965160972_) + (let ((_e160968160980_ (gx#syntax-e _e160965160972_))) + (let ((_hd160969160983_ (##car _e160968160980_)) + (_tl160970160985_ (##cdr _e160968160980_))) + (let ((_body160988_ _tl160970160985_)) (if '#t - (cons '%#export _body161058_) - (_E161037161046_))))) - (_E161037161046_))))) - (_E161036161060_)))) + (cons '%#export _body160988_) + (_E160967160976_))))) + (_E160967160976_))))) + (_E160966160990_)))) (define gx#core-compile-top-provide% - (lambda (_stx161004_) - (let* ((_e161005161012_ _stx161004_) - (_E161007161016_ + (lambda (_stx160934_) + (let* ((_e160935160942_ _stx160934_) + (_E160937160946_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161005161012_))) - (_E161006161030_ - (lambda () - (if (gx#stx-pair? _e161005161012_) - (let ((_e161008161020_ (gx#syntax-e _e161005161012_))) - (let ((_hd161009161023_ (##car _e161008161020_)) - (_tl161010161025_ (##cdr _e161008161020_))) - (let ((_body161028_ _tl161010161025_)) + _e160935160942_))) + (_E160936160960_ + (lambda () + (if (gx#stx-pair? _e160935160942_) + (let ((_e160938160950_ (gx#syntax-e _e160935160942_))) + (let ((_hd160939160953_ (##car _e160938160950_)) + (_tl160940160955_ (##cdr _e160938160950_))) + (let ((_body160958_ _tl160940160955_)) (if '#t - (cons '%#provide _body161028_) - (_E161007161016_))))) - (_E161007161016_))))) - (_E161006161030_)))) + (cons '%#provide _body160958_) + (_E160937160946_))))) + (_E160937160946_))))) + (_E160936160960_)))) (define gx#core-compile-top-extern% - (lambda (_stx160974_) - (let* ((_e160975160982_ _stx160974_) - (_E160977160986_ + (lambda (_stx160904_) + (let* ((_e160905160912_ _stx160904_) + (_E160907160916_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160975160982_))) - (_E160976161000_ - (lambda () - (if (gx#stx-pair? _e160975160982_) - (let ((_e160978160990_ (gx#syntax-e _e160975160982_))) - (let ((_hd160979160993_ (##car _e160978160990_)) - (_tl160980160995_ (##cdr _e160978160990_))) - (let ((_body160998_ _tl160980160995_)) + _e160905160912_))) + (_E160906160930_ + (lambda () + (if (gx#stx-pair? _e160905160912_) + (let ((_e160908160920_ (gx#syntax-e _e160905160912_))) + (let ((_hd160909160923_ (##car _e160908160920_)) + (_tl160910160925_ (##cdr _e160908160920_))) + (let ((_body160928_ _tl160910160925_)) (if '#t - (cons '%#extern _body160998_) - (_E160977160986_))))) - (_E160977160986_))))) - (_E160976161000_)))) + (cons '%#extern _body160928_) + (_E160907160916_))))) + (_E160907160916_))))) + (_E160906160930_)))) (define gx#core-compile-top-define-values% - (lambda (_stx160920_) - (let* ((_e160921160934_ _stx160920_) - (_E160923160938_ + (lambda (_stx160850_) + (let* ((_e160851160864_ _stx160850_) + (_E160853160868_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160921160934_))) - (_E160922160970_ - (lambda () - (if (gx#stx-pair? _e160921160934_) - (let ((_e160924160942_ (gx#syntax-e _e160921160934_))) - (let ((_hd160925160945_ (##car _e160924160942_)) - (_tl160926160947_ (##cdr _e160924160942_))) - (if (gx#stx-pair? _tl160926160947_) - (let ((_e160927160950_ - (gx#syntax-e _tl160926160947_))) - (let ((_hd160928160953_ - (##car _e160927160950_)) - (_tl160929160955_ - (##cdr _e160927160950_))) - (let ((_hd160958_ _hd160928160953_)) - (if (gx#stx-pair? _tl160929160955_) - (let ((_e160930160960_ - (gx#syntax-e _tl160929160955_))) - (let ((_hd160931160963_ - (##car _e160930160960_)) - (_tl160932160965_ - (##cdr _e160930160960_))) - (let ((_expr160968_ - _hd160931160963_)) + _e160851160864_))) + (_E160852160900_ + (lambda () + (if (gx#stx-pair? _e160851160864_) + (let ((_e160854160872_ (gx#syntax-e _e160851160864_))) + (let ((_hd160855160875_ (##car _e160854160872_)) + (_tl160856160877_ (##cdr _e160854160872_))) + (if (gx#stx-pair? _tl160856160877_) + (let ((_e160857160880_ + (gx#syntax-e _tl160856160877_))) + (let ((_hd160858160883_ + (##car _e160857160880_)) + (_tl160859160885_ + (##cdr _e160857160880_))) + (let ((_hd160888_ _hd160858160883_)) + (if (gx#stx-pair? _tl160859160885_) + (let ((_e160860160890_ + (gx#syntax-e _tl160859160885_))) + (let ((_hd160861160893_ + (##car _e160860160890_)) + (_tl160862160895_ + (##cdr _e160860160890_))) + (let ((_expr160898_ + _hd160861160893_)) (if (gx#stx-null? - _tl160932160965_) + _tl160862160895_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _hd160958_) - (cons (gx#core-compile-top-syntax _expr160968_) + _hd160888_) + (cons (gx#core-compile-top-syntax _expr160898_) '()))) - (_E160923160938_)) + (_E160853160868_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160923160938_))))) - (_E160923160938_))))) - (_E160923160938_)))) - (_E160923160938_))))) - (_E160922160970_)))) + (_E160853160868_))))) + (_E160853160868_))))) + (_E160853160868_)))) + (_E160853160868_))))) + (_E160852160900_)))) (define gx#core-compile-top-define-syntax% - (lambda (_stx160865_) - (let* ((_e160866160879_ _stx160865_) - (_E160868160883_ + (lambda (_stx160795_) + (let* ((_e160796160809_ _stx160795_) + (_E160798160813_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160866160879_))) - (_E160867160916_ - (lambda () - (if (gx#stx-pair? _e160866160879_) - (let ((_e160869160887_ (gx#syntax-e _e160866160879_))) - (let ((_hd160870160890_ (##car _e160869160887_)) - (_tl160871160892_ (##cdr _e160869160887_))) - (if (gx#stx-pair? _tl160871160892_) - (let ((_e160872160895_ - (gx#syntax-e _tl160871160892_))) - (let ((_hd160873160898_ - (##car _e160872160895_)) - (_tl160874160900_ - (##cdr _e160872160895_))) - (let ((_hd160903_ _hd160873160898_)) - (if (gx#stx-pair? _tl160874160900_) - (let ((_e160875160905_ - (gx#syntax-e _tl160874160900_))) - (let ((_hd160876160908_ - (##car _e160875160905_)) - (_tl160877160910_ - (##cdr _e160875160905_))) - (let ((_expr160913_ - _hd160876160908_)) + _e160796160809_))) + (_E160797160846_ + (lambda () + (if (gx#stx-pair? _e160796160809_) + (let ((_e160799160817_ (gx#syntax-e _e160796160809_))) + (let ((_hd160800160820_ (##car _e160799160817_)) + (_tl160801160822_ (##cdr _e160799160817_))) + (if (gx#stx-pair? _tl160801160822_) + (let ((_e160802160825_ + (gx#syntax-e _tl160801160822_))) + (let ((_hd160803160828_ + (##car _e160802160825_)) + (_tl160804160830_ + (##cdr _e160802160825_))) + (let ((_hd160833_ _hd160803160828_)) + (if (gx#stx-pair? _tl160804160830_) + (let ((_e160805160835_ + (gx#syntax-e _tl160804160830_))) + (let ((_hd160806160838_ + (##car _e160805160835_)) + (_tl160807160840_ + (##cdr _e160805160835_))) + (let ((_expr160843_ + _hd160806160838_)) (if (gx#stx-null? - _tl160877160910_) + _tl160807160840_) (if '#t (cons '%#define-syntax - (cons _hd160903_ + (cons _hd160833_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (call-with-parameters (lambda () - (gx#core-compile-top-syntax _expr160913_)) + (gx#core-compile-top-syntax _expr160843_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)) '()))) - (_E160868160883_)) + (_E160798160813_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160868160883_))))) - (_E160868160883_))))) - (_E160868160883_)))) - (_E160868160883_))))) - (_E160867160916_)))) + (_E160798160813_))))) + (_E160798160813_))))) + (_E160798160813_)))) + (_E160798160813_))))) + (_E160797160846_)))) (define gx#core-compile-top-define-alias% - (lambda (_stx160835_) - (let* ((_e160836160843_ _stx160835_) - (_E160838160847_ + (lambda (_stx160765_) + (let* ((_e160766160773_ _stx160765_) + (_E160768160777_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160836160843_))) - (_E160837160861_ - (lambda () - (if (gx#stx-pair? _e160836160843_) - (let ((_e160839160851_ (gx#syntax-e _e160836160843_))) - (let ((_hd160840160854_ (##car _e160839160851_)) - (_tl160841160856_ (##cdr _e160839160851_))) - (let ((_body160859_ _tl160841160856_)) + _e160766160773_))) + (_E160767160791_ + (lambda () + (if (gx#stx-pair? _e160766160773_) + (let ((_e160769160781_ (gx#syntax-e _e160766160773_))) + (let ((_hd160770160784_ (##car _e160769160781_)) + (_tl160771160786_ (##cdr _e160769160781_))) + (let ((_body160789_ _tl160771160786_)) (if '#t - (cons '%#define-alias _body160859_) - (_E160838160847_))))) - (_E160838160847_))))) - (_E160837160861_)))) + (cons '%#define-alias _body160789_) + (_E160768160777_))))) + (_E160768160777_))))) + (_E160767160791_)))) (define gx#core-compile-top-define-runtime% - (lambda (_stx160805_) - (let* ((_e160806160813_ _stx160805_) - (_E160808160817_ + (lambda (_stx160735_) + (let* ((_e160736160743_ _stx160735_) + (_E160738160747_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160806160813_))) - (_E160807160831_ - (lambda () - (if (gx#stx-pair? _e160806160813_) - (let ((_e160809160821_ (gx#syntax-e _e160806160813_))) - (let ((_hd160810160824_ (##car _e160809160821_)) - (_tl160811160826_ (##cdr _e160809160821_))) - (let ((_body160829_ _tl160811160826_)) + _e160736160743_))) + (_E160737160761_ + (lambda () + (if (gx#stx-pair? _e160736160743_) + (let ((_e160739160751_ (gx#syntax-e _e160736160743_))) + (let ((_hd160740160754_ (##car _e160739160751_)) + (_tl160741160756_ (##cdr _e160739160751_))) + (let ((_body160759_ _tl160741160756_)) (if '#t - (cons '%#define-runtime _body160829_) - (_E160808160817_))))) - (_E160808160817_))))) - (_E160807160831_)))) + (cons '%#define-runtime _body160759_) + (_E160738160747_))))) + (_E160738160747_))))) + (_E160737160761_)))) (define gx#core-compile-top-declare% - (lambda (_stx160775_) - (let* ((_e160776160783_ _stx160775_) - (_E160778160787_ + (lambda (_stx160705_) + (let* ((_e160706160713_ _stx160705_) + (_E160708160717_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160776160783_))) - (_E160777160801_ - (lambda () - (if (gx#stx-pair? _e160776160783_) - (let ((_e160779160791_ (gx#syntax-e _e160776160783_))) - (let ((_hd160780160794_ (##car _e160779160791_)) - (_tl160781160796_ (##cdr _e160779160791_))) - (let ((_decls160799_ _tl160781160796_)) + _e160706160713_))) + (_E160707160731_ + (lambda () + (if (gx#stx-pair? _e160706160713_) + (let ((_e160709160721_ (gx#syntax-e _e160706160713_))) + (let ((_hd160710160724_ (##car _e160709160721_)) + (_tl160711160726_ (##cdr _e160709160721_))) + (let ((_decls160729_ _tl160711160726_)) (if '#t - (cons '%#declare _decls160799_) - (_E160778160787_))))) - (_E160778160787_))))) - (_E160777160801_)))) + (cons '%#declare _decls160729_) + (_E160708160717_))))) + (_E160708160717_))))) + (_E160707160731_)))) (define gx#core-compile-top-lambda% - (lambda (_stx160745_) - (let* ((_e160746160753_ _stx160745_) - (_E160748160757_ + (lambda (_stx160675_) + (let* ((_e160676160683_ _stx160675_) + (_E160678160687_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160746160753_))) - (_E160747160771_ - (lambda () - (if (gx#stx-pair? _e160746160753_) - (let ((_e160749160761_ (gx#syntax-e _e160746160753_))) - (let ((_hd160750160764_ (##car _e160749160761_)) - (_tl160751160766_ (##cdr _e160749160761_))) - (let ((_clause160769_ _tl160751160766_)) + _e160676160683_))) + (_E160677160701_ + (lambda () + (if (gx#stx-pair? _e160676160683_) + (let ((_e160679160691_ (gx#syntax-e _e160676160683_))) + (let ((_hd160680160694_ (##car _e160679160691_)) + (_tl160681160696_ (##cdr _e160679160691_))) + (let ((_clause160699_ _tl160681160696_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _clause160769_)) - (_E160748160757_))))) - (_E160748160757_))))) - (_E160747160771_)))) + _clause160699_)) + (_E160678160687_))))) + (_E160678160687_))))) + (_E160677160701_)))) (define gx#core-compile-top-lambda-clause - (lambda (_stx160702_) - (let* ((_e160703160713_ _stx160702_) - (_E160705160717_ + (lambda (_stx160632_) + (let* ((_e160633160643_ _stx160632_) + (_E160635160647_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160703160713_))) - (_E160704160741_ - (lambda () - (if (gx#stx-pair? _e160703160713_) - (let ((_e160706160721_ (gx#syntax-e _e160703160713_))) - (let ((_hd160707160724_ (##car _e160706160721_)) - (_tl160708160726_ (##cdr _e160706160721_))) - (let ((_hd160729_ _hd160707160724_)) - (if (gx#stx-pair? _tl160708160726_) - (let ((_e160709160731_ - (gx#syntax-e _tl160708160726_))) - (let ((_hd160710160734_ - (##car _e160709160731_)) - (_tl160711160736_ - (##cdr _e160709160731_))) - (let ((_body160739_ _hd160710160734_)) - (if (gx#stx-null? _tl160711160736_) + _e160633160643_))) + (_E160634160671_ + (lambda () + (if (gx#stx-pair? _e160633160643_) + (let ((_e160636160651_ (gx#syntax-e _e160633160643_))) + (let ((_hd160637160654_ (##car _e160636160651_)) + (_tl160638160656_ (##cdr _e160636160651_))) + (let ((_hd160659_ _hd160637160654_)) + (if (gx#stx-pair? _tl160638160656_) + (let ((_e160639160661_ + (gx#syntax-e _tl160638160656_))) + (let ((_hd160640160664_ + (##car _e160639160661_)) + (_tl160641160666_ + (##cdr _e160639160661_))) + (let ((_body160669_ _hd160640160664_)) + (if (gx#stx-null? _tl160641160666_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _hd160729_) + _hd160659_) (cons (gx#core-compile-top-syntax - _body160739_) + _body160669_) '())) - (_E160705160717_)) - (_E160705160717_))))) - (_E160705160717_))))) - (_E160705160717_))))) - (_E160704160741_)))) + (_E160635160647_)) + (_E160635160647_))))) + (_E160635160647_))))) + (_E160635160647_))))) + (_E160634160671_)))) (define gx#core-compile-top-case-lambda% - (lambda (_stx160672_) - (let* ((_e160673160680_ _stx160672_) - (_E160675160684_ + (lambda (_stx160602_) + (let* ((_e160603160610_ _stx160602_) + (_E160605160614_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160673160680_))) - (_E160674160698_ - (lambda () - (if (gx#stx-pair? _e160673160680_) - (let ((_e160676160688_ (gx#syntax-e _e160673160680_))) - (let ((_hd160677160691_ (##car _e160676160688_)) - (_tl160678160693_ (##cdr _e160676160688_))) - (let ((_clauses160696_ _tl160678160693_)) + _e160603160610_))) + (_E160604160628_ + (lambda () + (if (gx#stx-pair? _e160603160610_) + (let ((_e160606160618_ (gx#syntax-e _e160603160610_))) + (let ((_hd160607160621_ (##car _e160606160618_)) + (_tl160608160623_ (##cdr _e160606160618_))) + (let ((_clauses160626_ _tl160608160623_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _clauses160696_)) - (_E160675160684_))))) - (_E160675160684_))))) - (_E160674160698_)))) + _clauses160626_)) + (_E160605160614_))))) + (_E160605160614_))))) + (_E160604160628_)))) (define gx#core-compile-top-let-values%__% - (lambda (_stx160607_ _form160608_) - (let* ((_e160609160622_ _stx160607_) - (_E160611160626_ + (lambda (_stx160537_ _form160538_) + (let* ((_e160539160552_ _stx160537_) + (_E160541160556_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160609160622_))) - (_E160610160658_ - (lambda () - (if (gx#stx-pair? _e160609160622_) - (let ((_e160612160630_ (gx#syntax-e _e160609160622_))) - (let ((_hd160613160633_ (##car _e160612160630_)) - (_tl160614160635_ (##cdr _e160612160630_))) - (if (gx#stx-pair? _tl160614160635_) - (let ((_e160615160638_ - (gx#syntax-e _tl160614160635_))) - (let ((_hd160616160641_ - (##car _e160615160638_)) - (_tl160617160643_ - (##cdr _e160615160638_))) - (let ((_hd160646_ _hd160616160641_)) - (if (gx#stx-pair? _tl160617160643_) - (let ((_e160618160648_ - (gx#syntax-e _tl160617160643_))) - (let ((_hd160619160651_ - (##car _e160618160648_)) - (_tl160620160653_ - (##cdr _e160618160648_))) - (let ((_body160656_ - _hd160619160651_)) + _e160539160552_))) + (_E160540160588_ + (lambda () + (if (gx#stx-pair? _e160539160552_) + (let ((_e160542160560_ (gx#syntax-e _e160539160552_))) + (let ((_hd160543160563_ (##car _e160542160560_)) + (_tl160544160565_ (##cdr _e160542160560_))) + (if (gx#stx-pair? _tl160544160565_) + (let ((_e160545160568_ + (gx#syntax-e _tl160544160565_))) + (let ((_hd160546160571_ + (##car _e160545160568_)) + (_tl160547160573_ + (##cdr _e160545160568_))) + (let ((_hd160576_ _hd160546160571_)) + (if (gx#stx-pair? _tl160547160573_) + (let ((_e160548160578_ + (gx#syntax-e _tl160547160573_))) + (let ((_hd160549160581_ + (##car _e160548160578_)) + (_tl160550160583_ + (##cdr _e160548160578_))) + (let ((_body160586_ + _hd160549160581_)) (if (gx#stx-null? - _tl160620160653_) + _tl160550160583_) (if '#t - (cons _form160608_ + (cons _form160538_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _hd160646_) - (cons (gx#core-compile-top-syntax _body160656_) + _hd160576_) + (cons (gx#core-compile-top-syntax _body160586_) '()))) - (_E160611160626_)) + (_E160541160556_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160611160626_))))) - (_E160611160626_))))) - (_E160611160626_)))) - (_E160611160626_))))) - (_E160610160658_)))) + (_E160541160556_))))) + (_E160541160556_))))) + (_E160541160556_)))) + (_E160541160556_))))) + (_E160540160588_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_stx160665_) - (let ((_form160667_ '%#let-values)) - (gx#core-compile-top-let-values%__% _stx160665_ _form160667_)))) + (lambda (_stx160595_) + (let ((_form160597_ '%#let-values)) + (gx#core-compile-top-let-values%__% _stx160595_ _form160597_)))) (define gx#core-compile-top-let-values% - (lambda _g165674_ - (let ((_g165673_ (##length _g165674_))) - (cond ((##fx= _g165673_ 1) - (apply (lambda (_stx160665_) - (gx#core-compile-top-let-values%__0 _stx160665_)) - _g165674_)) - ((##fx= _g165673_ 2) - (apply (lambda (_stx160669_ _form160670_) + (lambda _g165604_ + (let ((_g165603_ (##length _g165604_))) + (cond ((##fx= _g165603_ 1) + (apply (lambda (_stx160595_) + (gx#core-compile-top-let-values%__0 _stx160595_)) + _g165604_)) + ((##fx= _g165603_ 2) + (apply (lambda (_stx160599_ _form160600_) (gx#core-compile-top-let-values%__% - _stx160669_ - _form160670_)) - _g165674_)) + _stx160599_ + _form160600_)) + _g165604_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g165674_)))))) + _g165604_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_stx160604_) - (gx#core-compile-top-let-values%__% _stx160604_ '%#letrec-values))) + (lambda (_stx160534_) + (gx#core-compile-top-let-values%__% _stx160534_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_stx160602_) - (gx#core-compile-top-let-values%__% _stx160602_ '%#letrec*-values))) + (lambda (_stx160532_) + (gx#core-compile-top-let-values%__% _stx160532_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_stx160561_) - (let* ((_e160562160572_ _stx160561_) - (_E160564160576_ + (lambda (_stx160491_) + (let* ((_e160492160502_ _stx160491_) + (_E160494160506_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160562160572_))) - (_E160563160598_ - (lambda () - (if (gx#stx-pair? _e160562160572_) - (let ((_e160565160580_ (gx#syntax-e _e160562160572_))) - (let ((_hd160566160583_ (##car _e160565160580_)) - (_tl160567160585_ (##cdr _e160565160580_))) - (if (gx#stx-pair? _tl160567160585_) - (let ((_e160568160588_ - (gx#syntax-e _tl160567160585_))) - (let ((_hd160569160591_ - (##car _e160568160588_)) - (_tl160570160593_ - (##cdr _e160568160588_))) - (let ((_e160596_ _hd160569160591_)) - (if (gx#stx-null? _tl160570160593_) + _e160492160502_))) + (_E160493160528_ + (lambda () + (if (gx#stx-pair? _e160492160502_) + (let ((_e160495160510_ (gx#syntax-e _e160492160502_))) + (let ((_hd160496160513_ (##car _e160495160510_)) + (_tl160497160515_ (##cdr _e160495160510_))) + (if (gx#stx-pair? _tl160497160515_) + (let ((_e160498160518_ + (gx#syntax-e _tl160497160515_))) + (let ((_hd160499160521_ + (##car _e160498160518_)) + (_tl160500160523_ + (##cdr _e160498160518_))) + (let ((_e160526_ _hd160499160521_)) + (if (gx#stx-null? _tl160500160523_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _e160596_) + _e160526_) '())) - (_E160564160576_)) - (_E160564160576_))))) - (_E160564160576_)))) - (_E160564160576_))))) - (_E160563160598_)))) + (_E160494160506_)) + (_E160494160506_))))) + (_E160494160506_)))) + (_E160494160506_))))) + (_E160493160528_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_stx160520_) - (let* ((_e160521160531_ _stx160520_) - (_E160523160535_ + (lambda (_stx160450_) + (let* ((_e160451160461_ _stx160450_) + (_E160453160465_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160521160531_))) - (_E160522160557_ - (lambda () - (if (gx#stx-pair? _e160521160531_) - (let ((_e160524160539_ (gx#syntax-e _e160521160531_))) - (let ((_hd160525160542_ (##car _e160524160539_)) - (_tl160526160544_ (##cdr _e160524160539_))) - (if (gx#stx-pair? _tl160526160544_) - (let ((_e160527160547_ - (gx#syntax-e _tl160526160544_))) - (let ((_hd160528160550_ - (##car _e160527160547_)) - (_tl160529160552_ - (##cdr _e160527160547_))) - (let ((_e160555_ _hd160528160550_)) - (if (gx#stx-null? _tl160529160552_) + _e160451160461_))) + (_E160452160487_ + (lambda () + (if (gx#stx-pair? _e160451160461_) + (let ((_e160454160469_ (gx#syntax-e _e160451160461_))) + (let ((_hd160455160472_ (##car _e160454160469_)) + (_tl160456160474_ (##cdr _e160454160469_))) + (if (gx#stx-pair? _tl160456160474_) + (let ((_e160457160477_ + (gx#syntax-e _tl160456160474_))) + (let ((_hd160458160480_ + (##car _e160457160477_)) + (_tl160459160482_ + (##cdr _e160457160477_))) + (let ((_e160485_ _hd160458160480_)) + (if (gx#stx-null? _tl160459160482_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _e160555_) + _e160485_) '())) - (_E160523160535_)) - (_E160523160535_))))) - (_E160523160535_)))) - (_E160523160535_))))) - (_E160522160557_)))) + (_E160453160465_)) + (_E160453160465_))))) + (_E160453160465_)))) + (_E160453160465_))))) + (_E160452160487_)))) (define gx#core-compile-top-call% - (lambda (_stx160477_) - (let* ((_e160478160488_ _stx160477_) - (_E160480160492_ + (lambda (_stx160407_) + (let* ((_e160408160418_ _stx160407_) + (_E160410160422_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160478160488_))) - (_E160479160516_ - (lambda () - (if (gx#stx-pair? _e160478160488_) - (let ((_e160481160496_ (gx#syntax-e _e160478160488_))) - (let ((_hd160482160499_ (##car _e160481160496_)) - (_tl160483160501_ (##cdr _e160481160496_))) - (if (gx#stx-pair? _tl160483160501_) - (let ((_e160484160504_ - (gx#syntax-e _tl160483160501_))) - (let ((_hd160485160507_ - (##car _e160484160504_)) - (_tl160486160509_ - (##cdr _e160484160504_))) - (let* ((_rator160512_ _hd160485160507_) - (_args160514_ _tl160486160509_)) + _e160408160418_))) + (_E160409160446_ + (lambda () + (if (gx#stx-pair? _e160408160418_) + (let ((_e160411160426_ (gx#syntax-e _e160408160418_))) + (let ((_hd160412160429_ (##car _e160411160426_)) + (_tl160413160431_ (##cdr _e160411160426_))) + (if (gx#stx-pair? _tl160413160431_) + (let ((_e160414160434_ + (gx#syntax-e _tl160413160431_))) + (let ((_hd160415160437_ + (##car _e160414160434_)) + (_tl160416160439_ + (##cdr _e160414160434_))) + (let* ((_rator160442_ _hd160415160437_) + (_args160444_ _tl160416160439_)) (if '#t (cons '%#call (cons (gx#core-compile-top-syntax - _rator160512_) + _rator160442_) (gx#stx-map1 gx#core-compile-top-syntax - _args160514_))) - (_E160480160492_))))) - (_E160480160492_)))) - (_E160480160492_))))) - (_E160479160516_)))) + _args160444_))) + (_E160410160422_))))) + (_E160410160422_)))) + (_E160410160422_))))) + (_E160409160446_)))) (define gx#core-compile-top-if% - (lambda (_stx160410_) - (let* ((_e160411160427_ _stx160410_) - (_E160413160431_ + (lambda (_stx160340_) + (let* ((_e160341160357_ _stx160340_) + (_E160343160361_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160411160427_))) - (_E160412160473_ - (lambda () - (if (gx#stx-pair? _e160411160427_) - (let ((_e160414160435_ (gx#syntax-e _e160411160427_))) - (let ((_hd160415160438_ (##car _e160414160435_)) - (_tl160416160440_ (##cdr _e160414160435_))) - (if (gx#stx-pair? _tl160416160440_) - (let ((_e160417160443_ - (gx#syntax-e _tl160416160440_))) - (let ((_hd160418160446_ - (##car _e160417160443_)) - (_tl160419160448_ - (##cdr _e160417160443_))) - (let ((_test160451_ _hd160418160446_)) - (if (gx#stx-pair? _tl160419160448_) - (let ((_e160420160453_ - (gx#syntax-e _tl160419160448_))) - (let ((_hd160421160456_ - (##car _e160420160453_)) - (_tl160422160458_ - (##cdr _e160420160453_))) - (let ((_K160461_ _hd160421160456_)) + _e160341160357_))) + (_E160342160403_ + (lambda () + (if (gx#stx-pair? _e160341160357_) + (let ((_e160344160365_ (gx#syntax-e _e160341160357_))) + (let ((_hd160345160368_ (##car _e160344160365_)) + (_tl160346160370_ (##cdr _e160344160365_))) + (if (gx#stx-pair? _tl160346160370_) + (let ((_e160347160373_ + (gx#syntax-e _tl160346160370_))) + (let ((_hd160348160376_ + (##car _e160347160373_)) + (_tl160349160378_ + (##cdr _e160347160373_))) + (let ((_test160381_ _hd160348160376_)) + (if (gx#stx-pair? _tl160349160378_) + (let ((_e160350160383_ + (gx#syntax-e _tl160349160378_))) + (let ((_hd160351160386_ + (##car _e160350160383_)) + (_tl160352160388_ + (##cdr _e160350160383_))) + (let ((_K160391_ _hd160351160386_)) (if (gx#stx-pair? - _tl160422160458_) - (let ((_e160423160463_ + _tl160352160388_) + (let ((_e160353160393_ (gx#syntax-e - _tl160422160458_))) - (let ((_hd160424160466_ - (##car _e160423160463_)) - (_tl160425160468_ - (##cdr _e160423160463_))) - (let ((_E160471_ - _hd160424160466_)) + _tl160352160388_))) + (let ((_hd160354160396_ + (##car _e160353160393_)) + (_tl160355160398_ + (##cdr _e160353160393_))) + (let ((_E160401_ + _hd160354160396_)) (if (gx#stx-null? - _tl160425160468_) + _tl160355160398_) (if '#t (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _test160451_) + (cons (gx#core-compile-top-syntax _test160381_) (cons (gx#core-compile-top-syntax - _K160461_) + _K160391_) (cons (gx#core-compile-top-syntax - _E160471_) + _E160401_) '())))) - (_E160413160431_)) - (_E160413160431_))))) + (_E160343160361_)) + (_E160343160361_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160413160431_))))) - (_E160413160431_))))) - (_E160413160431_)))) - (_E160413160431_))))) - (_E160412160473_)))) + (_E160343160361_))))) + (_E160343160361_))))) + (_E160343160361_)))) + (_E160343160361_))))) + (_E160342160403_)))) (define gx#core-compile-top-ref% - (lambda (_stx160369_) - (let* ((_e160370160380_ _stx160369_) - (_E160372160384_ + (lambda (_stx160299_) + (let* ((_e160300160310_ _stx160299_) + (_E160302160314_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160370160380_))) - (_E160371160406_ - (lambda () - (if (gx#stx-pair? _e160370160380_) - (let ((_e160373160388_ (gx#syntax-e _e160370160380_))) - (let ((_hd160374160391_ (##car _e160373160388_)) - (_tl160375160393_ (##cdr _e160373160388_))) - (if (gx#stx-pair? _tl160375160393_) - (let ((_e160376160396_ - (gx#syntax-e _tl160375160393_))) - (let ((_hd160377160399_ - (##car _e160376160396_)) - (_tl160378160401_ - (##cdr _e160376160396_))) - (let ((_id160404_ _hd160377160399_)) - (if (gx#stx-null? _tl160378160401_) - (if (gx#identifier? _id160404_) + _e160300160310_))) + (_E160301160336_ + (lambda () + (if (gx#stx-pair? _e160300160310_) + (let ((_e160303160318_ (gx#syntax-e _e160300160310_))) + (let ((_hd160304160321_ (##car _e160303160318_)) + (_tl160305160323_ (##cdr _e160303160318_))) + (if (gx#stx-pair? _tl160305160323_) + (let ((_e160306160326_ + (gx#syntax-e _tl160305160323_))) + (let ((_hd160307160329_ + (##car _e160306160326_)) + (_tl160308160331_ + (##cdr _e160306160326_))) + (let ((_id160334_ _hd160307160329_)) + (if (gx#stx-null? _tl160308160331_) + (if (gx#identifier? _id160334_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _id160404_) + _id160334_) '())) - (_E160372160384_)) - (_E160372160384_))))) - (_E160372160384_)))) - (_E160372160384_))))) - (_E160371160406_)))) + (_E160302160314_)) + (_E160302160314_))))) + (_E160302160314_)))) + (_E160302160314_))))) + (_E160301160336_)))) (define gx#core-compile-top-setq% - (lambda (_stx160315_) - (let* ((_e160316160329_ _stx160315_) - (_E160318160333_ + (lambda (_stx160245_) + (let* ((_e160246160259_ _stx160245_) + (_E160248160263_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160316160329_))) - (_E160317160365_ - (lambda () - (if (gx#stx-pair? _e160316160329_) - (let ((_e160319160337_ (gx#syntax-e _e160316160329_))) - (let ((_hd160320160340_ (##car _e160319160337_)) - (_tl160321160342_ (##cdr _e160319160337_))) - (if (gx#stx-pair? _tl160321160342_) - (let ((_e160322160345_ - (gx#syntax-e _tl160321160342_))) - (let ((_hd160323160348_ - (##car _e160322160345_)) - (_tl160324160350_ - (##cdr _e160322160345_))) - (let ((_id160353_ _hd160323160348_)) - (if (gx#stx-pair? _tl160324160350_) - (let ((_e160325160355_ - (gx#syntax-e _tl160324160350_))) - (let ((_hd160326160358_ - (##car _e160325160355_)) - (_tl160327160360_ - (##cdr _e160325160355_))) - (let ((_expr160363_ - _hd160326160358_)) + _e160246160259_))) + (_E160247160295_ + (lambda () + (if (gx#stx-pair? _e160246160259_) + (let ((_e160249160267_ (gx#syntax-e _e160246160259_))) + (let ((_hd160250160270_ (##car _e160249160267_)) + (_tl160251160272_ (##cdr _e160249160267_))) + (if (gx#stx-pair? _tl160251160272_) + (let ((_e160252160275_ + (gx#syntax-e _tl160251160272_))) + (let ((_hd160253160278_ + (##car _e160252160275_)) + (_tl160254160280_ + (##cdr _e160252160275_))) + (let ((_id160283_ _hd160253160278_)) + (if (gx#stx-pair? _tl160254160280_) + (let ((_e160255160285_ + (gx#syntax-e _tl160254160280_))) + (let ((_hd160256160288_ + (##car _e160255160285_)) + (_tl160257160290_ + (##cdr _e160255160285_))) + (let ((_expr160293_ + _hd160256160288_)) (if (gx#stx-null? - _tl160327160360_) + _tl160257160290_) (if (gx#identifier? - _id160353_) + _id160283_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id160353_) - (cons (gx#core-compile-top-syntax _expr160363_) + _id160283_) + (cons (gx#core-compile-top-syntax _expr160293_) '()))) - (_E160318160333_)) + (_E160248160263_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160318160333_))))) - (_E160318160333_))))) - (_E160318160333_)))) - (_E160318160333_))))) - (_E160317160365_)))) + (_E160248160263_))))) + (_E160248160263_))))) + (_E160248160263_)))) + (_E160248160263_))))) + (_E160247160295_)))) (define gx#core-compile-top-runtime-ref - (lambda (_id160310_) - (let ((_$e160312_ (gx#resolve-identifier__0 _id160310_))) - (if _$e160312_ - (##unchecked-structure-ref _$e160312_ '1 gx#binding::t '#f) - _id160310_)))) + (lambda (_id160240_) + (let ((_$e160242_ (gx#resolve-identifier__0 _id160240_))) + (if _$e160242_ + (##unchecked-structure-ref _$e160242_ '1 gx#binding::t '#f) + _id160240_)))) (define gx#core-compile-top-runtime-bind - (lambda (_hd160308_) - (if (gx#identifier? _hd160308_) - (gx#core-compile-top-runtime-ref _hd160308_) + (lambda (_hd160238_) + (if (gx#identifier? _hd160238_) + (gx#core-compile-top-runtime-ref _hd160238_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index 9eb24ef0b..6af776d6f 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 1707423040) + (define gerbil/expander/core::timestamp 1707565659) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -19,7 +19,7 @@ (define gx#current-expander-allow-rebind? (make-parameter '#f)) (define gx#current-expander-compiling? (make-parameter '#f)) (define gx#expander-context::t - (make-struct-type* + (make-struct-type 'gx#expander-context::t 'expander-context '#f @@ -29,8 +29,8 @@ (define gx#expander-context? (make-struct-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _$args138751_ - (apply make-struct-instance gx#expander-context::t _$args138751_))) + (lambda _$args138681_ + (apply make-struct-instance gx#expander-context::t _$args138681_))) (define gx#expander-context-id (make-struct-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table @@ -48,7 +48,7 @@ (define gx#&expander-context-table-set! (make-struct-slot-unchecked-mutator gx#expander-context::t 'table)) (define gx#root-context::t - (make-struct-type* + (make-struct-type 'gx#root-context::t 'root-context gx#expander-context::t @@ -57,8 +57,8 @@ '#f)) (define gx#root-context? (make-struct-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _$args138748_ - (apply make-struct-instance gx#root-context::t _$args138748_))) + (lambda _$args138678_ + (apply make-struct-instance gx#root-context::t _$args138678_))) (define gx#root-context-id (make-struct-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table @@ -76,7 +76,7 @@ (define gx#&root-context-table-set! (make-struct-slot-unchecked-mutator gx#root-context::t 'table)) (define gx#phi-context::t - (make-struct-type* + (make-struct-type 'gx#context-phi::t 'phi-context gx#expander-context::t @@ -85,8 +85,8 @@ '#f)) (define gx#phi-context? (make-struct-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _$args138745_ - (apply make-struct-instance gx#phi-context::t _$args138745_))) + (lambda _$args138675_ + (apply make-struct-instance gx#phi-context::t _$args138675_))) (define gx#phi-context-super (make-struct-slot-accessor gx#phi-context::t 'super)) (define gx#phi-context-up @@ -128,7 +128,7 @@ (define gx#&phi-context-table-set! (make-struct-slot-unchecked-mutator gx#phi-context::t 'table)) (define gx#top-context::t - (make-struct-type* + (make-struct-type 'gx#top-context::t 'top-context gx#phi-context::t @@ -137,8 +137,8 @@ '#f)) (define gx#top-context? (make-struct-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _$args138742_ - (apply make-struct-instance gx#top-context::t _$args138742_))) + (lambda _$args138672_ + (apply make-struct-instance gx#top-context::t _$args138672_))) (define gx#top-context-super (make-struct-slot-accessor gx#top-context::t 'super)) (define gx#top-context-up @@ -180,7 +180,7 @@ (define gx#&top-context-table-set! (make-struct-slot-unchecked-mutator gx#top-context::t 'table)) (define gx#module-context::t - (make-struct-type* + (make-struct-type 'gx#module-context::t 'module-context gx#top-context::t @@ -189,8 +189,8 @@ '#f)) (define gx#module-context? (make-struct-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _$args138739_ - (apply make-struct-instance gx#module-context::t _$args138739_))) + (lambda _$args138669_ + (apply make-struct-instance gx#module-context::t _$args138669_))) (define gx#module-context-ns (make-struct-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path @@ -280,7 +280,7 @@ (define gx#&module-context-table-set! (make-struct-slot-unchecked-mutator gx#module-context::t 'table)) (define gx#prelude-context::t - (make-struct-type* + (make-struct-type 'gx#prelude-context::t 'prelude-context gx#top-context::t @@ -289,8 +289,8 @@ '#f)) (define gx#prelude-context? (make-struct-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _$args138736_ - (apply make-struct-instance gx#prelude-context::t _$args138736_))) + (lambda _$args138666_ + (apply make-struct-instance gx#prelude-context::t _$args138666_))) (define gx#prelude-context-path (make-struct-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import @@ -356,7 +356,7 @@ (define gx#&prelude-context-table-set! (make-struct-slot-unchecked-mutator gx#prelude-context::t 'table)) (define gx#local-context::t - (make-struct-type* + (make-struct-type 'gx#local-context::t 'local-context gx#phi-context::t @@ -365,8 +365,8 @@ '#f)) (define gx#local-context? (make-struct-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _$args138733_ - (apply make-struct-instance gx#local-context::t _$args138733_))) + (lambda _$args138663_ + (apply make-struct-instance gx#local-context::t _$args138663_))) (define gx#local-context-super (make-struct-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -408,104 +408,104 @@ (define gx#&local-context-table-set! (make-struct-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_self138717_ _id138718_ _super138719_) - (if (##fx< '3 (##structure-length _self138717_)) + (lambda (_self138647_ _id138648_ _super138649_) + (if (##fx< '3 (##structure-length _self138647_)) (begin (##unchecked-structure-set! - _self138717_ - _id138718_ + _self138647_ + _id138648_ '1 - (##structure-type _self138717_) + (##structure-type _self138647_) '#f) (##unchecked-structure-set! - _self138717_ + _self138647_ (make-table 'test: eq?) '2 - (##structure-type _self138717_) + (##structure-type _self138647_) '#f) (##unchecked-structure-set! - _self138717_ - _super138719_ + _self138647_ + _super138649_ '3 - (##structure-type _self138717_) + (##structure-type _self138647_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self138717_ + _self138647_ '3 - (##vector-length _self138717_))))) + (##vector-length _self138647_))))) (define gx#phi-context:::init!__0 - (lambda (_self138724_ _id138725_) - (let ((_super138727_ (gx#current-expander-context))) - (gx#phi-context:::init!__% _self138724_ _id138725_ _super138727_)))) + (lambda (_self138654_ _id138655_) + (let ((_super138657_ (gx#current-expander-context))) + (gx#phi-context:::init!__% _self138654_ _id138655_ _super138657_)))) (define gx#phi-context:::init! - (lambda _g142988_ - (let ((_g142987_ (##length _g142988_))) - (cond ((##fx= _g142987_ 2) - (apply (lambda (_self138724_ _id138725_) - (gx#phi-context:::init!__0 _self138724_ _id138725_)) - _g142988_)) - ((##fx= _g142987_ 3) - (apply (lambda (_self138729_ _id138730_ _super138731_) + (lambda _g142918_ + (let ((_g142917_ (##length _g142918_))) + (cond ((##fx= _g142917_ 2) + (apply (lambda (_self138654_ _id138655_) + (gx#phi-context:::init!__0 _self138654_ _id138655_)) + _g142918_)) + ((##fx= _g142917_ 3) + (apply (lambda (_self138659_ _id138660_ _super138661_) (gx#phi-context:::init!__% - _self138729_ - _id138730_ - _super138731_)) - _g142988_)) + _self138659_ + _id138660_ + _super138661_)) + _g142918_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g142988_)))))) + _g142918_)))))) (bind-method! gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_self138581_ _super138582_) - (if (##fx< '3 (##structure-length _self138581_)) + (lambda (_self138511_ _super138512_) + (if (##fx< '3 (##structure-length _self138511_)) (begin (##unchecked-structure-set! - _self138581_ + _self138511_ (gensym 'L) '1 - (##structure-type _self138581_) + (##structure-type _self138511_) '#f) (##unchecked-structure-set! - _self138581_ + _self138511_ (make-table 'test: eq?) '2 - (##structure-type _self138581_) + (##structure-type _self138511_) '#f) (##unchecked-structure-set! - _self138581_ - _super138582_ + _self138511_ + _super138512_ '3 - (##structure-type _self138581_) + (##structure-type _self138511_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self138581_ + _self138511_ '3 - (##vector-length _self138581_))))) + (##vector-length _self138511_))))) (define gx#local-context:::init!__0 - (lambda (_self138587_) - (let ((_super138589_ (gx#current-expander-context))) - (gx#local-context:::init!__% _self138587_ _super138589_)))) + (lambda (_self138517_) + (let ((_super138519_ (gx#current-expander-context))) + (gx#local-context:::init!__% _self138517_ _super138519_)))) (define gx#local-context:::init! - (lambda _g142990_ - (let ((_g142989_ (##length _g142990_))) - (cond ((##fx= _g142989_ 1) - (apply (lambda (_self138587_) - (gx#local-context:::init!__0 _self138587_)) - _g142990_)) - ((##fx= _g142989_ 2) - (apply (lambda (_self138591_ _super138592_) + (lambda _g142920_ + (let ((_g142919_ (##length _g142920_))) + (cond ((##fx= _g142919_ 1) + (apply (lambda (_self138517_) + (gx#local-context:::init!__0 _self138517_)) + _g142920_)) + ((##fx= _g142919_ 2) + (apply (lambda (_self138521_ _super138522_) (gx#local-context:::init!__% - _self138591_ - _super138592_)) - _g142990_)) + _self138521_ + _super138522_)) + _g142920_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g142990_)))))) + _g142920_)))))) (bind-method! gx#local-context::t ':init! gx#local-context:::init! '#f) (define gx#binding::t - (make-struct-type* + (make-struct-type 'gx#binding::t 'binding '#f @@ -514,8 +514,8 @@ '#f)) (define gx#binding? (make-struct-predicate gx#binding::t)) (define gx#make-binding - (lambda _$args138455_ - (apply make-struct-instance gx#binding::t _$args138455_))) + (lambda _$args138385_ + (apply make-struct-instance gx#binding::t _$args138385_))) (define gx#binding-id (make-struct-slot-accessor gx#binding::t 'id)) (define gx#binding-key (make-struct-slot-accessor gx#binding::t 'key)) (define gx#binding-phi (make-struct-slot-accessor gx#binding::t 'phi)) @@ -535,7 +535,7 @@ (define gx#&binding-phi-set! (make-struct-slot-unchecked-mutator gx#binding::t 'phi)) (define gx#runtime-binding::t - (make-struct-type* + (make-struct-type 'gx#runtime-binding::t 'runtime-binding gx#binding::t @@ -544,8 +544,8 @@ '#f)) (define gx#runtime-binding? (make-struct-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _$args138452_ - (apply make-struct-instance gx#runtime-binding::t _$args138452_))) + (lambda _$args138382_ + (apply make-struct-instance gx#runtime-binding::t _$args138382_))) (define gx#runtime-binding-id (make-struct-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -571,7 +571,7 @@ (define gx#&runtime-binding-phi-set! (make-struct-slot-unchecked-mutator gx#runtime-binding::t 'phi)) (define gx#local-binding::t - (make-struct-type* + (make-struct-type 'gx#local-binding::t 'local-binding gx#runtime-binding::t @@ -580,8 +580,8 @@ '#f)) (define gx#local-binding? (make-struct-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _$args138449_ - (apply make-struct-instance gx#local-binding::t _$args138449_))) + (lambda _$args138379_ + (apply make-struct-instance gx#local-binding::t _$args138379_))) (define gx#local-binding-id (make-struct-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -607,7 +607,7 @@ (define gx#&local-binding-phi-set! (make-struct-slot-unchecked-mutator gx#local-binding::t 'phi)) (define gx#top-binding::t - (make-struct-type* + (make-struct-type 'gx#top-binding::t 'top-binding gx#runtime-binding::t @@ -616,8 +616,8 @@ '#f)) (define gx#top-binding? (make-struct-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _$args138446_ - (apply make-struct-instance gx#top-binding::t _$args138446_))) + (lambda _$args138376_ + (apply make-struct-instance gx#top-binding::t _$args138376_))) (define gx#top-binding-id (make-struct-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key @@ -643,7 +643,7 @@ (define gx#&top-binding-phi-set! (make-struct-slot-unchecked-mutator gx#top-binding::t 'phi)) (define gx#module-binding::t - (make-struct-type* + (make-struct-type 'gx#module-binding::t 'module-binding gx#top-binding::t @@ -652,8 +652,8 @@ '#f)) (define gx#module-binding? (make-struct-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _$args138443_ - (apply make-struct-instance gx#module-binding::t _$args138443_))) + (lambda _$args138373_ + (apply make-struct-instance gx#module-binding::t _$args138373_))) (define gx#module-binding-context (make-struct-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -687,7 +687,7 @@ (define gx#&module-binding-phi-set! (make-struct-slot-unchecked-mutator gx#module-binding::t 'phi)) (define gx#extern-binding::t - (make-struct-type* + (make-struct-type 'gx#extern-binding::t 'extern-binding gx#top-binding::t @@ -696,8 +696,8 @@ '#f)) (define gx#extern-binding? (make-struct-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _$args138440_ - (apply make-struct-instance gx#extern-binding::t _$args138440_))) + (lambda _$args138370_ + (apply make-struct-instance gx#extern-binding::t _$args138370_))) (define gx#extern-binding-id (make-struct-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -723,7 +723,7 @@ (define gx#&extern-binding-phi-set! (make-struct-slot-unchecked-mutator gx#extern-binding::t 'phi)) (define gx#syntax-binding::t - (make-struct-type* + (make-struct-type 'gx#syntax-binding::t 'syntax-binding gx#binding::t @@ -733,8 +733,8 @@ '#f)) (define gx#syntax-binding? (make-struct-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _$args138437_ - (apply make-struct-instance gx#syntax-binding::t _$args138437_))) + (lambda _$args138367_ + (apply make-struct-instance gx#syntax-binding::t _$args138367_))) (define gx#syntax-binding-e (make-struct-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -768,7 +768,7 @@ (define gx#&syntax-binding-phi-set! (make-struct-slot-unchecked-mutator gx#syntax-binding::t 'phi)) (define gx#import-binding::t - (make-struct-type* + (make-struct-type 'gx#import-binding::t 'import-binding gx#binding::t @@ -778,8 +778,8 @@ '#f)) (define gx#import-binding? (make-struct-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _$args138434_ - (apply make-struct-instance gx#import-binding::t _$args138434_))) + (lambda _$args138364_ + (apply make-struct-instance gx#import-binding::t _$args138364_))) (define gx#import-binding-e (make-struct-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -829,7 +829,7 @@ (define gx#&import-binding-phi-set! (make-struct-slot-unchecked-mutator gx#import-binding::t 'phi)) (define gx#alias-binding::t - (make-struct-type* + (make-struct-type 'gx#alias-binding::t 'alias-binding gx#binding::t @@ -839,8 +839,8 @@ '#f)) (define gx#alias-binding? (make-struct-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _$args138431_ - (apply make-struct-instance gx#alias-binding::t _$args138431_))) + (lambda _$args138361_ + (apply make-struct-instance gx#alias-binding::t _$args138361_))) (define gx#alias-binding-e (make-struct-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -874,7 +874,7 @@ (define gx#&alias-binding-phi-set! (make-struct-slot-unchecked-mutator gx#alias-binding::t 'phi)) (define gx#expander::t - (make-struct-type* + (make-struct-type 'gx#expander::t 'expander '#f @@ -883,8 +883,8 @@ '#f)) (define gx#expander? (make-struct-predicate gx#expander::t)) (define gx#make-expander - (lambda _$args138428_ - (apply make-struct-instance gx#expander::t _$args138428_))) + (lambda _$args138358_ + (apply make-struct-instance gx#expander::t _$args138358_))) (define gx#expander-e (make-struct-slot-accessor gx#expander::t 'e)) (define gx#expander-e-set! (make-struct-slot-mutator gx#expander::t 'e)) (define gx#&expander-e @@ -892,7 +892,7 @@ (define gx#&expander-e-set! (make-struct-slot-unchecked-mutator gx#expander::t 'e)) (define gx#core-expander::t - (make-struct-type* + (make-struct-type 'gx#core-expander::t 'core-expander gx#expander::t @@ -901,8 +901,8 @@ '#f)) (define gx#core-expander? (make-struct-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _$args138425_ - (apply make-struct-instance gx#core-expander::t _$args138425_))) + (lambda _$args138355_ + (apply make-struct-instance gx#core-expander::t _$args138355_))) (define gx#core-expander-id (make-struct-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -928,7 +928,7 @@ (define gx#&core-expander-e-set! (make-struct-slot-unchecked-mutator gx#core-expander::t 'e)) (define gx#expression-form::t - (make-struct-type* + (make-struct-type 'gx#expression-form::t 'expression-form gx#core-expander::t @@ -937,8 +937,8 @@ '#f)) (define gx#expression-form? (make-struct-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _$args138422_ - (apply make-struct-instance gx#expression-form::t _$args138422_))) + (lambda _$args138352_ + (apply make-struct-instance gx#expression-form::t _$args138352_))) (define gx#expression-form-id (make-struct-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -964,7 +964,7 @@ (define gx#&expression-form-e-set! (make-struct-slot-unchecked-mutator gx#expression-form::t 'e)) (define gx#special-form::t - (make-struct-type* + (make-struct-type 'gx#special-form::t 'special-form gx#core-expander::t @@ -973,8 +973,8 @@ '#f)) (define gx#special-form? (make-struct-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _$args138419_ - (apply make-struct-instance gx#special-form::t _$args138419_))) + (lambda _$args138349_ + (apply make-struct-instance gx#special-form::t _$args138349_))) (define gx#special-form-id (make-struct-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -1000,7 +1000,7 @@ (define gx#&special-form-e-set! (make-struct-slot-unchecked-mutator gx#special-form::t 'e)) (define gx#definition-form::t - (make-struct-type* + (make-struct-type 'gx#definition-form::t 'definition-form gx#special-form::t @@ -1009,8 +1009,8 @@ '#f)) (define gx#definition-form? (make-struct-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _$args138416_ - (apply make-struct-instance gx#definition-form::t _$args138416_))) + (lambda _$args138346_ + (apply make-struct-instance gx#definition-form::t _$args138346_))) (define gx#definition-form-id (make-struct-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1036,7 +1036,7 @@ (define gx#&definition-form-e-set! (make-struct-slot-unchecked-mutator gx#definition-form::t 'e)) (define gx#top-special-form::t - (make-struct-type* + (make-struct-type 'gx#top-special-form::t 'top-special-form gx#special-form::t @@ -1046,8 +1046,8 @@ (define gx#top-special-form? (make-struct-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _$args138413_ - (apply make-struct-instance gx#top-special-form::t _$args138413_))) + (lambda _$args138343_ + (apply make-struct-instance gx#top-special-form::t _$args138343_))) (define gx#top-special-form-id (make-struct-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top @@ -1075,7 +1075,7 @@ (define gx#&top-special-form-e-set! (make-struct-slot-unchecked-mutator gx#top-special-form::t 'e)) (define gx#module-special-form::t - (make-struct-type* + (make-struct-type 'gx#module-special-form::t 'module-special-form gx#top-special-form::t @@ -1085,8 +1085,8 @@ (define gx#module-special-form? (make-struct-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _$args138410_ - (apply make-struct-instance gx#module-special-form::t _$args138410_))) + (lambda _$args138340_ + (apply make-struct-instance gx#module-special-form::t _$args138340_))) (define gx#module-special-form-id (make-struct-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top @@ -1116,7 +1116,7 @@ (define gx#&module-special-form-e-set! (make-struct-slot-unchecked-mutator gx#module-special-form::t 'e)) (define gx#feature-expander::t - (make-struct-type* + (make-struct-type 'gx#feature-expander::t 'feature-expander gx#expander::t @@ -1126,8 +1126,8 @@ (define gx#feature-expander? (make-struct-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _$args138407_ - (apply make-struct-instance gx#feature-expander::t _$args138407_))) + (lambda _$args138337_ + (apply make-struct-instance gx#feature-expander::t _$args138337_))) (define gx#feature-expander-e (make-struct-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1137,7 +1137,7 @@ (define gx#&feature-expander-e-set! (make-struct-slot-unchecked-mutator gx#feature-expander::t 'e)) (define gx#private-feature-expander::t - (make-struct-type* + (make-struct-type 'gx#private-feature-expander::t 'private-feature-expander gx#feature-expander::t @@ -1147,10 +1147,10 @@ (define gx#private-feature-expander? (make-struct-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _$args138404_ + (lambda _$args138334_ (apply make-struct-instance gx#private-feature-expander::t - _$args138404_))) + _$args138334_))) (define gx#private-feature-expander-e (make-struct-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! @@ -1160,7 +1160,7 @@ (define gx#&private-feature-expander-e-set! (make-struct-slot-unchecked-mutator gx#private-feature-expander::t 'e)) (define gx#reserved-expander::t - (make-struct-type* + (make-struct-type 'gx#reserved-expander::t 'reserved-expander gx#expander::t @@ -1170,8 +1170,8 @@ (define gx#reserved-expander? (make-struct-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _$args138401_ - (apply make-struct-instance gx#reserved-expander::t _$args138401_))) + (lambda _$args138331_ + (apply make-struct-instance gx#reserved-expander::t _$args138331_))) (define gx#reserved-expander-e (make-struct-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1181,7 +1181,7 @@ (define gx#&reserved-expander-e-set! (make-struct-slot-unchecked-mutator gx#reserved-expander::t 'e)) (define gx#macro-expander::t - (make-struct-type* + (make-struct-type 'gx#core-macro::t 'macro-expander gx#expander::t @@ -1190,8 +1190,8 @@ '#f)) (define gx#macro-expander? (make-struct-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _$args138398_ - (apply make-struct-instance gx#macro-expander::t _$args138398_))) + (lambda _$args138328_ + (apply make-struct-instance gx#macro-expander::t _$args138328_))) (define gx#macro-expander-e (make-struct-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1201,7 +1201,7 @@ (define gx#¯o-expander-e-set! (make-struct-slot-unchecked-mutator gx#macro-expander::t 'e)) (define gx#rename-macro-expander::t - (make-struct-type* + (make-struct-type 'gx#rename-macro-expander::t 'rename-macro-expander gx#macro-expander::t @@ -1211,10 +1211,10 @@ (define gx#rename-macro-expander? (make-struct-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _$args138395_ + (lambda _$args138325_ (apply make-struct-instance gx#rename-macro-expander::t - _$args138395_))) + _$args138325_))) (define gx#rename-macro-expander-e (make-struct-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! @@ -1224,7 +1224,7 @@ (define gx#&rename-macro-expander-e-set! (make-struct-slot-unchecked-mutator gx#rename-macro-expander::t 'e)) (define gx#user-expander::t - (make-struct-type* + (make-struct-type 'gx#macro-expander::t 'user-expander gx#macro-expander::t @@ -1233,8 +1233,8 @@ '#f)) (define gx#user-expander? (make-struct-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _$args138392_ - (apply make-struct-instance gx#user-expander::t _$args138392_))) + (lambda _$args138322_ + (apply make-struct-instance gx#user-expander::t _$args138322_))) (define gx#user-expander-context (make-struct-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1260,7 +1260,7 @@ (define gx#&user-expander-e-set! (make-struct-slot-unchecked-mutator gx#user-expander::t 'e)) (define gx#expander-mark::t - (make-struct-type* + (make-struct-type 'gx#expander-mark::t 'expander-mark '#f @@ -1269,8 +1269,8 @@ '#f)) (define gx#expander-mark? (make-struct-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _$args138389_ - (apply make-struct-instance gx#expander-mark::t _$args138389_))) + (lambda _$args138319_ + (apply make-struct-instance gx#expander-mark::t _$args138319_))) (define gx#expander-mark-subst (make-struct-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1304,1002 +1304,1002 @@ (define gx#&expander-mark-trace-set! (make-struct-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_ctx138374_ _message138375_ _stx138376_ . _details138377_) - (let ((_ctx138387_ - (let ((_$e138379_ _ctx138374_)) - (if _$e138379_ - _$e138379_ - (let ((_$e138382_ (gx#core-context-top__0))) - (if _$e138382_ - ((lambda (_ctx138385_) + (lambda (_ctx138304_ _message138305_ _stx138306_ . _details138307_) + (let ((_ctx138317_ + (let ((_$e138309_ _ctx138304_)) + (if _$e138309_ + _$e138309_ + (let ((_$e138312_ (gx#core-context-top__0))) + (if _$e138312_ + ((lambda (_ctx138315_) (cons 'expand (cons (##structure-ref - _ctx138385_ + _ctx138315_ '1 gx#expander-context::t '#f) '()))) - _$e138382_) + _$e138312_) '#f)))))) (raise (make-syntax-error - _message138375_ - (cons _stx138376_ _details138377_) - _ctx138387_ + _message138305_ + (cons _stx138306_ _details138307_) + _ctx138317_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_stx138361_ _expression?138362_) - (gx#eval-syntax* (gx#core-expand__% _stx138361_ _expression?138362_)))) + (lambda (_stx138291_ _expression?138292_) + (gx#eval-syntax* (gx#core-expand__% _stx138291_ _expression?138292_)))) (define gx#eval-syntax__0 - (lambda (_stx138367_) - (let ((_expression?138369_ '#f)) - (gx#eval-syntax__% _stx138367_ _expression?138369_)))) + (lambda (_stx138297_) + (let ((_expression?138299_ '#f)) + (gx#eval-syntax__% _stx138297_ _expression?138299_)))) (define gx#eval-syntax - (lambda _g142992_ - (let ((_g142991_ (##length _g142992_))) - (cond ((##fx= _g142991_ 1) - (apply (lambda (_stx138367_) (gx#eval-syntax__0 _stx138367_)) - _g142992_)) - ((##fx= _g142991_ 2) - (apply (lambda (_stx138371_ _expression?138372_) - (gx#eval-syntax__% _stx138371_ _expression?138372_)) - _g142992_)) + (lambda _g142922_ + (let ((_g142921_ (##length _g142922_))) + (cond ((##fx= _g142921_ 1) + (apply (lambda (_stx138297_) (gx#eval-syntax__0 _stx138297_)) + _g142922_)) + ((##fx= _g142921_ 2) + (apply (lambda (_stx138301_ _expression?138302_) + (gx#eval-syntax__% _stx138301_ _expression?138302_)) + _g142922_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g142992_)))))) + _g142922_)))))) (define gx#eval-syntax* - (lambda (_stx138358_) + (lambda (_stx138288_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _stx138358_)))) + ((gx#current-expander-compile) _stx138288_)))) (define gx#core-expand__% - (lambda (_stx138345_ _expression?138346_) - (if _expression?138346_ - (gx#core-expand-expression _stx138345_) - (gx#core-expand-top _stx138345_)))) + (lambda (_stx138275_ _expression?138276_) + (if _expression?138276_ + (gx#core-expand-expression _stx138275_) + (gx#core-expand-top _stx138275_)))) (define gx#core-expand__0 - (lambda (_stx138351_) - (let ((_expression?138353_ '#f)) - (gx#core-expand__% _stx138351_ _expression?138353_)))) + (lambda (_stx138281_) + (let ((_expression?138283_ '#f)) + (gx#core-expand__% _stx138281_ _expression?138283_)))) (define gx#core-expand - (lambda _g142994_ - (let ((_g142993_ (##length _g142994_))) - (cond ((##fx= _g142993_ 1) - (apply (lambda (_stx138351_) (gx#core-expand__0 _stx138351_)) - _g142994_)) - ((##fx= _g142993_ 2) - (apply (lambda (_stx138355_ _expression?138356_) - (gx#core-expand__% _stx138355_ _expression?138356_)) - _g142994_)) + (lambda _g142924_ + (let ((_g142923_ (##length _g142924_))) + (cond ((##fx= _g142923_ 1) + (apply (lambda (_stx138281_) (gx#core-expand__0 _stx138281_)) + _g142924_)) + ((##fx= _g142923_ 2) + (apply (lambda (_stx138285_ _expression?138286_) + (gx#core-expand__% _stx138285_ _expression?138286_)) + _g142924_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g142994_)))))) + _g142924_)))))) (define gx#core-expand-top - (lambda (_stx138312_) - (let* ((_stx138314_ (gx#core-expand*__0 _stx138312_)) - (_e138315138322_ _stx138314_) - (_E138317138326_ - (lambda () (gx#core-expand-expression _stx138314_))) - (_E138316138340_ + (lambda (_stx138242_) + (let* ((_stx138244_ (gx#core-expand*__0 _stx138242_)) + (_e138245138252_ _stx138244_) + (_E138247138256_ + (lambda () (gx#core-expand-expression _stx138244_))) + (_E138246138270_ (lambda () - (if (gx#stx-pair? _e138315138322_) - (let ((_e138318138330_ (gx#syntax-e _e138315138322_))) - (let ((_hd138319138333_ (##car _e138318138330_)) - (_tl138320138335_ (##cdr _e138318138330_))) - (let ((_form138338_ _hd138319138333_)) - (if (gx#core-bound-identifier?__0 _form138338_) - _stx138314_ - (_E138317138326_))))) - (_E138317138326_))))) - (_E138316138340_)))) + (if (gx#stx-pair? _e138245138252_) + (let ((_e138248138260_ (gx#syntax-e _e138245138252_))) + (let ((_hd138249138263_ (##car _e138248138260_)) + (_tl138250138265_ (##cdr _e138248138260_))) + (let ((_form138268_ _hd138249138263_)) + (if (gx#core-bound-identifier?__0 _form138268_) + _stx138244_ + (_E138247138256_))))) + (_E138247138256_))))) + (_E138246138270_)))) (define gx#core-expand-expression - (lambda (_stx138259_) - (letrec ((_sealed-expression?138261_ - (lambda (_hd138282_) - (if (gx#sealed-syntax? _hd138282_) - (let* ((_e138283138290_ _hd138282_) - (_E138285138294_ (lambda () '#f)) - (_E138284138308_ + (lambda (_stx138189_) + (letrec ((_sealed-expression?138191_ + (lambda (_hd138212_) + (if (gx#sealed-syntax? _hd138212_) + (let* ((_e138213138220_ _hd138212_) + (_E138215138224_ (lambda () '#f)) + (_E138214138238_ (lambda () - (if (gx#stx-pair? _e138283138290_) - (let ((_e138286138298_ - (gx#syntax-e _e138283138290_))) - (let ((_hd138287138301_ - (##car _e138286138298_)) - (_tl138288138303_ - (##cdr _e138286138298_))) - (let ((_form138306_ - _hd138287138301_)) + (if (gx#stx-pair? _e138213138220_) + (let ((_e138216138228_ + (gx#syntax-e _e138213138220_))) + (let ((_hd138217138231_ + (##car _e138216138228_)) + (_tl138218138233_ + (##cdr _e138216138228_))) + (let ((_form138236_ + _hd138217138231_)) (if '#t (gx#core-bound-identifier?__% - _form138306_ + _form138236_ gx#expression-form-binding?) - (_E138285138294_))))) - (_E138285138294_))))) - (_E138284138308_)) + (_E138215138224_))))) + (_E138215138224_))))) + (_E138214138238_)) '#f))) - (_illegal-expression138262_ - (lambda (_hd138280_ . _g142995_) + (_illegal-expression138192_ + (lambda (_hd138210_ . _g142925_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _stx138259_ - _hd138280_))) - (_expand-e138263_ - (lambda (_form138275_ _hd138276_) - (let ((_bind138278_ + _stx138189_ + _hd138210_))) + (_expand-e138193_ + (lambda (_form138205_ _hd138206_) + (let ((_bind138208_ (if (##structure-instance-of? - _form138275_ + _form138205_ 'gx#binding::t) - _form138275_ - (gx#resolve-identifier__0 _form138275_)))) - (if (gx#core-expander-binding? _bind138278_) + _form138205_ + (gx#resolve-identifier__0 _form138205_)))) + (if (gx#core-expander-binding? _bind138208_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind138278_ + _bind138208_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd138276_ - (gx#stx-source _stx138259_))) + _hd138206_ + (gx#stx-source _stx138189_))) (if (##structure-direct-instance-of? - _bind138278_ + _bind138208_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind138278_ + _bind138208_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd138276_ - (gx#stx-source _stx138259_)))) + _hd138206_ + (gx#stx-source _stx138189_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _stx138259_ - _form138275_))))))) - (let ((_hd138265_ (gx#core-expand-head _stx138259_))) - (if (_sealed-expression?138261_ _hd138265_) - _hd138265_ - (if (gx#stx-pair? _hd138265_) - (let* ((_form138267_ (gx#stx-car _hd138265_)) - (_bind138269_ - (if (gx#identifier? _form138267_) - (gx#resolve-identifier__0 _form138267_) + _stx138189_ + _form138205_))))))) + (let ((_hd138195_ (gx#core-expand-head _stx138189_))) + (if (_sealed-expression?138191_ _hd138195_) + _hd138195_ + (if (gx#stx-pair? _hd138195_) + (let* ((_form138197_ (gx#stx-car _hd138195_)) + (_bind138199_ + (if (gx#identifier? _form138197_) + (gx#resolve-identifier__0 _form138197_) '#f))) - (if (or (not _bind138269_) - (not (gx#core-expander-binding? _bind138269_))) - (_expand-e138263_ '%%app (cons '%%app _hd138265_)) + (if (or (not _bind138199_) + (not (gx#core-expander-binding? _bind138199_))) + (_expand-e138193_ '%%app (cons '%%app _hd138195_)) (if (eq? (##unchecked-structure-ref - _bind138269_ + _bind138199_ '1 gx#binding::t '#f) '%#begin) (gx#core-expand-block* - _hd138265_ - _illegal-expression138262_) - (if (gx#expression-form-binding? _bind138269_) - (_expand-e138263_ _bind138269_ _hd138265_) + _hd138195_ + _illegal-expression138192_) + (if (gx#expression-form-binding? _bind138199_) + (_expand-e138193_ _bind138199_ _hd138195_) (if (gx#direct-special-form-binding? - _bind138269_) + _bind138199_) (gx#core-expand-expression - (_expand-e138263_ - _bind138269_ - _hd138265_)) - (_illegal-expression138262_ - _hd138265_)))))) - (if (gx#core-bound-identifier?__0 _hd138265_) - (_illegal-expression138262_ _hd138265_) - (if (gx#identifier? _hd138265_) - (_expand-e138263_ + (_expand-e138193_ + _bind138199_ + _hd138195_)) + (_illegal-expression138192_ + _hd138195_)))))) + (if (gx#core-bound-identifier?__0 _hd138195_) + (_illegal-expression138192_ _hd138195_) + (if (gx#identifier? _hd138195_) + (_expand-e138193_ '%%ref - (cons '%%ref (cons _hd138265_ '()))) - (if (gx#stx-datum? _hd138265_) - (_expand-e138263_ + (cons '%%ref (cons _hd138195_ '()))) + (if (gx#stx-datum? _hd138195_) + (_expand-e138193_ '%#quote - (cons '%#quote (cons _hd138265_ '()))) - (_illegal-expression138262_ - _hd138265_)))))))))) + (cons '%#quote (cons _hd138195_ '()))) + (_illegal-expression138192_ + _hd138195_)))))))))) (define gx#core-expand-expression+1 - (lambda (_stx138254_) + (lambda (_stx138184_) (call-with-parameters (lambda () - (let ((_stx138257_ (gx#core-expand-expression _stx138254_))) - (values _stx138257_ (gx#eval-syntax* _stx138257_)))) + (let ((_stx138187_ (gx#core-expand-expression _stx138184_))) + (values _stx138187_ (gx#eval-syntax* _stx138187_)))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_stx138235_ _stop?138236_) - (let _lp138238_ ((_stx138240_ _stx138235_)) - (if (_stop?138236_ _stx138240_) - _stx138240_ - (let ((_rstx138242_ (gx#core-expand1 _stx138240_))) - (if (eq? _stx138240_ _rstx138242_) - _stx138240_ - (_lp138238_ _rstx138242_))))))) + (lambda (_stx138165_ _stop?138166_) + (let _lp138168_ ((_stx138170_ _stx138165_)) + (if (_stop?138166_ _stx138170_) + _stx138170_ + (let ((_rstx138172_ (gx#core-expand1 _stx138170_))) + (if (eq? _stx138170_ _rstx138172_) + _stx138170_ + (_lp138168_ _rstx138172_))))))) (define gx#core-expand*__0 - (lambda (_stx138247_) - (let ((_stop?138249_ false)) - (gx#core-expand*__% _stx138247_ _stop?138249_)))) + (lambda (_stx138177_) + (let ((_stop?138179_ false)) + (gx#core-expand*__% _stx138177_ _stop?138179_)))) (define gx#core-expand* - (lambda _g142997_ - (let ((_g142996_ (##length _g142997_))) - (cond ((##fx= _g142996_ 1) - (apply (lambda (_stx138247_) (gx#core-expand*__0 _stx138247_)) - _g142997_)) - ((##fx= _g142996_ 2) - (apply (lambda (_stx138251_ _stop?138252_) - (gx#core-expand*__% _stx138251_ _stop?138252_)) - _g142997_)) + (lambda _g142927_ + (let ((_g142926_ (##length _g142927_))) + (cond ((##fx= _g142926_ 1) + (apply (lambda (_stx138177_) (gx#core-expand*__0 _stx138177_)) + _g142927_)) + ((##fx= _g142926_ 2) + (apply (lambda (_stx138181_ _stop?138182_) + (gx#core-expand*__% _stx138181_ _stop?138182_)) + _g142927_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g142997_)))))) + _g142927_)))))) (define gx#core-expand1 - (lambda (_stx138191_) - (letrec ((_step138193_ - (lambda (_hd138230_) - (let ((_bind138232_ (gx#resolve-identifier__0 _hd138230_))) + (lambda (_stx138121_) + (letrec ((_step138123_ + (lambda (_hd138160_) + (let ((_bind138162_ (gx#resolve-identifier__0 _hd138160_))) (if (##structure-instance-of? - _bind138232_ + _bind138162_ 'gx#runtime-binding::t) - _stx138191_ + _stx138121_ (if (##structure-direct-instance-of? - _bind138232_ + _bind138162_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind138232_ + _bind138162_ '4 gx#syntax-binding::t '#f) - _stx138191_) - (if (not _bind138232_) - _stx138191_ + _stx138121_) + (if (not _bind138162_) + _stx138121_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _stx138191_)))))))) - (let* ((_e138194138202_ _stx138191_) - (_E138200138206_ (lambda () _stx138191_)) - (_E138196138212_ + _stx138121_)))))))) + (let* ((_e138124138132_ _stx138121_) + (_E138130138136_ (lambda () _stx138121_)) + (_E138126138142_ (lambda () - (let ((_hd138210_ _e138194138202_)) - (if (gx#identifier? _hd138210_) - (_step138193_ _hd138210_) - (_E138200138206_))))) - (_E138195138226_ + (let ((_hd138140_ _e138124138132_)) + (if (gx#identifier? _hd138140_) + (_step138123_ _hd138140_) + (_E138130138136_))))) + (_E138125138156_ (lambda () - (if (gx#stx-pair? _e138194138202_) - (let ((_e138197138216_ (gx#syntax-e _e138194138202_))) - (let ((_hd138198138219_ (##car _e138197138216_)) - (_tl138199138221_ (##cdr _e138197138216_))) - (let ((_hd138224_ _hd138198138219_)) - (if (gx#identifier? _hd138224_) - (_step138193_ _hd138224_) - (_E138196138212_))))) - (_E138196138212_))))) - (_E138195138226_))))) + (if (gx#stx-pair? _e138124138132_) + (let ((_e138127138146_ (gx#syntax-e _e138124138132_))) + (let ((_hd138128138149_ (##car _e138127138146_)) + (_tl138129138151_ (##cdr _e138127138146_))) + (let ((_hd138154_ _hd138128138149_)) + (if (gx#identifier? _hd138154_) + (_step138123_ _hd138154_) + (_E138126138142_))))) + (_E138126138142_))))) + (_E138125138156_))))) (define gx#core-expand-head - (lambda (_stx138157_) - (letrec ((_stop?138159_ - (lambda (_stx138161_) - (let* ((_e138162138169_ _stx138161_) - (_E138164138173_ (lambda () '#f)) - (_E138163138187_ + (lambda (_stx138087_) + (letrec ((_stop?138089_ + (lambda (_stx138091_) + (let* ((_e138092138099_ _stx138091_) + (_E138094138103_ (lambda () '#f)) + (_E138093138117_ (lambda () - (if (gx#stx-pair? _e138162138169_) - (let ((_e138165138177_ - (gx#syntax-e _e138162138169_))) - (let ((_hd138166138180_ - (##car _e138165138177_)) - (_tl138167138182_ - (##cdr _e138165138177_))) - (let ((_hd138185_ _hd138166138180_)) + (if (gx#stx-pair? _e138092138099_) + (let ((_e138095138107_ + (gx#syntax-e _e138092138099_))) + (let ((_hd138096138110_ + (##car _e138095138107_)) + (_tl138097138112_ + (##cdr _e138095138107_))) + (let ((_hd138115_ _hd138096138110_)) (if '#t (gx#core-bound-identifier?__0 - _hd138185_) - (_E138164138173_))))) - (_E138164138173_))))) - (_E138163138187_))))) - (gx#core-expand*__% _stx138157_ _stop?138159_)))) + _hd138115_) + (_E138094138103_))))) + (_E138094138103_))))) + (_E138093138117_))))) + (gx#core-expand*__% _stx138087_ _stop?138089_)))) (define gx#core-expand-block__% - (lambda (_stx137963_ - _expand-special137964_ - _begin-form137965_ - _expand-e137966_) - (letrec ((_expand-splice137968_ - (lambda (_hd138131_ _body138132_ _rest138133_ _r138134_) - (if (gx#stx-list? _body138132_) - (_K137972_ - (gx#stx-foldr cons _rest138133_ _body138132_) - _r138134_) + (lambda (_stx137893_ + _expand-special137894_ + _begin-form137895_ + _expand-e137896_) + (letrec ((_expand-splice137898_ + (lambda (_hd138061_ _body138062_ _rest138063_ _r138064_) + (if (gx#stx-list? _body138062_) + (_K137902_ + (gx#stx-foldr cons _rest138063_ _body138062_) + _r138064_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _stx137963_ - _hd138131_)))) - (_expand-cond-expand137969_ - (lambda (_hd138127_ _rest138128_ _r138129_) - (_K137972_ - (cons (gx#core-expand-cond-expand% _hd138127_) - _rest138128_) - _r138129_))) - (_expand-include137970_ - (lambda (_hd138076_ _rest138077_ _r138078_) - (let* ((_e138079138089_ _hd138076_) - (_E138081138093_ + _stx137893_ + _hd138061_)))) + (_expand-cond-expand137899_ + (lambda (_hd138057_ _rest138058_ _r138059_) + (_K137902_ + (cons (gx#core-expand-cond-expand% _hd138057_) + _rest138058_) + _r138059_))) + (_expand-include137900_ + (lambda (_hd138006_ _rest138007_ _r138008_) + (let* ((_e138009138019_ _hd138006_) + (_E138011138023_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e138079138089_))) - (_E138080138123_ + _e138009138019_))) + (_E138010138053_ (lambda () - (if (gx#stx-pair? _e138079138089_) - (let ((_e138082138097_ - (gx#syntax-e _e138079138089_))) - (let ((_hd138083138100_ - (##car _e138082138097_)) - (_tl138084138102_ - (##cdr _e138082138097_))) - (if (gx#stx-pair? _tl138084138102_) - (let ((_e138085138105_ + (if (gx#stx-pair? _e138009138019_) + (let ((_e138012138027_ + (gx#syntax-e _e138009138019_))) + (let ((_hd138013138030_ + (##car _e138012138027_)) + (_tl138014138032_ + (##cdr _e138012138027_))) + (if (gx#stx-pair? _tl138014138032_) + (let ((_e138015138035_ (gx#syntax-e - _tl138084138102_))) - (let ((_hd138086138108_ - (##car _e138085138105_)) - (_tl138087138110_ - (##cdr _e138085138105_))) - (let ((_path138113_ - _hd138086138108_)) + _tl138014138032_))) + (let ((_hd138016138038_ + (##car _e138015138035_)) + (_tl138017138040_ + (##cdr _e138015138035_))) + (let ((_path138043_ + _hd138016138038_)) (if (gx#stx-null? - _tl138087138110_) + _tl138017138040_) (if (gx#stx-string? - _path138113_) - (let* ((_rpath138115_ + _path138043_) + (let* ((_rpath138045_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _path138113_ - (gx#stx-source _hd138076_))) - (_block138117_ - (gx#core-expand-include%__% _hd138076_ _rpath138115_)) - (_rbody138120_ + _path138043_ + (gx#stx-source _hd138006_))) + (_block138047_ + (gx#core-expand-include%__% _hd138006_ _rpath138045_)) + (_rbody138050_ (call-with-parameters (lambda () (gx#core-expand-block__% - _block138117_ - _expand-special137964_ + _block138047_ + _expand-special137894_ '#f - _expand-e137966_)) + _expand-e137896_)) gx#current-expander-path - (cons _rpath138115_ (gx#current-expander-path))))) - (_K137972_ - _rest138077_ - (foldr1 cons _r138078_ _rbody138120_))) - (_E138081138093_)) + (cons _rpath138045_ (gx#current-expander-path))))) + (_K137902_ + _rest138007_ + (foldr1 cons _r138008_ _rbody138050_))) + (_E138011138023_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E138081138093_))))) - (_E138081138093_)))) - (_E138081138093_))))) - (_E138080138123_)))) - (_expand-expression137971_ - (lambda (_hd138072_ _rest138073_ _r138074_) - (_K137972_ - _rest138073_ - (cons (_expand-e137966_ _hd138072_) _r138074_)))) - (_K137972_ - (lambda (_rest138002_ _r138003_) - (let* ((_e138004138011_ _rest138002_) - (_E138006138015_ + (_E138011138023_))))) + (_E138011138023_)))) + (_E138011138023_))))) + (_E138010138053_)))) + (_expand-expression137901_ + (lambda (_hd138002_ _rest138003_ _r138004_) + (_K137902_ + _rest138003_ + (cons (_expand-e137896_ _hd138002_) _r138004_)))) + (_K137902_ + (lambda (_rest137932_ _r137933_) + (let* ((_e137934137941_ _rest137932_) + (_E137936137945_ (lambda () - (if _begin-form137965_ + (if _begin-form137895_ (gx#core-quote-syntax__1 (gx#core-cons - _begin-form137965_ - (reverse _r138003_)) - (gx#stx-source _stx137963_)) - _r138003_))) - (_E138005138068_ + _begin-form137895_ + (reverse _r137933_)) + (gx#stx-source _stx137893_)) + _r137933_))) + (_E137935137998_ (lambda () - (if (gx#stx-pair? _e138004138011_) - (let ((_e138007138019_ - (gx#syntax-e _e138004138011_))) - (let ((_hd138008138022_ - (##car _e138007138019_)) - (_tl138009138024_ - (##cdr _e138007138019_))) - (let* ((_hd138027_ _hd138008138022_) - (_rest138029_ _tl138009138024_)) + (if (gx#stx-pair? _e137934137941_) + (let ((_e137937137949_ + (gx#syntax-e _e137934137941_))) + (let ((_hd137938137952_ + (##car _e137937137949_)) + (_tl137939137954_ + (##cdr _e137937137949_))) + (let* ((_hd137957_ _hd137938137952_) + (_rest137959_ _tl137939137954_)) (if '#t - (let* ((_hd138031_ + (let* ((_hd137961_ (gx#core-expand-head - _hd138027_)) - (_e138032138039_ _hd138031_) - (_E138034138043_ + _hd137957_)) + (_e137962137969_ _hd137961_) + (_E137964137973_ (lambda () - (_expand-expression137971_ - _hd138031_ - _rest138029_ - _r138003_))) - (_E138033138064_ + (_expand-expression137901_ + _hd137961_ + _rest137959_ + _r137933_))) + (_E137963137994_ (lambda () (if (gx#stx-pair? - _e138032138039_) - (let ((_e138035138047_ + _e137962137969_) + (let ((_e137965137977_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e138032138039_))) - (let ((_hd138036138050_ (##car _e138035138047_)) - (_tl138037138052_ (##cdr _e138035138047_))) - (let* ((_form138055_ _hd138036138050_) - (_body138057_ _tl138037138052_)) + (gx#syntax-e _e137962137969_))) + (let ((_hd137966137980_ (##car _e137965137977_)) + (_tl137967137982_ (##cdr _e137965137977_))) + (let* ((_form137985_ _hd137966137980_) + (_body137987_ _tl137967137982_)) (if '#t - (let ((_bind138059_ - (if (gx#identifier? _form138055_) - (gx#resolve-identifier__0 _form138055_) + (let ((_bind137989_ + (if (gx#identifier? _form137985_) + (gx#resolve-identifier__0 _form137985_) '#f))) - (if (gx#special-form-binding? _bind138059_) - (let ((_$e138061_ + (if (gx#special-form-binding? _bind137989_) + (let ((_$e137991_ (##unchecked-structure-ref - _bind138059_ + _bind137989_ '1 gx#binding::t '#f))) - (if (eq? '%#begin _$e138061_) - (_expand-splice137968_ - _hd138031_ - _body138057_ - _rest138029_ - _r138003_) - (if (eq? '%#cond-expand _$e138061_) - (_expand-cond-expand137969_ - _hd138031_ - _rest138029_ - _r138003_) - (if (eq? '%#include _$e138061_) - (_expand-include137970_ - _hd138031_ - _rest138029_ - _r138003_) - (_expand-special137964_ - _hd138031_ - _K137972_ - _rest138029_ - _r138003_))))) - (_expand-expression137971_ - _hd138031_ - _rest138029_ - _r138003_))) - (_E138034138043_))))) - (_E138034138043_))))) + (if (eq? '%#begin _$e137991_) + (_expand-splice137898_ + _hd137961_ + _body137987_ + _rest137959_ + _r137933_) + (if (eq? '%#cond-expand _$e137991_) + (_expand-cond-expand137899_ + _hd137961_ + _rest137959_ + _r137933_) + (if (eq? '%#include _$e137991_) + (_expand-include137900_ + _hd137961_ + _rest137959_ + _r137933_) + (_expand-special137894_ + _hd137961_ + _K137902_ + _rest137959_ + _r137933_))))) + (_expand-expression137901_ + _hd137961_ + _rest137959_ + _r137933_))) + (_E137964137973_))))) + (_E137964137973_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E138033138064_)) - (_E138006138015_))))) - (_E138006138015_))))) - (_E138005138068_))))) - (let* ((_e137973137980_ _stx137963_) - (_E137975137984_ + (_E137963137994_)) + (_E137936137945_))))) + (_E137936137945_))))) + (_E137935137998_))))) + (let* ((_e137903137910_ _stx137893_) + (_E137905137914_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e137973137980_))) - (_E137974137998_ + _e137903137910_))) + (_E137904137928_ (lambda () - (if (gx#stx-pair? _e137973137980_) - (let ((_e137976137988_ (gx#syntax-e _e137973137980_))) - (let ((_hd137977137991_ (##car _e137976137988_)) - (_tl137978137993_ (##cdr _e137976137988_))) - (let ((_body137996_ _tl137978137993_)) - (if (gx#stx-list? _body137996_) - (_K137972_ _body137996_ '()) - (_E137975137984_))))) - (_E137975137984_))))) - (_E137974137998_))))) + (if (gx#stx-pair? _e137903137910_) + (let ((_e137906137918_ (gx#syntax-e _e137903137910_))) + (let ((_hd137907137921_ (##car _e137906137918_)) + (_tl137908137923_ (##cdr _e137906137918_))) + (let ((_body137926_ _tl137908137923_)) + (if (gx#stx-list? _body137926_) + (_K137902_ _body137926_ '()) + (_E137905137914_))))) + (_E137905137914_))))) + (_E137904137928_))))) (define gx#core-expand-block__0 - (lambda (_stx138139_ _expand-special138140_) - (let* ((_begin-form138142_ '%#begin) - (_expand-e138144_ gx#core-expand-expression)) + (lambda (_stx138069_ _expand-special138070_) + (let* ((_begin-form138072_ '%#begin) + (_expand-e138074_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx138139_ - _expand-special138140_ - _begin-form138142_ - _expand-e138144_)))) + _stx138069_ + _expand-special138070_ + _begin-form138072_ + _expand-e138074_)))) (define gx#core-expand-block__1 - (lambda (_stx138146_ _expand-special138147_ _begin-form138148_) - (let ((_expand-e138150_ gx#core-expand-expression)) + (lambda (_stx138076_ _expand-special138077_ _begin-form138078_) + (let ((_expand-e138080_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx138146_ - _expand-special138147_ - _begin-form138148_ - _expand-e138150_)))) + _stx138076_ + _expand-special138077_ + _begin-form138078_ + _expand-e138080_)))) (define gx#core-expand-block - (lambda _g142999_ - (let ((_g142998_ (##length _g142999_))) - (cond ((##fx= _g142998_ 2) - (apply (lambda (_stx138139_ _expand-special138140_) + (lambda _g142929_ + (let ((_g142928_ (##length _g142929_))) + (cond ((##fx= _g142928_ 2) + (apply (lambda (_stx138069_ _expand-special138070_) (gx#core-expand-block__0 - _stx138139_ - _expand-special138140_)) - _g142999_)) - ((##fx= _g142998_ 3) - (apply (lambda (_stx138146_ - _expand-special138147_ - _begin-form138148_) + _stx138069_ + _expand-special138070_)) + _g142929_)) + ((##fx= _g142928_ 3) + (apply (lambda (_stx138076_ + _expand-special138077_ + _begin-form138078_) (gx#core-expand-block__1 - _stx138146_ - _expand-special138147_ - _begin-form138148_)) - _g142999_)) - ((##fx= _g142998_ 4) - (apply (lambda (_stx138152_ - _expand-special138153_ - _begin-form138154_ - _expand-e138155_) + _stx138076_ + _expand-special138077_ + _begin-form138078_)) + _g142929_)) + ((##fx= _g142928_ 4) + (apply (lambda (_stx138082_ + _expand-special138083_ + _begin-form138084_ + _expand-e138085_) (gx#core-expand-block__% - _stx138152_ - _expand-special138153_ - _begin-form138154_ - _expand-e138155_)) - _g142999_)) + _stx138082_ + _expand-special138083_ + _begin-form138084_ + _expand-e138085_)) + _g142929_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g142999_)))))) + _g142929_)))))) (define gx#core-expand-block* - (lambda (_stx137911_ _expand-special137912_) - (let* ((_g137913137924_ + (lambda (_stx137841_ _expand-special137842_) + (let* ((_g137843137854_ (gx#core-expand-block__1 - _stx137911_ - _expand-special137912_ + _stx137841_ + _expand-special137842_ '#f)) - (_E137917137928_ - (lambda () (error '"No clause matching" _g137913137924_)))) - (let ((_K137922137959_ + (_E137847137858_ + (lambda () (error '"No clause matching" _g137843137854_)))) + (let ((_K137852137889_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _stx137911_))) - (_K137919137945_ (lambda (_expr137943_) _expr137943_)) - (_K137918137934_ - (lambda (_body137932_) + _stx137841_))) + (_K137849137875_ (lambda (_expr137873_) _expr137873_)) + (_K137848137864_ + (lambda (_body137862_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _body137932_)) - (gx#stx-source _stx137911_))))) - (let ((_try-match137915137955_ + (gx#core-cons '%#begin (reverse _body137862_)) + (gx#stx-source _stx137841_))))) + (let ((_try-match137845137885_ (lambda () - (if (##pair? _g137913137924_) - (let ((_tl137921137950_ (##cdr _g137913137924_)) - (_hd137920137948_ (##car _g137913137924_))) - (if (##null? _tl137921137950_) - (let ((_expr137953_ _hd137920137948_)) - (_K137919137945_ _expr137953_)) - (let ((_body137937_ _g137913137924_)) - (_K137918137934_ _body137937_)))) - (let ((_body137937_ _g137913137924_)) - (_K137918137934_ _body137937_)))))) - (if (##null? _g137913137924_) - (_K137922137959_) - (_try-match137915137955_))))))) + (if (##pair? _g137843137854_) + (let ((_tl137851137880_ (##cdr _g137843137854_)) + (_hd137850137878_ (##car _g137843137854_))) + (if (##null? _tl137851137880_) + (let ((_expr137883_ _hd137850137878_)) + (_K137849137875_ _expr137883_)) + (let ((_body137867_ _g137843137854_)) + (_K137848137864_ _body137867_)))) + (let ((_body137867_ _g137843137854_)) + (_K137848137864_ _body137867_)))))) + (if (##null? _g137843137854_) + (_K137852137889_) + (_try-match137845137885_))))))) (define gx#core-expand-cond-expand% - (lambda (_stx137739_) - (letrec ((_satisfied?137741_ - (lambda (_condition137839_) - (let* ((_e137840137855_ _condition137839_) - (_E137850137859_ + (lambda (_stx137669_) + (letrec ((_satisfied?137671_ + (lambda (_condition137769_) + (let* ((_e137770137785_ _condition137769_) + (_E137780137789_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e137840137855_))) - (_E137843137878_ + _e137770137785_))) + (_E137773137808_ (lambda () - (if (gx#stx-pair? _e137840137855_) - (let ((_e137851137863_ - (gx#syntax-e _e137840137855_))) - (let ((_hd137852137866_ - (##car _e137851137863_)) - (_tl137853137868_ - (##cdr _e137851137863_))) - (let* ((_combinator137871_ - _hd137852137866_) - (_body137873_ _tl137853137868_)) - (if (gx#stx-list? _body137873_) - (let ((_$e137875_ + (if (gx#stx-pair? _e137770137785_) + (let ((_e137781137793_ + (gx#syntax-e _e137770137785_))) + (let ((_hd137782137796_ + (##car _e137781137793_)) + (_tl137783137798_ + (##cdr _e137781137793_))) + (let* ((_combinator137801_ + _hd137782137796_) + (_body137803_ _tl137783137798_)) + (if (gx#stx-list? _body137803_) + (let ((_$e137805_ (gx#stx-e - _combinator137871_))) - (if (eq? 'not _$e137875_) + _combinator137801_))) + (if (eq? 'not _$e137805_) (not (gx#stx-ormap - _satisfied?137741_ - _body137873_)) - (if (eq? 'and _$e137875_) + _satisfied?137671_ + _body137803_)) + (if (eq? 'and _$e137805_) (gx#stx-andmap - _satisfied?137741_ - _body137873_) - (if (eq? 'or _$e137875_) + _satisfied?137671_ + _body137803_) + (if (eq? 'or _$e137805_) (gx#stx-ormap - _satisfied?137741_ - _body137873_) + _satisfied?137671_ + _body137803_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e137875_) - (gx#stx-andmap gx#core-resolve-identifier _body137873_) + _$e137805_) + (gx#stx-andmap gx#core-resolve-identifier _body137803_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _stx137739_ - _combinator137871_)))))) + _stx137669_ + _combinator137801_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E137850137859_))))) - (_E137850137859_)))) - (_E137842137901_ + (_E137780137789_))))) + (_E137780137789_)))) + (_E137772137831_ (lambda () - (if (gx#stx-pair? _e137840137855_) - (let ((_e137844137882_ - (gx#syntax-e _e137840137855_))) - (let ((_hd137845137885_ - (##car _e137844137882_)) - (_tl137846137887_ - (##cdr _e137844137882_))) + (if (gx#stx-pair? _e137770137785_) + (let ((_e137774137812_ + (gx#syntax-e _e137770137785_))) + (let ((_hd137775137815_ + (##car _e137774137812_)) + (_tl137776137817_ + (##cdr _e137774137812_))) (if (and (gx#identifier? - _hd137845137885_) + _hd137775137815_) (gx#core-identifier=? - _hd137845137885_ + _hd137775137815_ 'unquote)) - (if (gx#stx-pair? _tl137846137887_) - (let ((_e137847137890_ + (if (gx#stx-pair? _tl137776137817_) + (let ((_e137777137820_ (gx#syntax-e - _tl137846137887_))) - (let ((_hd137848137893_ - (##car _e137847137890_)) - (_tl137849137895_ - (##cdr _e137847137890_))) - (let ((_expr137898_ - _hd137848137893_)) + _tl137776137817_))) + (let ((_hd137778137823_ + (##car _e137777137820_)) + (_tl137779137825_ + (##cdr _e137777137820_))) + (let ((_expr137828_ + _hd137778137823_)) (if (gx#stx-null? - _tl137849137895_) + _tl137779137825_) (if '#t (call-with-parameters (lambda () (gx#eval-syntax__0 - _expr137898_)) + _expr137828_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1)) - (_E137843137878_)) - (_E137843137878_))))) + (_E137773137808_)) + (_E137773137808_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E137843137878_)) - (_E137843137878_)))) - (_E137843137878_)))) - (_E137841137907_ + (_E137773137808_)) + (_E137773137808_)))) + (_E137773137808_)))) + (_E137771137837_ (lambda () - (let ((_id137905_ _e137840137855_)) - (if (gx#identifier? _id137905_) + (let ((_id137835_ _e137770137785_)) + (if (gx#identifier? _id137835_) (gx#core-bound-identifier?__% - _id137905_ + _id137835_ gx#feature-binding?) - (_E137842137901_)))))) - (_E137841137907_)))) - (_loop137742_ - (lambda (_rest137772_) - (let* ((_e137773137781_ _rest137772_) - (_E137779137785_ + (_E137772137831_)))))) + (_E137771137837_)))) + (_loop137672_ + (lambda (_rest137702_) + (let* ((_e137703137711_ _rest137702_) + (_E137709137715_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e137773137781_))) - (_E137775137789_ + _e137703137711_))) + (_E137705137719_ (lambda () - (if (gx#stx-null? _e137773137781_) - (if '#t '() (_E137779137785_)) - (_E137779137785_)))) - (_E137774137835_ + (if (gx#stx-null? _e137703137711_) + (if '#t '() (_E137709137715_)) + (_E137709137715_)))) + (_E137704137765_ (lambda () - (if (gx#stx-pair? _e137773137781_) - (let ((_e137776137793_ - (gx#syntax-e _e137773137781_))) - (let ((_hd137777137796_ - (##car _e137776137793_)) - (_tl137778137798_ - (##cdr _e137776137793_))) - (let* ((_hd137801_ _hd137777137796_) - (_rest137803_ _tl137778137798_)) + (if (gx#stx-pair? _e137703137711_) + (let ((_e137706137723_ + (gx#syntax-e _e137703137711_))) + (let ((_hd137707137726_ + (##car _e137706137723_)) + (_tl137708137728_ + (##cdr _e137706137723_))) + (let* ((_hd137731_ _hd137707137726_) + (_rest137733_ _tl137708137728_)) (if '#t - (let* ((_e137804137811_ _hd137801_) - (_E137806137815_ + (let* ((_e137734137741_ _hd137731_) + (_E137736137745_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e137804137811_))) - (_E137805137831_ + _e137734137741_))) + (_E137735137761_ (lambda () (if (gx#stx-pair? - _e137804137811_) - (let ((_e137807137819_ + _e137734137741_) + (let ((_e137737137749_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e137804137811_))) - (let ((_hd137808137822_ (##car _e137807137819_)) - (_tl137809137824_ (##cdr _e137807137819_))) - (let* ((_condition137827_ _hd137808137822_) - (_body137829_ _tl137809137824_)) + (gx#syntax-e _e137734137741_))) + (let ((_hd137738137752_ (##car _e137737137749_)) + (_tl137739137754_ (##cdr _e137737137749_))) + (let* ((_condition137757_ _hd137738137752_) + (_body137759_ _tl137739137754_)) (if '#t - (if (gx#stx-eq? _condition137827_ 'else) - (if (gx#stx-null? _rest137803_) - _body137829_ + (if (gx#stx-eq? _condition137757_ 'else) + (if (gx#stx-null? _rest137733_) + _body137759_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _stx137739_ - _hd137801_)) - (if (_satisfied?137741_ _condition137827_) - _body137829_ - (_loop137742_ _rest137803_))) - (_E137806137815_))))) - (_E137806137815_))))) + _stx137669_ + _hd137731_)) + (if (_satisfied?137671_ _condition137757_) + _body137759_ + (_loop137672_ _rest137733_))) + (_E137736137745_))))) + (_E137736137745_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E137805137831_)) - (_E137775137789_))))) - (_E137775137789_))))) - (_E137774137835_))))) - (let* ((_e137743137750_ _stx137739_) - (_E137745137754_ + (_E137735137761_)) + (_E137705137719_))))) + (_E137705137719_))))) + (_E137704137765_))))) + (let* ((_e137673137680_ _stx137669_) + (_E137675137684_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e137743137750_))) - (_E137744137768_ + _e137673137680_))) + (_E137674137698_ (lambda () - (if (gx#stx-pair? _e137743137750_) - (let ((_e137746137758_ (gx#syntax-e _e137743137750_))) - (let ((_hd137747137761_ (##car _e137746137758_)) - (_tl137748137763_ (##cdr _e137746137758_))) - (let ((_clauses137766_ _tl137748137763_)) - (if (gx#stx-list? _clauses137766_) + (if (gx#stx-pair? _e137673137680_) + (let ((_e137676137688_ (gx#syntax-e _e137673137680_))) + (let ((_hd137677137691_ (##car _e137676137688_)) + (_tl137678137693_ (##cdr _e137676137688_))) + (let ((_clauses137696_ _tl137678137693_)) + (if (gx#stx-list? _clauses137696_) (gx#core-cons 'begin - (_loop137742_ _clauses137766_)) - (_E137745137754_))))) - (_E137745137754_))))) - (_E137744137768_))))) + (_loop137672_ _clauses137696_)) + (_E137675137684_))))) + (_E137675137684_))))) + (_E137674137698_))))) (define gx#core-expand-include%__% - (lambda (_stx137682_ _rpath137683_) - (let* ((_e137684137694_ _stx137682_) - (_E137686137698_ + (lambda (_stx137612_ _rpath137613_) + (let* ((_e137614137624_ _stx137612_) + (_E137616137628_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e137684137694_))) - (_E137685137725_ + _e137614137624_))) + (_E137615137655_ (lambda () - (if (gx#stx-pair? _e137684137694_) - (let ((_e137687137702_ (gx#syntax-e _e137684137694_))) - (let ((_hd137688137705_ (##car _e137687137702_)) - (_tl137689137707_ (##cdr _e137687137702_))) - (if (gx#stx-pair? _tl137689137707_) - (let ((_e137690137710_ - (gx#syntax-e _tl137689137707_))) - (let ((_hd137691137713_ - (##car _e137690137710_)) - (_tl137692137715_ - (##cdr _e137690137710_))) - (let ((_path137718_ _hd137691137713_)) - (if (gx#stx-null? _tl137692137715_) - (if (gx#stx-string? _path137718_) - (let ((_rpath137723_ - (let ((_$e137720_ - _rpath137683_)) - (if _$e137720_ - _$e137720_ + (if (gx#stx-pair? _e137614137624_) + (let ((_e137617137632_ (gx#syntax-e _e137614137624_))) + (let ((_hd137618137635_ (##car _e137617137632_)) + (_tl137619137637_ (##cdr _e137617137632_))) + (if (gx#stx-pair? _tl137619137637_) + (let ((_e137620137640_ + (gx#syntax-e _tl137619137637_))) + (let ((_hd137621137643_ + (##car _e137620137640_)) + (_tl137622137645_ + (##cdr _e137620137640_))) + (let ((_path137648_ _hd137621137643_)) + (if (gx#stx-null? _tl137622137645_) + (if (gx#stx-string? _path137648_) + (let ((_rpath137653_ + (let ((_$e137650_ + _rpath137613_)) + (if _$e137650_ + _$e137650_ (gx#core-resolve-path__% - _path137718_ + _path137648_ (gx#stx-source - _stx137682_)))))) - (if (member _rpath137723_ + _stx137612_)))))) + (if (member _rpath137653_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _stx137682_) + _stx137612_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _rpath137723_)) + _rpath137653_)) (gx#stx-source - _stx137682_))))) - (_E137686137698_)) - (_E137686137698_))))) - (_E137686137698_)))) - (_E137686137698_))))) - (_E137685137725_)))) + _stx137612_))))) + (_E137616137628_)) + (_E137616137628_))))) + (_E137616137628_)))) + (_E137616137628_))))) + (_E137615137655_)))) (define gx#core-expand-include%__0 - (lambda (_stx137732_) - (let ((_rpath137734_ '#f)) - (gx#core-expand-include%__% _stx137732_ _rpath137734_)))) + (lambda (_stx137662_) + (let ((_rpath137664_ '#f)) + (gx#core-expand-include%__% _stx137662_ _rpath137664_)))) (define gx#core-expand-include% - (lambda _g143001_ - (let ((_g143000_ (##length _g143001_))) - (cond ((##fx= _g143000_ 1) - (apply (lambda (_stx137732_) - (gx#core-expand-include%__0 _stx137732_)) - _g143001_)) - ((##fx= _g143000_ 2) - (apply (lambda (_stx137736_ _rpath137737_) + (lambda _g142931_ + (let ((_g142930_ (##length _g142931_))) + (cond ((##fx= _g142930_ 1) + (apply (lambda (_stx137662_) + (gx#core-expand-include%__0 _stx137662_)) + _g142931_)) + ((##fx= _g142930_ 2) + (apply (lambda (_stx137666_ _rpath137667_) (gx#core-expand-include%__% - _stx137736_ - _rpath137737_)) - _g143001_)) + _stx137666_ + _rpath137667_)) + _g142931_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g143001_)))))) + _g142931_)))))) (define gx#core-apply-expander__% - (lambda (_K137651_ _stx137652_ _method137653_) - (if (procedure? _K137651_) - (let ((_$e137655_ (gx#stx-source _stx137652_))) - (if _$e137655_ - ((lambda (_g137657137659_) + (lambda (_K137581_ _stx137582_ _method137583_) + (if (procedure? _K137581_) + (let ((_$e137585_ (gx#stx-source _stx137582_))) + (if _$e137585_ + ((lambda (_g137587137589_) (gx#stx-wrap-source - (_K137651_ _stx137652_) - _g137657137659_)) - _$e137655_) - (_K137651_ _stx137652_))) - (let ((_$e137662_ (bound-method-ref _K137651_ _method137653_))) - (if _$e137662_ - ((lambda (_g137664137666_) + (_K137581_ _stx137582_) + _g137587137589_)) + _$e137585_) + (_K137581_ _stx137582_))) + (let ((_$e137592_ (bound-method-ref _K137581_ _method137583_))) + (if _$e137592_ + ((lambda (_g137594137596_) (gx#core-apply-expander__% - _g137664137666_ - _stx137652_ - _method137653_)) - _$e137662_) + _g137594137596_ + _stx137582_ + _method137583_)) + _$e137592_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _stx137652_ - _method137653_)))))) + _stx137582_ + _method137583_)))))) (define gx#core-apply-expander__0 - (lambda (_K137672_ _stx137673_) - (let ((_method137675_ 'apply-macro-expander)) - (gx#core-apply-expander__% _K137672_ _stx137673_ _method137675_)))) + (lambda (_K137602_ _stx137603_) + (let ((_method137605_ 'apply-macro-expander)) + (gx#core-apply-expander__% _K137602_ _stx137603_ _method137605_)))) (define gx#core-apply-expander - (lambda _g143003_ - (let ((_g143002_ (##length _g143003_))) - (cond ((##fx= _g143002_ 2) - (apply (lambda (_K137672_ _stx137673_) - (gx#core-apply-expander__0 _K137672_ _stx137673_)) - _g143003_)) - ((##fx= _g143002_ 3) - (apply (lambda (_K137677_ _stx137678_ _method137679_) + (lambda _g142933_ + (let ((_g142932_ (##length _g142933_))) + (cond ((##fx= _g142932_ 2) + (apply (lambda (_K137602_ _stx137603_) + (gx#core-apply-expander__0 _K137602_ _stx137603_)) + _g142933_)) + ((##fx= _g142932_ 3) + (apply (lambda (_K137607_ _stx137608_ _method137609_) (gx#core-apply-expander__% - _K137677_ - _stx137678_ - _method137679_)) - _g143003_)) + _K137607_ + _stx137608_ + _method137609_)) + _g142933_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g143003_)))))) + _g142933_)))))) (define gx#expander::apply-macro-expander - (lambda (_self137647_ _stx137648_) + (lambda (_self137577_ _stx137578_) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _stx137648_))) + _stx137578_))) (bind-method! gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_self137500_ _stx137501_) - (let* ((_self137502137508_ _self137500_) - (_E137504137512_ - (lambda () (error '"No clause matching" _self137502137508_))) - (_K137505137517_ - (lambda (_K137515_) - (gx#core-apply-expander__0 _K137515_ _stx137501_)))) - (if (##structure-instance-of? _self137502137508_ 'gx#core-macro::t) - (let* ((_e137506137520_ + (lambda (_self137430_ _stx137431_) + (let* ((_self137432137438_ _self137430_) + (_E137434137442_ + (lambda () (error '"No clause matching" _self137432137438_))) + (_K137435137447_ + (lambda (_K137445_) + (gx#core-apply-expander__0 _K137445_ _stx137431_)))) + (if (##structure-instance-of? _self137432137438_ 'gx#core-macro::t) + (let* ((_e137436137450_ (##unchecked-structure-ref - _self137502137508_ + _self137432137438_ '1 gx#expander::t '#f)) - (_K137523_ _e137506137520_)) - (_K137505137517_ _K137523_)) - (_E137504137512_))))) + (_K137453_ _e137436137450_)) + (_K137435137447_ _K137453_)) + (_E137434137442_))))) (bind-method! gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_self137353_ _stx137354_) - (if (gx#sealed-syntax? _stx137354_) - _stx137354_ - (let* ((_self137355137361_ _self137353_) - (_E137357137365_ + (lambda (_self137283_ _stx137284_) + (if (gx#sealed-syntax? _stx137284_) + _stx137284_ + (let* ((_self137285137291_ _self137283_) + (_E137287137295_ (lambda () - (error '"No clause matching" _self137355137361_))) - (_K137358137370_ - (lambda (_K137368_) - (gx#core-apply-expander__0 _K137368_ _stx137354_)))) + (error '"No clause matching" _self137285137291_))) + (_K137288137300_ + (lambda (_K137298_) + (gx#core-apply-expander__0 _K137298_ _stx137284_)))) (if (##structure-instance-of? - _self137355137361_ + _self137285137291_ 'gx#core-expander::t) - (let* ((_e137359137373_ + (let* ((_e137289137303_ (##unchecked-structure-ref - _self137355137361_ + _self137285137291_ '1 gx#expander::t '#f)) - (_K137376_ _e137359137373_)) - (_K137358137370_ _K137376_)) - (_E137357137365_)))))) + (_K137306_ _e137289137303_)) + (_K137288137300_ _K137306_)) + (_E137287137295_)))))) (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 (_self137215_ _stx137216_ _top?137217_) - (if (_top?137217_ (gx#current-expander-context)) - (gx#core-expander::apply-macro-expander _self137215_ _stx137216_) + (lambda (_self137145_ _stx137146_ _top?137147_) + (if (_top?137147_ (gx#current-expander-context)) + (gx#core-expander::apply-macro-expander _self137145_ _stx137146_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _stx137216_)))) + _stx137146_)))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_self137222_ _stx137223_) - (let ((_top?137225_ gx#top-context?)) + (lambda (_self137152_ _stx137153_) + (let ((_top?137155_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _self137222_ - _stx137223_ - _top?137225_)))) + _self137152_ + _stx137153_ + _top?137155_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g143005_ - (let ((_g143004_ (##length _g143005_))) - (cond ((##fx= _g143004_ 2) - (apply (lambda (_self137222_ _stx137223_) + (lambda _g142935_ + (let ((_g142934_ (##length _g142935_))) + (cond ((##fx= _g142934_ 2) + (apply (lambda (_self137152_ _stx137153_) (gx#top-special-form::apply-macro-expander__0 - _self137222_ - _stx137223_)) - _g143005_)) - ((##fx= _g143004_ 3) - (apply (lambda (_self137227_ _stx137228_ _top?137229_) + _self137152_ + _stx137153_)) + _g142935_)) + ((##fx= _g142934_ 3) + (apply (lambda (_self137157_ _stx137158_ _top?137159_) (gx#top-special-form::apply-macro-expander__% - _self137227_ - _stx137228_ - _top?137229_)) - _g143005_)) + _self137157_ + _stx137158_ + _top?137159_)) + _g142935_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g143005_)))))) + _g142935_)))))) (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 (_self137089_ _stx137090_) + (lambda (_self137019_ _stx137020_) (gx#top-special-form::apply-macro-expander__% - _self137089_ - _stx137090_ + _self137019_ + _stx137020_ gx#module-context?))) (bind-method! gx#module-special-form::t @@ -2307,138 +2307,138 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_self136914_ _stx136915_) - (let* ((_self136916136922_ _self136914_) - (_E136918136926_ - (lambda () (error '"No clause matching" _self136916136922_))) - (_K136919136959_ - (lambda (_id136929_) - (let* ((_e136930136937_ _stx136915_) - (_E136932136941_ + (lambda (_self136844_ _stx136845_) + (let* ((_self136846136852_ _self136844_) + (_E136848136856_ + (lambda () (error '"No clause matching" _self136846136852_))) + (_K136849136889_ + (lambda (_id136859_) + (let* ((_e136860136867_ _stx136845_) + (_E136862136871_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e136930136937_))) - (_E136931136955_ + _e136860136867_))) + (_E136861136885_ (lambda () - (if (gx#stx-pair? _e136930136937_) - (let ((_e136933136945_ - (gx#syntax-e _e136930136937_))) - (let ((_hd136934136948_ - (##car _e136933136945_)) - (_tl136935136950_ - (##cdr _e136933136945_))) - (let ((_body136953_ _tl136935136950_)) + (if (gx#stx-pair? _e136860136867_) + (let ((_e136863136875_ + (gx#syntax-e _e136860136867_))) + (let ((_hd136864136878_ + (##car _e136863136875_)) + (_tl136865136880_ + (##cdr _e136863136875_))) + (let ((_body136883_ _tl136865136880_)) (if '#t (gx#core-cons - _id136929_ - _body136953_) - (_E136932136941_))))) - (_E136932136941_))))) - (_E136931136955_))))) + _id136859_ + _body136883_) + (_E136862136871_))))) + (_E136862136871_))))) + (_E136861136885_))))) (if (##structure-instance-of? - _self136916136922_ + _self136846136852_ 'gx#rename-macro-expander::t) - (let* ((_e136920136962_ + (let* ((_e136850136892_ (##unchecked-structure-ref - _self136916136922_ + _self136846136852_ '1 gx#expander::t '#f)) - (_id136965_ _e136920136962_)) - (_K136919136959_ _id136965_)) - (_E136918136926_))))) + (_id136895_ _e136850136892_)) + (_K136849136889_ _id136895_)) + (_E136848136856_))))) (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 (_self136740_ _stx136741_ _method136742_) - (let* ((_self136743136751_ _self136740_) - (_E136745136755_ - (lambda () (error '"No clause matching" _self136743136751_))) - (_K136746136762_ - (lambda (_phi136758_ _ctx136759_ _K136760_) + (lambda (_self136670_ _stx136671_ _method136672_) + (let* ((_self136673136681_ _self136670_) + (_E136675136685_ + (lambda () (error '"No clause matching" _self136673136681_))) + (_K136676136692_ + (lambda (_phi136688_ _ctx136689_ _K136690_) (gx#core-apply-user-macro - _K136760_ - _stx136741_ - _ctx136759_ - _phi136758_ - _method136742_)))) + _K136690_ + _stx136671_ + _ctx136689_ + _phi136688_ + _method136672_)))) (if (##structure-instance-of? - _self136743136751_ + _self136673136681_ 'gx#macro-expander::t) - (let* ((_e136747136765_ + (let* ((_e136677136695_ (##unchecked-structure-ref - _self136743136751_ + _self136673136681_ '1 gx#expander::t '#f)) - (_K136768_ _e136747136765_) - (_e136748136770_ + (_K136698_ _e136677136695_) + (_e136678136700_ (##unchecked-structure-ref - _self136743136751_ + _self136673136681_ '2 gx#user-expander::t '#f)) - (_ctx136773_ _e136748136770_) - (_e136749136775_ + (_ctx136703_ _e136678136700_) + (_e136679136705_ (##unchecked-structure-ref - _self136743136751_ + _self136673136681_ '3 gx#user-expander::t '#f)) - (_phi136778_ _e136749136775_)) - (_K136746136762_ _phi136778_ _ctx136773_ _K136768_)) - (_E136745136755_))))) + (_phi136708_ _e136679136705_)) + (_K136676136692_ _phi136708_ _ctx136703_ _K136698_)) + (_E136675136685_))))) (define gx#core-apply-user-expander__0 - (lambda (_self136783_ _stx136784_) - (let ((_method136786_ 'apply-macro-expander)) + (lambda (_self136713_ _stx136714_) + (let ((_method136716_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _self136783_ - _stx136784_ - _method136786_)))) + _self136713_ + _stx136714_ + _method136716_)))) (define gx#core-apply-user-expander - (lambda _g143007_ - (let ((_g143006_ (##length _g143007_))) - (cond ((##fx= _g143006_ 2) - (apply (lambda (_self136783_ _stx136784_) + (lambda _g142937_ + (let ((_g142936_ (##length _g142937_))) + (cond ((##fx= _g142936_ 2) + (apply (lambda (_self136713_ _stx136714_) (gx#core-apply-user-expander__0 - _self136783_ - _stx136784_)) - _g143007_)) - ((##fx= _g143006_ 3) - (apply (lambda (_self136788_ _stx136789_ _method136790_) + _self136713_ + _stx136714_)) + _g142937_)) + ((##fx= _g142936_ 3) + (apply (lambda (_self136718_ _stx136719_ _method136720_) (gx#core-apply-user-expander__% - _self136788_ - _stx136789_ - _method136790_)) - _g143007_)) + _self136718_ + _stx136719_ + _method136720_)) + _g142937_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g143007_)))))) + _g142937_)))))) (define gx#core-apply-user-macro - (lambda (_K136730_ _stx136731_ _ctx136732_ _phi136733_ _method136734_) - (let ((_mark136736_ + (lambda (_K136660_ _stx136661_ _ctx136662_ _phi136663_ _method136664_) + (let ((_mark136666_ (##structure gx#expander-mark::t '#f - _ctx136732_ - _phi136733_ - _stx136731_))) + _ctx136662_ + _phi136663_ + _stx136661_))) (call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _K136730_ - (gx#stx-apply-mark _stx136731_ _mark136736_) - _method136734_) - _mark136736_)) + _K136660_ + (gx#stx-apply-mark _stx136661_ _mark136666_) + _method136664_) + _mark136666_)) gx#current-expander-marks - (cons _mark136736_ (gx#current-expander-marks)))))) + (cons _mark136666_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (bind-method! gx#user-expander::t @@ -2446,433 +2446,433 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_stx136582_ _phi136583_ _ctx136584_) - (let _lp136586_ ((_bind136588_ + (lambda (_stx136512_ _phi136513_ _ctx136514_) + (let _lp136516_ ((_bind136518_ (gx#core-resolve-identifier__% - _stx136582_ - _phi136583_ - _ctx136584_))) + _stx136512_ + _phi136513_ + _ctx136514_))) (if (##structure-direct-instance-of? - _bind136588_ + _bind136518_ 'gx#import-binding::t) - (_lp136586_ + (_lp136516_ (##unchecked-structure-ref - _bind136588_ + _bind136518_ '4 gx#import-binding::t '#f)) (if (##structure-direct-instance-of? - _bind136588_ + _bind136518_ 'gx#alias-binding::t) - (_lp136586_ + (_lp136516_ (gx#core-resolve-identifier__% (##unchecked-structure-ref - _bind136588_ + _bind136518_ '4 gx#alias-binding::t '#f) - _phi136583_ - _ctx136584_)) - _bind136588_))))) + _phi136513_ + _ctx136514_)) + _bind136518_))))) (define gx#resolve-identifier__0 - (lambda (_stx136593_) - (let* ((_phi136595_ (gx#current-expander-phi)) - (_ctx136597_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx136593_ _phi136595_ _ctx136597_)))) + (lambda (_stx136523_) + (let* ((_phi136525_ (gx#current-expander-phi)) + (_ctx136527_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx136523_ _phi136525_ _ctx136527_)))) (define gx#resolve-identifier__1 - (lambda (_stx136599_ _phi136600_) - (let ((_ctx136602_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx136599_ _phi136600_ _ctx136602_)))) + (lambda (_stx136529_ _phi136530_) + (let ((_ctx136532_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx136529_ _phi136530_ _ctx136532_)))) (define gx#resolve-identifier - (lambda _g143009_ - (let ((_g143008_ (##length _g143009_))) - (cond ((##fx= _g143008_ 1) - (apply (lambda (_stx136593_) - (gx#resolve-identifier__0 _stx136593_)) - _g143009_)) - ((##fx= _g143008_ 2) - (apply (lambda (_stx136599_ _phi136600_) - (gx#resolve-identifier__1 _stx136599_ _phi136600_)) - _g143009_)) - ((##fx= _g143008_ 3) - (apply (lambda (_stx136604_ _phi136605_ _ctx136606_) + (lambda _g142939_ + (let ((_g142938_ (##length _g142939_))) + (cond ((##fx= _g142938_ 1) + (apply (lambda (_stx136523_) + (gx#resolve-identifier__0 _stx136523_)) + _g142939_)) + ((##fx= _g142938_ 2) + (apply (lambda (_stx136529_ _phi136530_) + (gx#resolve-identifier__1 _stx136529_ _phi136530_)) + _g142939_)) + ((##fx= _g142938_ 3) + (apply (lambda (_stx136534_ _phi136535_ _ctx136536_) (gx#resolve-identifier__% - _stx136604_ - _phi136605_ - _ctx136606_)) - _g143009_)) + _stx136534_ + _phi136535_ + _ctx136536_)) + _g142939_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g143009_)))))) + _g142939_)))))) (define gx#bind-identifier!__% - (lambda (_stx136540_ _val136541_ _rebind?136542_ _phi136543_ _ctx136544_) - (let ((_rebind?136546_ - (if (not _rebind?136542_) + (lambda (_stx136470_ _val136471_ _rebind?136472_ _phi136473_ _ctx136474_) + (let ((_rebind?136476_ + (if (not _rebind?136472_) gx#core-context-rebind? - (if (procedure? _rebind?136542_) _rebind?136542_ true)))) + (if (procedure? _rebind?136472_) _rebind?136472_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _stx136540_) - _val136541_ - _rebind?136546_ - _phi136543_ - _ctx136544_)))) + (gx#core-identifier-key _stx136470_) + _val136471_ + _rebind?136476_ + _phi136473_ + _ctx136474_)))) (define gx#bind-identifier!__0 - (lambda (_stx136551_ _val136552_) - (let* ((_rebind?136554_ '#f) - (_phi136556_ (gx#current-expander-phi)) - (_ctx136558_ (gx#current-expander-context))) + (lambda (_stx136481_ _val136482_) + (let* ((_rebind?136484_ '#f) + (_phi136486_ (gx#current-expander-phi)) + (_ctx136488_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx136551_ - _val136552_ - _rebind?136554_ - _phi136556_ - _ctx136558_)))) + _stx136481_ + _val136482_ + _rebind?136484_ + _phi136486_ + _ctx136488_)))) (define gx#bind-identifier!__1 - (lambda (_stx136560_ _val136561_ _rebind?136562_) - (let* ((_phi136564_ (gx#current-expander-phi)) - (_ctx136566_ (gx#current-expander-context))) + (lambda (_stx136490_ _val136491_ _rebind?136492_) + (let* ((_phi136494_ (gx#current-expander-phi)) + (_ctx136496_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx136560_ - _val136561_ - _rebind?136562_ - _phi136564_ - _ctx136566_)))) + _stx136490_ + _val136491_ + _rebind?136492_ + _phi136494_ + _ctx136496_)))) (define gx#bind-identifier!__2 - (lambda (_stx136568_ _val136569_ _rebind?136570_ _phi136571_) - (let ((_ctx136573_ (gx#current-expander-context))) + (lambda (_stx136498_ _val136499_ _rebind?136500_ _phi136501_) + (let ((_ctx136503_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx136568_ - _val136569_ - _rebind?136570_ - _phi136571_ - _ctx136573_)))) + _stx136498_ + _val136499_ + _rebind?136500_ + _phi136501_ + _ctx136503_)))) (define gx#bind-identifier! - (lambda _g143011_ - (let ((_g143010_ (##length _g143011_))) - (cond ((##fx= _g143010_ 2) - (apply (lambda (_stx136551_ _val136552_) - (gx#bind-identifier!__0 _stx136551_ _val136552_)) - _g143011_)) - ((##fx= _g143010_ 3) - (apply (lambda (_stx136560_ _val136561_ _rebind?136562_) + (lambda _g142941_ + (let ((_g142940_ (##length _g142941_))) + (cond ((##fx= _g142940_ 2) + (apply (lambda (_stx136481_ _val136482_) + (gx#bind-identifier!__0 _stx136481_ _val136482_)) + _g142941_)) + ((##fx= _g142940_ 3) + (apply (lambda (_stx136490_ _val136491_ _rebind?136492_) (gx#bind-identifier!__1 - _stx136560_ - _val136561_ - _rebind?136562_)) - _g143011_)) - ((##fx= _g143010_ 4) - (apply (lambda (_stx136568_ - _val136569_ - _rebind?136570_ - _phi136571_) + _stx136490_ + _val136491_ + _rebind?136492_)) + _g142941_)) + ((##fx= _g142940_ 4) + (apply (lambda (_stx136498_ + _val136499_ + _rebind?136500_ + _phi136501_) (gx#bind-identifier!__2 - _stx136568_ - _val136569_ - _rebind?136570_ - _phi136571_)) - _g143011_)) - ((##fx= _g143010_ 5) - (apply (lambda (_stx136575_ - _val136576_ - _rebind?136577_ - _phi136578_ - _ctx136579_) + _stx136498_ + _val136499_ + _rebind?136500_ + _phi136501_)) + _g142941_)) + ((##fx= _g142940_ 5) + (apply (lambda (_stx136505_ + _val136506_ + _rebind?136507_ + _phi136508_ + _ctx136509_) (gx#bind-identifier!__% - _stx136575_ - _val136576_ - _rebind?136577_ - _phi136578_ - _ctx136579_)) - _g143011_)) + _stx136505_ + _val136506_ + _rebind?136507_ + _phi136508_ + _ctx136509_)) + _g142941_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g143011_)))))) + _g142941_)))))) (define gx#core-resolve-identifier__% - (lambda (_stx136512_ _phi136513_ _ctx136514_) - (let _lp136516_ ((_e136518_ _stx136512_) - (_marks136519_ (gx#current-expander-marks))) - (if (symbol? _e136518_) + (lambda (_stx136442_ _phi136443_ _ctx136444_) + (let _lp136446_ ((_e136448_ _stx136442_) + (_marks136449_ (gx#current-expander-marks))) + (if (symbol? _e136448_) (gx#core-resolve-binding - _e136518_ - _phi136513_ - _phi136513_ - _ctx136514_ - (reverse _marks136519_)) - (if (gx#identifier-quote? _e136518_) + _e136448_ + _phi136443_ + _phi136443_ + _ctx136444_ + (reverse _marks136449_)) + (if (gx#identifier-quote? _e136448_) (gx#core-resolve-binding - (##unchecked-structure-ref _e136518_ '1 gx#AST::t '#f) - _phi136513_ + (##unchecked-structure-ref _e136448_ '1 gx#AST::t '#f) + _phi136443_ '0 (##unchecked-structure-ref - _e136518_ + _e136448_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _e136518_ + _e136448_ '4 gx#syntax-quote::t '#f)) (if (##structure-direct-instance-of? - _e136518_ + _e136448_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _e136518_ '1 gx#AST::t '#f) - _phi136513_ - _phi136513_ - _ctx136514_ + (##unchecked-structure-ref _e136448_ '1 gx#AST::t '#f) + _phi136443_ + _phi136443_ + _ctx136444_ (foldl1 gx#apply-mark (##unchecked-structure-ref - _e136518_ + _e136448_ '3 gx#identifier-wrap::t '#f) - _marks136519_)) + _marks136449_)) (if (##structure-direct-instance-of? - _e136518_ + _e136448_ 'gx#syntax-wrap::t) - (_lp136516_ + (_lp136446_ (##unchecked-structure-ref - _e136518_ + _e136448_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e136518_ + _e136448_ '3 gx#syntax-wrap::t '#f) - _marks136519_)) + _marks136449_)) (if (##structure-instance-of? - _e136518_ + _e136448_ 'gerbil#AST::t) - (_lp136516_ + (_lp136446_ (##unchecked-structure-ref - _e136518_ + _e136448_ '1 gx#AST::t '#f) - _marks136519_) + _marks136449_) (gx#raise-syntax-error '#f '"Bad identifier" - _stx136512_))))))))) + _stx136442_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_stx136524_) - (let* ((_phi136526_ (gx#current-expander-phi)) - (_ctx136528_ (gx#current-expander-context))) + (lambda (_stx136454_) + (let* ((_phi136456_ (gx#current-expander-phi)) + (_ctx136458_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _stx136524_ - _phi136526_ - _ctx136528_)))) + _stx136454_ + _phi136456_ + _ctx136458_)))) (define gx#core-resolve-identifier__1 - (lambda (_stx136530_ _phi136531_) - (let ((_ctx136533_ (gx#current-expander-context))) + (lambda (_stx136460_ _phi136461_) + (let ((_ctx136463_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _stx136530_ - _phi136531_ - _ctx136533_)))) + _stx136460_ + _phi136461_ + _ctx136463_)))) (define gx#core-resolve-identifier - (lambda _g143013_ - (let ((_g143012_ (##length _g143013_))) - (cond ((##fx= _g143012_ 1) - (apply (lambda (_stx136524_) - (gx#core-resolve-identifier__0 _stx136524_)) - _g143013_)) - ((##fx= _g143012_ 2) - (apply (lambda (_stx136530_ _phi136531_) + (lambda _g142943_ + (let ((_g142942_ (##length _g142943_))) + (cond ((##fx= _g142942_ 1) + (apply (lambda (_stx136454_) + (gx#core-resolve-identifier__0 _stx136454_)) + _g142943_)) + ((##fx= _g142942_ 2) + (apply (lambda (_stx136460_ _phi136461_) (gx#core-resolve-identifier__1 - _stx136530_ - _phi136531_)) - _g143013_)) - ((##fx= _g143012_ 3) - (apply (lambda (_stx136535_ _phi136536_ _ctx136537_) + _stx136460_ + _phi136461_)) + _g142943_)) + ((##fx= _g142942_ 3) + (apply (lambda (_stx136465_ _phi136466_ _ctx136467_) (gx#core-resolve-identifier__% - _stx136535_ - _phi136536_ - _ctx136537_)) - _g143013_)) + _stx136465_ + _phi136466_ + _ctx136467_)) + _g142943_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g143013_)))))) + _g142943_)))))) (define gx#core-resolve-binding - (lambda (_id136425_ - _phi136426_ - _src-phi136427_ - _ctx136428_ - _marks136429_) - (letrec ((_resolve136431_ - (lambda (_ctx136499_ _src-phi136500_ _key136501_) - (let _lp136503_ ((_ctx136505_ + (lambda (_id136355_ + _phi136356_ + _src-phi136357_ + _ctx136358_ + _marks136359_) + (letrec ((_resolve136361_ + (lambda (_ctx136429_ _src-phi136430_ _key136431_) + (let _lp136433_ ((_ctx136435_ (gx#core-context-shift - _ctx136499_ - _phi136426_)) - (_dphi136506_ - (fx- _phi136426_ _src-phi136500_))) - (let ((_$e136508_ + _ctx136429_ + _phi136356_)) + (_dphi136436_ + (fx- _phi136356_ _src-phi136430_))) + (let ((_$e136438_ (gx#core-context-resolve - _ctx136505_ - _key136501_))) - (if _$e136508_ - (values _$e136508_) - (if (fxzero? _dphi136506_) + _ctx136435_ + _key136431_))) + (if _$e136438_ + (values _$e136438_) + (if (fxzero? _dphi136436_) '#f - (if (fxpositive? _dphi136506_) - (_lp136503_ - (gx#core-context-shift _ctx136505_ '-1) - (fx- _dphi136506_ '1)) - (_lp136503_ - (gx#core-context-shift _ctx136505_ '1) - (fx+ _dphi136506_ '1)))))))))) - (let _lp136433_ ((_ctx136435_ _ctx136428_) - (_src-phi136436_ _src-phi136427_) - (_rest136437_ _marks136429_)) - (let* ((_rest136438136446_ _rest136437_) - (_else136440136454_ + (if (fxpositive? _dphi136436_) + (_lp136433_ + (gx#core-context-shift _ctx136435_ '-1) + (fx- _dphi136436_ '1)) + (_lp136433_ + (gx#core-context-shift _ctx136435_ '1) + (fx+ _dphi136436_ '1)))))))))) + (let _lp136363_ ((_ctx136365_ _ctx136358_) + (_src-phi136366_ _src-phi136357_) + (_rest136367_ _marks136359_)) + (let* ((_rest136368136376_ _rest136367_) + (_else136370136384_ (lambda () - (_resolve136431_ - _ctx136435_ - _src-phi136436_ - _id136425_))) - (_K136442136487_ - (lambda (_rest136457_ _hd136458_) - (let* ((_hd136459136465_ _hd136458_) - (_E136461136469_ + (_resolve136361_ + _ctx136365_ + _src-phi136366_ + _id136355_))) + (_K136372136417_ + (lambda (_rest136387_ _hd136388_) + (let* ((_hd136389136395_ _hd136388_) + (_E136391136399_ (lambda () (error '"No clause matching" - _hd136459136465_))) - (_K136462136479_ - (lambda (_subst136472_) - (let ((_$e136476_ - (let ((_key136474_ - (if _subst136472_ + _hd136389136395_))) + (_K136392136409_ + (lambda (_subst136402_) + (let ((_$e136406_ + (let ((_key136404_ + (if _subst136402_ (table-ref - _subst136472_ - _id136425_ + _subst136402_ + _id136355_ '#f) '#f))) - (if _key136474_ - (_resolve136431_ - _ctx136435_ - _src-phi136436_ - _key136474_) + (if _key136404_ + (_resolve136361_ + _ctx136365_ + _src-phi136366_ + _key136404_) '#f)))) - (if _$e136476_ - _$e136476_ - (_lp136433_ + (if _$e136406_ + _$e136406_ + (_lp136363_ (##unchecked-structure-ref - _hd136458_ + _hd136388_ '2 gx#expander-mark::t '#f) (##unchecked-structure-ref - _hd136458_ + _hd136388_ '3 gx#expander-mark::t '#f) - _rest136457_)))))) + _rest136387_)))))) (if (##structure-instance-of? - _hd136459136465_ + _hd136389136395_ 'gx#expander-mark::t) - (let* ((_e136463136482_ + (let* ((_e136393136412_ (##unchecked-structure-ref - _hd136459136465_ + _hd136389136395_ '1 gx#expander-mark::t '#f)) - (_subst136485_ _e136463136482_)) - (_K136462136479_ _subst136485_)) - (_E136461136469_)))))) - (if (##pair? _rest136438136446_) - (let ((_hd136443136490_ (##car _rest136438136446_)) - (_tl136444136492_ (##cdr _rest136438136446_))) - (let* ((_hd136495_ _hd136443136490_) - (_rest136497_ _tl136444136492_)) - (_K136442136487_ _rest136497_ _hd136495_))) - (_else136440136454_))))))) + (_subst136415_ _e136393136412_)) + (_K136392136409_ _subst136415_)) + (_E136391136399_)))))) + (if (##pair? _rest136368136376_) + (let ((_hd136373136420_ (##car _rest136368136376_)) + (_tl136374136422_ (##cdr _rest136368136376_))) + (let* ((_hd136425_ _hd136373136420_) + (_rest136427_ _tl136374136422_)) + (_K136372136417_ _rest136427_ _hd136425_))) + (_else136370136384_))))))) (define gx#core-bind!__% - (lambda (_key136301_ _val136302_ _rebind?136303_ _phi136304_ _ctx136305_) - (letrec ((_update-binding136307_ - (lambda (_xval136378_) - (if (or (_rebind?136303_ - _ctx136305_ - _xval136378_ - _val136302_) + (lambda (_key136231_ _val136232_ _rebind?136233_ _phi136234_ _ctx136235_) + (letrec ((_update-binding136237_ + (lambda (_xval136308_) + (if (or (_rebind?136233_ + _ctx136235_ + _xval136308_ + _val136232_) (and (##structure-direct-instance-of? - _xval136378_ + _xval136308_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _xval136378_ + _xval136308_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _val136302_ + _val136232_ 'gx#binding::t) (not (##structure-direct-instance-of? - _val136302_ + _val136232_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _xval136378_ + _xval136308_ 'gx#extern-binding::t) (##structure-instance-of? - _val136302_ + _val136232_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _val136302_ + _val136232_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval136378_ + _xval136308_ '1 gx#binding::t '#f)))) - _val136302_ + _val136232_ (if (and (##structure-direct-instance-of? - _val136302_ + _val136232_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _val136302_ + _val136232_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _xval136378_ + _xval136308_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _val136302_ + _val136232_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval136378_ + _xval136308_ '1 gx#binding::t '#f))))) - _xval136378_ + _xval136308_ (if (and (##structure-direct-instance-of? - _val136302_ + _val136232_ 'gx#import-binding::t) (##structure-instance-of? - _xval136378_ + _xval136308_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _key136301_ + _key136231_ (cons (##unchecked-structure-ref - _val136302_ + _val136232_ '1 gx#binding::t '#f) (cons (##structure-ref (##unchecked-structure-ref - _val136302_ + _val136232_ '5 gx#import-binding::t '#f) @@ -2881,858 +2881,858 @@ '#f) '())) (cons (##unchecked-structure-ref - _xval136378_ + _xval136308_ '1 gx#binding::t '#f) (cons (if (##structure-direct-instance-of? - _xval136378_ + _xval136308_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _xval136378_ + _xval136308_ '5 gx#import-binding::t '#f) '1 gx#expander-context::t '#f) - _xval136378_) + _xval136308_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _key136301_ - _val136302_ - _xval136378_)))))) - (_gensubst136308_ - (lambda (_subst136373_ _id136374_) - (let ((_eid136376_ - (gensym (if (uninterned-symbol? _id136374_) + _key136231_ + _val136232_ + _xval136308_)))))) + (_gensubst136238_ + (lambda (_subst136303_ _id136304_) + (let ((_eid136306_ + (gensym (if (uninterned-symbol? _id136304_) '% - _id136374_)))) - (table-set! _subst136373_ _id136374_ _eid136376_) - _eid136376_))) - (_subst!136309_ - (lambda (_key136311_) - (let* ((_key136312136320_ _key136311_) - (_else136314136328_ (lambda () _key136311_)) - (_K136316136361_ - (lambda (_mark136331_ _id136332_) - (let* ((_mark136333136339_ _mark136331_) - (_E136335136343_ + _id136304_)))) + (table-set! _subst136303_ _id136304_ _eid136306_) + _eid136306_))) + (_subst!136239_ + (lambda (_key136241_) + (let* ((_key136242136250_ _key136241_) + (_else136244136258_ (lambda () _key136241_)) + (_K136246136291_ + (lambda (_mark136261_ _id136262_) + (let* ((_mark136263136269_ _mark136261_) + (_E136265136273_ (lambda () (error '"No clause matching" - _mark136333136339_))) - (_K136336136353_ - (lambda (_subst136346_) - (if (not _subst136346_) - (let ((_subst136348_ + _mark136263136269_))) + (_K136266136283_ + (lambda (_subst136276_) + (if (not _subst136276_) + (let ((_subst136278_ (make-table 'test: eq?))) (##unchecked-structure-set! - _mark136331_ - _subst136348_ + _mark136261_ + _subst136278_ '1 gx#expander-mark::t '#f) - (_gensubst136308_ - _subst136348_ - _id136332_)) - (let ((_$e136350_ + (_gensubst136238_ + _subst136278_ + _id136262_)) + (let ((_$e136280_ (table-ref - _subst136346_ - _id136332_ + _subst136276_ + _id136262_ '#f))) - (if _$e136350_ - (values _$e136350_) - (_gensubst136308_ - _subst136346_ - _id136332_))))))) + (if _$e136280_ + (values _$e136280_) + (_gensubst136238_ + _subst136276_ + _id136262_))))))) (if (##structure-instance-of? - _mark136333136339_ + _mark136263136269_ 'gx#expander-mark::t) - (let* ((_e136337136356_ + (let* ((_e136267136286_ (##unchecked-structure-ref - _mark136333136339_ + _mark136263136269_ '1 gx#expander-mark::t '#f)) - (_subst136359_ _e136337136356_)) - (_K136336136353_ _subst136359_)) - (_E136335136343_)))))) - (if (##pair? _key136312136320_) - (let ((_hd136317136364_ (##car _key136312136320_)) - (_tl136318136366_ (##cdr _key136312136320_))) - (let* ((_id136369_ _hd136317136364_) - (_mark136371_ _tl136318136366_)) - (_K136316136361_ _mark136371_ _id136369_))) - (_else136314136328_)))))) + (_subst136289_ _e136267136286_)) + (_K136266136283_ _subst136289_)) + (_E136265136273_)))))) + (if (##pair? _key136242136250_) + (let ((_hd136247136294_ (##car _key136242136250_)) + (_tl136248136296_ (##cdr _key136242136250_))) + (let* ((_id136299_ _hd136247136294_) + (_mark136301_ _tl136248136296_)) + (_K136246136291_ _mark136301_ _id136299_))) + (_else136244136258_)))))) (gx#core-context-bind! - (gx#core-context-shift _ctx136305_ _phi136304_) - (_subst!136309_ _key136301_) - _val136302_ - _update-binding136307_)))) + (gx#core-context-shift _ctx136235_ _phi136234_) + (_subst!136239_ _key136231_) + _val136232_ + _update-binding136237_)))) (define gx#core-bind!__0 - (lambda (_key136395_ _val136396_) - (let* ((_rebind?136398_ false) - (_phi136400_ (gx#current-expander-phi)) - (_ctx136402_ (gx#current-expander-context))) + (lambda (_key136325_ _val136326_) + (let* ((_rebind?136328_ false) + (_phi136330_ (gx#current-expander-phi)) + (_ctx136332_ (gx#current-expander-context))) (gx#core-bind!__% - _key136395_ - _val136396_ - _rebind?136398_ - _phi136400_ - _ctx136402_)))) + _key136325_ + _val136326_ + _rebind?136328_ + _phi136330_ + _ctx136332_)))) (define gx#core-bind!__1 - (lambda (_key136404_ _val136405_ _rebind?136406_) - (let* ((_phi136408_ (gx#current-expander-phi)) - (_ctx136410_ (gx#current-expander-context))) + (lambda (_key136334_ _val136335_ _rebind?136336_) + (let* ((_phi136338_ (gx#current-expander-phi)) + (_ctx136340_ (gx#current-expander-context))) (gx#core-bind!__% - _key136404_ - _val136405_ - _rebind?136406_ - _phi136408_ - _ctx136410_)))) + _key136334_ + _val136335_ + _rebind?136336_ + _phi136338_ + _ctx136340_)))) (define gx#core-bind!__2 - (lambda (_key136412_ _val136413_ _rebind?136414_ _phi136415_) - (let ((_ctx136417_ (gx#current-expander-context))) + (lambda (_key136342_ _val136343_ _rebind?136344_ _phi136345_) + (let ((_ctx136347_ (gx#current-expander-context))) (gx#core-bind!__% - _key136412_ - _val136413_ - _rebind?136414_ - _phi136415_ - _ctx136417_)))) + _key136342_ + _val136343_ + _rebind?136344_ + _phi136345_ + _ctx136347_)))) (define gx#core-bind! - (lambda _g143015_ - (let ((_g143014_ (##length _g143015_))) - (cond ((##fx= _g143014_ 2) - (apply (lambda (_key136395_ _val136396_) - (gx#core-bind!__0 _key136395_ _val136396_)) - _g143015_)) - ((##fx= _g143014_ 3) - (apply (lambda (_key136404_ _val136405_ _rebind?136406_) + (lambda _g142945_ + (let ((_g142944_ (##length _g142945_))) + (cond ((##fx= _g142944_ 2) + (apply (lambda (_key136325_ _val136326_) + (gx#core-bind!__0 _key136325_ _val136326_)) + _g142945_)) + ((##fx= _g142944_ 3) + (apply (lambda (_key136334_ _val136335_ _rebind?136336_) (gx#core-bind!__1 - _key136404_ - _val136405_ - _rebind?136406_)) - _g143015_)) - ((##fx= _g143014_ 4) - (apply (lambda (_key136412_ - _val136413_ - _rebind?136414_ - _phi136415_) + _key136334_ + _val136335_ + _rebind?136336_)) + _g142945_)) + ((##fx= _g142944_ 4) + (apply (lambda (_key136342_ + _val136343_ + _rebind?136344_ + _phi136345_) (gx#core-bind!__2 - _key136412_ - _val136413_ - _rebind?136414_ - _phi136415_)) - _g143015_)) - ((##fx= _g143014_ 5) - (apply (lambda (_key136419_ - _val136420_ - _rebind?136421_ - _phi136422_ - _ctx136423_) + _key136342_ + _val136343_ + _rebind?136344_ + _phi136345_)) + _g142945_)) + ((##fx= _g142944_ 5) + (apply (lambda (_key136349_ + _val136350_ + _rebind?136351_ + _phi136352_ + _ctx136353_) (gx#core-bind!__% - _key136419_ - _val136420_ - _rebind?136421_ - _phi136422_ - _ctx136423_)) - _g143015_)) + _key136349_ + _val136350_ + _rebind?136351_ + _phi136352_ + _ctx136353_)) + _g142945_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g143015_)))))) + _g142945_)))))) (define gx#core-identifier-key - (lambda (_stx136235_) - (if (symbol? _stx136235_) - (let* ((_g136236136244_ (gx#current-expander-marks)) - (_else136238136252_ (lambda () _stx136235_)) - (_K136240136257_ - (lambda (_hd136255_) (cons _stx136235_ _hd136255_)))) - (if (##pair? _g136236136244_) - (let* ((_hd136241136260_ (##car _g136236136244_)) - (_hd136263_ _hd136241136260_)) - (_K136240136257_ _hd136263_)) - (_else136238136252_))) - (if (gx#identifier? _stx136235_) - (let* ((_id136265_ (gx#syntax-local-unwrap _stx136235_)) - (_eid136267_ (gx#stx-e _id136265_)) - (_marks136269_ (gx#stx-identifier-marks* _id136265_))) - (let* ((_marks136271136279_ _marks136269_) - (_else136273136287_ (lambda () _eid136267_)) - (_K136275136292_ - (lambda (_hd136290_) (cons _eid136267_ _hd136290_)))) - (if (##pair? _marks136271136279_) - (let* ((_hd136276136295_ (##car _marks136271136279_)) - (_hd136298_ _hd136276136295_)) - (_K136275136292_ _hd136298_)) - (_else136273136287_)))) - (gx#raise-syntax-error '#f '"Bad identifier" _stx136235_))))) + (lambda (_stx136165_) + (if (symbol? _stx136165_) + (let* ((_g136166136174_ (gx#current-expander-marks)) + (_else136168136182_ (lambda () _stx136165_)) + (_K136170136187_ + (lambda (_hd136185_) (cons _stx136165_ _hd136185_)))) + (if (##pair? _g136166136174_) + (let* ((_hd136171136190_ (##car _g136166136174_)) + (_hd136193_ _hd136171136190_)) + (_K136170136187_ _hd136193_)) + (_else136168136182_))) + (if (gx#identifier? _stx136165_) + (let* ((_id136195_ (gx#syntax-local-unwrap _stx136165_)) + (_eid136197_ (gx#stx-e _id136195_)) + (_marks136199_ (gx#stx-identifier-marks* _id136195_))) + (let* ((_marks136201136209_ _marks136199_) + (_else136203136217_ (lambda () _eid136197_)) + (_K136205136222_ + (lambda (_hd136220_) (cons _eid136197_ _hd136220_)))) + (if (##pair? _marks136201136209_) + (let* ((_hd136206136225_ (##car _marks136201136209_)) + (_hd136228_ _hd136206136225_)) + (_K136205136222_ _hd136228_)) + (_else136203136217_)))) + (gx#raise-syntax-error '#f '"Bad identifier" _stx136165_))))) (define gx#core-context-shift - (lambda (_ctx136180_ _phi136181_) - (letrec ((_make-phi136183_ - (lambda (_super136233_) - (let ((__obj142986 (make-object* gx#phi-context::t '6))) + (lambda (_ctx136110_ _phi136111_) + (letrec ((_make-phi136113_ + (lambda (_super136163_) + (let ((__obj142916 (make-object gx#phi-context::t '6))) (gx#phi-context:::init! - __obj142986 + __obj142916 (gensym 'phi) - _super136233_) - __obj142986))) - (_make-phi/up136184_ - (lambda (_ctx136228_ _super136229_) - (let ((_ctx+1136231_ (_make-phi136183_ _super136229_))) + _super136163_) + __obj142916))) + (_make-phi/up136114_ + (lambda (_ctx136158_ _super136159_) + (let ((_ctx+1136161_ (_make-phi136113_ _super136159_))) (##unchecked-structure-set! - _ctx136228_ - _ctx+1136231_ + _ctx136158_ + _ctx+1136161_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx+1136231_ - _ctx136228_ + _ctx+1136161_ + _ctx136158_ '5 gx#phi-context::t '#f) - _ctx+1136231_))) - (_make-phi/down136185_ - (lambda (_ctx136223_ _super136224_) - (let ((_ctx-1136226_ (_make-phi136183_ _super136224_))) + _ctx+1136161_))) + (_make-phi/down136115_ + (lambda (_ctx136153_ _super136154_) + (let ((_ctx-1136156_ (_make-phi136113_ _super136154_))) (##unchecked-structure-set! - _ctx-1136226_ - _ctx136223_ + _ctx-1136156_ + _ctx136153_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx136223_ - _ctx-1136226_ + _ctx136153_ + _ctx-1136156_ '5 gx#phi-context::t '#f) - _ctx-1136226_))) - (_shift136186_ - (lambda (_ctx136207_ - _delta136208_ - _make-delta-context136209_ - _phi136210_ - _K136211_) - (let ((_$e136213_ + _ctx-1136156_))) + (_shift136116_ + (lambda (_ctx136137_ + _delta136138_ + _make-delta-context136139_ + _phi136140_ + _K136141_) + (let ((_$e136143_ (##unchecked-structure-ref - _ctx136207_ + _ctx136137_ '3 gx#phi-context::t '#f))) - (if _$e136213_ - ((lambda (_super136216_) - (let* ((_super136218_ - (_K136211_ _super136216_ _delta136208_)) - (_ctx+d136220_ - (_make-delta-context136209_ - _ctx136207_ - _super136218_))) - (_K136211_ - _ctx+d136220_ - (fx- _phi136210_ _delta136208_)))) - _$e136213_) - (error '"Bad context" _ctx136207_)))))) - (let _K136188_ ((_ctx136190_ _ctx136180_) (_phi136191_ _phi136181_)) - (if (fxzero? _phi136191_) - _ctx136190_ - (if (fx> (##vector-length _ctx136190_) '3) - (if (fxpositive? _phi136191_) - (let ((_$e136193_ + (if _$e136143_ + ((lambda (_super136146_) + (let* ((_super136148_ + (_K136141_ _super136146_ _delta136138_)) + (_ctx+d136150_ + (_make-delta-context136139_ + _ctx136137_ + _super136148_))) + (_K136141_ + _ctx+d136150_ + (fx- _phi136140_ _delta136138_)))) + _$e136143_) + (error '"Bad context" _ctx136137_)))))) + (let _K136118_ ((_ctx136120_ _ctx136110_) (_phi136121_ _phi136111_)) + (if (fxzero? _phi136121_) + _ctx136120_ + (if (fx> (##vector-length _ctx136120_) '3) + (if (fxpositive? _phi136121_) + (let ((_$e136123_ (##unchecked-structure-ref - _ctx136190_ + _ctx136120_ '4 gx#phi-context::t '#f))) - (if _$e136193_ - ((lambda (_g136195136197_) - (_K136188_ - _g136195136197_ - (fx- _phi136191_ '1))) - _$e136193_) - (_shift136186_ - _ctx136190_ + (if _$e136123_ + ((lambda (_g136125136127_) + (_K136118_ + _g136125136127_ + (fx- _phi136121_ '1))) + _$e136123_) + (_shift136116_ + _ctx136120_ '1 - _make-phi/up136184_ - _phi136191_ - _K136188_))) - (let ((_$e136200_ + _make-phi/up136114_ + _phi136121_ + _K136118_))) + (let ((_$e136130_ (##unchecked-structure-ref - _ctx136190_ + _ctx136120_ '5 gx#phi-context::t '#f))) - (if _$e136200_ - ((lambda (_g136202136204_) - (_K136188_ - _g136202136204_ - (fx+ _phi136191_ '1))) - _$e136200_) - (_shift136186_ - _ctx136190_ + (if _$e136130_ + ((lambda (_g136132136134_) + (_K136118_ + _g136132136134_ + (fx+ _phi136121_ '1))) + _$e136130_) + (_shift136116_ + _ctx136120_ '-1 - _make-phi/down136185_ - _phi136191_ - _K136188_)))) - _ctx136190_)))))) + _make-phi/down136115_ + _phi136121_ + _K136118_)))) + _ctx136120_)))))) (define gx#core-context-get - (lambda (_ctx136177_ _key136178_) + (lambda (_ctx136107_ _key136108_) (table-ref - (##unchecked-structure-ref _ctx136177_ '2 gx#expander-context::t '#f) - _key136178_ + (##unchecked-structure-ref _ctx136107_ '2 gx#expander-context::t '#f) + _key136108_ '#f))) (define gx#core-context-put! - (lambda (_ctx136173_ _key136174_ _val136175_) + (lambda (_ctx136103_ _key136104_ _val136105_) (table-set! - (##unchecked-structure-ref _ctx136173_ '2 gx#expander-context::t '#f) - _key136174_ - _val136175_))) + (##unchecked-structure-ref _ctx136103_ '2 gx#expander-context::t '#f) + _key136104_ + _val136105_))) (define gx#core-context-resolve - (lambda (_ctx136160_ _key136161_) - (let _lp136163_ ((_ctx136165_ _ctx136160_)) - (let ((_$e136167_ (gx#core-context-get _ctx136165_ _key136161_))) - (if _$e136167_ - (values _$e136167_) - (let ((_$e136170_ - (if (fx> (##vector-length _ctx136165_) '3) + (lambda (_ctx136090_ _key136091_) + (let _lp136093_ ((_ctx136095_ _ctx136090_)) + (let ((_$e136097_ (gx#core-context-get _ctx136095_ _key136091_))) + (if _$e136097_ + (values _$e136097_) + (let ((_$e136100_ + (if (fx> (##vector-length _ctx136095_) '3) (##unchecked-structure-ref - _ctx136165_ + _ctx136095_ '3 gx#phi-context::t '#f) '#f))) - (if _$e136170_ (_lp136163_ _$e136170_) '#f))))))) + (if _$e136100_ (_lp136093_ _$e136100_) '#f))))))) (define gx#core-context-bind! - (lambda (_ctx136150_ _key136151_ _val136152_ _rebind136153_) - (let ((_$e136155_ (gx#core-context-get _ctx136150_ _key136151_))) - (if _$e136155_ - ((lambda (_xval136158_) + (lambda (_ctx136080_ _key136081_ _val136082_ _rebind136083_) + (let ((_$e136085_ (gx#core-context-get _ctx136080_ _key136081_))) + (if _$e136085_ + ((lambda (_xval136088_) (gx#core-context-put! - _ctx136150_ - _key136151_ - (_rebind136153_ _xval136158_))) - _$e136155_) - (gx#core-context-put! _ctx136150_ _key136151_ _val136152_))))) + _ctx136080_ + _key136081_ + (_rebind136083_ _xval136088_))) + _$e136085_) + (gx#core-context-put! _ctx136080_ _key136081_ _val136082_))))) (define gx#core-context-top__% - (lambda (_ctx136128_ _stop?136129_) - (let _lp136131_ ((_ctx136133_ _ctx136128_)) - (if (_stop?136129_ _ctx136133_) - _ctx136133_ - (if (##structure-instance-of? _ctx136133_ 'gx#context-phi::t) - (_lp136131_ + (lambda (_ctx136058_ _stop?136059_) + (let _lp136061_ ((_ctx136063_ _ctx136058_)) + (if (_stop?136059_ _ctx136063_) + _ctx136063_ + (if (##structure-instance-of? _ctx136063_ 'gx#context-phi::t) + (_lp136061_ (##unchecked-structure-ref - _ctx136133_ + _ctx136063_ '3 gx#phi-context::t '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_ctx136139_ (gx#current-expander-context)) - (_stop?136141_ gx#top-context?)) - (gx#core-context-top__% _ctx136139_ _stop?136141_)))) + (let* ((_ctx136069_ (gx#current-expander-context)) + (_stop?136071_ gx#top-context?)) + (gx#core-context-top__% _ctx136069_ _stop?136071_)))) (define gx#core-context-top__1 - (lambda (_ctx136143_) - (let ((_stop?136145_ gx#top-context?)) - (gx#core-context-top__% _ctx136143_ _stop?136145_)))) + (lambda (_ctx136073_) + (let ((_stop?136075_ gx#top-context?)) + (gx#core-context-top__% _ctx136073_ _stop?136075_)))) (define gx#core-context-top - (lambda _g143017_ - (let ((_g143016_ (##length _g143017_))) - (cond ((##fx= _g143016_ 0) - (apply (lambda () (gx#core-context-top__0)) _g143017_)) - ((##fx= _g143016_ 1) - (apply (lambda (_ctx136143_) - (gx#core-context-top__1 _ctx136143_)) - _g143017_)) - ((##fx= _g143016_ 2) - (apply (lambda (_ctx136147_ _stop?136148_) - (gx#core-context-top__% _ctx136147_ _stop?136148_)) - _g143017_)) + (lambda _g142947_ + (let ((_g142946_ (##length _g142947_))) + (cond ((##fx= _g142946_ 0) + (apply (lambda () (gx#core-context-top__0)) _g142947_)) + ((##fx= _g142946_ 1) + (apply (lambda (_ctx136073_) + (gx#core-context-top__1 _ctx136073_)) + _g142947_)) + ((##fx= _g142946_ 2) + (apply (lambda (_ctx136077_ _stop?136078_) + (gx#core-context-top__% _ctx136077_ _stop?136078_)) + _g142947_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g143017_)))))) + _g142947_)))))) (define gx#core-context-root__% - (lambda (_ctx136113_) - (let _lp136115_ ((_ctx136117_ _ctx136113_)) - (if (##structure-instance-of? _ctx136117_ 'gx#context-phi::t) - (_lp136115_ + (lambda (_ctx136043_) + (let _lp136045_ ((_ctx136047_ _ctx136043_)) + (if (##structure-instance-of? _ctx136047_ 'gx#context-phi::t) + (_lp136045_ (##unchecked-structure-ref - _ctx136117_ + _ctx136047_ '3 gx#phi-context::t '#f)) - _ctx136117_)))) + _ctx136047_)))) (define gx#core-context-root__0 (lambda () - (let ((_ctx136123_ (gx#current-expander-context))) - (gx#core-context-root__% _ctx136123_)))) + (let ((_ctx136053_ (gx#current-expander-context))) + (gx#core-context-root__% _ctx136053_)))) (define gx#core-context-root - (lambda _g143019_ - (let ((_g143018_ (##length _g143019_))) - (cond ((##fx= _g143018_ 0) - (apply (lambda () (gx#core-context-root__0)) _g143019_)) - ((##fx= _g143018_ 1) - (apply (lambda (_ctx136125_) - (gx#core-context-root__% _ctx136125_)) - _g143019_)) + (lambda _g142949_ + (let ((_g142948_ (##length _g142949_))) + (cond ((##fx= _g142948_ 0) + (apply (lambda () (gx#core-context-root__0)) _g142949_)) + ((##fx= _g142948_ 1) + (apply (lambda (_ctx136055_) + (gx#core-context-root__% _ctx136055_)) + _g142949_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g143019_)))))) + _g142949_)))))) (define gx#core-context-rebind?__% - (lambda (_ctx136094_ . __136091136095_) - (let ((_$e136098_ (gx#current-expander-allow-rebind?))) - (if _$e136098_ - _$e136098_ - (if (##structure-instance-of? _ctx136094_ 'gx#top-context::t) + (lambda (_ctx136024_ . __136021136025_) + (let ((_$e136028_ (gx#current-expander-allow-rebind?))) + (if _$e136028_ + _$e136028_ + (if (##structure-instance-of? _ctx136024_ 'gx#top-context::t) (if (not (##structure-instance-of? - _ctx136094_ + _ctx136024_ 'gx#module-context::t)) (not (##structure-instance-of? - _ctx136094_ + _ctx136024_ 'gx#prelude-context::t)) '#f) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_ctx136105_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _ctx136105_)))) + (let ((_ctx136035_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _ctx136035_)))) (define gx#core-context-rebind? - (lambda _g143021_ - (let ((_g143020_ (##length _g143021_))) - (cond ((##fx= _g143020_ 0) - (apply (lambda () (gx#core-context-rebind?__0)) _g143021_)) - ((##fx= _g143020_ 1) - (apply (lambda (_ctx136107_) - (gx#core-context-rebind?__% _ctx136107_)) - _g143021_)) - ((##fx>= _g143020_ 1) - (apply gx#core-context-rebind?__% _g143021_)) + (lambda _g142951_ + (let ((_g142950_ (##length _g142951_))) + (cond ((##fx= _g142950_ 0) + (apply (lambda () (gx#core-context-rebind?__0)) _g142951_)) + ((##fx= _g142950_ 1) + (apply (lambda (_ctx136037_) + (gx#core-context-rebind?__% _ctx136037_)) + _g142951_)) + ((##fx>= _g142950_ 1) + (apply gx#core-context-rebind?__% _g142951_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g143021_)))))) + _g142951_)))))) (define gx#core-context-namespace__% - (lambda (_ctx136077_) - (let ((_$e136079_ (gx#core-context-top__1 _ctx136077_))) - (if _$e136079_ - ((lambda (_ctx136082_) + (lambda (_ctx136007_) + (let ((_$e136009_ (gx#core-context-top__1 _ctx136007_))) + (if _$e136009_ + ((lambda (_ctx136012_) (if (##structure-instance-of? - _ctx136082_ + _ctx136012_ 'gx#module-context::t) (##unchecked-structure-ref - _ctx136082_ + _ctx136012_ '6 gx#module-context::t '#f) '#f)) - _$e136079_) + _$e136009_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_ctx136088_ (gx#current-expander-context))) - (gx#core-context-namespace__% _ctx136088_)))) + (let ((_ctx136018_ (gx#current-expander-context))) + (gx#core-context-namespace__% _ctx136018_)))) (define gx#core-context-namespace - (lambda _g143023_ - (let ((_g143022_ (##length _g143023_))) - (cond ((##fx= _g143022_ 0) - (apply (lambda () (gx#core-context-namespace__0)) _g143023_)) - ((##fx= _g143022_ 1) - (apply (lambda (_ctx136090_) - (gx#core-context-namespace__% _ctx136090_)) - _g143023_)) + (lambda _g142953_ + (let ((_g142952_ (##length _g142953_))) + (cond ((##fx= _g142952_ 0) + (apply (lambda () (gx#core-context-namespace__0)) _g142953_)) + ((##fx= _g142952_ 1) + (apply (lambda (_ctx136020_) + (gx#core-context-namespace__% _ctx136020_)) + _g142953_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g143023_)))))) + _g142953_)))))) (define gx#expander-binding?__% - (lambda (_bind136063_ _is?136064_) + (lambda (_bind135993_ _is?135994_) (if (##structure-direct-instance-of? - _bind136063_ + _bind135993_ 'gx#syntax-binding::t) - (_is?136064_ + (_is?135994_ (##unchecked-structure-ref - _bind136063_ + _bind135993_ '4 gx#syntax-binding::t '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_bind136069_) - (let ((_is?136071_ gx#expander?)) - (gx#expander-binding?__% _bind136069_ _is?136071_)))) + (lambda (_bind135999_) + (let ((_is?136001_ gx#expander?)) + (gx#expander-binding?__% _bind135999_ _is?136001_)))) (define gx#expander-binding? - (lambda _g143025_ - (let ((_g143024_ (##length _g143025_))) - (cond ((##fx= _g143024_ 1) - (apply (lambda (_bind136069_) - (gx#expander-binding?__0 _bind136069_)) - _g143025_)) - ((##fx= _g143024_ 2) - (apply (lambda (_bind136073_ _is?136074_) - (gx#expander-binding?__% _bind136073_ _is?136074_)) - _g143025_)) + (lambda _g142955_ + (let ((_g142954_ (##length _g142955_))) + (cond ((##fx= _g142954_ 1) + (apply (lambda (_bind135999_) + (gx#expander-binding?__0 _bind135999_)) + _g142955_)) + ((##fx= _g142954_ 2) + (apply (lambda (_bind136003_ _is?136004_) + (gx#expander-binding?__% _bind136003_ _is?136004_)) + _g142955_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g143025_)))))) + _g142955_)))))) (define gx#core-expander-binding? - (lambda (_bind136060_) - (gx#expander-binding?__% _bind136060_ gx#core-expander?))) + (lambda (_bind135990_) + (gx#expander-binding?__% _bind135990_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_bind136058_) - (gx#expander-binding?__% _bind136058_ gx#expression-form?))) + (lambda (_bind135988_) + (gx#expander-binding?__% _bind135988_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_bind136052_) - (letrec ((_direct-special-form?136054_ - (lambda (_obj136056_) + (lambda (_bind135982_) + (letrec ((_direct-special-form?135984_ + (lambda (_obj135986_) (##structure-direct-instance-of? - _obj136056_ + _obj135986_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _bind136052_ - _direct-special-form?136054_)))) + _bind135982_ + _direct-special-form?135984_)))) (define gx#special-form-binding? - (lambda (_bind136050_) - (gx#expander-binding?__% _bind136050_ gx#special-form?))) + (lambda (_bind135980_) + (gx#expander-binding?__% _bind135980_ gx#special-form?))) (define gx#feature-binding? - (lambda (_bind136041_) - (letrec ((_feature?136043_ - (lambda (_e136045_) - (let ((_$e136047_ + (lambda (_bind135971_) + (letrec ((_feature?135973_ + (lambda (_e135975_) + (let ((_$e135977_ (##structure-instance-of? - _e136045_ + _e135975_ 'gx#feature-expander::t))) - (if _$e136047_ - _$e136047_ + (if _$e135977_ + _$e135977_ (##structure-instance-of? - _e136045_ + _e135975_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _bind136041_ _feature?136043_)))) + (gx#expander-binding?__% _bind135971_ _feature?135973_)))) (define gx#private-feature-binding? - (lambda (_bind136039_) - (gx#expander-binding?__% _bind136039_ gx#private-feature-expander?))) + (lambda (_bind135969_) + (gx#expander-binding?__% _bind135969_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_id136026_ _bound?136027_) - (if (gx#identifier? _id136026_) - (_bound?136027_ (gx#resolve-identifier__0 _id136026_)) + (lambda (_id135956_ _bound?135957_) + (if (gx#identifier? _id135956_) + (_bound?135957_ (gx#resolve-identifier__0 _id135956_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_id136032_) - (let ((_bound?136034_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _id136032_ _bound?136034_)))) + (lambda (_id135962_) + (let ((_bound?135964_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _id135962_ _bound?135964_)))) (define gx#core-bound-identifier? - (lambda _g143027_ - (let ((_g143026_ (##length _g143027_))) - (cond ((##fx= _g143026_ 1) - (apply (lambda (_id136032_) - (gx#core-bound-identifier?__0 _id136032_)) - _g143027_)) - ((##fx= _g143026_ 2) - (apply (lambda (_id136036_ _bound?136037_) + (lambda _g142957_ + (let ((_g142956_ (##length _g142957_))) + (cond ((##fx= _g142956_ 1) + (apply (lambda (_id135962_) + (gx#core-bound-identifier?__0 _id135962_)) + _g142957_)) + ((##fx= _g142956_ 2) + (apply (lambda (_id135966_ _bound?135967_) (gx#core-bound-identifier?__% - _id136036_ - _bound?136037_)) - _g143027_)) + _id135966_ + _bound?135967_)) + _g142957_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g143027_)))))) + _g142957_)))))) (define gx#core-identifier=? - (lambda (_x136016_ _y136017_) - (letrec ((_y=?136019_ - (lambda (_xid136023_) - ((if (list? _y136017_) memq eq?) _xid136023_ _y136017_)))) - (let ((_bind136021_ (gx#resolve-identifier__0 _x136016_))) - (if (##structure-instance-of? _bind136021_ 'gx#binding::t) - (_y=?136019_ - (##unchecked-structure-ref _bind136021_ '1 gx#binding::t '#f)) - (_y=?136019_ (gx#stx-e _x136016_))))))) + (lambda (_x135946_ _y135947_) + (letrec ((_y=?135949_ + (lambda (_xid135953_) + ((if (list? _y135947_) memq eq?) _xid135953_ _y135947_)))) + (let ((_bind135951_ (gx#resolve-identifier__0 _x135946_))) + (if (##structure-instance-of? _bind135951_ 'gx#binding::t) + (_y=?135949_ + (##unchecked-structure-ref _bind135951_ '1 gx#binding::t '#f)) + (_y=?135949_ (gx#stx-e _x135946_))))))) (define gx#core-extern-symbol? - (lambda (_e136014_) - (if (interned-symbol? _e136014_) - (string-index (symbol->string _e136014_) '#\#) + (lambda (_e135944_) + (if (interned-symbol? _e135944_) + (string-index (symbol->string _e135944_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_stx135969_ _src135970_ _ctx135971_ _marks135972_) - (if (##structure? _stx135969_) - (let ((_$e135974_ (gx#sealed-syntax-unwrap _stx135969_))) - (if _$e135974_ - (values _$e135974_) - (if (gx#identifier? _stx135969_) - (let ((_id135977_ - (gx#stx-unwrap__% _stx135969_ _marks135972_))) + (lambda (_stx135899_ _src135900_ _ctx135901_ _marks135902_) + (if (##structure? _stx135899_) + (let ((_$e135904_ (gx#sealed-syntax-unwrap _stx135899_))) + (if _$e135904_ + (values _$e135904_) + (if (gx#identifier? _stx135899_) + (let ((_id135907_ + (gx#stx-unwrap__% _stx135899_ _marks135902_))) (##structure gx#syntax-quote::t (##unchecked-structure-ref - _id135977_ + _id135907_ '1 gx#AST::t '#f) - (let ((_$e135979_ + (let ((_$e135909_ (##unchecked-structure-ref - _id135977_ + _id135907_ '2 gx#AST::t '#f))) - (if _$e135979_ _$e135979_ _src135970_)) - _ctx135971_ + (if _$e135909_ _$e135909_ _src135900_)) + _ctx135901_ (##unchecked-structure-ref - _id135977_ + _id135907_ '3 gx#identifier-wrap::t '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _stx135969_) - (let ((_$e135982_ (gx#stx-source _stx135969_))) - (if _$e135982_ _$e135982_ _src135970_)) - _ctx135971_ - (reverse _marks135972_))))) + (gx#stx-e _stx135899_) + (let ((_$e135912_ (gx#stx-source _stx135899_))) + (if _$e135912_ _$e135912_ _src135900_)) + _ctx135901_ + (reverse _marks135902_))))) (##structure gx#syntax-quote::t - _stx135969_ - _src135970_ - _ctx135971_ - (reverse _marks135972_))))) + _stx135899_ + _src135900_ + _ctx135901_ + (reverse _marks135902_))))) (define gx#core-quote-syntax__0 - (lambda (_stx135988_) - (let* ((_src135990_ '#f) - (_ctx135992_ (gx#current-expander-context)) - (_marks135994_ (gx#current-expander-marks))) + (lambda (_stx135918_) + (let* ((_src135920_ '#f) + (_ctx135922_ (gx#current-expander-context)) + (_marks135924_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx135988_ - _src135990_ - _ctx135992_ - _marks135994_)))) + _stx135918_ + _src135920_ + _ctx135922_ + _marks135924_)))) (define gx#core-quote-syntax__1 - (lambda (_stx135996_ _src135997_) - (let* ((_ctx135999_ (gx#current-expander-context)) - (_marks136001_ (gx#current-expander-marks))) + (lambda (_stx135926_ _src135927_) + (let* ((_ctx135929_ (gx#current-expander-context)) + (_marks135931_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx135996_ - _src135997_ - _ctx135999_ - _marks136001_)))) + _stx135926_ + _src135927_ + _ctx135929_ + _marks135931_)))) (define gx#core-quote-syntax__2 - (lambda (_stx136003_ _src136004_ _ctx136005_) - (let ((_marks136007_ (gx#current-expander-marks))) + (lambda (_stx135933_ _src135934_ _ctx135935_) + (let ((_marks135937_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx136003_ - _src136004_ - _ctx136005_ - _marks136007_)))) + _stx135933_ + _src135934_ + _ctx135935_ + _marks135937_)))) (define gx#core-quote-syntax - (lambda _g143029_ - (let ((_g143028_ (##length _g143029_))) - (cond ((##fx= _g143028_ 1) - (apply (lambda (_stx135988_) - (gx#core-quote-syntax__0 _stx135988_)) - _g143029_)) - ((##fx= _g143028_ 2) - (apply (lambda (_stx135996_ _src135997_) - (gx#core-quote-syntax__1 _stx135996_ _src135997_)) - _g143029_)) - ((##fx= _g143028_ 3) - (apply (lambda (_stx136003_ _src136004_ _ctx136005_) + (lambda _g142959_ + (let ((_g142958_ (##length _g142959_))) + (cond ((##fx= _g142958_ 1) + (apply (lambda (_stx135918_) + (gx#core-quote-syntax__0 _stx135918_)) + _g142959_)) + ((##fx= _g142958_ 2) + (apply (lambda (_stx135926_ _src135927_) + (gx#core-quote-syntax__1 _stx135926_ _src135927_)) + _g142959_)) + ((##fx= _g142958_ 3) + (apply (lambda (_stx135933_ _src135934_ _ctx135935_) (gx#core-quote-syntax__2 - _stx136003_ - _src136004_ - _ctx136005_)) - _g143029_)) - ((##fx= _g143028_ 4) - (apply (lambda (_stx136009_ - _src136010_ - _ctx136011_ - _marks136012_) + _stx135933_ + _src135934_ + _ctx135935_)) + _g142959_)) + ((##fx= _g142958_ 4) + (apply (lambda (_stx135939_ + _src135940_ + _ctx135941_ + _marks135942_) (gx#core-quote-syntax__% - _stx136009_ - _src136010_ - _ctx136011_ - _marks136012_)) - _g143029_)) + _stx135939_ + _src135940_ + _ctx135941_ + _marks135942_)) + _g142959_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g143029_)))))) + _g142959_)))))) (define gx#core-cons - (lambda (_hd135965_ _tl135966_) - (cons (gx#core-quote-syntax__0 _hd135965_) _tl135966_))) + (lambda (_hd135895_ _tl135896_) + (cons (gx#core-quote-syntax__0 _hd135895_) _tl135896_))) (define gx#core-list - (lambda (_hd135962_ . _rest135963_) - (cons (gx#core-quote-syntax__0 _hd135962_) _rest135963_))) + (lambda (_hd135892_ . _rest135893_) + (cons (gx#core-quote-syntax__0 _hd135892_) _rest135893_))) (define gx#core-cons* - (lambda (_hd135959_ . _rest135960_) - (apply cons* (gx#core-quote-syntax__0 _hd135959_) _rest135960_))) + (lambda (_hd135889_ . _rest135890_) + (apply cons* (gx#core-quote-syntax__0 _hd135889_) _rest135890_))) (define gx#core-resolve-path__% - (lambda (_stx-path135933_ _rel135934_) - (let ((_path135946_ (gx#stx-e _stx-path135933_)) - (_reldir135947_ - (let _lp135936_ ((_relsrc135938_ - (let ((_$e135943_ - (gx#stx-source _stx-path135933_))) - (if _$e135943_ _$e135943_ _rel135934_)))) - (if (##structure-instance-of? _relsrc135938_ 'gerbil#AST::t) - (_lp135936_ - (let ((_$e135940_ (gx#stx-source _relsrc135938_))) - (if _$e135940_ _$e135940_ (gx#stx-e _relsrc135938_)))) - (if (source-location-path? _relsrc135938_) - (path-directory (source-location-path _relsrc135938_)) - (if (string? _relsrc135938_) - (path-directory _relsrc135938_) + (lambda (_stx-path135863_ _rel135864_) + (let ((_path135876_ (gx#stx-e _stx-path135863_)) + (_reldir135877_ + (let _lp135866_ ((_relsrc135868_ + (let ((_$e135873_ + (gx#stx-source _stx-path135863_))) + (if _$e135873_ _$e135873_ _rel135864_)))) + (if (##structure-instance-of? _relsrc135868_ 'gerbil#AST::t) + (_lp135866_ + (let ((_$e135870_ (gx#stx-source _relsrc135868_))) + (if _$e135870_ _$e135870_ (gx#stx-e _relsrc135868_)))) + (if (source-location-path? _relsrc135868_) + (path-directory (source-location-path _relsrc135868_)) + (if (string? _relsrc135868_) + (path-directory _relsrc135868_) (if (not (null? (gx#current-expander-path))) (path-directory (car (gx#current-expander-path))) (current-directory)))))))) - (path-expand _path135946_ (path-normalize _reldir135947_))))) + (path-expand _path135876_ (path-normalize _reldir135877_))))) (define gx#core-resolve-path__0 - (lambda (_stx-path135952_) - (let ((_rel135954_ '#f)) - (gx#core-resolve-path__% _stx-path135952_ _rel135954_)))) + (lambda (_stx-path135882_) + (let ((_rel135884_ '#f)) + (gx#core-resolve-path__% _stx-path135882_ _rel135884_)))) (define gx#core-resolve-path - (lambda _g143031_ - (let ((_g143030_ (##length _g143031_))) - (cond ((##fx= _g143030_ 1) - (apply (lambda (_stx-path135952_) - (gx#core-resolve-path__0 _stx-path135952_)) - _g143031_)) - ((##fx= _g143030_ 2) - (apply (lambda (_stx-path135956_ _rel135957_) + (lambda _g142961_ + (let ((_g142960_ (##length _g142961_))) + (cond ((##fx= _g142960_ 1) + (apply (lambda (_stx-path135882_) + (gx#core-resolve-path__0 _stx-path135882_)) + _g142961_)) + ((##fx= _g142960_ 2) + (apply (lambda (_stx-path135886_ _rel135887_) (gx#core-resolve-path__% - _stx-path135956_ - _rel135957_)) - _g143031_)) + _stx-path135886_ + _rel135887_)) + _g142961_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g143031_)))))) + _g142961_)))))) (define gx#core-deserialize-mark__% - (lambda (_repr135889_ _ctx135890_) - (let* ((_repr135891135898_ _repr135889_) - (_E135893135902_ - (lambda () (error '"No clause matching" _repr135891135898_))) - (_K135894135910_ - (lambda (_subs135905_ _phi135906_) - (let ((_subst135908_ - (if (not (null? _subs135905_)) - (list->table _subs135905_ 'test: eq?) + (lambda (_repr135819_ _ctx135820_) + (let* ((_repr135821135828_ _repr135819_) + (_E135823135832_ + (lambda () (error '"No clause matching" _repr135821135828_))) + (_K135824135840_ + (lambda (_subs135835_ _phi135836_) + (let ((_subst135838_ + (if (not (null? _subs135835_)) + (list->table _subs135835_ 'test: eq?) '#f))) (##structure gx#expander-mark::t - _subst135908_ - _ctx135890_ - _phi135906_ + _subst135838_ + _ctx135820_ + _phi135836_ '#f))))) - (if (##pair? _repr135891135898_) - (let ((_hd135895135913_ (##car _repr135891135898_)) - (_tl135896135915_ (##cdr _repr135891135898_))) - (let* ((_phi135918_ _hd135895135913_) - (_subs135920_ _tl135896135915_)) - (_K135894135910_ _subs135920_ _phi135918_))) - (_E135893135902_))))) + (if (##pair? _repr135821135828_) + (let ((_hd135825135843_ (##car _repr135821135828_)) + (_tl135826135845_ (##cdr _repr135821135828_))) + (let* ((_phi135848_ _hd135825135843_) + (_subs135850_ _tl135826135845_)) + (_K135824135840_ _subs135850_ _phi135848_))) + (_E135823135832_))))) (define gx#core-deserialize-mark__0 - (lambda (_repr135925_) - (let ((_ctx135927_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _repr135925_ _ctx135927_)))) + (lambda (_repr135855_) + (let ((_ctx135857_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _repr135855_ _ctx135857_)))) (define gx#core-deserialize-mark - (lambda _g143033_ - (let ((_g143032_ (##length _g143033_))) - (cond ((##fx= _g143032_ 1) - (apply (lambda (_repr135925_) - (gx#core-deserialize-mark__0 _repr135925_)) - _g143033_)) - ((##fx= _g143032_ 2) - (apply (lambda (_repr135929_ _ctx135930_) + (lambda _g142963_ + (let ((_g142962_ (##length _g142963_))) + (cond ((##fx= _g142962_ 1) + (apply (lambda (_repr135855_) + (gx#core-deserialize-mark__0 _repr135855_)) + _g142963_)) + ((##fx= _g142962_ 2) + (apply (lambda (_repr135859_ _ctx135860_) (gx#core-deserialize-mark__% - _repr135929_ - _ctx135930_)) - _g143033_)) + _repr135859_ + _ctx135860_)) + _g142963_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g143033_)))))) + _g142963_)))))) (define gx#syntax-local-rewrap - (lambda (_stx135886_) - (gx#stx-rewrap _stx135886_ (gx#current-expander-marks)))) + (lambda (_stx135816_) + (gx#stx-rewrap _stx135816_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_stx135884_) - (gx#stx-unwrap__% _stx135884_ (gx#current-expander-marks)))) + (lambda (_stx135814_) + (gx#stx-unwrap__% _stx135814_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_stx135854_) - (let* ((_g135855135863_ (gx#current-expander-marks)) - (_else135857135871_ (lambda () _stx135854_)) - (_K135859135876_ - (lambda (_hd135874_) - (gx#stx-apply-mark _stx135854_ _hd135874_)))) - (if (##pair? _g135855135863_) - (let* ((_hd135860135879_ (##car _g135855135863_)) - (_hd135882_ _hd135860135879_)) - (_K135859135876_ _hd135882_)) - (_else135857135871_))))) + (lambda (_stx135784_) + (let* ((_g135785135793_ (gx#current-expander-marks)) + (_else135787135801_ (lambda () _stx135784_)) + (_K135789135806_ + (lambda (_hd135804_) + (gx#stx-apply-mark _stx135784_ _hd135804_)))) + (if (##pair? _g135785135793_) + (let* ((_hd135790135809_ (##car _g135785135793_)) + (_hd135812_ _hd135790135809_)) + (_K135789135806_ _hd135812_)) + (_else135787135801_))))) (define gx#syntax-local-e__% - (lambda (_stx135839_ _E135840_) - (let ((_bind135842_ (gx#resolve-identifier__0 _stx135839_))) + (lambda (_stx135769_ _E135770_) + (let ((_bind135772_ (gx#resolve-identifier__0 _stx135769_))) (if (##structure-direct-instance-of? - _bind135842_ + _bind135772_ 'gx#syntax-binding::t) (##unchecked-structure-ref - _bind135842_ + _bind135772_ '4 gx#syntax-binding::t '#f) - (_E135840_ _stx135839_))))) + (_E135770_ _stx135769_))))) (define gx#syntax-local-e__0 - (lambda (_stx135847_) - (let ((_E135849_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _stx135847_ _E135849_)))) + (lambda (_stx135777_) + (let ((_E135779_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _stx135777_ _E135779_)))) (define gx#syntax-local-e - (lambda _g143035_ - (let ((_g143034_ (##length _g143035_))) - (cond ((##fx= _g143034_ 1) - (apply (lambda (_stx135847_) - (gx#syntax-local-e__0 _stx135847_)) - _g143035_)) - ((##fx= _g143034_ 2) - (apply (lambda (_stx135851_ _E135852_) - (gx#syntax-local-e__% _stx135851_ _E135852_)) - _g143035_)) + (lambda _g142965_ + (let ((_g142964_ (##length _g142965_))) + (cond ((##fx= _g142964_ 1) + (apply (lambda (_stx135777_) + (gx#syntax-local-e__0 _stx135777_)) + _g142965_)) + ((##fx= _g142964_ 2) + (apply (lambda (_stx135781_ _E135782_) + (gx#syntax-local-e__% _stx135781_ _E135782_)) + _g142965_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g143035_)))))) + _g142965_)))))) (define gx#syntax-local-value__% - (lambda (_stx135823_ _E135824_) - (let ((_e135826_ (gx#syntax-local-e__% _stx135823_ _E135824_))) - (if (##structure-instance-of? _e135826_ 'gx#expander::t) - (##structure-ref _e135826_ '1 gx#expander::t '#f) - _e135826_)))) + (lambda (_stx135753_ _E135754_) + (let ((_e135756_ (gx#syntax-local-e__% _stx135753_ _E135754_))) + (if (##structure-instance-of? _e135756_ 'gx#expander::t) + (##structure-ref _e135756_ '1 gx#expander::t '#f) + _e135756_)))) (define gx#syntax-local-value__0 - (lambda (_stx135831_) - (let ((_E135833_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _stx135831_ _E135833_)))) + (lambda (_stx135761_) + (let ((_E135763_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _stx135761_ _E135763_)))) (define gx#syntax-local-value - (lambda _g143037_ - (let ((_g143036_ (##length _g143037_))) - (cond ((##fx= _g143036_ 1) - (apply (lambda (_stx135831_) - (gx#syntax-local-value__0 _stx135831_)) - _g143037_)) - ((##fx= _g143036_ 2) - (apply (lambda (_stx135835_ _E135836_) - (gx#syntax-local-value__% _stx135835_ _E135836_)) - _g143037_)) + (lambda _g142967_ + (let ((_g142966_ (##length _g142967_))) + (cond ((##fx= _g142966_ 1) + (apply (lambda (_stx135761_) + (gx#syntax-local-value__0 _stx135761_)) + _g142967_)) + ((##fx= _g142966_ 2) + (apply (lambda (_stx135765_ _E135766_) + (gx#syntax-local-value__% _stx135765_ _E135766_)) + _g142967_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g143037_)))))) + _g142967_)))))) (define gx#raise-syntax-ref-error - (lambda (_stx135820_) + (lambda (_stx135750_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _stx135820_))))) + _stx135750_))))) diff --git a/src/bootstrap/gerbil/expander/core__1.scm b/src/bootstrap/gerbil/expander/core__1.scm index 2054cd2fc..e70b1a888 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]#_g143039_| + (define |gx[1]#_g142969_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143041_| + (define |gx[1]#_g142971_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143043_| + (define |gx[1]#_g142973_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143048_| + (define |gx[1]#_g142978_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143051_| + (define |gx[1]#_g142981_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143056_| + (define |gx[1]#_g142986_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143059_| + (define |gx[1]#_g142989_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143064_| + (define |gx[1]#_g142994_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143067_| + (define |gx[1]#_g142997_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143072_| + (define |gx[1]#_g143002_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143075_| + (define |gx[1]#_g143005_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143078_| + (define |gx[1]#_g143008_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143080_| + (define |gx[1]#_g143010_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143082_| + (define |gx[1]#_g143012_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143084_| + (define |gx[1]#_g143014_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143089_| + (define |gx[1]#_g143019_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143092_| + (define |gx[1]#_g143022_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143097_| + (define |gx[1]#_g143027_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143100_| + (define |gx[1]#_g143030_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143105_| + (define |gx[1]#_g143035_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143108_| + (define |gx[1]#_g143038_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143113_| + (define |gx[1]#_g143043_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143116_| + (define |gx[1]#_g143046_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143120_| + (define |gx[1]#_g143050_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143122_| + (define |gx[1]#_g143052_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143124_| + (define |gx[1]#_g143054_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143132_| + (define |gx[1]#_g143062_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143135_| + (define |gx[1]#_g143065_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143138_| + (define |gx[1]#_g143068_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g143141_| + (define |gx[1]#_g143071_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g143144_| + (define |gx[1]#_g143074_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g143152_| + (define |gx[1]#_g143082_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143155_| + (define |gx[1]#_g143085_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143158_| + (define |gx[1]#_g143088_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143161_| + (define |gx[1]#_g143091_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143164_| + (define |gx[1]#_g143094_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143172_| + (define |gx[1]#_g143102_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143175_| + (define |gx[1]#_g143105_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143178_| + (define |gx[1]#_g143108_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g143181_| + (define |gx[1]#_g143111_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g143184_| + (define |gx[1]#_g143114_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g143192_| + (define |gx[1]#_g143122_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143195_| + (define |gx[1]#_g143125_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143198_| + (define |gx[1]#_g143128_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143201_| + (define |gx[1]#_g143131_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143204_| + (define |gx[1]#_g143134_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143207_| + (define |gx[1]#_g143137_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143209_| + (define |gx[1]#_g143139_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143211_| + (define |gx[1]#_g143141_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143213_| + (define |gx[1]#_g143143_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143221_| + (define |gx[1]#_g143151_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143224_| + (define |gx[1]#_g143154_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143227_| + (define |gx[1]#_g143157_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g143230_| + (define |gx[1]#_g143160_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g143233_| + (define |gx[1]#_g143163_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g143241_| + (define |gx[1]#_g143171_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143244_| + (define |gx[1]#_g143174_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143247_| + (define |gx[1]#_g143177_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143250_| + (define |gx[1]#_g143180_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143253_| + (define |gx[1]#_g143183_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143261_| + (define |gx[1]#_g143191_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143264_| + (define |gx[1]#_g143194_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143267_| + (define |gx[1]#_g143197_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g143270_| + (define |gx[1]#_g143200_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g143273_| + (define |gx[1]#_g143203_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g143281_| + (define |gx[1]#_g143211_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143284_| + (define |gx[1]#_g143214_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143287_| + (define |gx[1]#_g143217_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143290_| + (define |gx[1]#_g143220_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143293_| + (define |gx[1]#_g143223_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143296_| + (define |gx[1]#_g143226_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143298_| + (define |gx[1]#_g143228_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143300_| + (define |gx[1]#_g143230_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143302_| + (define |gx[1]#_g143232_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143316_| + (define |gx[1]#_g143246_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143319_| + (define |gx[1]#_g143249_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143322_| + (define |gx[1]#_g143252_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g143325_| + (define |gx[1]#_g143255_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g143328_| + (define |gx[1]#_g143258_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g143331_| + (define |gx[1]#_g143261_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g143334_| + (define |gx[1]#_g143264_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g143337_| + (define |gx[1]#_g143267_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g143340_| + (define |gx[1]#_g143270_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g143343_| + (define |gx[1]#_g143273_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g143346_| + (define |gx[1]#_g143276_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g143360_| + (define |gx[1]#_g143290_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143363_| + (define |gx[1]#_g143293_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143366_| + (define |gx[1]#_g143296_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143369_| + (define |gx[1]#_g143299_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143372_| + (define |gx[1]#_g143302_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143375_| + (define |gx[1]#_g143305_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143378_| + (define |gx[1]#_g143308_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143381_| + (define |gx[1]#_g143311_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143384_| + (define |gx[1]#_g143314_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143387_| + (define |gx[1]#_g143317_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143390_| + (define |gx[1]#_g143320_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143404_| + (define |gx[1]#_g143334_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143407_| + (define |gx[1]#_g143337_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143410_| + (define |gx[1]#_g143340_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g143413_| + (define |gx[1]#_g143343_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g143416_| + (define |gx[1]#_g143346_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g143419_| + (define |gx[1]#_g143349_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g143422_| + (define |gx[1]#_g143352_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g143425_| + (define |gx[1]#_g143355_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g143428_| + (define |gx[1]#_g143358_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g143431_| + (define |gx[1]#_g143361_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g143434_| + (define |gx[1]#_g143364_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g143448_| + (define |gx[1]#_g143378_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143451_| + (define |gx[1]#_g143381_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143454_| + (define |gx[1]#_g143384_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143457_| + (define |gx[1]#_g143387_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143460_| + (define |gx[1]#_g143390_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143463_| + (define |gx[1]#_g143393_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143466_| + (define |gx[1]#_g143396_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143469_| + (define |gx[1]#_g143399_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143472_| + (define |gx[1]#_g143402_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143475_| + (define |gx[1]#_g143405_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143478_| + (define |gx[1]#_g143408_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143482_| + (define |gx[1]#_g143412_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143484_| + (define |gx[1]#_g143414_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143486_| + (define |gx[1]#_g143416_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143497_| + (define |gx[1]#_g143427_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143500_| + (define |gx[1]#_g143430_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143503_| + (define |gx[1]#_g143433_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g143506_| + (define |gx[1]#_g143436_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g143509_| + (define |gx[1]#_g143439_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g143512_| + (define |gx[1]#_g143442_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g143515_| + (define |gx[1]#_g143445_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g143518_| + (define |gx[1]#_g143448_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g143529_| + (define |gx[1]#_g143459_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143532_| + (define |gx[1]#_g143462_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143535_| + (define |gx[1]#_g143465_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143538_| + (define |gx[1]#_g143468_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143541_| + (define |gx[1]#_g143471_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143544_| + (define |gx[1]#_g143474_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143547_| + (define |gx[1]#_g143477_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143550_| + (define |gx[1]#_g143480_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143561_| + (define |gx[1]#_g143491_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143564_| + (define |gx[1]#_g143494_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143567_| + (define |gx[1]#_g143497_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g143570_| + (define |gx[1]#_g143500_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g143573_| + (define |gx[1]#_g143503_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g143576_| + (define |gx[1]#_g143506_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g143579_| + (define |gx[1]#_g143509_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g143582_| + (define |gx[1]#_g143512_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g143593_| + (define |gx[1]#_g143523_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143596_| + (define |gx[1]#_g143526_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143599_| + (define |gx[1]#_g143529_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143602_| + (define |gx[1]#_g143532_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143605_| + (define |gx[1]#_g143535_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143608_| + (define |gx[1]#_g143538_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143611_| + (define |gx[1]#_g143541_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143614_| + (define |gx[1]#_g143544_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143618_| + (define |gx[1]#_g143548_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143620_| + (define |gx[1]#_g143550_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143622_| + (define |gx[1]#_g143552_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143630_| + (define |gx[1]#_g143560_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143633_| + (define |gx[1]#_g143563_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143636_| + (define |gx[1]#_g143566_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g143639_| + (define |gx[1]#_g143569_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g143642_| + (define |gx[1]#_g143572_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g143650_| + (define |gx[1]#_g143580_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143653_| + (define |gx[1]#_g143583_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143656_| + (define |gx[1]#_g143586_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143659_| + (define |gx[1]#_g143589_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143662_| + (define |gx[1]#_g143592_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143670_| + (define |gx[1]#_g143600_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g143673_| + (define |gx[1]#_g143603_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143676_| + (define |gx[1]#_g143606_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g143679_| + (define |gx[1]#_g143609_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g143682_| + (define |gx[1]#_g143612_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g143690_| + (define |gx[1]#_g143620_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143693_| + (define |gx[1]#_g143623_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143696_| + (define |gx[1]#_g143626_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143699_| + (define |gx[1]#_g143629_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143702_| + (define |gx[1]#_g143632_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143704_| + (define |gx[1]#_g143634_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143706_| + (define |gx[1]#_g143636_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g143708_| + (define |gx[1]#_g143638_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143714_| + (define |gx[1]#_g143644_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g143717_| + (define |gx[1]#_g143647_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g143720_| + (define |gx[1]#_g143650_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143726_| + (define |gx[1]#_g143656_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143729_| + (define |gx[1]#_g143659_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143732_| + (define |gx[1]#_g143662_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143738_| + (define |gx[1]#_g143668_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g143741_| + (define |gx[1]#_g143671_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g143744_| + (define |gx[1]#_g143674_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143750_| + (define |gx[1]#_g143680_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143753_| + (define |gx[1]#_g143683_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143756_| + (define |gx[1]#_g143686_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143759_| + (define |gx[1]#_g143689_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g143761_| + (define |gx[1]#_g143691_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143763_| + (define |gx[1]#_g143693_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g143765_| + (define |gx[1]#_g143695_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143771_| + (define |gx[1]#_g143701_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g143774_| + (define |gx[1]#_g143704_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g143777_| + (define |gx[1]#_g143707_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143783_| + (define |gx[1]#_g143713_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143786_| + (define |gx[1]#_g143716_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143789_| + (define |gx[1]#_g143719_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143795_| + (define |gx[1]#_g143725_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g143798_| + (define |gx[1]#_g143728_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g143801_| + (define |gx[1]#_g143731_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143807_| + (define |gx[1]#_g143737_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143810_| + (define |gx[1]#_g143740_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143813_| + (define |gx[1]#_g143743_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143816_| + (define |gx[1]#_g143746_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g143818_| + (define |gx[1]#_g143748_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143820_| + (define |gx[1]#_g143750_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g143822_| + (define |gx[1]#_g143752_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143828_| + (define |gx[1]#_g143758_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g143831_| + (define |gx[1]#_g143761_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g143834_| + (define |gx[1]#_g143764_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143840_| + (define |gx[1]#_g143770_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143843_| + (define |gx[1]#_g143773_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143846_| + (define |gx[1]#_g143776_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143852_| + (define |gx[1]#_g143782_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g143855_| + (define |gx[1]#_g143785_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g143858_| + (define |gx[1]#_g143788_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143864_| + (define |gx[1]#_g143794_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143867_| + (define |gx[1]#_g143797_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143870_| + (define |gx[1]#_g143800_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143874_| + (define |gx[1]#_g143804_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143876_| + (define |gx[1]#_g143806_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g143878_| + (define |gx[1]#_g143808_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143884_| + (define |gx[1]#_g143814_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g143887_| + (define |gx[1]#_g143817_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g143890_| + (define |gx[1]#_g143820_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143896_| + (define |gx[1]#_g143826_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143899_| + (define |gx[1]#_g143829_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143902_| + (define |gx[1]#_g143832_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143908_| + (define |gx[1]#_g143838_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g143911_| + (define |gx[1]#_g143841_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g143914_| + (define |gx[1]#_g143844_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143920_| + (define |gx[1]#_g143850_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143923_| + (define |gx[1]#_g143853_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143926_| + (define |gx[1]#_g143856_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143929_| + (define |gx[1]#_g143859_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g143931_| + (define |gx[1]#_g143861_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143933_| + (define |gx[1]#_g143863_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g143935_| + (define |gx[1]#_g143865_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143942_| + (define |gx[1]#_g143872_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g143945_| + (define |gx[1]#_g143875_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g143948_| + (define |gx[1]#_g143878_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143951_| + (define |gx[1]#_g143881_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143958_| + (define |gx[1]#_g143888_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143961_| + (define |gx[1]#_g143891_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143964_| + (define |gx[1]#_g143894_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143967_| + (define |gx[1]#_g143897_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143974_| + (define |gx[1]#_g143904_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g143977_| + (define |gx[1]#_g143907_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g143980_| + (define |gx[1]#_g143910_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g143983_| + (define |gx[1]#_g143913_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143990_| + (define |gx[1]#_g143920_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143993_| + (define |gx[1]#_g143923_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143996_| + (define |gx[1]#_g143926_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143999_| + (define |gx[1]#_g143929_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144003_| + (define |gx[1]#_g143933_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144005_| + (define |gx[1]#_g143935_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g144007_| + (define |gx[1]#_g143937_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144013_| + (define |gx[1]#_g143943_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144016_| + (define |gx[1]#_g143946_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g144019_| + (define |gx[1]#_g143949_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144025_| + (define |gx[1]#_g143955_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144028_| + (define |gx[1]#_g143958_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144031_| + (define |gx[1]#_g143961_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144037_| + (define |gx[1]#_g143967_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144040_| + (define |gx[1]#_g143970_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g144043_| + (define |gx[1]#_g143973_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144049_| + (define |gx[1]#_g143979_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144052_| + (define |gx[1]#_g143982_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144055_| + (define |gx[1]#_g143985_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144059_| + (define |gx[1]#_g143989_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144061_| + (define |gx[1]#_g143991_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g144063_| + (define |gx[1]#_g143993_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144070_| + (define |gx[1]#_g144000_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144073_| + (define |gx[1]#_g144003_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g144076_| + (define |gx[1]#_g144006_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144079_| + (define |gx[1]#_g144009_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144086_| + (define |gx[1]#_g144016_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144089_| + (define |gx[1]#_g144019_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144092_| + (define |gx[1]#_g144022_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144095_| + (define |gx[1]#_g144025_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144102_| + (define |gx[1]#_g144032_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144105_| + (define |gx[1]#_g144035_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g144108_| + (define |gx[1]#_g144038_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144111_| + (define |gx[1]#_g144041_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144118_| + (define |gx[1]#_g144048_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144121_| + (define |gx[1]#_g144051_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144124_| + (define |gx[1]#_g144054_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144127_| + (define |gx[1]#_g144057_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144131_| + (define |gx[1]#_g144061_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144133_| + (define |gx[1]#_g144063_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g144135_| + (define |gx[1]#_g144065_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144144_| + (define |gx[1]#_g144074_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144147_| + (define |gx[1]#_g144077_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g144150_| + (define |gx[1]#_g144080_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144153_| + (define |gx[1]#_g144083_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144156_| + (define |gx[1]#_g144086_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g144159_| + (define |gx[1]#_g144089_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144168_| + (define |gx[1]#_g144098_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144171_| + (define |gx[1]#_g144101_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144174_| + (define |gx[1]#_g144104_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144177_| + (define |gx[1]#_g144107_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144180_| + (define |gx[1]#_g144110_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144183_| + (define |gx[1]#_g144113_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144192_| + (define |gx[1]#_g144122_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144195_| + (define |gx[1]#_g144125_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g144198_| + (define |gx[1]#_g144128_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144201_| + (define |gx[1]#_g144131_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144204_| + (define |gx[1]#_g144134_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g144207_| + (define |gx[1]#_g144137_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144216_| + (define |gx[1]#_g144146_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144219_| + (define |gx[1]#_g144149_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144222_| + (define |gx[1]#_g144152_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144225_| + (define |gx[1]#_g144155_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144228_| + (define |gx[1]#_g144158_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144231_| + (define |gx[1]#_g144161_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144235_| + (define |gx[1]#_g144165_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144237_| + (define |gx[1]#_g144167_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g144239_| + (define |gx[1]#_g144169_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144246_| + (define |gx[1]#_g144176_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144249_| + (define |gx[1]#_g144179_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g144252_| + (define |gx[1]#_g144182_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144255_| + (define |gx[1]#_g144185_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144262_| + (define |gx[1]#_g144192_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144265_| + (define |gx[1]#_g144195_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144268_| + (define |gx[1]#_g144198_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144271_| + (define |gx[1]#_g144201_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144278_| + (define |gx[1]#_g144208_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144281_| + (define |gx[1]#_g144211_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g144284_| + (define |gx[1]#_g144214_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144287_| + (define |gx[1]#_g144217_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144294_| + (define |gx[1]#_g144224_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144297_| + (define |gx[1]#_g144227_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144300_| + (define |gx[1]#_g144230_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144303_| + (define |gx[1]#_g144233_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144305_| + (define |gx[1]#_g144235_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144307_| + (define |gx[1]#_g144237_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144309_| + (define |gx[1]#_g144239_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144313_| + (define |gx[1]#_g144243_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144317_| + (define |gx[1]#_g144247_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144321_| + (define |gx[1]#_g144251_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144325_| + (define |gx[1]#_g144255_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144328_| + (define |gx[1]#_g144258_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144330_| + (define |gx[1]#_g144260_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144332_| + (define |gx[1]#_g144262_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144334_| + (define |gx[1]#_g144264_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144340_| + (define |gx[1]#_g144270_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144343_| + (define |gx[1]#_g144273_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144346_| + (define |gx[1]#_g144276_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144352_| + (define |gx[1]#_g144282_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144355_| + (define |gx[1]#_g144285_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144358_| + (define |gx[1]#_g144288_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144364_| + (define |gx[1]#_g144294_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144367_| + (define |gx[1]#_g144297_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144370_| + (define |gx[1]#_g144300_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144376_| + (define |gx[1]#_g144306_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144379_| + (define |gx[1]#_g144309_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144382_| + (define |gx[1]#_g144312_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144385_| + (define |gx[1]#_g144315_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144387_| + (define |gx[1]#_g144317_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144389_| + (define |gx[1]#_g144319_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g144391_| + (define |gx[1]#_g144321_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144397_| + (define |gx[1]#_g144327_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144400_| + (define |gx[1]#_g144330_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144403_| + (define |gx[1]#_g144333_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144409_| + (define |gx[1]#_g144339_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144412_| + (define |gx[1]#_g144342_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144415_| + (define |gx[1]#_g144345_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144421_| + (define |gx[1]#_g144351_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144424_| + (define |gx[1]#_g144354_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144427_| + (define |gx[1]#_g144357_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144433_| + (define |gx[1]#_g144363_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144436_| + (define |gx[1]#_g144366_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144439_| + (define |gx[1]#_g144369_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144443_| + (define |gx[1]#_g144373_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144445_| + (define |gx[1]#_g144375_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g144447_| + (define |gx[1]#_g144377_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144453_| + (define |gx[1]#_g144383_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144456_| + (define |gx[1]#_g144386_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144459_| + (define |gx[1]#_g144389_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144465_| + (define |gx[1]#_g144395_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144468_| + (define |gx[1]#_g144398_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144471_| + (define |gx[1]#_g144401_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144477_| + (define |gx[1]#_g144407_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144480_| + (define |gx[1]#_g144410_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144483_| + (define |gx[1]#_g144413_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144489_| + (define |gx[1]#_g144419_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144492_| + (define |gx[1]#_g144422_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144495_| + (define |gx[1]#_g144425_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144498_| + (define |gx[1]#_g144428_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g144500_| + (define |gx[1]#_g144430_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144502_| + (define |gx[1]#_g144432_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g144504_| + (define |gx[1]#_g144434_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144510_| + (define |gx[1]#_g144440_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144513_| + (define |gx[1]#_g144443_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144516_| + (define |gx[1]#_g144446_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144522_| + (define |gx[1]#_g144452_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144525_| + (define |gx[1]#_g144455_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144528_| + (define |gx[1]#_g144458_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144534_| + (define |gx[1]#_g144464_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144537_| + (define |gx[1]#_g144467_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144540_| + (define |gx[1]#_g144470_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144546_| + (define |gx[1]#_g144476_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144549_| + (define |gx[1]#_g144479_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144552_| + (define |gx[1]#_g144482_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144556_| + (define |gx[1]#_g144486_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144558_| + (define |gx[1]#_g144488_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g144560_| + (define |gx[1]#_g144490_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144566_| + (define |gx[1]#_g144496_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144569_| + (define |gx[1]#_g144499_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144572_| + (define |gx[1]#_g144502_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144578_| + (define |gx[1]#_g144508_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144581_| + (define |gx[1]#_g144511_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144584_| + (define |gx[1]#_g144514_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144590_| + (define |gx[1]#_g144520_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144593_| + (define |gx[1]#_g144523_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144596_| + (define |gx[1]#_g144526_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144602_| + (define |gx[1]#_g144532_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144605_| + (define |gx[1]#_g144535_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144608_| + (define |gx[1]#_g144538_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144611_| + (define |gx[1]#_g144541_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g144613_| + (define |gx[1]#_g144543_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144615_| + (define |gx[1]#_g144545_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g144617_| + (define |gx[1]#_g144547_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144623_| + (define |gx[1]#_g144553_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144626_| + (define |gx[1]#_g144556_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144629_| + (define |gx[1]#_g144559_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144635_| + (define |gx[1]#_g144565_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144638_| + (define |gx[1]#_g144568_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144641_| + (define |gx[1]#_g144571_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144647_| + (define |gx[1]#_g144577_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144650_| + (define |gx[1]#_g144580_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g144653_| + (define |gx[1]#_g144583_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g144659_| + (define |gx[1]#_g144589_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144662_| + (define |gx[1]#_g144592_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144665_| + (define |gx[1]#_g144595_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144669_| + (define |gx[1]#_g144599_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144671_| + (define |gx[1]#_g144601_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144673_| + (define |gx[1]#_g144603_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144677_| + (define |gx[1]#_g144607_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144681_| + (define |gx[1]#_g144611_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144685_| + (define |gx[1]#_g144615_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144689_| + (define |gx[1]#_g144619_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144692_| + (define |gx[1]#_g144622_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144694_| + (define |gx[1]#_g144624_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144696_| + (define |gx[1]#_g144626_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144698_| + (define |gx[1]#_g144628_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144702_| + (define |gx[1]#_g144632_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144706_| + (define |gx[1]#_g144636_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144710_| + (define |gx[1]#_g144640_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144714_| + (define |gx[1]#_g144644_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144718_| + (define |gx[1]#_g144648_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144720_| + (define |gx[1]#_g144650_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144722_| + (define |gx[1]#_g144652_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144726_| + (define |gx[1]#_g144656_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144730_| + (define |gx[1]#_g144660_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144734_| + (define |gx[1]#_g144664_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144738_| + (define |gx[1]#_g144668_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144742_| + (define |gx[1]#_g144672_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144744_| + (define |gx[1]#_g144674_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144746_| + (define |gx[1]#_g144676_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144750_| + (define |gx[1]#_g144680_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144754_| + (define |gx[1]#_g144684_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144758_| + (define |gx[1]#_g144688_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144762_| + (define |gx[1]#_g144692_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144765_| + (define |gx[1]#_g144695_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144767_| + (define |gx[1]#_g144697_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144769_| + (define |gx[1]#_g144699_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144771_| + (define |gx[1]#_g144701_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144775_| + (define |gx[1]#_g144705_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144779_| + (define |gx[1]#_g144709_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144783_| + (define |gx[1]#_g144713_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144787_| + (define |gx[1]#_g144717_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144791_| + (define |gx[1]#_g144721_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144793_| + (define |gx[1]#_g144723_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g144795_| + (define |gx[1]#_g144725_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144801_| + (define |gx[1]#_g144731_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144804_| + (define |gx[1]#_g144734_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144807_| + (define |gx[1]#_g144737_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g144813_| + (define |gx[1]#_g144743_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144816_| + (define |gx[1]#_g144746_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144819_| + (define |gx[1]#_g144749_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144825_| + (define |gx[1]#_g144755_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g144828_| + (define |gx[1]#_g144758_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144831_| + (define |gx[1]#_g144761_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g144837_| + (define |gx[1]#_g144767_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144840_| + (define |gx[1]#_g144770_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144843_| + (define |gx[1]#_g144773_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144845_| + (define |gx[1]#_g144775_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g144847_| + (define |gx[1]#_g144777_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g144849_| + (define |gx[1]#_g144779_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g144856_| + (define |gx[1]#_g144786_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g144859_| + (define |gx[1]#_g144789_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144862_| + (define |gx[1]#_g144792_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g144865_| + (define |gx[1]#_g144795_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g144872_| + (define |gx[1]#_g144802_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144875_| + (define |gx[1]#_g144805_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144878_| + (define |gx[1]#_g144808_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144881_| + (define |gx[1]#_g144811_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144888_| + (define |gx[1]#_g144818_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g144891_| + (define |gx[1]#_g144821_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g144894_| + (define |gx[1]#_g144824_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g144897_| + (define |gx[1]#_g144827_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g144904_| + (define |gx[1]#_g144834_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144907_| + (define |gx[1]#_g144837_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144910_| + (define |gx[1]#_g144840_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g144913_| + (define |gx[1]#_g144843_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! @@ -3572,12 +3572,12 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj142956 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142886 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142956 + __obj142886 'gx#expander-context::t '1 gerbil/core$$#class-type-info::t @@ -3585,7 +3585,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142956 + __obj142886 'expander-context '2 gerbil/core$$#class-type-info::t @@ -3593,7 +3593,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142956 + __obj142886 '(id table) '4 gerbil/core$$#class-type-info::t @@ -3601,7 +3601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142956 + __obj142886 '() '3 gerbil/core$$#class-type-info::t @@ -3609,7 +3609,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142956 + __obj142886 '#t '5 gerbil/core$$#class-type-info::t @@ -3617,7 +3617,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142956 + __obj142886 '#f '6 gerbil/core$$#class-type-info::t @@ -3625,127 +3625,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142956 + __obj142886 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143038 |gx[1]#_g143039_|)) + (let ((__tmp142968 |gx[1]#_g142969_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142956 - __tmp143038 + __obj142886 + __tmp142968 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143040 |gx[1]#_g143041_|)) + (let ((__tmp142970 |gx[1]#_g142971_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142956 - __tmp143040 + __obj142886 + __tmp142970 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143042 |gx[1]#_g143043_|)) + (let ((__tmp142972 |gx[1]#_g142973_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142956 - __tmp143042 + __obj142886 + __tmp142972 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143044 - (let ((__tmp143049 - (let ((__tmp143050 |gx[1]#_g143051_|)) + (let ((__tmp142974 + (let ((__tmp142979 + (let ((__tmp142980 |gx[1]#_g142981_|)) (declare (not safe)) - (cons 'id __tmp143050))) - (__tmp143045 - (let ((__tmp143046 - (let ((__tmp143047 |gx[1]#_g143048_|)) + (cons 'id __tmp142980))) + (__tmp142975 + (let ((__tmp142976 + (let ((__tmp142977 |gx[1]#_g142978_|)) (declare (not safe)) - (cons 'table __tmp143047)))) + (cons 'table __tmp142977)))) (declare (not safe)) - (cons __tmp143046 '())))) + (cons __tmp142976 '())))) (declare (not safe)) - (cons __tmp143049 __tmp143045)))) + (cons __tmp142979 __tmp142975)))) (declare (not safe)) (##unchecked-structure-set! - __obj142956 - __tmp143044 + __obj142886 + __tmp142974 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143052 - (let ((__tmp143057 - (let ((__tmp143058 |gx[1]#_g143059_|)) + (let ((__tmp142982 + (let ((__tmp142987 + (let ((__tmp142988 |gx[1]#_g142989_|)) (declare (not safe)) - (cons 'id __tmp143058))) - (__tmp143053 - (let ((__tmp143054 - (let ((__tmp143055 |gx[1]#_g143056_|)) + (cons 'id __tmp142988))) + (__tmp142983 + (let ((__tmp142984 + (let ((__tmp142985 |gx[1]#_g142986_|)) (declare (not safe)) - (cons 'table __tmp143055)))) + (cons 'table __tmp142985)))) (declare (not safe)) - (cons __tmp143054 '())))) + (cons __tmp142984 '())))) (declare (not safe)) - (cons __tmp143057 __tmp143053)))) + (cons __tmp142987 __tmp142983)))) (declare (not safe)) (##unchecked-structure-set! - __obj142956 - __tmp143052 + __obj142886 + __tmp142982 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143060 - (let ((__tmp143065 - (let ((__tmp143066 |gx[1]#_g143067_|)) + (let ((__tmp142990 + (let ((__tmp142995 + (let ((__tmp142996 |gx[1]#_g142997_|)) (declare (not safe)) - (cons 'id __tmp143066))) - (__tmp143061 - (let ((__tmp143062 - (let ((__tmp143063 |gx[1]#_g143064_|)) + (cons 'id __tmp142996))) + (__tmp142991 + (let ((__tmp142992 + (let ((__tmp142993 |gx[1]#_g142994_|)) (declare (not safe)) - (cons 'table __tmp143063)))) + (cons 'table __tmp142993)))) (declare (not safe)) - (cons __tmp143062 '())))) + (cons __tmp142992 '())))) (declare (not safe)) - (cons __tmp143065 __tmp143061)))) + (cons __tmp142995 __tmp142991)))) (declare (not safe)) (##unchecked-structure-set! - __obj142956 - __tmp143060 + __obj142886 + __tmp142990 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143068 - (let ((__tmp143073 - (let ((__tmp143074 |gx[1]#_g143075_|)) + (let ((__tmp142998 + (let ((__tmp143003 + (let ((__tmp143004 |gx[1]#_g143005_|)) (declare (not safe)) - (cons 'id __tmp143074))) - (__tmp143069 - (let ((__tmp143070 - (let ((__tmp143071 |gx[1]#_g143072_|)) + (cons 'id __tmp143004))) + (__tmp142999 + (let ((__tmp143000 + (let ((__tmp143001 |gx[1]#_g143002_|)) (declare (not safe)) - (cons 'table __tmp143071)))) + (cons 'table __tmp143001)))) (declare (not safe)) - (cons __tmp143070 '())))) + (cons __tmp143000 '())))) (declare (not safe)) - (cons __tmp143073 __tmp143069)))) + (cons __tmp143003 __tmp142999)))) (declare (not safe)) (##unchecked-structure-set! - __obj142956 - __tmp143068 + __obj142886 + __tmp142998 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142956)) + __obj142886)) (define |gx[:0:]#root-context| - (let ((__obj142957 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142887 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142957 + __obj142887 'gx#root-context::t '1 gerbil/core$$#class-type-info::t @@ -3753,7 +3753,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142957 + __obj142887 'root-context '2 gerbil/core$$#class-type-info::t @@ -3761,26 +3761,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142957 + __obj142887 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143076 - (let ((__tmp143077 |gx[1]#_g143078_|)) + (let ((__tmp143006 + (let ((__tmp143007 |gx[1]#_g143008_|)) (declare (not safe)) - (cons __tmp143077 '())))) + (cons __tmp143007 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142957 - __tmp143076 + __obj142887 + __tmp143006 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142957 + __obj142887 '#t '5 gerbil/core$$#class-type-info::t @@ -3788,7 +3788,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142957 + __obj142887 '#f '6 gerbil/core$$#class-type-info::t @@ -3796,127 +3796,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142957 + __obj142887 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143079 |gx[1]#_g143080_|)) + (let ((__tmp143009 |gx[1]#_g143010_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142957 - __tmp143079 + __obj142887 + __tmp143009 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143081 |gx[1]#_g143082_|)) + (let ((__tmp143011 |gx[1]#_g143012_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142957 - __tmp143081 + __obj142887 + __tmp143011 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143083 |gx[1]#_g143084_|)) + (let ((__tmp143013 |gx[1]#_g143014_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142957 - __tmp143083 + __obj142887 + __tmp143013 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143085 - (let ((__tmp143090 - (let ((__tmp143091 |gx[1]#_g143092_|)) + (let ((__tmp143015 + (let ((__tmp143020 + (let ((__tmp143021 |gx[1]#_g143022_|)) (declare (not safe)) - (cons 'id __tmp143091))) - (__tmp143086 - (let ((__tmp143087 - (let ((__tmp143088 |gx[1]#_g143089_|)) + (cons 'id __tmp143021))) + (__tmp143016 + (let ((__tmp143017 + (let ((__tmp143018 |gx[1]#_g143019_|)) (declare (not safe)) - (cons 'table __tmp143088)))) + (cons 'table __tmp143018)))) (declare (not safe)) - (cons __tmp143087 '())))) + (cons __tmp143017 '())))) (declare (not safe)) - (cons __tmp143090 __tmp143086)))) + (cons __tmp143020 __tmp143016)))) (declare (not safe)) (##unchecked-structure-set! - __obj142957 - __tmp143085 + __obj142887 + __tmp143015 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143093 - (let ((__tmp143098 - (let ((__tmp143099 |gx[1]#_g143100_|)) + (let ((__tmp143023 + (let ((__tmp143028 + (let ((__tmp143029 |gx[1]#_g143030_|)) (declare (not safe)) - (cons 'id __tmp143099))) - (__tmp143094 - (let ((__tmp143095 - (let ((__tmp143096 |gx[1]#_g143097_|)) + (cons 'id __tmp143029))) + (__tmp143024 + (let ((__tmp143025 + (let ((__tmp143026 |gx[1]#_g143027_|)) (declare (not safe)) - (cons 'table __tmp143096)))) + (cons 'table __tmp143026)))) (declare (not safe)) - (cons __tmp143095 '())))) + (cons __tmp143025 '())))) (declare (not safe)) - (cons __tmp143098 __tmp143094)))) + (cons __tmp143028 __tmp143024)))) (declare (not safe)) (##unchecked-structure-set! - __obj142957 - __tmp143093 + __obj142887 + __tmp143023 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143101 - (let ((__tmp143106 - (let ((__tmp143107 |gx[1]#_g143108_|)) + (let ((__tmp143031 + (let ((__tmp143036 + (let ((__tmp143037 |gx[1]#_g143038_|)) (declare (not safe)) - (cons 'id __tmp143107))) - (__tmp143102 - (let ((__tmp143103 - (let ((__tmp143104 |gx[1]#_g143105_|)) + (cons 'id __tmp143037))) + (__tmp143032 + (let ((__tmp143033 + (let ((__tmp143034 |gx[1]#_g143035_|)) (declare (not safe)) - (cons 'table __tmp143104)))) + (cons 'table __tmp143034)))) (declare (not safe)) - (cons __tmp143103 '())))) + (cons __tmp143033 '())))) (declare (not safe)) - (cons __tmp143106 __tmp143102)))) + (cons __tmp143036 __tmp143032)))) (declare (not safe)) (##unchecked-structure-set! - __obj142957 - __tmp143101 + __obj142887 + __tmp143031 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143109 - (let ((__tmp143114 - (let ((__tmp143115 |gx[1]#_g143116_|)) + (let ((__tmp143039 + (let ((__tmp143044 + (let ((__tmp143045 |gx[1]#_g143046_|)) (declare (not safe)) - (cons 'id __tmp143115))) - (__tmp143110 - (let ((__tmp143111 - (let ((__tmp143112 |gx[1]#_g143113_|)) + (cons 'id __tmp143045))) + (__tmp143040 + (let ((__tmp143041 + (let ((__tmp143042 |gx[1]#_g143043_|)) (declare (not safe)) - (cons 'table __tmp143112)))) + (cons 'table __tmp143042)))) (declare (not safe)) - (cons __tmp143111 '())))) + (cons __tmp143041 '())))) (declare (not safe)) - (cons __tmp143114 __tmp143110)))) + (cons __tmp143044 __tmp143040)))) (declare (not safe)) (##unchecked-structure-set! - __obj142957 - __tmp143109 + __obj142887 + __tmp143039 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142957)) + __obj142887)) (define |gx[:0:]#phi-context| - (let ((__obj142958 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142888 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142958 + __obj142888 'gx#context-phi::t '1 gerbil/core$$#class-type-info::t @@ -3924,7 +3924,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142958 + __obj142888 'phi-context '2 gerbil/core$$#class-type-info::t @@ -3932,26 +3932,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142958 + __obj142888 '(super up down) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143117 - (let ((__tmp143118 |gx[1]#_g143078_|)) + (let ((__tmp143047 + (let ((__tmp143048 |gx[1]#_g143008_|)) (declare (not safe)) - (cons __tmp143118 '())))) + (cons __tmp143048 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142958 - __tmp143117 + __obj142888 + __tmp143047 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142958 + __obj142888 '#t '5 gerbil/core$$#class-type-info::t @@ -3959,7 +3959,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142958 + __obj142888 '#f '6 gerbil/core$$#class-type-info::t @@ -3967,223 +3967,223 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142958 + __obj142888 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143119 |gx[1]#_g143120_|)) + (let ((__tmp143049 |gx[1]#_g143050_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142958 - __tmp143119 + __obj142888 + __tmp143049 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143121 |gx[1]#_g143122_|)) + (let ((__tmp143051 |gx[1]#_g143052_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142958 - __tmp143121 + __obj142888 + __tmp143051 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143123 |gx[1]#_g143124_|)) + (let ((__tmp143053 |gx[1]#_g143054_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142958 - __tmp143123 + __obj142888 + __tmp143053 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143125 - (let ((__tmp143142 - (let ((__tmp143143 |gx[1]#_g143144_|)) + (let ((__tmp143055 + (let ((__tmp143072 + (let ((__tmp143073 |gx[1]#_g143074_|)) (declare (not safe)) - (cons 'super __tmp143143))) - (__tmp143126 - (let ((__tmp143139 - (let ((__tmp143140 |gx[1]#_g143141_|)) + (cons 'super __tmp143073))) + (__tmp143056 + (let ((__tmp143069 + (let ((__tmp143070 |gx[1]#_g143071_|)) (declare (not safe)) - (cons 'up __tmp143140))) - (__tmp143127 - (let ((__tmp143136 - (let ((__tmp143137 |gx[1]#_g143138_|)) + (cons 'up __tmp143070))) + (__tmp143057 + (let ((__tmp143066 + (let ((__tmp143067 |gx[1]#_g143068_|)) (declare (not safe)) - (cons 'down __tmp143137))) - (__tmp143128 - (let ((__tmp143133 - (let ((__tmp143134 - |gx[1]#_g143135_|)) + (cons 'down __tmp143067))) + (__tmp143058 + (let ((__tmp143063 + (let ((__tmp143064 + |gx[1]#_g143065_|)) (declare (not safe)) - (cons 'id __tmp143134))) - (__tmp143129 - (let ((__tmp143130 - (let ((__tmp143131 - |gx[1]#_g143132_|)) + (cons 'id __tmp143064))) + (__tmp143059 + (let ((__tmp143060 + (let ((__tmp143061 + |gx[1]#_g143062_|)) (declare (not safe)) (cons 'table - __tmp143131)))) + __tmp143061)))) (declare (not safe)) - (cons __tmp143130 '())))) + (cons __tmp143060 '())))) (declare (not safe)) - (cons __tmp143133 __tmp143129)))) + (cons __tmp143063 __tmp143059)))) (declare (not safe)) - (cons __tmp143136 __tmp143128)))) + (cons __tmp143066 __tmp143058)))) (declare (not safe)) - (cons __tmp143139 __tmp143127)))) + (cons __tmp143069 __tmp143057)))) (declare (not safe)) - (cons __tmp143142 __tmp143126)))) + (cons __tmp143072 __tmp143056)))) (declare (not safe)) (##unchecked-structure-set! - __obj142958 - __tmp143125 + __obj142888 + __tmp143055 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143145 - (let ((__tmp143162 - (let ((__tmp143163 |gx[1]#_g143164_|)) + (let ((__tmp143075 + (let ((__tmp143092 + (let ((__tmp143093 |gx[1]#_g143094_|)) (declare (not safe)) - (cons 'super __tmp143163))) - (__tmp143146 - (let ((__tmp143159 - (let ((__tmp143160 |gx[1]#_g143161_|)) + (cons 'super __tmp143093))) + (__tmp143076 + (let ((__tmp143089 + (let ((__tmp143090 |gx[1]#_g143091_|)) (declare (not safe)) - (cons 'up __tmp143160))) - (__tmp143147 - (let ((__tmp143156 - (let ((__tmp143157 |gx[1]#_g143158_|)) + (cons 'up __tmp143090))) + (__tmp143077 + (let ((__tmp143086 + (let ((__tmp143087 |gx[1]#_g143088_|)) (declare (not safe)) - (cons 'down __tmp143157))) - (__tmp143148 - (let ((__tmp143153 - (let ((__tmp143154 - |gx[1]#_g143155_|)) + (cons 'down __tmp143087))) + (__tmp143078 + (let ((__tmp143083 + (let ((__tmp143084 + |gx[1]#_g143085_|)) (declare (not safe)) - (cons 'id __tmp143154))) - (__tmp143149 - (let ((__tmp143150 - (let ((__tmp143151 - |gx[1]#_g143152_|)) + (cons 'id __tmp143084))) + (__tmp143079 + (let ((__tmp143080 + (let ((__tmp143081 + |gx[1]#_g143082_|)) (declare (not safe)) (cons 'table - __tmp143151)))) + __tmp143081)))) (declare (not safe)) - (cons __tmp143150 '())))) + (cons __tmp143080 '())))) (declare (not safe)) - (cons __tmp143153 __tmp143149)))) + (cons __tmp143083 __tmp143079)))) (declare (not safe)) - (cons __tmp143156 __tmp143148)))) + (cons __tmp143086 __tmp143078)))) (declare (not safe)) - (cons __tmp143159 __tmp143147)))) + (cons __tmp143089 __tmp143077)))) (declare (not safe)) - (cons __tmp143162 __tmp143146)))) + (cons __tmp143092 __tmp143076)))) (declare (not safe)) (##unchecked-structure-set! - __obj142958 - __tmp143145 + __obj142888 + __tmp143075 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143165 - (let ((__tmp143182 - (let ((__tmp143183 |gx[1]#_g143184_|)) + (let ((__tmp143095 + (let ((__tmp143112 + (let ((__tmp143113 |gx[1]#_g143114_|)) (declare (not safe)) - (cons 'super __tmp143183))) - (__tmp143166 - (let ((__tmp143179 - (let ((__tmp143180 |gx[1]#_g143181_|)) + (cons 'super __tmp143113))) + (__tmp143096 + (let ((__tmp143109 + (let ((__tmp143110 |gx[1]#_g143111_|)) (declare (not safe)) - (cons 'up __tmp143180))) - (__tmp143167 - (let ((__tmp143176 - (let ((__tmp143177 |gx[1]#_g143178_|)) + (cons 'up __tmp143110))) + (__tmp143097 + (let ((__tmp143106 + (let ((__tmp143107 |gx[1]#_g143108_|)) (declare (not safe)) - (cons 'down __tmp143177))) - (__tmp143168 - (let ((__tmp143173 - (let ((__tmp143174 - |gx[1]#_g143175_|)) + (cons 'down __tmp143107))) + (__tmp143098 + (let ((__tmp143103 + (let ((__tmp143104 + |gx[1]#_g143105_|)) (declare (not safe)) - (cons 'id __tmp143174))) - (__tmp143169 - (let ((__tmp143170 - (let ((__tmp143171 - |gx[1]#_g143172_|)) + (cons 'id __tmp143104))) + (__tmp143099 + (let ((__tmp143100 + (let ((__tmp143101 + |gx[1]#_g143102_|)) (declare (not safe)) (cons 'table - __tmp143171)))) + __tmp143101)))) (declare (not safe)) - (cons __tmp143170 '())))) + (cons __tmp143100 '())))) (declare (not safe)) - (cons __tmp143173 __tmp143169)))) + (cons __tmp143103 __tmp143099)))) (declare (not safe)) - (cons __tmp143176 __tmp143168)))) + (cons __tmp143106 __tmp143098)))) (declare (not safe)) - (cons __tmp143179 __tmp143167)))) + (cons __tmp143109 __tmp143097)))) (declare (not safe)) - (cons __tmp143182 __tmp143166)))) + (cons __tmp143112 __tmp143096)))) (declare (not safe)) (##unchecked-structure-set! - __obj142958 - __tmp143165 + __obj142888 + __tmp143095 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143185 - (let ((__tmp143202 - (let ((__tmp143203 |gx[1]#_g143204_|)) + (let ((__tmp143115 + (let ((__tmp143132 + (let ((__tmp143133 |gx[1]#_g143134_|)) (declare (not safe)) - (cons 'super __tmp143203))) - (__tmp143186 - (let ((__tmp143199 - (let ((__tmp143200 |gx[1]#_g143201_|)) + (cons 'super __tmp143133))) + (__tmp143116 + (let ((__tmp143129 + (let ((__tmp143130 |gx[1]#_g143131_|)) (declare (not safe)) - (cons 'up __tmp143200))) - (__tmp143187 - (let ((__tmp143196 - (let ((__tmp143197 |gx[1]#_g143198_|)) + (cons 'up __tmp143130))) + (__tmp143117 + (let ((__tmp143126 + (let ((__tmp143127 |gx[1]#_g143128_|)) (declare (not safe)) - (cons 'down __tmp143197))) - (__tmp143188 - (let ((__tmp143193 - (let ((__tmp143194 - |gx[1]#_g143195_|)) + (cons 'down __tmp143127))) + (__tmp143118 + (let ((__tmp143123 + (let ((__tmp143124 + |gx[1]#_g143125_|)) (declare (not safe)) - (cons 'id __tmp143194))) - (__tmp143189 - (let ((__tmp143190 - (let ((__tmp143191 - |gx[1]#_g143192_|)) + (cons 'id __tmp143124))) + (__tmp143119 + (let ((__tmp143120 + (let ((__tmp143121 + |gx[1]#_g143122_|)) (declare (not safe)) (cons 'table - __tmp143191)))) + __tmp143121)))) (declare (not safe)) - (cons __tmp143190 '())))) + (cons __tmp143120 '())))) (declare (not safe)) - (cons __tmp143193 __tmp143189)))) + (cons __tmp143123 __tmp143119)))) (declare (not safe)) - (cons __tmp143196 __tmp143188)))) + (cons __tmp143126 __tmp143118)))) (declare (not safe)) - (cons __tmp143199 __tmp143187)))) + (cons __tmp143129 __tmp143117)))) (declare (not safe)) - (cons __tmp143202 __tmp143186)))) + (cons __tmp143132 __tmp143116)))) (declare (not safe)) (##unchecked-structure-set! - __obj142958 - __tmp143185 + __obj142888 + __tmp143115 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142958)) + __obj142888)) (define |gx[:0:]#top-context| - (let ((__obj142959 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142889 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142959 + __obj142889 'gx#top-context::t '1 gerbil/core$$#class-type-info::t @@ -4191,7 +4191,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142959 + __obj142889 'top-context '2 gerbil/core$$#class-type-info::t @@ -4199,26 +4199,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142959 + __obj142889 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143205 - (let ((__tmp143206 |gx[1]#_g143207_|)) + (let ((__tmp143135 + (let ((__tmp143136 |gx[1]#_g143137_|)) (declare (not safe)) - (cons __tmp143206 '())))) + (cons __tmp143136 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142959 - __tmp143205 + __obj142889 + __tmp143135 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142959 + __obj142889 '#t '5 gerbil/core$$#class-type-info::t @@ -4226,7 +4226,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142959 + __obj142889 '#f '6 gerbil/core$$#class-type-info::t @@ -4234,223 +4234,223 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142959 + __obj142889 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143208 |gx[1]#_g143209_|)) + (let ((__tmp143138 |gx[1]#_g143139_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142959 - __tmp143208 + __obj142889 + __tmp143138 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143210 |gx[1]#_g143211_|)) + (let ((__tmp143140 |gx[1]#_g143141_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142959 - __tmp143210 + __obj142889 + __tmp143140 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143212 |gx[1]#_g143213_|)) + (let ((__tmp143142 |gx[1]#_g143143_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142959 - __tmp143212 + __obj142889 + __tmp143142 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143214 - (let ((__tmp143231 - (let ((__tmp143232 |gx[1]#_g143233_|)) + (let ((__tmp143144 + (let ((__tmp143161 + (let ((__tmp143162 |gx[1]#_g143163_|)) (declare (not safe)) - (cons 'super __tmp143232))) - (__tmp143215 - (let ((__tmp143228 - (let ((__tmp143229 |gx[1]#_g143230_|)) + (cons 'super __tmp143162))) + (__tmp143145 + (let ((__tmp143158 + (let ((__tmp143159 |gx[1]#_g143160_|)) (declare (not safe)) - (cons 'up __tmp143229))) - (__tmp143216 - (let ((__tmp143225 - (let ((__tmp143226 |gx[1]#_g143227_|)) + (cons 'up __tmp143159))) + (__tmp143146 + (let ((__tmp143155 + (let ((__tmp143156 |gx[1]#_g143157_|)) (declare (not safe)) - (cons 'down __tmp143226))) - (__tmp143217 - (let ((__tmp143222 - (let ((__tmp143223 - |gx[1]#_g143224_|)) + (cons 'down __tmp143156))) + (__tmp143147 + (let ((__tmp143152 + (let ((__tmp143153 + |gx[1]#_g143154_|)) (declare (not safe)) - (cons 'id __tmp143223))) - (__tmp143218 - (let ((__tmp143219 - (let ((__tmp143220 - |gx[1]#_g143221_|)) + (cons 'id __tmp143153))) + (__tmp143148 + (let ((__tmp143149 + (let ((__tmp143150 + |gx[1]#_g143151_|)) (declare (not safe)) (cons 'table - __tmp143220)))) + __tmp143150)))) (declare (not safe)) - (cons __tmp143219 '())))) + (cons __tmp143149 '())))) (declare (not safe)) - (cons __tmp143222 __tmp143218)))) + (cons __tmp143152 __tmp143148)))) (declare (not safe)) - (cons __tmp143225 __tmp143217)))) + (cons __tmp143155 __tmp143147)))) (declare (not safe)) - (cons __tmp143228 __tmp143216)))) + (cons __tmp143158 __tmp143146)))) (declare (not safe)) - (cons __tmp143231 __tmp143215)))) + (cons __tmp143161 __tmp143145)))) (declare (not safe)) (##unchecked-structure-set! - __obj142959 - __tmp143214 + __obj142889 + __tmp143144 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143234 - (let ((__tmp143251 - (let ((__tmp143252 |gx[1]#_g143253_|)) + (let ((__tmp143164 + (let ((__tmp143181 + (let ((__tmp143182 |gx[1]#_g143183_|)) (declare (not safe)) - (cons 'super __tmp143252))) - (__tmp143235 - (let ((__tmp143248 - (let ((__tmp143249 |gx[1]#_g143250_|)) + (cons 'super __tmp143182))) + (__tmp143165 + (let ((__tmp143178 + (let ((__tmp143179 |gx[1]#_g143180_|)) (declare (not safe)) - (cons 'up __tmp143249))) - (__tmp143236 - (let ((__tmp143245 - (let ((__tmp143246 |gx[1]#_g143247_|)) + (cons 'up __tmp143179))) + (__tmp143166 + (let ((__tmp143175 + (let ((__tmp143176 |gx[1]#_g143177_|)) (declare (not safe)) - (cons 'down __tmp143246))) - (__tmp143237 - (let ((__tmp143242 - (let ((__tmp143243 - |gx[1]#_g143244_|)) + (cons 'down __tmp143176))) + (__tmp143167 + (let ((__tmp143172 + (let ((__tmp143173 + |gx[1]#_g143174_|)) (declare (not safe)) - (cons 'id __tmp143243))) - (__tmp143238 - (let ((__tmp143239 - (let ((__tmp143240 - |gx[1]#_g143241_|)) + (cons 'id __tmp143173))) + (__tmp143168 + (let ((__tmp143169 + (let ((__tmp143170 + |gx[1]#_g143171_|)) (declare (not safe)) (cons 'table - __tmp143240)))) + __tmp143170)))) (declare (not safe)) - (cons __tmp143239 '())))) + (cons __tmp143169 '())))) (declare (not safe)) - (cons __tmp143242 __tmp143238)))) + (cons __tmp143172 __tmp143168)))) (declare (not safe)) - (cons __tmp143245 __tmp143237)))) + (cons __tmp143175 __tmp143167)))) (declare (not safe)) - (cons __tmp143248 __tmp143236)))) + (cons __tmp143178 __tmp143166)))) (declare (not safe)) - (cons __tmp143251 __tmp143235)))) + (cons __tmp143181 __tmp143165)))) (declare (not safe)) (##unchecked-structure-set! - __obj142959 - __tmp143234 + __obj142889 + __tmp143164 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143254 - (let ((__tmp143271 - (let ((__tmp143272 |gx[1]#_g143273_|)) + (let ((__tmp143184 + (let ((__tmp143201 + (let ((__tmp143202 |gx[1]#_g143203_|)) (declare (not safe)) - (cons 'super __tmp143272))) - (__tmp143255 - (let ((__tmp143268 - (let ((__tmp143269 |gx[1]#_g143270_|)) + (cons 'super __tmp143202))) + (__tmp143185 + (let ((__tmp143198 + (let ((__tmp143199 |gx[1]#_g143200_|)) (declare (not safe)) - (cons 'up __tmp143269))) - (__tmp143256 - (let ((__tmp143265 - (let ((__tmp143266 |gx[1]#_g143267_|)) + (cons 'up __tmp143199))) + (__tmp143186 + (let ((__tmp143195 + (let ((__tmp143196 |gx[1]#_g143197_|)) (declare (not safe)) - (cons 'down __tmp143266))) - (__tmp143257 - (let ((__tmp143262 - (let ((__tmp143263 - |gx[1]#_g143264_|)) + (cons 'down __tmp143196))) + (__tmp143187 + (let ((__tmp143192 + (let ((__tmp143193 + |gx[1]#_g143194_|)) (declare (not safe)) - (cons 'id __tmp143263))) - (__tmp143258 - (let ((__tmp143259 - (let ((__tmp143260 - |gx[1]#_g143261_|)) + (cons 'id __tmp143193))) + (__tmp143188 + (let ((__tmp143189 + (let ((__tmp143190 + |gx[1]#_g143191_|)) (declare (not safe)) (cons 'table - __tmp143260)))) + __tmp143190)))) (declare (not safe)) - (cons __tmp143259 '())))) + (cons __tmp143189 '())))) (declare (not safe)) - (cons __tmp143262 __tmp143258)))) + (cons __tmp143192 __tmp143188)))) (declare (not safe)) - (cons __tmp143265 __tmp143257)))) + (cons __tmp143195 __tmp143187)))) (declare (not safe)) - (cons __tmp143268 __tmp143256)))) + (cons __tmp143198 __tmp143186)))) (declare (not safe)) - (cons __tmp143271 __tmp143255)))) + (cons __tmp143201 __tmp143185)))) (declare (not safe)) (##unchecked-structure-set! - __obj142959 - __tmp143254 + __obj142889 + __tmp143184 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143274 - (let ((__tmp143291 - (let ((__tmp143292 |gx[1]#_g143293_|)) + (let ((__tmp143204 + (let ((__tmp143221 + (let ((__tmp143222 |gx[1]#_g143223_|)) (declare (not safe)) - (cons 'super __tmp143292))) - (__tmp143275 - (let ((__tmp143288 - (let ((__tmp143289 |gx[1]#_g143290_|)) + (cons 'super __tmp143222))) + (__tmp143205 + (let ((__tmp143218 + (let ((__tmp143219 |gx[1]#_g143220_|)) (declare (not safe)) - (cons 'up __tmp143289))) - (__tmp143276 - (let ((__tmp143285 - (let ((__tmp143286 |gx[1]#_g143287_|)) + (cons 'up __tmp143219))) + (__tmp143206 + (let ((__tmp143215 + (let ((__tmp143216 |gx[1]#_g143217_|)) (declare (not safe)) - (cons 'down __tmp143286))) - (__tmp143277 - (let ((__tmp143282 - (let ((__tmp143283 - |gx[1]#_g143284_|)) + (cons 'down __tmp143216))) + (__tmp143207 + (let ((__tmp143212 + (let ((__tmp143213 + |gx[1]#_g143214_|)) (declare (not safe)) - (cons 'id __tmp143283))) - (__tmp143278 - (let ((__tmp143279 - (let ((__tmp143280 - |gx[1]#_g143281_|)) + (cons 'id __tmp143213))) + (__tmp143208 + (let ((__tmp143209 + (let ((__tmp143210 + |gx[1]#_g143211_|)) (declare (not safe)) (cons 'table - __tmp143280)))) + __tmp143210)))) (declare (not safe)) - (cons __tmp143279 '())))) + (cons __tmp143209 '())))) (declare (not safe)) - (cons __tmp143282 __tmp143278)))) + (cons __tmp143212 __tmp143208)))) (declare (not safe)) - (cons __tmp143285 __tmp143277)))) + (cons __tmp143215 __tmp143207)))) (declare (not safe)) - (cons __tmp143288 __tmp143276)))) + (cons __tmp143218 __tmp143206)))) (declare (not safe)) - (cons __tmp143291 __tmp143275)))) + (cons __tmp143221 __tmp143205)))) (declare (not safe)) (##unchecked-structure-set! - __obj142959 - __tmp143274 + __obj142889 + __tmp143204 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142959)) + __obj142889)) (define |gx[:0:]#module-context| - (let ((__obj142960 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142890 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142960 + __obj142890 'gx#module-context::t '1 gerbil/core$$#class-type-info::t @@ -4458,7 +4458,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142960 + __obj142890 'module-context '2 gerbil/core$$#class-type-info::t @@ -4466,26 +4466,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142960 + __obj142890 '(ns path import export e code) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143294 - (let ((__tmp143295 |gx[1]#_g143296_|)) + (let ((__tmp143224 + (let ((__tmp143225 |gx[1]#_g143226_|)) (declare (not safe)) - (cons __tmp143295 '())))) + (cons __tmp143225 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142960 - __tmp143294 + __obj142890 + __tmp143224 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142960 + __obj142890 '#t '5 gerbil/core$$#class-type-info::t @@ -4493,7 +4493,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142960 + __obj142890 '#f '6 gerbil/core$$#class-type-info::t @@ -4501,419 +4501,419 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142960 + __obj142890 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143297 |gx[1]#_g143298_|)) + (let ((__tmp143227 |gx[1]#_g143228_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142960 - __tmp143297 + __obj142890 + __tmp143227 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143299 |gx[1]#_g143300_|)) + (let ((__tmp143229 |gx[1]#_g143230_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142960 - __tmp143299 + __obj142890 + __tmp143229 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143301 |gx[1]#_g143302_|)) + (let ((__tmp143231 |gx[1]#_g143232_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142960 - __tmp143301 + __obj142890 + __tmp143231 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143303 - (let ((__tmp143344 - (let ((__tmp143345 |gx[1]#_g143346_|)) + (let ((__tmp143233 + (let ((__tmp143274 + (let ((__tmp143275 |gx[1]#_g143276_|)) (declare (not safe)) - (cons 'ns __tmp143345))) - (__tmp143304 - (let ((__tmp143341 - (let ((__tmp143342 |gx[1]#_g143343_|)) + (cons 'ns __tmp143275))) + (__tmp143234 + (let ((__tmp143271 + (let ((__tmp143272 |gx[1]#_g143273_|)) (declare (not safe)) - (cons 'path __tmp143342))) - (__tmp143305 - (let ((__tmp143338 - (let ((__tmp143339 |gx[1]#_g143340_|)) + (cons 'path __tmp143272))) + (__tmp143235 + (let ((__tmp143268 + (let ((__tmp143269 |gx[1]#_g143270_|)) (declare (not safe)) - (cons 'import __tmp143339))) - (__tmp143306 - (let ((__tmp143335 - (let ((__tmp143336 - |gx[1]#_g143337_|)) + (cons 'import __tmp143269))) + (__tmp143236 + (let ((__tmp143265 + (let ((__tmp143266 + |gx[1]#_g143267_|)) (declare (not safe)) - (cons 'export __tmp143336))) - (__tmp143307 - (let ((__tmp143332 - (let ((__tmp143333 - |gx[1]#_g143334_|)) + (cons 'export __tmp143266))) + (__tmp143237 + (let ((__tmp143262 + (let ((__tmp143263 + |gx[1]#_g143264_|)) (declare (not safe)) - (cons 'e __tmp143333))) - (__tmp143308 - (let ((__tmp143329 - (let ((__tmp143330 - |gx[1]#_g143331_|)) + (cons 'e __tmp143263))) + (__tmp143238 + (let ((__tmp143259 + (let ((__tmp143260 + |gx[1]#_g143261_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp143330))) - (__tmp143309 - (let ((__tmp143326 - (let ((__tmp143327 |gx[1]#_g143328_|)) + __tmp143260))) + (__tmp143239 + (let ((__tmp143256 + (let ((__tmp143257 |gx[1]#_g143258_|)) (declare (not safe)) - (cons 'super __tmp143327))) - (__tmp143310 - (let ((__tmp143323 - (let ((__tmp143324 |gx[1]#_g143325_|)) + (cons 'super __tmp143257))) + (__tmp143240 + (let ((__tmp143253 + (let ((__tmp143254 |gx[1]#_g143255_|)) (declare (not safe)) - (cons 'up __tmp143324))) - (__tmp143311 - (let ((__tmp143320 - (let ((__tmp143321 |gx[1]#_g143322_|)) + (cons 'up __tmp143254))) + (__tmp143241 + (let ((__tmp143250 + (let ((__tmp143251 |gx[1]#_g143252_|)) (declare (not safe)) - (cons 'down __tmp143321))) - (__tmp143312 - (let ((__tmp143317 - (let ((__tmp143318 - |gx[1]#_g143319_|)) + (cons 'down __tmp143251))) + (__tmp143242 + (let ((__tmp143247 + (let ((__tmp143248 + |gx[1]#_g143249_|)) (declare (not safe)) - (cons 'id __tmp143318))) - (__tmp143313 - (let ((__tmp143314 - (let ((__tmp143315 - |gx[1]#_g143316_|)) + (cons 'id __tmp143248))) + (__tmp143243 + (let ((__tmp143244 + (let ((__tmp143245 + |gx[1]#_g143246_|)) (declare (not safe)) (cons 'table - __tmp143315)))) + __tmp143245)))) (declare (not safe)) - (cons __tmp143314 '())))) + (cons __tmp143244 '())))) (declare (not safe)) - (cons __tmp143317 __tmp143313)))) + (cons __tmp143247 __tmp143243)))) (declare (not safe)) - (cons __tmp143320 __tmp143312)))) + (cons __tmp143250 __tmp143242)))) (declare (not safe)) - (cons __tmp143323 __tmp143311)))) + (cons __tmp143253 __tmp143241)))) (declare (not safe)) - (cons __tmp143326 __tmp143310)))) + (cons __tmp143256 __tmp143240)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp143329 - __tmp143309)))) + (cons __tmp143259 + __tmp143239)))) (declare (not safe)) - (cons __tmp143332 __tmp143308)))) + (cons __tmp143262 __tmp143238)))) (declare (not safe)) - (cons __tmp143335 __tmp143307)))) + (cons __tmp143265 __tmp143237)))) (declare (not safe)) - (cons __tmp143338 __tmp143306)))) + (cons __tmp143268 __tmp143236)))) (declare (not safe)) - (cons __tmp143341 __tmp143305)))) + (cons __tmp143271 __tmp143235)))) (declare (not safe)) - (cons __tmp143344 __tmp143304)))) + (cons __tmp143274 __tmp143234)))) (declare (not safe)) (##unchecked-structure-set! - __obj142960 - __tmp143303 + __obj142890 + __tmp143233 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143347 - (let ((__tmp143388 - (let ((__tmp143389 |gx[1]#_g143390_|)) + (let ((__tmp143277 + (let ((__tmp143318 + (let ((__tmp143319 |gx[1]#_g143320_|)) (declare (not safe)) - (cons 'ns __tmp143389))) - (__tmp143348 - (let ((__tmp143385 - (let ((__tmp143386 |gx[1]#_g143387_|)) + (cons 'ns __tmp143319))) + (__tmp143278 + (let ((__tmp143315 + (let ((__tmp143316 |gx[1]#_g143317_|)) (declare (not safe)) - (cons 'path __tmp143386))) - (__tmp143349 - (let ((__tmp143382 - (let ((__tmp143383 |gx[1]#_g143384_|)) + (cons 'path __tmp143316))) + (__tmp143279 + (let ((__tmp143312 + (let ((__tmp143313 |gx[1]#_g143314_|)) (declare (not safe)) - (cons 'import __tmp143383))) - (__tmp143350 - (let ((__tmp143379 - (let ((__tmp143380 - |gx[1]#_g143381_|)) + (cons 'import __tmp143313))) + (__tmp143280 + (let ((__tmp143309 + (let ((__tmp143310 + |gx[1]#_g143311_|)) (declare (not safe)) - (cons 'export __tmp143380))) - (__tmp143351 - (let ((__tmp143376 - (let ((__tmp143377 - |gx[1]#_g143378_|)) + (cons 'export __tmp143310))) + (__tmp143281 + (let ((__tmp143306 + (let ((__tmp143307 + |gx[1]#_g143308_|)) (declare (not safe)) - (cons 'e __tmp143377))) - (__tmp143352 - (let ((__tmp143373 - (let ((__tmp143374 - |gx[1]#_g143375_|)) + (cons 'e __tmp143307))) + (__tmp143282 + (let ((__tmp143303 + (let ((__tmp143304 + |gx[1]#_g143305_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp143374))) - (__tmp143353 - (let ((__tmp143370 - (let ((__tmp143371 |gx[1]#_g143372_|)) + __tmp143304))) + (__tmp143283 + (let ((__tmp143300 + (let ((__tmp143301 |gx[1]#_g143302_|)) (declare (not safe)) - (cons 'super __tmp143371))) - (__tmp143354 - (let ((__tmp143367 - (let ((__tmp143368 |gx[1]#_g143369_|)) + (cons 'super __tmp143301))) + (__tmp143284 + (let ((__tmp143297 + (let ((__tmp143298 |gx[1]#_g143299_|)) (declare (not safe)) - (cons 'up __tmp143368))) - (__tmp143355 - (let ((__tmp143364 - (let ((__tmp143365 |gx[1]#_g143366_|)) + (cons 'up __tmp143298))) + (__tmp143285 + (let ((__tmp143294 + (let ((__tmp143295 |gx[1]#_g143296_|)) (declare (not safe)) - (cons 'down __tmp143365))) - (__tmp143356 - (let ((__tmp143361 - (let ((__tmp143362 - |gx[1]#_g143363_|)) + (cons 'down __tmp143295))) + (__tmp143286 + (let ((__tmp143291 + (let ((__tmp143292 + |gx[1]#_g143293_|)) (declare (not safe)) - (cons 'id __tmp143362))) - (__tmp143357 - (let ((__tmp143358 - (let ((__tmp143359 - |gx[1]#_g143360_|)) + (cons 'id __tmp143292))) + (__tmp143287 + (let ((__tmp143288 + (let ((__tmp143289 + |gx[1]#_g143290_|)) (declare (not safe)) (cons 'table - __tmp143359)))) + __tmp143289)))) (declare (not safe)) - (cons __tmp143358 '())))) + (cons __tmp143288 '())))) (declare (not safe)) - (cons __tmp143361 __tmp143357)))) + (cons __tmp143291 __tmp143287)))) (declare (not safe)) - (cons __tmp143364 __tmp143356)))) + (cons __tmp143294 __tmp143286)))) (declare (not safe)) - (cons __tmp143367 __tmp143355)))) + (cons __tmp143297 __tmp143285)))) (declare (not safe)) - (cons __tmp143370 __tmp143354)))) + (cons __tmp143300 __tmp143284)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp143373 - __tmp143353)))) + (cons __tmp143303 + __tmp143283)))) (declare (not safe)) - (cons __tmp143376 __tmp143352)))) + (cons __tmp143306 __tmp143282)))) (declare (not safe)) - (cons __tmp143379 __tmp143351)))) + (cons __tmp143309 __tmp143281)))) (declare (not safe)) - (cons __tmp143382 __tmp143350)))) + (cons __tmp143312 __tmp143280)))) (declare (not safe)) - (cons __tmp143385 __tmp143349)))) + (cons __tmp143315 __tmp143279)))) (declare (not safe)) - (cons __tmp143388 __tmp143348)))) + (cons __tmp143318 __tmp143278)))) (declare (not safe)) (##unchecked-structure-set! - __obj142960 - __tmp143347 + __obj142890 + __tmp143277 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143391 - (let ((__tmp143432 - (let ((__tmp143433 |gx[1]#_g143434_|)) + (let ((__tmp143321 + (let ((__tmp143362 + (let ((__tmp143363 |gx[1]#_g143364_|)) (declare (not safe)) - (cons 'ns __tmp143433))) - (__tmp143392 - (let ((__tmp143429 - (let ((__tmp143430 |gx[1]#_g143431_|)) + (cons 'ns __tmp143363))) + (__tmp143322 + (let ((__tmp143359 + (let ((__tmp143360 |gx[1]#_g143361_|)) (declare (not safe)) - (cons 'path __tmp143430))) - (__tmp143393 - (let ((__tmp143426 - (let ((__tmp143427 |gx[1]#_g143428_|)) + (cons 'path __tmp143360))) + (__tmp143323 + (let ((__tmp143356 + (let ((__tmp143357 |gx[1]#_g143358_|)) (declare (not safe)) - (cons 'import __tmp143427))) - (__tmp143394 - (let ((__tmp143423 - (let ((__tmp143424 - |gx[1]#_g143425_|)) + (cons 'import __tmp143357))) + (__tmp143324 + (let ((__tmp143353 + (let ((__tmp143354 + |gx[1]#_g143355_|)) (declare (not safe)) - (cons 'export __tmp143424))) - (__tmp143395 - (let ((__tmp143420 - (let ((__tmp143421 - |gx[1]#_g143422_|)) + (cons 'export __tmp143354))) + (__tmp143325 + (let ((__tmp143350 + (let ((__tmp143351 + |gx[1]#_g143352_|)) (declare (not safe)) - (cons 'e __tmp143421))) - (__tmp143396 - (let ((__tmp143417 - (let ((__tmp143418 - |gx[1]#_g143419_|)) + (cons 'e __tmp143351))) + (__tmp143326 + (let ((__tmp143347 + (let ((__tmp143348 + |gx[1]#_g143349_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp143418))) - (__tmp143397 - (let ((__tmp143414 - (let ((__tmp143415 |gx[1]#_g143416_|)) + __tmp143348))) + (__tmp143327 + (let ((__tmp143344 + (let ((__tmp143345 |gx[1]#_g143346_|)) (declare (not safe)) - (cons 'super __tmp143415))) - (__tmp143398 - (let ((__tmp143411 - (let ((__tmp143412 |gx[1]#_g143413_|)) + (cons 'super __tmp143345))) + (__tmp143328 + (let ((__tmp143341 + (let ((__tmp143342 |gx[1]#_g143343_|)) (declare (not safe)) - (cons 'up __tmp143412))) - (__tmp143399 - (let ((__tmp143408 - (let ((__tmp143409 |gx[1]#_g143410_|)) + (cons 'up __tmp143342))) + (__tmp143329 + (let ((__tmp143338 + (let ((__tmp143339 |gx[1]#_g143340_|)) (declare (not safe)) - (cons 'down __tmp143409))) - (__tmp143400 - (let ((__tmp143405 - (let ((__tmp143406 - |gx[1]#_g143407_|)) + (cons 'down __tmp143339))) + (__tmp143330 + (let ((__tmp143335 + (let ((__tmp143336 + |gx[1]#_g143337_|)) (declare (not safe)) - (cons 'id __tmp143406))) - (__tmp143401 - (let ((__tmp143402 - (let ((__tmp143403 - |gx[1]#_g143404_|)) + (cons 'id __tmp143336))) + (__tmp143331 + (let ((__tmp143332 + (let ((__tmp143333 + |gx[1]#_g143334_|)) (declare (not safe)) (cons 'table - __tmp143403)))) + __tmp143333)))) (declare (not safe)) - (cons __tmp143402 '())))) + (cons __tmp143332 '())))) (declare (not safe)) - (cons __tmp143405 __tmp143401)))) + (cons __tmp143335 __tmp143331)))) (declare (not safe)) - (cons __tmp143408 __tmp143400)))) + (cons __tmp143338 __tmp143330)))) (declare (not safe)) - (cons __tmp143411 __tmp143399)))) + (cons __tmp143341 __tmp143329)))) (declare (not safe)) - (cons __tmp143414 __tmp143398)))) + (cons __tmp143344 __tmp143328)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp143417 - __tmp143397)))) + (cons __tmp143347 + __tmp143327)))) (declare (not safe)) - (cons __tmp143420 __tmp143396)))) + (cons __tmp143350 __tmp143326)))) (declare (not safe)) - (cons __tmp143423 __tmp143395)))) + (cons __tmp143353 __tmp143325)))) (declare (not safe)) - (cons __tmp143426 __tmp143394)))) + (cons __tmp143356 __tmp143324)))) (declare (not safe)) - (cons __tmp143429 __tmp143393)))) + (cons __tmp143359 __tmp143323)))) (declare (not safe)) - (cons __tmp143432 __tmp143392)))) + (cons __tmp143362 __tmp143322)))) (declare (not safe)) (##unchecked-structure-set! - __obj142960 - __tmp143391 + __obj142890 + __tmp143321 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143435 - (let ((__tmp143476 - (let ((__tmp143477 |gx[1]#_g143478_|)) + (let ((__tmp143365 + (let ((__tmp143406 + (let ((__tmp143407 |gx[1]#_g143408_|)) (declare (not safe)) - (cons 'ns __tmp143477))) - (__tmp143436 - (let ((__tmp143473 - (let ((__tmp143474 |gx[1]#_g143475_|)) + (cons 'ns __tmp143407))) + (__tmp143366 + (let ((__tmp143403 + (let ((__tmp143404 |gx[1]#_g143405_|)) (declare (not safe)) - (cons 'path __tmp143474))) - (__tmp143437 - (let ((__tmp143470 - (let ((__tmp143471 |gx[1]#_g143472_|)) + (cons 'path __tmp143404))) + (__tmp143367 + (let ((__tmp143400 + (let ((__tmp143401 |gx[1]#_g143402_|)) (declare (not safe)) - (cons 'import __tmp143471))) - (__tmp143438 - (let ((__tmp143467 - (let ((__tmp143468 - |gx[1]#_g143469_|)) + (cons 'import __tmp143401))) + (__tmp143368 + (let ((__tmp143397 + (let ((__tmp143398 + |gx[1]#_g143399_|)) (declare (not safe)) - (cons 'export __tmp143468))) - (__tmp143439 - (let ((__tmp143464 - (let ((__tmp143465 - |gx[1]#_g143466_|)) + (cons 'export __tmp143398))) + (__tmp143369 + (let ((__tmp143394 + (let ((__tmp143395 + |gx[1]#_g143396_|)) (declare (not safe)) - (cons 'e __tmp143465))) - (__tmp143440 - (let ((__tmp143461 - (let ((__tmp143462 - |gx[1]#_g143463_|)) + (cons 'e __tmp143395))) + (__tmp143370 + (let ((__tmp143391 + (let ((__tmp143392 + |gx[1]#_g143393_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp143462))) - (__tmp143441 - (let ((__tmp143458 - (let ((__tmp143459 |gx[1]#_g143460_|)) + __tmp143392))) + (__tmp143371 + (let ((__tmp143388 + (let ((__tmp143389 |gx[1]#_g143390_|)) (declare (not safe)) - (cons 'super __tmp143459))) - (__tmp143442 - (let ((__tmp143455 - (let ((__tmp143456 |gx[1]#_g143457_|)) + (cons 'super __tmp143389))) + (__tmp143372 + (let ((__tmp143385 + (let ((__tmp143386 |gx[1]#_g143387_|)) (declare (not safe)) - (cons 'up __tmp143456))) - (__tmp143443 - (let ((__tmp143452 - (let ((__tmp143453 |gx[1]#_g143454_|)) + (cons 'up __tmp143386))) + (__tmp143373 + (let ((__tmp143382 + (let ((__tmp143383 |gx[1]#_g143384_|)) (declare (not safe)) - (cons 'down __tmp143453))) - (__tmp143444 - (let ((__tmp143449 - (let ((__tmp143450 - |gx[1]#_g143451_|)) + (cons 'down __tmp143383))) + (__tmp143374 + (let ((__tmp143379 + (let ((__tmp143380 + |gx[1]#_g143381_|)) (declare (not safe)) - (cons 'id __tmp143450))) - (__tmp143445 - (let ((__tmp143446 - (let ((__tmp143447 - |gx[1]#_g143448_|)) + (cons 'id __tmp143380))) + (__tmp143375 + (let ((__tmp143376 + (let ((__tmp143377 + |gx[1]#_g143378_|)) (declare (not safe)) (cons 'table - __tmp143447)))) + __tmp143377)))) (declare (not safe)) - (cons __tmp143446 '())))) + (cons __tmp143376 '())))) (declare (not safe)) - (cons __tmp143449 __tmp143445)))) + (cons __tmp143379 __tmp143375)))) (declare (not safe)) - (cons __tmp143452 __tmp143444)))) + (cons __tmp143382 __tmp143374)))) (declare (not safe)) - (cons __tmp143455 __tmp143443)))) + (cons __tmp143385 __tmp143373)))) (declare (not safe)) - (cons __tmp143458 __tmp143442)))) + (cons __tmp143388 __tmp143372)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp143461 - __tmp143441)))) + (cons __tmp143391 + __tmp143371)))) (declare (not safe)) - (cons __tmp143464 __tmp143440)))) + (cons __tmp143394 __tmp143370)))) (declare (not safe)) - (cons __tmp143467 __tmp143439)))) + (cons __tmp143397 __tmp143369)))) (declare (not safe)) - (cons __tmp143470 __tmp143438)))) + (cons __tmp143400 __tmp143368)))) (declare (not safe)) - (cons __tmp143473 __tmp143437)))) + (cons __tmp143403 __tmp143367)))) (declare (not safe)) - (cons __tmp143476 __tmp143436)))) + (cons __tmp143406 __tmp143366)))) (declare (not safe)) (##unchecked-structure-set! - __obj142960 - __tmp143435 + __obj142890 + __tmp143365 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142960)) + __obj142890)) (define |gx[:0:]#prelude-context| - (let ((__obj142961 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142891 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142961 + __obj142891 'gx#prelude-context::t '1 gerbil/core$$#class-type-info::t @@ -4921,7 +4921,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142961 + __obj142891 'prelude-context '2 gerbil/core$$#class-type-info::t @@ -4929,26 +4929,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142961 + __obj142891 '(path import e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143479 - (let ((__tmp143480 |gx[1]#_g143296_|)) + (let ((__tmp143409 + (let ((__tmp143410 |gx[1]#_g143226_|)) (declare (not safe)) - (cons __tmp143480 '())))) + (cons __tmp143410 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142961 - __tmp143479 + __obj142891 + __tmp143409 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142961 + __obj142891 '#t '5 gerbil/core$$#class-type-info::t @@ -4956,7 +4956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142961 + __obj142891 '#f '6 gerbil/core$$#class-type-info::t @@ -4964,323 +4964,323 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142961 + __obj142891 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143481 |gx[1]#_g143482_|)) + (let ((__tmp143411 |gx[1]#_g143412_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142961 - __tmp143481 + __obj142891 + __tmp143411 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143483 |gx[1]#_g143484_|)) + (let ((__tmp143413 |gx[1]#_g143414_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142961 - __tmp143483 + __obj142891 + __tmp143413 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143485 |gx[1]#_g143486_|)) + (let ((__tmp143415 |gx[1]#_g143416_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142961 - __tmp143485 + __obj142891 + __tmp143415 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143487 - (let ((__tmp143516 - (let ((__tmp143517 |gx[1]#_g143518_|)) + (let ((__tmp143417 + (let ((__tmp143446 + (let ((__tmp143447 |gx[1]#_g143448_|)) (declare (not safe)) - (cons 'path __tmp143517))) - (__tmp143488 - (let ((__tmp143513 - (let ((__tmp143514 |gx[1]#_g143515_|)) + (cons 'path __tmp143447))) + (__tmp143418 + (let ((__tmp143443 + (let ((__tmp143444 |gx[1]#_g143445_|)) (declare (not safe)) - (cons 'import __tmp143514))) - (__tmp143489 - (let ((__tmp143510 - (let ((__tmp143511 |gx[1]#_g143512_|)) + (cons 'import __tmp143444))) + (__tmp143419 + (let ((__tmp143440 + (let ((__tmp143441 |gx[1]#_g143442_|)) (declare (not safe)) - (cons 'e __tmp143511))) - (__tmp143490 - (let ((__tmp143507 - (let ((__tmp143508 - |gx[1]#_g143509_|)) + (cons 'e __tmp143441))) + (__tmp143420 + (let ((__tmp143437 + (let ((__tmp143438 + |gx[1]#_g143439_|)) (declare (not safe)) - (cons 'super __tmp143508))) - (__tmp143491 - (let ((__tmp143504 - (let ((__tmp143505 - |gx[1]#_g143506_|)) + (cons 'super __tmp143438))) + (__tmp143421 + (let ((__tmp143434 + (let ((__tmp143435 + |gx[1]#_g143436_|)) (declare (not safe)) - (cons 'up __tmp143505))) - (__tmp143492 - (let ((__tmp143501 - (let ((__tmp143502 - |gx[1]#_g143503_|)) + (cons 'up __tmp143435))) + (__tmp143422 + (let ((__tmp143431 + (let ((__tmp143432 + |gx[1]#_g143433_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp143502))) - (__tmp143493 - (let ((__tmp143498 - (let ((__tmp143499 |gx[1]#_g143500_|)) + __tmp143432))) + (__tmp143423 + (let ((__tmp143428 + (let ((__tmp143429 |gx[1]#_g143430_|)) (declare (not safe)) - (cons 'id __tmp143499))) - (__tmp143494 - (let ((__tmp143495 - (let ((__tmp143496 |gx[1]#_g143497_|)) + (cons 'id __tmp143429))) + (__tmp143424 + (let ((__tmp143425 + (let ((__tmp143426 |gx[1]#_g143427_|)) (declare (not safe)) - (cons 'table __tmp143496)))) + (cons 'table __tmp143426)))) (declare (not safe)) - (cons __tmp143495 '())))) + (cons __tmp143425 '())))) (declare (not safe)) - (cons __tmp143498 __tmp143494)))) + (cons __tmp143428 __tmp143424)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp143501 - __tmp143493)))) + (cons __tmp143431 + __tmp143423)))) (declare (not safe)) - (cons __tmp143504 __tmp143492)))) + (cons __tmp143434 __tmp143422)))) (declare (not safe)) - (cons __tmp143507 __tmp143491)))) + (cons __tmp143437 __tmp143421)))) (declare (not safe)) - (cons __tmp143510 __tmp143490)))) + (cons __tmp143440 __tmp143420)))) (declare (not safe)) - (cons __tmp143513 __tmp143489)))) + (cons __tmp143443 __tmp143419)))) (declare (not safe)) - (cons __tmp143516 __tmp143488)))) + (cons __tmp143446 __tmp143418)))) (declare (not safe)) (##unchecked-structure-set! - __obj142961 - __tmp143487 + __obj142891 + __tmp143417 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143519 - (let ((__tmp143548 - (let ((__tmp143549 |gx[1]#_g143550_|)) + (let ((__tmp143449 + (let ((__tmp143478 + (let ((__tmp143479 |gx[1]#_g143480_|)) (declare (not safe)) - (cons 'path __tmp143549))) - (__tmp143520 - (let ((__tmp143545 - (let ((__tmp143546 |gx[1]#_g143547_|)) + (cons 'path __tmp143479))) + (__tmp143450 + (let ((__tmp143475 + (let ((__tmp143476 |gx[1]#_g143477_|)) (declare (not safe)) - (cons 'import __tmp143546))) - (__tmp143521 - (let ((__tmp143542 - (let ((__tmp143543 |gx[1]#_g143544_|)) + (cons 'import __tmp143476))) + (__tmp143451 + (let ((__tmp143472 + (let ((__tmp143473 |gx[1]#_g143474_|)) (declare (not safe)) - (cons 'e __tmp143543))) - (__tmp143522 - (let ((__tmp143539 - (let ((__tmp143540 - |gx[1]#_g143541_|)) + (cons 'e __tmp143473))) + (__tmp143452 + (let ((__tmp143469 + (let ((__tmp143470 + |gx[1]#_g143471_|)) (declare (not safe)) - (cons 'super __tmp143540))) - (__tmp143523 - (let ((__tmp143536 - (let ((__tmp143537 - |gx[1]#_g143538_|)) + (cons 'super __tmp143470))) + (__tmp143453 + (let ((__tmp143466 + (let ((__tmp143467 + |gx[1]#_g143468_|)) (declare (not safe)) - (cons 'up __tmp143537))) - (__tmp143524 - (let ((__tmp143533 - (let ((__tmp143534 - |gx[1]#_g143535_|)) + (cons 'up __tmp143467))) + (__tmp143454 + (let ((__tmp143463 + (let ((__tmp143464 + |gx[1]#_g143465_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp143534))) - (__tmp143525 - (let ((__tmp143530 - (let ((__tmp143531 |gx[1]#_g143532_|)) + __tmp143464))) + (__tmp143455 + (let ((__tmp143460 + (let ((__tmp143461 |gx[1]#_g143462_|)) (declare (not safe)) - (cons 'id __tmp143531))) - (__tmp143526 - (let ((__tmp143527 - (let ((__tmp143528 |gx[1]#_g143529_|)) + (cons 'id __tmp143461))) + (__tmp143456 + (let ((__tmp143457 + (let ((__tmp143458 |gx[1]#_g143459_|)) (declare (not safe)) - (cons 'table __tmp143528)))) + (cons 'table __tmp143458)))) (declare (not safe)) - (cons __tmp143527 '())))) + (cons __tmp143457 '())))) (declare (not safe)) - (cons __tmp143530 __tmp143526)))) + (cons __tmp143460 __tmp143456)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp143533 - __tmp143525)))) + (cons __tmp143463 + __tmp143455)))) (declare (not safe)) - (cons __tmp143536 __tmp143524)))) + (cons __tmp143466 __tmp143454)))) (declare (not safe)) - (cons __tmp143539 __tmp143523)))) + (cons __tmp143469 __tmp143453)))) (declare (not safe)) - (cons __tmp143542 __tmp143522)))) + (cons __tmp143472 __tmp143452)))) (declare (not safe)) - (cons __tmp143545 __tmp143521)))) + (cons __tmp143475 __tmp143451)))) (declare (not safe)) - (cons __tmp143548 __tmp143520)))) + (cons __tmp143478 __tmp143450)))) (declare (not safe)) (##unchecked-structure-set! - __obj142961 - __tmp143519 + __obj142891 + __tmp143449 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143551 - (let ((__tmp143580 - (let ((__tmp143581 |gx[1]#_g143582_|)) + (let ((__tmp143481 + (let ((__tmp143510 + (let ((__tmp143511 |gx[1]#_g143512_|)) (declare (not safe)) - (cons 'path __tmp143581))) - (__tmp143552 - (let ((__tmp143577 - (let ((__tmp143578 |gx[1]#_g143579_|)) + (cons 'path __tmp143511))) + (__tmp143482 + (let ((__tmp143507 + (let ((__tmp143508 |gx[1]#_g143509_|)) (declare (not safe)) - (cons 'import __tmp143578))) - (__tmp143553 - (let ((__tmp143574 - (let ((__tmp143575 |gx[1]#_g143576_|)) + (cons 'import __tmp143508))) + (__tmp143483 + (let ((__tmp143504 + (let ((__tmp143505 |gx[1]#_g143506_|)) (declare (not safe)) - (cons 'e __tmp143575))) - (__tmp143554 - (let ((__tmp143571 - (let ((__tmp143572 - |gx[1]#_g143573_|)) + (cons 'e __tmp143505))) + (__tmp143484 + (let ((__tmp143501 + (let ((__tmp143502 + |gx[1]#_g143503_|)) (declare (not safe)) - (cons 'super __tmp143572))) - (__tmp143555 - (let ((__tmp143568 - (let ((__tmp143569 - |gx[1]#_g143570_|)) + (cons 'super __tmp143502))) + (__tmp143485 + (let ((__tmp143498 + (let ((__tmp143499 + |gx[1]#_g143500_|)) (declare (not safe)) - (cons 'up __tmp143569))) - (__tmp143556 - (let ((__tmp143565 - (let ((__tmp143566 - |gx[1]#_g143567_|)) + (cons 'up __tmp143499))) + (__tmp143486 + (let ((__tmp143495 + (let ((__tmp143496 + |gx[1]#_g143497_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp143566))) - (__tmp143557 - (let ((__tmp143562 - (let ((__tmp143563 |gx[1]#_g143564_|)) + __tmp143496))) + (__tmp143487 + (let ((__tmp143492 + (let ((__tmp143493 |gx[1]#_g143494_|)) (declare (not safe)) - (cons 'id __tmp143563))) - (__tmp143558 - (let ((__tmp143559 - (let ((__tmp143560 |gx[1]#_g143561_|)) + (cons 'id __tmp143493))) + (__tmp143488 + (let ((__tmp143489 + (let ((__tmp143490 |gx[1]#_g143491_|)) (declare (not safe)) - (cons 'table __tmp143560)))) + (cons 'table __tmp143490)))) (declare (not safe)) - (cons __tmp143559 '())))) + (cons __tmp143489 '())))) (declare (not safe)) - (cons __tmp143562 __tmp143558)))) + (cons __tmp143492 __tmp143488)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp143565 - __tmp143557)))) + (cons __tmp143495 + __tmp143487)))) (declare (not safe)) - (cons __tmp143568 __tmp143556)))) + (cons __tmp143498 __tmp143486)))) (declare (not safe)) - (cons __tmp143571 __tmp143555)))) + (cons __tmp143501 __tmp143485)))) (declare (not safe)) - (cons __tmp143574 __tmp143554)))) + (cons __tmp143504 __tmp143484)))) (declare (not safe)) - (cons __tmp143577 __tmp143553)))) + (cons __tmp143507 __tmp143483)))) (declare (not safe)) - (cons __tmp143580 __tmp143552)))) + (cons __tmp143510 __tmp143482)))) (declare (not safe)) (##unchecked-structure-set! - __obj142961 - __tmp143551 + __obj142891 + __tmp143481 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143583 - (let ((__tmp143612 - (let ((__tmp143613 |gx[1]#_g143614_|)) + (let ((__tmp143513 + (let ((__tmp143542 + (let ((__tmp143543 |gx[1]#_g143544_|)) (declare (not safe)) - (cons 'path __tmp143613))) - (__tmp143584 - (let ((__tmp143609 - (let ((__tmp143610 |gx[1]#_g143611_|)) + (cons 'path __tmp143543))) + (__tmp143514 + (let ((__tmp143539 + (let ((__tmp143540 |gx[1]#_g143541_|)) (declare (not safe)) - (cons 'import __tmp143610))) - (__tmp143585 - (let ((__tmp143606 - (let ((__tmp143607 |gx[1]#_g143608_|)) + (cons 'import __tmp143540))) + (__tmp143515 + (let ((__tmp143536 + (let ((__tmp143537 |gx[1]#_g143538_|)) (declare (not safe)) - (cons 'e __tmp143607))) - (__tmp143586 - (let ((__tmp143603 - (let ((__tmp143604 - |gx[1]#_g143605_|)) + (cons 'e __tmp143537))) + (__tmp143516 + (let ((__tmp143533 + (let ((__tmp143534 + |gx[1]#_g143535_|)) (declare (not safe)) - (cons 'super __tmp143604))) - (__tmp143587 - (let ((__tmp143600 - (let ((__tmp143601 - |gx[1]#_g143602_|)) + (cons 'super __tmp143534))) + (__tmp143517 + (let ((__tmp143530 + (let ((__tmp143531 + |gx[1]#_g143532_|)) (declare (not safe)) - (cons 'up __tmp143601))) - (__tmp143588 - (let ((__tmp143597 - (let ((__tmp143598 - |gx[1]#_g143599_|)) + (cons 'up __tmp143531))) + (__tmp143518 + (let ((__tmp143527 + (let ((__tmp143528 + |gx[1]#_g143529_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp143598))) - (__tmp143589 - (let ((__tmp143594 - (let ((__tmp143595 |gx[1]#_g143596_|)) + __tmp143528))) + (__tmp143519 + (let ((__tmp143524 + (let ((__tmp143525 |gx[1]#_g143526_|)) (declare (not safe)) - (cons 'id __tmp143595))) - (__tmp143590 - (let ((__tmp143591 - (let ((__tmp143592 |gx[1]#_g143593_|)) + (cons 'id __tmp143525))) + (__tmp143520 + (let ((__tmp143521 + (let ((__tmp143522 |gx[1]#_g143523_|)) (declare (not safe)) - (cons 'table __tmp143592)))) + (cons 'table __tmp143522)))) (declare (not safe)) - (cons __tmp143591 '())))) + (cons __tmp143521 '())))) (declare (not safe)) - (cons __tmp143594 __tmp143590)))) + (cons __tmp143524 __tmp143520)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp143597 - __tmp143589)))) + (cons __tmp143527 + __tmp143519)))) (declare (not safe)) - (cons __tmp143600 __tmp143588)))) + (cons __tmp143530 __tmp143518)))) (declare (not safe)) - (cons __tmp143603 __tmp143587)))) + (cons __tmp143533 __tmp143517)))) (declare (not safe)) - (cons __tmp143606 __tmp143586)))) + (cons __tmp143536 __tmp143516)))) (declare (not safe)) - (cons __tmp143609 __tmp143585)))) + (cons __tmp143539 __tmp143515)))) (declare (not safe)) - (cons __tmp143612 __tmp143584)))) + (cons __tmp143542 __tmp143514)))) (declare (not safe)) (##unchecked-structure-set! - __obj142961 - __tmp143583 + __obj142891 + __tmp143513 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142961)) + __obj142891)) (define |gx[:0:]#local-context| - (let ((__obj142962 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142892 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142962 + __obj142892 'gx#local-context::t '1 gerbil/core$$#class-type-info::t @@ -5288,7 +5288,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142962 + __obj142892 'local-context '2 gerbil/core$$#class-type-info::t @@ -5296,26 +5296,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142962 + __obj142892 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143615 - (let ((__tmp143616 |gx[1]#_g143207_|)) + (let ((__tmp143545 + (let ((__tmp143546 |gx[1]#_g143137_|)) (declare (not safe)) - (cons __tmp143616 '())))) + (cons __tmp143546 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142962 - __tmp143615 + __obj142892 + __tmp143545 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142962 + __obj142892 '#t '5 gerbil/core$$#class-type-info::t @@ -5323,7 +5323,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142962 + __obj142892 '#f '6 gerbil/core$$#class-type-info::t @@ -5331,223 +5331,223 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142962 + __obj142892 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143617 |gx[1]#_g143618_|)) + (let ((__tmp143547 |gx[1]#_g143548_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142962 - __tmp143617 + __obj142892 + __tmp143547 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143619 |gx[1]#_g143620_|)) + (let ((__tmp143549 |gx[1]#_g143550_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142962 - __tmp143619 + __obj142892 + __tmp143549 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143621 |gx[1]#_g143622_|)) + (let ((__tmp143551 |gx[1]#_g143552_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142962 - __tmp143621 + __obj142892 + __tmp143551 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143623 - (let ((__tmp143640 - (let ((__tmp143641 |gx[1]#_g143642_|)) + (let ((__tmp143553 + (let ((__tmp143570 + (let ((__tmp143571 |gx[1]#_g143572_|)) (declare (not safe)) - (cons 'super __tmp143641))) - (__tmp143624 - (let ((__tmp143637 - (let ((__tmp143638 |gx[1]#_g143639_|)) + (cons 'super __tmp143571))) + (__tmp143554 + (let ((__tmp143567 + (let ((__tmp143568 |gx[1]#_g143569_|)) (declare (not safe)) - (cons 'up __tmp143638))) - (__tmp143625 - (let ((__tmp143634 - (let ((__tmp143635 |gx[1]#_g143636_|)) + (cons 'up __tmp143568))) + (__tmp143555 + (let ((__tmp143564 + (let ((__tmp143565 |gx[1]#_g143566_|)) (declare (not safe)) - (cons 'down __tmp143635))) - (__tmp143626 - (let ((__tmp143631 - (let ((__tmp143632 - |gx[1]#_g143633_|)) + (cons 'down __tmp143565))) + (__tmp143556 + (let ((__tmp143561 + (let ((__tmp143562 + |gx[1]#_g143563_|)) (declare (not safe)) - (cons 'id __tmp143632))) - (__tmp143627 - (let ((__tmp143628 - (let ((__tmp143629 - |gx[1]#_g143630_|)) + (cons 'id __tmp143562))) + (__tmp143557 + (let ((__tmp143558 + (let ((__tmp143559 + |gx[1]#_g143560_|)) (declare (not safe)) (cons 'table - __tmp143629)))) + __tmp143559)))) (declare (not safe)) - (cons __tmp143628 '())))) + (cons __tmp143558 '())))) (declare (not safe)) - (cons __tmp143631 __tmp143627)))) + (cons __tmp143561 __tmp143557)))) (declare (not safe)) - (cons __tmp143634 __tmp143626)))) + (cons __tmp143564 __tmp143556)))) (declare (not safe)) - (cons __tmp143637 __tmp143625)))) + (cons __tmp143567 __tmp143555)))) (declare (not safe)) - (cons __tmp143640 __tmp143624)))) + (cons __tmp143570 __tmp143554)))) (declare (not safe)) (##unchecked-structure-set! - __obj142962 - __tmp143623 + __obj142892 + __tmp143553 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143643 - (let ((__tmp143660 - (let ((__tmp143661 |gx[1]#_g143662_|)) + (let ((__tmp143573 + (let ((__tmp143590 + (let ((__tmp143591 |gx[1]#_g143592_|)) (declare (not safe)) - (cons 'super __tmp143661))) - (__tmp143644 - (let ((__tmp143657 - (let ((__tmp143658 |gx[1]#_g143659_|)) + (cons 'super __tmp143591))) + (__tmp143574 + (let ((__tmp143587 + (let ((__tmp143588 |gx[1]#_g143589_|)) (declare (not safe)) - (cons 'up __tmp143658))) - (__tmp143645 - (let ((__tmp143654 - (let ((__tmp143655 |gx[1]#_g143656_|)) + (cons 'up __tmp143588))) + (__tmp143575 + (let ((__tmp143584 + (let ((__tmp143585 |gx[1]#_g143586_|)) (declare (not safe)) - (cons 'down __tmp143655))) - (__tmp143646 - (let ((__tmp143651 - (let ((__tmp143652 - |gx[1]#_g143653_|)) + (cons 'down __tmp143585))) + (__tmp143576 + (let ((__tmp143581 + (let ((__tmp143582 + |gx[1]#_g143583_|)) (declare (not safe)) - (cons 'id __tmp143652))) - (__tmp143647 - (let ((__tmp143648 - (let ((__tmp143649 - |gx[1]#_g143650_|)) + (cons 'id __tmp143582))) + (__tmp143577 + (let ((__tmp143578 + (let ((__tmp143579 + |gx[1]#_g143580_|)) (declare (not safe)) (cons 'table - __tmp143649)))) + __tmp143579)))) (declare (not safe)) - (cons __tmp143648 '())))) + (cons __tmp143578 '())))) (declare (not safe)) - (cons __tmp143651 __tmp143647)))) + (cons __tmp143581 __tmp143577)))) (declare (not safe)) - (cons __tmp143654 __tmp143646)))) + (cons __tmp143584 __tmp143576)))) (declare (not safe)) - (cons __tmp143657 __tmp143645)))) + (cons __tmp143587 __tmp143575)))) (declare (not safe)) - (cons __tmp143660 __tmp143644)))) + (cons __tmp143590 __tmp143574)))) (declare (not safe)) (##unchecked-structure-set! - __obj142962 - __tmp143643 + __obj142892 + __tmp143573 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143663 - (let ((__tmp143680 - (let ((__tmp143681 |gx[1]#_g143682_|)) + (let ((__tmp143593 + (let ((__tmp143610 + (let ((__tmp143611 |gx[1]#_g143612_|)) (declare (not safe)) - (cons 'super __tmp143681))) - (__tmp143664 - (let ((__tmp143677 - (let ((__tmp143678 |gx[1]#_g143679_|)) + (cons 'super __tmp143611))) + (__tmp143594 + (let ((__tmp143607 + (let ((__tmp143608 |gx[1]#_g143609_|)) (declare (not safe)) - (cons 'up __tmp143678))) - (__tmp143665 - (let ((__tmp143674 - (let ((__tmp143675 |gx[1]#_g143676_|)) - (declare (not safe)) - (cons 'down __tmp143675))) - (__tmp143666 - (let ((__tmp143671 - (let ((__tmp143672 - |gx[1]#_g143673_|)) + (cons 'up __tmp143608))) + (__tmp143595 + (let ((__tmp143604 + (let ((__tmp143605 |gx[1]#_g143606_|)) + (declare (not safe)) + (cons 'down __tmp143605))) + (__tmp143596 + (let ((__tmp143601 + (let ((__tmp143602 + |gx[1]#_g143603_|)) (declare (not safe)) - (cons 'id __tmp143672))) - (__tmp143667 - (let ((__tmp143668 - (let ((__tmp143669 - |gx[1]#_g143670_|)) + (cons 'id __tmp143602))) + (__tmp143597 + (let ((__tmp143598 + (let ((__tmp143599 + |gx[1]#_g143600_|)) (declare (not safe)) (cons 'table - __tmp143669)))) + __tmp143599)))) (declare (not safe)) - (cons __tmp143668 '())))) + (cons __tmp143598 '())))) (declare (not safe)) - (cons __tmp143671 __tmp143667)))) + (cons __tmp143601 __tmp143597)))) (declare (not safe)) - (cons __tmp143674 __tmp143666)))) + (cons __tmp143604 __tmp143596)))) (declare (not safe)) - (cons __tmp143677 __tmp143665)))) + (cons __tmp143607 __tmp143595)))) (declare (not safe)) - (cons __tmp143680 __tmp143664)))) + (cons __tmp143610 __tmp143594)))) (declare (not safe)) (##unchecked-structure-set! - __obj142962 - __tmp143663 + __obj142892 + __tmp143593 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143683 - (let ((__tmp143700 - (let ((__tmp143701 |gx[1]#_g143702_|)) + (let ((__tmp143613 + (let ((__tmp143630 + (let ((__tmp143631 |gx[1]#_g143632_|)) (declare (not safe)) - (cons 'super __tmp143701))) - (__tmp143684 - (let ((__tmp143697 - (let ((__tmp143698 |gx[1]#_g143699_|)) + (cons 'super __tmp143631))) + (__tmp143614 + (let ((__tmp143627 + (let ((__tmp143628 |gx[1]#_g143629_|)) (declare (not safe)) - (cons 'up __tmp143698))) - (__tmp143685 - (let ((__tmp143694 - (let ((__tmp143695 |gx[1]#_g143696_|)) + (cons 'up __tmp143628))) + (__tmp143615 + (let ((__tmp143624 + (let ((__tmp143625 |gx[1]#_g143626_|)) (declare (not safe)) - (cons 'down __tmp143695))) - (__tmp143686 - (let ((__tmp143691 - (let ((__tmp143692 - |gx[1]#_g143693_|)) + (cons 'down __tmp143625))) + (__tmp143616 + (let ((__tmp143621 + (let ((__tmp143622 + |gx[1]#_g143623_|)) (declare (not safe)) - (cons 'id __tmp143692))) - (__tmp143687 - (let ((__tmp143688 - (let ((__tmp143689 - |gx[1]#_g143690_|)) + (cons 'id __tmp143622))) + (__tmp143617 + (let ((__tmp143618 + (let ((__tmp143619 + |gx[1]#_g143620_|)) (declare (not safe)) (cons 'table - __tmp143689)))) + __tmp143619)))) (declare (not safe)) - (cons __tmp143688 '())))) + (cons __tmp143618 '())))) (declare (not safe)) - (cons __tmp143691 __tmp143687)))) + (cons __tmp143621 __tmp143617)))) (declare (not safe)) - (cons __tmp143694 __tmp143686)))) + (cons __tmp143624 __tmp143616)))) (declare (not safe)) - (cons __tmp143697 __tmp143685)))) + (cons __tmp143627 __tmp143615)))) (declare (not safe)) - (cons __tmp143700 __tmp143684)))) + (cons __tmp143630 __tmp143614)))) (declare (not safe)) (##unchecked-structure-set! - __obj142962 - __tmp143683 + __obj142892 + __tmp143613 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142962)) + __obj142892)) (define |gx[:0:]#binding| - (let ((__obj142963 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142893 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142963 + __obj142893 'gx#binding::t '1 gerbil/core$$#class-type-info::t @@ -5555,7 +5555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142963 + __obj142893 'binding '2 gerbil/core$$#class-type-info::t @@ -5563,7 +5563,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142963 + __obj142893 '(id key phi) '4 gerbil/core$$#class-type-info::t @@ -5571,7 +5571,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142963 + __obj142893 '() '3 gerbil/core$$#class-type-info::t @@ -5579,7 +5579,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142963 + __obj142893 '#t '5 gerbil/core$$#class-type-info::t @@ -5587,7 +5587,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142963 + __obj142893 '#f '6 gerbil/core$$#class-type-info::t @@ -5595,155 +5595,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142963 + __obj142893 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143703 |gx[1]#_g143704_|)) + (let ((__tmp143633 |gx[1]#_g143634_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142963 - __tmp143703 + __obj142893 + __tmp143633 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143705 |gx[1]#_g143706_|)) + (let ((__tmp143635 |gx[1]#_g143636_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142963 - __tmp143705 + __obj142893 + __tmp143635 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143707 |gx[1]#_g143708_|)) + (let ((__tmp143637 |gx[1]#_g143638_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142963 - __tmp143707 + __obj142893 + __tmp143637 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143709 - (let ((__tmp143718 - (let ((__tmp143719 |gx[1]#_g143720_|)) + (let ((__tmp143639 + (let ((__tmp143648 + (let ((__tmp143649 |gx[1]#_g143650_|)) (declare (not safe)) - (cons 'id __tmp143719))) - (__tmp143710 - (let ((__tmp143715 - (let ((__tmp143716 |gx[1]#_g143717_|)) + (cons 'id __tmp143649))) + (__tmp143640 + (let ((__tmp143645 + (let ((__tmp143646 |gx[1]#_g143647_|)) (declare (not safe)) - (cons 'key __tmp143716))) - (__tmp143711 - (let ((__tmp143712 - (let ((__tmp143713 |gx[1]#_g143714_|)) + (cons 'key __tmp143646))) + (__tmp143641 + (let ((__tmp143642 + (let ((__tmp143643 |gx[1]#_g143644_|)) (declare (not safe)) - (cons 'phi __tmp143713)))) + (cons 'phi __tmp143643)))) (declare (not safe)) - (cons __tmp143712 '())))) + (cons __tmp143642 '())))) (declare (not safe)) - (cons __tmp143715 __tmp143711)))) + (cons __tmp143645 __tmp143641)))) (declare (not safe)) - (cons __tmp143718 __tmp143710)))) + (cons __tmp143648 __tmp143640)))) (declare (not safe)) (##unchecked-structure-set! - __obj142963 - __tmp143709 + __obj142893 + __tmp143639 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143721 - (let ((__tmp143730 - (let ((__tmp143731 |gx[1]#_g143732_|)) + (let ((__tmp143651 + (let ((__tmp143660 + (let ((__tmp143661 |gx[1]#_g143662_|)) (declare (not safe)) - (cons 'id __tmp143731))) - (__tmp143722 - (let ((__tmp143727 - (let ((__tmp143728 |gx[1]#_g143729_|)) + (cons 'id __tmp143661))) + (__tmp143652 + (let ((__tmp143657 + (let ((__tmp143658 |gx[1]#_g143659_|)) (declare (not safe)) - (cons 'key __tmp143728))) - (__tmp143723 - (let ((__tmp143724 - (let ((__tmp143725 |gx[1]#_g143726_|)) + (cons 'key __tmp143658))) + (__tmp143653 + (let ((__tmp143654 + (let ((__tmp143655 |gx[1]#_g143656_|)) (declare (not safe)) - (cons 'phi __tmp143725)))) + (cons 'phi __tmp143655)))) (declare (not safe)) - (cons __tmp143724 '())))) + (cons __tmp143654 '())))) (declare (not safe)) - (cons __tmp143727 __tmp143723)))) + (cons __tmp143657 __tmp143653)))) (declare (not safe)) - (cons __tmp143730 __tmp143722)))) + (cons __tmp143660 __tmp143652)))) (declare (not safe)) (##unchecked-structure-set! - __obj142963 - __tmp143721 + __obj142893 + __tmp143651 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143733 - (let ((__tmp143742 - (let ((__tmp143743 |gx[1]#_g143744_|)) + (let ((__tmp143663 + (let ((__tmp143672 + (let ((__tmp143673 |gx[1]#_g143674_|)) (declare (not safe)) - (cons 'id __tmp143743))) - (__tmp143734 - (let ((__tmp143739 - (let ((__tmp143740 |gx[1]#_g143741_|)) + (cons 'id __tmp143673))) + (__tmp143664 + (let ((__tmp143669 + (let ((__tmp143670 |gx[1]#_g143671_|)) (declare (not safe)) - (cons 'key __tmp143740))) - (__tmp143735 - (let ((__tmp143736 - (let ((__tmp143737 |gx[1]#_g143738_|)) + (cons 'key __tmp143670))) + (__tmp143665 + (let ((__tmp143666 + (let ((__tmp143667 |gx[1]#_g143668_|)) (declare (not safe)) - (cons 'phi __tmp143737)))) + (cons 'phi __tmp143667)))) (declare (not safe)) - (cons __tmp143736 '())))) + (cons __tmp143666 '())))) (declare (not safe)) - (cons __tmp143739 __tmp143735)))) + (cons __tmp143669 __tmp143665)))) (declare (not safe)) - (cons __tmp143742 __tmp143734)))) + (cons __tmp143672 __tmp143664)))) (declare (not safe)) (##unchecked-structure-set! - __obj142963 - __tmp143733 + __obj142893 + __tmp143663 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143745 - (let ((__tmp143754 - (let ((__tmp143755 |gx[1]#_g143756_|)) + (let ((__tmp143675 + (let ((__tmp143684 + (let ((__tmp143685 |gx[1]#_g143686_|)) (declare (not safe)) - (cons 'id __tmp143755))) - (__tmp143746 - (let ((__tmp143751 - (let ((__tmp143752 |gx[1]#_g143753_|)) + (cons 'id __tmp143685))) + (__tmp143676 + (let ((__tmp143681 + (let ((__tmp143682 |gx[1]#_g143683_|)) (declare (not safe)) - (cons 'key __tmp143752))) - (__tmp143747 - (let ((__tmp143748 - (let ((__tmp143749 |gx[1]#_g143750_|)) + (cons 'key __tmp143682))) + (__tmp143677 + (let ((__tmp143678 + (let ((__tmp143679 |gx[1]#_g143680_|)) (declare (not safe)) - (cons 'phi __tmp143749)))) + (cons 'phi __tmp143679)))) (declare (not safe)) - (cons __tmp143748 '())))) + (cons __tmp143678 '())))) (declare (not safe)) - (cons __tmp143751 __tmp143747)))) + (cons __tmp143681 __tmp143677)))) (declare (not safe)) - (cons __tmp143754 __tmp143746)))) + (cons __tmp143684 __tmp143676)))) (declare (not safe)) (##unchecked-structure-set! - __obj142963 - __tmp143745 + __obj142893 + __tmp143675 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142963)) + __obj142893)) (define |gx[:0:]#runtime-binding| - (let ((__obj142964 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142894 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142964 + __obj142894 'gx#runtime-binding::t '1 gerbil/core$$#class-type-info::t @@ -5751,7 +5751,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142964 + __obj142894 'runtime-binding '2 gerbil/core$$#class-type-info::t @@ -5759,26 +5759,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142964 + __obj142894 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143757 - (let ((__tmp143758 |gx[1]#_g143759_|)) + (let ((__tmp143687 + (let ((__tmp143688 |gx[1]#_g143689_|)) (declare (not safe)) - (cons __tmp143758 '())))) + (cons __tmp143688 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142964 - __tmp143757 + __obj142894 + __tmp143687 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142964 + __obj142894 '#t '5 gerbil/core$$#class-type-info::t @@ -5786,7 +5786,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142964 + __obj142894 '#f '6 gerbil/core$$#class-type-info::t @@ -5794,155 +5794,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142964 + __obj142894 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143760 |gx[1]#_g143761_|)) + (let ((__tmp143690 |gx[1]#_g143691_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142964 - __tmp143760 + __obj142894 + __tmp143690 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143762 |gx[1]#_g143763_|)) + (let ((__tmp143692 |gx[1]#_g143693_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142964 - __tmp143762 + __obj142894 + __tmp143692 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143764 |gx[1]#_g143765_|)) + (let ((__tmp143694 |gx[1]#_g143695_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142964 - __tmp143764 + __obj142894 + __tmp143694 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143766 - (let ((__tmp143775 - (let ((__tmp143776 |gx[1]#_g143777_|)) + (let ((__tmp143696 + (let ((__tmp143705 + (let ((__tmp143706 |gx[1]#_g143707_|)) (declare (not safe)) - (cons 'id __tmp143776))) - (__tmp143767 - (let ((__tmp143772 - (let ((__tmp143773 |gx[1]#_g143774_|)) + (cons 'id __tmp143706))) + (__tmp143697 + (let ((__tmp143702 + (let ((__tmp143703 |gx[1]#_g143704_|)) (declare (not safe)) - (cons 'key __tmp143773))) - (__tmp143768 - (let ((__tmp143769 - (let ((__tmp143770 |gx[1]#_g143771_|)) + (cons 'key __tmp143703))) + (__tmp143698 + (let ((__tmp143699 + (let ((__tmp143700 |gx[1]#_g143701_|)) (declare (not safe)) - (cons 'phi __tmp143770)))) + (cons 'phi __tmp143700)))) (declare (not safe)) - (cons __tmp143769 '())))) + (cons __tmp143699 '())))) (declare (not safe)) - (cons __tmp143772 __tmp143768)))) + (cons __tmp143702 __tmp143698)))) (declare (not safe)) - (cons __tmp143775 __tmp143767)))) + (cons __tmp143705 __tmp143697)))) (declare (not safe)) (##unchecked-structure-set! - __obj142964 - __tmp143766 + __obj142894 + __tmp143696 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143778 - (let ((__tmp143787 - (let ((__tmp143788 |gx[1]#_g143789_|)) + (let ((__tmp143708 + (let ((__tmp143717 + (let ((__tmp143718 |gx[1]#_g143719_|)) (declare (not safe)) - (cons 'id __tmp143788))) - (__tmp143779 - (let ((__tmp143784 - (let ((__tmp143785 |gx[1]#_g143786_|)) + (cons 'id __tmp143718))) + (__tmp143709 + (let ((__tmp143714 + (let ((__tmp143715 |gx[1]#_g143716_|)) (declare (not safe)) - (cons 'key __tmp143785))) - (__tmp143780 - (let ((__tmp143781 - (let ((__tmp143782 |gx[1]#_g143783_|)) + (cons 'key __tmp143715))) + (__tmp143710 + (let ((__tmp143711 + (let ((__tmp143712 |gx[1]#_g143713_|)) (declare (not safe)) - (cons 'phi __tmp143782)))) + (cons 'phi __tmp143712)))) (declare (not safe)) - (cons __tmp143781 '())))) + (cons __tmp143711 '())))) (declare (not safe)) - (cons __tmp143784 __tmp143780)))) + (cons __tmp143714 __tmp143710)))) (declare (not safe)) - (cons __tmp143787 __tmp143779)))) + (cons __tmp143717 __tmp143709)))) (declare (not safe)) (##unchecked-structure-set! - __obj142964 - __tmp143778 + __obj142894 + __tmp143708 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143790 - (let ((__tmp143799 - (let ((__tmp143800 |gx[1]#_g143801_|)) + (let ((__tmp143720 + (let ((__tmp143729 + (let ((__tmp143730 |gx[1]#_g143731_|)) (declare (not safe)) - (cons 'id __tmp143800))) - (__tmp143791 - (let ((__tmp143796 - (let ((__tmp143797 |gx[1]#_g143798_|)) + (cons 'id __tmp143730))) + (__tmp143721 + (let ((__tmp143726 + (let ((__tmp143727 |gx[1]#_g143728_|)) (declare (not safe)) - (cons 'key __tmp143797))) - (__tmp143792 - (let ((__tmp143793 - (let ((__tmp143794 |gx[1]#_g143795_|)) + (cons 'key __tmp143727))) + (__tmp143722 + (let ((__tmp143723 + (let ((__tmp143724 |gx[1]#_g143725_|)) (declare (not safe)) - (cons 'phi __tmp143794)))) + (cons 'phi __tmp143724)))) (declare (not safe)) - (cons __tmp143793 '())))) + (cons __tmp143723 '())))) (declare (not safe)) - (cons __tmp143796 __tmp143792)))) + (cons __tmp143726 __tmp143722)))) (declare (not safe)) - (cons __tmp143799 __tmp143791)))) + (cons __tmp143729 __tmp143721)))) (declare (not safe)) (##unchecked-structure-set! - __obj142964 - __tmp143790 + __obj142894 + __tmp143720 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143802 - (let ((__tmp143811 - (let ((__tmp143812 |gx[1]#_g143813_|)) + (let ((__tmp143732 + (let ((__tmp143741 + (let ((__tmp143742 |gx[1]#_g143743_|)) (declare (not safe)) - (cons 'id __tmp143812))) - (__tmp143803 - (let ((__tmp143808 - (let ((__tmp143809 |gx[1]#_g143810_|)) + (cons 'id __tmp143742))) + (__tmp143733 + (let ((__tmp143738 + (let ((__tmp143739 |gx[1]#_g143740_|)) (declare (not safe)) - (cons 'key __tmp143809))) - (__tmp143804 - (let ((__tmp143805 - (let ((__tmp143806 |gx[1]#_g143807_|)) + (cons 'key __tmp143739))) + (__tmp143734 + (let ((__tmp143735 + (let ((__tmp143736 |gx[1]#_g143737_|)) (declare (not safe)) - (cons 'phi __tmp143806)))) + (cons 'phi __tmp143736)))) (declare (not safe)) - (cons __tmp143805 '())))) + (cons __tmp143735 '())))) (declare (not safe)) - (cons __tmp143808 __tmp143804)))) + (cons __tmp143738 __tmp143734)))) (declare (not safe)) - (cons __tmp143811 __tmp143803)))) + (cons __tmp143741 __tmp143733)))) (declare (not safe)) (##unchecked-structure-set! - __obj142964 - __tmp143802 + __obj142894 + __tmp143732 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142964)) + __obj142894)) (define |gx[:0:]#local-binding| - (let ((__obj142965 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142895 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142965 + __obj142895 'gx#local-binding::t '1 gerbil/core$$#class-type-info::t @@ -5950,7 +5950,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142965 + __obj142895 'local-binding '2 gerbil/core$$#class-type-info::t @@ -5958,26 +5958,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142965 + __obj142895 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143814 - (let ((__tmp143815 |gx[1]#_g143816_|)) + (let ((__tmp143744 + (let ((__tmp143745 |gx[1]#_g143746_|)) (declare (not safe)) - (cons __tmp143815 '())))) + (cons __tmp143745 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142965 - __tmp143814 + __obj142895 + __tmp143744 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142965 + __obj142895 '#t '5 gerbil/core$$#class-type-info::t @@ -5985,7 +5985,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142965 + __obj142895 '#f '6 gerbil/core$$#class-type-info::t @@ -5993,155 +5993,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142965 + __obj142895 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143817 |gx[1]#_g143818_|)) + (let ((__tmp143747 |gx[1]#_g143748_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142965 - __tmp143817 + __obj142895 + __tmp143747 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143819 |gx[1]#_g143820_|)) + (let ((__tmp143749 |gx[1]#_g143750_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142965 - __tmp143819 + __obj142895 + __tmp143749 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143821 |gx[1]#_g143822_|)) + (let ((__tmp143751 |gx[1]#_g143752_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142965 - __tmp143821 + __obj142895 + __tmp143751 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143823 - (let ((__tmp143832 - (let ((__tmp143833 |gx[1]#_g143834_|)) + (let ((__tmp143753 + (let ((__tmp143762 + (let ((__tmp143763 |gx[1]#_g143764_|)) (declare (not safe)) - (cons 'id __tmp143833))) - (__tmp143824 - (let ((__tmp143829 - (let ((__tmp143830 |gx[1]#_g143831_|)) + (cons 'id __tmp143763))) + (__tmp143754 + (let ((__tmp143759 + (let ((__tmp143760 |gx[1]#_g143761_|)) (declare (not safe)) - (cons 'key __tmp143830))) - (__tmp143825 - (let ((__tmp143826 - (let ((__tmp143827 |gx[1]#_g143828_|)) + (cons 'key __tmp143760))) + (__tmp143755 + (let ((__tmp143756 + (let ((__tmp143757 |gx[1]#_g143758_|)) (declare (not safe)) - (cons 'phi __tmp143827)))) + (cons 'phi __tmp143757)))) (declare (not safe)) - (cons __tmp143826 '())))) + (cons __tmp143756 '())))) (declare (not safe)) - (cons __tmp143829 __tmp143825)))) + (cons __tmp143759 __tmp143755)))) (declare (not safe)) - (cons __tmp143832 __tmp143824)))) + (cons __tmp143762 __tmp143754)))) (declare (not safe)) (##unchecked-structure-set! - __obj142965 - __tmp143823 + __obj142895 + __tmp143753 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143835 - (let ((__tmp143844 - (let ((__tmp143845 |gx[1]#_g143846_|)) + (let ((__tmp143765 + (let ((__tmp143774 + (let ((__tmp143775 |gx[1]#_g143776_|)) (declare (not safe)) - (cons 'id __tmp143845))) - (__tmp143836 - (let ((__tmp143841 - (let ((__tmp143842 |gx[1]#_g143843_|)) + (cons 'id __tmp143775))) + (__tmp143766 + (let ((__tmp143771 + (let ((__tmp143772 |gx[1]#_g143773_|)) (declare (not safe)) - (cons 'key __tmp143842))) - (__tmp143837 - (let ((__tmp143838 - (let ((__tmp143839 |gx[1]#_g143840_|)) + (cons 'key __tmp143772))) + (__tmp143767 + (let ((__tmp143768 + (let ((__tmp143769 |gx[1]#_g143770_|)) (declare (not safe)) - (cons 'phi __tmp143839)))) + (cons 'phi __tmp143769)))) (declare (not safe)) - (cons __tmp143838 '())))) + (cons __tmp143768 '())))) (declare (not safe)) - (cons __tmp143841 __tmp143837)))) + (cons __tmp143771 __tmp143767)))) (declare (not safe)) - (cons __tmp143844 __tmp143836)))) + (cons __tmp143774 __tmp143766)))) (declare (not safe)) (##unchecked-structure-set! - __obj142965 - __tmp143835 + __obj142895 + __tmp143765 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143847 - (let ((__tmp143856 - (let ((__tmp143857 |gx[1]#_g143858_|)) + (let ((__tmp143777 + (let ((__tmp143786 + (let ((__tmp143787 |gx[1]#_g143788_|)) (declare (not safe)) - (cons 'id __tmp143857))) - (__tmp143848 - (let ((__tmp143853 - (let ((__tmp143854 |gx[1]#_g143855_|)) + (cons 'id __tmp143787))) + (__tmp143778 + (let ((__tmp143783 + (let ((__tmp143784 |gx[1]#_g143785_|)) (declare (not safe)) - (cons 'key __tmp143854))) - (__tmp143849 - (let ((__tmp143850 - (let ((__tmp143851 |gx[1]#_g143852_|)) + (cons 'key __tmp143784))) + (__tmp143779 + (let ((__tmp143780 + (let ((__tmp143781 |gx[1]#_g143782_|)) (declare (not safe)) - (cons 'phi __tmp143851)))) + (cons 'phi __tmp143781)))) (declare (not safe)) - (cons __tmp143850 '())))) + (cons __tmp143780 '())))) (declare (not safe)) - (cons __tmp143853 __tmp143849)))) + (cons __tmp143783 __tmp143779)))) (declare (not safe)) - (cons __tmp143856 __tmp143848)))) + (cons __tmp143786 __tmp143778)))) (declare (not safe)) (##unchecked-structure-set! - __obj142965 - __tmp143847 + __obj142895 + __tmp143777 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143859 - (let ((__tmp143868 - (let ((__tmp143869 |gx[1]#_g143870_|)) + (let ((__tmp143789 + (let ((__tmp143798 + (let ((__tmp143799 |gx[1]#_g143800_|)) (declare (not safe)) - (cons 'id __tmp143869))) - (__tmp143860 - (let ((__tmp143865 - (let ((__tmp143866 |gx[1]#_g143867_|)) + (cons 'id __tmp143799))) + (__tmp143790 + (let ((__tmp143795 + (let ((__tmp143796 |gx[1]#_g143797_|)) (declare (not safe)) - (cons 'key __tmp143866))) - (__tmp143861 - (let ((__tmp143862 - (let ((__tmp143863 |gx[1]#_g143864_|)) + (cons 'key __tmp143796))) + (__tmp143791 + (let ((__tmp143792 + (let ((__tmp143793 |gx[1]#_g143794_|)) (declare (not safe)) - (cons 'phi __tmp143863)))) + (cons 'phi __tmp143793)))) (declare (not safe)) - (cons __tmp143862 '())))) + (cons __tmp143792 '())))) (declare (not safe)) - (cons __tmp143865 __tmp143861)))) + (cons __tmp143795 __tmp143791)))) (declare (not safe)) - (cons __tmp143868 __tmp143860)))) + (cons __tmp143798 __tmp143790)))) (declare (not safe)) (##unchecked-structure-set! - __obj142965 - __tmp143859 + __obj142895 + __tmp143789 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142965)) + __obj142895)) (define |gx[:0:]#top-binding| - (let ((__obj142966 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142896 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142966 + __obj142896 'gx#top-binding::t '1 gerbil/core$$#class-type-info::t @@ -6149,7 +6149,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142966 + __obj142896 'top-binding '2 gerbil/core$$#class-type-info::t @@ -6157,26 +6157,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142966 + __obj142896 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143871 - (let ((__tmp143872 |gx[1]#_g143816_|)) + (let ((__tmp143801 + (let ((__tmp143802 |gx[1]#_g143746_|)) (declare (not safe)) - (cons __tmp143872 '())))) + (cons __tmp143802 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142966 - __tmp143871 + __obj142896 + __tmp143801 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142966 + __obj142896 '#t '5 gerbil/core$$#class-type-info::t @@ -6184,7 +6184,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142966 + __obj142896 '#f '6 gerbil/core$$#class-type-info::t @@ -6192,155 +6192,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142966 + __obj142896 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143873 |gx[1]#_g143874_|)) + (let ((__tmp143803 |gx[1]#_g143804_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142966 - __tmp143873 + __obj142896 + __tmp143803 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143875 |gx[1]#_g143876_|)) + (let ((__tmp143805 |gx[1]#_g143806_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142966 - __tmp143875 + __obj142896 + __tmp143805 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143877 |gx[1]#_g143878_|)) + (let ((__tmp143807 |gx[1]#_g143808_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142966 - __tmp143877 + __obj142896 + __tmp143807 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143879 - (let ((__tmp143888 - (let ((__tmp143889 |gx[1]#_g143890_|)) + (let ((__tmp143809 + (let ((__tmp143818 + (let ((__tmp143819 |gx[1]#_g143820_|)) (declare (not safe)) - (cons 'id __tmp143889))) - (__tmp143880 - (let ((__tmp143885 - (let ((__tmp143886 |gx[1]#_g143887_|)) + (cons 'id __tmp143819))) + (__tmp143810 + (let ((__tmp143815 + (let ((__tmp143816 |gx[1]#_g143817_|)) (declare (not safe)) - (cons 'key __tmp143886))) - (__tmp143881 - (let ((__tmp143882 - (let ((__tmp143883 |gx[1]#_g143884_|)) + (cons 'key __tmp143816))) + (__tmp143811 + (let ((__tmp143812 + (let ((__tmp143813 |gx[1]#_g143814_|)) (declare (not safe)) - (cons 'phi __tmp143883)))) + (cons 'phi __tmp143813)))) (declare (not safe)) - (cons __tmp143882 '())))) + (cons __tmp143812 '())))) (declare (not safe)) - (cons __tmp143885 __tmp143881)))) + (cons __tmp143815 __tmp143811)))) (declare (not safe)) - (cons __tmp143888 __tmp143880)))) + (cons __tmp143818 __tmp143810)))) (declare (not safe)) (##unchecked-structure-set! - __obj142966 - __tmp143879 + __obj142896 + __tmp143809 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143891 - (let ((__tmp143900 - (let ((__tmp143901 |gx[1]#_g143902_|)) + (let ((__tmp143821 + (let ((__tmp143830 + (let ((__tmp143831 |gx[1]#_g143832_|)) (declare (not safe)) - (cons 'id __tmp143901))) - (__tmp143892 - (let ((__tmp143897 - (let ((__tmp143898 |gx[1]#_g143899_|)) + (cons 'id __tmp143831))) + (__tmp143822 + (let ((__tmp143827 + (let ((__tmp143828 |gx[1]#_g143829_|)) (declare (not safe)) - (cons 'key __tmp143898))) - (__tmp143893 - (let ((__tmp143894 - (let ((__tmp143895 |gx[1]#_g143896_|)) + (cons 'key __tmp143828))) + (__tmp143823 + (let ((__tmp143824 + (let ((__tmp143825 |gx[1]#_g143826_|)) (declare (not safe)) - (cons 'phi __tmp143895)))) + (cons 'phi __tmp143825)))) (declare (not safe)) - (cons __tmp143894 '())))) + (cons __tmp143824 '())))) (declare (not safe)) - (cons __tmp143897 __tmp143893)))) + (cons __tmp143827 __tmp143823)))) (declare (not safe)) - (cons __tmp143900 __tmp143892)))) + (cons __tmp143830 __tmp143822)))) (declare (not safe)) (##unchecked-structure-set! - __obj142966 - __tmp143891 + __obj142896 + __tmp143821 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143903 - (let ((__tmp143912 - (let ((__tmp143913 |gx[1]#_g143914_|)) + (let ((__tmp143833 + (let ((__tmp143842 + (let ((__tmp143843 |gx[1]#_g143844_|)) (declare (not safe)) - (cons 'id __tmp143913))) - (__tmp143904 - (let ((__tmp143909 - (let ((__tmp143910 |gx[1]#_g143911_|)) + (cons 'id __tmp143843))) + (__tmp143834 + (let ((__tmp143839 + (let ((__tmp143840 |gx[1]#_g143841_|)) (declare (not safe)) - (cons 'key __tmp143910))) - (__tmp143905 - (let ((__tmp143906 - (let ((__tmp143907 |gx[1]#_g143908_|)) + (cons 'key __tmp143840))) + (__tmp143835 + (let ((__tmp143836 + (let ((__tmp143837 |gx[1]#_g143838_|)) (declare (not safe)) - (cons 'phi __tmp143907)))) + (cons 'phi __tmp143837)))) (declare (not safe)) - (cons __tmp143906 '())))) + (cons __tmp143836 '())))) (declare (not safe)) - (cons __tmp143909 __tmp143905)))) + (cons __tmp143839 __tmp143835)))) (declare (not safe)) - (cons __tmp143912 __tmp143904)))) + (cons __tmp143842 __tmp143834)))) (declare (not safe)) (##unchecked-structure-set! - __obj142966 - __tmp143903 + __obj142896 + __tmp143833 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143915 - (let ((__tmp143924 - (let ((__tmp143925 |gx[1]#_g143926_|)) + (let ((__tmp143845 + (let ((__tmp143854 + (let ((__tmp143855 |gx[1]#_g143856_|)) (declare (not safe)) - (cons 'id __tmp143925))) - (__tmp143916 - (let ((__tmp143921 - (let ((__tmp143922 |gx[1]#_g143923_|)) + (cons 'id __tmp143855))) + (__tmp143846 + (let ((__tmp143851 + (let ((__tmp143852 |gx[1]#_g143853_|)) (declare (not safe)) - (cons 'key __tmp143922))) - (__tmp143917 - (let ((__tmp143918 - (let ((__tmp143919 |gx[1]#_g143920_|)) + (cons 'key __tmp143852))) + (__tmp143847 + (let ((__tmp143848 + (let ((__tmp143849 |gx[1]#_g143850_|)) (declare (not safe)) - (cons 'phi __tmp143919)))) + (cons 'phi __tmp143849)))) (declare (not safe)) - (cons __tmp143918 '())))) + (cons __tmp143848 '())))) (declare (not safe)) - (cons __tmp143921 __tmp143917)))) + (cons __tmp143851 __tmp143847)))) (declare (not safe)) - (cons __tmp143924 __tmp143916)))) + (cons __tmp143854 __tmp143846)))) (declare (not safe)) (##unchecked-structure-set! - __obj142966 - __tmp143915 + __obj142896 + __tmp143845 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142966)) + __obj142896)) (define |gx[:0:]#module-binding| - (let ((__obj142967 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142897 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142967 + __obj142897 'gx#module-binding::t '1 gerbil/core$$#class-type-info::t @@ -6348,7 +6348,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142967 + __obj142897 'module-binding '2 gerbil/core$$#class-type-info::t @@ -6356,26 +6356,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142967 + __obj142897 '(context) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143927 - (let ((__tmp143928 |gx[1]#_g143929_|)) + (let ((__tmp143857 + (let ((__tmp143858 |gx[1]#_g143859_|)) (declare (not safe)) - (cons __tmp143928 '())))) + (cons __tmp143858 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142967 - __tmp143927 + __obj142897 + __tmp143857 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142967 + __obj142897 '#t '5 gerbil/core$$#class-type-info::t @@ -6383,7 +6383,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142967 + __obj142897 '#f '6 gerbil/core$$#class-type-info::t @@ -6391,187 +6391,187 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142967 + __obj142897 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143930 |gx[1]#_g143931_|)) + (let ((__tmp143860 |gx[1]#_g143861_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142967 - __tmp143930 + __obj142897 + __tmp143860 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143932 |gx[1]#_g143933_|)) + (let ((__tmp143862 |gx[1]#_g143863_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142967 - __tmp143932 + __obj142897 + __tmp143862 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143934 |gx[1]#_g143935_|)) + (let ((__tmp143864 |gx[1]#_g143865_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142967 - __tmp143934 + __obj142897 + __tmp143864 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143936 - (let ((__tmp143949 - (let ((__tmp143950 |gx[1]#_g143951_|)) + (let ((__tmp143866 + (let ((__tmp143879 + (let ((__tmp143880 |gx[1]#_g143881_|)) (declare (not safe)) - (cons 'context __tmp143950))) - (__tmp143937 - (let ((__tmp143946 - (let ((__tmp143947 |gx[1]#_g143948_|)) + (cons 'context __tmp143880))) + (__tmp143867 + (let ((__tmp143876 + (let ((__tmp143877 |gx[1]#_g143878_|)) (declare (not safe)) - (cons 'id __tmp143947))) - (__tmp143938 - (let ((__tmp143943 - (let ((__tmp143944 |gx[1]#_g143945_|)) + (cons 'id __tmp143877))) + (__tmp143868 + (let ((__tmp143873 + (let ((__tmp143874 |gx[1]#_g143875_|)) (declare (not safe)) - (cons 'key __tmp143944))) - (__tmp143939 - (let ((__tmp143940 - (let ((__tmp143941 - |gx[1]#_g143942_|)) + (cons 'key __tmp143874))) + (__tmp143869 + (let ((__tmp143870 + (let ((__tmp143871 + |gx[1]#_g143872_|)) (declare (not safe)) - (cons 'phi __tmp143941)))) + (cons 'phi __tmp143871)))) (declare (not safe)) - (cons __tmp143940 '())))) + (cons __tmp143870 '())))) (declare (not safe)) - (cons __tmp143943 __tmp143939)))) + (cons __tmp143873 __tmp143869)))) (declare (not safe)) - (cons __tmp143946 __tmp143938)))) + (cons __tmp143876 __tmp143868)))) (declare (not safe)) - (cons __tmp143949 __tmp143937)))) + (cons __tmp143879 __tmp143867)))) (declare (not safe)) (##unchecked-structure-set! - __obj142967 - __tmp143936 + __obj142897 + __tmp143866 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143952 - (let ((__tmp143965 - (let ((__tmp143966 |gx[1]#_g143967_|)) + (let ((__tmp143882 + (let ((__tmp143895 + (let ((__tmp143896 |gx[1]#_g143897_|)) (declare (not safe)) - (cons 'context __tmp143966))) - (__tmp143953 - (let ((__tmp143962 - (let ((__tmp143963 |gx[1]#_g143964_|)) + (cons 'context __tmp143896))) + (__tmp143883 + (let ((__tmp143892 + (let ((__tmp143893 |gx[1]#_g143894_|)) (declare (not safe)) - (cons 'id __tmp143963))) - (__tmp143954 - (let ((__tmp143959 - (let ((__tmp143960 |gx[1]#_g143961_|)) + (cons 'id __tmp143893))) + (__tmp143884 + (let ((__tmp143889 + (let ((__tmp143890 |gx[1]#_g143891_|)) (declare (not safe)) - (cons 'key __tmp143960))) - (__tmp143955 - (let ((__tmp143956 - (let ((__tmp143957 - |gx[1]#_g143958_|)) + (cons 'key __tmp143890))) + (__tmp143885 + (let ((__tmp143886 + (let ((__tmp143887 + |gx[1]#_g143888_|)) (declare (not safe)) - (cons 'phi __tmp143957)))) + (cons 'phi __tmp143887)))) (declare (not safe)) - (cons __tmp143956 '())))) + (cons __tmp143886 '())))) (declare (not safe)) - (cons __tmp143959 __tmp143955)))) + (cons __tmp143889 __tmp143885)))) (declare (not safe)) - (cons __tmp143962 __tmp143954)))) + (cons __tmp143892 __tmp143884)))) (declare (not safe)) - (cons __tmp143965 __tmp143953)))) + (cons __tmp143895 __tmp143883)))) (declare (not safe)) (##unchecked-structure-set! - __obj142967 - __tmp143952 + __obj142897 + __tmp143882 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143968 - (let ((__tmp143981 - (let ((__tmp143982 |gx[1]#_g143983_|)) + (let ((__tmp143898 + (let ((__tmp143911 + (let ((__tmp143912 |gx[1]#_g143913_|)) (declare (not safe)) - (cons 'context __tmp143982))) - (__tmp143969 - (let ((__tmp143978 - (let ((__tmp143979 |gx[1]#_g143980_|)) + (cons 'context __tmp143912))) + (__tmp143899 + (let ((__tmp143908 + (let ((__tmp143909 |gx[1]#_g143910_|)) (declare (not safe)) - (cons 'id __tmp143979))) - (__tmp143970 - (let ((__tmp143975 - (let ((__tmp143976 |gx[1]#_g143977_|)) + (cons 'id __tmp143909))) + (__tmp143900 + (let ((__tmp143905 + (let ((__tmp143906 |gx[1]#_g143907_|)) (declare (not safe)) - (cons 'key __tmp143976))) - (__tmp143971 - (let ((__tmp143972 - (let ((__tmp143973 - |gx[1]#_g143974_|)) + (cons 'key __tmp143906))) + (__tmp143901 + (let ((__tmp143902 + (let ((__tmp143903 + |gx[1]#_g143904_|)) (declare (not safe)) - (cons 'phi __tmp143973)))) + (cons 'phi __tmp143903)))) (declare (not safe)) - (cons __tmp143972 '())))) + (cons __tmp143902 '())))) (declare (not safe)) - (cons __tmp143975 __tmp143971)))) + (cons __tmp143905 __tmp143901)))) (declare (not safe)) - (cons __tmp143978 __tmp143970)))) + (cons __tmp143908 __tmp143900)))) (declare (not safe)) - (cons __tmp143981 __tmp143969)))) + (cons __tmp143911 __tmp143899)))) (declare (not safe)) (##unchecked-structure-set! - __obj142967 - __tmp143968 + __obj142897 + __tmp143898 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143984 - (let ((__tmp143997 - (let ((__tmp143998 |gx[1]#_g143999_|)) + (let ((__tmp143914 + (let ((__tmp143927 + (let ((__tmp143928 |gx[1]#_g143929_|)) (declare (not safe)) - (cons 'context __tmp143998))) - (__tmp143985 - (let ((__tmp143994 - (let ((__tmp143995 |gx[1]#_g143996_|)) + (cons 'context __tmp143928))) + (__tmp143915 + (let ((__tmp143924 + (let ((__tmp143925 |gx[1]#_g143926_|)) (declare (not safe)) - (cons 'id __tmp143995))) - (__tmp143986 - (let ((__tmp143991 - (let ((__tmp143992 |gx[1]#_g143993_|)) + (cons 'id __tmp143925))) + (__tmp143916 + (let ((__tmp143921 + (let ((__tmp143922 |gx[1]#_g143923_|)) (declare (not safe)) - (cons 'key __tmp143992))) - (__tmp143987 - (let ((__tmp143988 - (let ((__tmp143989 - |gx[1]#_g143990_|)) + (cons 'key __tmp143922))) + (__tmp143917 + (let ((__tmp143918 + (let ((__tmp143919 + |gx[1]#_g143920_|)) (declare (not safe)) - (cons 'phi __tmp143989)))) + (cons 'phi __tmp143919)))) (declare (not safe)) - (cons __tmp143988 '())))) + (cons __tmp143918 '())))) (declare (not safe)) - (cons __tmp143991 __tmp143987)))) + (cons __tmp143921 __tmp143917)))) (declare (not safe)) - (cons __tmp143994 __tmp143986)))) + (cons __tmp143924 __tmp143916)))) (declare (not safe)) - (cons __tmp143997 __tmp143985)))) + (cons __tmp143927 __tmp143915)))) (declare (not safe)) (##unchecked-structure-set! - __obj142967 - __tmp143984 + __obj142897 + __tmp143914 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142967)) + __obj142897)) (define |gx[:0:]#extern-binding| - (let ((__obj142968 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142898 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142968 + __obj142898 'gx#extern-binding::t '1 gerbil/core$$#class-type-info::t @@ -6579,7 +6579,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142968 + __obj142898 'extern-binding '2 gerbil/core$$#class-type-info::t @@ -6587,26 +6587,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142968 + __obj142898 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144000 - (let ((__tmp144001 |gx[1]#_g143929_|)) + (let ((__tmp143930 + (let ((__tmp143931 |gx[1]#_g143859_|)) (declare (not safe)) - (cons __tmp144001 '())))) + (cons __tmp143931 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142968 - __tmp144000 + __obj142898 + __tmp143930 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142968 + __obj142898 '#t '5 gerbil/core$$#class-type-info::t @@ -6614,7 +6614,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142968 + __obj142898 '#f '6 gerbil/core$$#class-type-info::t @@ -6622,155 +6622,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142968 + __obj142898 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144002 |gx[1]#_g144003_|)) + (let ((__tmp143932 |gx[1]#_g143933_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142968 - __tmp144002 + __obj142898 + __tmp143932 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144004 |gx[1]#_g144005_|)) + (let ((__tmp143934 |gx[1]#_g143935_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142968 - __tmp144004 + __obj142898 + __tmp143934 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144006 |gx[1]#_g144007_|)) + (let ((__tmp143936 |gx[1]#_g143937_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142968 - __tmp144006 + __obj142898 + __tmp143936 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144008 - (let ((__tmp144017 - (let ((__tmp144018 |gx[1]#_g144019_|)) + (let ((__tmp143938 + (let ((__tmp143947 + (let ((__tmp143948 |gx[1]#_g143949_|)) (declare (not safe)) - (cons 'id __tmp144018))) - (__tmp144009 - (let ((__tmp144014 - (let ((__tmp144015 |gx[1]#_g144016_|)) + (cons 'id __tmp143948))) + (__tmp143939 + (let ((__tmp143944 + (let ((__tmp143945 |gx[1]#_g143946_|)) (declare (not safe)) - (cons 'key __tmp144015))) - (__tmp144010 - (let ((__tmp144011 - (let ((__tmp144012 |gx[1]#_g144013_|)) + (cons 'key __tmp143945))) + (__tmp143940 + (let ((__tmp143941 + (let ((__tmp143942 |gx[1]#_g143943_|)) (declare (not safe)) - (cons 'phi __tmp144012)))) + (cons 'phi __tmp143942)))) (declare (not safe)) - (cons __tmp144011 '())))) + (cons __tmp143941 '())))) (declare (not safe)) - (cons __tmp144014 __tmp144010)))) + (cons __tmp143944 __tmp143940)))) (declare (not safe)) - (cons __tmp144017 __tmp144009)))) + (cons __tmp143947 __tmp143939)))) (declare (not safe)) (##unchecked-structure-set! - __obj142968 - __tmp144008 + __obj142898 + __tmp143938 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144020 - (let ((__tmp144029 - (let ((__tmp144030 |gx[1]#_g144031_|)) + (let ((__tmp143950 + (let ((__tmp143959 + (let ((__tmp143960 |gx[1]#_g143961_|)) (declare (not safe)) - (cons 'id __tmp144030))) - (__tmp144021 - (let ((__tmp144026 - (let ((__tmp144027 |gx[1]#_g144028_|)) + (cons 'id __tmp143960))) + (__tmp143951 + (let ((__tmp143956 + (let ((__tmp143957 |gx[1]#_g143958_|)) (declare (not safe)) - (cons 'key __tmp144027))) - (__tmp144022 - (let ((__tmp144023 - (let ((__tmp144024 |gx[1]#_g144025_|)) + (cons 'key __tmp143957))) + (__tmp143952 + (let ((__tmp143953 + (let ((__tmp143954 |gx[1]#_g143955_|)) (declare (not safe)) - (cons 'phi __tmp144024)))) + (cons 'phi __tmp143954)))) (declare (not safe)) - (cons __tmp144023 '())))) + (cons __tmp143953 '())))) (declare (not safe)) - (cons __tmp144026 __tmp144022)))) + (cons __tmp143956 __tmp143952)))) (declare (not safe)) - (cons __tmp144029 __tmp144021)))) + (cons __tmp143959 __tmp143951)))) (declare (not safe)) (##unchecked-structure-set! - __obj142968 - __tmp144020 + __obj142898 + __tmp143950 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144032 - (let ((__tmp144041 - (let ((__tmp144042 |gx[1]#_g144043_|)) + (let ((__tmp143962 + (let ((__tmp143971 + (let ((__tmp143972 |gx[1]#_g143973_|)) (declare (not safe)) - (cons 'id __tmp144042))) - (__tmp144033 - (let ((__tmp144038 - (let ((__tmp144039 |gx[1]#_g144040_|)) + (cons 'id __tmp143972))) + (__tmp143963 + (let ((__tmp143968 + (let ((__tmp143969 |gx[1]#_g143970_|)) (declare (not safe)) - (cons 'key __tmp144039))) - (__tmp144034 - (let ((__tmp144035 - (let ((__tmp144036 |gx[1]#_g144037_|)) + (cons 'key __tmp143969))) + (__tmp143964 + (let ((__tmp143965 + (let ((__tmp143966 |gx[1]#_g143967_|)) (declare (not safe)) - (cons 'phi __tmp144036)))) + (cons 'phi __tmp143966)))) (declare (not safe)) - (cons __tmp144035 '())))) + (cons __tmp143965 '())))) (declare (not safe)) - (cons __tmp144038 __tmp144034)))) + (cons __tmp143968 __tmp143964)))) (declare (not safe)) - (cons __tmp144041 __tmp144033)))) + (cons __tmp143971 __tmp143963)))) (declare (not safe)) (##unchecked-structure-set! - __obj142968 - __tmp144032 + __obj142898 + __tmp143962 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144044 - (let ((__tmp144053 - (let ((__tmp144054 |gx[1]#_g144055_|)) + (let ((__tmp143974 + (let ((__tmp143983 + (let ((__tmp143984 |gx[1]#_g143985_|)) (declare (not safe)) - (cons 'id __tmp144054))) - (__tmp144045 - (let ((__tmp144050 - (let ((__tmp144051 |gx[1]#_g144052_|)) + (cons 'id __tmp143984))) + (__tmp143975 + (let ((__tmp143980 + (let ((__tmp143981 |gx[1]#_g143982_|)) (declare (not safe)) - (cons 'key __tmp144051))) - (__tmp144046 - (let ((__tmp144047 - (let ((__tmp144048 |gx[1]#_g144049_|)) + (cons 'key __tmp143981))) + (__tmp143976 + (let ((__tmp143977 + (let ((__tmp143978 |gx[1]#_g143979_|)) (declare (not safe)) - (cons 'phi __tmp144048)))) + (cons 'phi __tmp143978)))) (declare (not safe)) - (cons __tmp144047 '())))) + (cons __tmp143977 '())))) (declare (not safe)) - (cons __tmp144050 __tmp144046)))) + (cons __tmp143980 __tmp143976)))) (declare (not safe)) - (cons __tmp144053 __tmp144045)))) + (cons __tmp143983 __tmp143975)))) (declare (not safe)) (##unchecked-structure-set! - __obj142968 - __tmp144044 + __obj142898 + __tmp143974 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142968)) + __obj142898)) (define |gx[:0:]#syntax-binding| - (let ((__obj142969 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142899 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142969 + __obj142899 'gx#syntax-binding::t '1 gerbil/core$$#class-type-info::t @@ -6778,7 +6778,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142969 + __obj142899 'syntax-binding '2 gerbil/core$$#class-type-info::t @@ -6786,26 +6786,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142969 + __obj142899 '(e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144056 - (let ((__tmp144057 |gx[1]#_g143759_|)) + (let ((__tmp143986 + (let ((__tmp143987 |gx[1]#_g143689_|)) (declare (not safe)) - (cons __tmp144057 '())))) + (cons __tmp143987 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142969 - __tmp144056 + __obj142899 + __tmp143986 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142969 + __obj142899 '#t '5 gerbil/core$$#class-type-info::t @@ -6813,7 +6813,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142969 + __obj142899 '#t '6 gerbil/core$$#class-type-info::t @@ -6821,187 +6821,187 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142969 + __obj142899 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144058 |gx[1]#_g144059_|)) + (let ((__tmp143988 |gx[1]#_g143989_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142969 - __tmp144058 + __obj142899 + __tmp143988 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144060 |gx[1]#_g144061_|)) + (let ((__tmp143990 |gx[1]#_g143991_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142969 - __tmp144060 + __obj142899 + __tmp143990 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144062 |gx[1]#_g144063_|)) + (let ((__tmp143992 |gx[1]#_g143993_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142969 - __tmp144062 + __obj142899 + __tmp143992 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144064 - (let ((__tmp144077 - (let ((__tmp144078 |gx[1]#_g144079_|)) + (let ((__tmp143994 + (let ((__tmp144007 + (let ((__tmp144008 |gx[1]#_g144009_|)) (declare (not safe)) - (cons 'e __tmp144078))) - (__tmp144065 - (let ((__tmp144074 - (let ((__tmp144075 |gx[1]#_g144076_|)) + (cons 'e __tmp144008))) + (__tmp143995 + (let ((__tmp144004 + (let ((__tmp144005 |gx[1]#_g144006_|)) (declare (not safe)) - (cons 'id __tmp144075))) - (__tmp144066 - (let ((__tmp144071 - (let ((__tmp144072 |gx[1]#_g144073_|)) + (cons 'id __tmp144005))) + (__tmp143996 + (let ((__tmp144001 + (let ((__tmp144002 |gx[1]#_g144003_|)) (declare (not safe)) - (cons 'key __tmp144072))) - (__tmp144067 - (let ((__tmp144068 - (let ((__tmp144069 - |gx[1]#_g144070_|)) + (cons 'key __tmp144002))) + (__tmp143997 + (let ((__tmp143998 + (let ((__tmp143999 + |gx[1]#_g144000_|)) (declare (not safe)) - (cons 'phi __tmp144069)))) + (cons 'phi __tmp143999)))) (declare (not safe)) - (cons __tmp144068 '())))) + (cons __tmp143998 '())))) (declare (not safe)) - (cons __tmp144071 __tmp144067)))) + (cons __tmp144001 __tmp143997)))) (declare (not safe)) - (cons __tmp144074 __tmp144066)))) + (cons __tmp144004 __tmp143996)))) (declare (not safe)) - (cons __tmp144077 __tmp144065)))) + (cons __tmp144007 __tmp143995)))) (declare (not safe)) (##unchecked-structure-set! - __obj142969 - __tmp144064 + __obj142899 + __tmp143994 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144080 - (let ((__tmp144093 - (let ((__tmp144094 |gx[1]#_g144095_|)) + (let ((__tmp144010 + (let ((__tmp144023 + (let ((__tmp144024 |gx[1]#_g144025_|)) (declare (not safe)) - (cons 'e __tmp144094))) - (__tmp144081 - (let ((__tmp144090 - (let ((__tmp144091 |gx[1]#_g144092_|)) + (cons 'e __tmp144024))) + (__tmp144011 + (let ((__tmp144020 + (let ((__tmp144021 |gx[1]#_g144022_|)) (declare (not safe)) - (cons 'id __tmp144091))) - (__tmp144082 - (let ((__tmp144087 - (let ((__tmp144088 |gx[1]#_g144089_|)) + (cons 'id __tmp144021))) + (__tmp144012 + (let ((__tmp144017 + (let ((__tmp144018 |gx[1]#_g144019_|)) (declare (not safe)) - (cons 'key __tmp144088))) - (__tmp144083 - (let ((__tmp144084 - (let ((__tmp144085 - |gx[1]#_g144086_|)) + (cons 'key __tmp144018))) + (__tmp144013 + (let ((__tmp144014 + (let ((__tmp144015 + |gx[1]#_g144016_|)) (declare (not safe)) - (cons 'phi __tmp144085)))) + (cons 'phi __tmp144015)))) (declare (not safe)) - (cons __tmp144084 '())))) + (cons __tmp144014 '())))) (declare (not safe)) - (cons __tmp144087 __tmp144083)))) + (cons __tmp144017 __tmp144013)))) (declare (not safe)) - (cons __tmp144090 __tmp144082)))) + (cons __tmp144020 __tmp144012)))) (declare (not safe)) - (cons __tmp144093 __tmp144081)))) + (cons __tmp144023 __tmp144011)))) (declare (not safe)) (##unchecked-structure-set! - __obj142969 - __tmp144080 + __obj142899 + __tmp144010 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144096 - (let ((__tmp144109 - (let ((__tmp144110 |gx[1]#_g144111_|)) + (let ((__tmp144026 + (let ((__tmp144039 + (let ((__tmp144040 |gx[1]#_g144041_|)) (declare (not safe)) - (cons 'e __tmp144110))) - (__tmp144097 - (let ((__tmp144106 - (let ((__tmp144107 |gx[1]#_g144108_|)) + (cons 'e __tmp144040))) + (__tmp144027 + (let ((__tmp144036 + (let ((__tmp144037 |gx[1]#_g144038_|)) (declare (not safe)) - (cons 'id __tmp144107))) - (__tmp144098 - (let ((__tmp144103 - (let ((__tmp144104 |gx[1]#_g144105_|)) + (cons 'id __tmp144037))) + (__tmp144028 + (let ((__tmp144033 + (let ((__tmp144034 |gx[1]#_g144035_|)) (declare (not safe)) - (cons 'key __tmp144104))) - (__tmp144099 - (let ((__tmp144100 - (let ((__tmp144101 - |gx[1]#_g144102_|)) + (cons 'key __tmp144034))) + (__tmp144029 + (let ((__tmp144030 + (let ((__tmp144031 + |gx[1]#_g144032_|)) (declare (not safe)) - (cons 'phi __tmp144101)))) + (cons 'phi __tmp144031)))) (declare (not safe)) - (cons __tmp144100 '())))) + (cons __tmp144030 '())))) (declare (not safe)) - (cons __tmp144103 __tmp144099)))) + (cons __tmp144033 __tmp144029)))) (declare (not safe)) - (cons __tmp144106 __tmp144098)))) + (cons __tmp144036 __tmp144028)))) (declare (not safe)) - (cons __tmp144109 __tmp144097)))) + (cons __tmp144039 __tmp144027)))) (declare (not safe)) (##unchecked-structure-set! - __obj142969 - __tmp144096 + __obj142899 + __tmp144026 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144112 - (let ((__tmp144125 - (let ((__tmp144126 |gx[1]#_g144127_|)) + (let ((__tmp144042 + (let ((__tmp144055 + (let ((__tmp144056 |gx[1]#_g144057_|)) (declare (not safe)) - (cons 'e __tmp144126))) - (__tmp144113 - (let ((__tmp144122 - (let ((__tmp144123 |gx[1]#_g144124_|)) + (cons 'e __tmp144056))) + (__tmp144043 + (let ((__tmp144052 + (let ((__tmp144053 |gx[1]#_g144054_|)) (declare (not safe)) - (cons 'id __tmp144123))) - (__tmp144114 - (let ((__tmp144119 - (let ((__tmp144120 |gx[1]#_g144121_|)) + (cons 'id __tmp144053))) + (__tmp144044 + (let ((__tmp144049 + (let ((__tmp144050 |gx[1]#_g144051_|)) (declare (not safe)) - (cons 'key __tmp144120))) - (__tmp144115 - (let ((__tmp144116 - (let ((__tmp144117 - |gx[1]#_g144118_|)) + (cons 'key __tmp144050))) + (__tmp144045 + (let ((__tmp144046 + (let ((__tmp144047 + |gx[1]#_g144048_|)) (declare (not safe)) - (cons 'phi __tmp144117)))) + (cons 'phi __tmp144047)))) (declare (not safe)) - (cons __tmp144116 '())))) + (cons __tmp144046 '())))) (declare (not safe)) - (cons __tmp144119 __tmp144115)))) + (cons __tmp144049 __tmp144045)))) (declare (not safe)) - (cons __tmp144122 __tmp144114)))) + (cons __tmp144052 __tmp144044)))) (declare (not safe)) - (cons __tmp144125 __tmp144113)))) + (cons __tmp144055 __tmp144043)))) (declare (not safe)) (##unchecked-structure-set! - __obj142969 - __tmp144112 + __obj142899 + __tmp144042 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142969)) + __obj142899)) (define |gx[:0:]#import-binding| - (let ((__obj142970 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142900 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142970 + __obj142900 'gx#import-binding::t '1 gerbil/core$$#class-type-info::t @@ -7009,7 +7009,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142970 + __obj142900 'import-binding '2 gerbil/core$$#class-type-info::t @@ -7017,26 +7017,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142970 + __obj142900 '(e context weak?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144128 - (let ((__tmp144129 |gx[1]#_g143759_|)) + (let ((__tmp144058 + (let ((__tmp144059 |gx[1]#_g143689_|)) (declare (not safe)) - (cons __tmp144129 '())))) + (cons __tmp144059 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142970 - __tmp144128 + __obj142900 + __tmp144058 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142970 + __obj142900 '#t '5 gerbil/core$$#class-type-info::t @@ -7044,7 +7044,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142970 + __obj142900 '#t '6 gerbil/core$$#class-type-info::t @@ -7052,263 +7052,263 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142970 + __obj142900 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144130 |gx[1]#_g144131_|)) + (let ((__tmp144060 |gx[1]#_g144061_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142970 - __tmp144130 + __obj142900 + __tmp144060 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144132 |gx[1]#_g144133_|)) + (let ((__tmp144062 |gx[1]#_g144063_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142970 - __tmp144132 + __obj142900 + __tmp144062 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144134 |gx[1]#_g144135_|)) + (let ((__tmp144064 |gx[1]#_g144065_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142970 - __tmp144134 + __obj142900 + __tmp144064 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144136 - (let ((__tmp144157 - (let ((__tmp144158 |gx[1]#_g144159_|)) + (let ((__tmp144066 + (let ((__tmp144087 + (let ((__tmp144088 |gx[1]#_g144089_|)) (declare (not safe)) - (cons 'e __tmp144158))) - (__tmp144137 - (let ((__tmp144154 - (let ((__tmp144155 |gx[1]#_g144156_|)) + (cons 'e __tmp144088))) + (__tmp144067 + (let ((__tmp144084 + (let ((__tmp144085 |gx[1]#_g144086_|)) (declare (not safe)) - (cons 'context __tmp144155))) - (__tmp144138 - (let ((__tmp144151 - (let ((__tmp144152 |gx[1]#_g144153_|)) + (cons 'context __tmp144085))) + (__tmp144068 + (let ((__tmp144081 + (let ((__tmp144082 |gx[1]#_g144083_|)) (declare (not safe)) - (cons 'weak? __tmp144152))) - (__tmp144139 - (let ((__tmp144148 - (let ((__tmp144149 - |gx[1]#_g144150_|)) + (cons 'weak? __tmp144082))) + (__tmp144069 + (let ((__tmp144078 + (let ((__tmp144079 + |gx[1]#_g144080_|)) (declare (not safe)) - (cons 'id __tmp144149))) - (__tmp144140 - (let ((__tmp144145 - (let ((__tmp144146 - |gx[1]#_g144147_|)) + (cons 'id __tmp144079))) + (__tmp144070 + (let ((__tmp144075 + (let ((__tmp144076 + |gx[1]#_g144077_|)) (declare (not safe)) - (cons 'key __tmp144146))) - (__tmp144141 - (let ((__tmp144142 - (let ((__tmp144143 - |gx[1]#_g144144_|)) + (cons 'key __tmp144076))) + (__tmp144071 + (let ((__tmp144072 + (let ((__tmp144073 + |gx[1]#_g144074_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp144143)))) + __tmp144073)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp144142 '())))) + (cons __tmp144072 '())))) (declare (not safe)) - (cons __tmp144145 __tmp144141)))) + (cons __tmp144075 __tmp144071)))) (declare (not safe)) - (cons __tmp144148 __tmp144140)))) + (cons __tmp144078 __tmp144070)))) (declare (not safe)) - (cons __tmp144151 __tmp144139)))) + (cons __tmp144081 __tmp144069)))) (declare (not safe)) - (cons __tmp144154 __tmp144138)))) + (cons __tmp144084 __tmp144068)))) (declare (not safe)) - (cons __tmp144157 __tmp144137)))) + (cons __tmp144087 __tmp144067)))) (declare (not safe)) (##unchecked-structure-set! - __obj142970 - __tmp144136 + __obj142900 + __tmp144066 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144160 - (let ((__tmp144181 - (let ((__tmp144182 |gx[1]#_g144183_|)) + (let ((__tmp144090 + (let ((__tmp144111 + (let ((__tmp144112 |gx[1]#_g144113_|)) (declare (not safe)) - (cons 'e __tmp144182))) - (__tmp144161 - (let ((__tmp144178 - (let ((__tmp144179 |gx[1]#_g144180_|)) + (cons 'e __tmp144112))) + (__tmp144091 + (let ((__tmp144108 + (let ((__tmp144109 |gx[1]#_g144110_|)) (declare (not safe)) - (cons 'context __tmp144179))) - (__tmp144162 - (let ((__tmp144175 - (let ((__tmp144176 |gx[1]#_g144177_|)) + (cons 'context __tmp144109))) + (__tmp144092 + (let ((__tmp144105 + (let ((__tmp144106 |gx[1]#_g144107_|)) (declare (not safe)) - (cons 'weak? __tmp144176))) - (__tmp144163 - (let ((__tmp144172 - (let ((__tmp144173 - |gx[1]#_g144174_|)) + (cons 'weak? __tmp144106))) + (__tmp144093 + (let ((__tmp144102 + (let ((__tmp144103 + |gx[1]#_g144104_|)) (declare (not safe)) - (cons 'id __tmp144173))) - (__tmp144164 - (let ((__tmp144169 - (let ((__tmp144170 - |gx[1]#_g144171_|)) + (cons 'id __tmp144103))) + (__tmp144094 + (let ((__tmp144099 + (let ((__tmp144100 + |gx[1]#_g144101_|)) (declare (not safe)) - (cons 'key __tmp144170))) - (__tmp144165 - (let ((__tmp144166 - (let ((__tmp144167 - |gx[1]#_g144168_|)) + (cons 'key __tmp144100))) + (__tmp144095 + (let ((__tmp144096 + (let ((__tmp144097 + |gx[1]#_g144098_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp144167)))) + __tmp144097)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp144166 '())))) + (cons __tmp144096 '())))) (declare (not safe)) - (cons __tmp144169 __tmp144165)))) + (cons __tmp144099 __tmp144095)))) (declare (not safe)) - (cons __tmp144172 __tmp144164)))) + (cons __tmp144102 __tmp144094)))) (declare (not safe)) - (cons __tmp144175 __tmp144163)))) + (cons __tmp144105 __tmp144093)))) (declare (not safe)) - (cons __tmp144178 __tmp144162)))) + (cons __tmp144108 __tmp144092)))) (declare (not safe)) - (cons __tmp144181 __tmp144161)))) + (cons __tmp144111 __tmp144091)))) (declare (not safe)) (##unchecked-structure-set! - __obj142970 - __tmp144160 + __obj142900 + __tmp144090 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144184 - (let ((__tmp144205 - (let ((__tmp144206 |gx[1]#_g144207_|)) + (let ((__tmp144114 + (let ((__tmp144135 + (let ((__tmp144136 |gx[1]#_g144137_|)) (declare (not safe)) - (cons 'e __tmp144206))) - (__tmp144185 - (let ((__tmp144202 - (let ((__tmp144203 |gx[1]#_g144204_|)) + (cons 'e __tmp144136))) + (__tmp144115 + (let ((__tmp144132 + (let ((__tmp144133 |gx[1]#_g144134_|)) (declare (not safe)) - (cons 'context __tmp144203))) - (__tmp144186 - (let ((__tmp144199 - (let ((__tmp144200 |gx[1]#_g144201_|)) + (cons 'context __tmp144133))) + (__tmp144116 + (let ((__tmp144129 + (let ((__tmp144130 |gx[1]#_g144131_|)) (declare (not safe)) - (cons 'weak? __tmp144200))) - (__tmp144187 - (let ((__tmp144196 - (let ((__tmp144197 - |gx[1]#_g144198_|)) + (cons 'weak? __tmp144130))) + (__tmp144117 + (let ((__tmp144126 + (let ((__tmp144127 + |gx[1]#_g144128_|)) (declare (not safe)) - (cons 'id __tmp144197))) - (__tmp144188 - (let ((__tmp144193 - (let ((__tmp144194 - |gx[1]#_g144195_|)) + (cons 'id __tmp144127))) + (__tmp144118 + (let ((__tmp144123 + (let ((__tmp144124 + |gx[1]#_g144125_|)) (declare (not safe)) - (cons 'key __tmp144194))) - (__tmp144189 - (let ((__tmp144190 - (let ((__tmp144191 - |gx[1]#_g144192_|)) + (cons 'key __tmp144124))) + (__tmp144119 + (let ((__tmp144120 + (let ((__tmp144121 + |gx[1]#_g144122_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp144191)))) + __tmp144121)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp144190 '())))) + (cons __tmp144120 '())))) (declare (not safe)) - (cons __tmp144193 __tmp144189)))) + (cons __tmp144123 __tmp144119)))) (declare (not safe)) - (cons __tmp144196 __tmp144188)))) + (cons __tmp144126 __tmp144118)))) (declare (not safe)) - (cons __tmp144199 __tmp144187)))) + (cons __tmp144129 __tmp144117)))) (declare (not safe)) - (cons __tmp144202 __tmp144186)))) + (cons __tmp144132 __tmp144116)))) (declare (not safe)) - (cons __tmp144205 __tmp144185)))) + (cons __tmp144135 __tmp144115)))) (declare (not safe)) (##unchecked-structure-set! - __obj142970 - __tmp144184 + __obj142900 + __tmp144114 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144208 - (let ((__tmp144229 - (let ((__tmp144230 |gx[1]#_g144231_|)) + (let ((__tmp144138 + (let ((__tmp144159 + (let ((__tmp144160 |gx[1]#_g144161_|)) (declare (not safe)) - (cons 'e __tmp144230))) - (__tmp144209 - (let ((__tmp144226 - (let ((__tmp144227 |gx[1]#_g144228_|)) + (cons 'e __tmp144160))) + (__tmp144139 + (let ((__tmp144156 + (let ((__tmp144157 |gx[1]#_g144158_|)) (declare (not safe)) - (cons 'context __tmp144227))) - (__tmp144210 - (let ((__tmp144223 - (let ((__tmp144224 |gx[1]#_g144225_|)) + (cons 'context __tmp144157))) + (__tmp144140 + (let ((__tmp144153 + (let ((__tmp144154 |gx[1]#_g144155_|)) (declare (not safe)) - (cons 'weak? __tmp144224))) - (__tmp144211 - (let ((__tmp144220 - (let ((__tmp144221 - |gx[1]#_g144222_|)) + (cons 'weak? __tmp144154))) + (__tmp144141 + (let ((__tmp144150 + (let ((__tmp144151 + |gx[1]#_g144152_|)) (declare (not safe)) - (cons 'id __tmp144221))) - (__tmp144212 - (let ((__tmp144217 - (let ((__tmp144218 - |gx[1]#_g144219_|)) + (cons 'id __tmp144151))) + (__tmp144142 + (let ((__tmp144147 + (let ((__tmp144148 + |gx[1]#_g144149_|)) (declare (not safe)) - (cons 'key __tmp144218))) - (__tmp144213 - (let ((__tmp144214 - (let ((__tmp144215 - |gx[1]#_g144216_|)) + (cons 'key __tmp144148))) + (__tmp144143 + (let ((__tmp144144 + (let ((__tmp144145 + |gx[1]#_g144146_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp144215)))) + __tmp144145)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp144214 '())))) + (cons __tmp144144 '())))) (declare (not safe)) - (cons __tmp144217 __tmp144213)))) + (cons __tmp144147 __tmp144143)))) (declare (not safe)) - (cons __tmp144220 __tmp144212)))) + (cons __tmp144150 __tmp144142)))) (declare (not safe)) - (cons __tmp144223 __tmp144211)))) + (cons __tmp144153 __tmp144141)))) (declare (not safe)) - (cons __tmp144226 __tmp144210)))) + (cons __tmp144156 __tmp144140)))) (declare (not safe)) - (cons __tmp144229 __tmp144209)))) + (cons __tmp144159 __tmp144139)))) (declare (not safe)) (##unchecked-structure-set! - __obj142970 - __tmp144208 + __obj142900 + __tmp144138 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142970)) + __obj142900)) (define |gx[:0:]#alias-binding| - (let ((__obj142971 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142901 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142971 + __obj142901 'gx#alias-binding::t '1 gerbil/core$$#class-type-info::t @@ -7316,7 +7316,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142971 + __obj142901 'alias-binding '2 gerbil/core$$#class-type-info::t @@ -7324,26 +7324,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142971 + __obj142901 '(e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144232 - (let ((__tmp144233 |gx[1]#_g143759_|)) + (let ((__tmp144162 + (let ((__tmp144163 |gx[1]#_g143689_|)) (declare (not safe)) - (cons __tmp144233 '())))) + (cons __tmp144163 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142971 - __tmp144232 + __obj142901 + __tmp144162 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142971 + __obj142901 '#t '5 gerbil/core$$#class-type-info::t @@ -7351,7 +7351,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142971 + __obj142901 '#t '6 gerbil/core$$#class-type-info::t @@ -7359,187 +7359,187 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142971 + __obj142901 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144234 |gx[1]#_g144235_|)) + (let ((__tmp144164 |gx[1]#_g144165_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142971 - __tmp144234 + __obj142901 + __tmp144164 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144236 |gx[1]#_g144237_|)) + (let ((__tmp144166 |gx[1]#_g144167_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142971 - __tmp144236 + __obj142901 + __tmp144166 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144238 |gx[1]#_g144239_|)) + (let ((__tmp144168 |gx[1]#_g144169_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142971 - __tmp144238 + __obj142901 + __tmp144168 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144240 - (let ((__tmp144253 - (let ((__tmp144254 |gx[1]#_g144255_|)) + (let ((__tmp144170 + (let ((__tmp144183 + (let ((__tmp144184 |gx[1]#_g144185_|)) (declare (not safe)) - (cons 'e __tmp144254))) - (__tmp144241 - (let ((__tmp144250 - (let ((__tmp144251 |gx[1]#_g144252_|)) - (declare (not safe)) - (cons 'id __tmp144251))) - (__tmp144242 - (let ((__tmp144247 - (let ((__tmp144248 |gx[1]#_g144249_|)) - (declare (not safe)) - (cons 'key __tmp144248))) - (__tmp144243 - (let ((__tmp144244 - (let ((__tmp144245 - |gx[1]#_g144246_|)) + (cons 'e __tmp144184))) + (__tmp144171 + (let ((__tmp144180 + (let ((__tmp144181 |gx[1]#_g144182_|)) + (declare (not safe)) + (cons 'id __tmp144181))) + (__tmp144172 + (let ((__tmp144177 + (let ((__tmp144178 |gx[1]#_g144179_|)) + (declare (not safe)) + (cons 'key __tmp144178))) + (__tmp144173 + (let ((__tmp144174 + (let ((__tmp144175 + |gx[1]#_g144176_|)) (declare (not safe)) - (cons 'phi __tmp144245)))) + (cons 'phi __tmp144175)))) (declare (not safe)) - (cons __tmp144244 '())))) + (cons __tmp144174 '())))) (declare (not safe)) - (cons __tmp144247 __tmp144243)))) + (cons __tmp144177 __tmp144173)))) (declare (not safe)) - (cons __tmp144250 __tmp144242)))) + (cons __tmp144180 __tmp144172)))) (declare (not safe)) - (cons __tmp144253 __tmp144241)))) + (cons __tmp144183 __tmp144171)))) (declare (not safe)) (##unchecked-structure-set! - __obj142971 - __tmp144240 + __obj142901 + __tmp144170 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144256 - (let ((__tmp144269 - (let ((__tmp144270 |gx[1]#_g144271_|)) - (declare (not safe)) - (cons 'e __tmp144270))) - (__tmp144257 - (let ((__tmp144266 - (let ((__tmp144267 |gx[1]#_g144268_|)) - (declare (not safe)) - (cons 'id __tmp144267))) - (__tmp144258 - (let ((__tmp144263 - (let ((__tmp144264 |gx[1]#_g144265_|)) - (declare (not safe)) - (cons 'key __tmp144264))) - (__tmp144259 - (let ((__tmp144260 - (let ((__tmp144261 - |gx[1]#_g144262_|)) + (let ((__tmp144186 + (let ((__tmp144199 + (let ((__tmp144200 |gx[1]#_g144201_|)) + (declare (not safe)) + (cons 'e __tmp144200))) + (__tmp144187 + (let ((__tmp144196 + (let ((__tmp144197 |gx[1]#_g144198_|)) + (declare (not safe)) + (cons 'id __tmp144197))) + (__tmp144188 + (let ((__tmp144193 + (let ((__tmp144194 |gx[1]#_g144195_|)) + (declare (not safe)) + (cons 'key __tmp144194))) + (__tmp144189 + (let ((__tmp144190 + (let ((__tmp144191 + |gx[1]#_g144192_|)) (declare (not safe)) - (cons 'phi __tmp144261)))) + (cons 'phi __tmp144191)))) (declare (not safe)) - (cons __tmp144260 '())))) + (cons __tmp144190 '())))) (declare (not safe)) - (cons __tmp144263 __tmp144259)))) + (cons __tmp144193 __tmp144189)))) (declare (not safe)) - (cons __tmp144266 __tmp144258)))) + (cons __tmp144196 __tmp144188)))) (declare (not safe)) - (cons __tmp144269 __tmp144257)))) + (cons __tmp144199 __tmp144187)))) (declare (not safe)) (##unchecked-structure-set! - __obj142971 - __tmp144256 + __obj142901 + __tmp144186 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144272 - (let ((__tmp144285 - (let ((__tmp144286 |gx[1]#_g144287_|)) + (let ((__tmp144202 + (let ((__tmp144215 + (let ((__tmp144216 |gx[1]#_g144217_|)) (declare (not safe)) - (cons 'e __tmp144286))) - (__tmp144273 - (let ((__tmp144282 - (let ((__tmp144283 |gx[1]#_g144284_|)) + (cons 'e __tmp144216))) + (__tmp144203 + (let ((__tmp144212 + (let ((__tmp144213 |gx[1]#_g144214_|)) (declare (not safe)) - (cons 'id __tmp144283))) - (__tmp144274 - (let ((__tmp144279 - (let ((__tmp144280 |gx[1]#_g144281_|)) + (cons 'id __tmp144213))) + (__tmp144204 + (let ((__tmp144209 + (let ((__tmp144210 |gx[1]#_g144211_|)) (declare (not safe)) - (cons 'key __tmp144280))) - (__tmp144275 - (let ((__tmp144276 - (let ((__tmp144277 - |gx[1]#_g144278_|)) + (cons 'key __tmp144210))) + (__tmp144205 + (let ((__tmp144206 + (let ((__tmp144207 + |gx[1]#_g144208_|)) (declare (not safe)) - (cons 'phi __tmp144277)))) + (cons 'phi __tmp144207)))) (declare (not safe)) - (cons __tmp144276 '())))) + (cons __tmp144206 '())))) (declare (not safe)) - (cons __tmp144279 __tmp144275)))) + (cons __tmp144209 __tmp144205)))) (declare (not safe)) - (cons __tmp144282 __tmp144274)))) + (cons __tmp144212 __tmp144204)))) (declare (not safe)) - (cons __tmp144285 __tmp144273)))) + (cons __tmp144215 __tmp144203)))) (declare (not safe)) (##unchecked-structure-set! - __obj142971 - __tmp144272 + __obj142901 + __tmp144202 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144288 - (let ((__tmp144301 - (let ((__tmp144302 |gx[1]#_g144303_|)) + (let ((__tmp144218 + (let ((__tmp144231 + (let ((__tmp144232 |gx[1]#_g144233_|)) (declare (not safe)) - (cons 'e __tmp144302))) - (__tmp144289 - (let ((__tmp144298 - (let ((__tmp144299 |gx[1]#_g144300_|)) + (cons 'e __tmp144232))) + (__tmp144219 + (let ((__tmp144228 + (let ((__tmp144229 |gx[1]#_g144230_|)) (declare (not safe)) - (cons 'id __tmp144299))) - (__tmp144290 - (let ((__tmp144295 - (let ((__tmp144296 |gx[1]#_g144297_|)) + (cons 'id __tmp144229))) + (__tmp144220 + (let ((__tmp144225 + (let ((__tmp144226 |gx[1]#_g144227_|)) (declare (not safe)) - (cons 'key __tmp144296))) - (__tmp144291 - (let ((__tmp144292 - (let ((__tmp144293 - |gx[1]#_g144294_|)) + (cons 'key __tmp144226))) + (__tmp144221 + (let ((__tmp144222 + (let ((__tmp144223 + |gx[1]#_g144224_|)) (declare (not safe)) - (cons 'phi __tmp144293)))) + (cons 'phi __tmp144223)))) (declare (not safe)) - (cons __tmp144292 '())))) + (cons __tmp144222 '())))) (declare (not safe)) - (cons __tmp144295 __tmp144291)))) + (cons __tmp144225 __tmp144221)))) (declare (not safe)) - (cons __tmp144298 __tmp144290)))) + (cons __tmp144228 __tmp144220)))) (declare (not safe)) - (cons __tmp144301 __tmp144289)))) + (cons __tmp144231 __tmp144219)))) (declare (not safe)) (##unchecked-structure-set! - __obj142971 - __tmp144288 + __obj142901 + __tmp144218 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142971)) + __obj142901)) (define |gx[:0:]#expander| - (let ((__obj142972 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142902 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142972 + __obj142902 'gx#expander::t '1 gerbil/core$$#class-type-info::t @@ -7547,7 +7547,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142972 + __obj142902 'expander '2 gerbil/core$$#class-type-info::t @@ -7555,7 +7555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142972 + __obj142902 '(e) '4 gerbil/core$$#class-type-info::t @@ -7563,7 +7563,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142972 + __obj142902 '() '3 gerbil/core$$#class-type-info::t @@ -7571,7 +7571,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142972 + __obj142902 '#t '5 gerbil/core$$#class-type-info::t @@ -7579,7 +7579,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142972 + __obj142902 '#f '6 gerbil/core$$#class-type-info::t @@ -7587,99 +7587,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142972 + __obj142902 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144304 |gx[1]#_g144305_|)) + (let ((__tmp144234 |gx[1]#_g144235_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142972 - __tmp144304 + __obj142902 + __tmp144234 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144306 |gx[1]#_g144307_|)) + (let ((__tmp144236 |gx[1]#_g144237_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142972 - __tmp144306 + __obj142902 + __tmp144236 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144308 |gx[1]#_g144309_|)) + (let ((__tmp144238 |gx[1]#_g144239_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142972 - __tmp144308 + __obj142902 + __tmp144238 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144310 - (let ((__tmp144311 - (let ((__tmp144312 |gx[1]#_g144313_|)) + (let ((__tmp144240 + (let ((__tmp144241 + (let ((__tmp144242 |gx[1]#_g144243_|)) (declare (not safe)) - (cons 'e __tmp144312)))) + (cons 'e __tmp144242)))) (declare (not safe)) - (cons __tmp144311 '())))) + (cons __tmp144241 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142972 - __tmp144310 + __obj142902 + __tmp144240 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144314 - (let ((__tmp144315 - (let ((__tmp144316 |gx[1]#_g144317_|)) + (let ((__tmp144244 + (let ((__tmp144245 + (let ((__tmp144246 |gx[1]#_g144247_|)) (declare (not safe)) - (cons 'e __tmp144316)))) + (cons 'e __tmp144246)))) (declare (not safe)) - (cons __tmp144315 '())))) + (cons __tmp144245 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142972 - __tmp144314 + __obj142902 + __tmp144244 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144318 - (let ((__tmp144319 - (let ((__tmp144320 |gx[1]#_g144321_|)) + (let ((__tmp144248 + (let ((__tmp144249 + (let ((__tmp144250 |gx[1]#_g144251_|)) (declare (not safe)) - (cons 'e __tmp144320)))) + (cons 'e __tmp144250)))) (declare (not safe)) - (cons __tmp144319 '())))) + (cons __tmp144249 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142972 - __tmp144318 + __obj142902 + __tmp144248 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144322 - (let ((__tmp144323 - (let ((__tmp144324 |gx[1]#_g144325_|)) + (let ((__tmp144252 + (let ((__tmp144253 + (let ((__tmp144254 |gx[1]#_g144255_|)) (declare (not safe)) - (cons 'e __tmp144324)))) + (cons 'e __tmp144254)))) (declare (not safe)) - (cons __tmp144323 '())))) + (cons __tmp144253 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142972 - __tmp144322 + __obj142902 + __tmp144252 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142972)) + __obj142902)) (define |gx[:0:]#core-expander| - (let ((__obj142973 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142903 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142973 + __obj142903 'gx#core-expander::t '1 gerbil/core$$#class-type-info::t @@ -7687,7 +7687,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142973 + __obj142903 'core-expander '2 gerbil/core$$#class-type-info::t @@ -7695,26 +7695,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142973 + __obj142903 '(id compile-top) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144326 - (let ((__tmp144327 |gx[1]#_g144328_|)) + (let ((__tmp144256 + (let ((__tmp144257 |gx[1]#_g144258_|)) (declare (not safe)) - (cons __tmp144327 '())))) + (cons __tmp144257 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142973 - __tmp144326 + __obj142903 + __tmp144256 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142973 + __obj142903 '#t '5 gerbil/core$$#class-type-info::t @@ -7722,7 +7722,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142973 + __obj142903 '#f '6 gerbil/core$$#class-type-info::t @@ -7730,155 +7730,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142973 + __obj142903 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144329 |gx[1]#_g144330_|)) + (let ((__tmp144259 |gx[1]#_g144260_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142973 - __tmp144329 + __obj142903 + __tmp144259 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144331 |gx[1]#_g144332_|)) + (let ((__tmp144261 |gx[1]#_g144262_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142973 - __tmp144331 + __obj142903 + __tmp144261 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144333 |gx[1]#_g144334_|)) + (let ((__tmp144263 |gx[1]#_g144264_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142973 - __tmp144333 + __obj142903 + __tmp144263 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144335 - (let ((__tmp144344 - (let ((__tmp144345 |gx[1]#_g144346_|)) + (let ((__tmp144265 + (let ((__tmp144274 + (let ((__tmp144275 |gx[1]#_g144276_|)) (declare (not safe)) - (cons 'id __tmp144345))) - (__tmp144336 - (let ((__tmp144341 - (let ((__tmp144342 |gx[1]#_g144343_|)) + (cons 'id __tmp144275))) + (__tmp144266 + (let ((__tmp144271 + (let ((__tmp144272 |gx[1]#_g144273_|)) (declare (not safe)) - (cons 'compile-top __tmp144342))) - (__tmp144337 - (let ((__tmp144338 - (let ((__tmp144339 |gx[1]#_g144340_|)) + (cons 'compile-top __tmp144272))) + (__tmp144267 + (let ((__tmp144268 + (let ((__tmp144269 |gx[1]#_g144270_|)) (declare (not safe)) - (cons 'e __tmp144339)))) + (cons 'e __tmp144269)))) (declare (not safe)) - (cons __tmp144338 '())))) + (cons __tmp144268 '())))) (declare (not safe)) - (cons __tmp144341 __tmp144337)))) + (cons __tmp144271 __tmp144267)))) (declare (not safe)) - (cons __tmp144344 __tmp144336)))) + (cons __tmp144274 __tmp144266)))) (declare (not safe)) (##unchecked-structure-set! - __obj142973 - __tmp144335 + __obj142903 + __tmp144265 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144347 - (let ((__tmp144356 - (let ((__tmp144357 |gx[1]#_g144358_|)) + (let ((__tmp144277 + (let ((__tmp144286 + (let ((__tmp144287 |gx[1]#_g144288_|)) (declare (not safe)) - (cons 'id __tmp144357))) - (__tmp144348 - (let ((__tmp144353 - (let ((__tmp144354 |gx[1]#_g144355_|)) + (cons 'id __tmp144287))) + (__tmp144278 + (let ((__tmp144283 + (let ((__tmp144284 |gx[1]#_g144285_|)) (declare (not safe)) - (cons 'compile-top __tmp144354))) - (__tmp144349 - (let ((__tmp144350 - (let ((__tmp144351 |gx[1]#_g144352_|)) + (cons 'compile-top __tmp144284))) + (__tmp144279 + (let ((__tmp144280 + (let ((__tmp144281 |gx[1]#_g144282_|)) (declare (not safe)) - (cons 'e __tmp144351)))) + (cons 'e __tmp144281)))) (declare (not safe)) - (cons __tmp144350 '())))) + (cons __tmp144280 '())))) (declare (not safe)) - (cons __tmp144353 __tmp144349)))) + (cons __tmp144283 __tmp144279)))) (declare (not safe)) - (cons __tmp144356 __tmp144348)))) + (cons __tmp144286 __tmp144278)))) (declare (not safe)) (##unchecked-structure-set! - __obj142973 - __tmp144347 + __obj142903 + __tmp144277 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144359 - (let ((__tmp144368 - (let ((__tmp144369 |gx[1]#_g144370_|)) + (let ((__tmp144289 + (let ((__tmp144298 + (let ((__tmp144299 |gx[1]#_g144300_|)) (declare (not safe)) - (cons 'id __tmp144369))) - (__tmp144360 - (let ((__tmp144365 - (let ((__tmp144366 |gx[1]#_g144367_|)) + (cons 'id __tmp144299))) + (__tmp144290 + (let ((__tmp144295 + (let ((__tmp144296 |gx[1]#_g144297_|)) (declare (not safe)) - (cons 'compile-top __tmp144366))) - (__tmp144361 - (let ((__tmp144362 - (let ((__tmp144363 |gx[1]#_g144364_|)) + (cons 'compile-top __tmp144296))) + (__tmp144291 + (let ((__tmp144292 + (let ((__tmp144293 |gx[1]#_g144294_|)) (declare (not safe)) - (cons 'e __tmp144363)))) + (cons 'e __tmp144293)))) (declare (not safe)) - (cons __tmp144362 '())))) + (cons __tmp144292 '())))) (declare (not safe)) - (cons __tmp144365 __tmp144361)))) + (cons __tmp144295 __tmp144291)))) (declare (not safe)) - (cons __tmp144368 __tmp144360)))) + (cons __tmp144298 __tmp144290)))) (declare (not safe)) (##unchecked-structure-set! - __obj142973 - __tmp144359 + __obj142903 + __tmp144289 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144371 - (let ((__tmp144380 - (let ((__tmp144381 |gx[1]#_g144382_|)) + (let ((__tmp144301 + (let ((__tmp144310 + (let ((__tmp144311 |gx[1]#_g144312_|)) (declare (not safe)) - (cons 'id __tmp144381))) - (__tmp144372 - (let ((__tmp144377 - (let ((__tmp144378 |gx[1]#_g144379_|)) + (cons 'id __tmp144311))) + (__tmp144302 + (let ((__tmp144307 + (let ((__tmp144308 |gx[1]#_g144309_|)) (declare (not safe)) - (cons 'compile-top __tmp144378))) - (__tmp144373 - (let ((__tmp144374 - (let ((__tmp144375 |gx[1]#_g144376_|)) + (cons 'compile-top __tmp144308))) + (__tmp144303 + (let ((__tmp144304 + (let ((__tmp144305 |gx[1]#_g144306_|)) (declare (not safe)) - (cons 'e __tmp144375)))) + (cons 'e __tmp144305)))) (declare (not safe)) - (cons __tmp144374 '())))) + (cons __tmp144304 '())))) (declare (not safe)) - (cons __tmp144377 __tmp144373)))) + (cons __tmp144307 __tmp144303)))) (declare (not safe)) - (cons __tmp144380 __tmp144372)))) + (cons __tmp144310 __tmp144302)))) (declare (not safe)) (##unchecked-structure-set! - __obj142973 - __tmp144371 + __obj142903 + __tmp144301 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142973)) + __obj142903)) (define |gx[:0:]#expression-form| - (let ((__obj142974 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142904 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142974 + __obj142904 'gx#expression-form::t '1 gerbil/core$$#class-type-info::t @@ -7886,7 +7886,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142974 + __obj142904 'expression-form '2 gerbil/core$$#class-type-info::t @@ -7894,26 +7894,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142974 + __obj142904 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144383 - (let ((__tmp144384 |gx[1]#_g144385_|)) + (let ((__tmp144313 + (let ((__tmp144314 |gx[1]#_g144315_|)) (declare (not safe)) - (cons __tmp144384 '())))) + (cons __tmp144314 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142974 - __tmp144383 + __obj142904 + __tmp144313 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142974 + __obj142904 '#t '5 gerbil/core$$#class-type-info::t @@ -7921,7 +7921,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142974 + __obj142904 '#f '6 gerbil/core$$#class-type-info::t @@ -7929,155 +7929,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142974 + __obj142904 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144386 |gx[1]#_g144387_|)) + (let ((__tmp144316 |gx[1]#_g144317_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142974 - __tmp144386 + __obj142904 + __tmp144316 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144388 |gx[1]#_g144389_|)) + (let ((__tmp144318 |gx[1]#_g144319_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142974 - __tmp144388 + __obj142904 + __tmp144318 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144390 |gx[1]#_g144391_|)) + (let ((__tmp144320 |gx[1]#_g144321_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142974 - __tmp144390 + __obj142904 + __tmp144320 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144392 - (let ((__tmp144401 - (let ((__tmp144402 |gx[1]#_g144403_|)) + (let ((__tmp144322 + (let ((__tmp144331 + (let ((__tmp144332 |gx[1]#_g144333_|)) (declare (not safe)) - (cons 'id __tmp144402))) - (__tmp144393 - (let ((__tmp144398 - (let ((__tmp144399 |gx[1]#_g144400_|)) + (cons 'id __tmp144332))) + (__tmp144323 + (let ((__tmp144328 + (let ((__tmp144329 |gx[1]#_g144330_|)) (declare (not safe)) - (cons 'compile-top __tmp144399))) - (__tmp144394 - (let ((__tmp144395 - (let ((__tmp144396 |gx[1]#_g144397_|)) + (cons 'compile-top __tmp144329))) + (__tmp144324 + (let ((__tmp144325 + (let ((__tmp144326 |gx[1]#_g144327_|)) (declare (not safe)) - (cons 'e __tmp144396)))) + (cons 'e __tmp144326)))) (declare (not safe)) - (cons __tmp144395 '())))) + (cons __tmp144325 '())))) (declare (not safe)) - (cons __tmp144398 __tmp144394)))) + (cons __tmp144328 __tmp144324)))) (declare (not safe)) - (cons __tmp144401 __tmp144393)))) + (cons __tmp144331 __tmp144323)))) (declare (not safe)) (##unchecked-structure-set! - __obj142974 - __tmp144392 + __obj142904 + __tmp144322 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144404 - (let ((__tmp144413 - (let ((__tmp144414 |gx[1]#_g144415_|)) + (let ((__tmp144334 + (let ((__tmp144343 + (let ((__tmp144344 |gx[1]#_g144345_|)) (declare (not safe)) - (cons 'id __tmp144414))) - (__tmp144405 - (let ((__tmp144410 - (let ((__tmp144411 |gx[1]#_g144412_|)) + (cons 'id __tmp144344))) + (__tmp144335 + (let ((__tmp144340 + (let ((__tmp144341 |gx[1]#_g144342_|)) (declare (not safe)) - (cons 'compile-top __tmp144411))) - (__tmp144406 - (let ((__tmp144407 - (let ((__tmp144408 |gx[1]#_g144409_|)) + (cons 'compile-top __tmp144341))) + (__tmp144336 + (let ((__tmp144337 + (let ((__tmp144338 |gx[1]#_g144339_|)) (declare (not safe)) - (cons 'e __tmp144408)))) + (cons 'e __tmp144338)))) (declare (not safe)) - (cons __tmp144407 '())))) + (cons __tmp144337 '())))) (declare (not safe)) - (cons __tmp144410 __tmp144406)))) + (cons __tmp144340 __tmp144336)))) (declare (not safe)) - (cons __tmp144413 __tmp144405)))) + (cons __tmp144343 __tmp144335)))) (declare (not safe)) (##unchecked-structure-set! - __obj142974 - __tmp144404 + __obj142904 + __tmp144334 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144416 - (let ((__tmp144425 - (let ((__tmp144426 |gx[1]#_g144427_|)) + (let ((__tmp144346 + (let ((__tmp144355 + (let ((__tmp144356 |gx[1]#_g144357_|)) (declare (not safe)) - (cons 'id __tmp144426))) - (__tmp144417 - (let ((__tmp144422 - (let ((__tmp144423 |gx[1]#_g144424_|)) + (cons 'id __tmp144356))) + (__tmp144347 + (let ((__tmp144352 + (let ((__tmp144353 |gx[1]#_g144354_|)) (declare (not safe)) - (cons 'compile-top __tmp144423))) - (__tmp144418 - (let ((__tmp144419 - (let ((__tmp144420 |gx[1]#_g144421_|)) + (cons 'compile-top __tmp144353))) + (__tmp144348 + (let ((__tmp144349 + (let ((__tmp144350 |gx[1]#_g144351_|)) (declare (not safe)) - (cons 'e __tmp144420)))) + (cons 'e __tmp144350)))) (declare (not safe)) - (cons __tmp144419 '())))) + (cons __tmp144349 '())))) (declare (not safe)) - (cons __tmp144422 __tmp144418)))) + (cons __tmp144352 __tmp144348)))) (declare (not safe)) - (cons __tmp144425 __tmp144417)))) + (cons __tmp144355 __tmp144347)))) (declare (not safe)) (##unchecked-structure-set! - __obj142974 - __tmp144416 + __obj142904 + __tmp144346 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144428 - (let ((__tmp144437 - (let ((__tmp144438 |gx[1]#_g144439_|)) + (let ((__tmp144358 + (let ((__tmp144367 + (let ((__tmp144368 |gx[1]#_g144369_|)) (declare (not safe)) - (cons 'id __tmp144438))) - (__tmp144429 - (let ((__tmp144434 - (let ((__tmp144435 |gx[1]#_g144436_|)) + (cons 'id __tmp144368))) + (__tmp144359 + (let ((__tmp144364 + (let ((__tmp144365 |gx[1]#_g144366_|)) (declare (not safe)) - (cons 'compile-top __tmp144435))) - (__tmp144430 - (let ((__tmp144431 - (let ((__tmp144432 |gx[1]#_g144433_|)) + (cons 'compile-top __tmp144365))) + (__tmp144360 + (let ((__tmp144361 + (let ((__tmp144362 |gx[1]#_g144363_|)) (declare (not safe)) - (cons 'e __tmp144432)))) + (cons 'e __tmp144362)))) (declare (not safe)) - (cons __tmp144431 '())))) + (cons __tmp144361 '())))) (declare (not safe)) - (cons __tmp144434 __tmp144430)))) + (cons __tmp144364 __tmp144360)))) (declare (not safe)) - (cons __tmp144437 __tmp144429)))) + (cons __tmp144367 __tmp144359)))) (declare (not safe)) (##unchecked-structure-set! - __obj142974 - __tmp144428 + __obj142904 + __tmp144358 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142974)) + __obj142904)) (define |gx[:0:]#special-form| - (let ((__obj142975 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142905 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142975 + __obj142905 'gx#special-form::t '1 gerbil/core$$#class-type-info::t @@ -8085,7 +8085,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142975 + __obj142905 'special-form '2 gerbil/core$$#class-type-info::t @@ -8093,26 +8093,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142975 + __obj142905 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144440 - (let ((__tmp144441 |gx[1]#_g144385_|)) + (let ((__tmp144370 + (let ((__tmp144371 |gx[1]#_g144315_|)) (declare (not safe)) - (cons __tmp144441 '())))) + (cons __tmp144371 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142975 - __tmp144440 + __obj142905 + __tmp144370 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142975 + __obj142905 '#t '5 gerbil/core$$#class-type-info::t @@ -8120,7 +8120,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142975 + __obj142905 '#f '6 gerbil/core$$#class-type-info::t @@ -8128,155 +8128,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142975 + __obj142905 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144442 |gx[1]#_g144443_|)) + (let ((__tmp144372 |gx[1]#_g144373_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142975 - __tmp144442 + __obj142905 + __tmp144372 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144444 |gx[1]#_g144445_|)) + (let ((__tmp144374 |gx[1]#_g144375_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142975 - __tmp144444 + __obj142905 + __tmp144374 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144446 |gx[1]#_g144447_|)) + (let ((__tmp144376 |gx[1]#_g144377_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142975 - __tmp144446 + __obj142905 + __tmp144376 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144448 - (let ((__tmp144457 - (let ((__tmp144458 |gx[1]#_g144459_|)) + (let ((__tmp144378 + (let ((__tmp144387 + (let ((__tmp144388 |gx[1]#_g144389_|)) (declare (not safe)) - (cons 'id __tmp144458))) - (__tmp144449 - (let ((__tmp144454 - (let ((__tmp144455 |gx[1]#_g144456_|)) + (cons 'id __tmp144388))) + (__tmp144379 + (let ((__tmp144384 + (let ((__tmp144385 |gx[1]#_g144386_|)) (declare (not safe)) - (cons 'compile-top __tmp144455))) - (__tmp144450 - (let ((__tmp144451 - (let ((__tmp144452 |gx[1]#_g144453_|)) + (cons 'compile-top __tmp144385))) + (__tmp144380 + (let ((__tmp144381 + (let ((__tmp144382 |gx[1]#_g144383_|)) (declare (not safe)) - (cons 'e __tmp144452)))) + (cons 'e __tmp144382)))) (declare (not safe)) - (cons __tmp144451 '())))) + (cons __tmp144381 '())))) (declare (not safe)) - (cons __tmp144454 __tmp144450)))) + (cons __tmp144384 __tmp144380)))) (declare (not safe)) - (cons __tmp144457 __tmp144449)))) + (cons __tmp144387 __tmp144379)))) (declare (not safe)) (##unchecked-structure-set! - __obj142975 - __tmp144448 + __obj142905 + __tmp144378 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144460 - (let ((__tmp144469 - (let ((__tmp144470 |gx[1]#_g144471_|)) + (let ((__tmp144390 + (let ((__tmp144399 + (let ((__tmp144400 |gx[1]#_g144401_|)) (declare (not safe)) - (cons 'id __tmp144470))) - (__tmp144461 - (let ((__tmp144466 - (let ((__tmp144467 |gx[1]#_g144468_|)) + (cons 'id __tmp144400))) + (__tmp144391 + (let ((__tmp144396 + (let ((__tmp144397 |gx[1]#_g144398_|)) (declare (not safe)) - (cons 'compile-top __tmp144467))) - (__tmp144462 - (let ((__tmp144463 - (let ((__tmp144464 |gx[1]#_g144465_|)) + (cons 'compile-top __tmp144397))) + (__tmp144392 + (let ((__tmp144393 + (let ((__tmp144394 |gx[1]#_g144395_|)) (declare (not safe)) - (cons 'e __tmp144464)))) + (cons 'e __tmp144394)))) (declare (not safe)) - (cons __tmp144463 '())))) + (cons __tmp144393 '())))) (declare (not safe)) - (cons __tmp144466 __tmp144462)))) + (cons __tmp144396 __tmp144392)))) (declare (not safe)) - (cons __tmp144469 __tmp144461)))) + (cons __tmp144399 __tmp144391)))) (declare (not safe)) (##unchecked-structure-set! - __obj142975 - __tmp144460 + __obj142905 + __tmp144390 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144472 - (let ((__tmp144481 - (let ((__tmp144482 |gx[1]#_g144483_|)) + (let ((__tmp144402 + (let ((__tmp144411 + (let ((__tmp144412 |gx[1]#_g144413_|)) (declare (not safe)) - (cons 'id __tmp144482))) - (__tmp144473 - (let ((__tmp144478 - (let ((__tmp144479 |gx[1]#_g144480_|)) + (cons 'id __tmp144412))) + (__tmp144403 + (let ((__tmp144408 + (let ((__tmp144409 |gx[1]#_g144410_|)) (declare (not safe)) - (cons 'compile-top __tmp144479))) - (__tmp144474 - (let ((__tmp144475 - (let ((__tmp144476 |gx[1]#_g144477_|)) + (cons 'compile-top __tmp144409))) + (__tmp144404 + (let ((__tmp144405 + (let ((__tmp144406 |gx[1]#_g144407_|)) (declare (not safe)) - (cons 'e __tmp144476)))) + (cons 'e __tmp144406)))) (declare (not safe)) - (cons __tmp144475 '())))) + (cons __tmp144405 '())))) (declare (not safe)) - (cons __tmp144478 __tmp144474)))) + (cons __tmp144408 __tmp144404)))) (declare (not safe)) - (cons __tmp144481 __tmp144473)))) + (cons __tmp144411 __tmp144403)))) (declare (not safe)) (##unchecked-structure-set! - __obj142975 - __tmp144472 + __obj142905 + __tmp144402 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144484 - (let ((__tmp144493 - (let ((__tmp144494 |gx[1]#_g144495_|)) + (let ((__tmp144414 + (let ((__tmp144423 + (let ((__tmp144424 |gx[1]#_g144425_|)) (declare (not safe)) - (cons 'id __tmp144494))) - (__tmp144485 - (let ((__tmp144490 - (let ((__tmp144491 |gx[1]#_g144492_|)) + (cons 'id __tmp144424))) + (__tmp144415 + (let ((__tmp144420 + (let ((__tmp144421 |gx[1]#_g144422_|)) (declare (not safe)) - (cons 'compile-top __tmp144491))) - (__tmp144486 - (let ((__tmp144487 - (let ((__tmp144488 |gx[1]#_g144489_|)) + (cons 'compile-top __tmp144421))) + (__tmp144416 + (let ((__tmp144417 + (let ((__tmp144418 |gx[1]#_g144419_|)) (declare (not safe)) - (cons 'e __tmp144488)))) + (cons 'e __tmp144418)))) (declare (not safe)) - (cons __tmp144487 '())))) + (cons __tmp144417 '())))) (declare (not safe)) - (cons __tmp144490 __tmp144486)))) + (cons __tmp144420 __tmp144416)))) (declare (not safe)) - (cons __tmp144493 __tmp144485)))) + (cons __tmp144423 __tmp144415)))) (declare (not safe)) (##unchecked-structure-set! - __obj142975 - __tmp144484 + __obj142905 + __tmp144414 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142975)) + __obj142905)) (define |gx[:0:]#definition-form| - (let ((__obj142976 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142906 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142976 + __obj142906 'gx#definition-form::t '1 gerbil/core$$#class-type-info::t @@ -8284,7 +8284,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142976 + __obj142906 'definition-form '2 gerbil/core$$#class-type-info::t @@ -8292,26 +8292,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142976 + __obj142906 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144496 - (let ((__tmp144497 |gx[1]#_g144498_|)) + (let ((__tmp144426 + (let ((__tmp144427 |gx[1]#_g144428_|)) (declare (not safe)) - (cons __tmp144497 '())))) + (cons __tmp144427 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142976 - __tmp144496 + __obj142906 + __tmp144426 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142976 + __obj142906 '#t '5 gerbil/core$$#class-type-info::t @@ -8319,7 +8319,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142976 + __obj142906 '#f '6 gerbil/core$$#class-type-info::t @@ -8327,155 +8327,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142976 + __obj142906 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144499 |gx[1]#_g144500_|)) + (let ((__tmp144429 |gx[1]#_g144430_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142976 - __tmp144499 + __obj142906 + __tmp144429 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144501 |gx[1]#_g144502_|)) + (let ((__tmp144431 |gx[1]#_g144432_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142976 - __tmp144501 + __obj142906 + __tmp144431 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144503 |gx[1]#_g144504_|)) + (let ((__tmp144433 |gx[1]#_g144434_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142976 - __tmp144503 + __obj142906 + __tmp144433 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144505 - (let ((__tmp144514 - (let ((__tmp144515 |gx[1]#_g144516_|)) + (let ((__tmp144435 + (let ((__tmp144444 + (let ((__tmp144445 |gx[1]#_g144446_|)) (declare (not safe)) - (cons 'id __tmp144515))) - (__tmp144506 - (let ((__tmp144511 - (let ((__tmp144512 |gx[1]#_g144513_|)) + (cons 'id __tmp144445))) + (__tmp144436 + (let ((__tmp144441 + (let ((__tmp144442 |gx[1]#_g144443_|)) (declare (not safe)) - (cons 'compile-top __tmp144512))) - (__tmp144507 - (let ((__tmp144508 - (let ((__tmp144509 |gx[1]#_g144510_|)) + (cons 'compile-top __tmp144442))) + (__tmp144437 + (let ((__tmp144438 + (let ((__tmp144439 |gx[1]#_g144440_|)) (declare (not safe)) - (cons 'e __tmp144509)))) + (cons 'e __tmp144439)))) (declare (not safe)) - (cons __tmp144508 '())))) + (cons __tmp144438 '())))) (declare (not safe)) - (cons __tmp144511 __tmp144507)))) + (cons __tmp144441 __tmp144437)))) (declare (not safe)) - (cons __tmp144514 __tmp144506)))) + (cons __tmp144444 __tmp144436)))) (declare (not safe)) (##unchecked-structure-set! - __obj142976 - __tmp144505 + __obj142906 + __tmp144435 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144517 - (let ((__tmp144526 - (let ((__tmp144527 |gx[1]#_g144528_|)) + (let ((__tmp144447 + (let ((__tmp144456 + (let ((__tmp144457 |gx[1]#_g144458_|)) (declare (not safe)) - (cons 'id __tmp144527))) - (__tmp144518 - (let ((__tmp144523 - (let ((__tmp144524 |gx[1]#_g144525_|)) + (cons 'id __tmp144457))) + (__tmp144448 + (let ((__tmp144453 + (let ((__tmp144454 |gx[1]#_g144455_|)) (declare (not safe)) - (cons 'compile-top __tmp144524))) - (__tmp144519 - (let ((__tmp144520 - (let ((__tmp144521 |gx[1]#_g144522_|)) + (cons 'compile-top __tmp144454))) + (__tmp144449 + (let ((__tmp144450 + (let ((__tmp144451 |gx[1]#_g144452_|)) (declare (not safe)) - (cons 'e __tmp144521)))) + (cons 'e __tmp144451)))) (declare (not safe)) - (cons __tmp144520 '())))) + (cons __tmp144450 '())))) (declare (not safe)) - (cons __tmp144523 __tmp144519)))) + (cons __tmp144453 __tmp144449)))) (declare (not safe)) - (cons __tmp144526 __tmp144518)))) + (cons __tmp144456 __tmp144448)))) (declare (not safe)) (##unchecked-structure-set! - __obj142976 - __tmp144517 + __obj142906 + __tmp144447 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144529 - (let ((__tmp144538 - (let ((__tmp144539 |gx[1]#_g144540_|)) + (let ((__tmp144459 + (let ((__tmp144468 + (let ((__tmp144469 |gx[1]#_g144470_|)) (declare (not safe)) - (cons 'id __tmp144539))) - (__tmp144530 - (let ((__tmp144535 - (let ((__tmp144536 |gx[1]#_g144537_|)) + (cons 'id __tmp144469))) + (__tmp144460 + (let ((__tmp144465 + (let ((__tmp144466 |gx[1]#_g144467_|)) (declare (not safe)) - (cons 'compile-top __tmp144536))) - (__tmp144531 - (let ((__tmp144532 - (let ((__tmp144533 |gx[1]#_g144534_|)) + (cons 'compile-top __tmp144466))) + (__tmp144461 + (let ((__tmp144462 + (let ((__tmp144463 |gx[1]#_g144464_|)) (declare (not safe)) - (cons 'e __tmp144533)))) + (cons 'e __tmp144463)))) (declare (not safe)) - (cons __tmp144532 '())))) + (cons __tmp144462 '())))) (declare (not safe)) - (cons __tmp144535 __tmp144531)))) + (cons __tmp144465 __tmp144461)))) (declare (not safe)) - (cons __tmp144538 __tmp144530)))) + (cons __tmp144468 __tmp144460)))) (declare (not safe)) (##unchecked-structure-set! - __obj142976 - __tmp144529 + __obj142906 + __tmp144459 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144541 - (let ((__tmp144550 - (let ((__tmp144551 |gx[1]#_g144552_|)) + (let ((__tmp144471 + (let ((__tmp144480 + (let ((__tmp144481 |gx[1]#_g144482_|)) (declare (not safe)) - (cons 'id __tmp144551))) - (__tmp144542 - (let ((__tmp144547 - (let ((__tmp144548 |gx[1]#_g144549_|)) + (cons 'id __tmp144481))) + (__tmp144472 + (let ((__tmp144477 + (let ((__tmp144478 |gx[1]#_g144479_|)) (declare (not safe)) - (cons 'compile-top __tmp144548))) - (__tmp144543 - (let ((__tmp144544 - (let ((__tmp144545 |gx[1]#_g144546_|)) + (cons 'compile-top __tmp144478))) + (__tmp144473 + (let ((__tmp144474 + (let ((__tmp144475 |gx[1]#_g144476_|)) (declare (not safe)) - (cons 'e __tmp144545)))) + (cons 'e __tmp144475)))) (declare (not safe)) - (cons __tmp144544 '())))) + (cons __tmp144474 '())))) (declare (not safe)) - (cons __tmp144547 __tmp144543)))) + (cons __tmp144477 __tmp144473)))) (declare (not safe)) - (cons __tmp144550 __tmp144542)))) + (cons __tmp144480 __tmp144472)))) (declare (not safe)) (##unchecked-structure-set! - __obj142976 - __tmp144541 + __obj142906 + __tmp144471 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142976)) + __obj142906)) (define |gx[:0:]#top-special-form| - (let ((__obj142977 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142907 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142977 + __obj142907 'gx#top-special-form::t '1 gerbil/core$$#class-type-info::t @@ -8483,7 +8483,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142977 + __obj142907 'top-special-form '2 gerbil/core$$#class-type-info::t @@ -8491,26 +8491,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142977 + __obj142907 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144553 - (let ((__tmp144554 |gx[1]#_g144498_|)) + (let ((__tmp144483 + (let ((__tmp144484 |gx[1]#_g144428_|)) (declare (not safe)) - (cons __tmp144554 '())))) + (cons __tmp144484 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142977 - __tmp144553 + __obj142907 + __tmp144483 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142977 + __obj142907 '#t '5 gerbil/core$$#class-type-info::t @@ -8518,7 +8518,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142977 + __obj142907 '#f '6 gerbil/core$$#class-type-info::t @@ -8526,155 +8526,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142977 + __obj142907 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144555 |gx[1]#_g144556_|)) + (let ((__tmp144485 |gx[1]#_g144486_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142977 - __tmp144555 + __obj142907 + __tmp144485 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144557 |gx[1]#_g144558_|)) + (let ((__tmp144487 |gx[1]#_g144488_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142977 - __tmp144557 + __obj142907 + __tmp144487 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144559 |gx[1]#_g144560_|)) + (let ((__tmp144489 |gx[1]#_g144490_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142977 - __tmp144559 + __obj142907 + __tmp144489 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144561 - (let ((__tmp144570 - (let ((__tmp144571 |gx[1]#_g144572_|)) + (let ((__tmp144491 + (let ((__tmp144500 + (let ((__tmp144501 |gx[1]#_g144502_|)) (declare (not safe)) - (cons 'id __tmp144571))) - (__tmp144562 - (let ((__tmp144567 - (let ((__tmp144568 |gx[1]#_g144569_|)) + (cons 'id __tmp144501))) + (__tmp144492 + (let ((__tmp144497 + (let ((__tmp144498 |gx[1]#_g144499_|)) (declare (not safe)) - (cons 'compile-top __tmp144568))) - (__tmp144563 - (let ((__tmp144564 - (let ((__tmp144565 |gx[1]#_g144566_|)) + (cons 'compile-top __tmp144498))) + (__tmp144493 + (let ((__tmp144494 + (let ((__tmp144495 |gx[1]#_g144496_|)) (declare (not safe)) - (cons 'e __tmp144565)))) + (cons 'e __tmp144495)))) (declare (not safe)) - (cons __tmp144564 '())))) + (cons __tmp144494 '())))) (declare (not safe)) - (cons __tmp144567 __tmp144563)))) + (cons __tmp144497 __tmp144493)))) (declare (not safe)) - (cons __tmp144570 __tmp144562)))) + (cons __tmp144500 __tmp144492)))) (declare (not safe)) (##unchecked-structure-set! - __obj142977 - __tmp144561 + __obj142907 + __tmp144491 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144573 - (let ((__tmp144582 - (let ((__tmp144583 |gx[1]#_g144584_|)) + (let ((__tmp144503 + (let ((__tmp144512 + (let ((__tmp144513 |gx[1]#_g144514_|)) (declare (not safe)) - (cons 'id __tmp144583))) - (__tmp144574 - (let ((__tmp144579 - (let ((__tmp144580 |gx[1]#_g144581_|)) + (cons 'id __tmp144513))) + (__tmp144504 + (let ((__tmp144509 + (let ((__tmp144510 |gx[1]#_g144511_|)) (declare (not safe)) - (cons 'compile-top __tmp144580))) - (__tmp144575 - (let ((__tmp144576 - (let ((__tmp144577 |gx[1]#_g144578_|)) + (cons 'compile-top __tmp144510))) + (__tmp144505 + (let ((__tmp144506 + (let ((__tmp144507 |gx[1]#_g144508_|)) (declare (not safe)) - (cons 'e __tmp144577)))) + (cons 'e __tmp144507)))) (declare (not safe)) - (cons __tmp144576 '())))) + (cons __tmp144506 '())))) (declare (not safe)) - (cons __tmp144579 __tmp144575)))) + (cons __tmp144509 __tmp144505)))) (declare (not safe)) - (cons __tmp144582 __tmp144574)))) + (cons __tmp144512 __tmp144504)))) (declare (not safe)) (##unchecked-structure-set! - __obj142977 - __tmp144573 + __obj142907 + __tmp144503 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144585 - (let ((__tmp144594 - (let ((__tmp144595 |gx[1]#_g144596_|)) + (let ((__tmp144515 + (let ((__tmp144524 + (let ((__tmp144525 |gx[1]#_g144526_|)) (declare (not safe)) - (cons 'id __tmp144595))) - (__tmp144586 - (let ((__tmp144591 - (let ((__tmp144592 |gx[1]#_g144593_|)) + (cons 'id __tmp144525))) + (__tmp144516 + (let ((__tmp144521 + (let ((__tmp144522 |gx[1]#_g144523_|)) (declare (not safe)) - (cons 'compile-top __tmp144592))) - (__tmp144587 - (let ((__tmp144588 - (let ((__tmp144589 |gx[1]#_g144590_|)) + (cons 'compile-top __tmp144522))) + (__tmp144517 + (let ((__tmp144518 + (let ((__tmp144519 |gx[1]#_g144520_|)) (declare (not safe)) - (cons 'e __tmp144589)))) + (cons 'e __tmp144519)))) (declare (not safe)) - (cons __tmp144588 '())))) + (cons __tmp144518 '())))) (declare (not safe)) - (cons __tmp144591 __tmp144587)))) + (cons __tmp144521 __tmp144517)))) (declare (not safe)) - (cons __tmp144594 __tmp144586)))) + (cons __tmp144524 __tmp144516)))) (declare (not safe)) (##unchecked-structure-set! - __obj142977 - __tmp144585 + __obj142907 + __tmp144515 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144597 - (let ((__tmp144606 - (let ((__tmp144607 |gx[1]#_g144608_|)) + (let ((__tmp144527 + (let ((__tmp144536 + (let ((__tmp144537 |gx[1]#_g144538_|)) (declare (not safe)) - (cons 'id __tmp144607))) - (__tmp144598 - (let ((__tmp144603 - (let ((__tmp144604 |gx[1]#_g144605_|)) + (cons 'id __tmp144537))) + (__tmp144528 + (let ((__tmp144533 + (let ((__tmp144534 |gx[1]#_g144535_|)) (declare (not safe)) - (cons 'compile-top __tmp144604))) - (__tmp144599 - (let ((__tmp144600 - (let ((__tmp144601 |gx[1]#_g144602_|)) + (cons 'compile-top __tmp144534))) + (__tmp144529 + (let ((__tmp144530 + (let ((__tmp144531 |gx[1]#_g144532_|)) (declare (not safe)) - (cons 'e __tmp144601)))) + (cons 'e __tmp144531)))) (declare (not safe)) - (cons __tmp144600 '())))) + (cons __tmp144530 '())))) (declare (not safe)) - (cons __tmp144603 __tmp144599)))) + (cons __tmp144533 __tmp144529)))) (declare (not safe)) - (cons __tmp144606 __tmp144598)))) + (cons __tmp144536 __tmp144528)))) (declare (not safe)) (##unchecked-structure-set! - __obj142977 - __tmp144597 + __obj142907 + __tmp144527 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142977)) + __obj142907)) (define |gx[:0:]#module-special-form| - (let ((__obj142978 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142908 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142978 + __obj142908 'gx#module-special-form::t '1 gerbil/core$$#class-type-info::t @@ -8682,7 +8682,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142978 + __obj142908 'module-special-form '2 gerbil/core$$#class-type-info::t @@ -8690,26 +8690,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142978 + __obj142908 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144609 - (let ((__tmp144610 |gx[1]#_g144611_|)) + (let ((__tmp144539 + (let ((__tmp144540 |gx[1]#_g144541_|)) (declare (not safe)) - (cons __tmp144610 '())))) + (cons __tmp144540 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142978 - __tmp144609 + __obj142908 + __tmp144539 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142978 + __obj142908 '#t '5 gerbil/core$$#class-type-info::t @@ -8717,7 +8717,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142978 + __obj142908 '#f '6 gerbil/core$$#class-type-info::t @@ -8725,155 +8725,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142978 + __obj142908 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144612 |gx[1]#_g144613_|)) + (let ((__tmp144542 |gx[1]#_g144543_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142978 - __tmp144612 + __obj142908 + __tmp144542 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144614 |gx[1]#_g144615_|)) + (let ((__tmp144544 |gx[1]#_g144545_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142978 - __tmp144614 + __obj142908 + __tmp144544 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144616 |gx[1]#_g144617_|)) + (let ((__tmp144546 |gx[1]#_g144547_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142978 - __tmp144616 + __obj142908 + __tmp144546 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144618 - (let ((__tmp144627 - (let ((__tmp144628 |gx[1]#_g144629_|)) + (let ((__tmp144548 + (let ((__tmp144557 + (let ((__tmp144558 |gx[1]#_g144559_|)) (declare (not safe)) - (cons 'id __tmp144628))) - (__tmp144619 - (let ((__tmp144624 - (let ((__tmp144625 |gx[1]#_g144626_|)) + (cons 'id __tmp144558))) + (__tmp144549 + (let ((__tmp144554 + (let ((__tmp144555 |gx[1]#_g144556_|)) (declare (not safe)) - (cons 'compile-top __tmp144625))) - (__tmp144620 - (let ((__tmp144621 - (let ((__tmp144622 |gx[1]#_g144623_|)) + (cons 'compile-top __tmp144555))) + (__tmp144550 + (let ((__tmp144551 + (let ((__tmp144552 |gx[1]#_g144553_|)) (declare (not safe)) - (cons 'e __tmp144622)))) + (cons 'e __tmp144552)))) (declare (not safe)) - (cons __tmp144621 '())))) + (cons __tmp144551 '())))) (declare (not safe)) - (cons __tmp144624 __tmp144620)))) + (cons __tmp144554 __tmp144550)))) (declare (not safe)) - (cons __tmp144627 __tmp144619)))) + (cons __tmp144557 __tmp144549)))) (declare (not safe)) (##unchecked-structure-set! - __obj142978 - __tmp144618 + __obj142908 + __tmp144548 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144630 - (let ((__tmp144639 - (let ((__tmp144640 |gx[1]#_g144641_|)) + (let ((__tmp144560 + (let ((__tmp144569 + (let ((__tmp144570 |gx[1]#_g144571_|)) (declare (not safe)) - (cons 'id __tmp144640))) - (__tmp144631 - (let ((__tmp144636 - (let ((__tmp144637 |gx[1]#_g144638_|)) + (cons 'id __tmp144570))) + (__tmp144561 + (let ((__tmp144566 + (let ((__tmp144567 |gx[1]#_g144568_|)) (declare (not safe)) - (cons 'compile-top __tmp144637))) - (__tmp144632 - (let ((__tmp144633 - (let ((__tmp144634 |gx[1]#_g144635_|)) + (cons 'compile-top __tmp144567))) + (__tmp144562 + (let ((__tmp144563 + (let ((__tmp144564 |gx[1]#_g144565_|)) (declare (not safe)) - (cons 'e __tmp144634)))) + (cons 'e __tmp144564)))) (declare (not safe)) - (cons __tmp144633 '())))) + (cons __tmp144563 '())))) (declare (not safe)) - (cons __tmp144636 __tmp144632)))) + (cons __tmp144566 __tmp144562)))) (declare (not safe)) - (cons __tmp144639 __tmp144631)))) + (cons __tmp144569 __tmp144561)))) (declare (not safe)) (##unchecked-structure-set! - __obj142978 - __tmp144630 + __obj142908 + __tmp144560 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144642 - (let ((__tmp144651 - (let ((__tmp144652 |gx[1]#_g144653_|)) + (let ((__tmp144572 + (let ((__tmp144581 + (let ((__tmp144582 |gx[1]#_g144583_|)) (declare (not safe)) - (cons 'id __tmp144652))) - (__tmp144643 - (let ((__tmp144648 - (let ((__tmp144649 |gx[1]#_g144650_|)) + (cons 'id __tmp144582))) + (__tmp144573 + (let ((__tmp144578 + (let ((__tmp144579 |gx[1]#_g144580_|)) (declare (not safe)) - (cons 'compile-top __tmp144649))) - (__tmp144644 - (let ((__tmp144645 - (let ((__tmp144646 |gx[1]#_g144647_|)) + (cons 'compile-top __tmp144579))) + (__tmp144574 + (let ((__tmp144575 + (let ((__tmp144576 |gx[1]#_g144577_|)) (declare (not safe)) - (cons 'e __tmp144646)))) + (cons 'e __tmp144576)))) (declare (not safe)) - (cons __tmp144645 '())))) + (cons __tmp144575 '())))) (declare (not safe)) - (cons __tmp144648 __tmp144644)))) + (cons __tmp144578 __tmp144574)))) (declare (not safe)) - (cons __tmp144651 __tmp144643)))) + (cons __tmp144581 __tmp144573)))) (declare (not safe)) (##unchecked-structure-set! - __obj142978 - __tmp144642 + __obj142908 + __tmp144572 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144654 - (let ((__tmp144663 - (let ((__tmp144664 |gx[1]#_g144665_|)) + (let ((__tmp144584 + (let ((__tmp144593 + (let ((__tmp144594 |gx[1]#_g144595_|)) (declare (not safe)) - (cons 'id __tmp144664))) - (__tmp144655 - (let ((__tmp144660 - (let ((__tmp144661 |gx[1]#_g144662_|)) + (cons 'id __tmp144594))) + (__tmp144585 + (let ((__tmp144590 + (let ((__tmp144591 |gx[1]#_g144592_|)) (declare (not safe)) - (cons 'compile-top __tmp144661))) - (__tmp144656 - (let ((__tmp144657 - (let ((__tmp144658 |gx[1]#_g144659_|)) + (cons 'compile-top __tmp144591))) + (__tmp144586 + (let ((__tmp144587 + (let ((__tmp144588 |gx[1]#_g144589_|)) (declare (not safe)) - (cons 'e __tmp144658)))) + (cons 'e __tmp144588)))) (declare (not safe)) - (cons __tmp144657 '())))) + (cons __tmp144587 '())))) (declare (not safe)) - (cons __tmp144660 __tmp144656)))) + (cons __tmp144590 __tmp144586)))) (declare (not safe)) - (cons __tmp144663 __tmp144655)))) + (cons __tmp144593 __tmp144585)))) (declare (not safe)) (##unchecked-structure-set! - __obj142978 - __tmp144654 + __obj142908 + __tmp144584 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142978)) + __obj142908)) (define |gx[:0:]#feature-expander| - (let ((__obj142979 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142909 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142979 + __obj142909 'gx#feature-expander::t '1 gerbil/core$$#class-type-info::t @@ -8881,7 +8881,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142979 + __obj142909 'feature-expander '2 gerbil/core$$#class-type-info::t @@ -8889,26 +8889,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142979 + __obj142909 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144666 - (let ((__tmp144667 |gx[1]#_g144328_|)) + (let ((__tmp144596 + (let ((__tmp144597 |gx[1]#_g144258_|)) (declare (not safe)) - (cons __tmp144667 '())))) + (cons __tmp144597 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142979 - __tmp144666 + __obj142909 + __tmp144596 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142979 + __obj142909 '#t '5 gerbil/core$$#class-type-info::t @@ -8916,7 +8916,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142979 + __obj142909 '#f '6 gerbil/core$$#class-type-info::t @@ -8924,99 +8924,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142979 + __obj142909 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144668 |gx[1]#_g144669_|)) + (let ((__tmp144598 |gx[1]#_g144599_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142979 - __tmp144668 + __obj142909 + __tmp144598 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144670 |gx[1]#_g144671_|)) + (let ((__tmp144600 |gx[1]#_g144601_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142979 - __tmp144670 + __obj142909 + __tmp144600 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144672 |gx[1]#_g144673_|)) + (let ((__tmp144602 |gx[1]#_g144603_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142979 - __tmp144672 + __obj142909 + __tmp144602 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144674 - (let ((__tmp144675 - (let ((__tmp144676 |gx[1]#_g144677_|)) + (let ((__tmp144604 + (let ((__tmp144605 + (let ((__tmp144606 |gx[1]#_g144607_|)) (declare (not safe)) - (cons 'e __tmp144676)))) + (cons 'e __tmp144606)))) (declare (not safe)) - (cons __tmp144675 '())))) + (cons __tmp144605 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142979 - __tmp144674 + __obj142909 + __tmp144604 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144678 - (let ((__tmp144679 - (let ((__tmp144680 |gx[1]#_g144681_|)) + (let ((__tmp144608 + (let ((__tmp144609 + (let ((__tmp144610 |gx[1]#_g144611_|)) (declare (not safe)) - (cons 'e __tmp144680)))) + (cons 'e __tmp144610)))) (declare (not safe)) - (cons __tmp144679 '())))) + (cons __tmp144609 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142979 - __tmp144678 + __obj142909 + __tmp144608 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144682 - (let ((__tmp144683 - (let ((__tmp144684 |gx[1]#_g144685_|)) + (let ((__tmp144612 + (let ((__tmp144613 + (let ((__tmp144614 |gx[1]#_g144615_|)) (declare (not safe)) - (cons 'e __tmp144684)))) + (cons 'e __tmp144614)))) (declare (not safe)) - (cons __tmp144683 '())))) + (cons __tmp144613 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142979 - __tmp144682 + __obj142909 + __tmp144612 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144686 - (let ((__tmp144687 - (let ((__tmp144688 |gx[1]#_g144689_|)) + (let ((__tmp144616 + (let ((__tmp144617 + (let ((__tmp144618 |gx[1]#_g144619_|)) (declare (not safe)) - (cons 'e __tmp144688)))) + (cons 'e __tmp144618)))) (declare (not safe)) - (cons __tmp144687 '())))) + (cons __tmp144617 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142979 - __tmp144686 + __obj142909 + __tmp144616 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142979)) + __obj142909)) (define |gx[:0:]#private-feature-expander| - (let ((__obj142980 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142910 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142980 + __obj142910 'gx#private-feature-expander::t '1 gerbil/core$$#class-type-info::t @@ -9024,7 +9024,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142980 + __obj142910 'private-feature-expander '2 gerbil/core$$#class-type-info::t @@ -9032,26 +9032,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142980 + __obj142910 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144690 - (let ((__tmp144691 |gx[1]#_g144692_|)) + (let ((__tmp144620 + (let ((__tmp144621 |gx[1]#_g144622_|)) (declare (not safe)) - (cons __tmp144691 '())))) + (cons __tmp144621 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142980 - __tmp144690 + __obj142910 + __tmp144620 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142980 + __obj142910 '#t '5 gerbil/core$$#class-type-info::t @@ -9059,7 +9059,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142980 + __obj142910 '#f '6 gerbil/core$$#class-type-info::t @@ -9067,99 +9067,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142980 + __obj142910 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144693 |gx[1]#_g144694_|)) + (let ((__tmp144623 |gx[1]#_g144624_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142980 - __tmp144693 + __obj142910 + __tmp144623 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144695 |gx[1]#_g144696_|)) + (let ((__tmp144625 |gx[1]#_g144626_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142980 - __tmp144695 + __obj142910 + __tmp144625 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144697 |gx[1]#_g144698_|)) + (let ((__tmp144627 |gx[1]#_g144628_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142980 - __tmp144697 + __obj142910 + __tmp144627 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144699 - (let ((__tmp144700 - (let ((__tmp144701 |gx[1]#_g144702_|)) + (let ((__tmp144629 + (let ((__tmp144630 + (let ((__tmp144631 |gx[1]#_g144632_|)) (declare (not safe)) - (cons 'e __tmp144701)))) + (cons 'e __tmp144631)))) (declare (not safe)) - (cons __tmp144700 '())))) + (cons __tmp144630 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142980 - __tmp144699 + __obj142910 + __tmp144629 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144703 - (let ((__tmp144704 - (let ((__tmp144705 |gx[1]#_g144706_|)) + (let ((__tmp144633 + (let ((__tmp144634 + (let ((__tmp144635 |gx[1]#_g144636_|)) (declare (not safe)) - (cons 'e __tmp144705)))) + (cons 'e __tmp144635)))) (declare (not safe)) - (cons __tmp144704 '())))) + (cons __tmp144634 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142980 - __tmp144703 + __obj142910 + __tmp144633 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144707 - (let ((__tmp144708 - (let ((__tmp144709 |gx[1]#_g144710_|)) + (let ((__tmp144637 + (let ((__tmp144638 + (let ((__tmp144639 |gx[1]#_g144640_|)) (declare (not safe)) - (cons 'e __tmp144709)))) + (cons 'e __tmp144639)))) (declare (not safe)) - (cons __tmp144708 '())))) + (cons __tmp144638 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142980 - __tmp144707 + __obj142910 + __tmp144637 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144711 - (let ((__tmp144712 - (let ((__tmp144713 |gx[1]#_g144714_|)) + (let ((__tmp144641 + (let ((__tmp144642 + (let ((__tmp144643 |gx[1]#_g144644_|)) (declare (not safe)) - (cons 'e __tmp144713)))) + (cons 'e __tmp144643)))) (declare (not safe)) - (cons __tmp144712 '())))) + (cons __tmp144642 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142980 - __tmp144711 + __obj142910 + __tmp144641 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142980)) + __obj142910)) (define |gx[:0:]#reserved-expander| - (let ((__obj142981 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142911 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142981 + __obj142911 'gx#reserved-expander::t '1 gerbil/core$$#class-type-info::t @@ -9167,7 +9167,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142981 + __obj142911 'reserved-expander '2 gerbil/core$$#class-type-info::t @@ -9175,26 +9175,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142981 + __obj142911 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144715 - (let ((__tmp144716 |gx[1]#_g144328_|)) + (let ((__tmp144645 + (let ((__tmp144646 |gx[1]#_g144258_|)) (declare (not safe)) - (cons __tmp144716 '())))) + (cons __tmp144646 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142981 - __tmp144715 + __obj142911 + __tmp144645 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142981 + __obj142911 '#t '5 gerbil/core$$#class-type-info::t @@ -9202,7 +9202,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142981 + __obj142911 '#f '6 gerbil/core$$#class-type-info::t @@ -9210,99 +9210,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142981 + __obj142911 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144717 |gx[1]#_g144718_|)) + (let ((__tmp144647 |gx[1]#_g144648_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142981 - __tmp144717 + __obj142911 + __tmp144647 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144719 |gx[1]#_g144720_|)) + (let ((__tmp144649 |gx[1]#_g144650_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142981 - __tmp144719 + __obj142911 + __tmp144649 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144721 |gx[1]#_g144722_|)) + (let ((__tmp144651 |gx[1]#_g144652_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142981 - __tmp144721 + __obj142911 + __tmp144651 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144723 - (let ((__tmp144724 - (let ((__tmp144725 |gx[1]#_g144726_|)) + (let ((__tmp144653 + (let ((__tmp144654 + (let ((__tmp144655 |gx[1]#_g144656_|)) (declare (not safe)) - (cons 'e __tmp144725)))) + (cons 'e __tmp144655)))) (declare (not safe)) - (cons __tmp144724 '())))) + (cons __tmp144654 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142981 - __tmp144723 + __obj142911 + __tmp144653 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144727 - (let ((__tmp144728 - (let ((__tmp144729 |gx[1]#_g144730_|)) + (let ((__tmp144657 + (let ((__tmp144658 + (let ((__tmp144659 |gx[1]#_g144660_|)) (declare (not safe)) - (cons 'e __tmp144729)))) + (cons 'e __tmp144659)))) (declare (not safe)) - (cons __tmp144728 '())))) + (cons __tmp144658 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142981 - __tmp144727 + __obj142911 + __tmp144657 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144731 - (let ((__tmp144732 - (let ((__tmp144733 |gx[1]#_g144734_|)) + (let ((__tmp144661 + (let ((__tmp144662 + (let ((__tmp144663 |gx[1]#_g144664_|)) (declare (not safe)) - (cons 'e __tmp144733)))) + (cons 'e __tmp144663)))) (declare (not safe)) - (cons __tmp144732 '())))) + (cons __tmp144662 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142981 - __tmp144731 + __obj142911 + __tmp144661 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144735 - (let ((__tmp144736 - (let ((__tmp144737 |gx[1]#_g144738_|)) + (let ((__tmp144665 + (let ((__tmp144666 + (let ((__tmp144667 |gx[1]#_g144668_|)) (declare (not safe)) - (cons 'e __tmp144737)))) + (cons 'e __tmp144667)))) (declare (not safe)) - (cons __tmp144736 '())))) + (cons __tmp144666 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142981 - __tmp144735 + __obj142911 + __tmp144665 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142981)) + __obj142911)) (define |gx[:0:]#macro-expander| - (let ((__obj142982 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142912 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142982 + __obj142912 'gx#core-macro::t '1 gerbil/core$$#class-type-info::t @@ -9310,7 +9310,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142982 + __obj142912 'macro-expander '2 gerbil/core$$#class-type-info::t @@ -9318,26 +9318,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142982 + __obj142912 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144739 - (let ((__tmp144740 |gx[1]#_g144328_|)) + (let ((__tmp144669 + (let ((__tmp144670 |gx[1]#_g144258_|)) (declare (not safe)) - (cons __tmp144740 '())))) + (cons __tmp144670 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142982 - __tmp144739 + __obj142912 + __tmp144669 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142982 + __obj142912 '#t '5 gerbil/core$$#class-type-info::t @@ -9345,7 +9345,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142982 + __obj142912 '#f '6 gerbil/core$$#class-type-info::t @@ -9353,99 +9353,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142982 + __obj142912 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144741 |gx[1]#_g144742_|)) + (let ((__tmp144671 |gx[1]#_g144672_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142982 - __tmp144741 + __obj142912 + __tmp144671 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144743 |gx[1]#_g144744_|)) + (let ((__tmp144673 |gx[1]#_g144674_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142982 - __tmp144743 + __obj142912 + __tmp144673 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144745 |gx[1]#_g144746_|)) + (let ((__tmp144675 |gx[1]#_g144676_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142982 - __tmp144745 + __obj142912 + __tmp144675 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144747 - (let ((__tmp144748 - (let ((__tmp144749 |gx[1]#_g144750_|)) + (let ((__tmp144677 + (let ((__tmp144678 + (let ((__tmp144679 |gx[1]#_g144680_|)) (declare (not safe)) - (cons 'e __tmp144749)))) + (cons 'e __tmp144679)))) (declare (not safe)) - (cons __tmp144748 '())))) + (cons __tmp144678 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142982 - __tmp144747 + __obj142912 + __tmp144677 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144751 - (let ((__tmp144752 - (let ((__tmp144753 |gx[1]#_g144754_|)) + (let ((__tmp144681 + (let ((__tmp144682 + (let ((__tmp144683 |gx[1]#_g144684_|)) (declare (not safe)) - (cons 'e __tmp144753)))) + (cons 'e __tmp144683)))) (declare (not safe)) - (cons __tmp144752 '())))) + (cons __tmp144682 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142982 - __tmp144751 + __obj142912 + __tmp144681 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144755 - (let ((__tmp144756 - (let ((__tmp144757 |gx[1]#_g144758_|)) + (let ((__tmp144685 + (let ((__tmp144686 + (let ((__tmp144687 |gx[1]#_g144688_|)) (declare (not safe)) - (cons 'e __tmp144757)))) + (cons 'e __tmp144687)))) (declare (not safe)) - (cons __tmp144756 '())))) + (cons __tmp144686 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142982 - __tmp144755 + __obj142912 + __tmp144685 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144759 - (let ((__tmp144760 - (let ((__tmp144761 |gx[1]#_g144762_|)) + (let ((__tmp144689 + (let ((__tmp144690 + (let ((__tmp144691 |gx[1]#_g144692_|)) (declare (not safe)) - (cons 'e __tmp144761)))) + (cons 'e __tmp144691)))) (declare (not safe)) - (cons __tmp144760 '())))) + (cons __tmp144690 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142982 - __tmp144759 + __obj142912 + __tmp144689 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142982)) + __obj142912)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj142983 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142913 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142983 + __obj142913 'gx#rename-macro-expander::t '1 gerbil/core$$#class-type-info::t @@ -9453,7 +9453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142983 + __obj142913 'rename-macro-expander '2 gerbil/core$$#class-type-info::t @@ -9461,26 +9461,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142983 + __obj142913 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144763 - (let ((__tmp144764 |gx[1]#_g144765_|)) + (let ((__tmp144693 + (let ((__tmp144694 |gx[1]#_g144695_|)) (declare (not safe)) - (cons __tmp144764 '())))) + (cons __tmp144694 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142983 - __tmp144763 + __obj142913 + __tmp144693 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142983 + __obj142913 '#t '5 gerbil/core$$#class-type-info::t @@ -9488,7 +9488,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142983 + __obj142913 '#f '6 gerbil/core$$#class-type-info::t @@ -9496,99 +9496,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142983 + __obj142913 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144766 |gx[1]#_g144767_|)) + (let ((__tmp144696 |gx[1]#_g144697_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142983 - __tmp144766 + __obj142913 + __tmp144696 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144768 |gx[1]#_g144769_|)) + (let ((__tmp144698 |gx[1]#_g144699_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142983 - __tmp144768 + __obj142913 + __tmp144698 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144770 |gx[1]#_g144771_|)) + (let ((__tmp144700 |gx[1]#_g144701_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142983 - __tmp144770 + __obj142913 + __tmp144700 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144772 - (let ((__tmp144773 - (let ((__tmp144774 |gx[1]#_g144775_|)) + (let ((__tmp144702 + (let ((__tmp144703 + (let ((__tmp144704 |gx[1]#_g144705_|)) (declare (not safe)) - (cons 'e __tmp144774)))) + (cons 'e __tmp144704)))) (declare (not safe)) - (cons __tmp144773 '())))) + (cons __tmp144703 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142983 - __tmp144772 + __obj142913 + __tmp144702 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144776 - (let ((__tmp144777 - (let ((__tmp144778 |gx[1]#_g144779_|)) + (let ((__tmp144706 + (let ((__tmp144707 + (let ((__tmp144708 |gx[1]#_g144709_|)) (declare (not safe)) - (cons 'e __tmp144778)))) + (cons 'e __tmp144708)))) (declare (not safe)) - (cons __tmp144777 '())))) + (cons __tmp144707 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142983 - __tmp144776 + __obj142913 + __tmp144706 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144780 - (let ((__tmp144781 - (let ((__tmp144782 |gx[1]#_g144783_|)) + (let ((__tmp144710 + (let ((__tmp144711 + (let ((__tmp144712 |gx[1]#_g144713_|)) (declare (not safe)) - (cons 'e __tmp144782)))) + (cons 'e __tmp144712)))) (declare (not safe)) - (cons __tmp144781 '())))) + (cons __tmp144711 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142983 - __tmp144780 + __obj142913 + __tmp144710 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144784 - (let ((__tmp144785 - (let ((__tmp144786 |gx[1]#_g144787_|)) + (let ((__tmp144714 + (let ((__tmp144715 + (let ((__tmp144716 |gx[1]#_g144717_|)) (declare (not safe)) - (cons 'e __tmp144786)))) + (cons 'e __tmp144716)))) (declare (not safe)) - (cons __tmp144785 '())))) + (cons __tmp144715 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142983 - __tmp144784 + __obj142913 + __tmp144714 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142983)) + __obj142913)) (define |gx[:0:]#user-expander| - (let ((__obj142984 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142914 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142984 + __obj142914 'gx#macro-expander::t '1 gerbil/core$$#class-type-info::t @@ -9596,7 +9596,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142984 + __obj142914 'user-expander '2 gerbil/core$$#class-type-info::t @@ -9604,26 +9604,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142984 + __obj142914 '(context phi) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144788 - (let ((__tmp144789 |gx[1]#_g144765_|)) + (let ((__tmp144718 + (let ((__tmp144719 |gx[1]#_g144695_|)) (declare (not safe)) - (cons __tmp144789 '())))) + (cons __tmp144719 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142984 - __tmp144788 + __obj142914 + __tmp144718 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142984 + __obj142914 '#t '5 gerbil/core$$#class-type-info::t @@ -9631,7 +9631,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142984 + __obj142914 '#f '6 gerbil/core$$#class-type-info::t @@ -9639,155 +9639,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142984 + __obj142914 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144790 |gx[1]#_g144791_|)) + (let ((__tmp144720 |gx[1]#_g144721_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142984 - __tmp144790 + __obj142914 + __tmp144720 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144792 |gx[1]#_g144793_|)) + (let ((__tmp144722 |gx[1]#_g144723_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142984 - __tmp144792 + __obj142914 + __tmp144722 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144794 |gx[1]#_g144795_|)) + (let ((__tmp144724 |gx[1]#_g144725_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142984 - __tmp144794 + __obj142914 + __tmp144724 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144796 - (let ((__tmp144805 - (let ((__tmp144806 |gx[1]#_g144807_|)) + (let ((__tmp144726 + (let ((__tmp144735 + (let ((__tmp144736 |gx[1]#_g144737_|)) (declare (not safe)) - (cons 'context __tmp144806))) - (__tmp144797 - (let ((__tmp144802 - (let ((__tmp144803 |gx[1]#_g144804_|)) + (cons 'context __tmp144736))) + (__tmp144727 + (let ((__tmp144732 + (let ((__tmp144733 |gx[1]#_g144734_|)) (declare (not safe)) - (cons 'phi __tmp144803))) - (__tmp144798 - (let ((__tmp144799 - (let ((__tmp144800 |gx[1]#_g144801_|)) + (cons 'phi __tmp144733))) + (__tmp144728 + (let ((__tmp144729 + (let ((__tmp144730 |gx[1]#_g144731_|)) (declare (not safe)) - (cons 'e __tmp144800)))) + (cons 'e __tmp144730)))) (declare (not safe)) - (cons __tmp144799 '())))) + (cons __tmp144729 '())))) (declare (not safe)) - (cons __tmp144802 __tmp144798)))) + (cons __tmp144732 __tmp144728)))) (declare (not safe)) - (cons __tmp144805 __tmp144797)))) + (cons __tmp144735 __tmp144727)))) (declare (not safe)) (##unchecked-structure-set! - __obj142984 - __tmp144796 + __obj142914 + __tmp144726 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144808 - (let ((__tmp144817 - (let ((__tmp144818 |gx[1]#_g144819_|)) + (let ((__tmp144738 + (let ((__tmp144747 + (let ((__tmp144748 |gx[1]#_g144749_|)) (declare (not safe)) - (cons 'context __tmp144818))) - (__tmp144809 - (let ((__tmp144814 - (let ((__tmp144815 |gx[1]#_g144816_|)) + (cons 'context __tmp144748))) + (__tmp144739 + (let ((__tmp144744 + (let ((__tmp144745 |gx[1]#_g144746_|)) (declare (not safe)) - (cons 'phi __tmp144815))) - (__tmp144810 - (let ((__tmp144811 - (let ((__tmp144812 |gx[1]#_g144813_|)) + (cons 'phi __tmp144745))) + (__tmp144740 + (let ((__tmp144741 + (let ((__tmp144742 |gx[1]#_g144743_|)) (declare (not safe)) - (cons 'e __tmp144812)))) + (cons 'e __tmp144742)))) (declare (not safe)) - (cons __tmp144811 '())))) + (cons __tmp144741 '())))) (declare (not safe)) - (cons __tmp144814 __tmp144810)))) + (cons __tmp144744 __tmp144740)))) (declare (not safe)) - (cons __tmp144817 __tmp144809)))) + (cons __tmp144747 __tmp144739)))) (declare (not safe)) (##unchecked-structure-set! - __obj142984 - __tmp144808 + __obj142914 + __tmp144738 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144820 - (let ((__tmp144829 - (let ((__tmp144830 |gx[1]#_g144831_|)) + (let ((__tmp144750 + (let ((__tmp144759 + (let ((__tmp144760 |gx[1]#_g144761_|)) (declare (not safe)) - (cons 'context __tmp144830))) - (__tmp144821 - (let ((__tmp144826 - (let ((__tmp144827 |gx[1]#_g144828_|)) + (cons 'context __tmp144760))) + (__tmp144751 + (let ((__tmp144756 + (let ((__tmp144757 |gx[1]#_g144758_|)) (declare (not safe)) - (cons 'phi __tmp144827))) - (__tmp144822 - (let ((__tmp144823 - (let ((__tmp144824 |gx[1]#_g144825_|)) + (cons 'phi __tmp144757))) + (__tmp144752 + (let ((__tmp144753 + (let ((__tmp144754 |gx[1]#_g144755_|)) (declare (not safe)) - (cons 'e __tmp144824)))) + (cons 'e __tmp144754)))) (declare (not safe)) - (cons __tmp144823 '())))) + (cons __tmp144753 '())))) (declare (not safe)) - (cons __tmp144826 __tmp144822)))) + (cons __tmp144756 __tmp144752)))) (declare (not safe)) - (cons __tmp144829 __tmp144821)))) + (cons __tmp144759 __tmp144751)))) (declare (not safe)) (##unchecked-structure-set! - __obj142984 - __tmp144820 + __obj142914 + __tmp144750 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144832 - (let ((__tmp144841 - (let ((__tmp144842 |gx[1]#_g144843_|)) + (let ((__tmp144762 + (let ((__tmp144771 + (let ((__tmp144772 |gx[1]#_g144773_|)) (declare (not safe)) - (cons 'context __tmp144842))) - (__tmp144833 - (let ((__tmp144838 - (let ((__tmp144839 |gx[1]#_g144840_|)) + (cons 'context __tmp144772))) + (__tmp144763 + (let ((__tmp144768 + (let ((__tmp144769 |gx[1]#_g144770_|)) (declare (not safe)) - (cons 'phi __tmp144839))) - (__tmp144834 - (let ((__tmp144835 - (let ((__tmp144836 |gx[1]#_g144837_|)) + (cons 'phi __tmp144769))) + (__tmp144764 + (let ((__tmp144765 + (let ((__tmp144766 |gx[1]#_g144767_|)) (declare (not safe)) - (cons 'e __tmp144836)))) + (cons 'e __tmp144766)))) (declare (not safe)) - (cons __tmp144835 '())))) + (cons __tmp144765 '())))) (declare (not safe)) - (cons __tmp144838 __tmp144834)))) + (cons __tmp144768 __tmp144764)))) (declare (not safe)) - (cons __tmp144841 __tmp144833)))) + (cons __tmp144771 __tmp144763)))) (declare (not safe)) (##unchecked-structure-set! - __obj142984 - __tmp144832 + __obj142914 + __tmp144762 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142984)) + __obj142914)) (define |gx[:0:]#expander-mark| - (let ((__obj142985 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj142915 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142985 + __obj142915 'gx#expander-mark::t '1 gerbil/core$$#class-type-info::t @@ -9795,7 +9795,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142985 + __obj142915 'expander-mark '2 gerbil/core$$#class-type-info::t @@ -9803,7 +9803,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142985 + __obj142915 '(subst context phi trace) '4 gerbil/core$$#class-type-info::t @@ -9811,7 +9811,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142985 + __obj142915 '() '3 gerbil/core$$#class-type-info::t @@ -9819,7 +9819,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142985 + __obj142915 '#t '5 gerbil/core$$#class-type-info::t @@ -9827,7 +9827,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142985 + __obj142915 '#f '6 gerbil/core$$#class-type-info::t @@ -9835,253 +9835,253 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142985 + __obj142915 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144844 |gx[1]#_g144845_|)) + (let ((__tmp144774 |gx[1]#_g144775_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142985 - __tmp144844 + __obj142915 + __tmp144774 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144846 |gx[1]#_g144847_|)) + (let ((__tmp144776 |gx[1]#_g144777_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142985 - __tmp144846 + __obj142915 + __tmp144776 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144848 |gx[1]#_g144849_|)) + (let ((__tmp144778 |gx[1]#_g144779_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142985 - __tmp144848 + __obj142915 + __tmp144778 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144850 - (let ((__tmp144863 - (let ((__tmp144864 |gx[1]#_g144865_|)) - (declare (not safe)) - (cons 'subst __tmp144864))) - (__tmp144851 - (let ((__tmp144860 - (let ((__tmp144861 |gx[1]#_g144862_|)) - (declare (not safe)) - (cons 'context __tmp144861))) - (__tmp144852 - (let ((__tmp144857 - (let ((__tmp144858 |gx[1]#_g144859_|)) - (declare (not safe)) - (cons 'phi __tmp144858))) - (__tmp144853 - (let ((__tmp144854 - (let ((__tmp144855 - |gx[1]#_g144856_|)) + (let ((__tmp144780 + (let ((__tmp144793 + (let ((__tmp144794 |gx[1]#_g144795_|)) + (declare (not safe)) + (cons 'subst __tmp144794))) + (__tmp144781 + (let ((__tmp144790 + (let ((__tmp144791 |gx[1]#_g144792_|)) + (declare (not safe)) + (cons 'context __tmp144791))) + (__tmp144782 + (let ((__tmp144787 + (let ((__tmp144788 |gx[1]#_g144789_|)) + (declare (not safe)) + (cons 'phi __tmp144788))) + (__tmp144783 + (let ((__tmp144784 + (let ((__tmp144785 + |gx[1]#_g144786_|)) (declare (not safe)) - (cons 'trace __tmp144855)))) + (cons 'trace __tmp144785)))) (declare (not safe)) - (cons __tmp144854 '())))) + (cons __tmp144784 '())))) (declare (not safe)) - (cons __tmp144857 __tmp144853)))) + (cons __tmp144787 __tmp144783)))) (declare (not safe)) - (cons __tmp144860 __tmp144852)))) + (cons __tmp144790 __tmp144782)))) (declare (not safe)) - (cons __tmp144863 __tmp144851)))) + (cons __tmp144793 __tmp144781)))) (declare (not safe)) (##unchecked-structure-set! - __obj142985 - __tmp144850 + __obj142915 + __tmp144780 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144866 - (let ((__tmp144879 - (let ((__tmp144880 |gx[1]#_g144881_|)) + (let ((__tmp144796 + (let ((__tmp144809 + (let ((__tmp144810 |gx[1]#_g144811_|)) (declare (not safe)) - (cons 'subst __tmp144880))) - (__tmp144867 - (let ((__tmp144876 - (let ((__tmp144877 |gx[1]#_g144878_|)) + (cons 'subst __tmp144810))) + (__tmp144797 + (let ((__tmp144806 + (let ((__tmp144807 |gx[1]#_g144808_|)) (declare (not safe)) - (cons 'context __tmp144877))) - (__tmp144868 - (let ((__tmp144873 - (let ((__tmp144874 |gx[1]#_g144875_|)) - (declare (not safe)) - (cons 'phi __tmp144874))) - (__tmp144869 - (let ((__tmp144870 - (let ((__tmp144871 - |gx[1]#_g144872_|)) + (cons 'context __tmp144807))) + (__tmp144798 + (let ((__tmp144803 + (let ((__tmp144804 |gx[1]#_g144805_|)) + (declare (not safe)) + (cons 'phi __tmp144804))) + (__tmp144799 + (let ((__tmp144800 + (let ((__tmp144801 + |gx[1]#_g144802_|)) (declare (not safe)) - (cons 'trace __tmp144871)))) + (cons 'trace __tmp144801)))) (declare (not safe)) - (cons __tmp144870 '())))) + (cons __tmp144800 '())))) (declare (not safe)) - (cons __tmp144873 __tmp144869)))) + (cons __tmp144803 __tmp144799)))) (declare (not safe)) - (cons __tmp144876 __tmp144868)))) + (cons __tmp144806 __tmp144798)))) (declare (not safe)) - (cons __tmp144879 __tmp144867)))) + (cons __tmp144809 __tmp144797)))) (declare (not safe)) (##unchecked-structure-set! - __obj142985 - __tmp144866 + __obj142915 + __tmp144796 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144882 - (let ((__tmp144895 - (let ((__tmp144896 |gx[1]#_g144897_|)) + (let ((__tmp144812 + (let ((__tmp144825 + (let ((__tmp144826 |gx[1]#_g144827_|)) (declare (not safe)) - (cons 'subst __tmp144896))) - (__tmp144883 - (let ((__tmp144892 - (let ((__tmp144893 |gx[1]#_g144894_|)) + (cons 'subst __tmp144826))) + (__tmp144813 + (let ((__tmp144822 + (let ((__tmp144823 |gx[1]#_g144824_|)) (declare (not safe)) - (cons 'context __tmp144893))) - (__tmp144884 - (let ((__tmp144889 - (let ((__tmp144890 |gx[1]#_g144891_|)) + (cons 'context __tmp144823))) + (__tmp144814 + (let ((__tmp144819 + (let ((__tmp144820 |gx[1]#_g144821_|)) (declare (not safe)) - (cons 'phi __tmp144890))) - (__tmp144885 - (let ((__tmp144886 - (let ((__tmp144887 - |gx[1]#_g144888_|)) + (cons 'phi __tmp144820))) + (__tmp144815 + (let ((__tmp144816 + (let ((__tmp144817 + |gx[1]#_g144818_|)) (declare (not safe)) - (cons 'trace __tmp144887)))) + (cons 'trace __tmp144817)))) (declare (not safe)) - (cons __tmp144886 '())))) + (cons __tmp144816 '())))) (declare (not safe)) - (cons __tmp144889 __tmp144885)))) + (cons __tmp144819 __tmp144815)))) (declare (not safe)) - (cons __tmp144892 __tmp144884)))) + (cons __tmp144822 __tmp144814)))) (declare (not safe)) - (cons __tmp144895 __tmp144883)))) + (cons __tmp144825 __tmp144813)))) (declare (not safe)) (##unchecked-structure-set! - __obj142985 - __tmp144882 + __obj142915 + __tmp144812 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp144898 - (let ((__tmp144911 - (let ((__tmp144912 |gx[1]#_g144913_|)) + (let ((__tmp144828 + (let ((__tmp144841 + (let ((__tmp144842 |gx[1]#_g144843_|)) (declare (not safe)) - (cons 'subst __tmp144912))) - (__tmp144899 - (let ((__tmp144908 - (let ((__tmp144909 |gx[1]#_g144910_|)) + (cons 'subst __tmp144842))) + (__tmp144829 + (let ((__tmp144838 + (let ((__tmp144839 |gx[1]#_g144840_|)) (declare (not safe)) - (cons 'context __tmp144909))) - (__tmp144900 - (let ((__tmp144905 - (let ((__tmp144906 |gx[1]#_g144907_|)) + (cons 'context __tmp144839))) + (__tmp144830 + (let ((__tmp144835 + (let ((__tmp144836 |gx[1]#_g144837_|)) (declare (not safe)) - (cons 'phi __tmp144906))) - (__tmp144901 - (let ((__tmp144902 - (let ((__tmp144903 - |gx[1]#_g144904_|)) + (cons 'phi __tmp144836))) + (__tmp144831 + (let ((__tmp144832 + (let ((__tmp144833 + |gx[1]#_g144834_|)) (declare (not safe)) - (cons 'trace __tmp144903)))) + (cons 'trace __tmp144833)))) (declare (not safe)) - (cons __tmp144902 '())))) + (cons __tmp144832 '())))) (declare (not safe)) - (cons __tmp144905 __tmp144901)))) + (cons __tmp144835 __tmp144831)))) (declare (not safe)) - (cons __tmp144908 __tmp144900)))) + (cons __tmp144838 __tmp144830)))) (declare (not safe)) - (cons __tmp144911 __tmp144899)))) + (cons __tmp144841 __tmp144829)))) (declare (not safe)) (##unchecked-structure-set! - __obj142985 - __tmp144898 + __obj142915 + __tmp144828 '14 gerbil/core$$#class-type-info::t '#f)) - __obj142985)) + __obj142915)) (define |gx[:0:]#&phi-context?| - (lambda (_$stx135756_) - (let* ((_g135760135774_ - (lambda (_g135761135770_) + (lambda (_$stx135686_) + (let* ((_g135690135704_ + (lambda (_g135691135700_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135761135770_)))) - (_g135759135816_ - (lambda (_g135761135778_) + _g135691135700_)))) + (_g135689135746_ + (lambda (_g135691135708_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135761135778_)) - (let ((_e135765135781_ + (gx#stx-pair? _g135691135708_)) + (let ((_e135695135711_ (let () (declare (not safe)) - (gx#syntax-e _g135761135778_)))) - (let ((_hd135764135785_ + (gx#syntax-e _g135691135708_)))) + (let ((_hd135694135715_ (let () (declare (not safe)) - (##car _e135765135781_))) - (_tl135763135788_ + (##car _e135695135711_))) + (_tl135693135718_ (let () (declare (not safe)) - (##cdr _e135765135781_)))) + (##cdr _e135695135711_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135763135788_)) - (let ((_e135768135791_ + (gx#stx-pair? _tl135693135718_)) + (let ((_e135698135721_ (let () (declare (not safe)) - (gx#syntax-e _tl135763135788_)))) - (let ((_hd135767135795_ + (gx#syntax-e _tl135693135718_)))) + (let ((_hd135697135725_ (let () (declare (not safe)) - (##car _e135768135791_))) - (_tl135766135798_ + (##car _e135698135721_))) + (_tl135696135728_ (let () (declare (not safe)) - (##cdr _e135768135791_)))) + (##cdr _e135698135721_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135766135798_)) - ((lambda (_L135801_) - (let ((__tmp144919 + (gx#stx-null? _tl135696135728_)) + ((lambda (_L135731_) + (let ((__tmp144849 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'fx>))) - (__tmp144914 - (let ((__tmp144916 - (let ((__tmp144918 + (__tmp144844 + (let ((__tmp144846 + (let ((__tmp144848 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '##vector-length))) - (__tmp144917 - (let () (declare (not safe)) (cons _L135801_ '())))) + (__tmp144847 + (let () (declare (not safe)) (cons _L135731_ '())))) (declare (not safe)) - (cons __tmp144918 __tmp144917))) - (__tmp144915 (let () (declare (not safe)) (cons '3 '())))) + (cons __tmp144848 __tmp144847))) + (__tmp144845 (let () (declare (not safe)) (cons '3 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp144916 - __tmp144915)))) + (cons __tmp144846 + __tmp144845)))) (declare (not safe)) - (cons __tmp144919 __tmp144914))) - _hd135767135795_) - (_g135760135774_ _g135761135778_)))) - (_g135760135774_ _g135761135778_)))) - (_g135760135774_ _g135761135778_))))) - (_g135759135816_ _$stx135756_)))))) + (cons __tmp144849 __tmp144844))) + _hd135697135725_) + (_g135690135704_ _g135691135708_)))) + (_g135690135704_ _g135691135708_)))) + (_g135690135704_ _g135691135708_))))) + (_g135689135746_ _$stx135686_)))))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 84b6f1be8..f0e213671 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -192,10 +192,8 @@ package: gerbil/expander :init! #f #f - ((:init! . gx#import-expander:::init!) - (apply-import-expander - . - gx#import-expander::apply-import-expander)))) + ((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 +238,8 @@ package: gerbil/expander :init! #f #f - ((:init! . gx#export-expander:::init!) - (apply-export-expander - . - gx#export-expander::apply-export-expander)))) + ((apply-export-expander . gx#export-expander::apply-export-expander) + (:init! . gx#export-expander:::init!)))) (declare-type gx#export-expander? (@predicate gx#export-expander::t)) (declare-type gx#make-export-expander (@constructor gx#export-expander::t)) (declare-type diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index 5c9374159..0c562a9c6 100644 --- a/src/bootstrap/gerbil/expander/module__0.scm +++ b/src/bootstrap/gerbil/expander/module__0.scm @@ -1,10 +1,10 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/module::timestamp 1707423040) + (define gerbil/expander/module::timestamp 1707565660) (begin (declare (not safe)) (define gx#module-import::t - (make-struct-type* + (make-struct-type 'gx#module-import::t 'module-import '#f @@ -13,8 +13,8 @@ '#f)) (define gx#module-import? (make-struct-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _$args155595_ - (apply make-struct-instance gx#module-import::t _$args155595_))) + (lambda _$args155525_ + (apply make-struct-instance gx#module-import::t _$args155525_))) (define gx#module-import-source (make-struct-slot-accessor gx#module-import::t 'source)) (define gx#module-import-name @@ -48,7 +48,7 @@ (define gx#&module-import-weak?-set! (make-struct-slot-unchecked-mutator gx#module-import::t 'weak?)) (define gx#module-export::t - (make-struct-type* + (make-struct-type 'gx#module-export::t 'module-export '#f @@ -57,8 +57,8 @@ '#f)) (define gx#module-export? (make-struct-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _$args155592_ - (apply make-struct-instance gx#module-export::t _$args155592_))) + (lambda _$args155522_ + (apply make-struct-instance gx#module-export::t _$args155522_))) (define gx#module-export-context (make-struct-slot-accessor gx#module-export::t 'context)) (define gx#module-export-key @@ -100,7 +100,7 @@ (define gx#&module-export-weak?-set! (make-struct-slot-unchecked-mutator gx#module-export::t 'weak?)) (define gx#import-set::t - (make-struct-type* + (make-struct-type 'gx#import-set::t 'import-set '#f @@ -109,8 +109,8 @@ '#f)) (define gx#import-set? (make-struct-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _$args155589_ - (apply make-struct-instance gx#import-set::t _$args155589_))) + (lambda _$args155519_ + (apply make-struct-instance gx#import-set::t _$args155519_))) (define gx#import-set-source (make-struct-slot-accessor gx#import-set::t 'source)) (define gx#import-set-phi @@ -136,7 +136,7 @@ (define gx#&import-set-imports-set! (make-struct-slot-unchecked-mutator gx#import-set::t 'imports)) (define gx#export-set::t - (make-struct-type* + (make-struct-type 'gx#export-set::t 'export-set '#f @@ -145,8 +145,8 @@ '#f)) (define gx#export-set? (make-struct-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _$args155586_ - (apply make-struct-instance gx#export-set::t _$args155586_))) + (lambda _$args155516_ + (apply make-struct-instance gx#export-set::t _$args155516_))) (define gx#export-set-source (make-struct-slot-accessor gx#export-set::t 'source)) (define gx#export-set-phi @@ -172,7 +172,7 @@ (define gx#&export-set-exports-set! (make-struct-slot-unchecked-mutator gx#export-set::t 'exports)) (define gx#import-expander::t - (make-class-type* + (make-class-type 'gx#import-expander::t 'import-expander (list gx#user-expander::t) @@ -181,8 +181,8 @@ ':init!)) (define gx#import-expander? (make-class-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _$args155583_ - (apply make-class-instance gx#import-expander::t _$args155583_))) + (lambda _$args155513_ + (apply make-class-instance gx#import-expander::t _$args155513_))) (define gx#import-expander-context (make-class-slot-accessor gx#import-expander::t 'context)) (define gx#import-expander-phi @@ -208,7 +208,7 @@ (define gx#&import-expander-e-set! (make-class-slot-unchecked-mutator gx#import-expander::t 'e)) (define gx#export-expander::t - (make-class-type* + (make-class-type 'gx#export-expander::t 'export-expander (list gx#user-expander::t) @@ -217,8 +217,8 @@ ':init!)) (define gx#export-expander? (make-class-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _$args155580_ - (apply make-class-instance gx#export-expander::t _$args155580_))) + (lambda _$args155510_ + (apply make-class-instance gx#export-expander::t _$args155510_))) (define gx#export-expander-context (make-class-slot-accessor gx#export-expander::t 'context)) (define gx#export-expander-phi @@ -244,7 +244,7 @@ (define gx#&export-expander-e-set! (make-class-slot-unchecked-mutator gx#export-expander::t 'e)) (define gx#import-export-expander::t - (make-class-type* + (make-class-type 'gx#import-export-expander::t 'import-export-expander (list gx#import-expander::t gx#export-expander::t) @@ -254,10 +254,10 @@ (define gx#import-export-expander? (make-class-predicate gx#import-export-expander::t)) (define gx#make-import-export-expander - (lambda _$args155577_ + (lambda _$args155507_ (apply make-class-instance gx#import-export-expander::t - _$args155577_))) + _$args155507_))) (define gx#import-export-expander-context (make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -292,290 +292,290 @@ (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 (_path155574_ _fun155575_) + (lambda (_path155504_ _fun155505_) (call-with-input-file - (cons 'path: (cons _path155574_ gx#source-file-settings)) - _fun155575_))) + (cons 'path: (cons _path155504_ gx#source-file-settings)) + _fun155505_))) (define gx#module-context:::init! - (lambda (_self155568_ _id155569_ _super155570_ _ns155571_ _path155572_) - (if (##fx< '11 (##structure-length _self155568_)) + (lambda (_self155498_ _id155499_ _super155500_ _ns155501_ _path155502_) + (if (##fx< '11 (##structure-length _self155498_)) (begin (##unchecked-structure-set! - _self155568_ - _id155569_ + _self155498_ + _id155499_ '1 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f) (##unchecked-structure-set! - _self155568_ + _self155498_ (make-table 'test: eq?) '2 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f) (##unchecked-structure-set! - _self155568_ - _super155570_ + _self155498_ + _super155500_ '3 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f) (##unchecked-structure-set! - _self155568_ + _self155498_ '#f '4 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f) (##unchecked-structure-set! - _self155568_ + _self155498_ '#f '5 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f) (##unchecked-structure-set! - _self155568_ - _ns155571_ + _self155498_ + _ns155501_ '6 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f) (##unchecked-structure-set! - _self155568_ - _path155572_ + _self155498_ + _path155502_ '7 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f) (##unchecked-structure-set! - _self155568_ + _self155498_ '() '8 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f) (##unchecked-structure-set! - _self155568_ + _self155498_ '() '9 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f) (##unchecked-structure-set! - _self155568_ + _self155498_ '#f '10 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f) (##unchecked-structure-set! - _self155568_ + _self155498_ '#f '11 - (##structure-type _self155568_) + (##structure-type _self155498_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self155568_ + _self155498_ '11 - (##vector-length _self155568_))))) + (##vector-length _self155498_))))) (bind-method! gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_self155412_ _ctx155413_ _root155414_) - (let ((_super155422_ - (let ((_$e155416_ _root155414_)) - (if _$e155416_ - _$e155416_ - (let ((_$e155419_ (gx#core-context-root__0))) - (if _$e155419_ - _$e155419_ - (let ((__obj159831 - (make-object* gx#root-context::t '3))) - (let ((__constructor159832 + (lambda (_self155342_ _ctx155343_ _root155344_) + (let ((_super155352_ + (let ((_$e155346_ _root155344_)) + (if _$e155346_ + _$e155346_ + (let ((_$e155349_ (gx#core-context-root__0))) + (if _$e155349_ + _$e155349_ + (let ((__obj159761 + (make-object gx#root-context::t '3))) + (let ((__constructor159762 (find-method gx#root-context::t ':init!))) - (if __constructor159832 - (__constructor159832 __obj159831) + (if __constructor159762 + (__constructor159762 __obj159761) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj159831))))))) - (if _ctx155413_ - (let ((_id155425_ + __obj159761))))))) + (if _ctx155343_ + (let ((_id155355_ (##structure-ref - _ctx155413_ + _ctx155343_ '1 gx#expander-context::t '#f)) - (_path155426_ - (##structure-ref _ctx155413_ '7 gx#module-context::t '#f)) - (_in155427_ + (_path155356_ + (##structure-ref _ctx155343_ '7 gx#module-context::t '#f)) + (_in155357_ (map gx#core-module-export->import (##structure-ref - _ctx155413_ + _ctx155343_ '9 gx#module-context::t '#f))) - (_e155428_ - (make-promise (lambda () (gx#eval-module _ctx155413_))))) - (if (##fx< '8 (##structure-length _self155412_)) + (_e155358_ + (make-promise (lambda () (gx#eval-module _ctx155343_))))) + (if (##fx< '8 (##structure-length _self155342_)) (begin (##unchecked-structure-set! - _self155412_ - _id155425_ + _self155342_ + _id155355_ '1 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ - (make-table 'test: eq? 'size: (length _in155427_)) + _self155342_ + (make-table 'test: eq? 'size: (length _in155357_)) '2 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ - _super155422_ + _self155342_ + _super155352_ '3 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ + _self155342_ '#f '4 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ + _self155342_ '#f '5 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ - _path155426_ + _self155342_ + _path155356_ '6 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ - _in155427_ + _self155342_ + _in155357_ '7 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ - _e155428_ + _self155342_ + _e155358_ '8 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self155412_ + _self155342_ '8 - (##vector-length _self155412_))) + (##vector-length _self155342_))) (for-each - (lambda (_g155429155431_) - (gx#core-bind-weak-import!__% _g155429155431_ _self155412_)) - _in155427_)) - (if (##fx< '8 (##structure-length _self155412_)) + (lambda (_g155359155361_) + (gx#core-bind-weak-import!__% _g155359155361_ _self155342_)) + _in155357_)) + (if (##fx< '8 (##structure-length _self155342_)) (begin (##unchecked-structure-set! - _self155412_ + _self155342_ '#f '1 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ + _self155342_ (make-table 'test: eq?) '2 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ - _super155422_ + _self155342_ + _super155352_ '3 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ + _self155342_ '#f '4 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ + _self155342_ '#f '5 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ + _self155342_ '#f '6 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ + _self155342_ '() '7 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f) (##unchecked-structure-set! - _self155412_ + _self155342_ '#f '8 - (##structure-type _self155412_) + (##structure-type _self155342_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self155412_ + _self155342_ '8 - (##vector-length _self155412_))))))) + (##vector-length _self155342_))))))) (define gx#prelude-context:::init!__0 - (lambda (_self155437_ _ctx155438_) - (let ((_root155440_ '#f)) + (lambda (_self155367_ _ctx155368_) + (let ((_root155370_ '#f)) (gx#prelude-context:::init!__% - _self155437_ - _ctx155438_ - _root155440_)))) + _self155367_ + _ctx155368_ + _root155370_)))) (define gx#prelude-context:::init! - (lambda _g159838_ - (let ((_g159837_ (##length _g159838_))) - (cond ((##fx= _g159837_ 2) - (apply (lambda (_self155437_ _ctx155438_) + (lambda _g159768_ + (let ((_g159767_ (##length _g159768_))) + (cond ((##fx= _g159767_ 2) + (apply (lambda (_self155367_ _ctx155368_) (gx#prelude-context:::init!__0 - _self155437_ - _ctx155438_)) - _g159838_)) - ((##fx= _g159837_ 3) - (apply (lambda (_self155442_ _ctx155443_ _root155444_) + _self155367_ + _ctx155368_)) + _g159768_)) + ((##fx= _g159767_ 3) + (apply (lambda (_self155372_ _ctx155373_ _root155374_) (gx#prelude-context:::init!__% - _self155442_ - _ctx155443_ - _root155444_)) - _g159838_)) + _self155372_ + _ctx155373_ + _root155374_)) + _g159768_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g159838_)))))) + _g159768_)))))) (bind-method! gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_self155286_ _e155287_) - (if (##fx< '3 (##structure-length _self155286_)) + (lambda (_self155216_ _e155217_) + (if (##fx< '3 (##structure-length _self155216_)) (begin (##unchecked-structure-set! - _self155286_ - _e155287_ + _self155216_ + _e155217_ '1 - (##structure-type _self155286_) + (##structure-type _self155216_) '#f) (##unchecked-structure-set! - _self155286_ + _self155216_ (gx#current-expander-context) '2 - (##structure-type _self155286_) + (##structure-type _self155216_) '#f) (##unchecked-structure-set! - _self155286_ + _self155216_ (fx- (gx#current-expander-phi) '1) '3 - (##structure-type _self155286_) + (##structure-type _self155216_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self155286_ + _self155216_ '3 - (##vector-length _self155286_))))) + (##vector-length _self155216_))))) (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!) @@ -587,10 +587,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_g154912154915_ _g154913154917_) + (lambda (_g154842154845_ _g154843154847_) (gx#core-apply-user-expander__% - _g154912154915_ - _g154913154917_ + _g154842154845_ + _g154843154847_ 'apply-import-expander))) (bind-method! gx#import-expander::t @@ -598,10 +598,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_g154783154786_ _g154784154788_) + (lambda (_g154713154716_ _g154714154718_) (gx#core-apply-user-expander__% - _g154783154786_ - _g154784154788_ + _g154713154716_ + _g154714154718_ 'apply-export-expander))) (bind-method! gx#export-expander::t @@ -609,214 +609,214 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_ctx154654_) - (let* ((_path154656_ - (##structure-ref _ctx154654_ '7 gx#module-context::t '#f)) - (_path154658_ - (if (pair? _path154656_) (last _path154656_) _path154656_))) - (if (string? _path154658_) _path154658_ '#f)))) + (lambda (_ctx154584_) + (let* ((_path154586_ + (##structure-ref _ctx154584_ '7 gx#module-context::t '#f)) + (_path154588_ + (if (pair? _path154586_) (last _path154586_) _path154586_))) + (if (string? _path154588_) _path154588_ '#f)))) (define gx#import-module__% - (lambda (_path154630_ _reload?154631_ _eval?154632_) - (let ((_ctx154634_ + (lambda (_path154560_ _reload?154561_ _eval?154562_) + (let ((_ctx154564_ ((gx#current-expander-module-import) - _path154630_ - _reload?154631_))) - (if (and _ctx154634_ _eval?154632_) - (gx#eval-module _ctx154634_) + _path154560_ + _reload?154561_))) + (if (and _ctx154564_ _eval?154562_) + (gx#eval-module _ctx154564_) '#!void) - _ctx154634_))) + _ctx154564_))) (define gx#import-module__0 - (lambda (_path154639_) - (let* ((_reload?154641_ '#f) (_eval?154643_ '#f)) - (gx#import-module__% _path154639_ _reload?154641_ _eval?154643_)))) + (lambda (_path154569_) + (let* ((_reload?154571_ '#f) (_eval?154573_ '#f)) + (gx#import-module__% _path154569_ _reload?154571_ _eval?154573_)))) (define gx#import-module__1 - (lambda (_path154645_ _reload?154646_) - (let ((_eval?154648_ '#f)) - (gx#import-module__% _path154645_ _reload?154646_ _eval?154648_)))) + (lambda (_path154575_ _reload?154576_) + (let ((_eval?154578_ '#f)) + (gx#import-module__% _path154575_ _reload?154576_ _eval?154578_)))) (define gx#import-module - (lambda _g159840_ - (let ((_g159839_ (##length _g159840_))) - (cond ((##fx= _g159839_ 1) - (apply (lambda (_path154639_) - (gx#import-module__0 _path154639_)) - _g159840_)) - ((##fx= _g159839_ 2) - (apply (lambda (_path154645_ _reload?154646_) - (gx#import-module__1 _path154645_ _reload?154646_)) - _g159840_)) - ((##fx= _g159839_ 3) - (apply (lambda (_path154650_ _reload?154651_ _eval?154652_) + (lambda _g159770_ + (let ((_g159769_ (##length _g159770_))) + (cond ((##fx= _g159769_ 1) + (apply (lambda (_path154569_) + (gx#import-module__0 _path154569_)) + _g159770_)) + ((##fx= _g159769_ 2) + (apply (lambda (_path154575_ _reload?154576_) + (gx#import-module__1 _path154575_ _reload?154576_)) + _g159770_)) + ((##fx= _g159769_ 3) + (apply (lambda (_path154580_ _reload?154581_ _eval?154582_) (gx#import-module__% - _path154650_ - _reload?154651_ - _eval?154652_)) - _g159840_)) + _path154580_ + _reload?154581_ + _eval?154582_)) + _g159770_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g159840_)))))) + _g159770_)))))) (define gx#eval-module - (lambda (_mod154627_) ((gx#current-expander-module-eval) _mod154627_))) + (lambda (_mod154557_) ((gx#current-expander-module-eval) _mod154557_))) (define gx#core-eval-module - (lambda (_obj154612_) - (letrec ((_force-e154614_ - (lambda (_getf154623_ _e154624_) + (lambda (_obj154542_) + (letrec ((_force-e154544_ + (lambda (_getf154553_ _e154554_) (call-with-parameters - (lambda () (force (_getf154623_ _e154624_))) + (lambda () (force (_getf154553_ _e154554_))) gx#current-expander-context - _e154624_ + _e154554_ gx#current-expander-phi '0)))) - (let _recur154616_ ((_e154618_ _obj154612_)) - (if (##structure-instance-of? _e154618_ 'gx#module-context::t) + (let _recur154546_ ((_e154548_ _obj154542_)) + (if (##structure-instance-of? _e154548_ 'gx#module-context::t) (begin - (let ((_$e154620_ (gx#core-context-prelude__% _e154618_))) - (if _$e154620_ (_recur154616_ _$e154620_) '#!void)) - (_force-e154614_ gx#module-context-e _e154618_)) - (if (##structure-instance-of? _e154618_ 'gx#prelude-context::t) - (_force-e154614_ gx#prelude-context-e _e154618_) - (if (gx#stx-string? _e154618_) - (_recur154616_ + (let ((_$e154550_ (gx#core-context-prelude__% _e154548_))) + (if _$e154550_ (_recur154546_ _$e154550_) '#!void)) + (_force-e154544_ gx#module-context-e _e154548_)) + (if (##structure-instance-of? _e154548_ 'gx#prelude-context::t) + (_force-e154544_ gx#prelude-context-e _e154548_) + (if (gx#stx-string? _e154548_) + (_recur154546_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _e154618_))) - (if (gx#core-library-module-path? _e154618_) - (_recur154616_ + (gx#core-resolve-module-path__0 _e154548_))) + (if (gx#core-library-module-path? _e154548_) + (_recur154546_ (gx#import-module__0 - (gx#core-resolve-library-module-path _e154618_))) - (error '"Cannot eval module" _obj154612_))))))))) + (gx#core-resolve-library-module-path _e154548_))) + (error '"Cannot eval module" _obj154542_))))))))) (define gx#core-context-prelude__% - (lambda (_ctx154595_) - (let _lp154597_ ((_e154599_ _ctx154595_)) - (if (or (##structure-instance-of? _e154599_ 'gx#module-context::t) - (##structure-instance-of? _e154599_ 'gx#local-context::t)) - (_lp154597_ - (##unchecked-structure-ref _e154599_ '3 gx#phi-context::t '#f)) - (if (##structure-instance-of? _e154599_ 'gx#prelude-context::t) - _e154599_ + (lambda (_ctx154525_) + (let _lp154527_ ((_e154529_ _ctx154525_)) + (if (or (##structure-instance-of? _e154529_ 'gx#module-context::t) + (##structure-instance-of? _e154529_ 'gx#local-context::t)) + (_lp154527_ + (##unchecked-structure-ref _e154529_ '3 gx#phi-context::t '#f)) + (if (##structure-instance-of? _e154529_ 'gx#prelude-context::t) + _e154529_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_ctx154608_ (gx#current-expander-context))) - (gx#core-context-prelude__% _ctx154608_)))) + (let ((_ctx154538_ (gx#current-expander-context))) + (gx#core-context-prelude__% _ctx154538_)))) (define gx#core-context-prelude - (lambda _g159842_ - (let ((_g159841_ (##length _g159842_))) - (cond ((##fx= _g159841_ 0) - (apply (lambda () (gx#core-context-prelude__0)) _g159842_)) - ((##fx= _g159841_ 1) - (apply (lambda (_ctx154610_) - (gx#core-context-prelude__% _ctx154610_)) - _g159842_)) + (lambda _g159772_ + (let ((_g159771_ (##length _g159772_))) + (cond ((##fx= _g159771_ 0) + (apply (lambda () (gx#core-context-prelude__0)) _g159772_)) + ((##fx= _g159771_ 1) + (apply (lambda (_ctx154540_) + (gx#core-context-prelude__% _ctx154540_)) + _g159772_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g159842_)))))) + _g159772_)))))) (define gx#core-module->prelude-context - (lambda (_ctx154585_) - (let* ((_ht154587_ (gx#current-expander-module-registry)) - (_$e154589_ (table-ref _ht154587_ _ctx154585_ '#f))) - (if _$e154589_ - (values _$e154589_) - (let ((_pre154592_ - (let ((__obj159833 - (make-object* gx#prelude-context::t '9))) - (gx#prelude-context:::init! __obj159833 _ctx154585_) - __obj159833))) - (table-set! _ht154587_ _ctx154585_ _pre154592_) - _pre154592_))))) + (lambda (_ctx154515_) + (let* ((_ht154517_ (gx#current-expander-module-registry)) + (_$e154519_ (table-ref _ht154517_ _ctx154515_ '#f))) + (if _$e154519_ + (values _$e154519_) + (let ((_pre154522_ + (let ((__obj159763 + (make-object gx#prelude-context::t '9))) + (gx#prelude-context:::init! __obj159763 _ctx154515_) + __obj159763))) + (table-set! _ht154517_ _ctx154515_ _pre154522_) + _pre154522_))))) (define gx#core-import-module__% - (lambda (_rpath154466_ _reload?154467_) - (letrec ((_import-source154469_ - (lambda (_path154554_) - (if (member _path154554_ (gx#current-expander-path)) - (error '"Cyclic expansion" _path154554_) + (lambda (_rpath154396_ _reload?154397_) + (letrec ((_import-source154399_ + (lambda (_path154484_) + (if (member _path154484_ (gx#current-expander-path)) + (error '"Cyclic expansion" _path154484_) '#!void) (call-with-parameters (lambda () - (let ((_g159843_ (gx#core-read-module _path154554_))) + (let ((_g159773_ (gx#core-read-module _path154484_))) (begin - (let ((_g159844_ - (if (##values? _g159843_) - (##vector-length _g159843_) + (let ((_g159774_ + (if (##values? _g159773_) + (##vector-length _g159773_) 1))) - (if (not (##fx= _g159844_ 4)) - (error "Context expects 4 values" _g159844_))) - (let ((_pre154557_ (##vector-ref _g159843_ 0)) - (_id154558_ (##vector-ref _g159843_ 1)) - (_ns154559_ (##vector-ref _g159843_ 2)) - (_body154560_ (##vector-ref _g159843_ 3))) - (let* ((_prelude154565_ + (if (not (##fx= _g159774_ 4)) + (error "Context expects 4 values" _g159774_))) + (let ((_pre154487_ (##vector-ref _g159773_ 0)) + (_id154488_ (##vector-ref _g159773_ 1)) + (_ns154489_ (##vector-ref _g159773_ 2)) + (_body154490_ (##vector-ref _g159773_ 3))) + (let* ((_prelude154495_ (if (##structure-instance-of? - _pre154557_ + _pre154487_ 'gx#prelude-context::t) - _pre154557_ + _pre154487_ (if (##structure-instance-of? - _pre154557_ + _pre154487_ 'gx#module-context::t) (gx#core-module->prelude-context - _pre154557_) - (if (string? _pre154557_) + _pre154487_) + (if (string? _pre154487_) (gx#core-module->prelude-context (gx#core-import-module__0 - _pre154557_)) - (if (not _pre154557_) - (let ((_$e154562_ + _pre154487_)) + (if (not _pre154487_) + (let ((_$e154492_ (gx#current-expander-module-prelude))) - (if _$e154562_ - _$e154562_ - (let ((__obj159834 + (if _$e154492_ + _$e154492_ + (let ((__obj159764 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (make-object* gx#prelude-context::t '9))) - (gx#prelude-context:::init! __obj159834 '#f) - __obj159834))) + (make-object gx#prelude-context::t '9))) + (gx#prelude-context:::init! __obj159764 '#f) + __obj159764))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Cannot import module; unknown prelude" - _rpath154466_ - _pre154557_)))))) - (_ctx154567_ - (let ((__obj159835 - (make-object* + _rpath154396_ + _pre154487_)))))) + (_ctx154497_ + (let ((__obj159765 + (make-object gx#module-context::t '12))) (gx#module-context:::init! - __obj159835 - _id154558_ - _prelude154565_ - _ns154559_ - _path154554_) - __obj159835)) - (_body154569_ + __obj159765 + _id154488_ + _prelude154495_ + _ns154489_ + _path154484_) + __obj159765)) + (_body154499_ (gx#core-expand-module-begin - _body154560_ - _ctx154567_)) - (_body154571_ + _body154490_ + _ctx154497_)) + (_body154501_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _body154569_) - _path154554_ - _ctx154567_ + (gx#core-cons '%#begin _body154499_) + _path154484_ + _ctx154497_ '()))) (##unchecked-structure-set! - _ctx154567_ + _ctx154497_ (make-promise - (lambda () (gx#eval-syntax* _body154571_))) + (lambda () (gx#eval-syntax* _body154501_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx154567_ - _body154571_ + _ctx154497_ + _body154501_ '11 gx#module-context::t '#f) (table-set! (gx#current-expander-module-registry) - _path154554_ - _ctx154567_) + _path154484_ + _ctx154497_) (table-set! (gx#current-expander-module-registry) - _id154558_ - _ctx154567_) - _ctx154567_))))) + _id154488_ + _ctx154497_) + _ctx154497_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -824,2197 +824,2197 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _path154554_ (gx#current-expander-path)) + (cons _path154484_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_import-submodule154470_ - (lambda (_rpath154482_) - (let* ((_rpath154483154490_ _rpath154482_) - (_E154485154494_ + (_import-submodule154400_ + (lambda (_rpath154412_) + (let* ((_rpath154413154420_ _rpath154412_) + (_E154415154424_ (lambda () (error '"No clause matching" - _rpath154483154490_))) - (_K154486154542_ - (lambda (_refs154497_ _origin154498_) - (let ((_ctx154500_ - (if _origin154498_ + _rpath154413154420_))) + (_K154416154472_ + (lambda (_refs154427_ _origin154428_) + (let ((_ctx154430_ + (if _origin154428_ (gx#core-import-module__% - _origin154498_ - _reload?154467_) + _origin154428_ + _reload?154397_) (gx#current-expander-context)))) - (let _lp154502_ ((_rest154504_ _refs154497_) - (_ctx154505_ _ctx154500_)) - (let* ((_rest154506154514_ _rest154504_) - (_else154508154522_ - (lambda () _ctx154505_)) - (_K154510154530_ - (lambda (_rest154525_ _id154526_) - (let ((_bind154528_ + (let _lp154432_ ((_rest154434_ _refs154427_) + (_ctx154435_ _ctx154430_)) + (let* ((_rest154436154444_ _rest154434_) + (_else154438154452_ + (lambda () _ctx154435_)) + (_K154440154460_ + (lambda (_rest154455_ _id154456_) + (let ((_bind154458_ (gx#resolve-identifier__% - _id154526_ + _id154456_ '0 - _ctx154505_))) + _ctx154435_))) (if (and (##structure-direct-instance-of? - _bind154528_ + _bind154458_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind154528_ + _bind154458_ '4 gx#syntax-binding::t '#f) 'gx#module-context::t)) - (_lp154502_ - _rest154525_ + (_lp154432_ + _rest154455_ (##unchecked-structure-ref - _bind154528_ + _bind154458_ '4 gx#syntax-binding::t '#f)) (error '"Cannot import submodule; not bound as a module" - _rpath154482_ - _id154526_ - _bind154528_)))))) - (if (##pair? _rest154506154514_) - (let ((_hd154511154533_ - (##car _rest154506154514_)) - (_tl154512154535_ - (##cdr _rest154506154514_))) - (let* ((_id154538_ _hd154511154533_) - (_rest154540_ - _tl154512154535_)) - (_K154510154530_ - _rest154540_ - _id154538_))) - (_else154508154522_)))))))) - (if (##pair? _rpath154483154490_) - (let ((_hd154487154545_ (##car _rpath154483154490_)) - (_tl154488154547_ (##cdr _rpath154483154490_))) - (let* ((_origin154550_ _hd154487154545_) - (_refs154552_ _tl154488154547_)) - (_K154486154542_ _refs154552_ _origin154550_))) - (_E154485154494_)))))) - (let ((_$e154472_ - (if (not _reload?154467_) + _rpath154412_ + _id154456_ + _bind154458_)))))) + (if (##pair? _rest154436154444_) + (let ((_hd154441154463_ + (##car _rest154436154444_)) + (_tl154442154465_ + (##cdr _rest154436154444_))) + (let* ((_id154468_ _hd154441154463_) + (_rest154470_ + _tl154442154465_)) + (_K154440154460_ + _rest154470_ + _id154468_))) + (_else154438154452_)))))))) + (if (##pair? _rpath154413154420_) + (let ((_hd154417154475_ (##car _rpath154413154420_)) + (_tl154418154477_ (##cdr _rpath154413154420_))) + (let* ((_origin154480_ _hd154417154475_) + (_refs154482_ _tl154418154477_)) + (_K154416154472_ _refs154482_ _origin154480_))) + (_E154415154424_)))))) + (let ((_$e154402_ + (if (not _reload?154397_) (table-ref (gx#current-expander-module-registry) - _rpath154466_ + _rpath154396_ '#f) '#f))) - (if _$e154472_ - (values _$e154472_) - (if (list? _rpath154466_) - (_import-submodule154470_ _rpath154466_) - (if (gx#core-library-module-path? _rpath154466_) - (let ((_ctx154475_ + (if _$e154402_ + (values _$e154402_) + (if (list? _rpath154396_) + (_import-submodule154400_ _rpath154396_) + (if (gx#core-library-module-path? _rpath154396_) + (let ((_ctx154405_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _rpath154466_) - _reload?154467_))) + _rpath154396_) + _reload?154397_))) (table-set! (gx#current-expander-module-registry) - _rpath154466_ - _ctx154475_) - _ctx154475_) - (let* ((_npath154477_ (path-normalize _rpath154466_)) - (_$e154479_ - (if (not _reload?154467_) + _rpath154396_ + _ctx154405_) + _ctx154405_) + (let* ((_npath154407_ (path-normalize _rpath154396_)) + (_$e154409_ + (if (not _reload?154397_) (table-ref (gx#current-expander-module-registry) - _npath154477_ + _npath154407_ '#f) '#f))) - (if _$e154479_ - (values _$e154479_) - (_import-source154469_ _npath154477_)))))))))) + (if _$e154409_ + (values _$e154409_) + (_import-source154399_ _npath154407_)))))))))) (define gx#core-import-module__0 - (lambda (_rpath154578_) - (let ((_reload?154580_ '#f)) - (gx#core-import-module__% _rpath154578_ _reload?154580_)))) + (lambda (_rpath154508_) + (let ((_reload?154510_ '#f)) + (gx#core-import-module__% _rpath154508_ _reload?154510_)))) (define gx#core-import-module - (lambda _g159846_ - (let ((_g159845_ (##length _g159846_))) - (cond ((##fx= _g159845_ 1) - (apply (lambda (_rpath154578_) - (gx#core-import-module__0 _rpath154578_)) - _g159846_)) - ((##fx= _g159845_ 2) - (apply (lambda (_rpath154582_ _reload?154583_) + (lambda _g159776_ + (let ((_g159775_ (##length _g159776_))) + (cond ((##fx= _g159775_ 1) + (apply (lambda (_rpath154508_) + (gx#core-import-module__0 _rpath154508_)) + _g159776_)) + ((##fx= _g159775_ 2) + (apply (lambda (_rpath154512_ _reload?154513_) (gx#core-import-module__% - _rpath154582_ - _reload?154583_)) - _g159846_)) + _rpath154512_ + _reload?154513_)) + _g159776_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g159846_)))))) + _g159776_)))))) (define gx#core-read-module - (lambda (_path154455_) + (lambda (_path154385_) (with-catch - (lambda (_exn154457_) - (if (and (datum-parsing-exception? _exn154457_) - (eq? (datum-parsing-exception-filepos _exn154457_) '0)) - (gx#core-read-module/lang _path154455_) + (lambda (_exn154387_) + (if (and (datum-parsing-exception? _exn154387_) + (eq? (datum-parsing-exception-filepos _exn154387_) '0)) + (gx#core-read-module/lang _path154385_) (gx#raise-syntax-error 'read-module '"error reading module" - _path154455_ + _path154385_ (call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_g154459154461_) - (display-exception _exn154457_ _g154459154461_)))) + (lambda (_g154389154391_) + (display-exception _exn154387_ _g154389154391_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _path154455_))))) + (lambda () (gx#core-read-module/sexp _path154385_))))) (define gx#core-read-module/sexp - (lambda (_path154318_) - (let _lp154320_ ((_body154322_ (read-syntax-from-file _path154318_)) - (_pre154323_ '#f) - (_ns154324_ '#f) - (_pkg154325_ '#f)) - (let* ((_e154326154350_ _body154322_) - (_E154342154372_ + (lambda (_path154248_) + (let _lp154250_ ((_body154252_ (read-syntax-from-file _path154248_)) + (_pre154253_ '#f) + (_ns154254_ '#f) + (_pkg154255_ '#f)) + (let* ((_e154256154280_ _body154252_) + (_E154272154302_ (lambda () - (let ((_g159847_ - (if _pkg154325_ - (values _pre154323_ _ns154324_ _pkg154325_) + (let ((_g159777_ + (if _pkg154255_ + (values _pre154253_ _ns154254_ _pkg154255_) (gx#core-read-module-package - _path154318_ - _pre154323_ - _ns154324_)))) + _path154248_ + _pre154253_ + _ns154254_)))) (begin - (let ((_g159848_ - (if (##values? _g159847_) - (##vector-length _g159847_) + (let ((_g159778_ + (if (##values? _g159777_) + (##vector-length _g159777_) 1))) - (if (not (##fx= _g159848_ 3)) - (error "Context expects 3 values" _g159848_))) - (let ((_pre154354_ (##vector-ref _g159847_ 0)) - (_ns154355_ (##vector-ref _g159847_ 1)) - (_pkg154356_ (##vector-ref _g159847_ 2))) - (let* ((_prelude154358_ + (if (not (##fx= _g159778_ 3)) + (error "Context expects 3 values" _g159778_))) + (let ((_pre154284_ (##vector-ref _g159777_ 0)) + (_ns154285_ (##vector-ref _g159777_ 1)) + (_pkg154286_ (##vector-ref _g159777_ 2))) + (let* ((_prelude154288_ (if (gx#core-bound-module-prelude? - _pre154354_) - (gx#syntax-local-e__0 _pre154354_) + _pre154284_) + (gx#syntax-local-e__0 _pre154284_) (if (gx#core-library-module-path? - _pre154354_) + _pre154284_) (gx#core-resolve-library-module-path - _pre154354_) - (if (gx#stx-string? _pre154354_) + _pre154284_) + (if (gx#stx-string? _pre154284_) (gx#core-resolve-module-path__% - _pre154354_ - _path154318_) - (gx#stx-e _pre154354_))))) - (_path-id154360_ + _pre154284_ + _path154248_) + (gx#stx-e _pre154284_))))) + (_path-id154290_ (gx#core-module-path->namespace - _path154318_)) - (_pkg-id154362_ - (if _pkg154356_ + _path154248_)) + (_pkg-id154292_ + (if _pkg154286_ (string-append - _pkg154356_ + _pkg154286_ '"/" - _path-id154360_) - _path-id154360_)) - (_module-id154364_ - (string->symbol _pkg-id154362_)) - (_module-ns154369_ - (if (eq? _ns154355_ '#!void) + _path-id154290_) + _path-id154290_)) + (_module-id154294_ + (string->symbol _pkg-id154292_)) + (_module-ns154299_ + (if (eq? _ns154285_ '#!void) '#f - (let ((_$e154366_ _ns154355_)) - (if _$e154366_ - _$e154366_ - _pkg-id154362_))))) - (values _prelude154358_ - _module-id154364_ - _module-ns154369_ - _body154322_))))))) - (_E154335154401_ + (let ((_$e154296_ _ns154285_)) + (if _$e154296_ + _$e154296_ + _pkg-id154292_))))) + (values _prelude154288_ + _module-id154294_ + _module-ns154299_ + _body154252_))))))) + (_E154265154331_ (lambda () - (if (gx#stx-pair? _e154326154350_) - (let ((_e154343154376_ (gx#syntax-e _e154326154350_))) - (let ((_hd154344154379_ (##car _e154343154376_)) - (_tl154345154381_ (##cdr _e154343154376_))) - (if (eq? (gx#stx-e _hd154344154379_) 'package:) - (if (gx#stx-pair? _tl154345154381_) - (let ((_e154346154384_ - (gx#syntax-e _tl154345154381_))) - (let ((_hd154347154387_ - (##car _e154346154384_)) - (_tl154348154389_ - (##cdr _e154346154384_))) - (let* ((_pkg154392_ _hd154347154387_) - (_rest154394_ _tl154348154389_)) + (if (gx#stx-pair? _e154256154280_) + (let ((_e154273154306_ (gx#syntax-e _e154256154280_))) + (let ((_hd154274154309_ (##car _e154273154306_)) + (_tl154275154311_ (##cdr _e154273154306_))) + (if (eq? (gx#stx-e _hd154274154309_) 'package:) + (if (gx#stx-pair? _tl154275154311_) + (let ((_e154276154314_ + (gx#syntax-e _tl154275154311_))) + (let ((_hd154277154317_ + (##car _e154276154314_)) + (_tl154278154319_ + (##cdr _e154276154314_))) + (let* ((_pkg154322_ _hd154277154317_) + (_rest154324_ _tl154278154319_)) (if '#t - (let ((_pkg154399_ + (let ((_pkg154329_ (if (gx#identifier? - _pkg154392_) + _pkg154322_) (symbol->string (gx#stx-e - _pkg154392_)) + _pkg154322_)) (if (or (gx#stx-string? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pkg154392_) - (gx#stx-false? _pkg154392_)) - (gx#stx-e _pkg154392_) + _pkg154322_) + (gx#stx-false? _pkg154322_)) + (gx#stx-e _pkg154322_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _pkg154392_))))) + _pkg154322_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp154320_ - _rest154394_ - _pre154323_ - _ns154324_ - _pkg154399_)) - (_E154342154372_))))) - (_E154342154372_)) - (_E154342154372_)))) - (_E154342154372_)))) - (_E154328154427_ + (_lp154250_ + _rest154324_ + _pre154253_ + _ns154254_ + _pkg154329_)) + (_E154272154302_))))) + (_E154272154302_)) + (_E154272154302_)))) + (_E154272154302_)))) + (_E154258154357_ (lambda () - (if (gx#stx-pair? _e154326154350_) - (let ((_e154336154405_ (gx#syntax-e _e154326154350_))) - (let ((_hd154337154408_ (##car _e154336154405_)) - (_tl154338154410_ (##cdr _e154336154405_))) - (if (eq? (gx#stx-e _hd154337154408_) 'namespace:) - (if (gx#stx-pair? _tl154338154410_) - (let ((_e154339154413_ - (gx#syntax-e _tl154338154410_))) - (let ((_hd154340154416_ - (##car _e154339154413_)) - (_tl154341154418_ - (##cdr _e154339154413_))) - (let* ((_ns154421_ _hd154340154416_) - (_rest154423_ _tl154341154418_)) + (if (gx#stx-pair? _e154256154280_) + (let ((_e154266154335_ (gx#syntax-e _e154256154280_))) + (let ((_hd154267154338_ (##car _e154266154335_)) + (_tl154268154340_ (##cdr _e154266154335_))) + (if (eq? (gx#stx-e _hd154267154338_) 'namespace:) + (if (gx#stx-pair? _tl154268154340_) + (let ((_e154269154343_ + (gx#syntax-e _tl154268154340_))) + (let ((_hd154270154346_ + (##car _e154269154343_)) + (_tl154271154348_ + (##cdr _e154269154343_))) + (let* ((_ns154351_ _hd154270154346_) + (_rest154353_ _tl154271154348_)) (if '#t - (let ((_ns154425_ + (let ((_ns154355_ (if (gx#identifier? - _ns154421_) + _ns154351_) (symbol->string (gx#stx-e - _ns154421_)) + _ns154351_)) (if (gx#stx-string? - _ns154421_) + _ns154351_) (gx#stx-e - _ns154421_) + _ns154351_) (if (gx#stx-false? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ns154421_) + _ns154351_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _ns154421_)))))) + _ns154351_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp154320_ - _rest154423_ - _pre154323_ - _ns154425_ - _pkg154325_)) - (_E154335154401_))))) - (_E154335154401_)) - (_E154335154401_)))) - (_E154335154401_)))) - (_E154327154451_ + (_lp154250_ + _rest154353_ + _pre154253_ + _ns154355_ + _pkg154255_)) + (_E154265154331_))))) + (_E154265154331_)) + (_E154265154331_)))) + (_E154265154331_)))) + (_E154257154381_ (lambda () - (if (gx#stx-pair? _e154326154350_) - (let ((_e154329154431_ (gx#syntax-e _e154326154350_))) - (let ((_hd154330154434_ (##car _e154329154431_)) - (_tl154331154436_ (##cdr _e154329154431_))) - (if (eq? (gx#stx-e _hd154330154434_) 'prelude:) - (if (gx#stx-pair? _tl154331154436_) - (let ((_e154332154439_ - (gx#syntax-e _tl154331154436_))) - (let ((_hd154333154442_ - (##car _e154332154439_)) - (_tl154334154444_ - (##cdr _e154332154439_))) - (let* ((_prelude154447_ - _hd154333154442_) - (_rest154449_ _tl154334154444_)) + (if (gx#stx-pair? _e154256154280_) + (let ((_e154259154361_ (gx#syntax-e _e154256154280_))) + (let ((_hd154260154364_ (##car _e154259154361_)) + (_tl154261154366_ (##cdr _e154259154361_))) + (if (eq? (gx#stx-e _hd154260154364_) 'prelude:) + (if (gx#stx-pair? _tl154261154366_) + (let ((_e154262154369_ + (gx#syntax-e _tl154261154366_))) + (let ((_hd154263154372_ + (##car _e154262154369_)) + (_tl154264154374_ + (##cdr _e154262154369_))) + (let* ((_prelude154377_ + _hd154263154372_) + (_rest154379_ _tl154264154374_)) (if '#t - (_lp154320_ - _rest154449_ - _prelude154447_ - _ns154324_ - _pkg154325_) - (_E154328154427_))))) - (_E154328154427_)) - (_E154328154427_)))) - (_E154328154427_))))) - (_E154327154451_))))) + (_lp154250_ + _rest154379_ + _prelude154377_ + _ns154254_ + _pkg154255_) + (_E154258154357_))))) + (_E154258154357_)) + (_E154258154357_)))) + (_E154258154357_))))) + (_E154257154381_))))) (define gx#core-read-module/lang - (lambda (_path154145_) - (letrec ((_default-read-module-body154147_ - (lambda (_inp154310_) - (let _lp154312_ ((_body154314_ '())) - (let ((_next154316_ (read-syntax _inp154310_))) - (if (eof-object? _next154316_) - (reverse _body154314_) - (_lp154312_ (cons _next154316_ _body154314_))))))) - (_read-body154148_ - (lambda (_inp154229_ - _pre154230_ - _ns154231_ - _pkg154232_ - _args154233_) - (let ((_g159849_ - (if _pkg154232_ - (values _pre154230_ _ns154231_ _pkg154232_) + (lambda (_path154075_) + (letrec ((_default-read-module-body154077_ + (lambda (_inp154240_) + (let _lp154242_ ((_body154244_ '())) + (let ((_next154246_ (read-syntax _inp154240_))) + (if (eof-object? _next154246_) + (reverse _body154244_) + (_lp154242_ (cons _next154246_ _body154244_))))))) + (_read-body154078_ + (lambda (_inp154159_ + _pre154160_ + _ns154161_ + _pkg154162_ + _args154163_) + (let ((_g159779_ + (if _pkg154162_ + (values _pre154160_ _ns154161_ _pkg154162_) (gx#core-read-module-package - _path154145_ - _pre154230_ - _ns154231_)))) + _path154075_ + _pre154160_ + _ns154161_)))) (begin - (let ((_g159850_ - (if (##values? _g159849_) - (##vector-length _g159849_) + (let ((_g159780_ + (if (##values? _g159779_) + (##vector-length _g159779_) 1))) - (if (not (##fx= _g159850_ 3)) - (error "Context expects 3 values" _g159850_))) - (let ((_pre154235_ (##vector-ref _g159849_ 0)) - (_ns154236_ (##vector-ref _g159849_ 1)) - (_pkg154237_ (##vector-ref _g159849_ 2))) - (let* ((_prelude154239_ - (gx#import-module__0 _pre154235_)) - (_read-module-body154293_ - (let ((_$e154285_ - (find (lambda (_e154240154242_) - (let* ((_g154244154254_ - _e154240154242_) - (_else154246154262_ + (if (not (##fx= _g159780_ 3)) + (error "Context expects 3 values" _g159780_))) + (let ((_pre154165_ (##vector-ref _g159779_ 0)) + (_ns154166_ (##vector-ref _g159779_ 1)) + (_pkg154167_ (##vector-ref _g159779_ 2))) + (let* ((_prelude154169_ + (gx#import-module__0 _pre154165_)) + (_read-module-body154223_ + (let ((_$e154215_ + (find (lambda (_e154170154172_) + (let* ((_g154174154184_ + _e154170154172_) + (_else154176154192_ (lambda () '#f)) - (_K154248154266_ + (_K154178154196_ (lambda () '#t))) (if (##structure-direct-instance-of? - _g154244154254_ + _g154174154184_ 'gx#module-export::t) - (let* ((_e154249154269_ + (let* ((_e154179154199_ (##unchecked-structure-ref - _g154244154254_ + _g154174154184_ '1 gx#module-export::t '#f)) - (_e154250154272_ + (_e154180154202_ (##unchecked-structure-ref - _g154244154254_ + _g154174154184_ '2 gx#module-export::t '#f)) - (_e154251154275_ + (_e154181154205_ (##unchecked-structure-ref - _g154244154254_ + _g154174154184_ '3 gx#module-export::t '#f))) - (if (##eq? _e154251154275_ + (if (##eq? _e154181154205_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1) - (let ((_e154252154278_ + (let ((_e154182154208_ (##unchecked-structure-ref - _g154244154254_ + _g154174154184_ '4 gx#module-export::t '#f))) - (if ((lambda (_g154280154282_) - (eq? _g154280154282_ 'read-module-body)) - _e154252154278_) - (_K154248154266_) - (_else154246154262_))) - (_else154246154262_))) - (_else154246154262_)))) + (if ((lambda (_g154210154212_) + (eq? _g154210154212_ 'read-module-body)) + _e154182154208_) + (_K154178154196_) + (_else154176154192_))) + (_else154176154192_))) + (_else154176154192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _prelude154239_ + _prelude154169_ '9 gx#module-context::t '#f)))) - (if _$e154285_ - ((lambda (_xport154288_) - (let ((_proc154291_ + (if _$e154215_ + ((lambda (_xport154218_) + (let ((_proc154221_ (with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _xport154288_) + _xport154218_) '1 gx#binding::t '#f)))))) - (if (procedure? _proc154291_) - _proc154291_ + (if (procedure? _proc154221_) + _proc154221_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _path154145_ - _pre154235_ - _proc154291_)))) - _$e154285_) - _default-read-module-body154147_))) - (_path-id154295_ + _path154075_ + _pre154165_ + _proc154221_)))) + _$e154215_) + _default-read-module-body154077_))) + (_path-id154225_ (gx#core-module-path->namespace - _path154145_)) - (_pkg-id154297_ - (if _pkg154237_ + _path154075_)) + (_pkg-id154227_ + (if _pkg154167_ (string-append - _pkg154237_ + _pkg154167_ '"/" - _path-id154295_) - _path-id154295_)) - (_module-id154299_ - (string->symbol _pkg-id154297_)) - (_module-ns154304_ - (let ((_$e154301_ _ns154236_)) - (if _$e154301_ _$e154301_ _pkg-id154297_))) - (_body154307_ + _path-id154225_) + _path-id154225_)) + (_module-id154229_ + (string->symbol _pkg-id154227_)) + (_module-ns154234_ + (let ((_$e154231_ _ns154166_)) + (if _$e154231_ _$e154231_ _pkg-id154227_))) + (_body154237_ (call-with-parameters (lambda () - (_read-module-body154293_ _inp154229_)) + (_read-module-body154223_ _inp154159_)) gx#current-module-reader-path - _path154145_ + _path154075_ gx#current-module-reader-args - _args154233_))) - (values _prelude154239_ - _module-id154299_ - _module-ns154304_ - _body154307_))))))) - (_string-e154149_ - (lambda (_obj154226_ _what154227_) - (if (string? _obj154226_) - _obj154226_ - (if (symbol? _obj154226_) - (symbol->string _obj154226_) + _args154163_))) + (values _prelude154169_ + _module-id154229_ + _module-ns154234_ + _body154237_))))))) + (_string-e154079_ + (lambda (_obj154156_ _what154157_) + (if (string? _obj154156_) + _obj154156_ + (if (symbol? _obj154156_) + (symbol->string _obj154156_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _what154227_) - _path154145_ - _obj154226_))))) - (_read-lang-args154150_ - (lambda (_inp154181_ _args154182_) - (let* ((_args154183154191_ _args154182_) - (_else154185154199_ + (string-append '"Illegal module " _what154157_) + _path154075_ + _obj154156_))))) + (_read-lang-args154080_ + (lambda (_inp154111_ _args154112_) + (let* ((_args154113154121_ _args154112_) + (_else154115154129_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _path154145_))) - (_K154187154214_ - (lambda (_args154202_ _prelude154203_) - (let* ((_pkg154205_ - (pgetq 'package: _args154202_)) - (_pkg154207_ - (if _pkg154205_ - (_string-e154149_ - _pkg154205_ + _path154075_))) + (_K154117154144_ + (lambda (_args154132_ _prelude154133_) + (let* ((_pkg154135_ + (pgetq 'package: _args154132_)) + (_pkg154137_ + (if _pkg154135_ + (_string-e154079_ + _pkg154135_ '"package") '#f)) - (_ns154209_ - (pgetq 'namespace: _args154202_)) - (_ns154211_ - (if _ns154209_ - (_string-e154149_ - _ns154209_ + (_ns154139_ + (pgetq 'namespace: _args154132_)) + (_ns154141_ + (if _ns154139_ + (_string-e154079_ + _ns154139_ '"namespace") '#f))) - (_read-body154148_ - _inp154181_ - _prelude154203_ - _ns154211_ - _pkg154207_ - _args154202_))))) - (if (##pair? _args154183154191_) - (let ((_hd154188154217_ (##car _args154183154191_)) - (_tl154189154219_ (##cdr _args154183154191_))) - (let* ((_prelude154222_ _hd154188154217_) - (_args154224_ _tl154189154219_)) - (_K154187154214_ _args154224_ _prelude154222_))) - (_else154185154199_))))) - (_read-lang154151_ - (lambda (_inp154156_) - (let* ((_head154158_ (read-line _inp154156_)) - (_$e154160_ (string-index _head154158_ '#\space))) - (if _$e154160_ - ((lambda (_ix154163_) - (let ((_lang154165_ - (substring _head154158_ '0 _ix154163_))) - (if (equal? _lang154165_ '"#lang") - (let* ((_rest154167_ + (_read-body154078_ + _inp154111_ + _prelude154133_ + _ns154141_ + _pkg154137_ + _args154132_))))) + (if (##pair? _args154113154121_) + (let ((_hd154118154147_ (##car _args154113154121_)) + (_tl154119154149_ (##cdr _args154113154121_))) + (let* ((_prelude154152_ _hd154118154147_) + (_args154154_ _tl154119154149_)) + (_K154117154144_ _args154154_ _prelude154152_))) + (_else154115154129_))))) + (_read-lang154081_ + (lambda (_inp154086_) + (let* ((_head154088_ (read-line _inp154086_)) + (_$e154090_ (string-index _head154088_ '#\space))) + (if _$e154090_ + ((lambda (_ix154093_) + (let ((_lang154095_ + (substring _head154088_ '0 _ix154093_))) + (if (equal? _lang154095_ '"#lang") + (let* ((_rest154097_ (substring - _head154158_ - (fx+ _ix154163_ '1) - (string-length _head154158_))) - (_args154178_ + _head154088_ + (fx+ _ix154093_ '1) + (string-length _head154088_))) + (_args154108_ (with-catch - (lambda (_g154168154170_) + (lambda (_g154098154100_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _path154145_ - _g154168154170_)) + _path154075_ + _g154098154100_)) (lambda () (call-with-input-string - _rest154167_ - (lambda (_g154173154175_) + _rest154097_ + (lambda (_g154103154105_) (read-all - _g154173154175_ + _g154103154105_ read))))))) - (_read-lang-args154150_ - _inp154156_ - _args154178_)) + (_read-lang-args154080_ + _inp154086_ + _args154108_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path154145_)))) - _$e154160_) + _path154075_)))) + _$e154090_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path154145_))))) - (_read-e154152_ - (lambda (_inp154154_) - (if (eq? (peek-char _inp154154_) '#\#) - (_read-lang154151_ _inp154154_) + _path154075_))))) + (_read-e154082_ + (lambda (_inp154084_) + (if (eq? (peek-char _inp154084_) '#\#) + (_read-lang154081_ _inp154084_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path154145_))))) - (gx#call-with-input-source-file _path154145_ _read-e154152_)))) + _path154075_))))) + (gx#call-with-input-source-file _path154075_ _read-e154082_)))) (define gx#core-read-module-package - (lambda (_path154099_ _pre154100_ _ns154101_) - (letrec ((_string-e154103_ - (lambda (_e154143_) - (if (symbol? _e154143_) - (symbol->string _e154143_) - (if (string? _e154143_) - _e154143_ + (lambda (_path154029_ _pre154030_ _ns154031_) + (letrec ((_string-e154033_ + (lambda (_e154073_) + (if (symbol? _e154073_) + (symbol->string _e154073_) + (if (string? _e154073_) + _e154073_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _e154143_)))))) - (let _lp154105_ ((_dir154107_ (path-directory _path154099_)) - (_pkg-path154108_ '())) - (let ((_gerbil.pkg154110_ (path-expand '"gerbil.pkg" _dir154107_))) - (if (file-exists? _gerbil.pkg154110_) - (let ((_plist154112_ - (gx#core-library-package-plist__% _dir154107_ '#t))) - (if (null? _plist154112_) - (let ((_pkg154114_ - (if (not (null? _pkg-path154108_)) - (string-join _pkg-path154108_ '"/") + _e154073_)))))) + (let _lp154035_ ((_dir154037_ (path-directory _path154029_)) + (_pkg-path154038_ '())) + (let ((_gerbil.pkg154040_ (path-expand '"gerbil.pkg" _dir154037_))) + (if (file-exists? _gerbil.pkg154040_) + (let ((_plist154042_ + (gx#core-library-package-plist__% _dir154037_ '#t))) + (if (null? _plist154042_) + (let ((_pkg154044_ + (if (not (null? _pkg-path154038_)) + (string-join _pkg-path154038_ '"/") '#f))) - (values _pre154100_ _ns154101_ _pkg154114_)) - (if (list? _plist154112_) - (let* ((_root154116_ - (pgetq 'package: _plist154112_)) - (_pkg154120_ - (let ((_pkg-path154118_ - (if _root154116_ - (cons (_string-e154103_ - _root154116_) - _pkg-path154108_) - _pkg-path154108_))) - (if (not (null? _pkg-path154118_)) - (string-join _pkg-path154118_ '"/") + (values _pre154030_ _ns154031_ _pkg154044_)) + (if (list? _plist154042_) + (let* ((_root154046_ + (pgetq 'package: _plist154042_)) + (_pkg154050_ + (let ((_pkg-path154048_ + (if _root154046_ + (cons (_string-e154033_ + _root154046_) + _pkg-path154038_) + _pkg-path154038_))) + (if (not (null? _pkg-path154048_)) + (string-join _pkg-path154048_ '"/") '#f))) - (_ns154127_ - (let ((_ns154125_ - (let ((_$e154122_ _ns154101_)) - (if _$e154122_ - _$e154122_ + (_ns154057_ + (let ((_ns154055_ + (let ((_$e154052_ _ns154031_)) + (if _$e154052_ + _$e154052_ (pgetq 'namespace: - _plist154112_))))) - (if _ns154125_ - (_string-e154103_ _ns154125_) + _plist154042_))))) + (if _ns154055_ + (_string-e154033_ _ns154055_) '#f))) - (_pre154132_ - (let ((_$e154129_ _pre154100_)) - (if _$e154129_ - _$e154129_ - (pgetq 'prelude: _plist154112_))))) - (values _pre154132_ _ns154127_ _pkg154120_)) + (_pre154062_ + (let ((_$e154059_ _pre154030_)) + (if _$e154059_ + _$e154059_ + (pgetq 'prelude: _plist154042_))))) + (values _pre154062_ _ns154057_ _pkg154050_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _plist154112_)))) - (let ((_dir*154135_ + _plist154042_)))) + (let ((_dir*154065_ (path-strip-trailing-directory-separator - _dir154107_))) - (if (or (string-empty? _dir*154135_) - (equal? _dir154107_ _dir*154135_)) - (values _pre154100_ _ns154101_ '#f) - (let ((_xpath154140_ - (path-strip-directory _dir*154135_)) - (_xdir154141_ (path-directory _dir*154135_))) - (_lp154105_ - _xdir154141_ - (cons _xpath154140_ _pkg-path154108_))))))))))) + _dir154037_))) + (if (or (string-empty? _dir*154065_) + (equal? _dir154037_ _dir*154065_)) + (values _pre154030_ _ns154031_ '#f) + (let ((_xpath154070_ + (path-strip-directory _dir*154065_)) + (_xdir154071_ (path-directory _dir*154065_))) + (_lp154035_ + _xdir154071_ + (cons _xpath154070_ _pkg-path154038_))))))))))) (define gx#core-module-path->namespace - (lambda (_path154097_) - (path-strip-extension (path-strip-directory _path154097_)))) + (lambda (_path154027_) + (path-strip-extension (path-strip-directory _path154027_)))) (define gx#core-module-path->id - (lambda (_path154095_) - (string->symbol (gx#core-module-path->namespace _path154095_)))) + (lambda (_path154025_) + (string->symbol (gx#core-module-path->namespace _path154025_)))) (define gx#core-resolve-module-path__% - (lambda (_stx-path154074_ _rel154075_) - (let* ((_path154077_ (gx#stx-e _stx-path154074_)) - (_path154079_ - (if (string-empty? (path-extension _path154077_)) - (string-append _path154077_ '".ss") - _path154077_))) + (lambda (_stx-path154004_ _rel154005_) + (let* ((_path154007_ (gx#stx-e _stx-path154004_)) + (_path154009_ + (if (string-empty? (path-extension _path154007_)) + (string-append _path154007_ '".ss") + _path154007_))) (gx#core-resolve-path__% - _path154079_ - (let ((_$e154082_ (gx#stx-source _stx-path154074_))) - (if _$e154082_ _$e154082_ _rel154075_)))))) + _path154009_ + (let ((_$e154012_ (gx#stx-source _stx-path154004_))) + (if _$e154012_ _$e154012_ _rel154005_)))))) (define gx#core-resolve-module-path__0 - (lambda (_stx-path154088_) - (let ((_rel154090_ '#f)) - (gx#core-resolve-module-path__% _stx-path154088_ _rel154090_)))) + (lambda (_stx-path154018_) + (let ((_rel154020_ '#f)) + (gx#core-resolve-module-path__% _stx-path154018_ _rel154020_)))) (define gx#core-resolve-module-path - (lambda _g159852_ - (let ((_g159851_ (##length _g159852_))) - (cond ((##fx= _g159851_ 1) - (apply (lambda (_stx-path154088_) - (gx#core-resolve-module-path__0 _stx-path154088_)) - _g159852_)) - ((##fx= _g159851_ 2) - (apply (lambda (_stx-path154092_ _rel154093_) + (lambda _g159782_ + (let ((_g159781_ (##length _g159782_))) + (cond ((##fx= _g159781_ 1) + (apply (lambda (_stx-path154018_) + (gx#core-resolve-module-path__0 _stx-path154018_)) + _g159782_)) + ((##fx= _g159781_ 2) + (apply (lambda (_stx-path154022_ _rel154023_) (gx#core-resolve-module-path__% - _stx-path154092_ - _rel154093_)) - _g159852_)) + _stx-path154022_ + _rel154023_)) + _g159782_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g159852_)))))) + _g159782_)))))) (define gx#core-resolve-library-module-path - (lambda (_libpath153960_) - (let* ((_spath153962_ (symbol->string (gx#stx-e _libpath153960_))) - (_spath153964_ - (substring _spath153962_ '1 (string-length _spath153962_))) - (_ext153966_ (path-extension _spath153964_)) - (_ssi153968_ - (if (string-empty? _ext153966_) - (string-append _spath153964_ '".ssi") + (lambda (_libpath153890_) + (let* ((_spath153892_ (symbol->string (gx#stx-e _libpath153890_))) + (_spath153894_ + (substring _spath153892_ '1 (string-length _spath153892_))) + (_ext153896_ (path-extension _spath153894_)) + (_ssi153898_ + (if (string-empty? _ext153896_) + (string-append _spath153894_ '".ssi") (string-append - (path-strip-extension _spath153964_) + (path-strip-extension _spath153894_) '".ssi"))) - (_srcs153972_ - (if (string-empty? _ext153966_) - (map (lambda (_ext153970_) - (string-append _spath153964_ _ext153970_)) + (_srcs153902_ + (if (string-empty? _ext153896_) + (map (lambda (_ext153900_) + (string-append _spath153894_ _ext153900_)) '(".ss" ".sld" ".scm")) - (cons _spath153964_ '())))) - (let _lp153975_ ((_rest153977_ + (cons _spath153894_ '())))) + (let _lp153905_ ((_rest153907_ (gx#current-expander-module-library-path))) - (let* ((_rest153978153987_ _rest153977_) - (_E153981153991_ + (let* ((_rest153908153917_ _rest153907_) + (_E153911153921_ (lambda () - (error '"No clause matching" _rest153978153987_)))) - (let ((_K153983154061_ - (lambda (_rest154002_ _dir154003_) - (letrec ((_resolve154005_ - (lambda (_ssi154017_ _srcs154018_) - (let ((_compiled-path154020_ + (error '"No clause matching" _rest153908153917_)))) + (let ((_K153913153991_ + (lambda (_rest153932_ _dir153933_) + (letrec ((_resolve153935_ + (lambda (_ssi153947_ _srcs153948_) + (let ((_compiled-path153950_ (path-expand - _ssi154017_ - _dir154003_))) - (if (file-exists? _compiled-path154020_) - (path-normalize _compiled-path154020_) - (let _lpr154022_ ((_rest-src154024_ - _srcs154018_)) - (let* ((_rest-src154025154033_ - _rest-src154024_) - (_else154027154041_ + _ssi153947_ + _dir153933_))) + (if (file-exists? _compiled-path153950_) + (path-normalize _compiled-path153950_) + (let _lpr153952_ ((_rest-src153954_ + _srcs153948_)) + (let* ((_rest-src153955153963_ + _rest-src153954_) + (_else153957153971_ (lambda () - (_lp153975_ - _rest154002_))) - (_K154029154049_ - (lambda (_rest-src154044_ - _src154045_) - (let ((_src-path154047_ + (_lp153905_ + _rest153932_))) + (_K153959153979_ + (lambda (_rest-src153974_ + _src153975_) + (let ((_src-path153977_ (path-expand - _src154045_ - _dir154003_))) + _src153975_ + _dir153933_))) (if (file-exists? - _src-path154047_) + _src-path153977_) (path-normalize - _src-path154047_) - (_lpr154022_ - _rest-src154044_)))))) - (if (##pair? _rest-src154025154033_) - (let ((_hd154030154052_ - (##car _rest-src154025154033_)) - (_tl154031154054_ - (##cdr _rest-src154025154033_))) - (let* ((_src154057_ - _hd154030154052_) - (_rest-src154059_ - _tl154031154054_)) - (_K154029154049_ - _rest-src154059_ - _src154057_))) - (_else154027154041_))))))))) - (let ((_$e154007_ + _src-path153977_) + (_lpr153952_ + _rest-src153974_)))))) + (if (##pair? _rest-src153955153963_) + (let ((_hd153960153982_ + (##car _rest-src153955153963_)) + (_tl153961153984_ + (##cdr _rest-src153955153963_))) + (let* ((_src153987_ + _hd153960153982_) + (_rest-src153989_ + _tl153961153984_)) + (_K153959153979_ + _rest-src153989_ + _src153987_))) + (_else153957153971_))))))))) + (let ((_$e153937_ (gx#core-library-package-path-prefix - _dir154003_))) - (if _$e154007_ - ((lambda (_prefix154010_) + _dir153933_))) + (if _$e153937_ + ((lambda (_prefix153940_) (if (string-prefix? - _prefix154010_ - _spath153964_) - (let ((_ssi154014_ + _prefix153940_ + _spath153894_) + (let ((_ssi153944_ (substring - _ssi153968_ - (string-length _prefix154010_) - (string-length _ssi153968_))) - (_srcs154015_ - (map (lambda (_src154012_) + _ssi153898_ + (string-length _prefix153940_) + (string-length _ssi153898_))) + (_srcs153945_ + (map (lambda (_src153942_) (substring - _src154012_ + _src153942_ (string-length - _prefix154010_) + _prefix153940_) (string-length - _src154012_))) - _srcs153972_))) - (_resolve154005_ - _ssi154014_ - _srcs154015_)) - (_lp153975_ _rest154002_))) - _$e154007_) - (_resolve154005_ _ssi153968_ _srcs153972_)))))) - (_K153982153996_ + _src153942_))) + _srcs153902_))) + (_resolve153935_ + _ssi153944_ + _srcs153945_)) + (_lp153905_ _rest153932_))) + _$e153937_) + (_resolve153935_ _ssi153898_ _srcs153902_)))))) + (_K153912153926_ (lambda () (gx#raise-syntax-error '#f '"Cannot find library module" - _libpath153960_)))) - (let ((_try-match153980153999_ + _libpath153890_)))) + (let ((_try-match153910153929_ (lambda () - (if (##null? _rest153978153987_) - (_K153982153996_) - (_E153981153991_))))) - (if (##pair? _rest153978153987_) - (let ((_tl153985154066_ (##cdr _rest153978153987_)) - (_hd153984154064_ (##car _rest153978153987_))) - (let ((_dir154069_ _hd153984154064_) - (_rest154071_ _tl153985154066_)) - (_K153983154061_ _rest154071_ _dir154069_))) - (_try-match153980153999_))))))))) + (if (##null? _rest153908153917_) + (_K153912153926_) + (_E153911153921_))))) + (if (##pair? _rest153908153917_) + (let ((_tl153915153996_ (##cdr _rest153908153917_)) + (_hd153914153994_ (##car _rest153908153917_))) + (let ((_dir153999_ _hd153914153994_) + (_rest154001_ _tl153915153996_)) + (_K153913153991_ _rest154001_ _dir153999_))) + (_try-match153910153929_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_modpath153933_) - (letrec ((_resolve153935_ - (lambda (_path153952_ _base153953_) - (let ((_$e153955_ (string-rindex _base153953_ '#\/))) - (if _$e153955_ - ((lambda (_idx153958_) + (lambda (_modpath153863_) + (letrec ((_resolve153865_ + (lambda (_path153882_ _base153883_) + (let ((_$e153885_ (string-rindex _base153883_ '#\/))) + (if _$e153885_ + ((lambda (_idx153888_) (gx#core-resolve-library-module-path (string->symbol (string-append '":" - (substring _base153953_ '0 _idx153958_) + (substring _base153883_ '0 _idx153888_) '"/" - _path153952_)))) - _$e153955_) + _path153882_)))) + _$e153885_) (gx#core-resolve-library-module-path (string->symbol - (string-append '":" _path153952_)))))))) - (let ((_spath153937_ (symbol->string (gx#stx-e _modpath153933_))) - (_mod153938_ + (string-append '":" _path153882_)))))))) + (let ((_spath153867_ (symbol->string (gx#stx-e _modpath153863_))) + (_mod153868_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _mod153938_ + (if _mod153868_ '#!void (gx#raise-syntax-error '#f '"Cannot resolve relative module path; not in module context" - _modpath153933_)) - (let ((_mpath153940_ + _modpath153863_)) + (let ((_mpath153870_ (symbol->string (##structure-ref - _mod153938_ + _mod153868_ '1 gx#expander-context::t '#f)))) - (let _lp153942_ ((_spath153944_ _spath153937_) - (_mpath153945_ _mpath153940_)) - (if (string-prefix? '"../" _spath153944_) - (let ((_$e153947_ (string-rindex _mpath153945_ '#\/))) - (if _$e153947_ - ((lambda (_idx153950_) - (_lp153942_ + (let _lp153872_ ((_spath153874_ _spath153867_) + (_mpath153875_ _mpath153870_)) + (if (string-prefix? '"../" _spath153874_) + (let ((_$e153877_ (string-rindex _mpath153875_ '#\/))) + (if _$e153877_ + ((lambda (_idx153880_) + (_lp153872_ (substring - _spath153944_ + _spath153874_ '3 - (string-length _spath153944_)) - (substring _mpath153945_ '0 _idx153950_))) - _$e153947_) + (string-length _spath153874_)) + (substring _mpath153875_ '0 _idx153880_))) + _$e153877_) (gx#raise-syntax-error '#f '"Cannot resolve relative module path; illegal traversal" - _modpath153933_))) - (if (string-prefix? '"./" _spath153944_) - (_lp153942_ + _modpath153863_))) + (if (string-prefix? '"./" _spath153874_) + (_lp153872_ (substring - _spath153944_ + _spath153874_ '2 - (string-length _spath153944_)) - _mpath153945_) - (_resolve153935_ _spath153944_ _mpath153945_))))))))) + (string-length _spath153874_)) + _mpath153875_) + (_resolve153865_ _spath153874_ _mpath153875_))))))))) (define gx#core-library-package-path-prefix - (lambda (_dir153926_) - (let ((_$e153928_ + (lambda (_dir153856_) + (let ((_$e153858_ (pgetq 'package: - (gx#core-library-package-plist__0 _dir153926_)))) - (if _$e153928_ - ((lambda (_pkg153931_) - (string-append (symbol->string _pkg153931_) '"/")) - _$e153928_) + (gx#core-library-package-plist__0 _dir153856_)))) + (if _$e153858_ + ((lambda (_pkg153861_) + (string-append (symbol->string _pkg153861_) '"/")) + _$e153858_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_dir153898_ _exists?153899_) - (let* ((_cache153901_ (gx#core-library-package-cache)) - (_$e153903_ (table-ref _cache153901_ _dir153898_ '#f))) - (if _$e153903_ - (values _$e153903_) - (let* ((_gerbil.pkg153906_ - (path-expand '"gerbil.pkg" _dir153898_)) - (_plist153913_ - (if (or _exists?153899_ - (file-exists? _gerbil.pkg153906_)) - (let ((_e153911_ + (lambda (_dir153828_ _exists?153829_) + (let* ((_cache153831_ (gx#core-library-package-cache)) + (_$e153833_ (table-ref _cache153831_ _dir153828_ '#f))) + (if _$e153833_ + (values _$e153833_) + (let* ((_gerbil.pkg153836_ + (path-expand '"gerbil.pkg" _dir153828_)) + (_plist153843_ + (if (or _exists?153829_ + (file-exists? _gerbil.pkg153836_)) + (let ((_e153841_ (gx#call-with-input-source-file - _gerbil.pkg153906_ + _gerbil.pkg153836_ read))) - (if (eof-object? _e153911_) + (if (eof-object? _e153841_) '() - (if (list? _e153911_) - _e153911_ + (if (list? _e153841_) + _e153841_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _gerbil.pkg153906_ - _e153911_)))) + _gerbil.pkg153836_ + _e153841_)))) '()))) - (table-set! _cache153901_ _dir153898_ _plist153913_) - _plist153913_))))) + (table-set! _cache153831_ _dir153828_ _plist153843_) + _plist153843_))))) (define gx#core-library-package-plist__0 - (lambda (_dir153919_) - (let ((_exists?153921_ '#f)) - (gx#core-library-package-plist__% _dir153919_ _exists?153921_)))) + (lambda (_dir153849_) + (let ((_exists?153851_ '#f)) + (gx#core-library-package-plist__% _dir153849_ _exists?153851_)))) (define gx#core-library-package-plist - (lambda _g159854_ - (let ((_g159853_ (##length _g159854_))) - (cond ((##fx= _g159853_ 1) - (apply (lambda (_dir153919_) - (gx#core-library-package-plist__0 _dir153919_)) - _g159854_)) - ((##fx= _g159853_ 2) - (apply (lambda (_dir153923_ _exists?153924_) + (lambda _g159784_ + (let ((_g159783_ (##length _g159784_))) + (cond ((##fx= _g159783_ 1) + (apply (lambda (_dir153849_) + (gx#core-library-package-plist__0 _dir153849_)) + _g159784_)) + ((##fx= _g159783_ 2) + (apply (lambda (_dir153853_ _exists?153854_) (gx#core-library-package-plist__% - _dir153923_ - _exists?153924_)) - _g159854_)) + _dir153853_ + _exists?153854_)) + _g159784_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g159854_)))))) + _g159784_)))))) (define gx#core-library-package-cache (lambda () - (let ((_$e153892_ (gx#current-expander-module-library-package-cache))) - (if _$e153892_ - (values _$e153892_) - (let ((_cache153895_ (make-table))) + (let ((_$e153822_ (gx#current-expander-module-library-package-cache))) + (if _$e153822_ + (values _$e153822_) + (let ((_cache153825_ (make-table))) (gx#current-expander-module-library-package-cache - _cache153895_) - _cache153895_))))) + _cache153825_) + _cache153825_))))) (define gx#core-library-module-path? - (lambda (_stx153889_) (gx#core-special-module-path? _stx153889_ '#\:))) + (lambda (_stx153819_) (gx#core-special-module-path? _stx153819_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_stx153887_) (gx#core-special-module-path? _stx153887_ '#\.))) + (lambda (_stx153817_) (gx#core-special-module-path? _stx153817_ '#\.))) (define gx#core-special-module-path? - (lambda (_stx153882_ _char153883_) - (if (gx#identifier? _stx153882_) - (if (interned-symbol? (gx#stx-e _stx153882_)) - (let ((_str153885_ (symbol->string (gx#stx-e _stx153882_)))) - (if (fx> (string-length _str153885_) '1) - (eq? (string-ref _str153885_ '0) _char153883_) + (lambda (_stx153812_ _char153813_) + (if (gx#identifier? _stx153812_) + (if (interned-symbol? (gx#stx-e _stx153812_)) + (let ((_str153815_ (symbol->string (gx#stx-e _stx153812_)))) + (if (fx> (string-length _str153815_) '1) + (eq? (string-ref _str153815_ '0) _char153813_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_stx153876_) + (lambda (_stx153806_) (gx#core-bound-identifier?__% - _stx153876_ - (lambda (_g153877153879_) - (gx#expander-binding?__% _g153877153879_ gx#prelude-context?))))) + _stx153806_ + (lambda (_g153807153809_) + (gx#expander-binding?__% _g153807153809_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_stx153870_) + (lambda (_stx153800_) (gx#core-bound-identifier?__% - _stx153870_ - (lambda (_g153871153873_) - (gx#expander-binding?__% _g153871153873_ gx#module-context?))))) + _stx153800_ + (lambda (_g153801153803_) + (gx#expander-binding?__% _g153801153803_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_stx153857_) - (letrec ((_module-prelude?153859_ - (lambda (_e153865_) - (let ((_$e153867_ + (lambda (_stx153787_) + (letrec ((_module-prelude?153789_ + (lambda (_e153795_) + (let ((_$e153797_ (##structure-instance-of? - _e153865_ + _e153795_ 'gx#module-context::t))) - (if _$e153867_ - _$e153867_ + (if _$e153797_ + _$e153797_ (##structure-instance-of? - _e153865_ + _e153795_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _stx153857_ - (lambda (_g153860153862_) + _stx153787_ + (lambda (_g153790153792_) (gx#expander-binding?__% - _g153860153862_ - _module-prelude?153859_)))))) + _g153790153792_ + _module-prelude?153789_)))))) (define gx#core-bind-import!__% - (lambda (_in153787_ _ctx153788_ _force-weak?153789_) - (let* ((_in153790153799_ _in153787_) - (_E153792153803_ - (lambda () (error '"No clause matching" _in153790153799_))) - (_K153793153816_ - (lambda (_weak?153806_ _phi153807_ _key153808_ _source153809_) + (lambda (_in153717_ _ctx153718_ _force-weak?153719_) + (let* ((_in153720153729_ _in153717_) + (_E153722153733_ + (lambda () (error '"No clause matching" _in153720153729_))) + (_K153723153746_ + (lambda (_weak?153736_ _phi153737_ _key153738_ _source153739_) (gx#core-bind!__% - _key153808_ - (let ((_e153811_ - (gx#core-resolve-module-export _source153809_))) + _key153738_ + (let ((_e153741_ + (gx#core-resolve-module-export _source153739_))) (##structure gx#import-binding::t (##unchecked-structure-ref - _e153811_ + _e153741_ '1 gx#binding::t '#f) - _key153808_ - _phi153807_ - _e153811_ + _key153738_ + _phi153737_ + _e153741_ (##unchecked-structure-ref - _source153809_ + _source153739_ '1 gx#module-export::t '#f) - (let ((_$e153813_ _force-weak?153789_)) - (if _$e153813_ _$e153813_ _weak?153806_)))) + (let ((_$e153743_ _force-weak?153719_)) + (if _$e153743_ _$e153743_ _weak?153736_)))) gx#core-context-rebind? - _phi153807_ - _ctx153788_)))) + _phi153737_ + _ctx153718_)))) (if (##structure-direct-instance-of? - _in153790153799_ + _in153720153729_ 'gx#module-import::t) - (let* ((_e153794153819_ + (let* ((_e153724153749_ (##unchecked-structure-ref - _in153790153799_ + _in153720153729_ '1 gx#module-import::t '#f)) - (_source153822_ _e153794153819_) - (_e153795153824_ + (_source153752_ _e153724153749_) + (_e153725153754_ (##unchecked-structure-ref - _in153790153799_ + _in153720153729_ '2 gx#module-import::t '#f)) - (_key153827_ _e153795153824_) - (_e153796153829_ + (_key153757_ _e153725153754_) + (_e153726153759_ (##unchecked-structure-ref - _in153790153799_ + _in153720153729_ '3 gx#module-import::t '#f)) - (_phi153832_ _e153796153829_) - (_e153797153834_ + (_phi153762_ _e153726153759_) + (_e153727153764_ (##unchecked-structure-ref - _in153790153799_ + _in153720153729_ '4 gx#module-import::t '#f)) - (_weak?153837_ _e153797153834_)) - (_K153793153816_ - _weak?153837_ - _phi153832_ - _key153827_ - _source153822_)) - (_E153792153803_))))) + (_weak?153767_ _e153727153764_)) + (_K153723153746_ + _weak?153767_ + _phi153762_ + _key153757_ + _source153752_)) + (_E153722153733_))))) (define gx#core-bind-import!__0 - (lambda (_in153842_) - (let* ((_ctx153844_ (gx#current-expander-context)) - (_force-weak?153846_ '#f)) + (lambda (_in153772_) + (let* ((_ctx153774_ (gx#current-expander-context)) + (_force-weak?153776_ '#f)) (gx#core-bind-import!__% - _in153842_ - _ctx153844_ - _force-weak?153846_)))) + _in153772_ + _ctx153774_ + _force-weak?153776_)))) (define gx#core-bind-import!__1 - (lambda (_in153848_ _ctx153849_) - (let ((_force-weak?153851_ '#f)) + (lambda (_in153778_ _ctx153779_) + (let ((_force-weak?153781_ '#f)) (gx#core-bind-import!__% - _in153848_ - _ctx153849_ - _force-weak?153851_)))) + _in153778_ + _ctx153779_ + _force-weak?153781_)))) (define gx#core-bind-import! - (lambda _g159856_ - (let ((_g159855_ (##length _g159856_))) - (cond ((##fx= _g159855_ 1) - (apply (lambda (_in153842_) - (gx#core-bind-import!__0 _in153842_)) - _g159856_)) - ((##fx= _g159855_ 2) - (apply (lambda (_in153848_ _ctx153849_) - (gx#core-bind-import!__1 _in153848_ _ctx153849_)) - _g159856_)) - ((##fx= _g159855_ 3) - (apply (lambda (_in153853_ _ctx153854_ _force-weak?153855_) + (lambda _g159786_ + (let ((_g159785_ (##length _g159786_))) + (cond ((##fx= _g159785_ 1) + (apply (lambda (_in153772_) + (gx#core-bind-import!__0 _in153772_)) + _g159786_)) + ((##fx= _g159785_ 2) + (apply (lambda (_in153778_ _ctx153779_) + (gx#core-bind-import!__1 _in153778_ _ctx153779_)) + _g159786_)) + ((##fx= _g159785_ 3) + (apply (lambda (_in153783_ _ctx153784_ _force-weak?153785_) (gx#core-bind-import!__% - _in153853_ - _ctx153854_ - _force-weak?153855_)) - _g159856_)) + _in153783_ + _ctx153784_ + _force-weak?153785_)) + _g159786_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g159856_)))))) + _g159786_)))))) (define gx#core-bind-weak-import!__% - (lambda (_in153773_ _ctx153774_) - (gx#core-bind-import!__% _in153773_ _ctx153774_ '#t))) + (lambda (_in153703_ _ctx153704_) + (gx#core-bind-import!__% _in153703_ _ctx153704_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_in153779_) - (let ((_ctx153781_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _in153779_ _ctx153781_)))) + (lambda (_in153709_) + (let ((_ctx153711_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _in153709_ _ctx153711_)))) (define gx#core-bind-weak-import! - (lambda _g159858_ - (let ((_g159857_ (##length _g159858_))) - (cond ((##fx= _g159857_ 1) - (apply (lambda (_in153779_) - (gx#core-bind-weak-import!__0 _in153779_)) - _g159858_)) - ((##fx= _g159857_ 2) - (apply (lambda (_in153783_ _ctx153784_) + (lambda _g159788_ + (let ((_g159787_ (##length _g159788_))) + (cond ((##fx= _g159787_ 1) + (apply (lambda (_in153709_) + (gx#core-bind-weak-import!__0 _in153709_)) + _g159788_)) + ((##fx= _g159787_ 2) + (apply (lambda (_in153713_ _ctx153714_) (gx#core-bind-weak-import!__% - _in153783_ - _ctx153784_)) - _g159858_)) + _in153713_ + _ctx153714_)) + _g159788_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g159858_)))))) + _g159788_)))))) (define gx#core-resolve-module-export - (lambda (_out153664_) - (letrec ((_subst153666_ - (lambda (_key153712_) - (let* ((_key153713153721_ _key153712_) - (_else153715153729_ (lambda () _key153712_)) - (_K153717153760_ - (lambda (_mark153732_ _id153733_) - (let* ((_mark153734153740_ _mark153732_) - (_E153736153744_ + (lambda (_out153594_) + (letrec ((_subst153596_ + (lambda (_key153642_) + (let* ((_key153643153651_ _key153642_) + (_else153645153659_ (lambda () _key153642_)) + (_K153647153690_ + (lambda (_mark153662_ _id153663_) + (let* ((_mark153664153670_ _mark153662_) + (_E153666153674_ (lambda () (error '"No clause matching" - _mark153734153740_))) - (_K153737153752_ - (lambda (_subst153747_) - (let ((_$e153749_ - (if _subst153747_ + _mark153664153670_))) + (_K153667153682_ + (lambda (_subst153677_) + (let ((_$e153679_ + (if _subst153677_ (table-ref - _subst153747_ - _id153733_ + _subst153677_ + _id153663_ '#f) '#f))) - (if _$e153749_ - _$e153749_ + (if _$e153679_ + _$e153679_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _key153712_)))))) + _key153642_)))))) (if (##structure-instance-of? - _mark153734153740_ + _mark153664153670_ 'gx#expander-mark::t) - (let* ((_e153738153755_ + (let* ((_e153668153685_ (##unchecked-structure-ref - _mark153734153740_ + _mark153664153670_ '1 gx#expander-mark::t '#f)) - (_subst153758_ _e153738153755_)) - (_K153737153752_ _subst153758_)) - (_E153736153744_)))))) - (if (##pair? _key153713153721_) - (let ((_hd153718153763_ (##car _key153713153721_)) - (_tl153719153765_ (##cdr _key153713153721_))) - (let* ((_id153768_ _hd153718153763_) - (_mark153770_ _tl153719153765_)) - (_K153717153760_ _mark153770_ _id153768_))) - (_else153715153729_)))))) - (let* ((_out153667153677_ _out153664_) - (_E153669153681_ - (lambda () (error '"No clause matching" _out153667153677_))) - (_K153670153688_ - (lambda (_phi153684_ _key153685_ _ctx153686_) + (_subst153688_ _e153668153685_)) + (_K153667153682_ _subst153688_)) + (_E153666153674_)))))) + (if (##pair? _key153643153651_) + (let ((_hd153648153693_ (##car _key153643153651_)) + (_tl153649153695_ (##cdr _key153643153651_))) + (let* ((_id153698_ _hd153648153693_) + (_mark153700_ _tl153649153695_)) + (_K153647153690_ _mark153700_ _id153698_))) + (_else153645153659_)))))) + (let* ((_out153597153607_ _out153594_) + (_E153599153611_ + (lambda () (error '"No clause matching" _out153597153607_))) + (_K153600153618_ + (lambda (_phi153614_ _key153615_ _ctx153616_) (gx#core-context-resolve - (gx#core-context-shift _ctx153686_ _phi153684_) - (_subst153666_ _key153685_))))) + (gx#core-context-shift _ctx153616_ _phi153614_) + (_subst153596_ _key153615_))))) (if (##structure-direct-instance-of? - _out153667153677_ + _out153597153607_ 'gx#module-export::t) - (let* ((_e153671153691_ + (let* ((_e153601153621_ (##unchecked-structure-ref - _out153667153677_ + _out153597153607_ '1 gx#module-export::t '#f)) - (_ctx153694_ _e153671153691_) - (_e153672153696_ + (_ctx153624_ _e153601153621_) + (_e153602153626_ (##unchecked-structure-ref - _out153667153677_ + _out153597153607_ '2 gx#module-export::t '#f)) - (_key153699_ _e153672153696_) - (_e153673153701_ + (_key153629_ _e153602153626_) + (_e153603153631_ (##unchecked-structure-ref - _out153667153677_ + _out153597153607_ '3 gx#module-export::t '#f)) - (_phi153704_ _e153673153701_) - (_e153674153706_ + (_phi153634_ _e153603153631_) + (_e153604153636_ (##unchecked-structure-ref - _out153667153677_ + _out153597153607_ '4 gx#module-export::t '#f)) - (_e153675153709_ + (_e153605153639_ (##unchecked-structure-ref - _out153667153677_ + _out153597153607_ '5 gx#module-export::t '#f))) - (_K153670153688_ _phi153704_ _key153699_ _ctx153694_)) - (_E153669153681_)))))) + (_K153600153618_ _phi153634_ _key153629_ _ctx153624_)) + (_E153599153611_)))))) (define gx#core-module-export->import__% - (lambda (_out153589_ _rename153590_ _dphi153591_) - (let* ((_out153592153602_ _out153589_) - (_E153594153606_ - (lambda () (error '"No clause matching" _out153592153602_))) - (_K153595153618_ - (lambda (_weak?153609_ - _name153610_ - _phi153611_ - _key153612_ - _ctx153613_) + (lambda (_out153519_ _rename153520_ _dphi153521_) + (let* ((_out153522153532_ _out153519_) + (_E153524153536_ + (lambda () (error '"No clause matching" _out153522153532_))) + (_K153525153548_ + (lambda (_weak?153539_ + _name153540_ + _phi153541_ + _key153542_ + _ctx153543_) (##structure gx#module-import::t - _out153589_ - (let ((_$e153615_ _rename153590_)) - (if _$e153615_ _$e153615_ _name153610_)) - (fx+ _phi153611_ _dphi153591_) - _weak?153609_)))) + _out153519_ + (let ((_$e153545_ _rename153520_)) + (if _$e153545_ _$e153545_ _name153540_)) + (fx+ _phi153541_ _dphi153521_) + _weak?153539_)))) (if (##structure-direct-instance-of? - _out153592153602_ + _out153522153532_ 'gx#module-export::t) - (let* ((_e153596153621_ + (let* ((_e153526153551_ (##unchecked-structure-ref - _out153592153602_ + _out153522153532_ '1 gx#module-export::t '#f)) - (_ctx153624_ _e153596153621_) - (_e153597153626_ + (_ctx153554_ _e153526153551_) + (_e153527153556_ (##unchecked-structure-ref - _out153592153602_ + _out153522153532_ '2 gx#module-export::t '#f)) - (_key153629_ _e153597153626_) - (_e153598153631_ + (_key153559_ _e153527153556_) + (_e153528153561_ (##unchecked-structure-ref - _out153592153602_ + _out153522153532_ '3 gx#module-export::t '#f)) - (_phi153634_ _e153598153631_) - (_e153599153636_ + (_phi153564_ _e153528153561_) + (_e153529153566_ (##unchecked-structure-ref - _out153592153602_ + _out153522153532_ '4 gx#module-export::t '#f)) - (_name153639_ _e153599153636_) - (_e153600153641_ + (_name153569_ _e153529153566_) + (_e153530153571_ (##unchecked-structure-ref - _out153592153602_ + _out153522153532_ '5 gx#module-export::t '#f)) - (_weak?153644_ _e153600153641_)) - (_K153595153618_ - _weak?153644_ - _name153639_ - _phi153634_ - _key153629_ - _ctx153624_)) - (_E153594153606_))))) + (_weak?153574_ _e153530153571_)) + (_K153525153548_ + _weak?153574_ + _name153569_ + _phi153564_ + _key153559_ + _ctx153554_)) + (_E153524153536_))))) (define gx#core-module-export->import__0 - (lambda (_out153649_) - (let* ((_rename153651_ '#f) (_dphi153653_ '0)) + (lambda (_out153579_) + (let* ((_rename153581_ '#f) (_dphi153583_ '0)) (gx#core-module-export->import__% - _out153649_ - _rename153651_ - _dphi153653_)))) + _out153579_ + _rename153581_ + _dphi153583_)))) (define gx#core-module-export->import__1 - (lambda (_out153655_ _rename153656_) - (let ((_dphi153658_ '0)) + (lambda (_out153585_ _rename153586_) + (let ((_dphi153588_ '0)) (gx#core-module-export->import__% - _out153655_ - _rename153656_ - _dphi153658_)))) + _out153585_ + _rename153586_ + _dphi153588_)))) (define gx#core-module-export->import - (lambda _g159860_ - (let ((_g159859_ (##length _g159860_))) - (cond ((##fx= _g159859_ 1) - (apply (lambda (_out153649_) - (gx#core-module-export->import__0 _out153649_)) - _g159860_)) - ((##fx= _g159859_ 2) - (apply (lambda (_out153655_ _rename153656_) + (lambda _g159790_ + (let ((_g159789_ (##length _g159790_))) + (cond ((##fx= _g159789_ 1) + (apply (lambda (_out153579_) + (gx#core-module-export->import__0 _out153579_)) + _g159790_)) + ((##fx= _g159789_ 2) + (apply (lambda (_out153585_ _rename153586_) (gx#core-module-export->import__1 - _out153655_ - _rename153656_)) - _g159860_)) - ((##fx= _g159859_ 3) - (apply (lambda (_out153660_ _rename153661_ _dphi153662_) + _out153585_ + _rename153586_)) + _g159790_)) + ((##fx= _g159789_ 3) + (apply (lambda (_out153590_ _rename153591_ _dphi153592_) (gx#core-module-export->import__% - _out153660_ - _rename153661_ - _dphi153662_)) - _g159860_)) + _out153590_ + _rename153591_ + _dphi153592_)) + _g159790_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g159860_)))))) + _g159790_)))))) (define gx#core-expand-module% - (lambda (_stx153517_) - (letrec ((_make-context153519_ - (lambda (_id153570_) - (let* ((_super153572_ (gx#current-expander-context)) - (_bind-id153574_ (gx#stx-e _id153570_)) - (_mod-id153576_ + (lambda (_stx153447_) + (letrec ((_make-context153449_ + (lambda (_id153500_) + (let* ((_super153502_ (gx#current-expander-context)) + (_bind-id153504_ (gx#stx-e _id153500_)) + (_mod-id153506_ (if (##structure-instance-of? - _super153572_ + _super153502_ 'gx#module-context::t) (make-symbol__1 (##structure-ref - _super153572_ + _super153502_ '1 gx#expander-context::t '#f) '"$" - _bind-id153574_) - _bind-id153574_)) - (_ns153578_ (symbol->string _mod-id153576_)) - (_path153585_ + _bind-id153504_) + _bind-id153504_)) + (_ns153508_ (symbol->string _mod-id153506_)) + (_path153515_ (if (##structure-instance-of? - _super153572_ + _super153502_ 'gx#module-context::t) - (let ((_path153580_ + (let ((_path153510_ (##unchecked-structure-ref - _super153572_ + _super153502_ '7 gx#module-context::t '#f))) - (if (or (pair? _path153580_) - (null? _path153580_)) - (cons _bind-id153574_ _path153580_) - (if (not _path153580_) - _bind-id153574_ - (cons _bind-id153574_ - (cons _path153580_ '()))))) - _bind-id153574_))) - (let ((__obj159836 - (make-object* gx#module-context::t '12))) + (if (or (pair? _path153510_) + (null? _path153510_)) + (cons _bind-id153504_ _path153510_) + (if (not _path153510_) + _bind-id153504_ + (cons _bind-id153504_ + (cons _path153510_ '()))))) + _bind-id153504_))) + (let ((__obj159766 + (make-object gx#module-context::t '12))) (gx#module-context:::init! - __obj159836 - _mod-id153576_ - _super153572_ - _ns153578_ - _path153585_) - __obj159836))))) - (let* ((_e153520153530_ _stx153517_) - (_E153522153534_ + __obj159766 + _mod-id153506_ + _super153502_ + _ns153508_ + _path153515_) + __obj159766))))) + (let* ((_e153450153460_ _stx153447_) + (_E153452153464_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153520153530_))) - (_E153521153566_ + _e153450153460_))) + (_E153451153496_ (lambda () - (if (gx#stx-pair? _e153520153530_) - (let ((_e153523153538_ (gx#syntax-e _e153520153530_))) - (let ((_hd153524153541_ (##car _e153523153538_)) - (_tl153525153543_ (##cdr _e153523153538_))) - (if (gx#stx-pair? _tl153525153543_) - (let ((_e153526153546_ - (gx#syntax-e _tl153525153543_))) - (let ((_hd153527153549_ - (##car _e153526153546_)) - (_tl153528153551_ - (##cdr _e153526153546_))) - (let* ((_id153554_ _hd153527153549_) - (_body153556_ _tl153528153551_)) - (if (and (gx#identifier? _id153554_) - (gx#stx-list? _body153556_)) - (let* ((_ctx153558_ - (_make-context153519_ - _id153554_)) - (_body153560_ + (if (gx#stx-pair? _e153450153460_) + (let ((_e153453153468_ (gx#syntax-e _e153450153460_))) + (let ((_hd153454153471_ (##car _e153453153468_)) + (_tl153455153473_ (##cdr _e153453153468_))) + (if (gx#stx-pair? _tl153455153473_) + (let ((_e153456153476_ + (gx#syntax-e _tl153455153473_))) + (let ((_hd153457153479_ + (##car _e153456153476_)) + (_tl153458153481_ + (##cdr _e153456153476_))) + (let* ((_id153484_ _hd153457153479_) + (_body153486_ _tl153458153481_)) + (if (and (gx#identifier? _id153484_) + (gx#stx-list? _body153486_)) + (let* ((_ctx153488_ + (_make-context153449_ + _id153484_)) + (_body153490_ (gx#core-expand-module-begin - _body153556_ - _ctx153558_)) - (_body153562_ + _body153486_ + _ctx153488_)) + (_body153492_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body153560_) + _body153490_) (gx#stx-source - _stx153517_)))) + _stx153447_)))) (##unchecked-structure-set! - _ctx153558_ + _ctx153488_ (make-promise (lambda () (gx#eval-syntax* - _body153562_))) + _body153492_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx153558_ - _body153562_ + _ctx153488_ + _body153492_ '11 gx#module-context::t '#f) (gx#core-bind-syntax!__0 - _id153554_ - _ctx153558_) + _id153484_ + _ctx153488_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _id153554_) - _body153562_) - (gx#stx-source _stx153517_))) - (_E153522153534_))))) - (_E153522153534_)))) - (_E153522153534_))))) - (_E153521153566_))))) + _id153484_) + _body153492_) + (gx#stx-source _stx153447_))) + (_E153452153464_))))) + (_E153452153464_)))) + (_E153452153464_))))) + (_E153451153496_))))) (define gx#core-expand-module-begin - (lambda (_body153483_ _ctx153484_) + (lambda (_body153413_ _ctx153414_) (call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_stx153487_ - (gx#core-expand-head (cons '%%begin-module _body153483_))) - (_e153488153495_ _stx153487_) - (_E153490153499_ + (let* ((_stx153417_ + (gx#core-expand-head (cons '%%begin-module _body153413_))) + (_e153418153425_ _stx153417_) + (_E153420153429_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _stx153487_))) - (_E153489153513_ + _stx153417_))) + (_E153419153443_ (lambda () - (if (gx#stx-pair? _e153488153495_) - (let ((_e153491153503_ (gx#syntax-e _e153488153495_))) - (let ((_hd153492153506_ (##car _e153491153503_)) - (_tl153493153508_ (##cdr _e153491153503_))) - (if (and (gx#identifier? _hd153492153506_) + (if (gx#stx-pair? _e153418153425_) + (let ((_e153421153433_ (gx#syntax-e _e153418153425_))) + (let ((_hd153422153436_ (##car _e153421153433_)) + (_tl153423153438_ (##cdr _e153421153433_))) + (if (and (gx#identifier? _hd153422153436_) (gx#core-identifier=? - _hd153492153506_ + _hd153422153436_ '%#begin-module)) - (let ((_body153511_ _tl153493153508_)) + (let ((_body153441_ _tl153423153438_)) (if '#t - (if (gx#sealed-syntax? _stx153487_) - _body153511_ + (if (gx#sealed-syntax? _stx153417_) + _body153441_ (gx#core-expand-module-body - _body153511_)) - (_E153490153499_))) - (_E153490153499_)))) - (_E153490153499_))))) - (_E153489153513_))) + _body153441_)) + (_E153420153429_))) + (_E153420153429_)))) + (_E153420153429_))))) + (_E153419153443_))) gx#current-expander-context - _ctx153484_ + _ctx153414_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_body153279_) - (letrec ((_expand-special153281_ - (lambda (_hd153410_ _K153411_ _rest153412_ _r153413_) - (let* ((_e153414153431_ _hd153410_) - (_E153426153435_ + (lambda (_body153209_) + (letrec ((_expand-special153211_ + (lambda (_hd153340_ _K153341_ _rest153342_ _r153343_) + (let* ((_e153344153361_ _hd153340_) + (_E153356153365_ (lambda () - (_K153411_ - _rest153412_ - (cons (gx#core-expand-top _hd153410_) - _r153413_)))) - (_E153416153447_ + (_K153341_ + _rest153342_ + (cons (gx#core-expand-top _hd153340_) + _r153343_)))) + (_E153346153377_ (lambda () - (if (gx#stx-pair? _e153414153431_) - (let ((_e153427153439_ - (gx#syntax-e _e153414153431_))) - (let ((_hd153428153442_ - (##car _e153427153439_)) - (_tl153429153444_ - (##cdr _e153427153439_))) + (if (gx#stx-pair? _e153344153361_) + (let ((_e153357153369_ + (gx#syntax-e _e153344153361_))) + (let ((_hd153358153372_ + (##car _e153357153369_)) + (_tl153359153374_ + (##cdr _e153357153369_))) (if (and (gx#identifier? - _hd153428153442_) + _hd153358153372_) (gx#core-identifier=? - _hd153428153442_ + _hd153358153372_ '%#export)) (if '#t - (_K153411_ - _rest153412_ - (cons _hd153410_ _r153413_)) - (_E153426153435_)) - (_E153426153435_)))) - (_E153426153435_)))) - (_E153415153479_ + (_K153341_ + _rest153342_ + (cons _hd153340_ _r153343_)) + (_E153356153365_)) + (_E153356153365_)))) + (_E153356153365_)))) + (_E153345153409_ (lambda () - (if (gx#stx-pair? _e153414153431_) - (let ((_e153417153451_ - (gx#syntax-e _e153414153431_))) - (let ((_hd153418153454_ - (##car _e153417153451_)) - (_tl153419153456_ - (##cdr _e153417153451_))) + (if (gx#stx-pair? _e153344153361_) + (let ((_e153347153381_ + (gx#syntax-e _e153344153361_))) + (let ((_hd153348153384_ + (##car _e153347153381_)) + (_tl153349153386_ + (##cdr _e153347153381_))) (if (and (gx#identifier? - _hd153418153454_) + _hd153348153384_) (gx#core-identifier=? - _hd153418153454_ + _hd153348153384_ '%#define-values)) - (if (gx#stx-pair? _tl153419153456_) - (let ((_e153420153459_ + (if (gx#stx-pair? _tl153349153386_) + (let ((_e153350153389_ (gx#syntax-e - _tl153419153456_))) - (let ((_hd153421153462_ - (##car _e153420153459_)) - (_tl153422153464_ - (##cdr _e153420153459_))) - (let ((_hd-bind153467_ - _hd153421153462_)) + _tl153349153386_))) + (let ((_hd153351153392_ + (##car _e153350153389_)) + (_tl153352153394_ + (##cdr _e153350153389_))) + (let ((_hd-bind153397_ + _hd153351153392_)) (if (gx#stx-pair? - _tl153422153464_) - (let ((_e153423153469_ + _tl153352153394_) + (let ((_e153353153399_ (gx#syntax-e - _tl153422153464_))) - (let ((_hd153424153472_ + _tl153352153394_))) + (let ((_hd153354153402_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e153423153469_)) - (_tl153425153474_ (##cdr _e153423153469_))) - (let ((_expr153477_ _hd153424153472_)) - (if (gx#stx-null? _tl153425153474_) - (if (gx#core-bind-values? _hd-bind153467_) + (##car _e153353153399_)) + (_tl153355153404_ (##cdr _e153353153399_))) + (let ((_expr153407_ _hd153354153402_)) + (if (gx#stx-null? _tl153355153404_) + (if (gx#core-bind-values? _hd-bind153397_) (begin - (gx#core-bind-values!__0 _hd-bind153467_) - (_K153411_ - _rest153412_ - (cons _hd153410_ _r153413_))) - (_E153416153447_)) - (_E153416153447_))))) - (_E153416153447_))))) + (gx#core-bind-values!__0 _hd-bind153397_) + (_K153341_ + _rest153342_ + (cons _hd153340_ _r153343_))) + (_E153346153377_)) + (_E153346153377_))))) + (_E153346153377_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153416153447_)) - (_E153416153447_)))) - (_E153416153447_))))) - (_E153415153479_)))) - (_expand-body153282_ - (lambda (_rbody153284_) - (let _lp153286_ ((_rest153288_ _rbody153284_) - (_body153289_ '())) - (let* ((_rest153290153298_ _rest153288_) - (_else153292153306_ (lambda () _body153289_)) - (_K153294153398_ - (lambda (_rest153309_ _hd153310_) - (let* ((_e153311153332_ _hd153310_) - (_E153327153336_ + (_E153346153377_)) + (_E153346153377_)))) + (_E153346153377_))))) + (_E153345153409_)))) + (_expand-body153212_ + (lambda (_rbody153214_) + (let _lp153216_ ((_rest153218_ _rbody153214_) + (_body153219_ '())) + (let* ((_rest153220153228_ _rest153218_) + (_else153222153236_ (lambda () _body153219_)) + (_K153224153328_ + (lambda (_rest153239_ _hd153240_) + (let* ((_e153241153262_ _hd153240_) + (_E153257153266_ (lambda () - (_lp153286_ - _rest153309_ + (_lp153216_ + _rest153239_ (cons (gx#core-expand-expression - _hd153310_) - _body153289_)))) - (_E153323153350_ + _hd153240_) + _body153219_)))) + (_E153253153280_ (lambda () - (if (gx#stx-pair? _e153311153332_) - (let ((_e153328153340_ + (if (gx#stx-pair? _e153241153262_) + (let ((_e153258153270_ (gx#syntax-e - _e153311153332_))) - (let ((_hd153329153343_ - (##car _e153328153340_)) - (_tl153330153345_ - (##cdr _e153328153340_))) - (let ((_form153348_ - _hd153329153343_)) + _e153241153262_))) + (let ((_hd153259153273_ + (##car _e153258153270_)) + (_tl153260153275_ + (##cdr _e153258153270_))) + (let ((_form153278_ + _hd153259153273_)) (if (gx#core-bound-identifier?__% - _form153348_ + _form153278_ gx#special-form-binding?) - (_lp153286_ - _rest153309_ - (cons _hd153310_ - _body153289_)) - (_E153327153336_))))) - (_E153327153336_)))) - (_E153313153362_ + (_lp153216_ + _rest153239_ + (cons _hd153240_ + _body153219_)) + (_E153257153266_))))) + (_E153257153266_)))) + (_E153243153292_ (lambda () - (if (gx#stx-pair? _e153311153332_) - (let ((_e153324153354_ + (if (gx#stx-pair? _e153241153262_) + (let ((_e153254153284_ (gx#syntax-e - _e153311153332_))) - (let ((_hd153325153357_ - (##car _e153324153354_)) - (_tl153326153359_ - (##cdr _e153324153354_))) + _e153241153262_))) + (let ((_hd153255153287_ + (##car _e153254153284_)) + (_tl153256153289_ + (##cdr _e153254153284_))) (if (and (gx#identifier? - _hd153325153357_) + _hd153255153287_) (gx#core-identifier=? - _hd153325153357_ + _hd153255153287_ '%#export)) (if '#t - (_lp153286_ - _rest153309_ + (_lp153216_ + _rest153239_ (cons (gx#core-expand-export%__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd153310_) - _body153289_)) - (_E153323153350_)) - (_E153323153350_)))) + _hd153240_) + _body153219_)) + (_E153253153280_)) + (_E153253153280_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153323153350_)))) - (_E153312153394_ + (_E153253153280_)))) + (_E153242153324_ (lambda () - (if (gx#stx-pair? _e153311153332_) - (let ((_e153314153366_ + (if (gx#stx-pair? _e153241153262_) + (let ((_e153244153296_ (gx#syntax-e - _e153311153332_))) - (let ((_hd153315153369_ - (##car _e153314153366_)) - (_tl153316153371_ - (##cdr _e153314153366_))) + _e153241153262_))) + (let ((_hd153245153299_ + (##car _e153244153296_)) + (_tl153246153301_ + (##cdr _e153244153296_))) (if (and (gx#identifier? - _hd153315153369_) + _hd153245153299_) (gx#core-identifier=? - _hd153315153369_ + _hd153245153299_ '%#define-values)) (if (gx#stx-pair? - _tl153316153371_) - (let ((_e153317153374_ + _tl153246153301_) + (let ((_e153247153304_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl153316153371_))) - (let ((_hd153318153377_ (##car _e153317153374_)) - (_tl153319153379_ (##cdr _e153317153374_))) - (let ((_hd-bind153382_ _hd153318153377_)) - (if (gx#stx-pair? _tl153319153379_) - (let ((_e153320153384_ - (gx#syntax-e _tl153319153379_))) - (let ((_hd153321153387_ (##car _e153320153384_)) - (_tl153322153389_ (##cdr _e153320153384_))) - (let ((_expr153392_ _hd153321153387_)) - (if (gx#stx-null? _tl153322153389_) + (gx#syntax-e _tl153246153301_))) + (let ((_hd153248153307_ (##car _e153247153304_)) + (_tl153249153309_ (##cdr _e153247153304_))) + (let ((_hd-bind153312_ _hd153248153307_)) + (if (gx#stx-pair? _tl153249153309_) + (let ((_e153250153314_ + (gx#syntax-e _tl153249153309_))) + (let ((_hd153251153317_ (##car _e153250153314_)) + (_tl153252153319_ (##cdr _e153250153314_))) + (let ((_expr153322_ _hd153251153317_)) + (if (gx#stx-null? _tl153252153319_) (if '#t - (_lp153286_ - _rest153309_ + (_lp153216_ + _rest153239_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _hd-bind153382_) + _hd-bind153312_) (gx#core-expand-expression - _expr153392_)) - (gx#stx-source _hd153310_)) - _body153289_)) - (_E153313153362_)) - (_E153313153362_))))) - (_E153313153362_))))) - (_E153313153362_)) - (_E153313153362_)))) + _expr153322_)) + (gx#stx-source _hd153240_)) + _body153219_)) + (_E153243153292_)) + (_E153243153292_))))) + (_E153243153292_))))) + (_E153243153292_)) + (_E153243153292_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153313153362_))))) - (_E153312153394_))))) - (if (##pair? _rest153290153298_) - (let ((_hd153295153401_ (##car _rest153290153298_)) - (_tl153296153403_ - (##cdr _rest153290153298_))) - (let* ((_hd153406_ _hd153295153401_) - (_rest153408_ _tl153296153403_)) - (_K153294153398_ _rest153408_ _hd153406_))) - (_else153292153306_))))))) - (_expand-body153282_ + (_E153243153292_))))) + (_E153242153324_))))) + (if (##pair? _rest153220153228_) + (let ((_hd153225153331_ (##car _rest153220153228_)) + (_tl153226153333_ + (##cdr _rest153220153228_))) + (let* ((_hd153336_ _hd153225153331_) + (_rest153338_ _tl153226153333_)) + (_K153224153328_ _rest153338_ _hd153336_))) + (_else153222153236_))))))) + (_expand-body153212_ (gx#core-expand-block__% - (cons '%#begin-module _body153279_) - _expand-special153281_ + (cons '%#begin-module _body153209_) + _expand-special153211_ '#f values))))) (define gx#core-expand-import/export - (lambda (_stx153122_ - _expanded?153123_ - _method153124_ - _current-phi153125_ - _expand1153126_) - (letrec ((_K153128_ - (lambda (_rest153246_ _r153247_) - (let* ((_e153248153255_ _rest153246_) - (_E153250153259_ (lambda () _r153247_)) - (_E153249153275_ + (lambda (_stx153052_ + _expanded?153053_ + _method153054_ + _current-phi153055_ + _expand1153056_) + (letrec ((_K153058_ + (lambda (_rest153176_ _r153177_) + (let* ((_e153178153185_ _rest153176_) + (_E153180153189_ (lambda () _r153177_)) + (_E153179153205_ (lambda () - (if (gx#stx-pair? _e153248153255_) - (let ((_e153251153263_ - (gx#syntax-e _e153248153255_))) - (let ((_hd153252153266_ - (##car _e153251153263_)) - (_tl153253153268_ - (##cdr _e153251153263_))) - (let* ((_hd153271_ _hd153252153266_) - (_rest153273_ _tl153253153268_)) + (if (gx#stx-pair? _e153178153185_) + (let ((_e153181153193_ + (gx#syntax-e _e153178153185_))) + (let ((_hd153182153196_ + (##car _e153181153193_)) + (_tl153183153198_ + (##cdr _e153181153193_))) + (let* ((_hd153201_ _hd153182153196_) + (_rest153203_ _tl153183153198_)) (if '#t - (_step153129_ - _hd153271_ - _rest153273_ - _r153247_) - (_E153250153259_))))) - (_E153250153259_))))) - (_E153249153275_)))) - (_step153129_ - (lambda (_hd153160_ _rest153161_ _r153162_) - (let* ((_e153163153181_ _hd153160_) - (_E153176153185_ + (_step153059_ + _hd153201_ + _rest153203_ + _r153177_) + (_E153180153189_))))) + (_E153180153189_))))) + (_E153179153205_)))) + (_step153059_ + (lambda (_hd153090_ _rest153091_ _r153092_) + (let* ((_e153093153111_ _hd153090_) + (_E153106153115_ (lambda () - (if (_expanded?153123_ (gx#stx-e _hd153160_)) - (_K153128_ - _rest153161_ - (cons (gx#stx-e _hd153160_) _r153162_)) - (_expand1153126_ - _hd153160_ - _K153128_ - _rest153161_ - _r153162_)))) - (_E153172153201_ + (if (_expanded?153053_ (gx#stx-e _hd153090_)) + (_K153058_ + _rest153091_ + (cons (gx#stx-e _hd153090_) _r153092_)) + (_expand1153056_ + _hd153090_ + _K153058_ + _rest153091_ + _r153092_)))) + (_E153102153131_ (lambda () - (if (gx#stx-pair? _e153163153181_) - (let ((_e153177153189_ - (gx#syntax-e _e153163153181_))) - (let ((_hd153178153192_ - (##car _e153177153189_)) - (_tl153179153194_ - (##cdr _e153177153189_))) - (let* ((_macro153197_ _hd153178153192_) - (_body153199_ _tl153179153194_)) + (if (gx#stx-pair? _e153093153111_) + (let ((_e153107153119_ + (gx#syntax-e _e153093153111_))) + (let ((_hd153108153122_ + (##car _e153107153119_)) + (_tl153109153124_ + (##cdr _e153107153119_))) + (let* ((_macro153127_ _hd153108153122_) + (_body153129_ _tl153109153124_)) (if (gx#core-bound-identifier?__% - _macro153197_ + _macro153127_ gx#syntax-binding?) - (_K153128_ + (_K153058_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _macro153197_) - _hd153160_ - _method153124_) - _rest153161_) - _r153162_) - (_E153176153185_))))) - (_E153176153185_)))) - (_E153165153215_ + _macro153127_) + _hd153090_ + _method153054_) + _rest153091_) + _r153092_) + (_E153106153115_))))) + (_E153106153115_)))) + (_E153095153145_ (lambda () - (if (gx#stx-pair? _e153163153181_) - (let ((_e153173153205_ - (gx#syntax-e _e153163153181_))) - (let ((_hd153174153208_ - (##car _e153173153205_)) - (_tl153175153210_ - (##cdr _e153173153205_))) - (if (eq? (gx#stx-e _hd153174153208_) + (if (gx#stx-pair? _e153093153111_) + (let ((_e153103153135_ + (gx#syntax-e _e153093153111_))) + (let ((_hd153104153138_ + (##car _e153103153135_)) + (_tl153105153140_ + (##cdr _e153103153135_))) + (if (eq? (gx#stx-e _hd153104153138_) 'begin:) - (let ((_body153213_ - _tl153175153210_)) + (let ((_body153143_ + _tl153105153140_)) (if '#t - (_K153128_ + (_K153058_ (gx#stx-foldr cons - _rest153161_ - _body153213_) - _r153162_) - (_E153172153201_))) - (_E153172153201_)))) - (_E153172153201_)))) - (_E153164153242_ + _rest153091_ + _body153143_) + _r153092_) + (_E153102153131_))) + (_E153102153131_)))) + (_E153102153131_)))) + (_E153094153172_ (lambda () - (if (gx#stx-pair? _e153163153181_) - (let ((_e153166153219_ - (gx#syntax-e _e153163153181_))) - (let ((_hd153167153222_ - (##car _e153166153219_)) - (_tl153168153224_ - (##cdr _e153166153219_))) - (if (eq? (gx#stx-e _hd153167153222_) + (if (gx#stx-pair? _e153093153111_) + (let ((_e153096153149_ + (gx#syntax-e _e153093153111_))) + (let ((_hd153097153152_ + (##car _e153096153149_)) + (_tl153098153154_ + (##cdr _e153096153149_))) + (if (eq? (gx#stx-e _hd153097153152_) 'phi:) - (if (gx#stx-pair? _tl153168153224_) - (let ((_e153169153227_ + (if (gx#stx-pair? _tl153098153154_) + (let ((_e153099153157_ (gx#syntax-e - _tl153168153224_))) - (let ((_hd153170153230_ - (##car _e153169153227_)) - (_tl153171153232_ - (##cdr _e153169153227_))) - (let* ((_dphi153235_ - _hd153170153230_) - (_body153237_ - _tl153171153232_)) + _tl153098153154_))) + (let ((_hd153100153160_ + (##car _e153099153157_)) + (_tl153101153162_ + (##cdr _e153099153157_))) + (let* ((_dphi153165_ + _hd153100153160_) + (_body153167_ + _tl153101153162_)) (if (gx#stx-fixnum? - _dphi153235_) - (let ((_rbody153240_ + _dphi153165_) + (let ((_rbody153170_ (call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_K153128_ _body153237_ '())) - _current-phi153125_ - (fx+ (gx#stx-e _dphi153235_) (_current-phi153125_))))) - (_K153128_ - _rest153161_ - (foldr1 cons _r153162_ _rbody153240_))) - (_E153165153215_))))) + (_K153058_ _body153167_ '())) + _current-phi153055_ + (fx+ (gx#stx-e _dphi153165_) (_current-phi153055_))))) + (_K153058_ + _rest153091_ + (foldr1 cons _r153092_ _rbody153170_))) + (_E153095153145_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153165153215_)) - (_E153165153215_)))) - (_E153165153215_))))) - (_E153164153242_))))) - (let* ((_e153130153137_ _stx153122_) - (_E153132153141_ + (_E153095153145_)) + (_E153095153145_)))) + (_E153095153145_))))) + (_E153094153172_))))) + (let* ((_e153060153067_ _stx153052_) + (_E153062153071_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153130153137_))) - (_E153131153156_ + _e153060153067_))) + (_E153061153086_ (lambda () - (if (gx#stx-pair? _e153130153137_) - (let ((_e153133153145_ (gx#syntax-e _e153130153137_))) - (let ((_hd153134153148_ (##car _e153133153145_)) - (_tl153135153150_ (##cdr _e153133153145_))) - (let ((_body153153_ _tl153135153150_)) + (if (gx#stx-pair? _e153060153067_) + (let ((_e153063153075_ (gx#syntax-e _e153060153067_))) + (let ((_hd153064153078_ (##car _e153063153075_)) + (_tl153065153080_ (##cdr _e153063153075_))) + (let ((_body153083_ _tl153065153080_)) (if '#t - (if (_current-phi153125_) - (_K153128_ _body153153_ '()) + (if (_current-phi153055_) + (_K153058_ _body153083_ '()) (call-with-parameters - (lambda () (_K153128_ _body153153_ '())) - _current-phi153125_ + (lambda () (_K153058_ _body153083_ '())) + _current-phi153055_ (gx#current-expander-phi))) - (_E153132153141_))))) - (_E153132153141_))))) - (_E153131153156_))))) + (_E153062153071_))))) + (_E153062153071_))))) + (_E153061153086_))))) (define gx#core-expand-import%__% - (lambda (_stx152789_ _internal-expand?152790_) - (letrec ((_expand1152792_ - (lambda (_hd153102_ _K153103_ _rest153104_ _r153105_) - (if (gx#core-bound-module? _hd153102_) - (_import1152793_ - (gx#syntax-local-e__0 _hd153102_) - _K153103_ - _rest153104_ - _r153105_) - (if (gx#core-library-module-path? _hd153102_) - (_import1152793_ + (lambda (_stx152719_ _internal-expand?152720_) + (letrec ((_expand1152722_ + (lambda (_hd153032_ _K153033_ _rest153034_ _r153035_) + (if (gx#core-bound-module? _hd153032_) + (_import1152723_ + (gx#syntax-local-e__0 _hd153032_) + _K153033_ + _rest153034_ + _r153035_) + (if (gx#core-library-module-path? _hd153032_) + (_import1152723_ (gx#import-module__0 - (gx#core-resolve-library-module-path _hd153102_)) - _K153103_ - _rest153104_ - _r153105_) + (gx#core-resolve-library-module-path _hd153032_)) + _K153033_ + _rest153034_ + _r153035_) (if (gx#core-library-relative-module-path? - _hd153102_) - (_import1152793_ + _hd153032_) + (_import1152723_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd153102_)) - _K153103_ - _rest153104_ - _r153105_) - (let ((_e153107_ (gx#stx-e _hd153102_))) - (if (pair? _e153107_) - (let ((_$e153109_ - (gx#stx-e (car _e153107_)))) - (if (eq? 'spec: _$e153109_) - (_import-spec152796_ - _hd153102_ - _K153103_ - _rest153104_ - _r153105_) - (if (eq? 'in: _$e153109_) - (_import-submodule152794_ - _hd153102_ - _K153103_ - _rest153104_ - _r153105_) - (if (eq? 'runtime: _$e153109_) - (_import-runtime152795_ - _hd153102_ - _K153103_ - _rest153104_ - _r153105_) + _hd153032_)) + _K153033_ + _rest153034_ + _r153035_) + (let ((_e153037_ (gx#stx-e _hd153032_))) + (if (pair? _e153037_) + (let ((_$e153039_ + (gx#stx-e (car _e153037_)))) + (if (eq? 'spec: _$e153039_) + (_import-spec152726_ + _hd153032_ + _K153033_ + _rest153034_ + _r153035_) + (if (eq? 'in: _$e153039_) + (_import-submodule152724_ + _hd153032_ + _K153033_ + _rest153034_ + _r153035_) + (if (eq? 'runtime: _$e153039_) + (_import-runtime152725_ + _hd153032_ + _K153033_ + _rest153034_ + _r153035_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx152789_ - _hd153102_))))) - (if (string? _e153107_) - (_import1152793_ + _stx152719_ + _hd153032_))))) + (if (string? _e153037_) + (_import1152723_ (gx#import-module__0 (gx#core-resolve-module-path__% - _hd153102_ - (gx#stx-source _stx152789_))) - _K153103_ - _rest153104_ - _r153105_) + _hd153032_ + (gx#stx-source _stx152719_))) + _K153033_ + _rest153034_ + _r153035_) (if (##structure-instance-of? - _e153107_ + _e153037_ 'gx#module-context::t) - (_K153103_ - _rest153104_ - (cons _e153107_ _r153105_)) + (_K153033_ + _rest153034_ + (cons _e153037_ _r153035_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx152789_ - _hd153102_)))))))))) - (_import1152793_ - (lambda (_ctx153091_ _K153092_ _rest153093_ _r153094_) - (let ((_dphi153096_ + _stx152719_ + _hd153032_)))))))))) + (_import1152723_ + (lambda (_ctx153021_ _K153022_ _rest153023_ _r153024_) + (let ((_dphi153026_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_K153092_ - _rest153093_ + (_K153022_ + _rest153023_ (cons (##structure gx#import-set::t - _ctx153091_ - _dphi153096_ - (map (lambda (_g153097153099_) + _ctx153021_ + _dphi153026_ + (map (lambda (_g153027153029_) (gx#core-module-export->import__% - _g153097153099_ + _g153027153029_ '#f - _dphi153096_)) + _dphi153026_)) (##unchecked-structure-ref - _ctx153091_ + _ctx153021_ '9 gx#module-context::t '#f))) - _r153094_))))) - (_import-submodule152794_ - (lambda (_hd153058_ _K153059_ _rest153060_ _r153061_) - (let* ((_e153062153069_ _hd153058_) - (_E153064153073_ + _r153024_))))) + (_import-submodule152724_ + (lambda (_hd152988_ _K152989_ _rest152990_ _r152991_) + (let* ((_e152992152999_ _hd152988_) + (_E152994153003_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153062153069_))) - (_E153063153087_ + _e152992152999_))) + (_E152993153017_ (lambda () - (if (gx#stx-pair? _e153062153069_) - (let ((_e153065153077_ - (gx#syntax-e _e153062153069_))) - (let ((_hd153066153080_ - (##car _e153065153077_)) - (_tl153067153082_ - (##cdr _e153065153077_))) - (let ((_spath153085_ _tl153067153082_)) + (if (gx#stx-pair? _e152992152999_) + (let ((_e152995153007_ + (gx#syntax-e _e152992152999_))) + (let ((_hd152996153010_ + (##car _e152995153007_)) + (_tl152997153012_ + (##cdr _e152995153007_))) + (let ((_spath153015_ _tl152997153012_)) (if '#t - (_import1152793_ - (_import-spec-source152797_ - _spath153085_) - _K153059_ - _rest153060_ - _r153061_) - (_E153064153073_))))) - (_E153064153073_))))) - (_E153063153087_)))) - (_import-runtime152795_ - (lambda (_hd153025_ _K153026_ _rest153027_ _r153028_) - (let* ((_e153029153036_ _hd153025_) - (_E153031153040_ + (_import1152723_ + (_import-spec-source152727_ + _spath153015_) + _K152989_ + _rest152990_ + _r152991_) + (_E152994153003_))))) + (_E152994153003_))))) + (_E152993153017_)))) + (_import-runtime152725_ + (lambda (_hd152955_ _K152956_ _rest152957_ _r152958_) + (let* ((_e152959152966_ _hd152955_) + (_E152961152970_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153029153036_))) - (_E153030153054_ + _e152959152966_))) + (_E152960152984_ (lambda () - (if (gx#stx-pair? _e153029153036_) - (let ((_e153032153044_ - (gx#syntax-e _e153029153036_))) - (let ((_hd153033153047_ - (##car _e153032153044_)) - (_tl153034153049_ - (##cdr _e153032153044_))) - (let ((_spath153052_ _tl153034153049_)) + (if (gx#stx-pair? _e152959152966_) + (let ((_e152962152974_ + (gx#syntax-e _e152959152966_))) + (let ((_hd152963152977_ + (##car _e152962152974_)) + (_tl152964152979_ + (##cdr _e152962152974_))) + (let ((_spath152982_ _tl152964152979_)) (if '#t - (_K153026_ - _rest153027_ - (cons (_import-spec-source152797_ - _spath153052_) - _r153028_)) - (_E153031153040_))))) - (_E153031153040_))))) - (_E153030153054_)))) - (_import-spec152796_ - (lambda (_hd152864_ _K152865_ _rest152866_ _r152867_) - (let* ((_e152868152885_ _hd152864_) - (_E152877152889_ + (_K152956_ + _rest152957_ + (cons (_import-spec-source152727_ + _spath152982_) + _r152958_)) + (_E152961152970_))))) + (_E152961152970_))))) + (_E152960152984_)))) + (_import-spec152726_ + (lambda (_hd152794_ _K152795_ _rest152796_ _r152797_) + (let* ((_e152798152815_ _hd152794_) + (_E152807152819_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152868152885_))) - (_E152870152999_ + _e152798152815_))) + (_E152800152929_ (lambda () - (if (gx#stx-pair? _e152868152885_) - (let ((_e152878152893_ - (gx#syntax-e _e152868152885_))) - (let ((_hd152879152896_ - (##car _e152878152893_)) - (_tl152880152898_ - (##cdr _e152878152893_))) - (if (gx#stx-pair? _tl152880152898_) - (let ((_e152881152901_ + (if (gx#stx-pair? _e152798152815_) + (let ((_e152808152823_ + (gx#syntax-e _e152798152815_))) + (let ((_hd152809152826_ + (##car _e152808152823_)) + (_tl152810152828_ + (##cdr _e152808152823_))) + (if (gx#stx-pair? _tl152810152828_) + (let ((_e152811152831_ (gx#syntax-e - _tl152880152898_))) - (let ((_hd152882152904_ - (##car _e152881152901_)) - (_tl152883152906_ - (##cdr _e152881152901_))) - (let* ((_path152909_ - _hd152882152904_) - (_specs152911_ - _tl152883152906_)) + _tl152810152828_))) + (let ((_hd152812152834_ + (##car _e152811152831_)) + (_tl152813152836_ + (##cdr _e152811152831_))) + (let* ((_path152839_ + _hd152812152834_) + (_specs152841_ + _tl152813152836_)) (if '#t - (let ((_src-ctx152913_ - (_import-spec-source152797_ - _path152909_)) - (_exports152914_ + (let ((_src-ctx152843_ + (_import-spec-source152727_ + _path152839_)) + (_exports152844_ (make-table)) - (_specs152915_ + (_specs152845_ (gx#syntax->list - _specs152911_))) + _specs152841_))) (for-each - (lambda (_out152917_) + (lambda (_out152847_) (table-set! - _exports152914_ + _exports152844_ (cons (##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out152917_ + _out152847_ '3 gx#module-export::t '#f) (##unchecked-structure-ref - _out152917_ + _out152847_ '4 gx#module-export::t '#f)) - _out152917_)) + _out152847_)) (##unchecked-structure-ref - _src-ctx152913_ + _src-ctx152843_ '9 gx#module-context::t '#f)) - (_K152865_ - _rest152866_ - (foldl1 (lambda (_spec152919_ _r152920_) - (let* ((_e152921152937_ _spec152919_) - (_E152923152941_ + (_K152795_ + _rest152796_ + (foldl1 (lambda (_spec152849_ _r152850_) + (let* ((_e152851152867_ _spec152849_) + (_E152853152871_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152921152937_))) - (_E152922152995_ + _e152851152867_))) + (_E152852152925_ (lambda () - (if (gx#stx-pair? _e152921152937_) - (let ((_e152924152945_ - (gx#syntax-e _e152921152937_))) - (let ((_hd152925152948_ - (##car _e152924152945_)) - (_tl152926152950_ - (##cdr _e152924152945_))) - (let ((_phi152953_ - _hd152925152948_)) + (if (gx#stx-pair? _e152851152867_) + (let ((_e152854152875_ + (gx#syntax-e _e152851152867_))) + (let ((_hd152855152878_ + (##car _e152854152875_)) + (_tl152856152880_ + (##cdr _e152854152875_))) + (let ((_phi152883_ + _hd152855152878_)) (if (gx#stx-pair? - _tl152926152950_) - (let ((_e152927152955_ + _tl152856152880_) + (let ((_e152857152885_ (gx#syntax-e - _tl152926152950_))) - (let ((_hd152928152958_ - (##car _e152927152955_)) - (_tl152929152960_ - (##cdr _e152927152955_))) - (let ((_name152963_ - _hd152928152958_)) + _tl152856152880_))) + (let ((_hd152858152888_ + (##car _e152857152885_)) + (_tl152859152890_ + (##cdr _e152857152885_))) + (let ((_name152893_ + _hd152858152888_)) (if (gx#stx-pair? - _tl152929152960_) - (let ((_e152930152965_ + _tl152859152890_) + (let ((_e152860152895_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl152929152960_))) - (let ((_hd152931152968_ (##car _e152930152965_)) - (_tl152932152970_ (##cdr _e152930152965_))) - (let ((_src-phi152973_ _hd152931152968_)) - (if (gx#stx-pair? _tl152932152970_) - (let ((_e152933152975_ - (gx#syntax-e _tl152932152970_))) - (let ((_hd152934152978_ (##car _e152933152975_)) - (_tl152935152980_ - (##cdr _e152933152975_))) - (let ((_src-name152983_ _hd152934152978_)) - (if (gx#stx-null? _tl152935152980_) + (gx#syntax-e _tl152859152890_))) + (let ((_hd152861152898_ (##car _e152860152895_)) + (_tl152862152900_ (##cdr _e152860152895_))) + (let ((_src-phi152903_ _hd152861152898_)) + (if (gx#stx-pair? _tl152862152900_) + (let ((_e152863152905_ + (gx#syntax-e _tl152862152900_))) + (let ((_hd152864152908_ (##car _e152863152905_)) + (_tl152865152910_ + (##cdr _e152863152905_))) + (let ((_src-name152913_ _hd152864152908_)) + (if (gx#stx-null? _tl152865152910_) (if (and (gx#stx-fixnum? - _src-phi152973_) + _src-phi152903_) (gx#identifier? - _src-name152983_) - (gx#stx-fixnum? _phi152953_) - (gx#identifier? _name152963_)) - (let ((_src-phi152985_ - (gx#stx-e _src-phi152973_)) - (_src-name152986_ + _src-name152913_) + (gx#stx-fixnum? _phi152883_) + (gx#identifier? _name152893_)) + (let ((_src-phi152915_ + (gx#stx-e _src-phi152903_)) + (_src-name152916_ (gx#core-identifier-key - _src-name152983_)) - (_phi152987_ - (gx#stx-e _phi152953_)) - (_name152988_ + _src-name152913_)) + (_phi152917_ + (gx#stx-e _phi152883_)) + (_name152918_ (gx#core-identifier-key - _name152963_))) - (let ((_$e152990_ + _name152893_))) + (let ((_$e152920_ (table-ref - _exports152914_ - (cons _src-phi152985_ - _src-name152986_) + _exports152844_ + (cons _src-phi152915_ + _src-name152916_) '#f))) - (if _$e152990_ - ((lambda (_out152993_) + (if _$e152920_ + ((lambda (_out152923_) (cons (gx#core-module-export->import__% - _out152993_ - _name152988_ - (fx- _phi152987_ + _out152923_ + _name152918_ + (fx- _phi152917_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _src-phi152985_)) - _r152920_)) + _src-phi152915_)) + _r152850_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e152990_) + _$e152920_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _stx152789_ - _hd152864_)))) - (_E152923152941_)) - (_E152923152941_))))) - (_E152923152941_))))) - (_E152923152941_))))) + _stx152719_ + _hd152794_)))) + (_E152853152871_)) + (_E152853152871_))))) + (_E152853152871_))))) + (_E152853152871_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152923152941_))))) - (_E152923152941_))))) - (_E152922152995_))) - _r152867_ - _specs152915_))) + (_E152853152871_))))) + (_E152853152871_))))) + (_E152852152925_))) + _r152797_ + _specs152845_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152877152889_))))) - (_E152877152889_)))) - (_E152877152889_)))) - (_E152869153021_ + (_E152807152819_))))) + (_E152807152819_)))) + (_E152807152819_)))) + (_E152799152951_ (lambda () - (if (gx#stx-pair? _e152868152885_) - (let ((_e152871153003_ - (gx#syntax-e _e152868152885_))) - (let ((_hd152872153006_ - (##car _e152871153003_)) - (_tl152873153008_ - (##cdr _e152871153003_))) - (if (gx#stx-pair? _tl152873153008_) - (let ((_e152874153011_ + (if (gx#stx-pair? _e152798152815_) + (let ((_e152801152933_ + (gx#syntax-e _e152798152815_))) + (let ((_hd152802152936_ + (##car _e152801152933_)) + (_tl152803152938_ + (##cdr _e152801152933_))) + (if (gx#stx-pair? _tl152803152938_) + (let ((_e152804152941_ (gx#syntax-e - _tl152873153008_))) - (let ((_hd152875153014_ - (##car _e152874153011_)) - (_tl152876153016_ - (##cdr _e152874153011_))) - (let ((_path153019_ - _hd152875153014_)) + _tl152803152938_))) + (let ((_hd152805152944_ + (##car _e152804152941_)) + (_tl152806152946_ + (##cdr _e152804152941_))) + (let ((_path152949_ + _hd152805152944_)) (if (gx#stx-null? - _tl152876153016_) + _tl152806152946_) (if '#t - (_K152865_ - _rest152866_ - (cons (_import-spec-source152797_ - _path153019_) - _r152867_)) - (_E152870152999_)) - (_E152870152999_))))) - (_E152870152999_)))) - (_E152870152999_))))) - (_E152869153021_)))) - (_import-spec-source152797_ - (lambda (_spath152862_) - (gx#core-import-nested-module _spath152862_ _stx152789_))) - (_import!152798_ - (lambda (_rbody152811_) - (letrec* ((_current-ctx152813_ + (_K152795_ + _rest152796_ + (cons (_import-spec-source152727_ + _path152949_) + _r152797_)) + (_E152800152929_)) + (_E152800152929_))))) + (_E152800152929_)))) + (_E152800152929_))))) + (_E152799152951_)))) + (_import-spec-source152727_ + (lambda (_spath152792_) + (gx#core-import-nested-module _spath152792_ _stx152719_))) + (_import!152728_ + (lambda (_rbody152741_) + (letrec* ((_current-ctx152743_ (gx#current-expander-context)) - (_deps152814_ (make-table 'test: eq?)) - (_bind!152815_ - (lambda (_hd152860_) + (_deps152744_ (make-table 'test: eq?)) + (_bind!152745_ + (lambda (_hd152790_) (gx#core-bind-import!__1 - _hd152860_ - _current-ctx152813_)))) - (let _lp152817_ ((_rest152819_ _rbody152811_) - (_body152820_ '())) - (let* ((_rest152821152829_ _rest152819_) - (_else152823152839_ + _hd152790_ + _current-ctx152743_)))) + (let _lp152747_ ((_rest152749_ _rbody152741_) + (_body152750_ '())) + (let* ((_rest152751152759_ _rest152749_) + (_else152753152769_ (lambda () (if (##structure-instance-of? - _current-ctx152813_ + _current-ctx152743_ 'gx#module-context::t) (##unchecked-structure-set! - _current-ctx152813_ + _current-ctx152743_ (foldl1 cons (##unchecked-structure-ref - _current-ctx152813_ + _current-ctx152743_ '8 gx#module-context::t '#f) - _body152820_) + _body152750_) '8 gx#module-context::t '#f) '#!void) (table-for-each - (lambda (_ctx152837_ _g159861_) - (gx#eval-module _ctx152837_)) - _deps152814_) - _body152820_)) - (_K152825152848_ - (lambda (_rest152842_ _hd152843_) + (lambda (_ctx152767_ _g159791_) + (gx#eval-module _ctx152767_)) + _deps152744_) + _body152750_)) + (_K152755152778_ + (lambda (_rest152772_ _hd152773_) (if (##structure-direct-instance-of? - _hd152843_ + _hd152773_ 'gx#module-import::t) (begin - (_bind!152815_ _hd152843_) + (_bind!152745_ _hd152773_) (if (and (fxpositive? (##unchecked-structure-ref - _hd152843_ + _hd152773_ '3 gx#module-import::t '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _hd152843_ + _hd152773_ '1 gx#module-import::t '#f) @@ -3022,10 +3022,10 @@ gx#module-export::t '#f))) (table-set! - _deps152814_ + _deps152744_ (##unchecked-structure-ref (##unchecked-structure-ref - _hd152843_ + _hd152773_ '1 gx#module-import::t '#f) @@ -3035,161 +3035,161 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _hd152843_ + _hd152773_ 'gx#import-set::t) (begin (for-each - _bind!152815_ + _bind!152745_ (##unchecked-structure-ref - _hd152843_ + _hd152773_ '3 gx#import-set::t '#f)) (if (fxpositive? (##unchecked-structure-ref - _hd152843_ + _hd152773_ '2 gx#import-set::t '#f)) (table-set! - _deps152814_ + _deps152744_ (##unchecked-structure-ref - _hd152843_ + _hd152773_ '1 gx#import-set::t '#f) '#t) '#!void)) - (let ((_$e152845_ + (let ((_$e152775_ (##structure-instance-of? - _hd152843_ + _hd152773_ 'gx#module-context::t))) - (if _$e152845_ - _$e152845_ + (if _$e152775_ + _$e152775_ (gx#raise-syntax-error '#f '"Unexpected import" - _stx152789_ - _hd152843_))))) - (_lp152817_ - _rest152842_ - (cons _hd152843_ _body152820_))))) - (if (##pair? _rest152821152829_) - (let ((_hd152826152851_ - (##car _rest152821152829_)) - (_tl152827152853_ - (##cdr _rest152821152829_))) - (let* ((_hd152856_ _hd152826152851_) - (_rest152858_ _tl152827152853_)) - (_K152825152848_ _rest152858_ _hd152856_))) - (_else152823152839_))))))) - (_expanded-import?152799_ - (lambda (_e152803_) - (let ((_$e152805_ + _stx152719_ + _hd152773_))))) + (_lp152747_ + _rest152772_ + (cons _hd152773_ _body152750_))))) + (if (##pair? _rest152751152759_) + (let ((_hd152756152781_ + (##car _rest152751152759_)) + (_tl152757152783_ + (##cdr _rest152751152759_))) + (let* ((_hd152786_ _hd152756152781_) + (_rest152788_ _tl152757152783_)) + (_K152755152778_ _rest152788_ _hd152786_))) + (_else152753152769_))))))) + (_expanded-import?152729_ + (lambda (_e152733_) + (let ((_$e152735_ (##structure-direct-instance-of? - _e152803_ + _e152733_ 'gx#import-set::t))) - (if _$e152805_ - _$e152805_ - (let ((_$e152808_ + (if _$e152735_ + _$e152735_ + (let ((_$e152738_ (##structure-direct-instance-of? - _e152803_ + _e152733_ 'gx#module-import::t))) - (if _$e152808_ - _$e152808_ + (if _$e152738_ + _$e152738_ (##structure-instance-of? - _e152803_ + _e152733_ 'gx#module-context::t)))))))) - (let ((_rbody152801_ + (let ((_rbody152731_ (gx#core-expand-import/export - _stx152789_ - _expanded-import?152799_ + _stx152719_ + _expanded-import?152729_ 'apply-import-expander gx#current-import-expander-phi - _expand1152792_))) - (if _internal-expand?152790_ - (reverse _rbody152801_) + _expand1152722_))) + (if _internal-expand?152720_ + (reverse _rbody152731_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_import!152798_ _rbody152801_)) - (gx#stx-source _stx152789_))))))) + (gx#core-cons '%#import (_import!152728_ _rbody152731_)) + (gx#stx-source _stx152719_))))))) (define gx#core-expand-import%__0 - (lambda (_stx153115_) - (let ((_internal-expand?153117_ '#f)) - (gx#core-expand-import%__% _stx153115_ _internal-expand?153117_)))) + (lambda (_stx153045_) + (let ((_internal-expand?153047_ '#f)) + (gx#core-expand-import%__% _stx153045_ _internal-expand?153047_)))) (define gx#core-expand-import% - (lambda _g159863_ - (let ((_g159862_ (##length _g159863_))) - (cond ((##fx= _g159862_ 1) - (apply (lambda (_stx153115_) - (gx#core-expand-import%__0 _stx153115_)) - _g159863_)) - ((##fx= _g159862_ 2) - (apply (lambda (_stx153119_ _internal-expand?153120_) + (lambda _g159793_ + (let ((_g159792_ (##length _g159793_))) + (cond ((##fx= _g159792_ 1) + (apply (lambda (_stx153045_) + (gx#core-expand-import%__0 _stx153045_)) + _g159793_)) + ((##fx= _g159792_ 2) + (apply (lambda (_stx153049_ _internal-expand?153050_) (gx#core-expand-import%__% - _stx153119_ - _internal-expand?153120_)) - _g159863_)) + _stx153049_ + _internal-expand?153050_)) + _g159793_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g159863_)))))) + _g159793_)))))) (define gx#core-import-nested-module - (lambda (_spath152716_ _where152717_) - (let* ((_e152718152725_ _spath152716_) - (_E152720152729_ + (lambda (_spath152646_ _where152647_) + (let* ((_e152648152655_ _spath152646_) + (_E152650152659_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152718152725_))) - (_E152719152784_ + _e152648152655_))) + (_E152649152714_ (lambda () - (if (gx#stx-pair? _e152718152725_) - (let ((_e152721152733_ (gx#syntax-e _e152718152725_))) - (let ((_hd152722152736_ (##car _e152721152733_)) - (_tl152723152738_ (##cdr _e152721152733_))) - (let* ((_origin152741_ _hd152722152736_) - (_sub152743_ _tl152723152738_)) + (if (gx#stx-pair? _e152648152655_) + (let ((_e152651152663_ (gx#syntax-e _e152648152655_))) + (let ((_hd152652152666_ (##car _e152651152663_)) + (_tl152653152668_ (##cdr _e152651152663_))) + (let* ((_origin152671_ _hd152652152666_) + (_sub152673_ _tl152653152668_)) (if '#t - (let ((_origin-ctx152745_ - (if (gx#stx-false? _origin152741_) + (let ((_origin-ctx152675_ + (if (gx#stx-false? _origin152671_) (gx#current-expander-context) (gx#import-module__0 - _origin152741_)))) - (let _lp152747_ ((_rest152749_ _sub152743_) - (_ctx152750_ - _origin-ctx152745_)) - (let* ((_e152751152758_ _rest152749_) - (_E152753152762_ - (lambda () _ctx152750_)) - (_E152752152780_ + _origin152671_)))) + (let _lp152677_ ((_rest152679_ _sub152673_) + (_ctx152680_ + _origin-ctx152675_)) + (let* ((_e152681152688_ _rest152679_) + (_E152683152692_ + (lambda () _ctx152680_)) + (_E152682152710_ (lambda () (if (gx#stx-pair? - _e152751152758_) - (let ((_e152754152766_ + _e152681152688_) + (let ((_e152684152696_ (gx#syntax-e - _e152751152758_))) - (let ((_hd152755152769_ - (##car _e152754152766_)) - (_tl152756152771_ - (##cdr _e152754152766_))) - (let* ((_id152774_ - _hd152755152769_) - (_rest152776_ - _tl152756152771_)) + _e152681152688_))) + (let ((_hd152685152699_ + (##car _e152684152696_)) + (_tl152686152701_ + (##cdr _e152684152696_))) + (let* ((_id152704_ + _hd152685152699_) + (_rest152706_ + _tl152686152701_)) (if '#t - (let ((_bind152778_ + (let ((_bind152708_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#resolve-identifier__% - _id152774_ + _id152704_ '0 - _ctx152750_))) + _ctx152680_))) (if (and (##structure-direct-instance-of? - _bind152778_ + _bind152708_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind152778_ + _bind152708_ '4 gx#syntax-binding::t '#f) @@ -3198,833 +3198,833 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _where152717_ - _spath152716_ - _id152774_)) - (_lp152747_ - _rest152776_ + _where152647_ + _spath152646_ + _id152704_)) + (_lp152677_ + _rest152706_ (##unchecked-structure-ref - _bind152778_ + _bind152708_ '4 gx#syntax-binding::t '#f))) - (_E152753152762_))))) + (_E152683152692_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152753152762_))))) - (_E152752152780_)))) - (_E152720152729_))))) - (_E152720152729_))))) - (_E152719152784_)))) + (_E152683152692_))))) + (_E152682152710_)))) + (_E152650152659_))))) + (_E152650152659_))))) + (_E152649152714_)))) (define gx#core-expand-import-source - (lambda (_hd152714_) + (lambda (_hd152644_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _hd152714_ '())) + (cons 'import-internal% (cons _hd152644_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_stx152222_ _internal-expand?152223_) - (letrec* ((_make-export__159792159793_ - (lambda (_bind152662_ _phi152663_ _ctx152664_ _name152665_) - (let* ((_key152667_ + (lambda (_stx152152_ _internal-expand?152153_) + (letrec* ((_make-export__159722159723_ + (lambda (_bind152592_ _phi152593_ _ctx152594_ _name152595_) + (let* ((_key152597_ (##unchecked-structure-ref - _bind152662_ + _bind152592_ '2 gx#binding::t '#f)) - (_export-key152669_ - (if _name152665_ - (gx#core-identifier-key _name152665_) - _key152667_))) + (_export-key152599_ + (if _name152595_ + (gx#core-identifier-key _name152595_) + _key152597_))) (##structure gx#module-export::t - _ctx152664_ - _key152667_ - _phi152663_ - _export-key152669_ - (let ((_$e152672_ + _ctx152594_ + _key152597_ + _phi152593_ + _export-key152599_ + (let ((_$e152602_ (##structure-instance-of? - _bind152662_ + _bind152592_ 'gx#extern-binding::t))) - (if _$e152672_ - _$e152672_ + (if _$e152602_ + _$e152602_ (##structure-direct-instance-of? - _bind152662_ + _bind152592_ 'gx#import-binding::t))))))) - (_make-export__0__159794159797_ - (lambda (_bind152678_) - (let* ((_phi152680_ (gx#current-export-expander-phi)) - (_ctx152682_ (gx#current-expander-context)) - (_name152684_ '#f)) - (_make-export__159792159793_ - _bind152678_ - _phi152680_ - _ctx152682_ - _name152684_)))) - (_make-export__1__159795159798_ - (lambda (_bind152686_ _phi152687_) - (let* ((_ctx152689_ (gx#current-expander-context)) - (_name152691_ '#f)) - (_make-export__159792159793_ - _bind152686_ - _phi152687_ - _ctx152689_ - _name152691_)))) - (_make-export__2__159796159799_ - (lambda (_bind152693_ _phi152694_ _ctx152695_) - (let ((_name152697_ '#f)) - (_make-export__159792159793_ - _bind152693_ - _phi152694_ - _ctx152695_ - _name152697_)))) - (_make-export152225_ - (lambda _g159865_ - (let ((_g159864_ (##length _g159865_))) - (cond ((##fx= _g159864_ 1) - (apply (lambda (_bind152678_) - (_make-export__0__159794159797_ - _bind152678_)) - _g159865_)) - ((##fx= _g159864_ 2) - (apply (lambda (_bind152686_ _phi152687_) - (_make-export__1__159795159798_ - _bind152686_ - _phi152687_)) - _g159865_)) - ((##fx= _g159864_ 3) - (apply (lambda (_bind152693_ - _phi152694_ - _ctx152695_) - (_make-export__2__159796159799_ - _bind152693_ - _phi152694_ - _ctx152695_)) - _g159865_)) - ((##fx= _g159864_ 4) - (apply (lambda (_bind152699_ - _phi152700_ - _ctx152701_ - _name152702_) - (_make-export__159792159793_ - _bind152699_ - _phi152700_ - _ctx152701_ - _name152702_)) - _g159865_)) + (_make-export__0__159724159727_ + (lambda (_bind152608_) + (let* ((_phi152610_ (gx#current-export-expander-phi)) + (_ctx152612_ (gx#current-expander-context)) + (_name152614_ '#f)) + (_make-export__159722159723_ + _bind152608_ + _phi152610_ + _ctx152612_ + _name152614_)))) + (_make-export__1__159725159728_ + (lambda (_bind152616_ _phi152617_) + (let* ((_ctx152619_ (gx#current-expander-context)) + (_name152621_ '#f)) + (_make-export__159722159723_ + _bind152616_ + _phi152617_ + _ctx152619_ + _name152621_)))) + (_make-export__2__159726159729_ + (lambda (_bind152623_ _phi152624_ _ctx152625_) + (let ((_name152627_ '#f)) + (_make-export__159722159723_ + _bind152623_ + _phi152624_ + _ctx152625_ + _name152627_)))) + (_make-export152155_ + (lambda _g159795_ + (let ((_g159794_ (##length _g159795_))) + (cond ((##fx= _g159794_ 1) + (apply (lambda (_bind152608_) + (_make-export__0__159724159727_ + _bind152608_)) + _g159795_)) + ((##fx= _g159794_ 2) + (apply (lambda (_bind152616_ _phi152617_) + (_make-export__1__159725159728_ + _bind152616_ + _phi152617_)) + _g159795_)) + ((##fx= _g159794_ 3) + (apply (lambda (_bind152623_ + _phi152624_ + _ctx152625_) + (_make-export__2__159726159729_ + _bind152623_ + _phi152624_ + _ctx152625_)) + _g159795_)) + ((##fx= _g159794_ 4) + (apply (lambda (_bind152629_ + _phi152630_ + _ctx152631_ + _name152632_) + (_make-export__159722159723_ + _bind152629_ + _phi152630_ + _ctx152631_ + _name152632_)) + _g159795_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g159865_)))))) - (_expand1152226_ - (lambda (_hd152375_ _K152376_ _rest152377_ _r152378_) - (let* ((_e152379152411_ _hd152375_) - (_E152406152415_ + _g159795_)))))) + (_expand1152156_ + (lambda (_hd152305_ _K152306_ _rest152307_ _r152308_) + (let* ((_e152309152341_ _hd152305_) + (_E152336152345_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _stx152222_ - _hd152375_))) - (_E152396152494_ + _stx152152_ + _hd152305_))) + (_E152326152424_ (lambda () - (if (gx#stx-pair? _e152379152411_) - (let ((_e152407152419_ - (gx#syntax-e _e152379152411_))) - (let ((_hd152408152422_ - (##car _e152407152419_)) - (_tl152409152424_ - (##cdr _e152407152419_))) - (if (eq? (gx#stx-e _hd152408152422_) + (if (gx#stx-pair? _e152309152341_) + (let ((_e152337152349_ + (gx#syntax-e _e152309152341_))) + (let ((_hd152338152352_ + (##car _e152337152349_)) + (_tl152339152354_ + (##cdr _e152337152349_))) + (if (eq? (gx#stx-e _hd152338152352_) 'import:) - (let ((_in152427_ _tl152409152424_)) - (if (gx#stx-list? _in152427_) - (let _lp152429_ ((_in-rest152431_ + (let ((_in152357_ _tl152339152354_)) + (if (gx#stx-list? _in152357_) + (let _lp152359_ ((_in-rest152361_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in152427_) - (_r152432_ _r152378_)) + _in152357_) + (_r152362_ _r152308_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e152433152440_ - _in-rest152431_) - (_E152435152444_ + (let* ((_e152363152370_ + _in-rest152361_) + (_E152365152374_ (lambda () - (_K152376_ - _rest152377_ - _r152432_))) - (_E152434152490_ + (_K152306_ + _rest152307_ + _r152362_))) + (_E152364152420_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e152433152440_) - (let ((_e152436152448_ (gx#syntax-e _e152433152440_))) - (let ((_hd152437152451_ (##car _e152436152448_)) - (_tl152438152453_ (##cdr _e152436152448_))) - (let* ((_hd152456_ _hd152437152451_) - (_in-rest152458_ _tl152438152453_)) + _e152363152370_) + (let ((_e152366152378_ (gx#syntax-e _e152363152370_))) + (let ((_hd152367152381_ (##car _e152366152378_)) + (_tl152368152383_ (##cdr _e152366152378_))) + (let* ((_hd152386_ _hd152367152381_) + (_in-rest152388_ _tl152368152383_)) (if '#t - (let ((_src152488_ + (let ((_src152418_ (if (gx#core-bound-module? - _hd152456_) - (gx#syntax-local-e__0 _hd152456_) + _hd152386_) + (gx#syntax-local-e__0 _hd152386_) (if (gx#core-library-module-path? - _hd152456_) + _hd152386_) (gx#import-module__0 (gx#core-resolve-library-module-path - _hd152456_)) + _hd152386_)) (if (gx#core-library-relative-module-path? - _hd152456_) + _hd152386_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd152456_)) + _hd152386_)) (if (gx#stx-string? - _hd152456_) + _hd152386_) (gx#import-module__0 (gx#core-resolve-module-path__% - _hd152456_ + _hd152386_ (gx#stx-source - _stx152222_))) - (let* ((_e152459152466_ + _stx152152_))) + (let* ((_e152389152396_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd152456_) - (_E152461152470_ + _hd152386_) + (_E152391152400_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _stx152222_ - _hd152456_))) - (_E152460152484_ + _stx152152_ + _hd152386_))) + (_E152390152414_ (lambda () - (if (gx#stx-pair? _e152459152466_) - (let ((_e152462152474_ - (gx#syntax-e _e152459152466_))) - (let ((_hd152463152477_ - (##car _e152462152474_)) - (_tl152464152479_ - (##cdr _e152462152474_))) - (if (eq? (gx#stx-e _hd152463152477_) 'in:) - (let ((_spath152482_ _tl152464152479_)) + (if (gx#stx-pair? _e152389152396_) + (let ((_e152392152404_ + (gx#syntax-e _e152389152396_))) + (let ((_hd152393152407_ + (##car _e152392152404_)) + (_tl152394152409_ + (##cdr _e152392152404_))) + (if (eq? (gx#stx-e _hd152393152407_) 'in:) + (let ((_spath152412_ _tl152394152409_)) (if '#t (gx#core-import-nested-module - _spath152482_ - _stx152222_) - (_E152461152470_))) - (_E152461152470_)))) - (_E152461152470_))))) - (_E152460152484_)))))))) + _spath152412_ + _stx152152_) + (_E152391152400_))) + (_E152391152400_)))) + (_E152391152400_))))) + (_E152390152414_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp152429_ - _in-rest152458_ - (_export-imports152227_ - _src152488_ - _r152432_))) - (_E152435152444_))))) - (_E152435152444_))))) + (_lp152359_ + _in-rest152388_ + (_export-imports152157_ + _src152418_ + _r152362_))) + (_E152365152374_))))) + (_E152365152374_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152434152490_))) - (_E152406152415_))) - (_E152406152415_)))) - (_E152406152415_)))) - (_E152383152533_ + (_E152364152420_))) + (_E152336152345_))) + (_E152336152345_)))) + (_E152336152345_)))) + (_E152313152463_ (lambda () - (if (gx#stx-pair? _e152379152411_) - (let ((_e152397152498_ - (gx#syntax-e _e152379152411_))) - (let ((_hd152398152501_ - (##car _e152397152498_)) - (_tl152399152503_ - (##cdr _e152397152498_))) - (if (eq? (gx#stx-e _hd152398152501_) + (if (gx#stx-pair? _e152309152341_) + (let ((_e152327152428_ + (gx#syntax-e _e152309152341_))) + (let ((_hd152328152431_ + (##car _e152327152428_)) + (_tl152329152433_ + (##cdr _e152327152428_))) + (if (eq? (gx#stx-e _hd152328152431_) 'rename:) - (if (gx#stx-pair? _tl152399152503_) - (let ((_e152400152506_ + (if (gx#stx-pair? _tl152329152433_) + (let ((_e152330152436_ (gx#syntax-e - _tl152399152503_))) - (let ((_hd152401152509_ - (##car _e152400152506_)) - (_tl152402152511_ - (##cdr _e152400152506_))) - (let ((_id152514_ - _hd152401152509_)) + _tl152329152433_))) + (let ((_hd152331152439_ + (##car _e152330152436_)) + (_tl152332152441_ + (##cdr _e152330152436_))) + (let ((_id152444_ + _hd152331152439_)) (if (gx#stx-pair? - _tl152402152511_) - (let ((_e152403152516_ + _tl152332152441_) + (let ((_e152333152446_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl152402152511_))) - (let ((_hd152404152519_ (##car _e152403152516_)) - (_tl152405152521_ (##cdr _e152403152516_))) - (let ((_name152524_ _hd152404152519_)) - (if (gx#stx-null? _tl152405152521_) + _tl152332152441_))) + (let ((_hd152334152449_ (##car _e152333152446_)) + (_tl152335152451_ (##cdr _e152333152446_))) + (let ((_name152454_ _hd152334152449_)) + (if (gx#stx-null? _tl152335152451_) (if '#t - (let* ((_phi152526_ + (let* ((_phi152456_ (gx#current-export-expander-phi)) - (_$e152528_ + (_$e152458_ (gx#core-resolve-identifier__1 - _id152514_ - _phi152526_))) - (if _$e152528_ - ((lambda (_bind152531_) - (_K152376_ - _rest152377_ - (cons (_make-export__159792159793_ - _bind152531_ - _phi152526_ + _id152444_ + _phi152456_))) + (if _$e152458_ + ((lambda (_bind152461_) + (_K152306_ + _rest152307_ + (cons (_make-export__159722159723_ + _bind152461_ + _phi152456_ (gx#current-expander-context) - _name152524_) - _r152378_))) - _$e152528_) + _name152454_) + _r152308_))) + _$e152458_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx152222_ - _hd152375_ - _id152514_))) - (_E152396152494_)) - (_E152396152494_))))) - (_E152396152494_))))) + _stx152152_ + _hd152305_ + _id152444_))) + (_E152326152424_)) + (_E152326152424_))))) + (_E152326152424_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152396152494_)) - (_E152396152494_)))) - (_E152396152494_)))) - (_E152382152582_ + (_E152326152424_)) + (_E152326152424_)))) + (_E152326152424_)))) + (_E152312152512_ (lambda () - (if (gx#stx-pair? _e152379152411_) - (let ((_e152384152537_ - (gx#syntax-e _e152379152411_))) - (let ((_hd152385152540_ - (##car _e152384152537_)) - (_tl152386152542_ - (##cdr _e152384152537_))) - (if (eq? (gx#stx-e _hd152385152540_) + (if (gx#stx-pair? _e152309152341_) + (let ((_e152314152467_ + (gx#syntax-e _e152309152341_))) + (let ((_hd152315152470_ + (##car _e152314152467_)) + (_tl152316152472_ + (##cdr _e152314152467_))) + (if (eq? (gx#stx-e _hd152315152470_) 'spec:) - (if (gx#stx-pair? _tl152386152542_) - (let ((_e152387152545_ + (if (gx#stx-pair? _tl152316152472_) + (let ((_e152317152475_ (gx#syntax-e - _tl152386152542_))) - (let ((_hd152388152548_ - (##car _e152387152545_)) - (_tl152389152550_ - (##cdr _e152387152545_))) - (let ((_phi152553_ - _hd152388152548_)) + _tl152316152472_))) + (let ((_hd152318152478_ + (##car _e152317152475_)) + (_tl152319152480_ + (##cdr _e152317152475_))) + (let ((_phi152483_ + _hd152318152478_)) (if (gx#stx-pair? - _tl152389152550_) - (let ((_e152390152555_ + _tl152319152480_) + (let ((_e152320152485_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl152389152550_))) - (let ((_hd152391152558_ (##car _e152390152555_)) - (_tl152392152560_ (##cdr _e152390152555_))) - (let ((_id152563_ _hd152391152558_)) - (if (gx#stx-pair? _tl152392152560_) - (let ((_e152393152565_ - (gx#syntax-e _tl152392152560_))) - (let ((_hd152394152568_ (##car _e152393152565_)) - (_tl152395152570_ (##cdr _e152393152565_))) - (let ((_name152573_ _hd152394152568_)) - (if (gx#stx-null? _tl152395152570_) - (if (and (gx#stx-fixnum? _phi152553_) - (gx#identifier? _id152563_) - (gx#identifier? _name152573_)) - (let* ((_phi152575_ - (gx#stx-e _phi152553_)) - (_$e152577_ + _tl152319152480_))) + (let ((_hd152321152488_ (##car _e152320152485_)) + (_tl152322152490_ (##cdr _e152320152485_))) + (let ((_id152493_ _hd152321152488_)) + (if (gx#stx-pair? _tl152322152490_) + (let ((_e152323152495_ + (gx#syntax-e _tl152322152490_))) + (let ((_hd152324152498_ (##car _e152323152495_)) + (_tl152325152500_ (##cdr _e152323152495_))) + (let ((_name152503_ _hd152324152498_)) + (if (gx#stx-null? _tl152325152500_) + (if (and (gx#stx-fixnum? _phi152483_) + (gx#identifier? _id152493_) + (gx#identifier? _name152503_)) + (let* ((_phi152505_ + (gx#stx-e _phi152483_)) + (_$e152507_ (gx#core-resolve-identifier__1 - _id152563_ - _phi152575_))) - (if _$e152577_ - ((lambda (_bind152580_) - (_K152376_ - _rest152377_ - (cons (_make-export__159792159793_ - _bind152580_ - _phi152575_ + _id152493_ + _phi152505_))) + (if _$e152507_ + ((lambda (_bind152510_) + (_K152306_ + _rest152307_ + (cons (_make-export__159722159723_ + _bind152510_ + _phi152505_ (gx#current-expander-context) - _name152573_) - _r152378_))) - _$e152577_) + _name152503_) + _r152308_))) + _$e152507_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx152222_ - _hd152375_ - _id152563_))) - (_E152383152533_)) - (_E152383152533_))))) - (_E152383152533_))))) - (_E152383152533_))))) + _stx152152_ + _hd152305_ + _id152493_))) + (_E152313152463_)) + (_E152313152463_))))) + (_E152313152463_))))) + (_E152313152463_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152383152533_)) - (_E152383152533_)))) - (_E152383152533_)))) - (_E152381152593_ + (_E152313152463_)) + (_E152313152463_)))) + (_E152313152463_)))) + (_E152311152523_ (lambda () - (let ((_id152586_ _e152379152411_)) - (if (gx#identifier? _id152586_) - (let ((_$e152588_ + (let ((_id152516_ _e152309152341_)) + (if (gx#identifier? _id152516_) + (let ((_$e152518_ (gx#core-resolve-identifier__1 - _id152586_ + _id152516_ (gx#current-export-expander-phi)))) - (if _$e152588_ - ((lambda (_bind152591_) - (_K152376_ - _rest152377_ - (cons (_make-export__0__159794159797_ - _bind152591_) - _r152378_))) - _$e152588_) + (if _$e152518_ + ((lambda (_bind152521_) + (_K152306_ + _rest152307_ + (cons (_make-export__0__159724159727_ + _bind152521_) + _r152308_))) + _$e152518_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx152222_ - _hd152375_))) - (_E152382152582_))))) - (_E152380152657_ + _stx152152_ + _hd152305_))) + (_E152312152512_))))) + (_E152310152587_ (lambda () - (if (eq? (gx#stx-e _e152379152411_) '#t) + (if (eq? (gx#stx-e _e152309152341_) '#t) (if '#t - (let* ((_current-ctx152597_ + (let* ((_current-ctx152527_ (gx#current-expander-context)) - (_current-phi152599_ + (_current-phi152529_ (gx#current-export-expander-phi)) - (_phi-ctx152601_ + (_phi-ctx152531_ (gx#core-context-shift - _current-ctx152597_ - _current-phi152599_)) - (_phi-bind152603_ + _current-ctx152527_ + _current-phi152529_)) + (_phi-bind152533_ (table->list (##unchecked-structure-ref - _phi-ctx152601_ + _phi-ctx152531_ '2 gx#expander-context::t '#f)))) - (let _lp152606_ ((_bind-rest152608_ - _phi-bind152603_) - (_set152609_ '())) - (let* ((_bind-rest152610152620_ - _bind-rest152608_) - (_else152612152628_ + (let _lp152536_ ((_bind-rest152538_ + _phi-bind152533_) + (_set152539_ '())) + (let* ((_bind-rest152540152550_ + _bind-rest152538_) + (_else152542152558_ (lambda () - (_K152376_ - _rest152377_ + (_K152306_ + _rest152307_ (cons (##structure gx#export-set::t '#f - _current-phi152599_ - _set152609_) - _r152378_)))) - (_K152614152638_ - (lambda (_bind-rest152631_ - _bind152632_ - _key152633_) + _current-phi152529_ + _set152539_) + _r152308_)))) + (_K152544152568_ + (lambda (_bind-rest152561_ + _bind152562_ + _key152563_) (if (or (##structure-direct-instance-of? - _bind152632_ + _bind152562_ 'gx#import-binding::t) (gx#private-feature-binding? - _bind152632_)) - (_lp152606_ - _bind-rest152631_ - _set152609_) - (_lp152606_ - _bind-rest152631_ - (cons (_make-export__2__159796159799_ + _bind152562_)) + (_lp152536_ + _bind-rest152561_ + _set152539_) + (_lp152536_ + _bind-rest152561_ + (cons (_make-export__2__159726159729_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind152632_ - _current-phi152599_ - _current-ctx152597_) - _set152609_)))))) + _bind152562_ + _current-phi152529_ + _current-ctx152527_) + _set152539_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _bind-rest152610152620_) - (let ((_hd152615152641_ - (##car _bind-rest152610152620_)) - (_tl152616152643_ - (##cdr _bind-rest152610152620_))) - (if (##pair? _hd152615152641_) - (let ((_hd152617152646_ - (##car _hd152615152641_)) - (_tl152618152648_ - (##cdr _hd152615152641_))) - (let* ((_key152651_ + (if (##pair? _bind-rest152540152550_) + (let ((_hd152545152571_ + (##car _bind-rest152540152550_)) + (_tl152546152573_ + (##cdr _bind-rest152540152550_))) + (if (##pair? _hd152545152571_) + (let ((_hd152547152576_ + (##car _hd152545152571_)) + (_tl152548152578_ + (##cdr _hd152545152571_))) + (let* ((_key152581_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd152617152646_) - (_bind152653_ _tl152618152648_) - (_bind-rest152655_ _tl152616152643_)) - (_K152614152638_ - _bind-rest152655_ - _bind152653_ - _key152651_))) - (_else152612152628_))) + _hd152547152576_) + (_bind152583_ _tl152548152578_) + (_bind-rest152585_ _tl152546152573_)) + (_K152544152568_ + _bind-rest152585_ + _bind152583_ + _key152581_))) + (_else152542152558_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else152612152628_))))) - (_E152381152593_)) - (_E152381152593_))))) - (_E152380152657_)))) - (_export-imports152227_ - (lambda (_src152251_ _r152252_) - (letrec* ((_current-ctx152254_ + (_else152542152558_))))) + (_E152311152523_)) + (_E152311152523_))))) + (_E152310152587_)))) + (_export-imports152157_ + (lambda (_src152181_ _r152182_) + (letrec* ((_current-ctx152184_ (gx#current-expander-context)) - (_current-phi152255_ + (_current-phi152185_ (gx#current-export-expander-phi)) - (_import->export152256_ - (lambda (_in152337_) - (let* ((_in152338152346_ _in152337_) - (_E152340152350_ + (_import->export152186_ + (lambda (_in152267_) + (let* ((_in152268152276_ _in152267_) + (_E152270152280_ (lambda () (error '"No clause matching" - _in152338152346_))) - (_K152341152357_ - (lambda (_phi152353_ - _key152354_ - _out152355_) + _in152268152276_))) + (_K152271152287_ + (lambda (_phi152283_ + _key152284_ + _out152285_) (##structure gx#module-export::t - _current-ctx152254_ - _key152354_ - _phi152353_ - _key152354_ + _current-ctx152184_ + _key152284_ + _phi152283_ + _key152284_ '#t)))) (if (##structure-direct-instance-of? - _in152338152346_ + _in152268152276_ 'gx#module-import::t) - (let* ((_e152342152360_ + (let* ((_e152272152290_ (##unchecked-structure-ref - _in152338152346_ + _in152268152276_ '1 gx#module-import::t '#f)) - (_out152363_ _e152342152360_) - (_e152343152365_ + (_out152293_ _e152272152290_) + (_e152273152295_ (##unchecked-structure-ref - _in152338152346_ + _in152268152276_ '2 gx#module-import::t '#f)) - (_key152368_ _e152343152365_) - (_e152344152370_ + (_key152298_ _e152273152295_) + (_e152274152300_ (##unchecked-structure-ref - _in152338152346_ + _in152268152276_ '3 gx#module-import::t '#f)) - (_phi152373_ _e152344152370_)) - (_K152341152357_ - _phi152373_ - _key152368_ - _out152363_)) - (_E152340152350_))))) - (_fold-e152257_ - (lambda (_in152259_ _r152260_) - (let* ((_in152261152275_ _in152259_) - (_else152264152283_ - (lambda () _r152260_))) - (let ((_K152270152319_ - (lambda (_phi152315_ - _key152316_ - _out152317_) - (if (and (fx= _phi152315_ - _current-phi152255_) - (eq? _src152251_ + (_phi152303_ _e152274152300_)) + (_K152271152287_ + _phi152303_ + _key152298_ + _out152293_)) + (_E152270152280_))))) + (_fold-e152187_ + (lambda (_in152189_ _r152190_) + (let* ((_in152191152205_ _in152189_) + (_else152194152213_ + (lambda () _r152190_))) + (let ((_K152200152249_ + (lambda (_phi152245_ + _key152246_ + _out152247_) + (if (and (fx= _phi152245_ + _current-phi152185_) + (eq? _src152181_ (##unchecked-structure-ref - _out152317_ + _out152247_ '1 gx#module-export::t '#f))) - (cons (_import->export152256_ - _in152259_) - _r152260_) - _r152260_))) - (_K152266152294_ - (lambda (_imports152287_ - _phi152288_ - _ctx152289_) - (if (and (fx= _phi152288_ - _current-phi152255_) - (eq? _src152251_ - _ctx152289_)) - (foldl1 (lambda (_in152291_ + (cons (_import->export152186_ + _in152189_) + _r152190_) + _r152190_))) + (_K152196152224_ + (lambda (_imports152217_ + _phi152218_ + _ctx152219_) + (if (and (fx= _phi152218_ + _current-phi152185_) + (eq? _src152181_ + _ctx152219_)) + (foldl1 (lambda (_in152221_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r152292_) - (cons (_import->export152256_ _in152291_) _r152292_)) - _r152260_ - _imports152287_) + _r152222_) + (cons (_import->export152186_ _in152221_) _r152222_)) + _r152190_ + _imports152217_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r152260_)))) - (let ((_try-match152263152312_ + _r152190_)))) + (let ((_try-match152193152242_ (lambda () (if (##structure-direct-instance-of? - _in152261152275_ + _in152191152205_ 'gx#import-set::t) - (let* ((_e152267152297_ + (let* ((_e152197152227_ (##unchecked-structure-ref - _in152261152275_ + _in152191152205_ '1 gx#import-set::t '#f)) - (_e152268152302_ + (_e152198152232_ (##unchecked-structure-ref - _in152261152275_ + _in152191152205_ '2 gx#import-set::t '#f)) - (_e152269152307_ + (_e152199152237_ (##unchecked-structure-ref - _in152261152275_ + _in152191152205_ '3 gx#import-set::t '#f))) - (let ((_ctx152300_ - _e152267152297_) - (_phi152305_ - _e152268152302_) - (_imports152310_ - _e152269152307_)) - (_K152266152294_ - _imports152310_ - _phi152305_ - _ctx152300_))) - (_else152264152283_))))) + (let ((_ctx152230_ + _e152197152227_) + (_phi152235_ + _e152198152232_) + (_imports152240_ + _e152199152237_)) + (_K152196152224_ + _imports152240_ + _phi152235_ + _ctx152230_))) + (_else152194152213_))))) (if (##structure-direct-instance-of? - _in152261152275_ + _in152191152205_ 'gx#module-import::t) - (let* ((_e152271152322_ + (let* ((_e152201152252_ (##unchecked-structure-ref - _in152261152275_ + _in152191152205_ '1 gx#module-import::t '#f)) - (_e152272152327_ + (_e152202152257_ (##unchecked-structure-ref - _in152261152275_ + _in152191152205_ '2 gx#module-import::t '#f)) - (_e152273152332_ + (_e152203152262_ (##unchecked-structure-ref - _in152261152275_ + _in152191152205_ '3 gx#module-import::t '#f))) - (let ((_out152325_ - _e152271152322_) - (_key152330_ - _e152272152327_) - (_phi152335_ - _e152273152332_)) - (_K152270152319_ - _phi152335_ - _key152330_ - _out152325_))) - (_try-match152263152312_)))))))) + (let ((_out152255_ + _e152201152252_) + (_key152260_ + _e152202152257_) + (_phi152265_ + _e152203152262_)) + (_K152200152249_ + _phi152265_ + _key152260_ + _out152255_))) + (_try-match152193152242_)))))))) (cons (##structure gx#export-set::t - _src152251_ - _current-phi152255_ - (foldl1 _fold-e152257_ + _src152181_ + _current-phi152185_ + (foldl1 _fold-e152187_ '() (##unchecked-structure-ref - _current-ctx152254_ + _current-ctx152184_ '8 gx#module-context::t '#f))) - _r152252_)))) - (_export!152228_ - (lambda (_rbody152241_) - (letrec* ((_current-ctx152243_ + _r152182_)))) + (_export!152158_ + (lambda (_rbody152171_) + (letrec* ((_current-ctx152173_ (gx#current-expander-context)) - (_fold-e152244_ - (lambda (_out152248_ _r152249_) + (_fold-e152174_ + (lambda (_out152178_ _r152179_) (if (##structure-direct-instance-of? - _out152248_ + _out152178_ 'gx#module-export::t) - (cons _out152248_ _r152249_) + (cons _out152178_ _r152179_) (if (##structure-direct-instance-of? - _out152248_ + _out152178_ 'gx#export-set::t) (foldl1 cons - _r152249_ + _r152179_ (##unchecked-structure-ref - _out152248_ + _out152178_ '3 gx#export-set::t '#f)) - _r152249_))))) - (let ((_body152246_ (reverse _rbody152241_))) + _r152179_))))) + (let ((_body152176_ (reverse _rbody152171_))) (##unchecked-structure-set! - _current-ctx152243_ - (foldl1 _fold-e152244_ + _current-ctx152173_ + (foldl1 _fold-e152174_ (##unchecked-structure-ref - _current-ctx152243_ + _current-ctx152173_ '9 gx#module-context::t '#f) - _body152246_) + _body152176_) '9 gx#module-context::t '#f) - _body152246_)))) - (_expanded-export?152229_ - (lambda (_e152236_) - (let ((_$e152238_ + _body152176_)))) + (_expanded-export?152159_ + (lambda (_e152166_) + (let ((_$e152168_ (##structure-direct-instance-of? - _e152236_ + _e152166_ 'gx#module-export::t))) - (if _$e152238_ - _$e152238_ + (if _$e152168_ + _$e152168_ (##structure-direct-instance-of? - _e152236_ + _e152166_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _internal-expand?152223_) - (let ((_rbody152234_ + _internal-expand?152153_) + (let ((_rbody152164_ (gx#core-expand-import/export - _stx152222_ - _expanded-export?152229_ + _stx152152_ + _expanded-export?152159_ 'apply-export-expander gx#current-export-expander-phi - _expand1152226_))) - (if _internal-expand?152223_ - (reverse _rbody152234_) + _expand1152156_))) + (if _internal-expand?152153_ + (reverse _rbody152164_) (gx#core-quote-syntax__1 - (gx#core-cons '%#export (_export!152228_ _rbody152234_)) - (gx#stx-source _stx152222_)))) + (gx#core-cons '%#export (_export!152158_ _rbody152164_)) + (gx#stx-source _stx152152_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _stx152222_)) + (gx#stx-source _stx152152_)) (gx#raise-syntax-error '#f '"Illegal context" - _stx152222_)))))) + _stx152152_)))))) (define gx#core-expand-export%__0 - (lambda (_stx152707_) - (let ((_internal-expand?152709_ '#f)) - (gx#core-expand-export%__% _stx152707_ _internal-expand?152709_)))) + (lambda (_stx152637_) + (let ((_internal-expand?152639_ '#f)) + (gx#core-expand-export%__% _stx152637_ _internal-expand?152639_)))) (define gx#core-expand-export% - (lambda _g159867_ - (let ((_g159866_ (##length _g159867_))) - (cond ((##fx= _g159866_ 1) - (apply (lambda (_stx152707_) - (gx#core-expand-export%__0 _stx152707_)) - _g159867_)) - ((##fx= _g159866_ 2) - (apply (lambda (_stx152711_ _internal-expand?152712_) + (lambda _g159797_ + (let ((_g159796_ (##length _g159797_))) + (cond ((##fx= _g159796_ 1) + (apply (lambda (_stx152637_) + (gx#core-expand-export%__0 _stx152637_)) + _g159797_)) + ((##fx= _g159796_ 2) + (apply (lambda (_stx152641_ _internal-expand?152642_) (gx#core-expand-export%__% - _stx152711_ - _internal-expand?152712_)) - _g159867_)) + _stx152641_ + _internal-expand?152642_)) + _g159797_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g159867_)))))) + _g159797_)))))) (define gx#core-expand-export-source - (lambda (_hd152219_) + (lambda (_hd152149_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _hd152219_ '())) + (cons 'export-macro% (cons _hd152149_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_stx152189_) - (let* ((_e152190152197_ _stx152189_) - (_E152192152201_ + (lambda (_stx152119_) + (let* ((_e152120152127_ _stx152119_) + (_E152122152131_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152190152197_))) - (_E152191152215_ + _e152120152127_))) + (_E152121152145_ (lambda () - (if (gx#stx-pair? _e152190152197_) - (let ((_e152193152205_ (gx#syntax-e _e152190152197_))) - (let ((_hd152194152208_ (##car _e152193152205_)) - (_tl152195152210_ (##cdr _e152193152205_))) - (let ((_body152213_ _tl152195152210_)) - (if (gx#identifier-list? _body152213_) + (if (gx#stx-pair? _e152120152127_) + (let ((_e152123152135_ (gx#syntax-e _e152120152127_))) + (let ((_hd152124152138_ (##car _e152123152135_)) + (_tl152125152140_ (##cdr _e152123152135_))) + (let ((_body152143_ _tl152125152140_)) + (if (gx#identifier-list? _body152143_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _body152213_) + _body152143_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body152213_)) - (gx#stx-source _stx152189_))) - (_E152192152201_))))) - (_E152192152201_))))) - (_E152191152215_)))) + _body152143_)) + (gx#stx-source _stx152119_))) + (_E152122152131_))))) + (_E152122152131_))))) + (_E152121152145_)))) (define gx#core-bind-feature!__% - (lambda (_id152155_ _private?152156_ _phi152157_ _ctx152158_) + (lambda (_id152085_ _private?152086_ _phi152087_ _ctx152088_) (gx#core-bind-syntax!__% - _id152155_ - ((if _private?152156_ + _id152085_ + ((if _private?152086_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _id152155_)) - _private?152156_ - _phi152157_ - _ctx152158_))) + (gx#stx-e _id152085_)) + _private?152086_ + _phi152087_ + _ctx152088_))) (define gx#core-bind-feature!__0 - (lambda (_id152163_) - (let* ((_private?152165_ '#f) - (_phi152167_ (gx#current-expander-phi)) - (_ctx152169_ (gx#current-expander-context))) + (lambda (_id152093_) + (let* ((_private?152095_ '#f) + (_phi152097_ (gx#current-expander-phi)) + (_ctx152099_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id152163_ - _private?152165_ - _phi152167_ - _ctx152169_)))) + _id152093_ + _private?152095_ + _phi152097_ + _ctx152099_)))) (define gx#core-bind-feature!__1 - (lambda (_id152171_ _private?152172_) - (let* ((_phi152174_ (gx#current-expander-phi)) - (_ctx152176_ (gx#current-expander-context))) + (lambda (_id152101_ _private?152102_) + (let* ((_phi152104_ (gx#current-expander-phi)) + (_ctx152106_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id152171_ - _private?152172_ - _phi152174_ - _ctx152176_)))) + _id152101_ + _private?152102_ + _phi152104_ + _ctx152106_)))) (define gx#core-bind-feature!__2 - (lambda (_id152178_ _private?152179_ _phi152180_) - (let ((_ctx152182_ (gx#current-expander-context))) + (lambda (_id152108_ _private?152109_ _phi152110_) + (let ((_ctx152112_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id152178_ - _private?152179_ - _phi152180_ - _ctx152182_)))) + _id152108_ + _private?152109_ + _phi152110_ + _ctx152112_)))) (define gx#core-bind-feature! - (lambda _g159869_ - (let ((_g159868_ (##length _g159869_))) - (cond ((##fx= _g159868_ 1) - (apply (lambda (_id152163_) - (gx#core-bind-feature!__0 _id152163_)) - _g159869_)) - ((##fx= _g159868_ 2) - (apply (lambda (_id152171_ _private?152172_) + (lambda _g159799_ + (let ((_g159798_ (##length _g159799_))) + (cond ((##fx= _g159798_ 1) + (apply (lambda (_id152093_) + (gx#core-bind-feature!__0 _id152093_)) + _g159799_)) + ((##fx= _g159798_ 2) + (apply (lambda (_id152101_ _private?152102_) (gx#core-bind-feature!__1 - _id152171_ - _private?152172_)) - _g159869_)) - ((##fx= _g159868_ 3) - (apply (lambda (_id152178_ _private?152179_ _phi152180_) + _id152101_ + _private?152102_)) + _g159799_)) + ((##fx= _g159798_ 3) + (apply (lambda (_id152108_ _private?152109_ _phi152110_) (gx#core-bind-feature!__2 - _id152178_ - _private?152179_ - _phi152180_)) - _g159869_)) - ((##fx= _g159868_ 4) - (apply (lambda (_id152184_ - _private?152185_ - _phi152186_ - _ctx152187_) + _id152108_ + _private?152109_ + _phi152110_)) + _g159799_)) + ((##fx= _g159798_ 4) + (apply (lambda (_id152114_ + _private?152115_ + _phi152116_ + _ctx152117_) (gx#core-bind-feature!__% - _id152184_ - _private?152185_ - _phi152186_ - _ctx152187_)) - _g159869_)) + _id152114_ + _private?152115_ + _phi152116_ + _ctx152117_)) + _g159799_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g159869_)))))))) + _g159799_)))))))) diff --git a/src/bootstrap/gerbil/expander/module__1.scm b/src/bootstrap/gerbil/expander/module__1.scm index b3ba9ca57..3b2c4dbc3 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]#_g159871_| + (define |gx[1]#_g159801_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g159873_| + (define |gx[1]#_g159803_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g159875_| + (define |gx[1]#_g159805_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g159882_| + (define |gx[1]#_g159812_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g159885_| + (define |gx[1]#_g159815_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g159888_| + (define |gx[1]#_g159818_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g159891_| + (define |gx[1]#_g159821_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g159898_| + (define |gx[1]#_g159828_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159901_| + (define |gx[1]#_g159831_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159904_| + (define |gx[1]#_g159834_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159907_| + (define |gx[1]#_g159837_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159914_| + (define |gx[1]#_g159844_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g159917_| + (define |gx[1]#_g159847_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g159920_| + (define |gx[1]#_g159850_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g159923_| + (define |gx[1]#_g159853_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g159930_| + (define |gx[1]#_g159860_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159933_| + (define |gx[1]#_g159863_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159936_| + (define |gx[1]#_g159866_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159939_| + (define |gx[1]#_g159869_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159941_| + (define |gx[1]#_g159871_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g159943_| + (define |gx[1]#_g159873_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g159945_| + (define |gx[1]#_g159875_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g159953_| + (define |gx[1]#_g159883_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g159956_| + (define |gx[1]#_g159886_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g159959_| + (define |gx[1]#_g159889_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g159962_| + (define |gx[1]#_g159892_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g159965_| + (define |gx[1]#_g159895_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g159973_| + (define |gx[1]#_g159903_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159976_| + (define |gx[1]#_g159906_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159979_| + (define |gx[1]#_g159909_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159982_| + (define |gx[1]#_g159912_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159985_| + (define |gx[1]#_g159915_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g159993_| + (define |gx[1]#_g159923_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g159996_| + (define |gx[1]#_g159926_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g159999_| + (define |gx[1]#_g159929_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160002_| + (define |gx[1]#_g159932_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g160005_| + (define |gx[1]#_g159935_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g160013_| + (define |gx[1]#_g159943_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160016_| + (define |gx[1]#_g159946_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160019_| + (define |gx[1]#_g159949_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160022_| + (define |gx[1]#_g159952_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160025_| + (define |gx[1]#_g159955_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160027_| + (define |gx[1]#_g159957_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g160029_| + (define |gx[1]#_g159959_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g160031_| + (define |gx[1]#_g159961_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g160037_| + (define |gx[1]#_g159967_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g160040_| + (define |gx[1]#_g159970_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160043_| + (define |gx[1]#_g159973_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g160049_| + (define |gx[1]#_g159979_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160052_| + (define |gx[1]#_g159982_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160055_| + (define |gx[1]#_g159985_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160061_| + (define |gx[1]#_g159991_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g160064_| + (define |gx[1]#_g159994_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160067_| + (define |gx[1]#_g159997_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g160073_| + (define |gx[1]#_g160003_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160076_| + (define |gx[1]#_g160006_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160079_| + (define |gx[1]#_g160009_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160081_| + (define |gx[1]#_g160011_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g160083_| + (define |gx[1]#_g160013_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g160085_| + (define |gx[1]#_g160015_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g160091_| + (define |gx[1]#_g160021_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g160094_| + (define |gx[1]#_g160024_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160097_| + (define |gx[1]#_g160027_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g160103_| + (define |gx[1]#_g160033_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160106_| + (define |gx[1]#_g160036_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160109_| + (define |gx[1]#_g160039_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160115_| + (define |gx[1]#_g160045_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g160118_| + (define |gx[1]#_g160048_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160121_| + (define |gx[1]#_g160051_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g160127_| + (define |gx[1]#_g160057_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160130_| + (define |gx[1]#_g160060_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160133_| + (define |gx[1]#_g160063_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160136_| + (define |gx[1]#_g160066_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g160138_| + (define |gx[1]#_g160068_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g160140_| + (define |gx[1]#_g160070_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g160142_| + (define |gx[1]#_g160072_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g160148_| + (define |gx[1]#_g160078_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g160151_| + (define |gx[1]#_g160081_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160154_| + (define |gx[1]#_g160084_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g160160_| + (define |gx[1]#_g160090_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160163_| + (define |gx[1]#_g160093_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160166_| + (define |gx[1]#_g160096_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160172_| + (define |gx[1]#_g160102_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g160175_| + (define |gx[1]#_g160105_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160178_| + (define |gx[1]#_g160108_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g160184_| + (define |gx[1]#_g160114_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160187_| + (define |gx[1]#_g160117_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160190_| + (define |gx[1]#_g160120_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160194_| + (define |gx[1]#_g160124_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g160196_| + (define |gx[1]#_g160126_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g160198_| + (define |gx[1]#_g160128_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g160204_| + (define |gx[1]#_g160134_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g160207_| + (define |gx[1]#_g160137_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160210_| + (define |gx[1]#_g160140_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g160216_| + (define |gx[1]#_g160146_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160219_| + (define |gx[1]#_g160149_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160222_| + (define |gx[1]#_g160152_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160228_| + (define |gx[1]#_g160158_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g160231_| + (define |gx[1]#_g160161_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160234_| + (define |gx[1]#_g160164_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g160240_| + (define |gx[1]#_g160170_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160243_| + (define |gx[1]#_g160173_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160246_| + (define |gx[1]#_g160176_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160250_| + (define |gx[1]#_g160180_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g160252_| + (define |gx[1]#_g160182_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g160254_| + (define |gx[1]#_g160184_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g160256_| + (define |gx[1]#_g160186_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g160258_| + (define |gx[1]#_g160188_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g160264_| + (define |gx[1]#_g160194_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g160267_| + (define |gx[1]#_g160197_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160270_| + (define |gx[1]#_g160200_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g160276_| + (define |gx[1]#_g160206_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160279_| + (define |gx[1]#_g160209_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160282_| + (define |gx[1]#_g160212_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160288_| + (define |gx[1]#_g160218_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g160291_| + (define |gx[1]#_g160221_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g160294_| + (define |gx[1]#_g160224_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g160300_| + (define |gx[1]#_g160230_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160303_| + (define |gx[1]#_g160233_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g160306_| + (define |gx[1]#_g160236_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! @@ -842,12 +842,12 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj159824 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj159754 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj159824 + __obj159754 'gx#module-import::t '1 gerbil/core$$#class-type-info::t @@ -855,7 +855,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159824 + __obj159754 'module-import '2 gerbil/core$$#class-type-info::t @@ -863,7 +863,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159824 + __obj159754 '(source name phi weak?) '4 gerbil/core$$#class-type-info::t @@ -871,7 +871,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159824 + __obj159754 '() '3 gerbil/core$$#class-type-info::t @@ -879,7 +879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159824 + __obj159754 '#t '5 gerbil/core$$#class-type-info::t @@ -887,7 +887,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159824 + __obj159754 '#t '6 gerbil/core$$#class-type-info::t @@ -895,187 +895,187 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159824 + __obj159754 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159870 |gx[1]#_g159871_|)) + (let ((__tmp159800 |gx[1]#_g159801_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159824 - __tmp159870 + __obj159754 + __tmp159800 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159872 |gx[1]#_g159873_|)) + (let ((__tmp159802 |gx[1]#_g159803_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159824 - __tmp159872 + __obj159754 + __tmp159802 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159874 |gx[1]#_g159875_|)) + (let ((__tmp159804 |gx[1]#_g159805_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159824 - __tmp159874 + __obj159754 + __tmp159804 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159876 - (let ((__tmp159889 - (let ((__tmp159890 |gx[1]#_g159891_|)) + (let ((__tmp159806 + (let ((__tmp159819 + (let ((__tmp159820 |gx[1]#_g159821_|)) (declare (not safe)) - (cons 'source __tmp159890))) - (__tmp159877 - (let ((__tmp159886 - (let ((__tmp159887 |gx[1]#_g159888_|)) + (cons 'source __tmp159820))) + (__tmp159807 + (let ((__tmp159816 + (let ((__tmp159817 |gx[1]#_g159818_|)) (declare (not safe)) - (cons 'name __tmp159887))) - (__tmp159878 - (let ((__tmp159883 - (let ((__tmp159884 |gx[1]#_g159885_|)) + (cons 'name __tmp159817))) + (__tmp159808 + (let ((__tmp159813 + (let ((__tmp159814 |gx[1]#_g159815_|)) (declare (not safe)) - (cons 'phi __tmp159884))) - (__tmp159879 - (let ((__tmp159880 - (let ((__tmp159881 - |gx[1]#_g159882_|)) + (cons 'phi __tmp159814))) + (__tmp159809 + (let ((__tmp159810 + (let ((__tmp159811 + |gx[1]#_g159812_|)) (declare (not safe)) - (cons 'weak? __tmp159881)))) + (cons 'weak? __tmp159811)))) (declare (not safe)) - (cons __tmp159880 '())))) + (cons __tmp159810 '())))) (declare (not safe)) - (cons __tmp159883 __tmp159879)))) + (cons __tmp159813 __tmp159809)))) (declare (not safe)) - (cons __tmp159886 __tmp159878)))) + (cons __tmp159816 __tmp159808)))) (declare (not safe)) - (cons __tmp159889 __tmp159877)))) + (cons __tmp159819 __tmp159807)))) (declare (not safe)) (##unchecked-structure-set! - __obj159824 - __tmp159876 + __obj159754 + __tmp159806 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159892 - (let ((__tmp159905 - (let ((__tmp159906 |gx[1]#_g159907_|)) + (let ((__tmp159822 + (let ((__tmp159835 + (let ((__tmp159836 |gx[1]#_g159837_|)) (declare (not safe)) - (cons 'source __tmp159906))) - (__tmp159893 - (let ((__tmp159902 - (let ((__tmp159903 |gx[1]#_g159904_|)) + (cons 'source __tmp159836))) + (__tmp159823 + (let ((__tmp159832 + (let ((__tmp159833 |gx[1]#_g159834_|)) (declare (not safe)) - (cons 'name __tmp159903))) - (__tmp159894 - (let ((__tmp159899 - (let ((__tmp159900 |gx[1]#_g159901_|)) + (cons 'name __tmp159833))) + (__tmp159824 + (let ((__tmp159829 + (let ((__tmp159830 |gx[1]#_g159831_|)) (declare (not safe)) - (cons 'phi __tmp159900))) - (__tmp159895 - (let ((__tmp159896 - (let ((__tmp159897 - |gx[1]#_g159898_|)) + (cons 'phi __tmp159830))) + (__tmp159825 + (let ((__tmp159826 + (let ((__tmp159827 + |gx[1]#_g159828_|)) (declare (not safe)) - (cons 'weak? __tmp159897)))) + (cons 'weak? __tmp159827)))) (declare (not safe)) - (cons __tmp159896 '())))) + (cons __tmp159826 '())))) (declare (not safe)) - (cons __tmp159899 __tmp159895)))) + (cons __tmp159829 __tmp159825)))) (declare (not safe)) - (cons __tmp159902 __tmp159894)))) + (cons __tmp159832 __tmp159824)))) (declare (not safe)) - (cons __tmp159905 __tmp159893)))) + (cons __tmp159835 __tmp159823)))) (declare (not safe)) (##unchecked-structure-set! - __obj159824 - __tmp159892 + __obj159754 + __tmp159822 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159908 - (let ((__tmp159921 - (let ((__tmp159922 |gx[1]#_g159923_|)) + (let ((__tmp159838 + (let ((__tmp159851 + (let ((__tmp159852 |gx[1]#_g159853_|)) (declare (not safe)) - (cons 'source __tmp159922))) - (__tmp159909 - (let ((__tmp159918 - (let ((__tmp159919 |gx[1]#_g159920_|)) + (cons 'source __tmp159852))) + (__tmp159839 + (let ((__tmp159848 + (let ((__tmp159849 |gx[1]#_g159850_|)) (declare (not safe)) - (cons 'name __tmp159919))) - (__tmp159910 - (let ((__tmp159915 - (let ((__tmp159916 |gx[1]#_g159917_|)) + (cons 'name __tmp159849))) + (__tmp159840 + (let ((__tmp159845 + (let ((__tmp159846 |gx[1]#_g159847_|)) (declare (not safe)) - (cons 'phi __tmp159916))) - (__tmp159911 - (let ((__tmp159912 - (let ((__tmp159913 - |gx[1]#_g159914_|)) + (cons 'phi __tmp159846))) + (__tmp159841 + (let ((__tmp159842 + (let ((__tmp159843 + |gx[1]#_g159844_|)) (declare (not safe)) - (cons 'weak? __tmp159913)))) + (cons 'weak? __tmp159843)))) (declare (not safe)) - (cons __tmp159912 '())))) + (cons __tmp159842 '())))) (declare (not safe)) - (cons __tmp159915 __tmp159911)))) + (cons __tmp159845 __tmp159841)))) (declare (not safe)) - (cons __tmp159918 __tmp159910)))) + (cons __tmp159848 __tmp159840)))) (declare (not safe)) - (cons __tmp159921 __tmp159909)))) + (cons __tmp159851 __tmp159839)))) (declare (not safe)) (##unchecked-structure-set! - __obj159824 - __tmp159908 + __obj159754 + __tmp159838 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159924 - (let ((__tmp159937 - (let ((__tmp159938 |gx[1]#_g159939_|)) + (let ((__tmp159854 + (let ((__tmp159867 + (let ((__tmp159868 |gx[1]#_g159869_|)) (declare (not safe)) - (cons 'source __tmp159938))) - (__tmp159925 - (let ((__tmp159934 - (let ((__tmp159935 |gx[1]#_g159936_|)) + (cons 'source __tmp159868))) + (__tmp159855 + (let ((__tmp159864 + (let ((__tmp159865 |gx[1]#_g159866_|)) (declare (not safe)) - (cons 'name __tmp159935))) - (__tmp159926 - (let ((__tmp159931 - (let ((__tmp159932 |gx[1]#_g159933_|)) + (cons 'name __tmp159865))) + (__tmp159856 + (let ((__tmp159861 + (let ((__tmp159862 |gx[1]#_g159863_|)) (declare (not safe)) - (cons 'phi __tmp159932))) - (__tmp159927 - (let ((__tmp159928 - (let ((__tmp159929 - |gx[1]#_g159930_|)) + (cons 'phi __tmp159862))) + (__tmp159857 + (let ((__tmp159858 + (let ((__tmp159859 + |gx[1]#_g159860_|)) (declare (not safe)) - (cons 'weak? __tmp159929)))) + (cons 'weak? __tmp159859)))) (declare (not safe)) - (cons __tmp159928 '())))) + (cons __tmp159858 '())))) (declare (not safe)) - (cons __tmp159931 __tmp159927)))) + (cons __tmp159861 __tmp159857)))) (declare (not safe)) - (cons __tmp159934 __tmp159926)))) + (cons __tmp159864 __tmp159856)))) (declare (not safe)) - (cons __tmp159937 __tmp159925)))) + (cons __tmp159867 __tmp159855)))) (declare (not safe)) (##unchecked-structure-set! - __obj159824 - __tmp159924 + __obj159754 + __tmp159854 '14 gerbil/core$$#class-type-info::t '#f)) - __obj159824)) + __obj159754)) (define |gx[:0:]#module-export| - (let ((__obj159825 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj159755 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj159825 + __obj159755 'gx#module-export::t '1 gerbil/core$$#class-type-info::t @@ -1083,7 +1083,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159825 + __obj159755 'module-export '2 gerbil/core$$#class-type-info::t @@ -1091,7 +1091,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159825 + __obj159755 '(context key phi name weak?) '4 gerbil/core$$#class-type-info::t @@ -1099,7 +1099,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159825 + __obj159755 '() '3 gerbil/core$$#class-type-info::t @@ -1107,7 +1107,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159825 + __obj159755 '#t '5 gerbil/core$$#class-type-info::t @@ -1115,7 +1115,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159825 + __obj159755 '#t '6 gerbil/core$$#class-type-info::t @@ -1123,223 +1123,223 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159825 + __obj159755 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159940 |gx[1]#_g159941_|)) + (let ((__tmp159870 |gx[1]#_g159871_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159825 - __tmp159940 + __obj159755 + __tmp159870 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159942 |gx[1]#_g159943_|)) + (let ((__tmp159872 |gx[1]#_g159873_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159825 - __tmp159942 + __obj159755 + __tmp159872 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159944 |gx[1]#_g159945_|)) + (let ((__tmp159874 |gx[1]#_g159875_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159825 - __tmp159944 + __obj159755 + __tmp159874 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159946 - (let ((__tmp159963 - (let ((__tmp159964 |gx[1]#_g159965_|)) + (let ((__tmp159876 + (let ((__tmp159893 + (let ((__tmp159894 |gx[1]#_g159895_|)) (declare (not safe)) - (cons 'context __tmp159964))) - (__tmp159947 - (let ((__tmp159960 - (let ((__tmp159961 |gx[1]#_g159962_|)) + (cons 'context __tmp159894))) + (__tmp159877 + (let ((__tmp159890 + (let ((__tmp159891 |gx[1]#_g159892_|)) (declare (not safe)) - (cons 'key __tmp159961))) - (__tmp159948 - (let ((__tmp159957 - (let ((__tmp159958 |gx[1]#_g159959_|)) + (cons 'key __tmp159891))) + (__tmp159878 + (let ((__tmp159887 + (let ((__tmp159888 |gx[1]#_g159889_|)) (declare (not safe)) - (cons 'phi __tmp159958))) - (__tmp159949 - (let ((__tmp159954 - (let ((__tmp159955 - |gx[1]#_g159956_|)) + (cons 'phi __tmp159888))) + (__tmp159879 + (let ((__tmp159884 + (let ((__tmp159885 + |gx[1]#_g159886_|)) (declare (not safe)) - (cons 'name __tmp159955))) - (__tmp159950 - (let ((__tmp159951 - (let ((__tmp159952 - |gx[1]#_g159953_|)) + (cons 'name __tmp159885))) + (__tmp159880 + (let ((__tmp159881 + (let ((__tmp159882 + |gx[1]#_g159883_|)) (declare (not safe)) (cons 'weak? - __tmp159952)))) + __tmp159882)))) (declare (not safe)) - (cons __tmp159951 '())))) + (cons __tmp159881 '())))) (declare (not safe)) - (cons __tmp159954 __tmp159950)))) + (cons __tmp159884 __tmp159880)))) (declare (not safe)) - (cons __tmp159957 __tmp159949)))) + (cons __tmp159887 __tmp159879)))) (declare (not safe)) - (cons __tmp159960 __tmp159948)))) + (cons __tmp159890 __tmp159878)))) (declare (not safe)) - (cons __tmp159963 __tmp159947)))) + (cons __tmp159893 __tmp159877)))) (declare (not safe)) (##unchecked-structure-set! - __obj159825 - __tmp159946 + __obj159755 + __tmp159876 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159966 - (let ((__tmp159983 - (let ((__tmp159984 |gx[1]#_g159985_|)) + (let ((__tmp159896 + (let ((__tmp159913 + (let ((__tmp159914 |gx[1]#_g159915_|)) (declare (not safe)) - (cons 'context __tmp159984))) - (__tmp159967 - (let ((__tmp159980 - (let ((__tmp159981 |gx[1]#_g159982_|)) + (cons 'context __tmp159914))) + (__tmp159897 + (let ((__tmp159910 + (let ((__tmp159911 |gx[1]#_g159912_|)) (declare (not safe)) - (cons 'key __tmp159981))) - (__tmp159968 - (let ((__tmp159977 - (let ((__tmp159978 |gx[1]#_g159979_|)) + (cons 'key __tmp159911))) + (__tmp159898 + (let ((__tmp159907 + (let ((__tmp159908 |gx[1]#_g159909_|)) (declare (not safe)) - (cons 'phi __tmp159978))) - (__tmp159969 - (let ((__tmp159974 - (let ((__tmp159975 - |gx[1]#_g159976_|)) + (cons 'phi __tmp159908))) + (__tmp159899 + (let ((__tmp159904 + (let ((__tmp159905 + |gx[1]#_g159906_|)) (declare (not safe)) - (cons 'name __tmp159975))) - (__tmp159970 - (let ((__tmp159971 - (let ((__tmp159972 - |gx[1]#_g159973_|)) + (cons 'name __tmp159905))) + (__tmp159900 + (let ((__tmp159901 + (let ((__tmp159902 + |gx[1]#_g159903_|)) (declare (not safe)) (cons 'weak? - __tmp159972)))) + __tmp159902)))) (declare (not safe)) - (cons __tmp159971 '())))) + (cons __tmp159901 '())))) (declare (not safe)) - (cons __tmp159974 __tmp159970)))) + (cons __tmp159904 __tmp159900)))) (declare (not safe)) - (cons __tmp159977 __tmp159969)))) + (cons __tmp159907 __tmp159899)))) (declare (not safe)) - (cons __tmp159980 __tmp159968)))) + (cons __tmp159910 __tmp159898)))) (declare (not safe)) - (cons __tmp159983 __tmp159967)))) + (cons __tmp159913 __tmp159897)))) (declare (not safe)) (##unchecked-structure-set! - __obj159825 - __tmp159966 + __obj159755 + __tmp159896 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp159986 - (let ((__tmp160003 - (let ((__tmp160004 |gx[1]#_g160005_|)) + (let ((__tmp159916 + (let ((__tmp159933 + (let ((__tmp159934 |gx[1]#_g159935_|)) (declare (not safe)) - (cons 'context __tmp160004))) - (__tmp159987 - (let ((__tmp160000 - (let ((__tmp160001 |gx[1]#_g160002_|)) + (cons 'context __tmp159934))) + (__tmp159917 + (let ((__tmp159930 + (let ((__tmp159931 |gx[1]#_g159932_|)) (declare (not safe)) - (cons 'key __tmp160001))) - (__tmp159988 - (let ((__tmp159997 - (let ((__tmp159998 |gx[1]#_g159999_|)) + (cons 'key __tmp159931))) + (__tmp159918 + (let ((__tmp159927 + (let ((__tmp159928 |gx[1]#_g159929_|)) (declare (not safe)) - (cons 'phi __tmp159998))) - (__tmp159989 - (let ((__tmp159994 - (let ((__tmp159995 - |gx[1]#_g159996_|)) + (cons 'phi __tmp159928))) + (__tmp159919 + (let ((__tmp159924 + (let ((__tmp159925 + |gx[1]#_g159926_|)) (declare (not safe)) - (cons 'name __tmp159995))) - (__tmp159990 - (let ((__tmp159991 - (let ((__tmp159992 - |gx[1]#_g159993_|)) + (cons 'name __tmp159925))) + (__tmp159920 + (let ((__tmp159921 + (let ((__tmp159922 + |gx[1]#_g159923_|)) (declare (not safe)) (cons 'weak? - __tmp159992)))) + __tmp159922)))) (declare (not safe)) - (cons __tmp159991 '())))) + (cons __tmp159921 '())))) (declare (not safe)) - (cons __tmp159994 __tmp159990)))) + (cons __tmp159924 __tmp159920)))) (declare (not safe)) - (cons __tmp159997 __tmp159989)))) + (cons __tmp159927 __tmp159919)))) (declare (not safe)) - (cons __tmp160000 __tmp159988)))) + (cons __tmp159930 __tmp159918)))) (declare (not safe)) - (cons __tmp160003 __tmp159987)))) + (cons __tmp159933 __tmp159917)))) (declare (not safe)) (##unchecked-structure-set! - __obj159825 - __tmp159986 + __obj159755 + __tmp159916 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160006 - (let ((__tmp160023 - (let ((__tmp160024 |gx[1]#_g160025_|)) + (let ((__tmp159936 + (let ((__tmp159953 + (let ((__tmp159954 |gx[1]#_g159955_|)) (declare (not safe)) - (cons 'context __tmp160024))) - (__tmp160007 - (let ((__tmp160020 - (let ((__tmp160021 |gx[1]#_g160022_|)) + (cons 'context __tmp159954))) + (__tmp159937 + (let ((__tmp159950 + (let ((__tmp159951 |gx[1]#_g159952_|)) (declare (not safe)) - (cons 'key __tmp160021))) - (__tmp160008 - (let ((__tmp160017 - (let ((__tmp160018 |gx[1]#_g160019_|)) + (cons 'key __tmp159951))) + (__tmp159938 + (let ((__tmp159947 + (let ((__tmp159948 |gx[1]#_g159949_|)) (declare (not safe)) - (cons 'phi __tmp160018))) - (__tmp160009 - (let ((__tmp160014 - (let ((__tmp160015 - |gx[1]#_g160016_|)) + (cons 'phi __tmp159948))) + (__tmp159939 + (let ((__tmp159944 + (let ((__tmp159945 + |gx[1]#_g159946_|)) (declare (not safe)) - (cons 'name __tmp160015))) - (__tmp160010 - (let ((__tmp160011 - (let ((__tmp160012 - |gx[1]#_g160013_|)) + (cons 'name __tmp159945))) + (__tmp159940 + (let ((__tmp159941 + (let ((__tmp159942 + |gx[1]#_g159943_|)) (declare (not safe)) (cons 'weak? - __tmp160012)))) + __tmp159942)))) (declare (not safe)) - (cons __tmp160011 '())))) + (cons __tmp159941 '())))) (declare (not safe)) - (cons __tmp160014 __tmp160010)))) + (cons __tmp159944 __tmp159940)))) (declare (not safe)) - (cons __tmp160017 __tmp160009)))) + (cons __tmp159947 __tmp159939)))) (declare (not safe)) - (cons __tmp160020 __tmp160008)))) + (cons __tmp159950 __tmp159938)))) (declare (not safe)) - (cons __tmp160023 __tmp160007)))) + (cons __tmp159953 __tmp159937)))) (declare (not safe)) (##unchecked-structure-set! - __obj159825 - __tmp160006 + __obj159755 + __tmp159936 '14 gerbil/core$$#class-type-info::t '#f)) - __obj159825)) + __obj159755)) (define |gx[:0:]#import-set| - (let ((__obj159826 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj159756 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj159826 + __obj159756 'gx#import-set::t '1 gerbil/core$$#class-type-info::t @@ -1347,7 +1347,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159826 + __obj159756 'import-set '2 gerbil/core$$#class-type-info::t @@ -1355,7 +1355,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159826 + __obj159756 '(source phi imports) '4 gerbil/core$$#class-type-info::t @@ -1363,7 +1363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159826 + __obj159756 '() '3 gerbil/core$$#class-type-info::t @@ -1371,7 +1371,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159826 + __obj159756 '#t '5 gerbil/core$$#class-type-info::t @@ -1379,7 +1379,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159826 + __obj159756 '#t '6 gerbil/core$$#class-type-info::t @@ -1387,155 +1387,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159826 + __obj159756 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160026 |gx[1]#_g160027_|)) + (let ((__tmp159956 |gx[1]#_g159957_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159826 - __tmp160026 + __obj159756 + __tmp159956 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160028 |gx[1]#_g160029_|)) + (let ((__tmp159958 |gx[1]#_g159959_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159826 - __tmp160028 + __obj159756 + __tmp159958 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160030 |gx[1]#_g160031_|)) + (let ((__tmp159960 |gx[1]#_g159961_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159826 - __tmp160030 + __obj159756 + __tmp159960 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160032 - (let ((__tmp160041 - (let ((__tmp160042 |gx[1]#_g160043_|)) + (let ((__tmp159962 + (let ((__tmp159971 + (let ((__tmp159972 |gx[1]#_g159973_|)) (declare (not safe)) - (cons 'source __tmp160042))) - (__tmp160033 - (let ((__tmp160038 - (let ((__tmp160039 |gx[1]#_g160040_|)) + (cons 'source __tmp159972))) + (__tmp159963 + (let ((__tmp159968 + (let ((__tmp159969 |gx[1]#_g159970_|)) (declare (not safe)) - (cons 'phi __tmp160039))) - (__tmp160034 - (let ((__tmp160035 - (let ((__tmp160036 |gx[1]#_g160037_|)) + (cons 'phi __tmp159969))) + (__tmp159964 + (let ((__tmp159965 + (let ((__tmp159966 |gx[1]#_g159967_|)) (declare (not safe)) - (cons 'imports __tmp160036)))) + (cons 'imports __tmp159966)))) (declare (not safe)) - (cons __tmp160035 '())))) + (cons __tmp159965 '())))) (declare (not safe)) - (cons __tmp160038 __tmp160034)))) + (cons __tmp159968 __tmp159964)))) (declare (not safe)) - (cons __tmp160041 __tmp160033)))) + (cons __tmp159971 __tmp159963)))) (declare (not safe)) (##unchecked-structure-set! - __obj159826 - __tmp160032 + __obj159756 + __tmp159962 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160044 - (let ((__tmp160053 - (let ((__tmp160054 |gx[1]#_g160055_|)) + (let ((__tmp159974 + (let ((__tmp159983 + (let ((__tmp159984 |gx[1]#_g159985_|)) (declare (not safe)) - (cons 'source __tmp160054))) - (__tmp160045 - (let ((__tmp160050 - (let ((__tmp160051 |gx[1]#_g160052_|)) + (cons 'source __tmp159984))) + (__tmp159975 + (let ((__tmp159980 + (let ((__tmp159981 |gx[1]#_g159982_|)) (declare (not safe)) - (cons 'phi __tmp160051))) - (__tmp160046 - (let ((__tmp160047 - (let ((__tmp160048 |gx[1]#_g160049_|)) + (cons 'phi __tmp159981))) + (__tmp159976 + (let ((__tmp159977 + (let ((__tmp159978 |gx[1]#_g159979_|)) (declare (not safe)) - (cons 'imports __tmp160048)))) + (cons 'imports __tmp159978)))) (declare (not safe)) - (cons __tmp160047 '())))) + (cons __tmp159977 '())))) (declare (not safe)) - (cons __tmp160050 __tmp160046)))) + (cons __tmp159980 __tmp159976)))) (declare (not safe)) - (cons __tmp160053 __tmp160045)))) + (cons __tmp159983 __tmp159975)))) (declare (not safe)) (##unchecked-structure-set! - __obj159826 - __tmp160044 + __obj159756 + __tmp159974 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160056 - (let ((__tmp160065 - (let ((__tmp160066 |gx[1]#_g160067_|)) + (let ((__tmp159986 + (let ((__tmp159995 + (let ((__tmp159996 |gx[1]#_g159997_|)) (declare (not safe)) - (cons 'source __tmp160066))) - (__tmp160057 - (let ((__tmp160062 - (let ((__tmp160063 |gx[1]#_g160064_|)) + (cons 'source __tmp159996))) + (__tmp159987 + (let ((__tmp159992 + (let ((__tmp159993 |gx[1]#_g159994_|)) (declare (not safe)) - (cons 'phi __tmp160063))) - (__tmp160058 - (let ((__tmp160059 - (let ((__tmp160060 |gx[1]#_g160061_|)) + (cons 'phi __tmp159993))) + (__tmp159988 + (let ((__tmp159989 + (let ((__tmp159990 |gx[1]#_g159991_|)) (declare (not safe)) - (cons 'imports __tmp160060)))) + (cons 'imports __tmp159990)))) (declare (not safe)) - (cons __tmp160059 '())))) + (cons __tmp159989 '())))) (declare (not safe)) - (cons __tmp160062 __tmp160058)))) + (cons __tmp159992 __tmp159988)))) (declare (not safe)) - (cons __tmp160065 __tmp160057)))) + (cons __tmp159995 __tmp159987)))) (declare (not safe)) (##unchecked-structure-set! - __obj159826 - __tmp160056 + __obj159756 + __tmp159986 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160068 - (let ((__tmp160077 - (let ((__tmp160078 |gx[1]#_g160079_|)) + (let ((__tmp159998 + (let ((__tmp160007 + (let ((__tmp160008 |gx[1]#_g160009_|)) (declare (not safe)) - (cons 'source __tmp160078))) - (__tmp160069 - (let ((__tmp160074 - (let ((__tmp160075 |gx[1]#_g160076_|)) + (cons 'source __tmp160008))) + (__tmp159999 + (let ((__tmp160004 + (let ((__tmp160005 |gx[1]#_g160006_|)) (declare (not safe)) - (cons 'phi __tmp160075))) - (__tmp160070 - (let ((__tmp160071 - (let ((__tmp160072 |gx[1]#_g160073_|)) + (cons 'phi __tmp160005))) + (__tmp160000 + (let ((__tmp160001 + (let ((__tmp160002 |gx[1]#_g160003_|)) (declare (not safe)) - (cons 'imports __tmp160072)))) + (cons 'imports __tmp160002)))) (declare (not safe)) - (cons __tmp160071 '())))) + (cons __tmp160001 '())))) (declare (not safe)) - (cons __tmp160074 __tmp160070)))) + (cons __tmp160004 __tmp160000)))) (declare (not safe)) - (cons __tmp160077 __tmp160069)))) + (cons __tmp160007 __tmp159999)))) (declare (not safe)) (##unchecked-structure-set! - __obj159826 - __tmp160068 + __obj159756 + __tmp159998 '14 gerbil/core$$#class-type-info::t '#f)) - __obj159826)) + __obj159756)) (define |gx[:0:]#export-set| - (let ((__obj159827 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj159757 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj159827 + __obj159757 'gx#export-set::t '1 gerbil/core$$#class-type-info::t @@ -1543,7 +1543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159827 + __obj159757 'export-set '2 gerbil/core$$#class-type-info::t @@ -1551,7 +1551,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159827 + __obj159757 '(source phi exports) '4 gerbil/core$$#class-type-info::t @@ -1559,7 +1559,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159827 + __obj159757 '() '3 gerbil/core$$#class-type-info::t @@ -1567,7 +1567,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159827 + __obj159757 '#t '5 gerbil/core$$#class-type-info::t @@ -1575,7 +1575,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159827 + __obj159757 '#t '6 gerbil/core$$#class-type-info::t @@ -1583,155 +1583,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159827 + __obj159757 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160080 |gx[1]#_g160081_|)) + (let ((__tmp160010 |gx[1]#_g160011_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159827 - __tmp160080 + __obj159757 + __tmp160010 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160082 |gx[1]#_g160083_|)) + (let ((__tmp160012 |gx[1]#_g160013_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159827 - __tmp160082 + __obj159757 + __tmp160012 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160084 |gx[1]#_g160085_|)) + (let ((__tmp160014 |gx[1]#_g160015_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159827 - __tmp160084 + __obj159757 + __tmp160014 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160086 - (let ((__tmp160095 - (let ((__tmp160096 |gx[1]#_g160097_|)) + (let ((__tmp160016 + (let ((__tmp160025 + (let ((__tmp160026 |gx[1]#_g160027_|)) (declare (not safe)) - (cons 'source __tmp160096))) - (__tmp160087 - (let ((__tmp160092 - (let ((__tmp160093 |gx[1]#_g160094_|)) + (cons 'source __tmp160026))) + (__tmp160017 + (let ((__tmp160022 + (let ((__tmp160023 |gx[1]#_g160024_|)) (declare (not safe)) - (cons 'phi __tmp160093))) - (__tmp160088 - (let ((__tmp160089 - (let ((__tmp160090 |gx[1]#_g160091_|)) + (cons 'phi __tmp160023))) + (__tmp160018 + (let ((__tmp160019 + (let ((__tmp160020 |gx[1]#_g160021_|)) (declare (not safe)) - (cons 'exports __tmp160090)))) + (cons 'exports __tmp160020)))) (declare (not safe)) - (cons __tmp160089 '())))) + (cons __tmp160019 '())))) (declare (not safe)) - (cons __tmp160092 __tmp160088)))) + (cons __tmp160022 __tmp160018)))) (declare (not safe)) - (cons __tmp160095 __tmp160087)))) + (cons __tmp160025 __tmp160017)))) (declare (not safe)) (##unchecked-structure-set! - __obj159827 - __tmp160086 + __obj159757 + __tmp160016 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160098 - (let ((__tmp160107 - (let ((__tmp160108 |gx[1]#_g160109_|)) + (let ((__tmp160028 + (let ((__tmp160037 + (let ((__tmp160038 |gx[1]#_g160039_|)) (declare (not safe)) - (cons 'source __tmp160108))) - (__tmp160099 - (let ((__tmp160104 - (let ((__tmp160105 |gx[1]#_g160106_|)) + (cons 'source __tmp160038))) + (__tmp160029 + (let ((__tmp160034 + (let ((__tmp160035 |gx[1]#_g160036_|)) (declare (not safe)) - (cons 'phi __tmp160105))) - (__tmp160100 - (let ((__tmp160101 - (let ((__tmp160102 |gx[1]#_g160103_|)) + (cons 'phi __tmp160035))) + (__tmp160030 + (let ((__tmp160031 + (let ((__tmp160032 |gx[1]#_g160033_|)) (declare (not safe)) - (cons 'exports __tmp160102)))) + (cons 'exports __tmp160032)))) (declare (not safe)) - (cons __tmp160101 '())))) + (cons __tmp160031 '())))) (declare (not safe)) - (cons __tmp160104 __tmp160100)))) + (cons __tmp160034 __tmp160030)))) (declare (not safe)) - (cons __tmp160107 __tmp160099)))) + (cons __tmp160037 __tmp160029)))) (declare (not safe)) (##unchecked-structure-set! - __obj159827 - __tmp160098 + __obj159757 + __tmp160028 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160110 - (let ((__tmp160119 - (let ((__tmp160120 |gx[1]#_g160121_|)) + (let ((__tmp160040 + (let ((__tmp160049 + (let ((__tmp160050 |gx[1]#_g160051_|)) (declare (not safe)) - (cons 'source __tmp160120))) - (__tmp160111 - (let ((__tmp160116 - (let ((__tmp160117 |gx[1]#_g160118_|)) + (cons 'source __tmp160050))) + (__tmp160041 + (let ((__tmp160046 + (let ((__tmp160047 |gx[1]#_g160048_|)) (declare (not safe)) - (cons 'phi __tmp160117))) - (__tmp160112 - (let ((__tmp160113 - (let ((__tmp160114 |gx[1]#_g160115_|)) + (cons 'phi __tmp160047))) + (__tmp160042 + (let ((__tmp160043 + (let ((__tmp160044 |gx[1]#_g160045_|)) (declare (not safe)) - (cons 'exports __tmp160114)))) + (cons 'exports __tmp160044)))) (declare (not safe)) - (cons __tmp160113 '())))) + (cons __tmp160043 '())))) (declare (not safe)) - (cons __tmp160116 __tmp160112)))) + (cons __tmp160046 __tmp160042)))) (declare (not safe)) - (cons __tmp160119 __tmp160111)))) + (cons __tmp160049 __tmp160041)))) (declare (not safe)) (##unchecked-structure-set! - __obj159827 - __tmp160110 + __obj159757 + __tmp160040 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160122 - (let ((__tmp160131 - (let ((__tmp160132 |gx[1]#_g160133_|)) + (let ((__tmp160052 + (let ((__tmp160061 + (let ((__tmp160062 |gx[1]#_g160063_|)) (declare (not safe)) - (cons 'source __tmp160132))) - (__tmp160123 - (let ((__tmp160128 - (let ((__tmp160129 |gx[1]#_g160130_|)) + (cons 'source __tmp160062))) + (__tmp160053 + (let ((__tmp160058 + (let ((__tmp160059 |gx[1]#_g160060_|)) (declare (not safe)) - (cons 'phi __tmp160129))) - (__tmp160124 - (let ((__tmp160125 - (let ((__tmp160126 |gx[1]#_g160127_|)) + (cons 'phi __tmp160059))) + (__tmp160054 + (let ((__tmp160055 + (let ((__tmp160056 |gx[1]#_g160057_|)) (declare (not safe)) - (cons 'exports __tmp160126)))) + (cons 'exports __tmp160056)))) (declare (not safe)) - (cons __tmp160125 '())))) + (cons __tmp160055 '())))) (declare (not safe)) - (cons __tmp160128 __tmp160124)))) + (cons __tmp160058 __tmp160054)))) (declare (not safe)) - (cons __tmp160131 __tmp160123)))) + (cons __tmp160061 __tmp160053)))) (declare (not safe)) (##unchecked-structure-set! - __obj159827 - __tmp160122 + __obj159757 + __tmp160052 '14 gerbil/core$$#class-type-info::t '#f)) - __obj159827)) + __obj159757)) (define |gx[:0:]#import-expander| - (let ((__obj159828 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj159758 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj159828 + __obj159758 'gx#import-expander::t '1 gerbil/core$$#class-type-info::t @@ -1739,7 +1739,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159828 + __obj159758 'import-expander '2 gerbil/core$$#class-type-info::t @@ -1747,26 +1747,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159828 + __obj159758 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160134 - (let ((__tmp160135 |gx[1]#_g160136_|)) + (let ((__tmp160064 + (let ((__tmp160065 |gx[1]#_g160066_|)) (declare (not safe)) - (cons __tmp160135 '())))) + (cons __tmp160065 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj159828 - __tmp160134 + __obj159758 + __tmp160064 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj159828 + __obj159758 '#f '5 gerbil/core$$#class-type-info::t @@ -1774,7 +1774,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159828 + __obj159758 '#f '6 gerbil/core$$#class-type-info::t @@ -1782,155 +1782,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159828 + __obj159758 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160137 |gx[1]#_g160138_|)) + (let ((__tmp160067 |gx[1]#_g160068_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159828 - __tmp160137 + __obj159758 + __tmp160067 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160139 |gx[1]#_g160140_|)) + (let ((__tmp160069 |gx[1]#_g160070_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159828 - __tmp160139 + __obj159758 + __tmp160069 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160141 |gx[1]#_g160142_|)) + (let ((__tmp160071 |gx[1]#_g160072_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159828 - __tmp160141 + __obj159758 + __tmp160071 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160143 - (let ((__tmp160152 - (let ((__tmp160153 |gx[1]#_g160154_|)) + (let ((__tmp160073 + (let ((__tmp160082 + (let ((__tmp160083 |gx[1]#_g160084_|)) (declare (not safe)) - (cons 'context __tmp160153))) - (__tmp160144 - (let ((__tmp160149 - (let ((__tmp160150 |gx[1]#_g160151_|)) + (cons 'context __tmp160083))) + (__tmp160074 + (let ((__tmp160079 + (let ((__tmp160080 |gx[1]#_g160081_|)) (declare (not safe)) - (cons 'phi __tmp160150))) - (__tmp160145 - (let ((__tmp160146 - (let ((__tmp160147 |gx[1]#_g160148_|)) + (cons 'phi __tmp160080))) + (__tmp160075 + (let ((__tmp160076 + (let ((__tmp160077 |gx[1]#_g160078_|)) (declare (not safe)) - (cons 'e __tmp160147)))) + (cons 'e __tmp160077)))) (declare (not safe)) - (cons __tmp160146 '())))) + (cons __tmp160076 '())))) (declare (not safe)) - (cons __tmp160149 __tmp160145)))) + (cons __tmp160079 __tmp160075)))) (declare (not safe)) - (cons __tmp160152 __tmp160144)))) + (cons __tmp160082 __tmp160074)))) (declare (not safe)) (##unchecked-structure-set! - __obj159828 - __tmp160143 + __obj159758 + __tmp160073 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160155 - (let ((__tmp160164 - (let ((__tmp160165 |gx[1]#_g160166_|)) + (let ((__tmp160085 + (let ((__tmp160094 + (let ((__tmp160095 |gx[1]#_g160096_|)) (declare (not safe)) - (cons 'context __tmp160165))) - (__tmp160156 - (let ((__tmp160161 - (let ((__tmp160162 |gx[1]#_g160163_|)) + (cons 'context __tmp160095))) + (__tmp160086 + (let ((__tmp160091 + (let ((__tmp160092 |gx[1]#_g160093_|)) (declare (not safe)) - (cons 'phi __tmp160162))) - (__tmp160157 - (let ((__tmp160158 - (let ((__tmp160159 |gx[1]#_g160160_|)) + (cons 'phi __tmp160092))) + (__tmp160087 + (let ((__tmp160088 + (let ((__tmp160089 |gx[1]#_g160090_|)) (declare (not safe)) - (cons 'e __tmp160159)))) + (cons 'e __tmp160089)))) (declare (not safe)) - (cons __tmp160158 '())))) + (cons __tmp160088 '())))) (declare (not safe)) - (cons __tmp160161 __tmp160157)))) + (cons __tmp160091 __tmp160087)))) (declare (not safe)) - (cons __tmp160164 __tmp160156)))) + (cons __tmp160094 __tmp160086)))) (declare (not safe)) (##unchecked-structure-set! - __obj159828 - __tmp160155 + __obj159758 + __tmp160085 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160167 - (let ((__tmp160176 - (let ((__tmp160177 |gx[1]#_g160178_|)) + (let ((__tmp160097 + (let ((__tmp160106 + (let ((__tmp160107 |gx[1]#_g160108_|)) (declare (not safe)) - (cons 'context __tmp160177))) - (__tmp160168 - (let ((__tmp160173 - (let ((__tmp160174 |gx[1]#_g160175_|)) + (cons 'context __tmp160107))) + (__tmp160098 + (let ((__tmp160103 + (let ((__tmp160104 |gx[1]#_g160105_|)) (declare (not safe)) - (cons 'phi __tmp160174))) - (__tmp160169 - (let ((__tmp160170 - (let ((__tmp160171 |gx[1]#_g160172_|)) + (cons 'phi __tmp160104))) + (__tmp160099 + (let ((__tmp160100 + (let ((__tmp160101 |gx[1]#_g160102_|)) (declare (not safe)) - (cons 'e __tmp160171)))) + (cons 'e __tmp160101)))) (declare (not safe)) - (cons __tmp160170 '())))) + (cons __tmp160100 '())))) (declare (not safe)) - (cons __tmp160173 __tmp160169)))) + (cons __tmp160103 __tmp160099)))) (declare (not safe)) - (cons __tmp160176 __tmp160168)))) + (cons __tmp160106 __tmp160098)))) (declare (not safe)) (##unchecked-structure-set! - __obj159828 - __tmp160167 + __obj159758 + __tmp160097 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160179 - (let ((__tmp160188 - (let ((__tmp160189 |gx[1]#_g160190_|)) + (let ((__tmp160109 + (let ((__tmp160118 + (let ((__tmp160119 |gx[1]#_g160120_|)) (declare (not safe)) - (cons 'context __tmp160189))) - (__tmp160180 - (let ((__tmp160185 - (let ((__tmp160186 |gx[1]#_g160187_|)) + (cons 'context __tmp160119))) + (__tmp160110 + (let ((__tmp160115 + (let ((__tmp160116 |gx[1]#_g160117_|)) (declare (not safe)) - (cons 'phi __tmp160186))) - (__tmp160181 - (let ((__tmp160182 - (let ((__tmp160183 |gx[1]#_g160184_|)) + (cons 'phi __tmp160116))) + (__tmp160111 + (let ((__tmp160112 + (let ((__tmp160113 |gx[1]#_g160114_|)) (declare (not safe)) - (cons 'e __tmp160183)))) + (cons 'e __tmp160113)))) (declare (not safe)) - (cons __tmp160182 '())))) + (cons __tmp160112 '())))) (declare (not safe)) - (cons __tmp160185 __tmp160181)))) + (cons __tmp160115 __tmp160111)))) (declare (not safe)) - (cons __tmp160188 __tmp160180)))) + (cons __tmp160118 __tmp160110)))) (declare (not safe)) (##unchecked-structure-set! - __obj159828 - __tmp160179 + __obj159758 + __tmp160109 '14 gerbil/core$$#class-type-info::t '#f)) - __obj159828)) + __obj159758)) (define |gx[:0:]#export-expander| - (let ((__obj159829 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj159759 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj159829 + __obj159759 'gx#export-expander::t '1 gerbil/core$$#class-type-info::t @@ -1938,7 +1938,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159829 + __obj159759 'export-expander '2 gerbil/core$$#class-type-info::t @@ -1946,26 +1946,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159829 + __obj159759 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160191 - (let ((__tmp160192 |gx[1]#_g160136_|)) + (let ((__tmp160121 + (let ((__tmp160122 |gx[1]#_g160066_|)) (declare (not safe)) - (cons __tmp160192 '())))) + (cons __tmp160122 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj159829 - __tmp160191 + __obj159759 + __tmp160121 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj159829 + __obj159759 '#f '5 gerbil/core$$#class-type-info::t @@ -1973,7 +1973,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159829 + __obj159759 '#f '6 gerbil/core$$#class-type-info::t @@ -1981,155 +1981,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159829 + __obj159759 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160193 |gx[1]#_g160194_|)) + (let ((__tmp160123 |gx[1]#_g160124_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159829 - __tmp160193 + __obj159759 + __tmp160123 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160195 |gx[1]#_g160196_|)) + (let ((__tmp160125 |gx[1]#_g160126_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159829 - __tmp160195 + __obj159759 + __tmp160125 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160197 |gx[1]#_g160198_|)) + (let ((__tmp160127 |gx[1]#_g160128_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159829 - __tmp160197 + __obj159759 + __tmp160127 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160199 - (let ((__tmp160208 - (let ((__tmp160209 |gx[1]#_g160210_|)) + (let ((__tmp160129 + (let ((__tmp160138 + (let ((__tmp160139 |gx[1]#_g160140_|)) (declare (not safe)) - (cons 'context __tmp160209))) - (__tmp160200 - (let ((__tmp160205 - (let ((__tmp160206 |gx[1]#_g160207_|)) + (cons 'context __tmp160139))) + (__tmp160130 + (let ((__tmp160135 + (let ((__tmp160136 |gx[1]#_g160137_|)) (declare (not safe)) - (cons 'phi __tmp160206))) - (__tmp160201 - (let ((__tmp160202 - (let ((__tmp160203 |gx[1]#_g160204_|)) + (cons 'phi __tmp160136))) + (__tmp160131 + (let ((__tmp160132 + (let ((__tmp160133 |gx[1]#_g160134_|)) (declare (not safe)) - (cons 'e __tmp160203)))) + (cons 'e __tmp160133)))) (declare (not safe)) - (cons __tmp160202 '())))) + (cons __tmp160132 '())))) (declare (not safe)) - (cons __tmp160205 __tmp160201)))) + (cons __tmp160135 __tmp160131)))) (declare (not safe)) - (cons __tmp160208 __tmp160200)))) + (cons __tmp160138 __tmp160130)))) (declare (not safe)) (##unchecked-structure-set! - __obj159829 - __tmp160199 + __obj159759 + __tmp160129 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160211 - (let ((__tmp160220 - (let ((__tmp160221 |gx[1]#_g160222_|)) + (let ((__tmp160141 + (let ((__tmp160150 + (let ((__tmp160151 |gx[1]#_g160152_|)) (declare (not safe)) - (cons 'context __tmp160221))) - (__tmp160212 - (let ((__tmp160217 - (let ((__tmp160218 |gx[1]#_g160219_|)) + (cons 'context __tmp160151))) + (__tmp160142 + (let ((__tmp160147 + (let ((__tmp160148 |gx[1]#_g160149_|)) (declare (not safe)) - (cons 'phi __tmp160218))) - (__tmp160213 - (let ((__tmp160214 - (let ((__tmp160215 |gx[1]#_g160216_|)) + (cons 'phi __tmp160148))) + (__tmp160143 + (let ((__tmp160144 + (let ((__tmp160145 |gx[1]#_g160146_|)) (declare (not safe)) - (cons 'e __tmp160215)))) + (cons 'e __tmp160145)))) (declare (not safe)) - (cons __tmp160214 '())))) + (cons __tmp160144 '())))) (declare (not safe)) - (cons __tmp160217 __tmp160213)))) + (cons __tmp160147 __tmp160143)))) (declare (not safe)) - (cons __tmp160220 __tmp160212)))) + (cons __tmp160150 __tmp160142)))) (declare (not safe)) (##unchecked-structure-set! - __obj159829 - __tmp160211 + __obj159759 + __tmp160141 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160223 - (let ((__tmp160232 - (let ((__tmp160233 |gx[1]#_g160234_|)) + (let ((__tmp160153 + (let ((__tmp160162 + (let ((__tmp160163 |gx[1]#_g160164_|)) (declare (not safe)) - (cons 'context __tmp160233))) - (__tmp160224 - (let ((__tmp160229 - (let ((__tmp160230 |gx[1]#_g160231_|)) + (cons 'context __tmp160163))) + (__tmp160154 + (let ((__tmp160159 + (let ((__tmp160160 |gx[1]#_g160161_|)) (declare (not safe)) - (cons 'phi __tmp160230))) - (__tmp160225 - (let ((__tmp160226 - (let ((__tmp160227 |gx[1]#_g160228_|)) + (cons 'phi __tmp160160))) + (__tmp160155 + (let ((__tmp160156 + (let ((__tmp160157 |gx[1]#_g160158_|)) (declare (not safe)) - (cons 'e __tmp160227)))) + (cons 'e __tmp160157)))) (declare (not safe)) - (cons __tmp160226 '())))) + (cons __tmp160156 '())))) (declare (not safe)) - (cons __tmp160229 __tmp160225)))) + (cons __tmp160159 __tmp160155)))) (declare (not safe)) - (cons __tmp160232 __tmp160224)))) + (cons __tmp160162 __tmp160154)))) (declare (not safe)) (##unchecked-structure-set! - __obj159829 - __tmp160223 + __obj159759 + __tmp160153 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160235 - (let ((__tmp160244 - (let ((__tmp160245 |gx[1]#_g160246_|)) + (let ((__tmp160165 + (let ((__tmp160174 + (let ((__tmp160175 |gx[1]#_g160176_|)) (declare (not safe)) - (cons 'context __tmp160245))) - (__tmp160236 - (let ((__tmp160241 - (let ((__tmp160242 |gx[1]#_g160243_|)) + (cons 'context __tmp160175))) + (__tmp160166 + (let ((__tmp160171 + (let ((__tmp160172 |gx[1]#_g160173_|)) (declare (not safe)) - (cons 'phi __tmp160242))) - (__tmp160237 - (let ((__tmp160238 - (let ((__tmp160239 |gx[1]#_g160240_|)) + (cons 'phi __tmp160172))) + (__tmp160167 + (let ((__tmp160168 + (let ((__tmp160169 |gx[1]#_g160170_|)) (declare (not safe)) - (cons 'e __tmp160239)))) + (cons 'e __tmp160169)))) (declare (not safe)) - (cons __tmp160238 '())))) + (cons __tmp160168 '())))) (declare (not safe)) - (cons __tmp160241 __tmp160237)))) + (cons __tmp160171 __tmp160167)))) (declare (not safe)) - (cons __tmp160244 __tmp160236)))) + (cons __tmp160174 __tmp160166)))) (declare (not safe)) (##unchecked-structure-set! - __obj159829 - __tmp160235 + __obj159759 + __tmp160165 '14 gerbil/core$$#class-type-info::t '#f)) - __obj159829)) + __obj159759)) (define |gx[:0:]#import-export-expander| - (let ((__obj159830 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj159760 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj159830 + __obj159760 'gx#import-export-expander::t '1 gerbil/core$$#class-type-info::t @@ -2137,7 +2137,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159830 + __obj159760 'import-export-expander '2 gerbil/core$$#class-type-info::t @@ -2145,30 +2145,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159830 + __obj159760 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160247 - (let ((__tmp160251 |gx[1]#_g160252_|) - (__tmp160248 - (let ((__tmp160249 |gx[1]#_g160250_|)) + (let ((__tmp160177 + (let ((__tmp160181 |gx[1]#_g160182_|) + (__tmp160178 + (let ((__tmp160179 |gx[1]#_g160180_|)) (declare (not safe)) - (cons __tmp160249 '())))) + (cons __tmp160179 '())))) (declare (not safe)) - (cons __tmp160251 __tmp160248)))) + (cons __tmp160181 __tmp160178)))) (declare (not safe)) (##unchecked-structure-set! - __obj159830 - __tmp160247 + __obj159760 + __tmp160177 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj159830 + __obj159760 '#f '5 gerbil/core$$#class-type-info::t @@ -2176,7 +2176,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159830 + __obj159760 '#f '6 gerbil/core$$#class-type-info::t @@ -2184,145 +2184,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj159830 + __obj159760 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160253 |gx[1]#_g160254_|)) + (let ((__tmp160183 |gx[1]#_g160184_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159830 - __tmp160253 + __obj159760 + __tmp160183 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160255 |gx[1]#_g160256_|)) + (let ((__tmp160185 |gx[1]#_g160186_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159830 - __tmp160255 + __obj159760 + __tmp160185 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160257 |gx[1]#_g160258_|)) + (let ((__tmp160187 |gx[1]#_g160188_|)) (declare (not safe)) (##unchecked-structure-set! - __obj159830 - __tmp160257 + __obj159760 + __tmp160187 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160259 - (let ((__tmp160268 - (let ((__tmp160269 |gx[1]#_g160270_|)) + (let ((__tmp160189 + (let ((__tmp160198 + (let ((__tmp160199 |gx[1]#_g160200_|)) (declare (not safe)) - (cons 'context __tmp160269))) - (__tmp160260 - (let ((__tmp160265 - (let ((__tmp160266 |gx[1]#_g160267_|)) + (cons 'context __tmp160199))) + (__tmp160190 + (let ((__tmp160195 + (let ((__tmp160196 |gx[1]#_g160197_|)) (declare (not safe)) - (cons 'phi __tmp160266))) - (__tmp160261 - (let ((__tmp160262 - (let ((__tmp160263 |gx[1]#_g160264_|)) + (cons 'phi __tmp160196))) + (__tmp160191 + (let ((__tmp160192 + (let ((__tmp160193 |gx[1]#_g160194_|)) (declare (not safe)) - (cons 'e __tmp160263)))) + (cons 'e __tmp160193)))) (declare (not safe)) - (cons __tmp160262 '())))) + (cons __tmp160192 '())))) (declare (not safe)) - (cons __tmp160265 __tmp160261)))) + (cons __tmp160195 __tmp160191)))) (declare (not safe)) - (cons __tmp160268 __tmp160260)))) + (cons __tmp160198 __tmp160190)))) (declare (not safe)) (##unchecked-structure-set! - __obj159830 - __tmp160259 + __obj159760 + __tmp160189 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160271 - (let ((__tmp160280 - (let ((__tmp160281 |gx[1]#_g160282_|)) + (let ((__tmp160201 + (let ((__tmp160210 + (let ((__tmp160211 |gx[1]#_g160212_|)) (declare (not safe)) - (cons 'context __tmp160281))) - (__tmp160272 - (let ((__tmp160277 - (let ((__tmp160278 |gx[1]#_g160279_|)) + (cons 'context __tmp160211))) + (__tmp160202 + (let ((__tmp160207 + (let ((__tmp160208 |gx[1]#_g160209_|)) (declare (not safe)) - (cons 'phi __tmp160278))) - (__tmp160273 - (let ((__tmp160274 - (let ((__tmp160275 |gx[1]#_g160276_|)) + (cons 'phi __tmp160208))) + (__tmp160203 + (let ((__tmp160204 + (let ((__tmp160205 |gx[1]#_g160206_|)) (declare (not safe)) - (cons 'e __tmp160275)))) + (cons 'e __tmp160205)))) (declare (not safe)) - (cons __tmp160274 '())))) + (cons __tmp160204 '())))) (declare (not safe)) - (cons __tmp160277 __tmp160273)))) + (cons __tmp160207 __tmp160203)))) (declare (not safe)) - (cons __tmp160280 __tmp160272)))) + (cons __tmp160210 __tmp160202)))) (declare (not safe)) (##unchecked-structure-set! - __obj159830 - __tmp160271 + __obj159760 + __tmp160201 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160283 - (let ((__tmp160292 - (let ((__tmp160293 |gx[1]#_g160294_|)) + (let ((__tmp160213 + (let ((__tmp160222 + (let ((__tmp160223 |gx[1]#_g160224_|)) (declare (not safe)) - (cons 'context __tmp160293))) - (__tmp160284 - (let ((__tmp160289 - (let ((__tmp160290 |gx[1]#_g160291_|)) + (cons 'context __tmp160223))) + (__tmp160214 + (let ((__tmp160219 + (let ((__tmp160220 |gx[1]#_g160221_|)) (declare (not safe)) - (cons 'phi __tmp160290))) - (__tmp160285 - (let ((__tmp160286 - (let ((__tmp160287 |gx[1]#_g160288_|)) + (cons 'phi __tmp160220))) + (__tmp160215 + (let ((__tmp160216 + (let ((__tmp160217 |gx[1]#_g160218_|)) (declare (not safe)) - (cons 'e __tmp160287)))) + (cons 'e __tmp160217)))) (declare (not safe)) - (cons __tmp160286 '())))) + (cons __tmp160216 '())))) (declare (not safe)) - (cons __tmp160289 __tmp160285)))) + (cons __tmp160219 __tmp160215)))) (declare (not safe)) - (cons __tmp160292 __tmp160284)))) + (cons __tmp160222 __tmp160214)))) (declare (not safe)) (##unchecked-structure-set! - __obj159830 - __tmp160283 + __obj159760 + __tmp160213 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp160295 - (let ((__tmp160304 - (let ((__tmp160305 |gx[1]#_g160306_|)) + (let ((__tmp160225 + (let ((__tmp160234 + (let ((__tmp160235 |gx[1]#_g160236_|)) (declare (not safe)) - (cons 'context __tmp160305))) - (__tmp160296 - (let ((__tmp160301 - (let ((__tmp160302 |gx[1]#_g160303_|)) + (cons 'context __tmp160235))) + (__tmp160226 + (let ((__tmp160231 + (let ((__tmp160232 |gx[1]#_g160233_|)) (declare (not safe)) - (cons 'phi __tmp160302))) - (__tmp160297 - (let ((__tmp160298 - (let ((__tmp160299 |gx[1]#_g160300_|)) + (cons 'phi __tmp160232))) + (__tmp160227 + (let ((__tmp160228 + (let ((__tmp160229 |gx[1]#_g160230_|)) (declare (not safe)) - (cons 'e __tmp160299)))) + (cons 'e __tmp160229)))) (declare (not safe)) - (cons __tmp160298 '())))) + (cons __tmp160228 '())))) (declare (not safe)) - (cons __tmp160301 __tmp160297)))) + (cons __tmp160231 __tmp160227)))) (declare (not safe)) - (cons __tmp160304 __tmp160296)))) + (cons __tmp160234 __tmp160226)))) (declare (not safe)) (##unchecked-structure-set! - __obj159830 - __tmp160295 + __obj159760 + __tmp160225 '14 gerbil/core$$#class-type-info::t '#f)) - __obj159830)))) + __obj159760)))) diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index b08bfd9de..df487a7f3 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 1707423041) + (define gerbil/expander/root::timestamp 1707565660) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,591 +262,591 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_self166697_ _bind?166698_) - (if (##fx< '2 (##structure-length _self166697_)) + (lambda (_self166627_ _bind?166628_) + (if (##fx< '2 (##structure-length _self166627_)) (begin (##unchecked-structure-set! - _self166697_ + _self166627_ 'root '1 - (##structure-type _self166697_) + (##structure-type _self166627_) '#f) (##unchecked-structure-set! - _self166697_ + _self166627_ (make-table 'test: eq?) '2 - (##structure-type _self166697_) + (##structure-type _self166627_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self166697_ + _self166627_ '2 - (##vector-length _self166697_))) - (if _bind?166698_ + (##vector-length _self166627_))) + (if _bind?166628_ (begin - (let ((__method170942 - (method-ref _self166697_ 'bind-core-syntax-expanders!))) - (if __method170942 - (__method170942 _self166697_) + (let ((__method170872 + (method-ref _self166627_ 'bind-core-syntax-expanders!))) + (if __method170872 + (__method170872 _self166627_) (error '"Missing method" - _self166697_ + _self166627_ 'bind-core-syntax-expanders!))) - (let ((__method170943 - (method-ref _self166697_ 'bind-core-macro-expanders!))) - (if __method170943 - (__method170943 _self166697_) + (let ((__method170873 + (method-ref _self166627_ 'bind-core-macro-expanders!))) + (if __method170873 + (__method170873 _self166627_) (error '"Missing method" - _self166697_ + _self166627_ 'bind-core-macro-expanders!))) - (let ((__method170944 - (method-ref _self166697_ 'bind-core-features!))) - (if __method170944 - (__method170944 _self166697_) + (let ((__method170874 + (method-ref _self166627_ 'bind-core-features!))) + (if __method170874 + (__method170874 _self166627_) (error '"Missing method" - _self166697_ + _self166627_ 'bind-core-features!)))) '#!void))) (define gx#root-context:::init!__0 - (lambda (_self166703_) - (let ((_bind?166705_ '#t)) - (gx#root-context:::init!__% _self166703_ _bind?166705_)))) + (lambda (_self166633_) + (let ((_bind?166635_ '#t)) + (gx#root-context:::init!__% _self166633_ _bind?166635_)))) (define gx#root-context:::init! - (lambda _g170947_ - (let ((_g170946_ (##length _g170947_))) - (cond ((##fx= _g170946_ 1) - (apply (lambda (_self166703_) - (gx#root-context:::init!__0 _self166703_)) - _g170947_)) - ((##fx= _g170946_ 2) - (apply (lambda (_self166707_ _bind?166708_) + (lambda _g170877_ + (let ((_g170876_ (##length _g170877_))) + (cond ((##fx= _g170876_ 1) + (apply (lambda (_self166633_) + (gx#root-context:::init!__0 _self166633_)) + _g170877_)) + ((##fx= _g170876_ 2) + (apply (lambda (_self166637_ _bind?166638_) (gx#root-context:::init!__% - _self166707_ - _bind?166708_)) - _g170947_)) + _self166637_ + _bind?166638_)) + _g170877_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g170947_)))))) + _g170877_)))))) (define gx#root-context:::init!::specialize - (lambda (__t170903) - (let ((__bind-core-macro-expanders!170904 + (lambda (__t170833) + (let ((__bind-core-syntax-expanders!170834 (make-promise (lambda () - (let ((__tmp170907 + (let ((__tmp170837 (direct-method-ref - __t170903 - 'bind-core-macro-expanders!))) - (if __tmp170907 - __tmp170907 + __t170833 + 'bind-core-syntax-expanders!))) + (if __tmp170837 + __tmp170837 (error '"Missing method" - 'bind-core-macro-expanders!)))))) - (__bind-core-features!170905 - (make-promise - (lambda () - (let ((__tmp170908 - (direct-method-ref __t170903 'bind-core-features!))) - (if __tmp170908 - __tmp170908 - (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-syntax-expanders!170906 + 'bind-core-syntax-expanders!)))))) + (__bind-core-macro-expanders!170835 (make-promise (lambda () - (let ((__tmp170909 + (let ((__tmp170838 (direct-method-ref - __t170903 - 'bind-core-syntax-expanders!))) - (if __tmp170909 - __tmp170909 + __t170833 + 'bind-core-macro-expanders!))) + (if __tmp170838 + __tmp170838 (error '"Missing method" - 'bind-core-syntax-expanders!))))))) - (let ((_opt-lambda166695166700_ - (lambda (_self166697_ _bind?166698_) - (if (##fx< '2 (##structure-length _self166697_)) + 'bind-core-macro-expanders!)))))) + (__bind-core-features!170836 + (make-promise + (lambda () + (let ((__tmp170839 + (direct-method-ref __t170833 'bind-core-features!))) + (if __tmp170839 + __tmp170839 + (error '"Missing method" 'bind-core-features!))))))) + (let ((_opt-lambda166625166630_ + (lambda (_self166627_ _bind?166628_) + (if (##fx< '2 (##structure-length _self166627_)) (begin (##unchecked-structure-set! - _self166697_ + _self166627_ 'root '1 - (##structure-type _self166697_) + (##structure-type _self166627_) '#f) (##unchecked-structure-set! - _self166697_ + _self166627_ (make-table 'test: eq?) '2 - (##structure-type _self166697_) + (##structure-type _self166627_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self166697_ + _self166627_ '2 - (##vector-length _self166697_))) - (if _bind?166698_ + (##vector-length _self166627_))) + (if _bind?166628_ (begin - ((force __bind-core-syntax-expanders!170906) - _self166697_) - ((force __bind-core-macro-expanders!170904) - _self166697_) - ((force __bind-core-features!170905) _self166697_)) + ((force __bind-core-syntax-expanders!170834) + _self166627_) + ((force __bind-core-macro-expanders!170835) + _self166627_) + ((force __bind-core-features!170836) _self166627_)) '#!void)))) - (lambda _g170949_ - (let ((_g170948_ (##length _g170949_))) - (cond ((##fx= _g170948_ 1) - (apply (lambda (_self166703_) - (let ((_bind?166705_ '#t)) - (_opt-lambda166695166700_ - _self166703_ - _bind?166705_))) - _g170949_)) - ((##fx= _g170948_ 2) - (apply (lambda (_self166707_ _bind?166708_) - (_opt-lambda166695166700_ - _self166707_ - _bind?166708_)) - _g170949_)) + (lambda _g170879_ + (let ((_g170878_ (##length _g170879_))) + (cond ((##fx= _g170878_ 1) + (apply (lambda (_self166633_) + (let ((_bind?166635_ '#t)) + (_opt-lambda166625166630_ + _self166633_ + _bind?166635_))) + _g170879_)) + ((##fx= _g170878_ 2) + (apply (lambda (_self166637_ _bind?166638_) + (_opt-lambda166625166630_ + _self166637_ + _bind?166638_)) + _g170879_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g170949_))))))))) + _g170879_))))))))) (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 (_self166553_ _super166554_) - (let ((_super166562_ - (let ((_$e166556_ _super166554_)) - (if _$e166556_ - _$e166556_ - (let ((_$e166559_ (gx#core-context-root__0))) - (if _$e166559_ - _$e166559_ - (let ((__obj170945 - (make-object* gx#root-context::t '3))) - (gx#root-context:::init! __obj170945) - __obj170945))))))) - (if (##fx< '5 (##structure-length _self166553_)) + (lambda (_self166483_ _super166484_) + (let ((_super166492_ + (let ((_$e166486_ _super166484_)) + (if _$e166486_ + _$e166486_ + (let ((_$e166489_ (gx#core-context-root__0))) + (if _$e166489_ + _$e166489_ + (let ((__obj170875 + (make-object gx#root-context::t '3))) + (gx#root-context:::init! __obj170875) + __obj170875))))))) + (if (##fx< '5 (##structure-length _self166483_)) (begin (##unchecked-structure-set! - _self166553_ + _self166483_ 'top '1 - (##structure-type _self166553_) + (##structure-type _self166483_) '#f) (##unchecked-structure-set! - _self166553_ + _self166483_ (make-table 'test: eq?) '2 - (##structure-type _self166553_) + (##structure-type _self166483_) '#f) (##unchecked-structure-set! - _self166553_ - _super166562_ + _self166483_ + _super166492_ '3 - (##structure-type _self166553_) + (##structure-type _self166483_) '#f) (##unchecked-structure-set! - _self166553_ + _self166483_ '#f '4 - (##structure-type _self166553_) + (##structure-type _self166483_) '#f) (##unchecked-structure-set! - _self166553_ + _self166483_ '#f '5 - (##structure-type _self166553_) + (##structure-type _self166483_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self166553_ + _self166483_ '5 - (##vector-length _self166553_)))))) + (##vector-length _self166483_)))))) (define gx#top-context:::init!__0 - (lambda (_self166567_) - (let ((_super166569_ '#f)) - (gx#top-context:::init!__% _self166567_ _super166569_)))) + (lambda (_self166497_) + (let ((_super166499_ '#f)) + (gx#top-context:::init!__% _self166497_ _super166499_)))) (define gx#top-context:::init! - (lambda _g170951_ - (let ((_g170950_ (##length _g170951_))) - (cond ((##fx= _g170950_ 1) - (apply (lambda (_self166567_) - (gx#top-context:::init!__0 _self166567_)) - _g170951_)) - ((##fx= _g170950_ 2) - (apply (lambda (_self166571_ _super166572_) + (lambda _g170881_ + (let ((_g170880_ (##length _g170881_))) + (cond ((##fx= _g170880_ 1) + (apply (lambda (_self166497_) + (gx#top-context:::init!__0 _self166497_)) + _g170881_)) + ((##fx= _g170880_ 2) + (apply (lambda (_self166501_ _super166502_) (gx#top-context:::init!__% - _self166571_ - _super166572_)) - _g170951_)) + _self166501_ + _super166502_)) + _g170881_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g170951_)))))) + _g170881_)))))) (bind-method! gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_self166284_ _bindings166285_) + (lambda (_self166214_ _bindings166215_) (for-each - (lambda (_bind166287_) - (let* ((_bind166288166295_ _bind166287_) - (_E166290166299_ + (lambda (_bind166217_) + (let* ((_bind166218166225_ _bind166217_) + (_E166220166229_ (lambda () - (error '"No clause matching" _bind166288166295_))) - (_K166291166408_ - (lambda (_rest166302_ _id166303_) + (error '"No clause matching" _bind166218166225_))) + (_K166221166338_ + (lambda (_rest166232_ _id166233_) (gx#core-context-put! - _self166284_ - _id166303_ + _self166214_ + _id166233_ (##structure gx#syntax-binding::t - _id166303_ - _id166303_ + _id166233_ + _id166233_ '#f - (let* ((_rest166304166315_ _rest166302_) - (_E166306166319_ + (let* ((_rest166234166245_ _rest166232_) + (_E166236166249_ (lambda () (error '"No clause matching" - _rest166304166315_))) - (_K166307166384_ - (lambda (_compiler166322_ - _expander166323_ - _key166324_) - ((let* ((_key166325166338_ _key166324_) - (_E166331166342_ + _rest166234166245_))) + (_K166237166314_ + (lambda (_compiler166252_ + _expander166253_ + _key166254_) + ((let* ((_key166255166268_ _key166254_) + (_E166261166272_ (lambda () (error '"No clause matching" - _key166325166338_)))) - (let ((_K166336166378_ + _key166255166268_)))) + (let ((_K166266166308_ (lambda () gx#make-top-special-form)) - (_K166335166371_ + (_K166265166301_ (lambda () gx#make-module-special-form)) - (_K166334166363_ + (_K166264166293_ (lambda () gx#make-definition-form)) - (_K166333166355_ + (_K166263166285_ (lambda () gx#make-special-form)) - (_K166332166347_ + (_K166262166277_ (lambda () gx#make-expression-form))) - (let* ((_try-match166330166350_ + (let* ((_try-match166260166280_ (lambda () - (if (##eq? _key166325166338_ + (if (##eq? _key166255166268_ 'expr:) - (_K166332166347_) - (_E166331166342_)))) - (_try-match166329166358_ + (_K166262166277_) + (_E166261166272_)))) + (_try-match166259166288_ (lambda () - (if (##eq? _key166325166338_ + (if (##eq? _key166255166268_ 'special:) - (_K166333166355_) - (_try-match166330166350_)))) - (_try-match166328166366_ + (_K166263166285_) + (_try-match166260166280_)))) + (_try-match166258166296_ (lambda () - (if (##eq? _key166325166338_ + (if (##eq? _key166255166268_ 'define:) - (_K166334166363_) - (_try-match166329166358_)))) - (_try-match166327166374_ + (_K166264166293_) + (_try-match166259166288_)))) + (_try-match166257166304_ (lambda () - (if (##eq? _key166325166338_ + (if (##eq? _key166255166268_ 'module:) - (_K166335166371_) - (_try-match166328166366_))))) - (if (##eq? _key166325166338_ 'top:) - (_K166336166378_) - (_try-match166327166374_))))) - _expander166323_ - _id166303_ - (let ((_$e166381_ _compiler166322_)) - (if _$e166381_ - _$e166381_ + (_K166265166301_) + (_try-match166258166296_))))) + (if (##eq? _key166255166268_ 'top:) + (_K166266166308_) + (_try-match166257166304_))))) + _expander166253_ + _id166233_ + (let ((_$e166311_ _compiler166252_)) + (if _$e166311_ + _$e166311_ gx#core-compile-top-error)))))) - (if (##pair? _rest166304166315_) - (let ((_hd166308166387_ - (##car _rest166304166315_)) - (_tl166309166389_ - (##cdr _rest166304166315_))) - (let ((_key166392_ _hd166308166387_)) - (if (##pair? _tl166309166389_) - (let ((_hd166310166394_ - (##car _tl166309166389_)) - (_tl166311166396_ - (##cdr _tl166309166389_))) - (let ((_expander166399_ - _hd166310166394_)) - (if (##pair? _tl166311166396_) - (let ((_hd166312166401_ - (##car _tl166311166396_)) - (_tl166313166403_ - (##cdr _tl166311166396_))) - (let ((_compiler166406_ - _hd166312166401_)) - (if (##null? _tl166313166403_) - (_K166307166384_ - _compiler166406_ - _expander166399_ - _key166392_) - (_E166306166319_)))) - (_E166306166319_)))) - (_E166306166319_)))) - (_E166306166319_)))))))) - (if (##pair? _bind166288166295_) - (let ((_hd166292166411_ (##car _bind166288166295_)) - (_tl166293166413_ (##cdr _bind166288166295_))) - (let* ((_id166416_ _hd166292166411_) - (_rest166418_ _tl166293166413_)) - (_K166291166408_ _rest166418_ _id166416_))) - (_E166290166299_)))) - _bindings166285_))) + (if (##pair? _rest166234166245_) + (let ((_hd166238166317_ + (##car _rest166234166245_)) + (_tl166239166319_ + (##cdr _rest166234166245_))) + (let ((_key166322_ _hd166238166317_)) + (if (##pair? _tl166239166319_) + (let ((_hd166240166324_ + (##car _tl166239166319_)) + (_tl166241166326_ + (##cdr _tl166239166319_))) + (let ((_expander166329_ + _hd166240166324_)) + (if (##pair? _tl166241166326_) + (let ((_hd166242166331_ + (##car _tl166241166326_)) + (_tl166243166333_ + (##cdr _tl166241166326_))) + (let ((_compiler166336_ + _hd166242166331_)) + (if (##null? _tl166243166333_) + (_K166237166314_ + _compiler166336_ + _expander166329_ + _key166322_) + (_E166236166249_)))) + (_E166236166249_)))) + (_E166236166249_)))) + (_E166236166249_)))))))) + (if (##pair? _bind166218166225_) + (let ((_hd166222166341_ (##car _bind166218166225_)) + (_tl166223166343_ (##cdr _bind166218166225_))) + (let* ((_id166346_ _hd166222166341_) + (_rest166348_ _tl166223166343_)) + (_K166221166338_ _rest166348_ _id166346_))) + (_E166220166229_)))) + _bindings166215_))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_self166423_) - (let ((_bindings166425_ gx#*core-syntax-expanders*)) + (lambda (_self166353_) + (let ((_bindings166355_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _self166423_ - _bindings166425_)))) + _self166353_ + _bindings166355_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g170953_ - (let ((_g170952_ (##length _g170953_))) - (cond ((##fx= _g170952_ 1) - (apply (lambda (_self166423_) + (lambda _g170883_ + (let ((_g170882_ (##length _g170883_))) + (cond ((##fx= _g170882_ 1) + (apply (lambda (_self166353_) (gx#expander-context::bind-core-syntax-expanders!__0 - _self166423_)) - _g170953_)) - ((##fx= _g170952_ 2) - (apply (lambda (_self166427_ _bindings166428_) + _self166353_)) + _g170883_)) + ((##fx= _g170882_ 2) + (apply (lambda (_self166357_ _bindings166358_) (gx#expander-context::bind-core-syntax-expanders!__% - _self166427_ - _bindings166428_)) - _g170953_)) + _self166357_ + _bindings166358_)) + _g170883_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g170953_)))))) + _g170883_)))))) (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 (_self166056_ _bindings166057_) + (lambda (_self165986_ _bindings165987_) (for-each - (lambda (_bind166059_) - (let* ((_bind166060166067_ _bind166059_) - (_E166062166071_ + (lambda (_bind165989_) + (let* ((_bind165990165997_ _bind165989_) + (_E165992166001_ (lambda () - (error '"No clause matching" _bind166060166067_))) - (_K166063166139_ - (lambda (_rest166074_ _id166075_) + (error '"No clause matching" _bind165990165997_))) + (_K165993166069_ + (lambda (_rest166004_ _id166005_) (gx#core-context-put! - _self166056_ - _id166075_ + _self165986_ + _id166005_ (##structure gx#syntax-binding::t - _id166075_ - _id166075_ + _id166005_ + _id166005_ '#f - (let* ((_rest166076166091_ _rest166074_) - (_E166080166095_ + (let* ((_rest166006166021_ _rest166004_) + (_E166010166025_ (lambda () (error '"No clause matching" - _rest166076166091_)))) - (let ((_K166085166124_ - (lambda (_core-id166122_) + _rest166006166021_)))) + (let ((_K166015166054_ + (lambda (_core-id166052_) (##structure gx#rename-macro-expander::t - _core-id166122_))) - (_K166082166109_ - (lambda (_proc166107_) + _core-id166052_))) + (_K166012166039_ + (lambda (_proc166037_) (##structure gx#macro-expander::t - _proc166107_))) - (_K166081166100_ + _proc166037_))) + (_K166011166030_ (lambda () (##structure gx#reserved-expander::t - _id166075_)))) - (let ((_try-match166079166103_ + _id166005_)))) + (let ((_try-match166009166033_ (lambda () - (if (##null? _rest166076166091_) - (_K166081166100_) - (_E166080166095_))))) - (if (##pair? _rest166076166091_) - (let ((_tl166087166129_ - (##cdr _rest166076166091_)) - (_hd166086166127_ - (##car _rest166076166091_))) - (if (##eq? _hd166086166127_ '=>) - (if (##pair? _tl166087166129_) - (let ((_tl166089166134_ - (##cdr _tl166087166129_)) - (_hd166088166132_ - (##car _tl166087166129_))) - (if (##null? _tl166089166134_) - (let ((_core-id166137_ - _hd166088166132_)) + (if (##null? _rest166006166021_) + (_K166011166030_) + (_E166010166025_))))) + (if (##pair? _rest166006166021_) + (let ((_tl166017166059_ + (##cdr _rest166006166021_)) + (_hd166016166057_ + (##car _rest166006166021_))) + (if (##eq? _hd166016166057_ '=>) + (if (##pair? _tl166017166059_) + (let ((_tl166019166064_ + (##cdr _tl166017166059_)) + (_hd166018166062_ + (##car _tl166017166059_))) + (if (##null? _tl166019166064_) + (let ((_core-id166067_ + _hd166018166062_)) (##structure gx#rename-macro-expander::t - _core-id166137_)) - (_E166080166095_))) - (if (##null? _tl166087166129_) - (let ((_proc166117_ - _hd166086166127_)) + _core-id166067_)) + (_E166010166025_))) + (if (##null? _tl166017166059_) + (let ((_proc166047_ + _hd166016166057_)) (##structure gx#macro-expander::t - _proc166117_)) - (_E166080166095_))) - (if (##null? _tl166087166129_) - (let ((_proc166117_ - _hd166086166127_)) + _proc166047_)) + (_E166010166025_))) + (if (##null? _tl166017166059_) + (let ((_proc166047_ + _hd166016166057_)) (##structure gx#macro-expander::t - _proc166117_)) - (_E166080166095_)))) - (_try-match166079166103_)))))))))) - (if (##pair? _bind166060166067_) - (let ((_hd166064166142_ (##car _bind166060166067_)) - (_tl166065166144_ (##cdr _bind166060166067_))) - (let* ((_id166147_ _hd166064166142_) - (_rest166149_ _tl166065166144_)) - (_K166063166139_ _rest166149_ _id166147_))) - (_E166062166071_)))) - _bindings166057_))) + _proc166047_)) + (_E166010166025_)))) + (_try-match166009166033_)))))))))) + (if (##pair? _bind165990165997_) + (let ((_hd165994166072_ (##car _bind165990165997_)) + (_tl165995166074_ (##cdr _bind165990165997_))) + (let* ((_id166077_ _hd165994166072_) + (_rest166079_ _tl165995166074_)) + (_K165993166069_ _rest166079_ _id166077_))) + (_E165992166001_)))) + _bindings165987_))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_self166154_) - (let ((_bindings166156_ gx#*core-macro-expanders*)) + (lambda (_self166084_) + (let ((_bindings166086_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _self166154_ - _bindings166156_)))) + _self166084_ + _bindings166086_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g170955_ - (let ((_g170954_ (##length _g170955_))) - (cond ((##fx= _g170954_ 1) - (apply (lambda (_self166154_) + (lambda _g170885_ + (let ((_g170884_ (##length _g170885_))) + (cond ((##fx= _g170884_ 1) + (apply (lambda (_self166084_) (gx#expander-context::bind-core-macro-expanders!__0 - _self166154_)) - _g170955_)) - ((##fx= _g170954_ 2) - (apply (lambda (_self166158_ _bindings166159_) + _self166084_)) + _g170885_)) + ((##fx= _g170884_ 2) + (apply (lambda (_self166088_ _bindings166089_) (gx#expander-context::bind-core-macro-expanders!__% - _self166158_ - _bindings166159_)) - _g170955_)) + _self166088_ + _bindings166089_)) + _g170885_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g170955_)))))) + _g170885_)))))) (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 (_self165800_) - (letrec ((_linux-variant?165802_ - (lambda (_sys-type165901_) - (let* ((_g165902165910_ + (lambda (_self165730_) + (letrec ((_linux-variant?165732_ + (lambda (_sys-type165831_) + (let* ((_g165832165840_ (string-split - (symbol->string _sys-type165901_) + (symbol->string _sys-type165831_) '#\-)) - (_else165904165918_ (lambda () '#f)) - (_K165906165923_ - (lambda (_rest165921_) - (not (null? _rest165921_))))) - (if (##pair? _g165902165910_) - (let ((_hd165907165926_ (##car _g165902165910_)) - (_tl165908165928_ (##cdr _g165902165910_))) - (if (equal? _hd165907165926_ '"linux") - (let ((_rest165931_ _tl165908165928_)) - (_K165906165923_ _rest165931_)) - (_else165904165918_))) - (_else165904165918_))))) - (_bsd-variant165803_ - (lambda (_sys-type165860_) - (let ((_sys-type-str165862_ - (symbol->string _sys-type165860_))) - (let _lp165864_ ((_rest165866_ + (_else165834165848_ (lambda () '#f)) + (_K165836165853_ + (lambda (_rest165851_) + (not (null? _rest165851_))))) + (if (##pair? _g165832165840_) + (let ((_hd165837165856_ (##car _g165832165840_)) + (_tl165838165858_ (##cdr _g165832165840_))) + (if (equal? _hd165837165856_ '"linux") + (let ((_rest165861_ _tl165838165858_)) + (_K165836165853_ _rest165861_)) + (_else165834165848_))) + (_else165834165848_))))) + (_bsd-variant165733_ + (lambda (_sys-type165790_) + (let ((_sys-type-str165792_ + (symbol->string _sys-type165790_))) + (let _lp165794_ ((_rest165796_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_rest165867165875_ _rest165866_) - (_else165869165883_ (lambda () '#f)) - (_K165871165889_ - (lambda (_rest165886_ _sys165887_) + (let* ((_rest165797165805_ _rest165796_) + (_else165799165813_ (lambda () '#f)) + (_K165801165819_ + (lambda (_rest165816_ _sys165817_) (if (string-prefix? - _sys165887_ - _sys-type-str165862_) - _sys165887_ - (_lp165864_ _rest165886_))))) - (if (##pair? _rest165867165875_) - (let ((_hd165872165892_ - (##car _rest165867165875_)) - (_tl165873165894_ - (##cdr _rest165867165875_))) - (let* ((_sys165897_ _hd165872165892_) - (_rest165899_ _tl165873165894_)) - (_K165871165889_ _rest165899_ _sys165897_))) - (_else165869165883_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _self165800_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self165800_) - (let* ((_g165804165816_ (system-type)) - (_else165806165824_ (lambda () '#!void)) - (_K165808165836_ - (lambda (_sys-type165827_ _sys-vendor165828_ _sys-cpu165829_) + _sys165817_ + _sys-type-str165792_) + _sys165817_ + (_lp165794_ _rest165816_))))) + (if (##pair? _rest165797165805_) + (let ((_hd165802165822_ + (##car _rest165797165805_)) + (_tl165803165824_ + (##cdr _rest165797165805_))) + (let* ((_sys165827_ _hd165802165822_) + (_rest165829_ _tl165803165824_)) + (_K165801165819_ _rest165829_ _sys165827_))) + (_else165799165813_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _self165730_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self165730_) + (let* ((_g165734165746_ (system-type)) + (_else165736165754_ (lambda () '#!void)) + (_K165738165766_ + (lambda (_sys-type165757_ _sys-vendor165758_ _sys-cpu165759_) (gx#core-bind-feature!__% - _sys-cpu165829_ + _sys-cpu165759_ '#f '0 - _self165800_) + _self165730_) (gx#core-bind-feature!__% - _sys-type165827_ + _sys-type165757_ '#f '0 - _self165800_) - (if (_linux-variant?165802_ _sys-type165827_) + _self165730_) + (if (_linux-variant?165732_ _sys-type165757_) (gx#core-bind-feature!__% (string->symbol '"linux") '#f '0 - _self165800_) - (let ((_$e165831_ - (_bsd-variant165803_ _sys-type165827_))) - (if _$e165831_ - ((lambda (_sys-prefix165834_) + _self165730_) + (let ((_$e165761_ + (_bsd-variant165733_ _sys-type165757_))) + (if _$e165761_ + ((lambda (_sys-prefix165764_) (gx#core-bind-feature!__% (string->symbol '"bsd") '#f '0 - _self165800_) + _self165730_) (gx#core-bind-feature!__% - (string->symbol _sys-prefix165834_) + (string->symbol _sys-prefix165764_) '#f '0 - _self165800_)) - _$e165831_) + _self165730_)) + _$e165761_) '#!void)))))) - (if (##pair? _g165804165816_) - (let ((_hd165809165839_ (##car _g165804165816_)) - (_tl165810165841_ (##cdr _g165804165816_))) - (let ((_sys-cpu165844_ _hd165809165839_)) - (if (##pair? _tl165810165841_) - (let ((_hd165811165846_ (##car _tl165810165841_)) - (_tl165812165848_ (##cdr _tl165810165841_))) - (let ((_sys-vendor165851_ _hd165811165846_)) - (if (##pair? _tl165812165848_) - (let ((_hd165813165853_ - (##car _tl165812165848_)) - (_tl165814165855_ - (##cdr _tl165812165848_))) - (let ((_sys-type165858_ _hd165813165853_)) - (if (##null? _tl165814165855_) - (_K165808165836_ - _sys-type165858_ - _sys-vendor165851_ - _sys-cpu165844_) + (if (##pair? _g165734165746_) + (let ((_hd165739165769_ (##car _g165734165746_)) + (_tl165740165771_ (##cdr _g165734165746_))) + (let ((_sys-cpu165774_ _hd165739165769_)) + (if (##pair? _tl165740165771_) + (let ((_hd165741165776_ (##car _tl165740165771_)) + (_tl165742165778_ (##cdr _tl165740165771_))) + (let ((_sys-vendor165781_ _hd165741165776_)) + (if (##pair? _tl165742165778_) + (let ((_hd165743165783_ + (##car _tl165742165778_)) + (_tl165744165785_ + (##cdr _tl165742165778_))) + (let ((_sys-type165788_ _hd165743165783_)) + (if (##null? _tl165744165785_) + (_K165738165766_ + _sys-type165788_ + _sys-vendor165781_ + _sys-cpu165774_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self165800_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self165730_) '#!void)))) (bind-method! gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/stx__0.scm b/src/bootstrap/gerbil/expander/stx__0.scm index 87c95ed46..d8a6b26c0 100644 --- a/src/bootstrap/gerbil/expander/stx__0.scm +++ b/src/bootstrap/gerbil/expander/stx__0.scm @@ -1,10 +1,10 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stx::timestamp 1707423040) + (define gerbil/expander/stx::timestamp 1707565659) (begin (declare (not safe)) (define gx#identifier-wrap::t - (make-struct-type* + (make-struct-type 'gx#identifier-wrap::t 'syntax gx#AST::t @@ -13,8 +13,8 @@ '#f)) (define gx#identifier-wrap? (make-struct-predicate gx#identifier-wrap::t)) (define gx#make-identifier-wrap - (lambda _$args131281_ - (apply make-struct-instance gx#identifier-wrap::t _$args131281_))) + (lambda _$args131211_ + (apply make-struct-instance gx#identifier-wrap::t _$args131211_))) (define gx#identifier-wrap-marks (make-struct-slot-accessor gx#identifier-wrap::t 'marks)) (define gx#identifier-wrap-e @@ -40,7 +40,7 @@ (define gx#&identifier-wrap-source-set! (make-struct-slot-unchecked-mutator gx#identifier-wrap::t 'source)) (define gx#syntax-wrap::t - (make-struct-type* + (make-struct-type 'gx#syntax-wrap::t 'syntax gx#AST::t @@ -49,8 +49,8 @@ '#f)) (define gx#syntax-wrap? (make-struct-predicate gx#syntax-wrap::t)) (define gx#make-syntax-wrap - (lambda _$args131278_ - (apply make-struct-instance gx#syntax-wrap::t _$args131278_))) + (lambda _$args131208_ + (apply make-struct-instance gx#syntax-wrap::t _$args131208_))) (define gx#syntax-wrap-mark (make-struct-slot-accessor gx#syntax-wrap::t 'mark)) (define gx#syntax-wrap-e (make-struct-slot-accessor gx#syntax-wrap::t 'e)) @@ -75,7 +75,7 @@ (define gx#&syntax-wrap-source-set! (make-struct-slot-unchecked-mutator gx#syntax-wrap::t 'source)) (define gx#syntax-quote::t - (make-struct-type* + (make-struct-type 'gx#syntax-quote::t 'syntax gx#AST::t @@ -84,8 +84,8 @@ '#f)) (define gx#syntax-quote? (make-struct-predicate gx#syntax-quote::t)) (define gx#make-syntax-quote - (lambda _$args131275_ - (apply make-struct-instance gx#syntax-quote::t _$args131275_))) + (lambda _$args131205_ + (apply make-struct-instance gx#syntax-quote::t _$args131205_))) (define gx#syntax-quote-context (make-struct-slot-accessor gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks @@ -119,1011 +119,1011 @@ (define gx#&syntax-quote-source-set! (make-struct-slot-unchecked-mutator gx#syntax-quote::t 'source)) (define gx#identifier? - (lambda (_stx131273_) (symbol? (gx#stx-e _stx131273_)))) + (lambda (_stx131203_) (symbol? (gx#stx-e _stx131203_)))) (define gx#identifier-quote? - (lambda (_stx131271_) - (if (##structure-direct-instance-of? _stx131271_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _stx131271_ '1 gx#AST::t '#f)) + (lambda (_stx131201_) + (if (##structure-direct-instance-of? _stx131201_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _stx131201_ '1 gx#AST::t '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_stx131269_) - (if (##structure-direct-instance-of? _stx131269_ 'gx#syntax-quote::t) + (lambda (_stx131199_) + (if (##structure-direct-instance-of? _stx131199_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _stx131269_ + _stx131199_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _stx131269_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx131199_ '1 gx#AST::t '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_stx131267_) - (if (##structure-direct-instance-of? _stx131267_ 'gx#syntax-quote::t) - _stx131267_ + (lambda (_stx131197_) + (if (##structure-direct-instance-of? _stx131197_ 'gx#syntax-quote::t) + _stx131197_ (if (##structure-direct-instance-of? - _stx131267_ + _stx131197_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _stx131267_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx131197_ '1 gx#AST::t '#f)) '#f)))) (define gx#syntax-e - (lambda (_stx131250_) - (if (##structure-direct-instance-of? _stx131250_ 'gx#syntax-wrap::t) - (let _lp131252_ ((_e131254_ + (lambda (_stx131180_) + (if (##structure-direct-instance-of? _stx131180_ 'gx#syntax-wrap::t) + (let _lp131182_ ((_e131184_ (##unchecked-structure-ref - _stx131250_ + _stx131180_ '1 gx#AST::t '#f)) - (_marks131255_ + (_marks131185_ (cons (##unchecked-structure-ref - _stx131250_ + _stx131180_ '3 gx#syntax-wrap::t '#f) '()))) - (if (##structure? _e131254_) - (let ((_$e131257_ (##type-id (##structure-type _e131254_)))) - (if (eq? 'gx#syntax-wrap::t _$e131257_) - (_lp131252_ - (##unchecked-structure-ref _e131254_ '1 gx#AST::t '#f) + (if (##structure? _e131184_) + (let ((_$e131187_ (##type-id (##structure-type _e131184_)))) + (if (eq? 'gx#syntax-wrap::t _$e131187_) + (_lp131182_ + (##unchecked-structure-ref _e131184_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e131254_ + _e131184_ '3 gx#syntax-wrap::t '#f) - _marks131255_)) - (if (or (eq? 'gx#syntax-quote::t _$e131257_) - (eq? 'gx#identifier-wrap::t _$e131257_)) + _marks131185_)) + (if (or (eq? 'gx#syntax-quote::t _$e131187_) + (eq? 'gx#identifier-wrap::t _$e131187_)) (##unchecked-structure-ref - _e131254_ + _e131184_ '1 gx#AST::t '#f) - (if (eq? 'gerbil#AST::t _$e131257_) - (_lp131252_ + (if (eq? 'gerbil#AST::t _$e131187_) + (_lp131182_ (##unchecked-structure-ref - _e131254_ + _e131184_ '1 gx#AST::t '#f) - _marks131255_) - _e131254_)))) - (if (null? _marks131255_) - _e131254_ - (if (pair? _e131254_) - (cons (gx#stx-wrap (car _e131254_) _marks131255_) - (gx#stx-wrap (cdr _e131254_) _marks131255_)) - (if (vector? _e131254_) + _marks131185_) + _e131184_)))) + (if (null? _marks131185_) + _e131184_ + (if (pair? _e131184_) + (cons (gx#stx-wrap (car _e131184_) _marks131185_) + (gx#stx-wrap (cdr _e131184_) _marks131185_)) + (if (vector? _e131184_) (vector-map - (lambda (_g131262131264_) - (gx#stx-wrap _g131262131264_ _marks131255_)) - _e131254_) - (if (box? _e131254_) + (lambda (_g131192131194_) + (gx#stx-wrap _g131192131194_ _marks131185_)) + _e131184_) + (if (box? _e131184_) (box (gx#stx-wrap - (unbox _e131254_) - _marks131255_)) - _e131254_)))))) - (if (##structure-instance-of? _stx131250_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx131250_ '1 gx#AST::t '#f) - _stx131250_)))) + (unbox _e131184_) + _marks131185_)) + _e131184_)))))) + (if (##structure-instance-of? _stx131180_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx131180_ '1 gx#AST::t '#f) + _stx131180_)))) (define gx#syntax->datum - (lambda (_stx131248_) - (if (##structure-instance-of? _stx131248_ 'gerbil#AST::t) + (lambda (_stx131178_) + (if (##structure-instance-of? _stx131178_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _stx131248_ '1 gx#AST::t '#f)) - (if (pair? _stx131248_) - (cons (gx#syntax->datum (car _stx131248_)) - (gx#syntax->datum (cdr _stx131248_))) - (if (vector? _stx131248_) - (vector-map gx#syntax->datum _stx131248_) - (if (box? _stx131248_) - (box (gx#syntax->datum (unbox _stx131248_))) - _stx131248_)))))) + (##unchecked-structure-ref _stx131178_ '1 gx#AST::t '#f)) + (if (pair? _stx131178_) + (cons (gx#syntax->datum (car _stx131178_)) + (gx#syntax->datum (cdr _stx131178_))) + (if (vector? _stx131178_) + (vector-map gx#syntax->datum _stx131178_) + (if (box? _stx131178_) + (box (gx#syntax->datum (unbox _stx131178_))) + _stx131178_)))))) (define gx#datum->syntax__% - (lambda (_stx131191_ _datum131192_ _src131193_ _quote?131194_) - (letrec ((_wrap-datum131196_ - (lambda (_e131220_ _marks131221_) - (_wrap-inner131198_ - _e131220_ - (lambda (_g131222131224_) + (lambda (_stx131121_ _datum131122_ _src131123_ _quote?131124_) + (letrec ((_wrap-datum131126_ + (lambda (_e131150_ _marks131151_) + (_wrap-inner131128_ + _e131150_ + (lambda (_g131152131154_) (##structure gx#identifier-wrap::t - _g131222131224_ - _src131193_ - _marks131221_))))) - (_wrap-quote131197_ - (lambda (_e131212_ _ctx131213_ _marks131214_) - (_wrap-inner131198_ - _e131212_ - (lambda (_g131215131217_) + _g131152131154_ + _src131123_ + _marks131151_))))) + (_wrap-quote131127_ + (lambda (_e131142_ _ctx131143_ _marks131144_) + (_wrap-inner131128_ + _e131142_ + (lambda (_g131145131147_) (##structure gx#syntax-quote::t - _g131215131217_ - _src131193_ - _ctx131213_ - _marks131214_))))) - (_wrap-inner131198_ - (lambda (_e131205_ _wrap-e131206_) - (let _recur131208_ ((_e131210_ _e131205_)) - (if (symbol? _e131210_) - (_wrap-e131206_ _e131210_) - (if (pair? _e131210_) - (cons (_recur131208_ (car _e131210_)) - (_recur131208_ (cdr _e131210_))) - (if (vector? _e131210_) - (vector-map _recur131208_ _e131210_) - (if (box? _e131210_) - (box (_recur131208_ (unbox _e131210_))) - _e131210_))))))) - (_wrap-outer131199_ - (lambda (_e131203_) - (if (##structure-instance-of? _e131203_ 'gerbil#AST::t) - _e131203_ - (##structure gx#AST::t _e131203_ _src131193_))))) - (if (##structure-instance-of? _datum131192_ 'gerbil#AST::t) - _datum131192_ - (if (not _stx131191_) - (##structure gx#AST::t _datum131192_ _src131193_) - (if (gx#identifier? _stx131191_) - (let ((_stx131201_ (gx#stx-unwrap__0 _stx131191_))) - (_wrap-outer131199_ + _g131145131147_ + _src131123_ + _ctx131143_ + _marks131144_))))) + (_wrap-inner131128_ + (lambda (_e131135_ _wrap-e131136_) + (let _recur131138_ ((_e131140_ _e131135_)) + (if (symbol? _e131140_) + (_wrap-e131136_ _e131140_) + (if (pair? _e131140_) + (cons (_recur131138_ (car _e131140_)) + (_recur131138_ (cdr _e131140_))) + (if (vector? _e131140_) + (vector-map _recur131138_ _e131140_) + (if (box? _e131140_) + (box (_recur131138_ (unbox _e131140_))) + _e131140_))))))) + (_wrap-outer131129_ + (lambda (_e131133_) + (if (##structure-instance-of? _e131133_ 'gerbil#AST::t) + _e131133_ + (##structure gx#AST::t _e131133_ _src131123_))))) + (if (##structure-instance-of? _datum131122_ 'gerbil#AST::t) + _datum131122_ + (if (not _stx131121_) + (##structure gx#AST::t _datum131122_ _src131123_) + (if (gx#identifier? _stx131121_) + (let ((_stx131131_ (gx#stx-unwrap__0 _stx131121_))) + (_wrap-outer131129_ (if (##structure-direct-instance-of? - _stx131201_ + _stx131131_ 'gx#syntax-quote::t) - (if _quote?131194_ - (_wrap-quote131197_ - _datum131192_ + (if _quote?131124_ + (_wrap-quote131127_ + _datum131122_ (##unchecked-structure-ref - _stx131201_ + _stx131131_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _stx131201_ + _stx131131_ '4 gx#syntax-quote::t '#f)) - (_wrap-datum131196_ - _datum131192_ + (_wrap-datum131126_ + _datum131122_ (##unchecked-structure-ref - _stx131201_ + _stx131131_ '4 gx#syntax-quote::t '#f))) - (_wrap-datum131196_ - _datum131192_ + (_wrap-datum131126_ + _datum131122_ (##unchecked-structure-ref - _stx131201_ + _stx131131_ '3 gx#identifier-wrap::t '#f))))) (error '"Bad template syntax; expected identifier" - _stx131191_))))))) + _stx131121_))))))) (define gx#datum->syntax__0 - (lambda (_stx131230_ _datum131231_) - (let* ((_src131233_ '#f) (_quote?131235_ '#t)) + (lambda (_stx131160_ _datum131161_) + (let* ((_src131163_ '#f) (_quote?131165_ '#t)) (gx#datum->syntax__% - _stx131230_ - _datum131231_ - _src131233_ - _quote?131235_)))) + _stx131160_ + _datum131161_ + _src131163_ + _quote?131165_)))) (define gx#datum->syntax__1 - (lambda (_stx131237_ _datum131238_ _src131239_) - (let ((_quote?131241_ '#t)) + (lambda (_stx131167_ _datum131168_ _src131169_) + (let ((_quote?131171_ '#t)) (gx#datum->syntax__% - _stx131237_ - _datum131238_ - _src131239_ - _quote?131241_)))) + _stx131167_ + _datum131168_ + _src131169_ + _quote?131171_)))) (define gx#datum->syntax - (lambda _g135556_ - (let ((_g135555_ (##length _g135556_))) - (cond ((##fx= _g135555_ 2) - (apply (lambda (_stx131230_ _datum131231_) - (gx#datum->syntax__0 _stx131230_ _datum131231_)) - _g135556_)) - ((##fx= _g135555_ 3) - (apply (lambda (_stx131237_ _datum131238_ _src131239_) + (lambda _g135486_ + (let ((_g135485_ (##length _g135486_))) + (cond ((##fx= _g135485_ 2) + (apply (lambda (_stx131160_ _datum131161_) + (gx#datum->syntax__0 _stx131160_ _datum131161_)) + _g135486_)) + ((##fx= _g135485_ 3) + (apply (lambda (_stx131167_ _datum131168_ _src131169_) (gx#datum->syntax__1 - _stx131237_ - _datum131238_ - _src131239_)) - _g135556_)) - ((##fx= _g135555_ 4) - (apply (lambda (_stx131243_ - _datum131244_ - _src131245_ - _quote?131246_) + _stx131167_ + _datum131168_ + _src131169_)) + _g135486_)) + ((##fx= _g135485_ 4) + (apply (lambda (_stx131173_ + _datum131174_ + _src131175_ + _quote?131176_) (gx#datum->syntax__% - _stx131243_ - _datum131244_ - _src131245_ - _quote?131246_)) - _g135556_)) + _stx131173_ + _datum131174_ + _src131175_ + _quote?131176_)) + _g135486_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g135556_)))))) + _g135486_)))))) (define gx#stx-unwrap__% - (lambda (_stx131167_ _marks131168_) - (let _lp131170_ ((_e131172_ _stx131167_) - (_marks131173_ _marks131168_) - (_src131174_ (gx#stx-source _stx131167_))) - (if (##structure-direct-instance-of? _e131172_ 'gx#syntax-wrap::t) - (_lp131170_ - (##unchecked-structure-ref _e131172_ '1 gx#AST::t '#f) + (lambda (_stx131097_ _marks131098_) + (let _lp131100_ ((_e131102_ _stx131097_) + (_marks131103_ _marks131098_) + (_src131104_ (gx#stx-source _stx131097_))) + (if (##structure-direct-instance-of? _e131102_ 'gx#syntax-wrap::t) + (_lp131100_ + (##unchecked-structure-ref _e131102_ '1 gx#AST::t '#f) (gx#apply-mark - (##unchecked-structure-ref _e131172_ '3 gx#syntax-wrap::t '#f) - _marks131173_) - (##unchecked-structure-ref _e131172_ '2 gx#AST::t '#f)) + (##unchecked-structure-ref _e131102_ '3 gx#syntax-wrap::t '#f) + _marks131103_) + (##unchecked-structure-ref _e131102_ '2 gx#AST::t '#f)) (if (##structure-direct-instance-of? - _e131172_ + _e131102_ 'gx#identifier-wrap::t) - (if (null? _marks131173_) - _e131172_ + (if (null? _marks131103_) + _e131102_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _e131172_ '1 gx#AST::t '#f) - (##unchecked-structure-ref _e131172_ '2 gx#AST::t '#f) + (##unchecked-structure-ref _e131102_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _e131102_ '2 gx#AST::t '#f) (foldl1 gx#apply-mark (##unchecked-structure-ref - _e131172_ + _e131102_ '3 gx#identifier-wrap::t '#f) - _marks131173_))) + _marks131103_))) (if (##structure-direct-instance-of? - _e131172_ + _e131102_ 'gx#syntax-quote::t) - _e131172_ - (if (##structure-instance-of? _e131172_ 'gerbil#AST::t) - (_lp131170_ + _e131102_ + (if (##structure-instance-of? _e131102_ 'gerbil#AST::t) + (_lp131100_ (##unchecked-structure-ref - _e131172_ + _e131102_ '1 gx#AST::t '#f) - _marks131173_ + _marks131103_ (##unchecked-structure-ref - _e131172_ + _e131102_ '2 gx#AST::t '#f)) - (if (symbol? _e131172_) + (if (symbol? _e131102_) (##structure gx#identifier-wrap::t - _e131172_ - _src131174_ - (reverse _marks131173_)) - (if (null? _marks131173_) - _e131172_ - (if (pair? _e131172_) + _e131102_ + _src131104_ + (reverse _marks131103_)) + (if (null? _marks131103_) + _e131102_ + (if (pair? _e131102_) (cons (gx#stx-wrap - (car _e131172_) - _marks131173_) + (car _e131102_) + _marks131103_) (gx#stx-wrap - (cdr _e131172_) - _marks131173_)) - (if (vector? _e131172_) + (cdr _e131102_) + _marks131103_)) + (if (vector? _e131102_) (vector-map - (lambda (_g131175131177_) + (lambda (_g131105131107_) (gx#stx-wrap - _g131175131177_ - _marks131173_)) - _e131172_) - (if (box? _e131172_) + _g131105131107_ + _marks131103_)) + _e131102_) + (if (box? _e131102_) (box (gx#stx-wrap - (unbox _e131172_) - _marks131173_)) - _e131172_)))))))))))) + (unbox _e131102_) + _marks131103_)) + _e131102_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_stx131183_) - (let ((_marks131185_ '())) - (gx#stx-unwrap__% _stx131183_ _marks131185_)))) + (lambda (_stx131113_) + (let ((_marks131115_ '())) + (gx#stx-unwrap__% _stx131113_ _marks131115_)))) (define gx#stx-unwrap - (lambda _g135558_ - (let ((_g135557_ (##length _g135558_))) - (cond ((##fx= _g135557_ 1) - (apply (lambda (_stx131183_) (gx#stx-unwrap__0 _stx131183_)) - _g135558_)) - ((##fx= _g135557_ 2) - (apply (lambda (_stx131187_ _marks131188_) - (gx#stx-unwrap__% _stx131187_ _marks131188_)) - _g135558_)) + (lambda _g135488_ + (let ((_g135487_ (##length _g135488_))) + (cond ((##fx= _g135487_ 1) + (apply (lambda (_stx131113_) (gx#stx-unwrap__0 _stx131113_)) + _g135488_)) + ((##fx= _g135487_ 2) + (apply (lambda (_stx131117_ _marks131118_) + (gx#stx-unwrap__% _stx131117_ _marks131118_)) + _g135488_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g135558_)))))) + _g135488_)))))) (define gx#stx-wrap - (lambda (_stx131160_ _marks131161_) - (foldl1 (lambda (_mark131163_ _stx131164_) - (gx#stx-apply-mark _stx131164_ _mark131163_)) - _stx131160_ - _marks131161_))) + (lambda (_stx131090_ _marks131091_) + (foldl1 (lambda (_mark131093_ _stx131094_) + (gx#stx-apply-mark _stx131094_ _mark131093_)) + _stx131090_ + _marks131091_))) (define gx#stx-rewrap - (lambda (_stx131154_ _marks131155_) - (foldr1 (lambda (_mark131157_ _stx131158_) - (gx#stx-apply-mark _stx131158_ _mark131157_)) - _stx131154_ - _marks131155_))) + (lambda (_stx131084_ _marks131085_) + (foldr1 (lambda (_mark131087_ _stx131088_) + (gx#stx-apply-mark _stx131088_ _mark131087_)) + _stx131084_ + _marks131085_))) (define gx#stx-apply-mark - (lambda (_stx131151_ _mark131152_) - (if (##structure-direct-instance-of? _stx131151_ 'gx#syntax-quote::t) - _stx131151_ + (lambda (_stx131081_ _mark131082_) + (if (##structure-direct-instance-of? _stx131081_ 'gx#syntax-quote::t) + _stx131081_ (if (and (##structure-direct-instance-of? - _stx131151_ + _stx131081_ 'gx#syntax-wrap::t) - (eq? _mark131152_ + (eq? _mark131082_ (##unchecked-structure-ref - _stx131151_ + _stx131081_ '3 gx#syntax-wrap::t '#f))) - (##unchecked-structure-ref _stx131151_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _stx131081_ '1 gx#AST::t '#f) (##structure gx#syntax-wrap::t - _stx131151_ - (gx#stx-source _stx131151_) - _mark131152_))))) + _stx131081_ + (gx#stx-source _stx131081_) + _mark131082_))))) (define gx#apply-mark - (lambda (_mark131115_ _marks131116_) - (let* ((_marks131117131125_ _marks131116_) - (_else131119131133_ - (lambda () (cons _mark131115_ _marks131116_))) - (_K131121131139_ - (lambda (_rest131136_ _hd131137_) - (if (eq? _mark131115_ _hd131137_) - _rest131136_ - (cons _mark131115_ _marks131116_))))) - (if (##pair? _marks131117131125_) - (let ((_hd131122131142_ (##car _marks131117131125_)) - (_tl131123131144_ (##cdr _marks131117131125_))) - (let* ((_hd131147_ _hd131122131142_) - (_rest131149_ _tl131123131144_)) - (_K131121131139_ _rest131149_ _hd131147_))) - (_else131119131133_))))) + (lambda (_mark131045_ _marks131046_) + (let* ((_marks131047131055_ _marks131046_) + (_else131049131063_ + (lambda () (cons _mark131045_ _marks131046_))) + (_K131051131069_ + (lambda (_rest131066_ _hd131067_) + (if (eq? _mark131045_ _hd131067_) + _rest131066_ + (cons _mark131045_ _marks131046_))))) + (if (##pair? _marks131047131055_) + (let ((_hd131052131072_ (##car _marks131047131055_)) + (_tl131053131074_ (##cdr _marks131047131055_))) + (let* ((_hd131077_ _hd131052131072_) + (_rest131079_ _tl131053131074_)) + (_K131051131069_ _rest131079_ _hd131077_))) + (_else131049131063_))))) (define gx#stx-e - (lambda (_stx131113_) - (if (##structure-direct-instance-of? _stx131113_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _stx131113_ '1 gx#AST::t '#f)) - (if (##structure-instance-of? _stx131113_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx131113_ '1 gx#AST::t '#f) - _stx131113_)))) + (lambda (_stx131043_) + (if (##structure-direct-instance-of? _stx131043_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _stx131043_ '1 gx#AST::t '#f)) + (if (##structure-instance-of? _stx131043_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx131043_ '1 gx#AST::t '#f) + _stx131043_)))) (define gx#stx-source - (lambda (_stx131111_) - (if (##structure-instance-of? _stx131111_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx131111_ '2 gx#AST::t '#f) + (lambda (_stx131041_) + (if (##structure-instance-of? _stx131041_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx131041_ '2 gx#AST::t '#f) '#f))) (define gx#stx-wrap-source - (lambda (_stx131105_ _src131106_) - (if (or (##structure-instance-of? _stx131105_ 'gerbil#AST::t) - (not _src131106_)) - _stx131105_ - (##structure gx#AST::t _stx131105_ _src131106_)))) + (lambda (_stx131035_ _src131036_) + (if (or (##structure-instance-of? _stx131035_ 'gerbil#AST::t) + (not _src131036_)) + _stx131035_ + (##structure gx#AST::t _stx131035_ _src131036_)))) (define gx#stx-datum? - (lambda (_stx131103_) (gx#self-quoting? (gx#stx-e _stx131103_)))) + (lambda (_stx131033_) (gx#self-quoting? (gx#stx-e _stx131033_)))) (define gx#self-quoting? - (lambda (_x131086_) - (let ((_$e131088_ (immediate? _x131086_))) - (if _$e131088_ - _$e131088_ - (let ((_$e131091_ (number? _x131086_))) - (if _$e131091_ - _$e131091_ - (let ((_$e131094_ (keyword? _x131086_))) - (if _$e131094_ - _$e131094_ - (let ((_$e131097_ (string? _x131086_))) - (if _$e131097_ - _$e131097_ - (let ((_$e131100_ (vector? _x131086_))) - (if _$e131100_ - _$e131100_ - (u8vector? _x131086_))))))))))))) + (lambda (_x131016_) + (let ((_$e131018_ (immediate? _x131016_))) + (if _$e131018_ + _$e131018_ + (let ((_$e131021_ (number? _x131016_))) + (if _$e131021_ + _$e131021_ + (let ((_$e131024_ (keyword? _x131016_))) + (if _$e131024_ + _$e131024_ + (let ((_$e131027_ (string? _x131016_))) + (if _$e131027_ + _$e131027_ + (let ((_$e131030_ (vector? _x131016_))) + (if _$e131030_ + _$e131030_ + (u8vector? _x131016_))))))))))))) (define gx#stx-boolean? - (lambda (_e131084_) (boolean? (gx#stx-e _e131084_)))) + (lambda (_e131014_) (boolean? (gx#stx-e _e131014_)))) (define gx#stx-keyword? - (lambda (_e131082_) (keyword? (gx#stx-e _e131082_)))) - (define gx#stx-char? (lambda (_e131080_) (char? (gx#stx-e _e131080_)))) - (define gx#stx-number? (lambda (_e131078_) (number? (gx#stx-e _e131078_)))) - (define gx#stx-fixnum? (lambda (_e131076_) (fixnum? (gx#stx-e _e131076_)))) - (define gx#stx-string? (lambda (_e131074_) (string? (gx#stx-e _e131074_)))) - (define gx#stx-null? (lambda (_e131072_) (null? (gx#stx-e _e131072_)))) - (define gx#stx-pair? (lambda (_e131070_) (pair? (gx#stx-e _e131070_)))) + (lambda (_e131012_) (keyword? (gx#stx-e _e131012_)))) + (define gx#stx-char? (lambda (_e131010_) (char? (gx#stx-e _e131010_)))) + (define gx#stx-number? (lambda (_e131008_) (number? (gx#stx-e _e131008_)))) + (define gx#stx-fixnum? (lambda (_e131006_) (fixnum? (gx#stx-e _e131006_)))) + (define gx#stx-string? (lambda (_e131004_) (string? (gx#stx-e _e131004_)))) + (define gx#stx-null? (lambda (_e131002_) (null? (gx#stx-e _e131002_)))) + (define gx#stx-pair? (lambda (_e131000_) (pair? (gx#stx-e _e131000_)))) (define gx#stx-list? - (lambda (_e131032_) - (let* ((_g131033131042_ (gx#stx-e _e131032_)) - (_E131036131046_ - (lambda () (error '"No clause matching" _g131033131042_)))) - (let ((_K131038131062_ - (lambda (_rest131060_) (gx#stx-list? _rest131060_))) - (_K131037131052_ (lambda (_tail131050_) (null? _tail131050_)))) - (if (##pair? _g131033131042_) - (let* ((_tl131040131065_ (##cdr _g131033131042_)) - (_rest131068_ _tl131040131065_)) - (gx#stx-list? _rest131068_)) - (let ((_tail131055_ _g131033131042_)) - (null? _tail131055_))))))) + (lambda (_e130962_) + (let* ((_g130963130972_ (gx#stx-e _e130962_)) + (_E130966130976_ + (lambda () (error '"No clause matching" _g130963130972_)))) + (let ((_K130968130992_ + (lambda (_rest130990_) (gx#stx-list? _rest130990_))) + (_K130967130982_ (lambda (_tail130980_) (null? _tail130980_)))) + (if (##pair? _g130963130972_) + (let* ((_tl130970130995_ (##cdr _g130963130972_)) + (_rest130998_ _tl130970130995_)) + (gx#stx-list? _rest130998_)) + (let ((_tail130985_ _g130963130972_)) + (null? _tail130985_))))))) (define gx#stx-pair/null? - (lambda (_e131025_) - (let* ((_e131027_ (gx#stx-e _e131025_)) (_$e131029_ (pair? _e131027_))) - (if _$e131029_ _$e131029_ (null? _e131027_))))) - (define gx#stx-vector? (lambda (_e131023_) (vector? (gx#stx-e _e131023_)))) - (define gx#stx-box? (lambda (_e131021_) (box? (gx#stx-e _e131021_)))) + (lambda (_e130955_) + (let* ((_e130957_ (gx#stx-e _e130955_)) (_$e130959_ (pair? _e130957_))) + (if _$e130959_ _$e130959_ (null? _e130957_))))) + (define gx#stx-vector? (lambda (_e130953_) (vector? (gx#stx-e _e130953_)))) + (define gx#stx-box? (lambda (_e130951_) (box? (gx#stx-e _e130951_)))) (define gx#stx-eq? - (lambda (_x131018_ _y131019_) - (eq? (gx#stx-e _x131018_) (gx#stx-e _y131019_)))) + (lambda (_x130948_ _y130949_) + (eq? (gx#stx-e _x130948_) (gx#stx-e _y130949_)))) (define gx#stx-eqv? - (lambda (_x131015_ _y131016_) - (eqv? (gx#stx-e _x131015_) (gx#stx-e _y131016_)))) + (lambda (_x130945_ _y130946_) + (eqv? (gx#stx-e _x130945_) (gx#stx-e _y130946_)))) (define gx#stx-equal? - (lambda (_x131012_ _y131013_) - (equal? (gx#stx-e _x131012_) (gx#stx-e _y131013_)))) - (define gx#stx-false? (lambda (_x131010_) (not (gx#stx-e _x131010_)))) + (lambda (_x130942_ _y130943_) + (equal? (gx#stx-e _x130942_) (gx#stx-e _y130943_)))) + (define gx#stx-false? (lambda (_x130940_) (not (gx#stx-e _x130940_)))) (define gx#stx-identifier - (lambda (_template131007_ . _args131008_) + (lambda (_template130937_ . _args130938_) (gx#datum->syntax__1 - _template131007_ - (apply make-symbol (gx#syntax->datum _args131008_)) - (gx#stx-source _template131007_)))) + _template130937_ + (apply make-symbol (gx#syntax->datum _args130938_)) + (gx#stx-source _template130937_)))) (define gx#stx-identifier-marks - (lambda (_stx131005_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx131005_)))) + (lambda (_stx130935_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx130935_)))) (define gx#stx-identifier-marks* - (lambda (_stx131003_) + (lambda (_stx130933_) (if (##structure-direct-instance-of? - _stx131003_ + _stx130933_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _stx131003_ + _stx130933_ '3 gx#identifier-wrap::t '#f) (if (##structure-direct-instance-of? - _stx131003_ + _stx130933_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _stx131003_ + _stx130933_ '4 gx#syntax-quote::t '#f) (error '"Bad wrap; expected unwrapped identifier" - _stx131003_))))) + _stx130933_))))) (define gx#stx-identifier-context - (lambda (_stx130999_) - (let ((_stx131001_ (gx#stx-unwrap__0 _stx130999_))) - (if (gx#identifier-quote? _stx131001_) - (##unchecked-structure-ref _stx131001_ '3 gx#syntax-quote::t '#f) + (lambda (_stx130929_) + (let ((_stx130931_ (gx#stx-unwrap__0 _stx130929_))) + (if (gx#identifier-quote? _stx130931_) + (##unchecked-structure-ref _stx130931_ '3 gx#syntax-quote::t '#f) '#f)))) (define gx#identifier-list? - (lambda (_stx130954_) - (let* ((_g130955130965_ (gx#stx-e _stx130954_)) - (_else130958130973_ (lambda () '#f))) - (let ((_K130961130987_ - (lambda (_rest130984_ _hd130985_) - (if (gx#identifier? _hd130985_) - (gx#identifier-list? _rest130984_) + (lambda (_stx130884_) + (let* ((_g130885130895_ (gx#stx-e _stx130884_)) + (_else130888130903_ (lambda () '#f))) + (let ((_K130891130917_ + (lambda (_rest130914_ _hd130915_) + (if (gx#identifier? _hd130915_) + (gx#identifier-list? _rest130914_) '#f))) - (_K130960130978_ (lambda () '#t))) - (let ((_try-match130957130981_ + (_K130890130908_ (lambda () '#t))) + (let ((_try-match130887130911_ (lambda () - (if (##null? _g130955130965_) - (_K130960130978_) - (_else130958130973_))))) - (if (##pair? _g130955130965_) - (let ((_tl130963130992_ (##cdr _g130955130965_)) - (_hd130962130990_ (##car _g130955130965_))) - (let ((_hd130995_ _hd130962130990_) - (_rest130997_ _tl130963130992_)) - (_K130961130987_ _rest130997_ _hd130995_))) - (_try-match130957130981_))))))) + (if (##null? _g130885130895_) + (_K130890130908_) + (_else130888130903_))))) + (if (##pair? _g130885130895_) + (let ((_tl130893130922_ (##cdr _g130885130895_)) + (_hd130892130920_ (##car _g130885130895_))) + (let ((_hd130925_ _hd130892130920_) + (_rest130927_ _tl130893130922_)) + (_K130891130917_ _rest130927_ _hd130925_))) + (_try-match130887130911_))))))) (define gx#genident__% - (lambda (_e130931_ _src130932_) + (lambda (_e130861_ _src130862_) (gx#stx-wrap-source - (gensym (let ((_e130934_ (gx#stx-e _e130931_))) - (if (interned-symbol? _e130934_) _e130934_ 'g))) - (let ((_$e130936_ (gx#stx-source _e130931_))) - (if _$e130936_ _$e130936_ _src130932_))))) + (gensym (let ((_e130864_ (gx#stx-e _e130861_))) + (if (interned-symbol? _e130864_) _e130864_ 'g))) + (let ((_$e130866_ (gx#stx-source _e130861_))) + (if _$e130866_ _$e130866_ _src130862_))))) (define gx#genident__0 (lambda () - (let* ((_e130943_ 'g) (_src130945_ '#f)) - (gx#genident__% _e130943_ _src130945_)))) + (let* ((_e130873_ 'g) (_src130875_ '#f)) + (gx#genident__% _e130873_ _src130875_)))) (define gx#genident__1 - (lambda (_e130947_) - (let ((_src130949_ '#f)) (gx#genident__% _e130947_ _src130949_)))) + (lambda (_e130877_) + (let ((_src130879_ '#f)) (gx#genident__% _e130877_ _src130879_)))) (define gx#genident - (lambda _g135560_ - (let ((_g135559_ (##length _g135560_))) - (cond ((##fx= _g135559_ 0) - (apply (lambda () (gx#genident__0)) _g135560_)) - ((##fx= _g135559_ 1) - (apply (lambda (_e130947_) (gx#genident__1 _e130947_)) - _g135560_)) - ((##fx= _g135559_ 2) - (apply (lambda (_e130951_ _src130952_) - (gx#genident__% _e130951_ _src130952_)) - _g135560_)) + (lambda _g135490_ + (let ((_g135489_ (##length _g135490_))) + (cond ((##fx= _g135489_ 0) + (apply (lambda () (gx#genident__0)) _g135490_)) + ((##fx= _g135489_ 1) + (apply (lambda (_e130877_) (gx#genident__1 _e130877_)) + _g135490_)) + ((##fx= _g135489_ 2) + (apply (lambda (_e130881_ _src130882_) + (gx#genident__% _e130881_ _src130882_)) + _g135490_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g135560_)))))) + _g135490_)))))) (define gx#gentemps - (lambda (_stx-lst130928_) (gx#stx-map1 gx#genident _stx-lst130928_))) + (lambda (_stx-lst130858_) (gx#stx-map1 gx#genident _stx-lst130858_))) (define gx#syntax->list - (lambda (_stx130926_) (gx#stx-map1 values _stx130926_))) + (lambda (_stx130856_) (gx#stx-map1 values _stx130856_))) (define gx#stx-car - (lambda (_stx130923_) + (lambda (_stx130853_) (declare (safe)) - (car (let () (declare (not safe)) (gx#syntax-e _stx130923_))))) + (car (let () (declare (not safe)) (gx#syntax-e _stx130853_))))) (define gx#stx-cdr - (lambda (_stx130920_) + (lambda (_stx130850_) (declare (safe)) - (cdr (let () (declare (not safe)) (gx#syntax-e _stx130920_))))) + (cdr (let () (declare (not safe)) (gx#syntax-e _stx130850_))))) (define gx#stx-length - (lambda (_stx130885_) - (let _lp130887_ ((_rest130889_ _stx130885_) (_n130890_ '0)) - (let* ((_g130891130899_ (gx#stx-e _rest130889_)) - (_else130893130907_ (lambda () _n130890_)) - (_K130895130912_ - (lambda (_rest130910_) - (_lp130887_ _rest130910_ (fx+ _n130890_ '1))))) - (if (##pair? _g130891130899_) - (let* ((_tl130897130915_ (##cdr _g130891130899_)) - (_rest130918_ _tl130897130915_)) - (_K130895130912_ _rest130918_)) - (_else130893130907_)))))) + (lambda (_stx130815_) + (let _lp130817_ ((_rest130819_ _stx130815_) (_n130820_ '0)) + (let* ((_g130821130829_ (gx#stx-e _rest130819_)) + (_else130823130837_ (lambda () _n130820_)) + (_K130825130842_ + (lambda (_rest130840_) + (_lp130817_ _rest130840_ (fx+ _n130820_ '1))))) + (if (##pair? _g130821130829_) + (let* ((_tl130827130845_ (##cdr _g130821130829_)) + (_rest130848_ _tl130827130845_)) + (_K130825130842_ _rest130848_)) + (_else130823130837_)))))) (define gx#stx-for-each - (lambda _g135562_ - (let ((_g135561_ (##length _g135562_))) - (cond ((##fx= _g135561_ 2) - (apply (lambda (_f130878_ _stx130879_) - (gx#stx-for-each1 _f130878_ _stx130879_)) - _g135562_)) - ((##fx= _g135561_ 3) - (apply (lambda (_f130881_ _xstx130882_ _ystx130883_) + (lambda _g135492_ + (let ((_g135491_ (##length _g135492_))) + (cond ((##fx= _g135491_ 2) + (apply (lambda (_f130808_ _stx130809_) + (gx#stx-for-each1 _f130808_ _stx130809_)) + _g135492_)) + ((##fx= _g135491_ 3) + (apply (lambda (_f130811_ _xstx130812_ _ystx130813_) (gx#stx-for-each2 - _f130881_ - _xstx130882_ - _ystx130883_)) - _g135562_)) + _f130811_ + _xstx130812_ + _ystx130813_)) + _g135492_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g135562_)))))) + _g135492_)))))) (define gx#stx-for-each1 - (lambda (_f130828_ _stx130829_) - (if (procedure? _f130828_) + (lambda (_f130758_ _stx130759_) + (if (procedure? _f130758_) '#!void - (error '"expected procedure" _f130828_)) - (let _lp130831_ ((_rest130833_ _stx130829_)) - (let* ((_g130834130844_ (gx#syntax-e _rest130833_)) - (_else130837130852_ (lambda () (_f130828_ _rest130833_)))) - (let ((_K130840130866_ - (lambda (_rest130863_ _hd130864_) - (_f130828_ _hd130864_) - (_lp130831_ _rest130863_))) - (_K130839130857_ (lambda () '#!void))) - (let ((_try-match130836130860_ + (error '"expected procedure" _f130758_)) + (let _lp130761_ ((_rest130763_ _stx130759_)) + (let* ((_g130764130774_ (gx#syntax-e _rest130763_)) + (_else130767130782_ (lambda () (_f130758_ _rest130763_)))) + (let ((_K130770130796_ + (lambda (_rest130793_ _hd130794_) + (_f130758_ _hd130794_) + (_lp130761_ _rest130793_))) + (_K130769130787_ (lambda () '#!void))) + (let ((_try-match130766130790_ (lambda () - (if (##null? _g130834130844_) - (_K130839130857_) - (_else130837130852_))))) - (if (##pair? _g130834130844_) - (let ((_tl130842130871_ (##cdr _g130834130844_)) - (_hd130841130869_ (##car _g130834130844_))) - (let ((_hd130874_ _hd130841130869_) - (_rest130876_ _tl130842130871_)) - (_K130840130866_ _rest130876_ _hd130874_))) - (_try-match130836130860_)))))))) + (if (##null? _g130764130774_) + (_K130769130787_) + (_else130767130782_))))) + (if (##pair? _g130764130774_) + (let ((_tl130772130801_ (##cdr _g130764130774_)) + (_hd130771130799_ (##car _g130764130774_))) + (let ((_hd130804_ _hd130771130799_) + (_rest130806_ _tl130772130801_)) + (_K130770130796_ _rest130806_ _hd130804_))) + (_try-match130766130790_)))))))) (define gx#stx-for-each2 - (lambda (_f130733_ _xstx130734_ _ystx130735_) - (if (procedure? _f130733_) + (lambda (_f130663_ _xstx130664_ _ystx130665_) + (if (procedure? _f130663_) '#!void - (error '"expected procedure" _f130733_)) - (let _lp130737_ ((_xrest130739_ _xstx130734_) - (_yrest130740_ _ystx130735_)) - (let* ((_g130741130751_ (gx#syntax-e _xrest130739_)) - (_else130744130759_ (lambda () '#!void))) - (let ((_K130747130816_ - (lambda (_xrest130785_ _xhd130786_) - (let* ((_g130787130794_ (gx#syntax-e _yrest130740_)) - (_E130789130798_ + (error '"expected procedure" _f130663_)) + (let _lp130667_ ((_xrest130669_ _xstx130664_) + (_yrest130670_ _ystx130665_)) + (let* ((_g130671130681_ (gx#syntax-e _xrest130669_)) + (_else130674130689_ (lambda () '#!void))) + (let ((_K130677130746_ + (lambda (_xrest130715_ _xhd130716_) + (let* ((_g130717130724_ (gx#syntax-e _yrest130670_)) + (_E130719130728_ (lambda () - (error '"No clause matching" _g130787130794_))) - (_K130790130804_ - (lambda (_yrest130801_ _yhd130802_) - (_f130733_ _xhd130786_ _yhd130802_) - (_lp130737_ _xrest130785_ _yrest130801_)))) - (if (##pair? _g130787130794_) - (let ((_hd130791130807_ (##car _g130787130794_)) - (_tl130792130809_ (##cdr _g130787130794_))) - (let* ((_yhd130812_ _hd130791130807_) - (_yrest130814_ _tl130792130809_)) - (_K130790130804_ _yrest130814_ _yhd130812_))) - (_E130789130798_))))) - (_K130746130779_ + (error '"No clause matching" _g130717130724_))) + (_K130720130734_ + (lambda (_yrest130731_ _yhd130732_) + (_f130663_ _xhd130716_ _yhd130732_) + (_lp130667_ _xrest130715_ _yrest130731_)))) + (if (##pair? _g130717130724_) + (let ((_hd130721130737_ (##car _g130717130724_)) + (_tl130722130739_ (##cdr _g130717130724_))) + (let* ((_yhd130742_ _hd130721130737_) + (_yrest130744_ _tl130722130739_)) + (_K130720130734_ _yrest130744_ _yhd130742_))) + (_E130719130728_))))) + (_K130676130709_ (lambda () - (let* ((_yrest130763130768_ _yrest130740_) - (_E130765130772_ + (let* ((_yrest130693130698_ _yrest130670_) + (_E130695130702_ (lambda () (error '"No clause matching" - _yrest130763130768_))) - (_K130766130776_ + _yrest130693130698_))) + (_K130696130706_ (lambda () - (_f130733_ _xrest130739_ _yrest130740_)))) - (if (not (gx#stx-null? _yrest130763130768_)) - (_K130766130776_) - (_E130765130772_)))))) - (let ((_try-match130743130782_ + (_f130663_ _xrest130669_ _yrest130670_)))) + (if (not (gx#stx-null? _yrest130693130698_)) + (_K130696130706_) + (_E130695130702_)))))) + (let ((_try-match130673130712_ (lambda () - (if (not (null? _g130741130751_)) - (_K130746130779_) - (_else130744130759_))))) - (if (##pair? _g130741130751_) - (let ((_tl130749130821_ (##cdr _g130741130751_)) - (_hd130748130819_ (##car _g130741130751_))) - (let ((_xhd130824_ _hd130748130819_) - (_xrest130826_ _tl130749130821_)) - (_K130747130816_ _xrest130826_ _xhd130824_))) - (_try-match130743130782_)))))))) + (if (not (null? _g130671130681_)) + (_K130676130709_) + (_else130674130689_))))) + (if (##pair? _g130671130681_) + (let ((_tl130679130751_ (##cdr _g130671130681_)) + (_hd130678130749_ (##car _g130671130681_))) + (let ((_xhd130754_ _hd130678130749_) + (_xrest130756_ _tl130679130751_)) + (_K130677130746_ _xrest130756_ _xhd130754_))) + (_try-match130673130712_)))))))) (define gx#stx-map - (lambda _g135564_ - (let ((_g135563_ (##length _g135564_))) - (cond ((##fx= _g135563_ 2) - (apply (lambda (_f130726_ _stx130727_) - (gx#stx-map1 _f130726_ _stx130727_)) - _g135564_)) - ((##fx= _g135563_ 3) - (apply (lambda (_f130729_ _xstx130730_ _ystx130731_) - (gx#stx-map2 _f130729_ _xstx130730_ _ystx130731_)) - _g135564_)) + (lambda _g135494_ + (let ((_g135493_ (##length _g135494_))) + (cond ((##fx= _g135493_ 2) + (apply (lambda (_f130656_ _stx130657_) + (gx#stx-map1 _f130656_ _stx130657_)) + _g135494_)) + ((##fx= _g135493_ 3) + (apply (lambda (_f130659_ _xstx130660_ _ystx130661_) + (gx#stx-map2 _f130659_ _xstx130660_ _ystx130661_)) + _g135494_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g135564_)))))) + _g135494_)))))) (define gx#stx-map1 - (lambda (_f130676_ _stx130677_) - (if (procedure? _f130676_) + (lambda (_f130606_ _stx130607_) + (if (procedure? _f130606_) '#!void - (error '"expected procedure" _f130676_)) - (let _recur130679_ ((_rest130681_ _stx130677_)) - (let* ((_g130682130692_ (gx#syntax-e _rest130681_)) - (_else130685130700_ (lambda () (_f130676_ _rest130681_)))) - (let ((_K130688130714_ - (lambda (_rest130711_ _hd130712_) - (cons (_f130676_ _hd130712_) - (_recur130679_ _rest130711_)))) - (_K130687130705_ (lambda () '()))) - (let ((_try-match130684130708_ + (error '"expected procedure" _f130606_)) + (let _recur130609_ ((_rest130611_ _stx130607_)) + (let* ((_g130612130622_ (gx#syntax-e _rest130611_)) + (_else130615130630_ (lambda () (_f130606_ _rest130611_)))) + (let ((_K130618130644_ + (lambda (_rest130641_ _hd130642_) + (cons (_f130606_ _hd130642_) + (_recur130609_ _rest130641_)))) + (_K130617130635_ (lambda () '()))) + (let ((_try-match130614130638_ (lambda () - (if (##null? _g130682130692_) - (_K130687130705_) - (_else130685130700_))))) - (if (##pair? _g130682130692_) - (let ((_tl130690130719_ (##cdr _g130682130692_)) - (_hd130689130717_ (##car _g130682130692_))) - (let ((_hd130722_ _hd130689130717_) - (_rest130724_ _tl130690130719_)) - (_K130688130714_ _rest130724_ _hd130722_))) - (_try-match130684130708_)))))))) + (if (##null? _g130612130622_) + (_K130617130635_) + (_else130615130630_))))) + (if (##pair? _g130612130622_) + (let ((_tl130620130649_ (##cdr _g130612130622_)) + (_hd130619130647_ (##car _g130612130622_))) + (let ((_hd130652_ _hd130619130647_) + (_rest130654_ _tl130620130649_)) + (_K130618130644_ _rest130654_ _hd130652_))) + (_try-match130614130638_)))))))) (define gx#stx-map2 - (lambda (_f130581_ _xstx130582_ _ystx130583_) - (if (procedure? _f130581_) + (lambda (_f130511_ _xstx130512_ _ystx130513_) + (if (procedure? _f130511_) '#!void - (error '"expected procedure" _f130581_)) - (let _recur130585_ ((_xrest130587_ _xstx130582_) - (_yrest130588_ _ystx130583_)) - (let* ((_g130589130599_ (gx#syntax-e _xrest130587_)) - (_else130592130607_ (lambda () '()))) - (let ((_K130595130664_ - (lambda (_xrest130633_ _xhd130634_) - (let* ((_g130635130642_ (gx#syntax-e _yrest130588_)) - (_E130637130646_ + (error '"expected procedure" _f130511_)) + (let _recur130515_ ((_xrest130517_ _xstx130512_) + (_yrest130518_ _ystx130513_)) + (let* ((_g130519130529_ (gx#syntax-e _xrest130517_)) + (_else130522130537_ (lambda () '()))) + (let ((_K130525130594_ + (lambda (_xrest130563_ _xhd130564_) + (let* ((_g130565130572_ (gx#syntax-e _yrest130518_)) + (_E130567130576_ (lambda () - (error '"No clause matching" _g130635130642_))) - (_K130638130652_ - (lambda (_yrest130649_ _yhd130650_) - (cons (_f130581_ _xhd130634_ _yhd130650_) - (_recur130585_ - _xrest130633_ - _yrest130649_))))) - (if (##pair? _g130635130642_) - (let ((_hd130639130655_ (##car _g130635130642_)) - (_tl130640130657_ (##cdr _g130635130642_))) - (let* ((_yhd130660_ _hd130639130655_) - (_yrest130662_ _tl130640130657_)) - (_K130638130652_ _yrest130662_ _yhd130660_))) - (_E130637130646_))))) - (_K130594130627_ + (error '"No clause matching" _g130565130572_))) + (_K130568130582_ + (lambda (_yrest130579_ _yhd130580_) + (cons (_f130511_ _xhd130564_ _yhd130580_) + (_recur130515_ + _xrest130563_ + _yrest130579_))))) + (if (##pair? _g130565130572_) + (let ((_hd130569130585_ (##car _g130565130572_)) + (_tl130570130587_ (##cdr _g130565130572_))) + (let* ((_yhd130590_ _hd130569130585_) + (_yrest130592_ _tl130570130587_)) + (_K130568130582_ _yrest130592_ _yhd130590_))) + (_E130567130576_))))) + (_K130524130557_ (lambda () - (let* ((_yrest130611130616_ _yrest130588_) - (_E130613130620_ + (let* ((_yrest130541130546_ _yrest130518_) + (_E130543130550_ (lambda () (error '"No clause matching" - _yrest130611130616_))) - (_K130614130624_ + _yrest130541130546_))) + (_K130544130554_ (lambda () - (_f130581_ _xrest130587_ _yrest130588_)))) - (if (not (gx#stx-null? _yrest130611130616_)) - (_K130614130624_) - (_E130613130620_)))))) - (let ((_try-match130591130630_ + (_f130511_ _xrest130517_ _yrest130518_)))) + (if (not (gx#stx-null? _yrest130541130546_)) + (_K130544130554_) + (_E130543130550_)))))) + (let ((_try-match130521130560_ (lambda () - (if (not (null? _g130589130599_)) - (_K130594130627_) - (_else130592130607_))))) - (if (##pair? _g130589130599_) - (let ((_tl130597130669_ (##cdr _g130589130599_)) - (_hd130596130667_ (##car _g130589130599_))) - (let ((_xhd130672_ _hd130596130667_) - (_xrest130674_ _tl130597130669_)) - (_K130595130664_ _xrest130674_ _xhd130672_))) - (_try-match130591130630_)))))))) + (if (not (null? _g130519130529_)) + (_K130524130557_) + (_else130522130537_))))) + (if (##pair? _g130519130529_) + (let ((_tl130527130599_ (##cdr _g130519130529_)) + (_hd130526130597_ (##car _g130519130529_))) + (let ((_xhd130602_ _hd130526130597_) + (_xrest130604_ _tl130527130599_)) + (_K130525130594_ _xrest130604_ _xhd130602_))) + (_try-match130521130560_)))))))) (define gx#stx-andmap - (lambda (_f130531_ _stx130532_) - (if (procedure? _f130531_) + (lambda (_f130461_ _stx130462_) + (if (procedure? _f130461_) '#!void - (error '"expected procedure" _f130531_)) - (let _lp130534_ ((_rest130536_ _stx130532_)) - (let* ((_g130537130547_ (gx#syntax-e _rest130536_)) - (_else130540130555_ (lambda () (_f130531_ _rest130536_)))) - (let ((_K130543130569_ - (lambda (_rest130566_ _hd130567_) - (if (_f130531_ _hd130567_) - (_lp130534_ _rest130566_) + (error '"expected procedure" _f130461_)) + (let _lp130464_ ((_rest130466_ _stx130462_)) + (let* ((_g130467130477_ (gx#syntax-e _rest130466_)) + (_else130470130485_ (lambda () (_f130461_ _rest130466_)))) + (let ((_K130473130499_ + (lambda (_rest130496_ _hd130497_) + (if (_f130461_ _hd130497_) + (_lp130464_ _rest130496_) '#f))) - (_K130542130560_ (lambda () '#t))) - (let ((_try-match130539130563_ + (_K130472130490_ (lambda () '#t))) + (let ((_try-match130469130493_ (lambda () - (if (##null? _g130537130547_) - (_K130542130560_) - (_else130540130555_))))) - (if (##pair? _g130537130547_) - (let ((_tl130545130574_ (##cdr _g130537130547_)) - (_hd130544130572_ (##car _g130537130547_))) - (let ((_hd130577_ _hd130544130572_) - (_rest130579_ _tl130545130574_)) - (_K130543130569_ _rest130579_ _hd130577_))) - (_try-match130539130563_)))))))) + (if (##null? _g130467130477_) + (_K130472130490_) + (_else130470130485_))))) + (if (##pair? _g130467130477_) + (let ((_tl130475130504_ (##cdr _g130467130477_)) + (_hd130474130502_ (##car _g130467130477_))) + (let ((_hd130507_ _hd130474130502_) + (_rest130509_ _tl130475130504_)) + (_K130473130499_ _rest130509_ _hd130507_))) + (_try-match130469130493_)))))))) (define gx#stx-ormap - (lambda (_f130478_ _stx130479_) - (if (procedure? _f130478_) + (lambda (_f130408_ _stx130409_) + (if (procedure? _f130408_) '#!void - (error '"expected procedure" _f130478_)) - (let _lp130481_ ((_rest130483_ _stx130479_)) - (let* ((_g130484130494_ (gx#syntax-e _rest130483_)) - (_else130487130502_ (lambda () (_f130478_ _rest130483_)))) - (let ((_K130490130519_ - (lambda (_rest130513_ _hd130514_) - (let ((_$e130516_ (_f130478_ _hd130514_))) - (if _$e130516_ _$e130516_ (_lp130481_ _rest130513_))))) - (_K130489130507_ (lambda () '#f))) - (let ((_try-match130486130510_ + (error '"expected procedure" _f130408_)) + (let _lp130411_ ((_rest130413_ _stx130409_)) + (let* ((_g130414130424_ (gx#syntax-e _rest130413_)) + (_else130417130432_ (lambda () (_f130408_ _rest130413_)))) + (let ((_K130420130449_ + (lambda (_rest130443_ _hd130444_) + (let ((_$e130446_ (_f130408_ _hd130444_))) + (if _$e130446_ _$e130446_ (_lp130411_ _rest130443_))))) + (_K130419130437_ (lambda () '#f))) + (let ((_try-match130416130440_ (lambda () - (if (##null? _g130484130494_) - (_K130489130507_) - (_else130487130502_))))) - (if (##pair? _g130484130494_) - (let ((_tl130492130524_ (##cdr _g130484130494_)) - (_hd130491130522_ (##car _g130484130494_))) - (let ((_hd130527_ _hd130491130522_) - (_rest130529_ _tl130492130524_)) - (_K130490130519_ _rest130529_ _hd130527_))) - (_try-match130486130510_)))))))) + (if (##null? _g130414130424_) + (_K130419130437_) + (_else130417130432_))))) + (if (##pair? _g130414130424_) + (let ((_tl130422130454_ (##cdr _g130414130424_)) + (_hd130421130452_ (##car _g130414130424_))) + (let ((_hd130457_ _hd130421130452_) + (_rest130459_ _tl130422130454_)) + (_K130420130449_ _rest130459_ _hd130457_))) + (_try-match130416130440_)))))))) (define gx#stx-foldl - (lambda (_f130426_ _iv130427_ _stx130428_) - (if (procedure? _f130426_) + (lambda (_f130356_ _iv130357_ _stx130358_) + (if (procedure? _f130356_) '#!void - (error '"expected procedure" _f130426_)) - (let _lp130430_ ((_r130432_ _iv130427_) (_rest130433_ _stx130428_)) - (let* ((_g130434130444_ (gx#syntax-e _rest130433_)) - (_else130437130452_ - (lambda () (_f130426_ _rest130433_ _r130432_)))) - (let ((_K130440130466_ - (lambda (_rest130463_ _hd130464_) - (_lp130430_ - (_f130426_ _hd130464_ _r130432_) - _rest130463_))) - (_K130439130457_ (lambda () _r130432_))) - (let ((_try-match130436130460_ + (error '"expected procedure" _f130356_)) + (let _lp130360_ ((_r130362_ _iv130357_) (_rest130363_ _stx130358_)) + (let* ((_g130364130374_ (gx#syntax-e _rest130363_)) + (_else130367130382_ + (lambda () (_f130356_ _rest130363_ _r130362_)))) + (let ((_K130370130396_ + (lambda (_rest130393_ _hd130394_) + (_lp130360_ + (_f130356_ _hd130394_ _r130362_) + _rest130393_))) + (_K130369130387_ (lambda () _r130362_))) + (let ((_try-match130366130390_ (lambda () - (if (##null? _g130434130444_) - (_K130439130457_) - (_else130437130452_))))) - (if (##pair? _g130434130444_) - (let ((_tl130442130471_ (##cdr _g130434130444_)) - (_hd130441130469_ (##car _g130434130444_))) - (let ((_hd130474_ _hd130441130469_) - (_rest130476_ _tl130442130471_)) - (_K130440130466_ _rest130476_ _hd130474_))) - (_try-match130436130460_)))))))) + (if (##null? _g130364130374_) + (_K130369130387_) + (_else130367130382_))))) + (if (##pair? _g130364130374_) + (let ((_tl130372130401_ (##cdr _g130364130374_)) + (_hd130371130399_ (##car _g130364130374_))) + (let ((_hd130404_ _hd130371130399_) + (_rest130406_ _tl130372130401_)) + (_K130370130396_ _rest130406_ _hd130404_))) + (_try-match130366130390_)))))))) (define gx#stx-foldr - (lambda (_f130375_ _iv130376_ _stx130377_) - (if (procedure? _f130375_) + (lambda (_f130305_ _iv130306_ _stx130307_) + (if (procedure? _f130305_) '#!void - (error '"expected procedure" _f130375_)) - (let _recur130379_ ((_rest130381_ _stx130377_)) - (let* ((_g130382130392_ (gx#syntax-e _rest130381_)) - (_else130385130400_ - (lambda () (_f130375_ _rest130381_ _iv130376_)))) - (let ((_K130388130414_ - (lambda (_rest130411_ _hd130412_) - (_f130375_ _hd130412_ (_recur130379_ _rest130411_)))) - (_K130387130405_ (lambda () _iv130376_))) - (let ((_try-match130384130408_ + (error '"expected procedure" _f130305_)) + (let _recur130309_ ((_rest130311_ _stx130307_)) + (let* ((_g130312130322_ (gx#syntax-e _rest130311_)) + (_else130315130330_ + (lambda () (_f130305_ _rest130311_ _iv130306_)))) + (let ((_K130318130344_ + (lambda (_rest130341_ _hd130342_) + (_f130305_ _hd130342_ (_recur130309_ _rest130341_)))) + (_K130317130335_ (lambda () _iv130306_))) + (let ((_try-match130314130338_ (lambda () - (if (##null? _g130382130392_) - (_K130387130405_) - (_else130385130400_))))) - (if (##pair? _g130382130392_) - (let ((_tl130390130419_ (##cdr _g130382130392_)) - (_hd130389130417_ (##car _g130382130392_))) - (let ((_hd130422_ _hd130389130417_) - (_rest130424_ _tl130390130419_)) - (_K130388130414_ _rest130424_ _hd130422_))) - (_try-match130384130408_)))))))) + (if (##null? _g130312130322_) + (_K130317130335_) + (_else130315130330_))))) + (if (##pair? _g130312130322_) + (let ((_tl130320130349_ (##cdr _g130312130322_)) + (_hd130319130347_ (##car _g130312130322_))) + (let ((_hd130352_ _hd130319130347_) + (_rest130354_ _tl130320130349_)) + (_K130318130344_ _rest130354_ _hd130352_))) + (_try-match130314130338_)))))))) (define gx#stx-reverse - (lambda (_stx130373_) (gx#stx-foldl cons '() _stx130373_))) + (lambda (_stx130303_) (gx#stx-foldl cons '() _stx130303_))) (define gx#stx-last - (lambda (_stx130334_) - (let _lp130336_ ((_rest130338_ _stx130334_)) - (let* ((_g130339130347_ (gx#syntax-e _rest130338_)) - (_else130341130355_ (lambda () _rest130338_)) - (_K130343130361_ - (lambda (_rest130358_ _hd130359_) - (if (gx#stx-null? _rest130358_) - _hd130359_ - (_lp130336_ _rest130358_))))) - (if (##pair? _g130339130347_) - (let ((_hd130344130364_ (##car _g130339130347_)) - (_tl130345130366_ (##cdr _g130339130347_))) - (let* ((_hd130369_ _hd130344130364_) - (_rest130371_ _tl130345130366_)) - (_K130343130361_ _rest130371_ _hd130369_))) - (_else130341130355_)))))) + (lambda (_stx130264_) + (let _lp130266_ ((_rest130268_ _stx130264_)) + (let* ((_g130269130277_ (gx#syntax-e _rest130268_)) + (_else130271130285_ (lambda () _rest130268_)) + (_K130273130291_ + (lambda (_rest130288_ _hd130289_) + (if (gx#stx-null? _rest130288_) + _hd130289_ + (_lp130266_ _rest130288_))))) + (if (##pair? _g130269130277_) + (let ((_hd130274130294_ (##car _g130269130277_)) + (_tl130275130296_ (##cdr _g130269130277_))) + (let* ((_hd130299_ _hd130274130294_) + (_rest130301_ _tl130275130296_)) + (_K130273130291_ _rest130301_ _hd130299_))) + (_else130271130285_)))))) (define gx#stx-last-pair - (lambda (_stx130305_) - (let _lp130307_ ((_hd130309_ _stx130305_)) - (let* ((_g130310130317_ (gx#syntax-e _hd130309_)) - (_E130312130321_ - (lambda () (error '"No clause matching" _g130310130317_))) - (_K130313130326_ - (lambda (_rest130324_) - (if (gx#stx-pair? _rest130324_) - (_lp130307_ _rest130324_) - _hd130309_)))) - (if (##pair? _g130310130317_) - (let* ((_tl130315130329_ (##cdr _g130310130317_)) - (_rest130332_ _tl130315130329_)) - (_K130313130326_ _rest130332_)) - (_E130312130321_)))))) + (lambda (_stx130235_) + (let _lp130237_ ((_hd130239_ _stx130235_)) + (let* ((_g130240130247_ (gx#syntax-e _hd130239_)) + (_E130242130251_ + (lambda () (error '"No clause matching" _g130240130247_))) + (_K130243130256_ + (lambda (_rest130254_) + (if (gx#stx-pair? _rest130254_) + (_lp130237_ _rest130254_) + _hd130239_)))) + (if (##pair? _g130240130247_) + (let* ((_tl130245130259_ (##cdr _g130240130247_)) + (_rest130262_ _tl130245130259_)) + (_K130243130256_ _rest130262_)) + (_E130242130251_)))))) (define gx#stx-list-tail - (lambda (_stx130274_ _k130275_) - (let _lp130277_ ((_rest130279_ _stx130274_) (_k130280_ _k130275_)) - (if (fxpositive? _k130280_) - (let* ((_g130281130288_ (gx#syntax-e _rest130279_)) - (_E130283130292_ + (lambda (_stx130204_ _k130205_) + (let _lp130207_ ((_rest130209_ _stx130204_) (_k130210_ _k130205_)) + (if (fxpositive? _k130210_) + (let* ((_g130211130218_ (gx#syntax-e _rest130209_)) + (_E130213130222_ (lambda () - (error '"No clause matching" _g130281130288_))) - (_K130284130297_ - (lambda (_rest130295_) - (_lp130277_ _rest130295_ (fx- _k130280_ '1))))) - (if (##pair? _g130281130288_) - (let* ((_tl130286130300_ (##cdr _g130281130288_)) - (_rest130303_ _tl130286130300_)) - (_K130284130297_ _rest130303_)) - (_E130283130292_))) - _rest130279_)))) + (error '"No clause matching" _g130211130218_))) + (_K130214130227_ + (lambda (_rest130225_) + (_lp130207_ _rest130225_ (fx- _k130210_ '1))))) + (if (##pair? _g130211130218_) + (let* ((_tl130216130230_ (##cdr _g130211130218_)) + (_rest130233_ _tl130216130230_)) + (_K130214130227_ _rest130233_)) + (_E130213130222_))) + _rest130209_)))) (define gx#stx-list-ref - (lambda (_stx130271_ _k130272_) - (gx#stx-car (gx#stx-list-tail _stx130271_ _k130272_)))) + (lambda (_stx130201_ _k130202_) + (gx#stx-car (gx#stx-list-tail _stx130201_ _k130202_)))) (define gx#stx-plist?__% - (lambda (_stx130183_ _key?130184_) - (if (procedure? _key?130184_) + (lambda (_stx130113_ _key?130114_) + (if (procedure? _key?130114_) '#!void - (error '"expected procedure" _key?130184_)) - (let _lp130186_ ((_rest130188_ _stx130183_)) - (let* ((_g130189130199_ (gx#stx-e _rest130188_)) - (_else130192130207_ (lambda () '#f))) - (let ((_K130195130249_ - (lambda (_rest130218_ _hd130219_) - (if (_key?130184_ _hd130219_) - (let* ((_g130220130228_ (gx#stx-e _rest130218_)) - (_else130222130236_ (lambda () '#f)) - (_K130224130241_ - (lambda (_rest130239_) - (_lp130186_ _rest130239_)))) - (if (##pair? _g130220130228_) - (let* ((_tl130226130244_ - (##cdr _g130220130228_)) - (_rest130247_ _tl130226130244_)) - (_lp130186_ _rest130247_)) - (_else130222130236_))) + (error '"expected procedure" _key?130114_)) + (let _lp130116_ ((_rest130118_ _stx130113_)) + (let* ((_g130119130129_ (gx#stx-e _rest130118_)) + (_else130122130137_ (lambda () '#f))) + (let ((_K130125130179_ + (lambda (_rest130148_ _hd130149_) + (if (_key?130114_ _hd130149_) + (let* ((_g130150130158_ (gx#stx-e _rest130148_)) + (_else130152130166_ (lambda () '#f)) + (_K130154130171_ + (lambda (_rest130169_) + (_lp130116_ _rest130169_)))) + (if (##pair? _g130150130158_) + (let* ((_tl130156130174_ + (##cdr _g130150130158_)) + (_rest130177_ _tl130156130174_)) + (_lp130116_ _rest130177_)) + (_else130152130166_))) '#f))) - (_K130194130212_ (lambda () '#t))) - (let ((_try-match130191130215_ + (_K130124130142_ (lambda () '#t))) + (let ((_try-match130121130145_ (lambda () - (if (##null? _g130189130199_) - (_K130194130212_) - (_else130192130207_))))) - (if (##pair? _g130189130199_) - (let ((_tl130197130254_ (##cdr _g130189130199_)) - (_hd130196130252_ (##car _g130189130199_))) - (let ((_hd130257_ _hd130196130252_) - (_rest130259_ _tl130197130254_)) - (_K130195130249_ _rest130259_ _hd130257_))) - (_try-match130191130215_)))))))) + (if (##null? _g130119130129_) + (_K130124130142_) + (_else130122130137_))))) + (if (##pair? _g130119130129_) + (let ((_tl130127130184_ (##cdr _g130119130129_)) + (_hd130126130182_ (##car _g130119130129_))) + (let ((_hd130187_ _hd130126130182_) + (_rest130189_ _tl130127130184_)) + (_K130125130179_ _rest130189_ _hd130187_))) + (_try-match130121130145_)))))))) (define gx#stx-plist?__0 - (lambda (_stx130264_) - (let ((_key?130266_ gx#stx-keyword?)) - (gx#stx-plist?__% _stx130264_ _key?130266_)))) + (lambda (_stx130194_) + (let ((_key?130196_ gx#stx-keyword?)) + (gx#stx-plist?__% _stx130194_ _key?130196_)))) (define gx#stx-plist? - (lambda _g135566_ - (let ((_g135565_ (##length _g135566_))) - (cond ((##fx= _g135565_ 1) - (apply (lambda (_stx130264_) (gx#stx-plist?__0 _stx130264_)) - _g135566_)) - ((##fx= _g135565_ 2) - (apply (lambda (_stx130268_ _key?130269_) - (gx#stx-plist?__% _stx130268_ _key?130269_)) - _g135566_)) + (lambda _g135496_ + (let ((_g135495_ (##length _g135496_))) + (cond ((##fx= _g135495_ 1) + (apply (lambda (_stx130194_) (gx#stx-plist?__0 _stx130194_)) + _g135496_)) + ((##fx= _g135495_ 2) + (apply (lambda (_stx130198_ _key?130199_) + (gx#stx-plist?__% _stx130198_ _key?130199_)) + _g135496_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g135566_)))))) + _g135496_)))))) (define gx#stx-getq__% - (lambda (_key130101_ _stx130102_ _key=?130103_) - (if (procedure? _key=?130103_) + (lambda (_key130031_ _stx130032_ _key=?130033_) + (if (procedure? _key=?130033_) '#!void - (error '"expected procedure" _key=?130103_)) - (let _lp130105_ ((_rest130107_ _stx130102_)) - (let* ((_g130108130116_ (gx#syntax-e _rest130107_)) - (_else130110130124_ (lambda () '#f)) - (_K130112130158_ - (lambda (_rest130127_ _hd130128_) - (let* ((_g130129130136_ (gx#syntax-e _rest130127_)) - (_E130131130140_ + (error '"expected procedure" _key=?130033_)) + (let _lp130035_ ((_rest130037_ _stx130032_)) + (let* ((_g130038130046_ (gx#syntax-e _rest130037_)) + (_else130040130054_ (lambda () '#f)) + (_K130042130088_ + (lambda (_rest130057_ _hd130058_) + (let* ((_g130059130066_ (gx#syntax-e _rest130057_)) + (_E130061130070_ (lambda () - (error '"No clause matching" _g130129130136_))) - (_K130132130146_ - (lambda (_rest130143_ _val130144_) - (if (_key=?130103_ _hd130128_ _key130101_) - _val130144_ - (_lp130105_ _rest130143_))))) - (if (##pair? _g130129130136_) - (let ((_hd130133130149_ (##car _g130129130136_)) - (_tl130134130151_ (##cdr _g130129130136_))) - (let* ((_val130154_ _hd130133130149_) - (_rest130156_ _tl130134130151_)) - (_K130132130146_ _rest130156_ _val130154_))) - (_E130131130140_)))))) - (if (##pair? _g130108130116_) - (let ((_hd130113130161_ (##car _g130108130116_)) - (_tl130114130163_ (##cdr _g130108130116_))) - (let* ((_hd130166_ _hd130113130161_) - (_rest130168_ _tl130114130163_)) - (_K130112130158_ _rest130168_ _hd130166_))) - (_else130110130124_)))))) + (error '"No clause matching" _g130059130066_))) + (_K130062130076_ + (lambda (_rest130073_ _val130074_) + (if (_key=?130033_ _hd130058_ _key130031_) + _val130074_ + (_lp130035_ _rest130073_))))) + (if (##pair? _g130059130066_) + (let ((_hd130063130079_ (##car _g130059130066_)) + (_tl130064130081_ (##cdr _g130059130066_))) + (let* ((_val130084_ _hd130063130079_) + (_rest130086_ _tl130064130081_)) + (_K130062130076_ _rest130086_ _val130084_))) + (_E130061130070_)))))) + (if (##pair? _g130038130046_) + (let ((_hd130043130091_ (##car _g130038130046_)) + (_tl130044130093_ (##cdr _g130038130046_))) + (let* ((_hd130096_ _hd130043130091_) + (_rest130098_ _tl130044130093_)) + (_K130042130088_ _rest130098_ _hd130096_))) + (_else130040130054_)))))) (define gx#stx-getq__0 - (lambda (_key130173_ _stx130174_) - (let ((_key=?130176_ gx#stx-eq?)) - (gx#stx-getq__% _key130173_ _stx130174_ _key=?130176_)))) + (lambda (_key130103_ _stx130104_) + (let ((_key=?130106_ gx#stx-eq?)) + (gx#stx-getq__% _key130103_ _stx130104_ _key=?130106_)))) (define gx#stx-getq - (lambda _g135568_ - (let ((_g135567_ (##length _g135568_))) - (cond ((##fx= _g135567_ 2) - (apply (lambda (_key130173_ _stx130174_) - (gx#stx-getq__0 _key130173_ _stx130174_)) - _g135568_)) - ((##fx= _g135567_ 3) - (apply (lambda (_key130178_ _stx130179_ _key=?130180_) + (lambda _g135498_ + (let ((_g135497_ (##length _g135498_))) + (cond ((##fx= _g135497_ 2) + (apply (lambda (_key130103_ _stx130104_) + (gx#stx-getq__0 _key130103_ _stx130104_)) + _g135498_)) + ((##fx= _g135497_ 3) + (apply (lambda (_key130108_ _stx130109_ _key=?130110_) (gx#stx-getq__% - _key130178_ - _stx130179_ - _key=?130180_)) - _g135568_)) + _key130108_ + _stx130109_ + _key=?130110_)) + _g135498_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g135568_)))))))) + _g135498_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx__1.scm b/src/bootstrap/gerbil/expander/stx__1.scm index 385ab8fbc..9f673d74c 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]#_g135571_| + (define |gx[1]#_g135501_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g135573_| + (define |gx[1]#_g135503_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g135575_| + (define |gx[1]#_g135505_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g135577_| + (define |gx[1]#_g135507_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g135583_| + (define |gx[1]#_g135513_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g135586_| + (define |gx[1]#_g135516_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g135589_| + (define |gx[1]#_g135519_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g135595_| + (define |gx[1]#_g135525_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135598_| + (define |gx[1]#_g135528_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135601_| + (define |gx[1]#_g135531_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135607_| + (define |gx[1]#_g135537_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g135610_| + (define |gx[1]#_g135540_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g135613_| + (define |gx[1]#_g135543_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g135619_| + (define |gx[1]#_g135549_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135622_| + (define |gx[1]#_g135552_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135625_| + (define |gx[1]#_g135555_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135629_| + (define |gx[1]#_g135559_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g135631_| + (define |gx[1]#_g135561_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g135633_| + (define |gx[1]#_g135563_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g135639_| + (define |gx[1]#_g135569_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g135642_| + (define |gx[1]#_g135572_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g135645_| + (define |gx[1]#_g135575_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g135651_| + (define |gx[1]#_g135581_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135654_| + (define |gx[1]#_g135584_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135657_| + (define |gx[1]#_g135587_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135663_| + (define |gx[1]#_g135593_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g135666_| + (define |gx[1]#_g135596_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g135669_| + (define |gx[1]#_g135599_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g135675_| + (define |gx[1]#_g135605_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135678_| + (define |gx[1]#_g135608_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135681_| + (define |gx[1]#_g135611_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135685_| + (define |gx[1]#_g135615_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g135687_| + (define |gx[1]#_g135617_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g135689_| + (define |gx[1]#_g135619_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g135696_| + (define |gx[1]#_g135626_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g135699_| + (define |gx[1]#_g135629_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g135702_| + (define |gx[1]#_g135632_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g135705_| + (define |gx[1]#_g135635_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g135712_| + (define |gx[1]#_g135642_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135715_| + (define |gx[1]#_g135645_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135718_| + (define |gx[1]#_g135648_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135721_| + (define |gx[1]#_g135651_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135728_| + (define |gx[1]#_g135658_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g135731_| + (define |gx[1]#_g135661_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g135734_| + (define |gx[1]#_g135664_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g135737_| + (define |gx[1]#_g135667_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g135744_| + (define |gx[1]#_g135674_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135747_| + (define |gx[1]#_g135677_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135750_| + (define |gx[1]#_g135680_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135753_| + (define |gx[1]#_g135683_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! @@ -347,12 +347,12 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj135552 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj135482 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj135552 + __obj135482 'gx#identifier-wrap::t '1 gerbil/core$$#class-type-info::t @@ -360,7 +360,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135552 + __obj135482 'syntax '2 gerbil/core$$#class-type-info::t @@ -368,26 +368,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135552 + __obj135482 '(marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135569 - (let ((__tmp135570 |gx[1]#_g135571_|)) + (let ((__tmp135499 + (let ((__tmp135500 |gx[1]#_g135501_|)) (declare (not safe)) - (cons __tmp135570 '())))) + (cons __tmp135500 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj135552 - __tmp135569 + __obj135482 + __tmp135499 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj135552 + __obj135482 '#t '5 gerbil/core$$#class-type-info::t @@ -395,7 +395,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135552 + __obj135482 '#t '6 gerbil/core$$#class-type-info::t @@ -403,155 +403,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135552 + __obj135482 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135572 |gx[1]#_g135573_|)) + (let ((__tmp135502 |gx[1]#_g135503_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135552 - __tmp135572 + __obj135482 + __tmp135502 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135574 |gx[1]#_g135575_|)) + (let ((__tmp135504 |gx[1]#_g135505_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135552 - __tmp135574 + __obj135482 + __tmp135504 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135576 |gx[1]#_g135577_|)) + (let ((__tmp135506 |gx[1]#_g135507_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135552 - __tmp135576 + __obj135482 + __tmp135506 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135578 - (let ((__tmp135587 - (let ((__tmp135588 |gx[1]#_g135589_|)) + (let ((__tmp135508 + (let ((__tmp135517 + (let ((__tmp135518 |gx[1]#_g135519_|)) (declare (not safe)) - (cons 'marks __tmp135588))) - (__tmp135579 - (let ((__tmp135584 - (let ((__tmp135585 |gx[1]#_g135586_|)) + (cons 'marks __tmp135518))) + (__tmp135509 + (let ((__tmp135514 + (let ((__tmp135515 |gx[1]#_g135516_|)) (declare (not safe)) - (cons 'e __tmp135585))) - (__tmp135580 - (let ((__tmp135581 - (let ((__tmp135582 |gx[1]#_g135583_|)) + (cons 'e __tmp135515))) + (__tmp135510 + (let ((__tmp135511 + (let ((__tmp135512 |gx[1]#_g135513_|)) (declare (not safe)) - (cons 'source __tmp135582)))) + (cons 'source __tmp135512)))) (declare (not safe)) - (cons __tmp135581 '())))) + (cons __tmp135511 '())))) (declare (not safe)) - (cons __tmp135584 __tmp135580)))) + (cons __tmp135514 __tmp135510)))) (declare (not safe)) - (cons __tmp135587 __tmp135579)))) + (cons __tmp135517 __tmp135509)))) (declare (not safe)) (##unchecked-structure-set! - __obj135552 - __tmp135578 + __obj135482 + __tmp135508 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135590 - (let ((__tmp135599 - (let ((__tmp135600 |gx[1]#_g135601_|)) + (let ((__tmp135520 + (let ((__tmp135529 + (let ((__tmp135530 |gx[1]#_g135531_|)) (declare (not safe)) - (cons 'marks __tmp135600))) - (__tmp135591 - (let ((__tmp135596 - (let ((__tmp135597 |gx[1]#_g135598_|)) + (cons 'marks __tmp135530))) + (__tmp135521 + (let ((__tmp135526 + (let ((__tmp135527 |gx[1]#_g135528_|)) (declare (not safe)) - (cons 'e __tmp135597))) - (__tmp135592 - (let ((__tmp135593 - (let ((__tmp135594 |gx[1]#_g135595_|)) + (cons 'e __tmp135527))) + (__tmp135522 + (let ((__tmp135523 + (let ((__tmp135524 |gx[1]#_g135525_|)) (declare (not safe)) - (cons 'source __tmp135594)))) + (cons 'source __tmp135524)))) (declare (not safe)) - (cons __tmp135593 '())))) + (cons __tmp135523 '())))) (declare (not safe)) - (cons __tmp135596 __tmp135592)))) + (cons __tmp135526 __tmp135522)))) (declare (not safe)) - (cons __tmp135599 __tmp135591)))) + (cons __tmp135529 __tmp135521)))) (declare (not safe)) (##unchecked-structure-set! - __obj135552 - __tmp135590 + __obj135482 + __tmp135520 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135602 - (let ((__tmp135611 - (let ((__tmp135612 |gx[1]#_g135613_|)) + (let ((__tmp135532 + (let ((__tmp135541 + (let ((__tmp135542 |gx[1]#_g135543_|)) (declare (not safe)) - (cons 'marks __tmp135612))) - (__tmp135603 - (let ((__tmp135608 - (let ((__tmp135609 |gx[1]#_g135610_|)) + (cons 'marks __tmp135542))) + (__tmp135533 + (let ((__tmp135538 + (let ((__tmp135539 |gx[1]#_g135540_|)) (declare (not safe)) - (cons 'e __tmp135609))) - (__tmp135604 - (let ((__tmp135605 - (let ((__tmp135606 |gx[1]#_g135607_|)) + (cons 'e __tmp135539))) + (__tmp135534 + (let ((__tmp135535 + (let ((__tmp135536 |gx[1]#_g135537_|)) (declare (not safe)) - (cons 'source __tmp135606)))) + (cons 'source __tmp135536)))) (declare (not safe)) - (cons __tmp135605 '())))) + (cons __tmp135535 '())))) (declare (not safe)) - (cons __tmp135608 __tmp135604)))) + (cons __tmp135538 __tmp135534)))) (declare (not safe)) - (cons __tmp135611 __tmp135603)))) + (cons __tmp135541 __tmp135533)))) (declare (not safe)) (##unchecked-structure-set! - __obj135552 - __tmp135602 + __obj135482 + __tmp135532 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135614 - (let ((__tmp135623 - (let ((__tmp135624 |gx[1]#_g135625_|)) + (let ((__tmp135544 + (let ((__tmp135553 + (let ((__tmp135554 |gx[1]#_g135555_|)) (declare (not safe)) - (cons 'marks __tmp135624))) - (__tmp135615 - (let ((__tmp135620 - (let ((__tmp135621 |gx[1]#_g135622_|)) + (cons 'marks __tmp135554))) + (__tmp135545 + (let ((__tmp135550 + (let ((__tmp135551 |gx[1]#_g135552_|)) (declare (not safe)) - (cons 'e __tmp135621))) - (__tmp135616 - (let ((__tmp135617 - (let ((__tmp135618 |gx[1]#_g135619_|)) + (cons 'e __tmp135551))) + (__tmp135546 + (let ((__tmp135547 + (let ((__tmp135548 |gx[1]#_g135549_|)) (declare (not safe)) - (cons 'source __tmp135618)))) + (cons 'source __tmp135548)))) (declare (not safe)) - (cons __tmp135617 '())))) + (cons __tmp135547 '())))) (declare (not safe)) - (cons __tmp135620 __tmp135616)))) + (cons __tmp135550 __tmp135546)))) (declare (not safe)) - (cons __tmp135623 __tmp135615)))) + (cons __tmp135553 __tmp135545)))) (declare (not safe)) (##unchecked-structure-set! - __obj135552 - __tmp135614 + __obj135482 + __tmp135544 '14 gerbil/core$$#class-type-info::t '#f)) - __obj135552)) + __obj135482)) (define |gx[:0:]#syntax-wrap| - (let ((__obj135553 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj135483 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj135553 + __obj135483 'gx#syntax-wrap::t '1 gerbil/core$$#class-type-info::t @@ -559,7 +559,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135553 + __obj135483 'syntax '2 gerbil/core$$#class-type-info::t @@ -567,26 +567,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135553 + __obj135483 '(mark) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135626 - (let ((__tmp135627 |gx[1]#_g135571_|)) + (let ((__tmp135556 + (let ((__tmp135557 |gx[1]#_g135501_|)) (declare (not safe)) - (cons __tmp135627 '())))) + (cons __tmp135557 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj135553 - __tmp135626 + __obj135483 + __tmp135556 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj135553 + __obj135483 '#t '5 gerbil/core$$#class-type-info::t @@ -594,7 +594,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135553 + __obj135483 '#t '6 gerbil/core$$#class-type-info::t @@ -602,155 +602,155 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135553 + __obj135483 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135628 |gx[1]#_g135629_|)) + (let ((__tmp135558 |gx[1]#_g135559_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135553 - __tmp135628 + __obj135483 + __tmp135558 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135630 |gx[1]#_g135631_|)) + (let ((__tmp135560 |gx[1]#_g135561_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135553 - __tmp135630 + __obj135483 + __tmp135560 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135632 |gx[1]#_g135633_|)) + (let ((__tmp135562 |gx[1]#_g135563_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135553 - __tmp135632 + __obj135483 + __tmp135562 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135634 - (let ((__tmp135643 - (let ((__tmp135644 |gx[1]#_g135645_|)) + (let ((__tmp135564 + (let ((__tmp135573 + (let ((__tmp135574 |gx[1]#_g135575_|)) (declare (not safe)) - (cons 'mark __tmp135644))) - (__tmp135635 - (let ((__tmp135640 - (let ((__tmp135641 |gx[1]#_g135642_|)) + (cons 'mark __tmp135574))) + (__tmp135565 + (let ((__tmp135570 + (let ((__tmp135571 |gx[1]#_g135572_|)) (declare (not safe)) - (cons 'e __tmp135641))) - (__tmp135636 - (let ((__tmp135637 - (let ((__tmp135638 |gx[1]#_g135639_|)) + (cons 'e __tmp135571))) + (__tmp135566 + (let ((__tmp135567 + (let ((__tmp135568 |gx[1]#_g135569_|)) (declare (not safe)) - (cons 'source __tmp135638)))) + (cons 'source __tmp135568)))) (declare (not safe)) - (cons __tmp135637 '())))) + (cons __tmp135567 '())))) (declare (not safe)) - (cons __tmp135640 __tmp135636)))) + (cons __tmp135570 __tmp135566)))) (declare (not safe)) - (cons __tmp135643 __tmp135635)))) + (cons __tmp135573 __tmp135565)))) (declare (not safe)) (##unchecked-structure-set! - __obj135553 - __tmp135634 + __obj135483 + __tmp135564 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135646 - (let ((__tmp135655 - (let ((__tmp135656 |gx[1]#_g135657_|)) + (let ((__tmp135576 + (let ((__tmp135585 + (let ((__tmp135586 |gx[1]#_g135587_|)) (declare (not safe)) - (cons 'mark __tmp135656))) - (__tmp135647 - (let ((__tmp135652 - (let ((__tmp135653 |gx[1]#_g135654_|)) + (cons 'mark __tmp135586))) + (__tmp135577 + (let ((__tmp135582 + (let ((__tmp135583 |gx[1]#_g135584_|)) (declare (not safe)) - (cons 'e __tmp135653))) - (__tmp135648 - (let ((__tmp135649 - (let ((__tmp135650 |gx[1]#_g135651_|)) + (cons 'e __tmp135583))) + (__tmp135578 + (let ((__tmp135579 + (let ((__tmp135580 |gx[1]#_g135581_|)) (declare (not safe)) - (cons 'source __tmp135650)))) + (cons 'source __tmp135580)))) (declare (not safe)) - (cons __tmp135649 '())))) + (cons __tmp135579 '())))) (declare (not safe)) - (cons __tmp135652 __tmp135648)))) + (cons __tmp135582 __tmp135578)))) (declare (not safe)) - (cons __tmp135655 __tmp135647)))) + (cons __tmp135585 __tmp135577)))) (declare (not safe)) (##unchecked-structure-set! - __obj135553 - __tmp135646 + __obj135483 + __tmp135576 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135658 - (let ((__tmp135667 - (let ((__tmp135668 |gx[1]#_g135669_|)) + (let ((__tmp135588 + (let ((__tmp135597 + (let ((__tmp135598 |gx[1]#_g135599_|)) (declare (not safe)) - (cons 'mark __tmp135668))) - (__tmp135659 - (let ((__tmp135664 - (let ((__tmp135665 |gx[1]#_g135666_|)) + (cons 'mark __tmp135598))) + (__tmp135589 + (let ((__tmp135594 + (let ((__tmp135595 |gx[1]#_g135596_|)) (declare (not safe)) - (cons 'e __tmp135665))) - (__tmp135660 - (let ((__tmp135661 - (let ((__tmp135662 |gx[1]#_g135663_|)) + (cons 'e __tmp135595))) + (__tmp135590 + (let ((__tmp135591 + (let ((__tmp135592 |gx[1]#_g135593_|)) (declare (not safe)) - (cons 'source __tmp135662)))) + (cons 'source __tmp135592)))) (declare (not safe)) - (cons __tmp135661 '())))) + (cons __tmp135591 '())))) (declare (not safe)) - (cons __tmp135664 __tmp135660)))) + (cons __tmp135594 __tmp135590)))) (declare (not safe)) - (cons __tmp135667 __tmp135659)))) + (cons __tmp135597 __tmp135589)))) (declare (not safe)) (##unchecked-structure-set! - __obj135553 - __tmp135658 + __obj135483 + __tmp135588 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135670 - (let ((__tmp135679 - (let ((__tmp135680 |gx[1]#_g135681_|)) + (let ((__tmp135600 + (let ((__tmp135609 + (let ((__tmp135610 |gx[1]#_g135611_|)) (declare (not safe)) - (cons 'mark __tmp135680))) - (__tmp135671 - (let ((__tmp135676 - (let ((__tmp135677 |gx[1]#_g135678_|)) + (cons 'mark __tmp135610))) + (__tmp135601 + (let ((__tmp135606 + (let ((__tmp135607 |gx[1]#_g135608_|)) (declare (not safe)) - (cons 'e __tmp135677))) - (__tmp135672 - (let ((__tmp135673 - (let ((__tmp135674 |gx[1]#_g135675_|)) + (cons 'e __tmp135607))) + (__tmp135602 + (let ((__tmp135603 + (let ((__tmp135604 |gx[1]#_g135605_|)) (declare (not safe)) - (cons 'source __tmp135674)))) + (cons 'source __tmp135604)))) (declare (not safe)) - (cons __tmp135673 '())))) + (cons __tmp135603 '())))) (declare (not safe)) - (cons __tmp135676 __tmp135672)))) + (cons __tmp135606 __tmp135602)))) (declare (not safe)) - (cons __tmp135679 __tmp135671)))) + (cons __tmp135609 __tmp135601)))) (declare (not safe)) (##unchecked-structure-set! - __obj135553 - __tmp135670 + __obj135483 + __tmp135600 '14 gerbil/core$$#class-type-info::t '#f)) - __obj135553)) + __obj135483)) (define |gx[:0:]#syntax-quote| - (let ((__obj135554 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj135484 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj135554 + __obj135484 'gx#syntax-quote::t '1 gerbil/core$$#class-type-info::t @@ -758,7 +758,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135554 + __obj135484 'syntax '2 gerbil/core$$#class-type-info::t @@ -766,26 +766,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135554 + __obj135484 '(context marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135682 - (let ((__tmp135683 |gx[1]#_g135571_|)) + (let ((__tmp135612 + (let ((__tmp135613 |gx[1]#_g135501_|)) (declare (not safe)) - (cons __tmp135683 '())))) + (cons __tmp135613 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj135554 - __tmp135682 + __obj135484 + __tmp135612 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj135554 + __obj135484 '#t '5 gerbil/core$$#class-type-info::t @@ -793,7 +793,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135554 + __obj135484 '#t '6 gerbil/core$$#class-type-info::t @@ -801,177 +801,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135554 + __obj135484 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135684 |gx[1]#_g135685_|)) + (let ((__tmp135614 |gx[1]#_g135615_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135554 - __tmp135684 + __obj135484 + __tmp135614 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135686 |gx[1]#_g135687_|)) + (let ((__tmp135616 |gx[1]#_g135617_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135554 - __tmp135686 + __obj135484 + __tmp135616 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135688 |gx[1]#_g135689_|)) + (let ((__tmp135618 |gx[1]#_g135619_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135554 - __tmp135688 + __obj135484 + __tmp135618 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135690 - (let ((__tmp135703 - (let ((__tmp135704 |gx[1]#_g135705_|)) + (let ((__tmp135620 + (let ((__tmp135633 + (let ((__tmp135634 |gx[1]#_g135635_|)) (declare (not safe)) - (cons 'context __tmp135704))) - (__tmp135691 - (let ((__tmp135700 - (let ((__tmp135701 |gx[1]#_g135702_|)) + (cons 'context __tmp135634))) + (__tmp135621 + (let ((__tmp135630 + (let ((__tmp135631 |gx[1]#_g135632_|)) (declare (not safe)) - (cons 'marks __tmp135701))) - (__tmp135692 - (let ((__tmp135697 - (let ((__tmp135698 |gx[1]#_g135699_|)) + (cons 'marks __tmp135631))) + (__tmp135622 + (let ((__tmp135627 + (let ((__tmp135628 |gx[1]#_g135629_|)) (declare (not safe)) - (cons 'e __tmp135698))) - (__tmp135693 - (let ((__tmp135694 - (let ((__tmp135695 - |gx[1]#_g135696_|)) + (cons 'e __tmp135628))) + (__tmp135623 + (let ((__tmp135624 + (let ((__tmp135625 + |gx[1]#_g135626_|)) (declare (not safe)) - (cons 'source __tmp135695)))) + (cons 'source __tmp135625)))) (declare (not safe)) - (cons __tmp135694 '())))) + (cons __tmp135624 '())))) (declare (not safe)) - (cons __tmp135697 __tmp135693)))) + (cons __tmp135627 __tmp135623)))) (declare (not safe)) - (cons __tmp135700 __tmp135692)))) + (cons __tmp135630 __tmp135622)))) (declare (not safe)) - (cons __tmp135703 __tmp135691)))) + (cons __tmp135633 __tmp135621)))) (declare (not safe)) (##unchecked-structure-set! - __obj135554 - __tmp135690 + __obj135484 + __tmp135620 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135706 - (let ((__tmp135719 - (let ((__tmp135720 |gx[1]#_g135721_|)) + (let ((__tmp135636 + (let ((__tmp135649 + (let ((__tmp135650 |gx[1]#_g135651_|)) (declare (not safe)) - (cons 'context __tmp135720))) - (__tmp135707 - (let ((__tmp135716 - (let ((__tmp135717 |gx[1]#_g135718_|)) + (cons 'context __tmp135650))) + (__tmp135637 + (let ((__tmp135646 + (let ((__tmp135647 |gx[1]#_g135648_|)) (declare (not safe)) - (cons 'marks __tmp135717))) - (__tmp135708 - (let ((__tmp135713 - (let ((__tmp135714 |gx[1]#_g135715_|)) + (cons 'marks __tmp135647))) + (__tmp135638 + (let ((__tmp135643 + (let ((__tmp135644 |gx[1]#_g135645_|)) (declare (not safe)) - (cons 'e __tmp135714))) - (__tmp135709 - (let ((__tmp135710 - (let ((__tmp135711 - |gx[1]#_g135712_|)) + (cons 'e __tmp135644))) + (__tmp135639 + (let ((__tmp135640 + (let ((__tmp135641 + |gx[1]#_g135642_|)) (declare (not safe)) - (cons 'source __tmp135711)))) + (cons 'source __tmp135641)))) (declare (not safe)) - (cons __tmp135710 '())))) + (cons __tmp135640 '())))) (declare (not safe)) - (cons __tmp135713 __tmp135709)))) + (cons __tmp135643 __tmp135639)))) (declare (not safe)) - (cons __tmp135716 __tmp135708)))) + (cons __tmp135646 __tmp135638)))) (declare (not safe)) - (cons __tmp135719 __tmp135707)))) + (cons __tmp135649 __tmp135637)))) (declare (not safe)) (##unchecked-structure-set! - __obj135554 - __tmp135706 + __obj135484 + __tmp135636 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135722 - (let ((__tmp135735 - (let ((__tmp135736 |gx[1]#_g135737_|)) + (let ((__tmp135652 + (let ((__tmp135665 + (let ((__tmp135666 |gx[1]#_g135667_|)) (declare (not safe)) - (cons 'context __tmp135736))) - (__tmp135723 - (let ((__tmp135732 - (let ((__tmp135733 |gx[1]#_g135734_|)) + (cons 'context __tmp135666))) + (__tmp135653 + (let ((__tmp135662 + (let ((__tmp135663 |gx[1]#_g135664_|)) (declare (not safe)) - (cons 'marks __tmp135733))) - (__tmp135724 - (let ((__tmp135729 - (let ((__tmp135730 |gx[1]#_g135731_|)) + (cons 'marks __tmp135663))) + (__tmp135654 + (let ((__tmp135659 + (let ((__tmp135660 |gx[1]#_g135661_|)) (declare (not safe)) - (cons 'e __tmp135730))) - (__tmp135725 - (let ((__tmp135726 - (let ((__tmp135727 - |gx[1]#_g135728_|)) + (cons 'e __tmp135660))) + (__tmp135655 + (let ((__tmp135656 + (let ((__tmp135657 + |gx[1]#_g135658_|)) (declare (not safe)) - (cons 'source __tmp135727)))) + (cons 'source __tmp135657)))) (declare (not safe)) - (cons __tmp135726 '())))) + (cons __tmp135656 '())))) (declare (not safe)) - (cons __tmp135729 __tmp135725)))) + (cons __tmp135659 __tmp135655)))) (declare (not safe)) - (cons __tmp135732 __tmp135724)))) + (cons __tmp135662 __tmp135654)))) (declare (not safe)) - (cons __tmp135735 __tmp135723)))) + (cons __tmp135665 __tmp135653)))) (declare (not safe)) (##unchecked-structure-set! - __obj135554 - __tmp135722 + __obj135484 + __tmp135652 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135738 - (let ((__tmp135751 - (let ((__tmp135752 |gx[1]#_g135753_|)) + (let ((__tmp135668 + (let ((__tmp135681 + (let ((__tmp135682 |gx[1]#_g135683_|)) (declare (not safe)) - (cons 'context __tmp135752))) - (__tmp135739 - (let ((__tmp135748 - (let ((__tmp135749 |gx[1]#_g135750_|)) + (cons 'context __tmp135682))) + (__tmp135669 + (let ((__tmp135678 + (let ((__tmp135679 |gx[1]#_g135680_|)) (declare (not safe)) - (cons 'marks __tmp135749))) - (__tmp135740 - (let ((__tmp135745 - (let ((__tmp135746 |gx[1]#_g135747_|)) + (cons 'marks __tmp135679))) + (__tmp135670 + (let ((__tmp135675 + (let ((__tmp135676 |gx[1]#_g135677_|)) (declare (not safe)) - (cons 'e __tmp135746))) - (__tmp135741 - (let ((__tmp135742 - (let ((__tmp135743 - |gx[1]#_g135744_|)) + (cons 'e __tmp135676))) + (__tmp135671 + (let ((__tmp135672 + (let ((__tmp135673 + |gx[1]#_g135674_|)) (declare (not safe)) - (cons 'source __tmp135743)))) + (cons 'source __tmp135673)))) (declare (not safe)) - (cons __tmp135742 '())))) + (cons __tmp135672 '())))) (declare (not safe)) - (cons __tmp135745 __tmp135741)))) + (cons __tmp135675 __tmp135671)))) (declare (not safe)) - (cons __tmp135748 __tmp135740)))) + (cons __tmp135678 __tmp135670)))) (declare (not safe)) - (cons __tmp135751 __tmp135739)))) + (cons __tmp135681 __tmp135669)))) (declare (not safe)) (##unchecked-structure-set! - __obj135554 - __tmp135738 + __obj135484 + __tmp135668 '14 gerbil/core$$#class-type-info::t '#f)) - __obj135554)))) + __obj135484)))) diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index ceb230273..ae81b0beb 100644 --- a/src/bootstrap/gerbil/expander/stxcase__0.scm +++ b/src/bootstrap/gerbil/expander/stxcase__0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1707423041) + (define gerbil/expander/stxcase::timestamp 1707565660) (begin (define gx#syntax-pattern::t - (let ((__tmp176499 - (let ((__tmp176500 + (let ((__tmp176429 + (let ((__tmp176430 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp176500 '())))) + (cons __tmp176430 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gx#syntax-pattern::t 'syntax-pattern gx#expander::t '(id depth) - __tmp176499 + __tmp176429 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (make-struct-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _$args172302_ - (apply make-struct-instance gx#syntax-pattern::t _$args172302_))) + (lambda _$args172232_ + (apply make-struct-instance gx#syntax-pattern::t _$args172232_))) (define gx#syntax-pattern-id (let () (declare (not safe)) @@ -72,13 +72,13 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator gx#syntax-pattern::t 'e))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_self172299_ _stx172300_) + (lambda (_self172229_ _stx172230_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _stx172300_)))) + _stx172230_)))) (let () (declare (not safe)) (bind-method! @@ -87,702 +87,702 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_stx171781_) - (letrec ((_generate171783_ - (lambda (_e172010_) - (letrec ((_BUG172012_ - (lambda (_q172174_) + (lambda (_stx171711_) + (letrec ((_generate171713_ + (lambda (_e171940_) + (letrec ((_BUG171942_ + (lambda (_q172104_) (error '"BUG: syntax; generate" - _stx171781_ - _e172010_ - _q172174_))) - (_local-pattern-e172013_ - (lambda (_pat172172_) - (let ((__tmp176501 + _stx171711_ + _e171940_ + _q172104_))) + (_local-pattern-e171943_ + (lambda (_pat172102_) + (let ((__tmp176431 (##structure-ref - _pat172172_ + _pat172102_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp176501)))) - (_getvar172014_ - (lambda (_q172169_ _vars172170_) + (gx#syntax-local-rewrap __tmp176431)))) + (_getvar171944_ + (lambda (_q172099_ _vars172100_) (let () (declare (not safe)) - (assgetq _q172169_ - _vars172170_ - _BUG172012_)))) - (_getarg172015_ - (lambda (_arg172135_ _vars172136_) - (let* ((_arg172137172144_ _arg172135_) - (_E172139172148_ + (assgetq _q172099_ + _vars172100_ + _BUG171942_)))) + (_getarg171945_ + (lambda (_arg172065_ _vars172066_) + (let* ((_arg172067172074_ _arg172065_) + (_E172069172078_ (lambda () (error '"No clause matching" - _arg172137172144_))) - (_K172140172157_ - (lambda (_e172151_ _tag172152_) - (let ((_$e172154_ _tag172152_)) + _arg172067172074_))) + (_K172070172087_ + (lambda (_e172081_ _tag172082_) + (let ((_$e172084_ _tag172082_)) (if (let () (declare (not safe)) - (eq? 'ref _$e172154_)) + (eq? 'ref _$e172084_)) (let () (declare (not safe)) - (_getvar172014_ - _e172151_ - _vars172136_)) + (_getvar171944_ + _e172081_ + _vars172066_)) (if (let () (declare (not safe)) (eq? 'pattern - _$e172154_)) + _$e172084_)) (let () (declare (not safe)) - (_local-pattern-e172013_ - _e172151_)) + (_local-pattern-e171943_ + _e172081_)) (let () (declare (not safe)) - (_BUG172012_ - _arg172135_)))))))) + (_BUG171942_ + _arg172065_)))))))) (if (let () (declare (not safe)) - (##pair? _arg172137172144_)) - (let ((_hd172141172160_ + (##pair? _arg172067172074_)) + (let ((_hd172071172090_ (let () (declare (not safe)) - (##car _arg172137172144_))) - (_tl172142172162_ + (##car _arg172067172074_))) + (_tl172072172092_ (let () (declare (not safe)) - (##cdr _arg172137172144_)))) - (let* ((_tag172165_ _hd172141172160_) - (_e172167_ _tl172142172162_)) + (##cdr _arg172067172074_)))) + (let* ((_tag172095_ _hd172071172090_) + (_e172097_ _tl172072172092_)) (declare (not safe)) - (_K172140172157_ - _e172167_ - _tag172165_))) + (_K172070172087_ + _e172097_ + _tag172095_))) (let () (declare (not safe)) - (_E172139172148_))))))) - (let _recur172017_ ((_e172019_ _e172010_) - (_vars172020_ '())) - (let* ((_e172021172028_ _e172019_) - (_E172023172032_ + (_E172069172078_))))))) + (let _recur171947_ ((_e171949_ _e171940_) + (_vars171950_ '())) + (let* ((_e171951171958_ _e171949_) + (_E171953171962_ (lambda () (error '"No clause matching" - _e172021172028_))) - (_K172024172123_ - (lambda (_body172035_ _tag172036_) - (let ((_$e172038_ _tag172036_)) + _e171951171958_))) + (_K171954172053_ + (lambda (_body171965_ _tag171966_) + (let ((_$e171968_ _tag171966_)) (if (let () (declare (not safe)) - (eq? 'datum _$e172038_)) + (eq? 'datum _$e171968_)) (let () (declare (not safe)) - (gx#core-list 'quote _body172035_)) + (gx#core-list 'quote _body171965_)) (if (let () (declare (not safe)) - (eq? 'term _$e172038_)) - (let ((_id172041_ + (eq? 'term _$e171968_)) + (let ((_id171971_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _body172035_)))) + _body171965_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id172041_ + _id171971_ 'gx#identifier-wrap::t)) - (let ((_marks172043_ + (let ((_marks171973_ (let () (declare (not safe)) (##unchecked-structure-ref - _id172041_ + _id171971_ '3 gx#identifier-wrap::t '#f)))) (if (let () (declare (not safe)) - (null? _marks172043_)) - (let ((__tmp176529 + (null? _marks171973_)) + (let ((__tmp176459 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _body172035_)))) + (gx#core-list 'quote _body171965_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp176529)) - (let ((__tmp176528 + (gx#core-list 'datum->syntax '#f __tmp176459)) + (let ((__tmp176458 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _body172035_))) - (__tmp176527 + (gx#core-list 'quote-syntax _body171965_))) + (__tmp176457 (let () (declare (not safe)) - (gx#core-list 'quote _body172035_)))) + (gx#core-list 'quote _body171965_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp176528 - __tmp176527 + __tmp176458 + __tmp176457 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id172041_ + _id171971_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _body172035_)) + _body171965_)) (let () (declare (not safe)) - (_BUG172012_ - _e172019_))))) + (_BUG171942_ + _e171949_))))) (if (let () (declare (not safe)) - (eq? 'pattern _$e172038_)) + (eq? 'pattern _$e171968_)) (let () (declare (not safe)) - (_local-pattern-e172013_ - _body172035_)) + (_local-pattern-e171943_ + _body171965_)) (if (let () (declare (not safe)) - (eq? 'ref _$e172038_)) + (eq? 'ref _$e171968_)) (let () (declare (not safe)) - (_getvar172014_ - _body172035_ - _vars172020_)) + (_getvar171944_ + _body171965_ + _vars171950_)) (if (let () (declare (not safe)) (eq? 'cons - _$e172038_)) - (let ((__tmp176525 - (let ((__tmp176526 + _$e171968_)) + (let ((__tmp176455 + (let ((__tmp176456 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _body172035_))) + (car _body171965_))) (declare (not safe)) - (_recur172017_ __tmp176526 _vars172020_))) - (__tmp176523 - (let ((__tmp176524 (cdr _body172035_))) + (_recur171947_ __tmp176456 _vars171950_))) + (__tmp176453 + (let ((__tmp176454 (cdr _body171965_))) (declare (not safe)) - (_recur172017_ __tmp176524 _vars172020_)))) + (_recur171947_ __tmp176454 _vars171950_)))) (declare (not safe)) - (gx#core-list 'cons __tmp176525 __tmp176523)) - (if (let () (declare (not safe)) (eq? 'vector _$e172038_)) - (let ((__tmp176522 + (gx#core-list 'cons __tmp176455 __tmp176453)) + (if (let () (declare (not safe)) (eq? 'vector _$e171968_)) + (let ((__tmp176452 (let () (declare (not safe)) - (_recur172017_ _body172035_ _vars172020_)))) + (_recur171947_ _body171965_ _vars171950_)))) (declare (not safe)) - (gx#core-list 'list->vector __tmp176522)) - (if (let () (declare (not safe)) (eq? 'box _$e172038_)) - (let ((__tmp176521 + (gx#core-list 'list->vector __tmp176452)) + (if (let () (declare (not safe)) (eq? 'box _$e171968_)) + (let ((__tmp176451 (let () (declare (not safe)) - (_recur172017_ _body172035_ _vars172020_)))) + (_recur171947_ _body171965_ _vars171950_)))) (declare (not safe)) - (gx#core-list 'box __tmp176521)) + (gx#core-list 'box __tmp176451)) (if (let () (declare (not safe)) - (eq? 'splice _$e172038_)) - (let* ((_body172044172055_ _body172035_) - (_E172046172059_ + (eq? 'splice _$e171968_)) + (let* ((_body171974171985_ _body171965_) + (_E171976171989_ (lambda () (error '"No clause matching" - _body172044172055_))) - (_K172047172097_ - (lambda (_args172062_ - _iv172063_ - _hd172064_ - _depth172065_) - (let* ((_targets172071_ - (map (lambda (_g172066172068_) + _body171974171985_))) + (_K171977172027_ + (lambda (_args171992_ + _iv171993_ + _hd171994_ + _depth171995_) + (let* ((_targets172001_ + (map (lambda (_g171996171998_) (let () (declare (not safe)) - (_getarg172015_ - _g172066172068_ - _vars172020_))) - _args172062_)) - (_fold-in172073_ + (_getarg171945_ + _g171996171998_ + _vars171950_))) + _args171992_)) + (_fold-in172003_ (let () (declare (not safe)) - (gx#gentemps _args172062_))) - (_fold-out172075_ + (gx#gentemps _args171992_))) + (_fold-out172005_ (let () (declare (not safe)) (gx#genident__0))) - (_lambda-args172077_ - (let ((__tmp176502 + (_lambda-args172007_ + (let ((__tmp176432 (let () (declare (not safe)) - (cons _fold-out172075_ + (cons _fold-out172005_ '())))) (declare (not safe)) (foldr1 cons - __tmp176502 - _fold-in172073_))) - (_lambda-body172094_ - (if (fx> _depth172065_ '1) - (let ((_r-args172085_ - (map (lambda (_arg172079_) - (let ((__tmp176507 + __tmp176432 + _fold-in172003_))) + (_lambda-body172024_ + (if (fx> _depth171995_ '1) + (let ((_r-args172015_ + (map (lambda (_arg172009_) + (let ((__tmp176437 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _arg172079_))) + (cdr _arg172009_))) (declare (not safe)) - (cons 'ref __tmp176507))) - _args172062_)) - (_r-vars172086_ - (let ((__tmp176508 - (lambda (_arg172081_ _var172082_ _r172083_) - (let ((__tmp176509 - (let ((__tmp176510 (cdr _arg172081_))) + (cons 'ref __tmp176437))) + _args171992_)) + (_r-vars172016_ + (let ((__tmp176438 + (lambda (_arg172011_ _var172012_ _r172013_) + (let ((__tmp176439 + (let ((__tmp176440 (cdr _arg172011_))) (declare (not safe)) - (cons __tmp176510 _var172082_)))) + (cons __tmp176440 _var172012_)))) (declare (not safe)) - (cons __tmp176509 _r172083_))))) + (cons __tmp176439 _r172013_))))) (declare (not safe)) - (foldr2 __tmp176508 - _vars172020_ - _args172062_ - _fold-in172073_)))) + (foldr2 __tmp176438 + _vars171950_ + _args171992_ + _fold-in172003_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp176511 - (let ((__tmp176512 + (let ((__tmp176441 + (let ((__tmp176442 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp176516 + (let ((__tmp176446 (let () (declare (not safe)) - (fx- _depth172065_ '1))) - (__tmp176513 - (let ((__tmp176514 - (let ((__tmp176515 + (fx- _depth171995_ '1))) + (__tmp176443 + (let ((__tmp176444 + (let ((__tmp176445 (let () (declare (not safe)) (cons 'var - _fold-out172075_)))) + _fold-out172005_)))) (declare (not safe)) - (cons __tmp176515 _r-args172085_)))) + (cons __tmp176445 _r-args172015_)))) (declare (not safe)) - (cons _hd172064_ __tmp176514)))) + (cons _hd171994_ __tmp176444)))) (declare (not safe)) - (cons __tmp176516 __tmp176513)))) + (cons __tmp176446 __tmp176443)))) (declare (not safe)) - (cons 'splice __tmp176512)))) + (cons 'splice __tmp176442)))) (declare (not safe)) - (_recur172017_ __tmp176511 _r-vars172086_))) + (_recur171947_ __tmp176441 _r-vars172016_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_hd-vars172092_ - (let ((__tmp176503 + (let* ((_hd-vars172022_ + (let ((__tmp176433 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_arg172088_ _var172089_ _r172090_) - (let ((__tmp176504 - (let ((__tmp176505 (cdr _arg172088_))) + (lambda (_arg172018_ _var172019_ _r172020_) + (let ((__tmp176434 + (let ((__tmp176435 (cdr _arg172018_))) (declare (not safe)) - (cons __tmp176505 _var172089_)))) + (cons __tmp176435 _var172019_)))) (declare (not safe)) - (cons __tmp176504 _r172090_))))) + (cons __tmp176434 _r172020_))))) (declare (not safe)) - (foldr2 __tmp176503 - _vars172020_ - _args172062_ - _fold-in172073_))) - (__tmp176506 + (foldr2 __tmp176433 + _vars171950_ + _args171992_ + _fold-in172003_))) + (__tmp176436 (let () (declare (not safe)) - (_recur172017_ _hd172064_ _hd-vars172092_)))) + (_recur171947_ _hd171994_ _hd-vars172022_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp176506 - _fold-out172075_))))) - (let ((__tmp176520 - (if (fx> (length _targets172071_) + __tmp176436 + _fold-out172005_))))) + (let ((__tmp176450 + (if (fx> (length _targets172001_) '1) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _targets172071_)) + _targets172001_)) '#!void)) - (__tmp176517 - (let ((__tmp176519 + (__tmp176447 + (let ((__tmp176449 (let () (declare (not safe)) (gx#core-list 'lambda% - _lambda-args172077_ - _lambda-body172094_))) - (__tmp176518 + _lambda-args172007_ + _lambda-body172024_))) + (__tmp176448 (let () (declare (not safe)) - (_recur172017_ - _iv172063_ - _vars172020_)))) + (_recur171947_ + _iv171993_ + _vars171950_)))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp176519 - __tmp176518 - _targets172071_)))) + __tmp176449 + __tmp176448 + _targets172001_)))) (declare (not safe)) (gx#core-list 'begin - __tmp176520 - __tmp176517)))))) + __tmp176450 + __tmp176447)))))) (if (let () (declare (not safe)) - (##pair? _body172044172055_)) - (let ((_hd172048172100_ + (##pair? _body171974171985_)) + (let ((_hd171978172030_ (let () (declare (not safe)) - (##car _body172044172055_))) - (_tl172049172102_ + (##car _body171974171985_))) + (_tl171979172032_ (let () (declare (not safe)) - (##cdr _body172044172055_)))) - (let ((_depth172105_ _hd172048172100_)) + (##cdr _body171974171985_)))) + (let ((_depth172035_ _hd171978172030_)) (if (let () (declare (not safe)) - (##pair? _tl172049172102_)) - (let ((_hd172050172107_ + (##pair? _tl171979172032_)) + (let ((_hd171980172037_ (let () (declare (not safe)) - (##car _tl172049172102_))) - (_tl172051172109_ + (##car _tl171979172032_))) + (_tl171981172039_ (let () (declare (not safe)) - (##cdr _tl172049172102_)))) - (let ((_hd172112_ - _hd172050172107_)) + (##cdr _tl171979172032_)))) + (let ((_hd172042_ + _hd171980172037_)) (if (let () (declare (not safe)) - (##pair? _tl172051172109_)) - (let ((_hd172052172114_ + (##pair? _tl171981172039_)) + (let ((_hd171982172044_ (let () (declare (not safe)) - (##car _tl172051172109_))) - (_tl172053172116_ + (##car _tl171981172039_))) + (_tl171983172046_ (let () (declare (not safe)) - (##cdr _tl172051172109_)))) - (let* ((_iv172119_ - _hd172052172114_) - (_args172121_ - _tl172053172116_)) + (##cdr _tl171981172039_)))) + (let* ((_iv172049_ + _hd171982172044_) + (_args172051_ + _tl171983172046_)) (declare (not safe)) - (_K172047172097_ - _args172121_ - _iv172119_ - _hd172112_ - _depth172105_))) + (_K171977172027_ + _args172051_ + _iv172049_ + _hd172042_ + _depth172035_))) (let () (declare (not safe)) - (_E172046172059_))))) + (_E171976171989_))))) (let () (declare (not safe)) - (_E172046172059_))))) + (_E171976171989_))))) (let () (declare (not safe)) - (_E172046172059_)))) + (_E171976171989_)))) (if (let () (declare (not safe)) - (eq? 'var _$e172038_)) - _body172035_ + (eq? 'var _$e171968_)) + _body171965_ (let () (declare (not safe)) - (_BUG172012_ _e172019_))))))))))))))) + (_BUG171942_ _e171949_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e172021172028_)) - (let ((_hd172025172126_ + (##pair? _e171951171958_)) + (let ((_hd171955172056_ (let () (declare (not safe)) - (##car _e172021172028_))) - (_tl172026172128_ + (##car _e171951171958_))) + (_tl171956172058_ (let () (declare (not safe)) - (##cdr _e172021172028_)))) - (let* ((_tag172131_ _hd172025172126_) - (_body172133_ _tl172026172128_)) + (##cdr _e171951171958_)))) + (let* ((_tag172061_ _hd171955172056_) + (_body172063_ _tl171956172058_)) (declare (not safe)) - (_K172024172123_ _body172133_ _tag172131_))) + (_K171954172053_ _body172063_ _tag172061_))) (let () (declare (not safe)) - (_E172023172032_)))))))) - (_parse171784_ - (lambda (_e171825_) - (letrec ((_make-cons171827_ - (lambda (_hd172002_ _tl172003_) - (let ((_g176530_ _hd172002_) - (_g176532_ _tl172003_)) + (_E171953171962_)))))))) + (_parse171714_ + (lambda (_e171755_) + (letrec ((_make-cons171757_ + (lambda (_hd171932_ _tl171933_) + (let ((_g176460_ _hd171932_) + (_g176462_ _tl171933_)) (begin - (let ((_g176531_ + (let ((_g176461_ (let () (declare (not safe)) - (if (##values? _g176530_) - (##vector-length _g176530_) + (if (##values? _g176460_) + (##vector-length _g176460_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176531_ 2))) + (##fx= _g176461_ 2))) (error "Context expects 2 values" - _g176531_))) - (let ((_g176533_ + _g176461_))) + (let ((_g176463_ (let () (declare (not safe)) - (if (##values? _g176532_) - (##vector-length _g176532_) + (if (##values? _g176462_) + (##vector-length _g176462_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176533_ 2))) + (##fx= _g176463_ 2))) (error "Context expects 2 values" - _g176533_))) - (let ((_hd-e172005_ + _g176463_))) + (let ((_hd-e171935_ (let () (declare (not safe)) - (##vector-ref _g176530_ 0))) - (_hd-vars172006_ + (##vector-ref _g176460_ 0))) + (_hd-vars171936_ (let () (declare (not safe)) - (##vector-ref _g176530_ 1)))) - (let ((_tl-e172007_ + (##vector-ref _g176460_ 1)))) + (let ((_tl-e171937_ (let () (declare (not safe)) - (##vector-ref _g176532_ 0))) - (_tl-vars172008_ + (##vector-ref _g176462_ 0))) + (_tl-vars171938_ (let () (declare (not safe)) - (##vector-ref _g176532_ 1)))) - (values (let ((__tmp176534 + (##vector-ref _g176462_ 1)))) + (values (let ((__tmp176464 (let () (declare (not safe)) - (cons _hd-e172005_ - _tl-e172007_)))) + (cons _hd-e171935_ + _tl-e171937_)))) (declare (not safe)) - (cons 'cons __tmp176534)) - (append _hd-vars172006_ - _tl-vars172008_)))))))) - (_make-splice171828_ - (lambda (_where171941_ - _depth171942_ - _hd171943_ - _tl171944_) - (let ((_g176535_ _hd171943_) - (_g176537_ _tl171944_)) + (cons 'cons __tmp176464)) + (append _hd-vars171936_ + _tl-vars171938_)))))))) + (_make-splice171758_ + (lambda (_where171871_ + _depth171872_ + _hd171873_ + _tl171874_) + (let ((_g176465_ _hd171873_) + (_g176467_ _tl171874_)) (begin - (let ((_g176536_ + (let ((_g176466_ (let () (declare (not safe)) - (if (##values? _g176535_) - (##vector-length _g176535_) + (if (##values? _g176465_) + (##vector-length _g176465_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176536_ 2))) + (##fx= _g176466_ 2))) (error "Context expects 2 values" - _g176536_))) - (let ((_g176538_ + _g176466_))) + (let ((_g176468_ (let () (declare (not safe)) - (if (##values? _g176537_) - (##vector-length _g176537_) + (if (##values? _g176467_) + (##vector-length _g176467_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176538_ 2))) + (##fx= _g176468_ 2))) (error "Context expects 2 values" - _g176538_))) - (let ((_hd-e171946_ + _g176468_))) + (let ((_hd-e171876_ (let () (declare (not safe)) - (##vector-ref _g176535_ 0))) - (_hd-vars171947_ + (##vector-ref _g176465_ 0))) + (_hd-vars171877_ (let () (declare (not safe)) - (##vector-ref _g176535_ 1)))) - (let ((_tl-e171948_ + (##vector-ref _g176465_ 1)))) + (let ((_tl-e171878_ (let () (declare (not safe)) - (##vector-ref _g176537_ 0))) - (_tl-vars171949_ + (##vector-ref _g176467_ 0))) + (_tl-vars171879_ (let () (declare (not safe)) - (##vector-ref _g176537_ 1)))) - (let _lp171951_ ((_rest171953_ - _hd-vars171947_) - (_targets171954_ '()) - (_vars171955_ - _tl-vars171949_)) - (let* ((_rest171956171966_ - _rest171953_) - (_else171958171974_ + (##vector-ref _g176467_ 1)))) + (let _lp171881_ ((_rest171883_ + _hd-vars171877_) + (_targets171884_ '()) + (_vars171885_ + _tl-vars171879_)) + (let* ((_rest171886171896_ + _rest171883_) + (_else171888171904_ (lambda () (if (let () (declare (not safe)) - (null? _targets171954_)) + (null? _targets171884_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx171781_ - _where171941_)) - (values (let ((__tmp176539 + _stx171711_ + _where171871_)) + (values (let ((__tmp176469 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp176540 - (let ((__tmp176541 + (let ((__tmp176470 + (let ((__tmp176471 (let () (declare (not safe)) - (cons _tl-e171948_ - _targets171954_)))) + (cons _tl-e171878_ + _targets171884_)))) (declare (not safe)) - (cons _hd-e171946_ __tmp176541)))) + (cons _hd-e171876_ __tmp176471)))) (declare (not safe)) - (cons _depth171942_ __tmp176540)))) + (cons _depth171872_ __tmp176470)))) (declare (not safe)) - (cons 'splice __tmp176539)) - _vars171955_)))) + (cons 'splice __tmp176469)) + _vars171885_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K171960171983_ - (lambda (_rest171977_ - _hd-pat171978_ - _hd-depth*171979_) - (let ((_hd-depth171981_ - (fx- _hd-depth*171979_ - _depth171942_))) + (_K171890171913_ + (lambda (_rest171907_ + _hd-pat171908_ + _hd-depth*171909_) + (let ((_hd-depth171911_ + (fx- _hd-depth*171909_ + _depth171872_))) (if (fxpositive? - _hd-depth171981_) - (let ((__tmp176546 + _hd-depth171911_) + (let ((__tmp176476 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp176547 + (let ((__tmp176477 (let () (declare (not safe)) - (cons 'ref _hd-pat171978_)))) + (cons 'ref _hd-pat171908_)))) (declare (not safe)) - (cons __tmp176547 _targets171954_))) - (__tmp176544 - (let ((__tmp176545 + (cons __tmp176477 _targets171884_))) + (__tmp176474 + (let ((__tmp176475 (let () (declare (not safe)) - (cons _hd-depth171981_ _hd-pat171978_)))) + (cons _hd-depth171911_ _hd-pat171908_)))) (declare (not safe)) - (cons __tmp176545 _vars171955_)))) + (cons __tmp176475 _vars171885_)))) (declare (not safe)) - (_lp171951_ _rest171977_ __tmp176546 __tmp176544)) - (if (let () (declare (not safe)) (fxzero? _hd-depth171981_)) - (let ((__tmp176542 - (let ((__tmp176543 + (_lp171881_ _rest171907_ __tmp176476 __tmp176474)) + (if (let () (declare (not safe)) (fxzero? _hd-depth171911_)) + (let ((__tmp176472 + (let ((__tmp176473 (let () (declare (not safe)) - (cons 'pattern _hd-pat171978_)))) + (cons 'pattern _hd-pat171908_)))) (declare (not safe)) - (cons __tmp176543 _targets171954_)))) + (cons __tmp176473 _targets171884_)))) (declare (not safe)) - (_lp171951_ _rest171977_ __tmp176542 _vars171955_)) + (_lp171881_ _rest171907_ __tmp176472 _vars171885_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _stx171781_ - _where171941_)))))))) + _stx171711_ + _where171871_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest171956171966_)) - (let ((_hd171961171986_ + (##pair? _rest171886171896_)) + (let ((_hd171891171916_ (let () (declare (not safe)) - (##car _rest171956171966_))) - (_tl171962171988_ + (##car _rest171886171896_))) + (_tl171892171918_ (let () (declare (not safe)) - (##cdr _rest171956171966_)))) + (##cdr _rest171886171896_)))) (if (let () (declare (not safe)) - (##pair? _hd171961171986_)) - (let ((_hd171963171991_ + (##pair? _hd171891171916_)) + (let ((_hd171893171921_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd171961171986_))) - (_tl171964171993_ - (let () (declare (not safe)) (##cdr _hd171961171986_)))) - (let* ((_hd-depth*171996_ _hd171963171991_) - (_hd-pat171998_ _tl171964171993_) - (_rest172000_ _tl171962171988_)) + (##car _hd171891171916_))) + (_tl171894171923_ + (let () (declare (not safe)) (##cdr _hd171891171916_)))) + (let* ((_hd-depth*171926_ _hd171893171921_) + (_hd-pat171928_ _tl171894171923_) + (_rest171930_ _tl171892171918_)) (declare (not safe)) - (_K171960171983_ - _rest172000_ - _hd-pat171998_ - _hd-depth*171996_))) - (let () (declare (not safe)) (_else171958171974_)))) + (_K171890171913_ + _rest171930_ + _hd-pat171928_ + _hd-depth*171926_))) + (let () (declare (not safe)) (_else171888171904_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else171958171974_))))))))))) - (_recur171829_ - (lambda (_e171834_ _is-e?171835_) - (if (_is-e?171835_ _e171834_) + (_else171888171904_))))))))))) + (_recur171759_ + (lambda (_e171764_ _is-e?171765_) + (if (_is-e?171765_ _e171764_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _stx171781_)) + _stx171711_)) (if (let () (declare (not safe)) - (gx#syntax-local-pattern? _e171834_)) - (let* ((_pat171837_ + (gx#syntax-local-pattern? _e171764_)) + (let* ((_pat171767_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _e171834_))) - (_depth171839_ + _e171764_))) + (_depth171769_ (##structure-ref - _pat171837_ + _pat171767_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _depth171839_) + (if (fxpositive? _depth171769_) (values (let () (declare (not safe)) (cons 'ref - _pat171837_)) - (let ((__tmp176563 + _pat171767_)) + (let ((__tmp176493 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _depth171839_ _pat171837_)))) + (cons _depth171769_ _pat171767_)))) (declare (not safe)) - (cons __tmp176563 '()))) + (cons __tmp176493 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (let () (declare (not safe)) (cons 'pattern - _pat171837_)) + _pat171767_)) '()))) (if (let () (declare (not safe)) - (gx#identifier? _e171834_)) + (gx#identifier? _e171764_)) (values (let () (declare (not safe)) - (cons 'term _e171834_)) + (cons 'term _e171764_)) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _e171834_)) - (let* ((_e171841171848_ - _e171834_) - (_E171843171852_ + (gx#stx-pair? _e171764_)) + (let* ((_e171771171778_ + _e171764_) + (_E171773171782_ (lambda () (let () (declare @@ -790,2457 +790,2457 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e171841171848_)))) - (_E171842171931_ + _e171771171778_)))) + (_E171772171861_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _e171841171848_)) - (let ((_e171844171856_ + (gx#stx-pair? _e171771171778_)) + (let ((_e171774171786_ (let () (declare (not safe)) - (gx#syntax-e _e171841171848_)))) - (let ((_hd171845171859_ + (gx#syntax-e _e171771171778_)))) + (let ((_hd171775171789_ (let () (declare (not safe)) - (##car _e171844171856_))) - (_tl171846171861_ + (##car _e171774171786_))) + (_tl171776171791_ (let () (declare (not safe)) - (##cdr _e171844171856_)))) - (let* ((_hd171864_ _hd171845171859_) - (_rest171866_ _tl171846171861_)) + (##cdr _e171774171786_)))) + (let* ((_hd171794_ _hd171775171789_) + (_rest171796_ _tl171776171791_)) (if '#t - (if (_is-e?171835_ _hd171864_) - (let* ((_e171867171874_ _rest171866_) - (_E171869171878_ + (if (_is-e?171765_ _hd171794_) + (let* ((_e171797171804_ _rest171796_) + (_E171799171808_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _stx171781_ - _e171834_)))) - (_E171868171892_ + _stx171711_ + _e171764_)))) + (_E171798171822_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e171867171874_)) - (let ((_e171870171882_ + _e171797171804_)) + (let ((_e171800171812_ (let () (declare (not safe)) (gx#syntax-e - _e171867171874_)))) - (let ((_hd171871171885_ + _e171797171804_)))) + (let ((_hd171801171815_ (let () (declare (not safe)) - (##car _e171870171882_))) - (_tl171872171887_ + (##car _e171800171812_))) + (_tl171802171817_ (let () (declare (not safe)) - (##cdr _e171870171882_)))) - (let ((_rest171890_ - _hd171871171885_)) + (##cdr _e171800171812_)))) + (let ((_rest171820_ + _hd171801171815_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl171872171887_)) + _tl171802171817_)) (if '#t (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_recur171829_ _rest171890_ false)) - (let () (declare (not safe)) (_E171869171878_))) - (let () (declare (not safe)) (_E171869171878_)))))) + (_recur171759_ _rest171820_ false)) + (let () (declare (not safe)) (_E171799171808_))) + (let () (declare (not safe)) (_E171799171808_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E171869171878_)))))) + (_E171799171808_)))))) (let () (declare (not safe)) - (_E171868171892_))) - (let _lp171896_ ((_rest171898_ - _rest171866_) - (_depth171899_ '0)) - (let* ((_e171900171907_ _rest171898_) - (_E171902171911_ + (_E171798171822_))) + (let _lp171826_ ((_rest171828_ + _rest171796_) + (_depth171829_ '0)) + (let* ((_e171830171837_ _rest171828_) + (_E171832171841_ (lambda () - (if (fxpositive? _depth171899_) - (let ((__tmp176557 + (if (fxpositive? _depth171829_) + (let ((__tmp176487 (let () (declare (not safe)) - (_recur171829_ - _hd171864_ - _is-e?171835_))) - (__tmp176556 + (_recur171759_ + _hd171794_ + _is-e?171765_))) + (__tmp176486 (let () (declare (not safe)) - (_recur171829_ - _rest171898_ - _is-e?171835_)))) + (_recur171759_ + _rest171828_ + _is-e?171765_)))) (declare (not safe)) - (_make-splice171828_ - _e171834_ - _depth171899_ - __tmp176557 - __tmp176556)) - (let ((__tmp176555 + (_make-splice171758_ + _e171764_ + _depth171829_ + __tmp176487 + __tmp176486)) + (let ((__tmp176485 (let () (declare (not safe)) - (_recur171829_ - _hd171864_ - _is-e?171835_))) - (__tmp176554 + (_recur171759_ + _hd171794_ + _is-e?171765_))) + (__tmp176484 (let () (declare (not safe)) - (_recur171829_ - _rest171898_ - _is-e?171835_)))) + (_recur171759_ + _rest171828_ + _is-e?171765_)))) (declare (not safe)) - (_make-cons171827_ - __tmp176555 - __tmp176554))))) - (_E171901171927_ + (_make-cons171757_ + __tmp176485 + __tmp176484))))) + (_E171831171857_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e171900171907_)) - (let ((_e171903171915_ + _e171830171837_)) + (let ((_e171833171845_ (let () (declare (not safe)) (gx#syntax-e - _e171900171907_)))) - (let ((_hd171904171918_ + _e171830171837_)))) + (let ((_hd171834171848_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e171903171915_))) - (_tl171905171920_ - (let () (declare (not safe)) (##cdr _e171903171915_)))) - (let* ((_rest-hd171923_ _hd171904171918_) - (_rest-tl171925_ _tl171905171920_)) + (##car _e171833171845_))) + (_tl171835171850_ + (let () (declare (not safe)) (##cdr _e171833171845_)))) + (let* ((_rest-hd171853_ _hd171834171848_) + (_rest-tl171855_ _tl171835171850_)) (if '#t - (if (_is-e?171835_ _rest-hd171923_) - (let ((__tmp176562 + (if (_is-e?171765_ _rest-hd171853_) + (let ((__tmp176492 (let () (declare (not safe)) - (fx+ _depth171899_ '1)))) + (fx+ _depth171829_ '1)))) (declare (not safe)) - (_lp171896_ _rest-tl171925_ __tmp176562)) - (if (fxpositive? _depth171899_) - (let ((__tmp176561 + (_lp171826_ _rest-tl171855_ __tmp176492)) + (if (fxpositive? _depth171829_) + (let ((__tmp176491 (let () (declare (not safe)) - (_recur171829_ - _hd171864_ - _is-e?171835_))) - (__tmp176560 + (_recur171759_ + _hd171794_ + _is-e?171765_))) + (__tmp176490 (let () (declare (not safe)) - (_recur171829_ - _rest171898_ - _is-e?171835_)))) + (_recur171759_ + _rest171828_ + _is-e?171765_)))) (declare (not safe)) - (_make-splice171828_ - _e171834_ - _depth171899_ - __tmp176561 - __tmp176560)) - (let ((__tmp176559 + (_make-splice171758_ + _e171764_ + _depth171829_ + __tmp176491 + __tmp176490)) + (let ((__tmp176489 (let () (declare (not safe)) - (_recur171829_ - _hd171864_ - _is-e?171835_))) - (__tmp176558 + (_recur171759_ + _hd171794_ + _is-e?171765_))) + (__tmp176488 (let () (declare (not safe)) - (_recur171829_ - _rest171898_ - _is-e?171835_)))) + (_recur171759_ + _rest171828_ + _is-e?171765_)))) (declare (not safe)) - (_make-cons171827_ __tmp176559 __tmp176558)))) - (let () (declare (not safe)) (_E171902171911_)))))) + (_make-cons171757_ __tmp176489 __tmp176488)))) + (let () (declare (not safe)) (_E171832171841_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E171902171911_)))))) + (_E171832171841_)))))) (let () (declare (not safe)) - (_E171901171927_))))) + (_E171831171857_))))) (let () (declare (not safe)) - (_E171843171852_)))))) - (let () (declare (not safe)) (_E171843171852_)))))) + (_E171773171782_)))))) + (let () (declare (not safe)) (_E171773171782_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E171842171931_))) + (_E171772171861_))) (if (let () (declare (not safe)) (gx#stx-vector? - _e171834_)) - (let ((_g176551_ - (let ((__tmp176553 + _e171764_)) + (let ((_g176481_ + (let ((__tmp176483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (vector->list (let () (declare (not safe)) - (gx#stx-unwrap__0 _e171834_))))) + (gx#stx-unwrap__0 _e171764_))))) (declare (not safe)) - (_recur171829_ __tmp176553 _is-e?171835_)))) + (_recur171759_ __tmp176483 _is-e?171765_)))) (begin - (let ((_g176552_ + (let ((_g176482_ (let () (declare (not safe)) - (if (##values? _g176551_) - (##vector-length _g176551_) + (if (##values? _g176481_) + (##vector-length _g176481_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g176552_ 2))) - (error "Context expects 2 values" _g176552_))) - (let ((_e171935_ + (if (not (let () (declare (not safe)) (##fx= _g176482_ 2))) + (error "Context expects 2 values" _g176482_))) + (let ((_e171865_ (let () (declare (not safe)) - (##vector-ref _g176551_ 0))) - (_vars171936_ + (##vector-ref _g176481_ 0))) + (_vars171866_ (let () (declare (not safe)) - (##vector-ref _g176551_ 1)))) + (##vector-ref _g176481_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e171935_)) - _vars171936_)))) + (cons 'vector _e171865_)) + _vars171866_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _e171834_)) - (let ((_g176548_ - (let ((__tmp176550 + _e171764_)) + (let ((_g176478_ + (let ((__tmp176480 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (unbox (let () (declare (not safe)) - (gx#stx-unwrap__0 _e171834_))))) + (gx#stx-unwrap__0 _e171764_))))) (declare (not safe)) - (_recur171829_ __tmp176550 _is-e?171835_)))) + (_recur171759_ __tmp176480 _is-e?171765_)))) (begin - (let ((_g176549_ + (let ((_g176479_ (let () (declare (not safe)) - (if (##values? _g176548_) - (##vector-length _g176548_) + (if (##values? _g176478_) + (##vector-length _g176478_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176549_ 2))) - (error "Context expects 2 values" _g176549_))) - (let ((_e171938_ + (##fx= _g176479_ 2))) + (error "Context expects 2 values" _g176479_))) + (let ((_e171868_ (let () (declare (not safe)) - (##vector-ref _g176548_ 0))) - (_vars171939_ + (##vector-ref _g176478_ 0))) + (_vars171869_ (let () (declare (not safe)) - (##vector-ref _g176548_ 1)))) + (##vector-ref _g176478_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e171938_)) - _vars171939_)))) - (values (let () (declare (not safe)) (cons 'datum _e171834_)) + (cons 'box _e171868_)) + _vars171869_)))) + (values (let () (declare (not safe)) (cons 'datum _e171764_)) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g176564_ + (let ((_g176494_ (let () (declare (not safe)) - (_recur171829_ _e171825_ gx#ellipsis?)))) + (_recur171759_ _e171755_ gx#ellipsis?)))) (begin - (let ((_g176565_ + (let ((_g176495_ (let () (declare (not safe)) - (if (##values? _g176564_) - (##vector-length _g176564_) + (if (##values? _g176494_) + (##vector-length _g176494_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176565_ 2))) - (error "Context expects 2 values" _g176565_))) - (let ((_tree171831_ + (##fx= _g176495_ 2))) + (error "Context expects 2 values" _g176495_))) + (let ((_tree171761_ (let () (declare (not safe)) - (##vector-ref _g176564_ 0))) - (_vars171832_ + (##vector-ref _g176494_ 0))) + (_vars171762_ (let () (declare (not safe)) - (##vector-ref _g176564_ 1)))) + (##vector-ref _g176494_ 1)))) (if (let () (declare (not safe)) - (null? _vars171832_)) - _tree171831_ + (null? _vars171762_)) + _tree171761_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _stx171781_ - _vars171832_)))))))))) - (let* ((_e171785171795_ _stx171781_) - (_E171787171799_ + _stx171711_ + _vars171762_)))))))))) + (let* ((_e171715171725_ _stx171711_) + (_E171717171729_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _stx171781_)))) - (_E171786171821_ + _stx171711_)))) + (_E171716171751_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e171785171795_)) - (let ((_e171788171803_ + (gx#stx-pair? _e171715171725_)) + (let ((_e171718171733_ (let () (declare (not safe)) - (gx#syntax-e _e171785171795_)))) - (let ((_hd171789171806_ + (gx#syntax-e _e171715171725_)))) + (let ((_hd171719171736_ (let () (declare (not safe)) - (##car _e171788171803_))) - (_tl171790171808_ + (##car _e171718171733_))) + (_tl171720171738_ (let () (declare (not safe)) - (##cdr _e171788171803_)))) + (##cdr _e171718171733_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl171790171808_)) - (let ((_e171791171811_ + (gx#stx-pair? _tl171720171738_)) + (let ((_e171721171741_ (let () (declare (not safe)) - (gx#syntax-e _tl171790171808_)))) - (let ((_hd171792171814_ + (gx#syntax-e _tl171720171738_)))) + (let ((_hd171722171744_ (let () (declare (not safe)) - (##car _e171791171811_))) - (_tl171793171816_ + (##car _e171721171741_))) + (_tl171723171746_ (let () (declare (not safe)) - (##cdr _e171791171811_)))) - (let ((_form171819_ _hd171792171814_)) + (##cdr _e171721171741_)))) + (let ((_form171749_ _hd171722171744_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl171793171816_)) + (gx#stx-null? _tl171723171746_)) (if '#t - (let ((__tmp176567 - (let ((__tmp176568 + (let ((__tmp176497 + (let ((__tmp176498 (let () (declare (not safe)) - (_parse171784_ - _form171819_)))) + (_parse171714_ + _form171749_)))) (declare (not safe)) - (_generate171783_ - __tmp176568))) - (__tmp176566 + (_generate171713_ + __tmp176498))) + (__tmp176496 (let () (declare (not safe)) (gx#stx-source - _stx171781_)))) + _stx171711_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp176567 - __tmp176566)) + __tmp176497 + __tmp176496)) (let () (declare (not safe)) - (_E171787171799_))) + (_E171717171729_))) (let () (declare (not safe)) - (_E171787171799_)))))) + (_E171717171729_)))))) (let () (declare (not safe)) - (_E171787171799_))))) - (let () (declare (not safe)) (_E171787171799_)))))) - (let () (declare (not safe)) (_E171786171821_)))))) + (_E171717171729_))))) + (let () (declare (not safe)) (_E171717171729_)))))) + (let () (declare (not safe)) (_E171716171751_)))))) (define gx#macro-expand-syntax-case__% - (lambda (_stx171045_ - _identifier=?171046_ - _unwrap-e171047_ - _wrap-e171048_) - (letrec ((_generate-bindings171050_ - (lambda (_target171645_ - _ids171646_ - _clauses171647_ - _clause-ids171648_ - _E171649_) - (letrec ((_generate1171651_ - (lambda (_clause171748_ - _clause-id171749_ - _E171750_) - (let ((__tmp176573 + (lambda (_stx170975_ + _identifier=?170976_ + _unwrap-e170977_ + _wrap-e170978_) + (letrec ((_generate-bindings170980_ + (lambda (_target171575_ + _ids171576_ + _clauses171577_ + _clause-ids171578_ + _E171579_) + (letrec ((_generate1171581_ + (lambda (_clause171678_ + _clause-id171679_ + _E171680_) + (let ((__tmp176503 (let () (declare (not safe)) - (cons _clause-id171749_ '()))) - (__tmp176569 - (let ((__tmp176570 - (let ((__tmp176572 + (cons _clause-id171679_ '()))) + (__tmp176499 + (let ((__tmp176500 + (let ((__tmp176502 (let () (declare (not safe)) - (cons _target171645_ + (cons _target171575_ '()))) - (__tmp176571 + (__tmp176501 (let () (declare (not safe)) - (_generate-clause171052_ - _target171645_ - _ids171646_ - _clause171748_ - _E171750_)))) + (_generate-clause170982_ + _target171575_ + _ids171576_ + _clause171678_ + _E171680_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp176572 - __tmp176571)))) + __tmp176502 + __tmp176501)))) (declare (not safe)) - (cons __tmp176570 '())))) + (cons __tmp176500 '())))) (declare (not safe)) - (cons __tmp176573 __tmp176569))))) - (let _lp171653_ ((_rest171655_ _clauses171647_) - (_rest-ids171656_ _clause-ids171648_) - (_bindings171657_ '())) - (let* ((_rest171658171666_ _rest171655_) - (_else171660171674_ - (lambda () _bindings171657_)) - (_K171662171736_ - (lambda (_rest171677_ _clause171678_) - (let* ((_rest-ids171679171686_ - _rest-ids171656_) - (_E171681171690_ + (cons __tmp176503 __tmp176499))))) + (let _lp171583_ ((_rest171585_ _clauses171577_) + (_rest-ids171586_ _clause-ids171578_) + (_bindings171587_ '())) + (let* ((_rest171588171596_ _rest171585_) + (_else171590171604_ + (lambda () _bindings171587_)) + (_K171592171666_ + (lambda (_rest171607_ _clause171608_) + (let* ((_rest-ids171609171616_ + _rest-ids171586_) + (_E171611171620_ (lambda () (error '"No clause matching" - _rest-ids171679171686_))) - (_K171682171724_ - (lambda (_rest-ids171693_ - _clause-id171694_) - (let* ((_rest-ids171695171703_ - _rest-ids171693_) - (_else171697171711_ + _rest-ids171609171616_))) + (_K171612171654_ + (lambda (_rest-ids171623_ + _clause-id171624_) + (let* ((_rest-ids171625171633_ + _rest-ids171623_) + (_else171627171641_ (lambda () - (let ((__tmp176574 + (let ((__tmp176504 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate1171651_ - _clause171678_ - _clause-id171694_ - _E171649_)))) + (_generate1171581_ + _clause171608_ + _clause-id171624_ + _E171579_)))) (declare (not safe)) - (cons __tmp176574 _bindings171657_)))) + (cons __tmp176504 _bindings171587_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K171699171716_ - (lambda (_next-clause-id171714_) - (let ((__tmp176575 - (let ((__tmp176576 + (_K171629171646_ + (lambda (_next-clause-id171644_) + (let ((__tmp176505 + (let ((__tmp176506 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_generate1171651_ - _clause171678_ - _clause-id171694_ - _next-clause-id171714_)))) + (_generate1171581_ + _clause171608_ + _clause-id171624_ + _next-clause-id171644_)))) (declare (not safe)) - (cons __tmp176576 _bindings171657_)))) + (cons __tmp176506 _bindings171587_)))) (declare (not safe)) - (_lp171653_ _rest171677_ _rest-ids171693_ __tmp176575))))) + (_lp171583_ _rest171607_ _rest-ids171623_ __tmp176505))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest-ids171695171703_)) - (let* ((_hd171700171719_ + (##pair? _rest-ids171625171633_)) + (let* ((_hd171630171649_ (let () (declare (not safe)) - (##car _rest-ids171695171703_))) - (_next-clause-id171722_ - _hd171700171719_)) + (##car _rest-ids171625171633_))) + (_next-clause-id171652_ + _hd171630171649_)) (declare (not safe)) - (_K171699171716_ - _next-clause-id171722_)) + (_K171629171646_ + _next-clause-id171652_)) (let () (declare (not safe)) - (_else171697171711_))))))) + (_else171627171641_))))))) (if (let () (declare (not safe)) - (##pair? _rest-ids171679171686_)) - (let ((_hd171683171727_ + (##pair? _rest-ids171609171616_)) + (let ((_hd171613171657_ (let () (declare (not safe)) - (##car _rest-ids171679171686_))) - (_tl171684171729_ + (##car _rest-ids171609171616_))) + (_tl171614171659_ (let () (declare (not safe)) - (##cdr _rest-ids171679171686_)))) - (let* ((_clause-id171732_ - _hd171683171727_) - (_rest-ids171734_ - _tl171684171729_)) + (##cdr _rest-ids171609171616_)))) + (let* ((_clause-id171662_ + _hd171613171657_) + (_rest-ids171664_ + _tl171614171659_)) (declare (not safe)) - (_K171682171724_ - _rest-ids171734_ - _clause-id171732_))) + (_K171612171654_ + _rest-ids171664_ + _clause-id171662_))) (let () (declare (not safe)) - (_E171681171690_))))))) + (_E171611171620_))))))) (if (let () (declare (not safe)) - (##pair? _rest171658171666_)) - (let ((_hd171663171739_ + (##pair? _rest171588171596_)) + (let ((_hd171593171669_ (let () (declare (not safe)) - (##car _rest171658171666_))) - (_tl171664171741_ + (##car _rest171588171596_))) + (_tl171594171671_ (let () (declare (not safe)) - (##cdr _rest171658171666_)))) - (let* ((_clause171744_ _hd171663171739_) - (_rest171746_ _tl171664171741_)) + (##cdr _rest171588171596_)))) + (let* ((_clause171674_ _hd171593171669_) + (_rest171676_ _tl171594171671_)) (declare (not safe)) - (_K171662171736_ - _rest171746_ - _clause171744_))) + (_K171592171666_ + _rest171676_ + _clause171674_))) (let () (declare (not safe)) - (_else171660171674_)))))))) - (_generate-body171051_ - (lambda (_bindings171605_ _body171606_) - (let _recur171608_ ((_rest171610_ _bindings171605_)) - (let* ((_rest171611171619_ _rest171610_) - (_else171613171627_ (lambda () _body171606_)) - (_K171615171633_ - (lambda (_rest171630_ _hd171631_) - (let ((__tmp176578 + (_else171590171604_)))))))) + (_generate-body170981_ + (lambda (_bindings171535_ _body171536_) + (let _recur171538_ ((_rest171540_ _bindings171535_)) + (let* ((_rest171541171549_ _rest171540_) + (_else171543171557_ (lambda () _body171536_)) + (_K171545171563_ + (lambda (_rest171560_ _hd171561_) + (let ((__tmp176508 (let () (declare (not safe)) - (cons _hd171631_ '()))) - (__tmp176577 + (cons _hd171561_ '()))) + (__tmp176507 (let () (declare (not safe)) - (_recur171608_ _rest171630_)))) + (_recur171538_ _rest171560_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp176578 - __tmp176577))))) + __tmp176508 + __tmp176507))))) (if (let () (declare (not safe)) - (##pair? _rest171611171619_)) - (let ((_hd171616171636_ + (##pair? _rest171541171549_)) + (let ((_hd171546171566_ (let () (declare (not safe)) - (##car _rest171611171619_))) - (_tl171617171638_ + (##car _rest171541171549_))) + (_tl171547171568_ (let () (declare (not safe)) - (##cdr _rest171611171619_)))) - (let* ((_hd171641_ _hd171616171636_) - (_rest171643_ _tl171617171638_)) + (##cdr _rest171541171549_)))) + (let* ((_hd171571_ _hd171546171566_) + (_rest171573_ _tl171547171568_)) (declare (not safe)) - (_K171615171633_ _rest171643_ _hd171641_))) + (_K171545171563_ _rest171573_ _hd171571_))) (let () (declare (not safe)) - (_else171613171627_))))))) - (_generate-clause171052_ - (lambda (_target171468_ _ids171469_ _clause171470_ _E171471_) - (letrec ((_generate1171473_ - (lambda (_hd171560_ _fender171561_ _body171562_) - (let ((_g176579_ + (_else171543171557_))))))) + (_generate-clause170982_ + (lambda (_target171398_ _ids171399_ _clause171400_ _E171401_) + (letrec ((_generate1171403_ + (lambda (_hd171490_ _fender171491_ _body171492_) + (let ((_g176509_ (let () (declare (not safe)) - (_parse-clause171054_ - _hd171560_ - _ids171469_)))) + (_parse-clause170984_ + _hd171490_ + _ids171399_)))) (begin - (let ((_g176580_ + (let ((_g176510_ (let () (declare (not safe)) - (if (##values? _g176579_) - (##vector-length _g176579_) + (if (##values? _g176509_) + (##vector-length _g176509_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176580_ 2))) + (##fx= _g176510_ 2))) (error "Context expects 2 values" - _g176580_))) - (let ((_e171564_ + _g176510_))) + (let ((_e171494_ (let () (declare (not safe)) - (##vector-ref _g176579_ 0))) - (_mvars171565_ + (##vector-ref _g176509_ 0))) + (_mvars171495_ (let () (declare (not safe)) - (##vector-ref _g176579_ 1)))) - (let* ((_pvars171567_ + (##vector-ref _g176509_ 1)))) + (let* ((_pvars171497_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _mvars171565_)))) - (_E171569_ - (let ((__tmp176581 + _mvars171495_)))) + (_E171499_ + (let ((__tmp176511 (let () (declare (not safe)) - (cons _target171468_ + (cons _target171398_ '())))) (declare (not safe)) - (cons _E171471_ __tmp176581))) - (_K171602_ - (let ((__tmp176582 - (let ((__tmp176584 - (map (lambda (_mvar171571_ + (cons _E171401_ __tmp176511))) + (_K171532_ + (let ((__tmp176512 + (let ((__tmp176514 + (map (lambda (_mvar171501_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pvar171572_) - (let* ((_mvar171573171580_ _mvar171571_) - (_E171575171584_ + _pvar171502_) + (let* ((_mvar171503171510_ _mvar171501_) + (_E171505171514_ (lambda () (error '"No clause matching" - _mvar171573171580_))) - (_K171576171590_ - (lambda (_depth171587_ _id171588_) - (let ((__tmp176585 - (let ((__tmp176586 - (let ((__tmp176588 + _mvar171503171510_))) + (_K171506171520_ + (lambda (_depth171517_ _id171518_) + (let ((__tmp176515 + (let ((__tmp176516 + (let ((__tmp176518 (let () (declare (not safe)) (gx#core-list 'quote - _id171588_))) - (__tmp176587 + _id171518_))) + (__tmp176517 (let () (declare (not safe)) (gx#core-list 'quote - _pvar171572_)))) + _pvar171502_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp176588 - __tmp176587 - _depth171587_)))) + __tmp176518 + __tmp176517 + _depth171517_)))) (declare (not safe)) - (cons __tmp176586 '())))) + (cons __tmp176516 '())))) (declare (not safe)) - (cons _id171588_ __tmp176585))))) + (cons _id171518_ __tmp176515))))) (if (let () (declare (not safe)) - (##pair? _mvar171573171580_)) - (let ((_hd171577171593_ + (##pair? _mvar171503171510_)) + (let ((_hd171507171523_ (let () (declare (not safe)) - (##car _mvar171573171580_))) - (_tl171578171595_ + (##car _mvar171503171510_))) + (_tl171508171525_ (let () (declare (not safe)) - (##cdr _mvar171573171580_)))) - (let* ((_id171598_ _hd171577171593_) - (_depth171600_ _tl171578171595_)) + (##cdr _mvar171503171510_)))) + (let* ((_id171528_ _hd171507171523_) + (_depth171530_ _tl171508171525_)) (declare (not safe)) - (_K171576171590_ - _depth171600_ - _id171598_))) + (_K171506171520_ + _depth171530_ + _id171528_))) (let () (declare (not safe)) - (_E171575171584_))))) - _mvars171565_ - _pvars171567_)) - (__tmp176583 - (if (let () (declare (not safe)) (eq? _fender171561_ '#t)) - _body171562_ + (_E171505171514_))))) + _mvars171495_ + _pvars171497_)) + (__tmp176513 + (if (let () (declare (not safe)) (eq? _fender171491_ '#t)) + _body171492_ (let () (declare (not safe)) (gx#core-list 'if - _fender171561_ - _body171562_ - _E171569_))))) + _fender171491_ + _body171492_ + _E171499_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp176584 __tmp176583)))) + (gx#core-list 'let-syntax __tmp176514 __tmp176513)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _pvars171567_ - __tmp176582)))) + _pvars171497_ + __tmp176512)))) (let () (declare (not safe)) - (_generate-match171053_ - _hd171560_ - _target171468_ - _e171564_ - _mvars171565_ - _K171602_ - _E171569_))))))))) - (let* ((_e171474171494_ _clause171470_) - (_E171483171498_ + (_generate-match170983_ + _hd171490_ + _target171398_ + _e171494_ + _mvars171495_ + _K171532_ + _E171499_))))))))) + (let* ((_e171404171424_ _clause171400_) + (_E171413171428_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e171474171494_)))) - (_E171476171532_ + _e171404171424_)))) + (_E171406171462_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e171474171494_)) - (let ((_e171484171502_ + (gx#stx-pair? _e171404171424_)) + (let ((_e171414171432_ (let () (declare (not safe)) - (gx#syntax-e _e171474171494_)))) - (let ((_hd171485171505_ + (gx#syntax-e _e171404171424_)))) + (let ((_hd171415171435_ (let () (declare (not safe)) - (##car _e171484171502_))) - (_tl171486171507_ + (##car _e171414171432_))) + (_tl171416171437_ (let () (declare (not safe)) - (##cdr _e171484171502_)))) - (let ((_hd171510_ _hd171485171505_)) + (##cdr _e171414171432_)))) + (let ((_hd171440_ _hd171415171435_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl171486171507_)) - (let ((_e171487171512_ + _tl171416171437_)) + (let ((_e171417171442_ (let () (declare (not safe)) (gx#syntax-e - _tl171486171507_)))) - (let ((_hd171488171515_ + _tl171416171437_)))) + (let ((_hd171418171445_ (let () (declare (not safe)) - (##car _e171487171512_))) - (_tl171489171517_ + (##car _e171417171442_))) + (_tl171419171447_ (let () (declare (not safe)) - (##cdr _e171487171512_)))) - (let ((_fender171520_ - _hd171488171515_)) + (##cdr _e171417171442_)))) + (let ((_fender171450_ + _hd171418171445_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl171489171517_)) - (let ((_e171490171522_ + _tl171419171447_)) + (let ((_e171420171452_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl171489171517_)))) - (let ((_hd171491171525_ - (let () (declare (not safe)) (##car _e171490171522_))) - (_tl171492171527_ + (gx#syntax-e _tl171419171447_)))) + (let ((_hd171421171455_ + (let () (declare (not safe)) (##car _e171420171452_))) + (_tl171422171457_ (let () (declare (not safe)) - (##cdr _e171490171522_)))) - (let ((_body171530_ _hd171491171525_)) + (##cdr _e171420171452_)))) + (let ((_body171460_ _hd171421171455_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl171492171527_)) + (gx#stx-null? _tl171422171457_)) (if '#t (let () (declare (not safe)) - (_generate1171473_ - _hd171510_ - _fender171520_ - _body171530_)) - (let () (declare (not safe)) (_E171483171498_))) - (let () (declare (not safe)) (_E171483171498_)))))) - (let () (declare (not safe)) (_E171483171498_)))))) + (_generate1171403_ + _hd171440_ + _fender171450_ + _body171460_)) + (let () (declare (not safe)) (_E171413171428_))) + (let () (declare (not safe)) (_E171413171428_)))))) + (let () (declare (not safe)) (_E171413171428_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E171483171498_)))))) + (_E171413171428_)))))) (let () (declare (not safe)) - (_E171483171498_))))) - (_E171475171556_ + (_E171413171428_))))) + (_E171405171486_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e171474171494_)) - (let ((_e171477171536_ + (gx#stx-pair? _e171404171424_)) + (let ((_e171407171466_ (let () (declare (not safe)) - (gx#syntax-e _e171474171494_)))) - (let ((_hd171478171539_ + (gx#syntax-e _e171404171424_)))) + (let ((_hd171408171469_ (let () (declare (not safe)) - (##car _e171477171536_))) - (_tl171479171541_ + (##car _e171407171466_))) + (_tl171409171471_ (let () (declare (not safe)) - (##cdr _e171477171536_)))) - (let ((_hd171544_ _hd171478171539_)) + (##cdr _e171407171466_)))) + (let ((_hd171474_ _hd171408171469_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl171479171541_)) - (let ((_e171480171546_ + _tl171409171471_)) + (let ((_e171410171476_ (let () (declare (not safe)) (gx#syntax-e - _tl171479171541_)))) - (let ((_hd171481171549_ + _tl171409171471_)))) + (let ((_hd171411171479_ (let () (declare (not safe)) - (##car _e171480171546_))) - (_tl171482171551_ + (##car _e171410171476_))) + (_tl171412171481_ (let () (declare (not safe)) - (##cdr _e171480171546_)))) - (let ((_body171554_ - _hd171481171549_)) + (##cdr _e171410171476_)))) + (let ((_body171484_ + _hd171411171479_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl171482171551_)) + _tl171412171481_)) (if '#t (let () (declare (not safe)) - (_generate1171473_ - _hd171544_ + (_generate1171403_ + _hd171474_ '#t - _body171554_)) + _body171484_)) (let () (declare (not safe)) - (_E171476171532_))) + (_E171406171462_))) (let () (declare (not safe)) - (_E171476171532_)))))) + (_E171406171462_)))))) (let () (declare (not safe)) - (_E171476171532_)))))) + (_E171406171462_)))))) (let () (declare (not safe)) - (_E171476171532_)))))) - (let () (declare (not safe)) (_E171475171556_)))))) - (_generate-match171053_ - (lambda (_where171217_ - _target171218_ - _hd171219_ - _mvars171220_ - _K171221_ - _E171222_) - (letrec ((_BUG171224_ - (lambda (_q171466_) + (_E171406171462_)))))) + (let () (declare (not safe)) (_E171405171486_)))))) + (_generate-match170983_ + (lambda (_where171147_ + _target171148_ + _hd171149_ + _mvars171150_ + _K171151_ + _E171152_) + (letrec ((_BUG171154_ + (lambda (_q171396_) (error '"BUG: syntax-case; generate" - _stx171045_ - _hd171219_ - _q171466_))) - (_recur171225_ - (lambda (_e171316_ - _vars171317_ - _target171318_ - _E171319_ - _k171320_) - (let* ((_e171321171328_ _e171316_) - (_E171323171332_ + _stx170975_ + _hd171149_ + _q171396_))) + (_recur171155_ + (lambda (_e171246_ + _vars171247_ + _target171248_ + _E171249_ + _k171250_) + (let* ((_e171251171258_ _e171246_) + (_E171253171262_ (lambda () (error '"No clause matching" - _e171321171328_))) - (_K171324171454_ - (lambda (_body171335_ _tag171336_) - (let ((_$e171338_ _tag171336_)) + _e171251171258_))) + (_K171254171384_ + (lambda (_body171265_ _tag171266_) + (let ((_$e171268_ _tag171266_)) (if (let () (declare (not safe)) - (eq? 'any _$e171338_)) - (_k171320_ _vars171317_) + (eq? 'any _$e171268_)) + (_k171250_ _vars171247_) (if (let () (declare (not safe)) - (eq? 'id _$e171338_)) - (let ((__tmp176695 + (eq? 'id _$e171268_)) + (let ((__tmp176625 (let () (declare (not safe)) (gx#core-list 'identifier? - _target171318_))) - (__tmp176691 - (let ((__tmp176693 + _target171248_))) + (__tmp176621 + (let ((__tmp176623 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp176694 + (let ((__tmp176624 (let () (declare (not safe)) (gx#core-list - _wrap-e171048_ - _body171335_)))) + _wrap-e170978_ + _body171265_)))) (declare (not safe)) (gx#core-list - _identifier=?171046_ - __tmp176694 - _target171318_))) - (__tmp176692 (_k171320_ _vars171317_))) + _identifier=?170976_ + __tmp176624 + _target171248_))) + (__tmp176622 (_k171250_ _vars171247_))) (declare (not safe)) - (gx#core-list 'if __tmp176693 __tmp176692 _E171319_)))) + (gx#core-list 'if __tmp176623 __tmp176622 _E171249_)))) (declare (not safe)) - (gx#core-list 'if __tmp176695 __tmp176691 _E171319_)) + (gx#core-list 'if __tmp176625 __tmp176621 _E171249_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (eq? 'var - _$e171338_)) - (_k171320_ - (let ((__tmp176690 + _$e171268_)) + (_k171250_ + (let ((__tmp176620 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body171335_ _target171318_)))) + (cons _body171265_ _target171248_)))) (declare (not safe)) - (cons __tmp176690 _vars171317_))) - (if (let () (declare (not safe)) (eq? 'cons _$e171338_)) - (let ((_$e171341_ + (cons __tmp176620 _vars171247_))) + (if (let () (declare (not safe)) (eq? 'cons _$e171268_)) + (let ((_$e171271_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$hd171342_ + (_$hd171272_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl171343_ + (_$tl171273_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp176689 + (let ((__tmp176619 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _target171318_))) - (__tmp176670 - (let ((__tmp176684 - (let ((__tmp176685 - (let ((__tmp176688 + (gx#core-list 'stx-pair? _target171248_))) + (__tmp176600 + (let ((__tmp176614 + (let ((__tmp176615 + (let ((__tmp176618 (let () (declare (not safe)) - (cons _$e171341_ '()))) - (__tmp176686 - (let ((__tmp176687 + (cons _$e171271_ '()))) + (__tmp176616 + (let ((__tmp176617 (let () (declare (not safe)) (gx#core-list - _unwrap-e171047_ - _target171318_)))) + _unwrap-e170977_ + _target171248_)))) (declare (not safe)) - (cons __tmp176687 '())))) + (cons __tmp176617 '())))) (declare (not safe)) - (cons __tmp176688 __tmp176686)))) + (cons __tmp176618 __tmp176616)))) (declare (not safe)) - (cons __tmp176685 '()))) - (__tmp176671 - (let ((__tmp176674 - (let ((__tmp176680 - (let ((__tmp176683 + (cons __tmp176615 '()))) + (__tmp176601 + (let ((__tmp176604 + (let ((__tmp176610 + (let ((__tmp176613 (let () (declare (not safe)) - (cons _$hd171342_ + (cons _$hd171272_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp176681 - (let ((__tmp176682 + (__tmp176611 + (let ((__tmp176612 (let () (declare (not safe)) - (gx#core-list '##car _$e171341_)))) + (gx#core-list '##car _$e171271_)))) (declare (not safe)) - (cons __tmp176682 '())))) + (cons __tmp176612 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp176683 - __tmp176681))) - (__tmp176675 - (let ((__tmp176676 - (let ((__tmp176679 + (cons __tmp176613 + __tmp176611))) + (__tmp176605 + (let ((__tmp176606 + (let ((__tmp176609 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tl171343_ '()))) - (__tmp176677 - (let ((__tmp176678 + (cons _$tl171273_ '()))) + (__tmp176607 + (let ((__tmp176608 (let () (declare (not safe)) - (gx#core-list '##cdr _$e171341_)))) + (gx#core-list '##cdr _$e171271_)))) (declare (not safe)) - (cons __tmp176678 '())))) + (cons __tmp176608 '())))) (declare (not safe)) - (cons __tmp176679 __tmp176677)))) + (cons __tmp176609 __tmp176607)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp176676 '())))) + (cons __tmp176606 '())))) (declare (not safe)) - (cons __tmp176680 __tmp176675))) - (__tmp176672 - (let* ((_body171344171351_ - _body171335_) - (_E171346171355_ + (cons __tmp176610 __tmp176605))) + (__tmp176602 + (let* ((_body171274171281_ + _body171265_) + (_E171276171285_ (lambda () (error '"No clause matching" - _body171344171351_))) - (_K171347171363_ - (lambda (_tl171358_ - _hd171359_) - (let ((__tmp176673 - (lambda (_vars171361_) + _body171274171281_))) + (_K171277171293_ + (lambda (_tl171288_ + _hd171289_) + (let ((__tmp176603 + (lambda (_vars171291_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_recur171225_ - _tl171358_ - _vars171361_ - _$tl171343_ - _E171319_ - _k171320_))))) + (_recur171155_ + _tl171288_ + _vars171291_ + _$tl171273_ + _E171249_ + _k171250_))))) (declare (not safe)) - (_recur171225_ - _hd171359_ - _vars171317_ - _$hd171342_ - _E171319_ - __tmp176673))))) + (_recur171155_ + _hd171289_ + _vars171247_ + _$hd171272_ + _E171249_ + __tmp176603))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _body171344171351_)) - (let ((_hd171348171366_ + (##pair? _body171274171281_)) + (let ((_hd171278171296_ (let () (declare (not safe)) - (##car _body171344171351_))) - (_tl171349171368_ + (##car _body171274171281_))) + (_tl171279171298_ (let () (declare (not safe)) - (##cdr _body171344171351_)))) - (let* ((_hd171371_ - _hd171348171366_) - (_tl171373_ - _tl171349171368_)) + (##cdr _body171274171281_)))) + (let* ((_hd171301_ + _hd171278171296_) + (_tl171303_ + _tl171279171298_)) (declare (not safe)) - (_K171347171363_ - _tl171373_ - _hd171371_))) + (_K171277171293_ + _tl171303_ + _hd171301_))) (let () (declare (not safe)) - (_E171346171355_)))))) + (_E171276171285_)))))) (declare (not safe)) (gx#core-list 'let-values - __tmp176674 - __tmp176672)))) + __tmp176604 + __tmp176602)))) (declare (not safe)) (gx#core-list 'let-values - __tmp176684 - __tmp176671)))) + __tmp176614 + __tmp176601)))) (declare (not safe)) - (gx#core-list 'if __tmp176689 __tmp176670 _E171319_))) - (if (let () (declare (not safe)) (eq? 'splice _$e171338_)) - (let* ((_body171374171381_ _body171335_) - (_E171376171385_ + (gx#core-list 'if __tmp176619 __tmp176600 _E171249_))) + (if (let () (declare (not safe)) (eq? 'splice _$e171268_)) + (let* ((_body171304171311_ _body171265_) + (_E171306171315_ (lambda () (error '"No clause matching" - _body171374171381_))) - (_K171377171436_ - (lambda (_tl171388_ _hd171389_) - (let* ((_rlen171391_ + _body171304171311_))) + (_K171307171366_ + (lambda (_tl171318_ _hd171319_) + (let* ((_rlen171321_ (let () (declare (not safe)) - (_splice-rlen171226_ _tl171388_))) - (_$target171393_ + (_splice-rlen171156_ _tl171318_))) + (_$target171323_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_$hd171395_ + (_$hd171325_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl171397_ + (_$tl171327_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_$lp171399_ + (_$lp171329_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_$lp-e171401_ + (_$lp-e171331_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$lp-hd171403_ + (_$lp-hd171333_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_$lp-tl171405_ + (_$lp-tl171335_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_svars171407_ + (_svars171337_ (let () (declare (not safe)) - (_splice-vars171227_ _hd171389_))) - (_lvars171409_ + (_splice-vars171157_ _hd171319_))) + (_lvars171339_ (let () (declare (not safe)) - (gx#gentemps _svars171407_))) - (_tlvars171411_ + (gx#gentemps _svars171337_))) + (_tlvars171341_ (let () (declare (not safe)) - (gx#gentemps _svars171407_))) - (_linit171415_ - (map (lambda (_var171413_) + (gx#gentemps _svars171337_))) + (_linit171345_ + (map (lambda (_var171343_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _lvars171409_))) - (letrec ((_make-loop171418_ - (lambda (_vars171422_) - (let ((__tmp176621 - (let ((__tmp176622 - (let ((__tmp176658 + _lvars171339_))) + (letrec ((_make-loop171348_ + (lambda (_vars171352_) + (let ((__tmp176551 + (let ((__tmp176552 + (let ((__tmp176588 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp171399_ '()))) - (__tmp176623 - (let ((__tmp176624 - (let ((__tmp176657 + (cons _$lp171329_ '()))) + (__tmp176553 + (let ((__tmp176554 + (let ((__tmp176587 (let () (declare (not safe)) - (cons _$hd171395_ _lvars171409_))) - (__tmp176625 - (let ((__tmp176656 + (cons _$hd171325_ _lvars171339_))) + (__tmp176555 + (let ((__tmp176586 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _$hd171395_))) - (__tmp176634 - (let ((__tmp176651 - (let ((__tmp176652 - (let ((__tmp176655 + _$hd171325_))) + (__tmp176564 + (let ((__tmp176581 + (let ((__tmp176582 + (let ((__tmp176585 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp-e171401_ '()))) - (__tmp176653 - (let ((__tmp176654 + (cons _$lp-e171331_ '()))) + (__tmp176583 + (let ((__tmp176584 (let () (declare (not safe)) (gx#core-list - _unwrap-e171047_ - _$hd171395_)))) + _unwrap-e170977_ + _$hd171325_)))) (declare (not safe)) - (cons __tmp176654 '())))) + (cons __tmp176584 '())))) (declare (not safe)) - (cons __tmp176655 __tmp176653)))) + (cons __tmp176585 __tmp176583)))) (declare (not safe)) - (cons __tmp176652 '()))) - (__tmp176635 - (let ((__tmp176641 - (let ((__tmp176647 - (let ((__tmp176650 + (cons __tmp176582 '()))) + (__tmp176565 + (let ((__tmp176571 + (let ((__tmp176577 + (let ((__tmp176580 (let () (declare (not safe)) - (cons _$lp-hd171403_ '()))) - (__tmp176648 - (let ((__tmp176649 + (cons _$lp-hd171333_ '()))) + (__tmp176578 + (let ((__tmp176579 (let () (declare (not safe)) (gx#core-list '##car - _$lp-e171401_)))) + _$lp-e171331_)))) (declare (not safe)) - (cons __tmp176649 '())))) + (cons __tmp176579 '())))) (declare (not safe)) - (cons __tmp176650 __tmp176648))) - (__tmp176642 - (let ((__tmp176643 - (let ((__tmp176646 + (cons __tmp176580 __tmp176578))) + (__tmp176572 + (let ((__tmp176573 + (let ((__tmp176576 (let () (declare (not safe)) - (cons _$lp-tl171405_ '()))) - (__tmp176644 - (let ((__tmp176645 + (cons _$lp-tl171335_ '()))) + (__tmp176574 + (let ((__tmp176575 (let () (declare (not safe)) (gx#core-list '##cdr - _$lp-e171401_)))) + _$lp-e171331_)))) (declare (not safe)) - (cons __tmp176645 '())))) + (cons __tmp176575 '())))) (declare (not safe)) - (cons __tmp176646 __tmp176644)))) + (cons __tmp176576 __tmp176574)))) (declare (not safe)) - (cons __tmp176643 '())))) + (cons __tmp176573 '())))) (declare (not safe)) - (cons __tmp176647 __tmp176642))) - (__tmp176636 - (let ((__tmp176637 - (lambda (_hdvars171424_) - (let ((__tmp176638 - (let ((__tmp176639 - (map (lambda (_svar171426_ - _lvar171427_) - (let ((__tmp176640 + (cons __tmp176577 __tmp176572))) + (__tmp176566 + (let ((__tmp176567 + (lambda (_hdvars171354_) + (let ((__tmp176568 + (let ((__tmp176569 + (map (lambda (_svar171356_ + _lvar171357_) + (let ((__tmp176570 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _svar171426_ _hdvars171424_ _BUG171224_)))) + (assgetq _svar171356_ _hdvars171354_ _BUG171154_)))) (declare (not safe)) - (gx#core-list 'cons __tmp176640 _lvar171427_))) + (gx#core-list 'cons __tmp176570 _lvar171357_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _svars171407_ - _lvars171409_))) + _svars171337_ + _lvars171339_))) (declare (not safe)) - (cons _$lp-tl171405_ __tmp176639)))) + (cons _$lp-tl171335_ __tmp176569)))) (declare (not safe)) - (cons _$lp171399_ __tmp176638))))) + (cons _$lp171329_ __tmp176568))))) (declare (not safe)) - (_recur171225_ - _hd171389_ + (_recur171155_ + _hd171319_ '() - _$lp-hd171403_ - _E171319_ - __tmp176637)))) + _$lp-hd171333_ + _E171249_ + __tmp176567)))) (declare (not safe)) - (gx#core-list 'let-values __tmp176641 __tmp176636)))) + (gx#core-list 'let-values __tmp176571 __tmp176566)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp176651 - __tmp176635))) - (__tmp176626 - (let ((__tmp176630 - (map (lambda (_lvar171429_ + __tmp176581 + __tmp176565))) + (__tmp176556 + (let ((__tmp176560 + (map (lambda (_lvar171359_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tlvar171430_) - (let ((__tmp176633 + _tlvar171360_) + (let ((__tmp176563 (let () (declare (not safe)) - (cons _tlvar171430_ '()))) - (__tmp176631 - (let ((__tmp176632 + (cons _tlvar171360_ '()))) + (__tmp176561 + (let ((__tmp176562 (let () (declare (not safe)) - (gx#core-list 'reverse _lvar171429_)))) + (gx#core-list 'reverse _lvar171359_)))) (declare (not safe)) - (cons __tmp176632 '())))) + (cons __tmp176562 '())))) (declare (not safe)) - (cons __tmp176633 __tmp176631))) - _lvars171409_ - _tlvars171411_)) - (__tmp176627 - (_k171320_ - (let ((__tmp176628 - (lambda (_svar171432_ _tlvar171433_ _r171434_) - (let ((__tmp176629 + (cons __tmp176563 __tmp176561))) + _lvars171339_ + _tlvars171341_)) + (__tmp176557 + (_k171250_ + (let ((__tmp176558 + (lambda (_svar171362_ _tlvar171363_ _r171364_) + (let ((__tmp176559 (let () (declare (not safe)) - (cons _svar171432_ _tlvar171433_)))) + (cons _svar171362_ _tlvar171363_)))) (declare (not safe)) - (cons __tmp176629 _r171434_))))) + (cons __tmp176559 _r171364_))))) (declare (not safe)) - (foldl2 __tmp176628 - _vars171422_ - _svars171407_ - _tlvars171411_))))) + (foldl2 __tmp176558 + _vars171352_ + _svars171337_ + _tlvars171341_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp176630 - __tmp176627)))) + __tmp176560 + __tmp176557)))) (declare (not safe)) (gx#core-list 'if - __tmp176656 - __tmp176634 - __tmp176626)))) + __tmp176586 + __tmp176564 + __tmp176556)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp176657 - __tmp176625)))) + __tmp176587 + __tmp176555)))) (declare (not safe)) - (cons __tmp176624 '())))) + (cons __tmp176554 '())))) (declare (not safe)) - (cons __tmp176658 __tmp176623)))) + (cons __tmp176588 __tmp176553)))) (declare (not safe)) - (cons __tmp176622 '()))) - (__tmp176619 - (let ((__tmp176620 + (cons __tmp176552 '()))) + (__tmp176549 + (let ((__tmp176550 (let () (declare (not safe)) - (cons _$target171393_ _linit171415_)))) + (cons _$target171323_ _linit171345_)))) (declare (not safe)) - (cons _$lp171399_ __tmp176620)))) + (cons _$lp171329_ __tmp176550)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp176621 - __tmp176619))))) - (let ((_body171420_ - (let ((__tmp176660 - (let ((__tmp176661 - (let ((__tmp176664 + __tmp176551 + __tmp176549))))) + (let ((_body171350_ + (let ((__tmp176590 + (let ((__tmp176591 + (let ((__tmp176594 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp176665 + (let ((__tmp176595 (let () (declare (not safe)) - (cons _$tl171397_ '())))) + (cons _$tl171327_ '())))) (declare (not safe)) - (cons _$target171393_ __tmp176665))) - (__tmp176662 - (let ((__tmp176663 + (cons _$target171323_ __tmp176595))) + (__tmp176592 + (let ((__tmp176593 (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _target171318_ - _rlen171391_)))) + _target171248_ + _rlen171321_)))) (declare (not safe)) - (cons __tmp176663 '())))) + (cons __tmp176593 '())))) (declare (not safe)) - (cons __tmp176664 __tmp176662)))) + (cons __tmp176594 __tmp176592)))) (declare (not safe)) - (cons __tmp176661 '()))) + (cons __tmp176591 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp176659 + (__tmp176589 (let () (declare (not safe)) - (_recur171225_ - _tl171388_ - _vars171317_ - _$tl171397_ - _E171319_ - _make-loop171418_)))) + (_recur171155_ + _tl171318_ + _vars171247_ + _$tl171327_ + _E171249_ + _make-loop171348_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp176660 - __tmp176659)))) - (let ((__tmp176669 + __tmp176590 + __tmp176589)))) + (let ((__tmp176599 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _target171318_))) - (__tmp176666 + _target171248_))) + (__tmp176596 (if (let () (declare (not safe)) - (zero? _rlen171391_)) - _body171420_ - (let ((__tmp176667 - (let ((__tmp176668 + (zero? _rlen171321_)) + _body171350_ + (let ((__tmp176597 + (let ((__tmp176598 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _target171318_)))) + (gx#core-list 'stx-length _target171248_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp176668 _rlen171391_)))) + (gx#core-list 'fx>= __tmp176598 _rlen171321_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp176667 - _body171420_ - _E171319_))))) + __tmp176597 + _body171350_ + _E171249_))))) (declare (not safe)) (gx#core-list 'if - __tmp176669 - __tmp176666 - _E171319_)))))))) + __tmp176599 + __tmp176596 + _E171249_)))))))) (if (let () (declare (not safe)) - (##pair? _body171374171381_)) - (let ((_hd171378171439_ + (##pair? _body171304171311_)) + (let ((_hd171308171369_ (let () (declare (not safe)) - (##car _body171374171381_))) - (_tl171379171441_ + (##car _body171304171311_))) + (_tl171309171371_ (let () (declare (not safe)) - (##cdr _body171374171381_)))) - (let* ((_hd171444_ _hd171378171439_) - (_tl171446_ _tl171379171441_)) + (##cdr _body171304171311_)))) + (let* ((_hd171374_ _hd171308171369_) + (_tl171376_ _tl171309171371_)) (declare (not safe)) - (_K171377171436_ _tl171446_ _hd171444_))) - (let () (declare (not safe)) (_E171376171385_)))) + (_K171307171366_ _tl171376_ _hd171374_))) + (let () (declare (not safe)) (_E171306171315_)))) (if (let () (declare (not safe)) - (eq? 'null _$e171338_)) - (let ((__tmp176618 + (eq? 'null _$e171268_)) + (let ((__tmp176548 (let () (declare (not safe)) - (gx#core-list 'stx-null? _target171318_))) - (__tmp176617 (_k171320_ _vars171317_))) + (gx#core-list 'stx-null? _target171248_))) + (__tmp176547 (_k171250_ _vars171247_))) (declare (not safe)) (gx#core-list 'if - __tmp176618 - __tmp176617 - _E171319_)) + __tmp176548 + __tmp176547 + _E171249_)) (if (let () (declare (not safe)) - (eq? 'vector _$e171338_)) - (let ((_$e171448_ + (eq? 'vector _$e171268_)) + (let ((_$e171378_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp176616 + (let ((__tmp176546 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _target171318_))) - (__tmp176608 - (let ((__tmp176610 - (let ((__tmp176611 - (let ((__tmp176615 + _target171248_))) + (__tmp176538 + (let ((__tmp176540 + (let ((__tmp176541 + (let ((__tmp176545 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$e171448_ '()))) - (__tmp176612 - (let ((__tmp176613 - (let ((__tmp176614 + (cons _$e171378_ '()))) + (__tmp176542 + (let ((__tmp176543 + (let ((__tmp176544 (let () (declare (not safe)) (gx#core-list - _unwrap-e171047_ - _target171318_)))) + _unwrap-e170977_ + _target171248_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp176614)))) + (gx#core-list 'vector->list __tmp176544)))) (declare (not safe)) - (cons __tmp176613 '())))) + (cons __tmp176543 '())))) (declare (not safe)) - (cons __tmp176615 __tmp176612)))) + (cons __tmp176545 __tmp176542)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp176611 '()))) - (__tmp176609 + (cons __tmp176541 '()))) + (__tmp176539 (let () (declare (not safe)) - (_recur171225_ - _body171335_ - _vars171317_ - _$e171448_ - _E171319_ - _k171320_)))) + (_recur171155_ + _body171265_ + _vars171247_ + _$e171378_ + _E171249_ + _k171250_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp176610 - __tmp176609)))) + __tmp176540 + __tmp176539)))) (declare (not safe)) (gx#core-list 'if - __tmp176616 - __tmp176608 - _E171319_))) + __tmp176546 + __tmp176538 + _E171249_))) (if (let () (declare (not safe)) - (eq? 'box _$e171338_)) - (let ((_$e171450_ + (eq? 'box _$e171268_)) + (let ((_$e171380_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp176607 + (let ((__tmp176537 (let () (declare (not safe)) (gx#core-list 'stx-box? - _target171318_))) - (__tmp176599 - (let ((__tmp176601 - (let ((__tmp176602 - (let ((__tmp176606 + _target171248_))) + (__tmp176529 + (let ((__tmp176531 + (let ((__tmp176532 + (let ((__tmp176536 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _$e171450_ '()))) - (__tmp176603 - (let ((__tmp176604 - (let ((__tmp176605 + (let () (declare (not safe)) (cons _$e171380_ '()))) + (__tmp176533 + (let ((__tmp176534 + (let ((__tmp176535 (let () (declare (not safe)) (gx#core-list - _unwrap-e171047_ - _target171318_)))) + _unwrap-e170977_ + _target171248_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp176605)))) + (gx#core-list 'unbox __tmp176535)))) (declare (not safe)) - (cons __tmp176604 '())))) + (cons __tmp176534 '())))) (declare (not safe)) - (cons __tmp176606 __tmp176603)))) + (cons __tmp176536 __tmp176533)))) (declare (not safe)) - (cons __tmp176602 '()))) + (cons __tmp176532 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp176600 + (__tmp176530 (let () (declare (not safe)) - (_recur171225_ - _body171335_ - _vars171317_ - _$e171450_ - _E171319_ - _k171320_)))) + (_recur171155_ + _body171265_ + _vars171247_ + _$e171380_ + _E171249_ + _k171250_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp176601 - __tmp176600)))) + __tmp176531 + __tmp176530)))) (declare (not safe)) (gx#core-list 'if - __tmp176607 - __tmp176599 - _E171319_))) + __tmp176537 + __tmp176529 + _E171249_))) (if (let () (declare (not safe)) - (eq? 'datum _$e171338_)) - (let ((_$e171452_ + (eq? 'datum _$e171268_)) + (let ((_$e171382_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp176598 + (let ((__tmp176528 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _target171318_))) - (__tmp176589 - (let ((__tmp176593 - (let ((__tmp176594 - (let ((__tmp176597 + _target171248_))) + (__tmp176519 + (let ((__tmp176523 + (let ((__tmp176524 + (let ((__tmp176527 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$e171452_ '()))) - (__tmp176595 - (let ((__tmp176596 + (cons _$e171382_ '()))) + (__tmp176525 + (let ((__tmp176526 (let () (declare (not safe)) - (gx#core-list 'stx-e _target171318_)))) + (gx#core-list 'stx-e _target171248_)))) (declare (not safe)) - (cons __tmp176596 '())))) + (cons __tmp176526 '())))) (declare (not safe)) - (cons __tmp176597 __tmp176595)))) + (cons __tmp176527 __tmp176525)))) (declare (not safe)) - (cons __tmp176594 '()))) - (__tmp176590 - (let ((__tmp176592 + (cons __tmp176524 '()))) + (__tmp176520 + (let ((__tmp176522 (let () (declare (not safe)) - (gx#core-list 'equal? _$e171452_ _body171335_))) - (__tmp176591 (_k171320_ _vars171317_))) + (gx#core-list 'equal? _$e171382_ _body171265_))) + (__tmp176521 (_k171250_ _vars171247_))) (declare (not safe)) - (gx#core-list 'if __tmp176592 __tmp176591 _E171319_)))) + (gx#core-list 'if __tmp176522 __tmp176521 _E171249_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp176593 - __tmp176590)))) + __tmp176523 + __tmp176520)))) (declare (not safe)) (gx#core-list 'if - __tmp176598 - __tmp176589 - _E171319_))) + __tmp176528 + __tmp176519 + _E171249_))) (let () (declare (not safe)) - (_BUG171224_ _e171316_))))))))))))))) + (_BUG171154_ _e171246_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e171321171328_)) - (let ((_hd171325171457_ + (##pair? _e171251171258_)) + (let ((_hd171255171387_ (let () (declare (not safe)) - (##car _e171321171328_))) - (_tl171326171459_ + (##car _e171251171258_))) + (_tl171256171389_ (let () (declare (not safe)) - (##cdr _e171321171328_)))) - (let* ((_tag171462_ _hd171325171457_) - (_body171464_ _tl171326171459_)) + (##cdr _e171251171258_)))) + (let* ((_tag171392_ _hd171255171387_) + (_body171394_ _tl171256171389_)) (declare (not safe)) - (_K171324171454_ - _body171464_ - _tag171462_))) + (_K171254171384_ + _body171394_ + _tag171392_))) (let () (declare (not safe)) - (_E171323171332_)))))) - (_splice-rlen171226_ - (lambda (_e171278_) - (let _lp171280_ ((_e171282_ _e171278_) - (_n171283_ '0)) - (let* ((_e171284171291_ _e171282_) - (_E171286171295_ + (_E171253171262_)))))) + (_splice-rlen171156_ + (lambda (_e171208_) + (let _lp171210_ ((_e171212_ _e171208_) + (_n171213_ '0)) + (let* ((_e171214171221_ _e171212_) + (_E171216171225_ (lambda () (error '"No clause matching" - _e171284171291_))) - (_K171287171304_ - (lambda (_body171298_ _tag171299_) - (let ((_$e171301_ _tag171299_)) + _e171214171221_))) + (_K171217171234_ + (lambda (_body171228_ _tag171229_) + (let ((_$e171231_ _tag171229_)) (if (let () (declare (not safe)) - (eq? 'splice _$e171301_)) + (eq? 'splice _$e171231_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _stx171045_ - _where171217_)) + _stx170975_ + _where171147_)) (if (let () (declare (not safe)) - (eq? 'cons _$e171301_)) - (let ((__tmp176697 - (cdr _body171298_)) - (__tmp176696 + (eq? 'cons _$e171231_)) + (let ((__tmp176627 + (cdr _body171228_)) + (__tmp176626 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (fx+ _n171283_ '1)))) + (fx+ _n171213_ '1)))) (declare (not safe)) - (_lp171280_ __tmp176697 __tmp176696)) - _n171283_)))))) + (_lp171210_ __tmp176627 __tmp176626)) + _n171213_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e171284171291_)) - (let ((_hd171288171307_ + (##pair? _e171214171221_)) + (let ((_hd171218171237_ (let () (declare (not safe)) - (##car _e171284171291_))) - (_tl171289171309_ + (##car _e171214171221_))) + (_tl171219171239_ (let () (declare (not safe)) - (##cdr _e171284171291_)))) - (let* ((_tag171312_ _hd171288171307_) - (_body171314_ - _tl171289171309_)) + (##cdr _e171214171221_)))) + (let* ((_tag171242_ _hd171218171237_) + (_body171244_ + _tl171219171239_)) (declare (not safe)) - (_K171287171304_ - _body171314_ - _tag171312_))) + (_K171217171234_ + _body171244_ + _tag171242_))) (let () (declare (not safe)) - (_E171286171295_))))))) - (_splice-vars171227_ - (lambda (_e171234_) - (let _recur171236_ ((_e171238_ _e171234_) - (_vars171239_ '())) - (let* ((_e171240171247_ _e171238_) - (_E171242171251_ + (_E171216171225_))))))) + (_splice-vars171157_ + (lambda (_e171164_) + (let _recur171166_ ((_e171168_ _e171164_) + (_vars171169_ '())) + (let* ((_e171170171177_ _e171168_) + (_E171172171181_ (lambda () (error '"No clause matching" - _e171240171247_))) - (_K171243171266_ - (lambda (_body171254_ _tag171255_) - (let ((_$e171257_ _tag171255_)) + _e171170171177_))) + (_K171173171196_ + (lambda (_body171184_ _tag171185_) + (let ((_$e171187_ _tag171185_)) (if (let () (declare (not safe)) - (eq? 'var _$e171257_)) + (eq? 'var _$e171187_)) (let () (declare (not safe)) - (cons _body171254_ - _vars171239_)) + (cons _body171184_ + _vars171169_)) (if (or (let () (declare (not safe)) (eq? 'cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e171257_)) - (let () (declare (not safe)) (eq? 'splice _$e171257_))) - (let ((__tmp176700 (cdr _body171254_)) - (__tmp176698 - (let ((__tmp176699 (car _body171254_))) + _$e171187_)) + (let () (declare (not safe)) (eq? 'splice _$e171187_))) + (let ((__tmp176630 (cdr _body171184_)) + (__tmp176628 + (let ((__tmp176629 (car _body171184_))) (declare (not safe)) - (_recur171236_ __tmp176699 _vars171239_)))) + (_recur171166_ __tmp176629 _vars171169_)))) (declare (not safe)) - (_recur171236_ __tmp176700 __tmp176698)) - (if (or (let () (declare (not safe)) (eq? 'vector _$e171257_)) - (let () (declare (not safe)) (eq? 'box _$e171257_))) + (_recur171166_ __tmp176630 __tmp176628)) + (if (or (let () (declare (not safe)) (eq? 'vector _$e171187_)) + (let () (declare (not safe)) (eq? 'box _$e171187_))) (let () (declare (not safe)) - (_recur171236_ _body171254_ _vars171239_)) - _vars171239_))))))) + (_recur171166_ _body171184_ _vars171169_)) + _vars171169_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e171240171247_)) - (let ((_hd171244171269_ + (##pair? _e171170171177_)) + (let ((_hd171174171199_ (let () (declare (not safe)) - (##car _e171240171247_))) - (_tl171245171271_ + (##car _e171170171177_))) + (_tl171175171201_ (let () (declare (not safe)) - (##cdr _e171240171247_)))) - (let* ((_tag171274_ _hd171244171269_) - (_body171276_ - _tl171245171271_)) + (##cdr _e171170171177_)))) + (let* ((_tag171204_ _hd171174171199_) + (_body171206_ + _tl171175171201_)) (declare (not safe)) - (_K171243171266_ - _body171276_ - _tag171274_))) + (_K171173171196_ + _body171206_ + _tag171204_))) (let () (declare (not safe)) - (_E171242171251_))))))) - (_make-body171228_ - (lambda (_vars171230_) - (let ((__tmp176701 - (map (lambda (_mvar171232_) - (let ((__tmp176702 - (car _mvar171232_))) + (_E171172171181_))))))) + (_make-body171158_ + (lambda (_vars171160_) + (let ((__tmp176631 + (map (lambda (_mvar171162_) + (let ((__tmp176632 + (car _mvar171162_))) (declare (not safe)) - (assgetq __tmp176702 - _vars171230_ - _BUG171224_))) - _mvars171220_))) + (assgetq __tmp176632 + _vars171160_ + _BUG171154_))) + _mvars171150_))) (declare (not safe)) - (cons _K171221_ __tmp176701))))) + (cons _K171151_ __tmp176631))))) (let () (declare (not safe)) - (_recur171225_ - _hd171219_ + (_recur171155_ + _hd171149_ '() - _target171218_ - _E171222_ - _make-body171228_))))) - (_parse-clause171054_ - (lambda (_hd171123_ _ids171124_) - (let _recur171126_ ((_e171128_ _hd171123_) - (_vars171129_ '()) - (_depth171130_ '0)) + _target171148_ + _E171152_ + _make-body171158_))))) + (_parse-clause170984_ + (lambda (_hd171053_ _ids171054_) + (let _recur171056_ ((_e171058_ _hd171053_) + (_vars171059_ '()) + (_depth171060_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _e171128_)) + (gx#identifier? _e171058_)) (if (let () (declare (not safe)) - (gx#underscore? _e171128_)) - (values '(any) _vars171129_) + (gx#underscore? _e171058_)) + (values '(any) _vars171059_) (if (let () (declare (not safe)) - (gx#ellipsis? _e171128_)) + (gx#ellipsis? _e171058_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx171045_ - _hd171123_)) - (if (let ((__tmp176718 - (lambda (_id171132_) + _stx170975_ + _hd171053_)) + (if (let ((__tmp176648 + (lambda (_id171062_) (let () (declare (not safe)) (gx#bound-identifier=? - _e171128_ - _id171132_))))) + _e171058_ + _id171062_))))) (declare (not safe)) - (find __tmp176718 _ids171124_)) + (find __tmp176648 _ids171054_)) (values (let () (declare (not safe)) - (cons 'id _e171128_)) - _vars171129_) - (if (let ((__tmp176716 - (lambda (_var171134_) - (let ((__tmp176717 - (car _var171134_))) + (cons 'id _e171058_)) + _vars171059_) + (if (let ((__tmp176646 + (lambda (_var171064_) + (let ((__tmp176647 + (car _var171064_))) (declare (not safe)) (gx#bound-identifier=? - _e171128_ - __tmp176717))))) + _e171058_ + __tmp176647))))) (declare (not safe)) - (find __tmp176716 _vars171129_)) + (find __tmp176646 _vars171059_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _stx171045_ - _e171128_)) + _stx170975_ + _e171058_)) (values (let () (declare (not safe)) - (cons 'var _e171128_)) - (let ((__tmp176715 + (cons 'var _e171058_)) + (let ((__tmp176645 (let () (declare (not safe)) - (cons _e171128_ + (cons _e171058_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _depth171130_)))) + _depth171060_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp176715 - _vars171129_))))))) + (cons __tmp176645 + _vars171059_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _e171128_)) - (let* ((_e171135171142_ _e171128_) - (_E171137171146_ + (gx#stx-pair? _e171058_)) + (let* ((_e171065171072_ _e171058_) + (_E171067171076_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e171135171142_)))) - (_E171136171207_ + _e171065171072_)))) + (_E171066171137_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e171135171142_)) - (let ((_e171138171150_ + (gx#stx-pair? _e171065171072_)) + (let ((_e171068171080_ (let () (declare (not safe)) (gx#syntax-e - _e171135171142_)))) - (let ((_hd171139171153_ + _e171065171072_)))) + (let ((_hd171069171083_ (let () (declare (not safe)) - (##car _e171138171150_))) - (_tl171140171155_ + (##car _e171068171080_))) + (_tl171070171085_ (let () (declare (not safe)) - (##cdr _e171138171150_)))) - (let* ((_hd171158_ - _hd171139171153_) - (_rest171160_ - _tl171140171155_)) + (##cdr _e171068171080_)))) + (let* ((_hd171088_ + _hd171069171083_) + (_rest171090_ + _tl171070171085_)) (if '#t - (let* ((_make-pair171175_ - (lambda (_tag171162_ + (let* ((_make-pair171105_ + (lambda (_tag171092_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd171163_ - _tl171164_) - (let* ((_hd-depth171166_ + _hd171093_ + _tl171094_) + (let* ((_hd-depth171096_ (if (let () (declare (not safe)) - (eq? _tag171162_ 'splice)) + (eq? _tag171092_ 'splice)) (let () (declare (not safe)) - (fx+ _depth171130_ '1)) - _depth171130_)) - (_g176710_ + (fx+ _depth171060_ '1)) + _depth171060_)) + (_g176640_ (let () (declare (not safe)) - (_recur171126_ - _hd171163_ - _vars171129_ - _hd-depth171166_)))) + (_recur171056_ + _hd171093_ + _vars171059_ + _hd-depth171096_)))) (begin - (let ((_g176711_ + (let ((_g176641_ (let () (declare (not safe)) - (if (##values? _g176710_) - (##vector-length _g176710_) + (if (##values? _g176640_) + (##vector-length _g176640_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176711_ 2))) + (##fx= _g176641_ 2))) (error "Context expects 2 values" - _g176711_))) - (let ((_hd171168_ + _g176641_))) + (let ((_hd171098_ (let () (declare (not safe)) - (##vector-ref _g176710_ 0))) - (_vars171169_ + (##vector-ref _g176640_ 0))) + (_vars171099_ (let () (declare (not safe)) - (##vector-ref _g176710_ 1)))) - (let ((_g176712_ + (##vector-ref _g176640_ 1)))) + (let ((_g176642_ (let () (declare (not safe)) - (_recur171126_ - _tl171164_ - _vars171169_ - _depth171130_)))) + (_recur171056_ + _tl171094_ + _vars171099_ + _depth171060_)))) (begin - (let ((_g176713_ + (let ((_g176643_ (let () (declare (not safe)) - (if (##values? _g176712_) - (##vector-length _g176712_) + (if (##values? _g176642_) + (##vector-length _g176642_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176713_ 2))) + (##fx= _g176643_ 2))) (error "Context expects 2 values" - _g176713_))) - (let ((_tl171171_ + _g176643_))) + (let ((_tl171101_ (let () (declare (not safe)) - (##vector-ref _g176712_ 0))) - (_vars171172_ + (##vector-ref _g176642_ 0))) + (_vars171102_ (let () (declare (not safe)) - (##vector-ref _g176712_ 1)))) + (##vector-ref _g176642_ 1)))) (let () - (values (let ((__tmp176714 + (values (let ((__tmp176644 (let () (declare (not safe)) - (cons _hd171168_ - _tl171171_)))) + (cons _hd171098_ + _tl171101_)))) (declare (not safe)) - (cons _tag171162_ __tmp176714)) - _vars171172_)))))))))) - (_e171176171183_ _rest171160_) - (_E171178171187_ + (cons _tag171092_ __tmp176644)) + _vars171102_)))))))))) + (_e171106171113_ _rest171090_) + (_E171108171117_ (lambda () (let () (declare (not safe)) - (_make-pair171175_ 'cons _hd171158_ _rest171160_)))) - (_E171177171203_ + (_make-pair171105_ 'cons _hd171088_ _rest171090_)))) + (_E171107171133_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e171176171183_)) - (let ((_e171179171191_ + (gx#stx-pair? _e171106171113_)) + (let ((_e171109171121_ (let () (declare (not safe)) - (gx#syntax-e _e171176171183_)))) - (let ((_hd171180171194_ + (gx#syntax-e _e171106171113_)))) + (let ((_hd171110171124_ (let () (declare (not safe)) - (##car _e171179171191_))) - (_tl171181171196_ + (##car _e171109171121_))) + (_tl171111171126_ (let () (declare (not safe)) - (##cdr _e171179171191_)))) - (let* ((_rest-hd171199_ _hd171180171194_) - (_rest-tl171201_ _tl171181171196_)) + (##cdr _e171109171121_)))) + (let* ((_rest-hd171129_ _hd171110171124_) + (_rest-tl171131_ _tl171111171126_)) (if '#t (if (let () (declare (not safe)) - (gx#ellipsis? _rest-hd171199_)) + (gx#ellipsis? _rest-hd171129_)) (let () (declare (not safe)) - (_make-pair171175_ + (_make-pair171105_ 'splice - _hd171158_ - _rest-tl171201_)) + _hd171088_ + _rest-tl171131_)) (let () (declare (not safe)) - (_make-pair171175_ + (_make-pair171105_ 'cons - _hd171158_ - _rest171160_))) + _hd171088_ + _rest171090_))) (let () (declare (not safe)) - (_E171178171187_)))))) - (let () (declare (not safe)) (_E171178171187_)))))) - (let () (declare (not safe)) (_E171177171203_))) - (let () (declare (not safe)) (_E171137171146_)))))) + (_E171108171117_)))))) + (let () (declare (not safe)) (_E171108171117_)))))) + (let () (declare (not safe)) (_E171107171133_))) + (let () (declare (not safe)) (_E171067171076_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E171137171146_)))))) + (_E171067171076_)))))) (let () (declare (not safe)) - (_E171136171207_))) + (_E171066171137_))) (if (let () (declare (not safe)) - (gx#stx-null? _e171128_)) - (values '(null) _vars171129_) + (gx#stx-null? _e171058_)) + (values '(null) _vars171059_) (if (let () (declare (not safe)) - (gx#stx-vector? _e171128_)) - (let ((_g176707_ - (let ((__tmp176709 + (gx#stx-vector? _e171058_)) + (let ((_g176637_ + (let ((__tmp176639 (vector->list (let () (declare (not safe)) (gx#syntax-e - _e171128_))))) + _e171058_))))) (declare (not safe)) - (_recur171126_ - __tmp176709 - _vars171129_ - _depth171130_)))) + (_recur171056_ + __tmp176639 + _vars171059_ + _depth171060_)))) (begin - (let ((_g176708_ + (let ((_g176638_ (let () (declare (not safe)) - (if (##values? _g176707_) + (if (##values? _g176637_) (##vector-length - _g176707_) + _g176637_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176708_ 2))) + (##fx= _g176638_ 2))) (error "Context expects 2 values" - _g176708_))) - (let ((_e171211_ + _g176638_))) + (let ((_e171141_ (let () (declare (not safe)) - (##vector-ref _g176707_ 0))) - (_vars171212_ + (##vector-ref _g176637_ 0))) + (_vars171142_ (let () (declare (not safe)) (##vector-ref - _g176707_ + _g176637_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e171211_)) - _vars171212_)))) + (cons 'vector _e171141_)) + _vars171142_)))) (if (let () (declare (not safe)) - (gx#stx-box? _e171128_)) - (let ((_g176704_ - (let ((__tmp176706 + (gx#stx-box? _e171058_)) + (let ((_g176634_ + (let ((__tmp176636 (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _e171128_))))) + (gx#syntax-e _e171058_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_recur171126_ - __tmp176706 - _vars171129_ - _depth171130_)))) + (_recur171056_ + __tmp176636 + _vars171059_ + _depth171060_)))) (begin - (let ((_g176705_ + (let ((_g176635_ (let () (declare (not safe)) (if (##values? - _g176704_) + _g176634_) (##vector-length - _g176704_) + _g176634_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176705_ + (##fx= _g176635_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g176705_))) - (let ((_e171214_ + _g176635_))) + (let ((_e171144_ (let () (declare (not safe)) (##vector-ref - _g176704_ + _g176634_ 0))) - (_vars171215_ + (_vars171145_ (let () (declare (not safe)) (##vector-ref - _g176704_ + _g176634_ 1)))) (values (let () (declare (not safe)) (cons 'box - _e171214_)) - _vars171215_)))) + _e171144_)) + _vars171145_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _e171128_)) - (values (let ((__tmp176703 + (gx#stx-datum? _e171058_)) + (values (let ((__tmp176633 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _e171128_)))) + (gx#stx-e _e171058_)))) (declare (not safe)) - (cons 'datum __tmp176703)) - _vars171129_) + (cons 'datum __tmp176633)) + _vars171059_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _stx171045_ - _e171128_)))))))))))) - (let* ((_e171055171068_ _stx171045_) - (_E171057171072_ + _stx170975_ + _e171058_)))))))))))) + (let* ((_e170985170998_ _stx170975_) + (_E170987171002_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e171055171068_)))) - (_E171056171119_ + _e170985170998_)))) + (_E170986171049_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e171055171068_)) - (let ((_e171058171076_ + (gx#stx-pair? _e170985170998_)) + (let ((_e170988171006_ (let () (declare (not safe)) - (gx#syntax-e _e171055171068_)))) - (let ((_hd171059171079_ + (gx#syntax-e _e170985170998_)))) + (let ((_hd170989171009_ (let () (declare (not safe)) - (##car _e171058171076_))) - (_tl171060171081_ + (##car _e170988171006_))) + (_tl170990171011_ (let () (declare (not safe)) - (##cdr _e171058171076_)))) + (##cdr _e170988171006_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl171060171081_)) - (let ((_e171061171084_ + (gx#stx-pair? _tl170990171011_)) + (let ((_e170991171014_ (let () (declare (not safe)) - (gx#syntax-e _tl171060171081_)))) - (let ((_hd171062171087_ + (gx#syntax-e _tl170990171011_)))) + (let ((_hd170992171017_ (let () (declare (not safe)) - (##car _e171061171084_))) - (_tl171063171089_ + (##car _e170991171014_))) + (_tl170993171019_ (let () (declare (not safe)) - (##cdr _e171061171084_)))) - (let ((_expr171092_ _hd171062171087_)) + (##cdr _e170991171014_)))) + (let ((_expr171022_ _hd170992171017_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl171063171089_)) - (let ((_e171064171094_ + (gx#stx-pair? _tl170993171019_)) + (let ((_e170994171024_ (let () (declare (not safe)) (gx#syntax-e - _tl171063171089_)))) - (let ((_hd171065171097_ + _tl170993171019_)))) + (let ((_hd170995171027_ (let () (declare (not safe)) - (##car _e171064171094_))) - (_tl171066171099_ + (##car _e170994171024_))) + (_tl170996171029_ (let () (declare (not safe)) - (##cdr _e171064171094_)))) - (let* ((_ids171102_ - _hd171065171097_) - (_clauses171104_ - _tl171066171099_)) + (##cdr _e170994171024_)))) + (let* ((_ids171032_ + _hd170995171027_) + (_clauses171034_ + _tl170996171029_)) (if '#t - (if (let ((__tmp176736 + (if (let ((__tmp176666 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier-list? _ids171102_)))) + (gx#identifier-list? _ids171032_)))) (declare (not safe)) - (not __tmp176736)) + (not __tmp176666)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _stx171045_ - _ids171102_)) - (if (let ((__tmp176735 + _stx170975_ + _ids171032_)) + (if (let ((__tmp176665 (let () (declare (not safe)) - (gx#stx-list? _clauses171104_)))) + (gx#stx-list? _clauses171034_)))) (declare (not safe)) - (not __tmp176735)) + (not __tmp176665)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _stx171045_)) - (let* ((_ids171106_ + _stx170975_)) + (let* ((_ids171036_ (let () (declare (not safe)) - (gx#syntax->list _ids171102_))) - (_clauses171108_ + (gx#syntax->list _ids171032_))) + (_clauses171038_ (let () (declare (not safe)) - (gx#syntax->list _clauses171104_))) - (_clause-ids171110_ + (gx#syntax->list _clauses171034_))) + (_clause-ids171040_ (let () (declare (not safe)) - (gx#gentemps _clauses171108_))) - (_E171112_ + (gx#gentemps _clauses171038_))) + (_E171042_ (let () (declare (not safe)) (gx#genident__0))) - (_target171114_ + (_target171044_ (let () (declare (not safe)) (gx#genident__0))) - (_first171116_ + (_first171046_ (if (let () (declare (not safe)) - (null? _clauses171108_)) - _E171112_ - (car _clause-ids171110_)))) - (let ((__tmp176720 - (let ((__tmp176721 - (let ((__tmp176723 - (let ((__tmp176728 - (let ((__tmp176729 - (let ((__tmp176734 + (null? _clauses171038_)) + _E171042_ + (car _clause-ids171040_)))) + (let ((__tmp176650 + (let ((__tmp176651 + (let ((__tmp176653 + (let ((__tmp176658 + (let ((__tmp176659 + (let ((__tmp176664 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _E171112_ '()))) - (__tmp176730 - (let ((__tmp176731 - (let ((__tmp176733 + (cons _E171042_ '()))) + (__tmp176660 + (let ((__tmp176661 + (let ((__tmp176663 (let () (declare (not safe)) - (cons _target171114_ '()))) - (__tmp176732 + (cons _target171044_ '()))) + (__tmp176662 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _target171114_)))) + _target171044_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp176733 - __tmp176732)))) + __tmp176663 + __tmp176662)))) (declare (not safe)) - (cons __tmp176731 '())))) + (cons __tmp176661 '())))) (declare (not safe)) - (cons __tmp176734 __tmp176730)))) + (cons __tmp176664 __tmp176660)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp176729 '()))) - (__tmp176724 - (let ((__tmp176727 + (cons __tmp176659 '()))) + (__tmp176654 + (let ((__tmp176657 (let () (declare (not safe)) - (_generate-bindings171050_ - _target171114_ - _ids171106_ - _clauses171108_ - _clause-ids171110_ - _E171112_))) - (__tmp176725 - (let ((__tmp176726 + (_generate-bindings170980_ + _target171044_ + _ids171036_ + _clauses171038_ + _clause-ids171040_ + _E171042_))) + (__tmp176655 + (let ((__tmp176656 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr171092_ '())))) + (cons _expr171022_ '())))) (declare (not safe)) - (cons _first171116_ __tmp176726)))) + (cons _first171046_ __tmp176656)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-body171051_ - __tmp176727 - __tmp176725)))) + (_generate-body170981_ + __tmp176657 + __tmp176655)))) (declare (not safe)) (gx#core-list 'let-values - __tmp176728 - __tmp176724))) - (__tmp176722 + __tmp176658 + __tmp176654))) + (__tmp176652 (let () (declare (not safe)) - (gx#stx-source _stx171045_)))) + (gx#stx-source _stx170975_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp176723 - __tmp176722)))) + __tmp176653 + __tmp176652)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp176721))) - (__tmp176719 + __tmp176651))) + (__tmp176649 (let () (declare (not safe)) - (gx#stx-source _stx171045_)))) + (gx#stx-source _stx170975_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp176720 __tmp176719))))) + (gx#stx-wrap-source __tmp176650 __tmp176649))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E171057171072_)))))) + (_E170987171002_)))))) (let () (declare (not safe)) - (_E171057171072_)))))) + (_E170987171002_)))))) (let () (declare (not safe)) - (_E171057171072_))))) - (let () (declare (not safe)) (_E171057171072_)))))) - (let () (declare (not safe)) (_E171056171119_)))))) + (_E170987171002_))))) + (let () (declare (not safe)) (_E170987171002_)))))) + (let () (declare (not safe)) (_E170986171049_)))))) (define gx#macro-expand-syntax-case__0 - (lambda (_stx171755_) - (let* ((_identifier=?171757_ 'free-identifier=?) - (_unwrap-e171759_ 'syntax-e) - (_wrap-e171761_ 'quote-syntax)) + (lambda (_stx171685_) + (let* ((_identifier=?171687_ 'free-identifier=?) + (_unwrap-e171689_ 'syntax-e) + (_wrap-e171691_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx171755_ - _identifier=?171757_ - _unwrap-e171759_ - _wrap-e171761_)))) + _stx171685_ + _identifier=?171687_ + _unwrap-e171689_ + _wrap-e171691_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_stx171763_ _identifier=?171764_) - (let* ((_unwrap-e171766_ 'syntax-e) (_wrap-e171768_ 'quote-syntax)) + (lambda (_stx171693_ _identifier=?171694_) + (let* ((_unwrap-e171696_ 'syntax-e) (_wrap-e171698_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx171763_ - _identifier=?171764_ - _unwrap-e171766_ - _wrap-e171768_)))) + _stx171693_ + _identifier=?171694_ + _unwrap-e171696_ + _wrap-e171698_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_stx171770_ _identifier=?171771_ _unwrap-e171772_) - (let ((_wrap-e171774_ 'quote-syntax)) + (lambda (_stx171700_ _identifier=?171701_ _unwrap-e171702_) + (let ((_wrap-e171704_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx171770_ - _identifier=?171771_ - _unwrap-e171772_ - _wrap-e171774_)))) + _stx171700_ + _identifier=?171701_ + _unwrap-e171702_ + _wrap-e171704_)))) (define gx#macro-expand-syntax-case - (lambda _g176738_ - (let ((_g176737_ (let () (declare (not safe)) (##length _g176738_)))) - (cond ((let () (declare (not safe)) (##fx= _g176737_ 1)) - (apply (lambda (_stx171755_) + (lambda _g176668_ + (let ((_g176667_ (let () (declare (not safe)) (##length _g176668_)))) + (cond ((let () (declare (not safe)) (##fx= _g176667_ 1)) + (apply (lambda (_stx171685_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__0 _stx171755_))) - _g176738_)) - ((let () (declare (not safe)) (##fx= _g176737_ 2)) - (apply (lambda (_stx171763_ _identifier=?171764_) + (gx#macro-expand-syntax-case__0 _stx171685_))) + _g176668_)) + ((let () (declare (not safe)) (##fx= _g176667_ 2)) + (apply (lambda (_stx171693_ _identifier=?171694_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__1 - _stx171763_ - _identifier=?171764_))) - _g176738_)) - ((let () (declare (not safe)) (##fx= _g176737_ 3)) - (apply (lambda (_stx171770_ - _identifier=?171771_ - _unwrap-e171772_) + _stx171693_ + _identifier=?171694_))) + _g176668_)) + ((let () (declare (not safe)) (##fx= _g176667_ 3)) + (apply (lambda (_stx171700_ + _identifier=?171701_ + _unwrap-e171702_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__2 - _stx171770_ - _identifier=?171771_ - _unwrap-e171772_))) - _g176738_)) - ((let () (declare (not safe)) (##fx= _g176737_ 4)) - (apply (lambda (_stx171776_ - _identifier=?171777_ - _unwrap-e171778_ - _wrap-e171779_) + _stx171700_ + _identifier=?171701_ + _unwrap-e171702_))) + _g176668_)) + ((let () (declare (not safe)) (##fx= _g176667_ 4)) + (apply (lambda (_stx171706_ + _identifier=?171707_ + _unwrap-e171708_ + _wrap-e171709_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx171776_ - _identifier=?171777_ - _unwrap-e171778_ - _wrap-e171779_))) - _g176738_)) + _stx171706_ + _identifier=?171707_ + _unwrap-e171708_ + _wrap-e171709_))) + _g176668_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g176738_)))))) + _g176668_)))))) (define gx#syntax-local-pattern? - (lambda (_stx171042_) - (if (let () (declare (not safe)) (gx#identifier? _stx171042_)) - (let ((__tmp176739 + (lambda (_stx170972_) + (if (let () (declare (not safe)) (gx#identifier? _stx170972_)) + (let ((__tmp176669 (let () (declare (not safe)) - (gx#syntax-local-e__% _stx171042_ false)))) + (gx#syntax-local-e__% _stx170972_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp176739 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp176669 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_hd171000_ . _rest171001_) - (let ((_len171003_ (length _hd171000_))) - (let _lp171005_ ((_rest171007_ _rest171001_)) - (let* ((_rest171008171016_ _rest171007_) - (_else171010171024_ (lambda () '#!void)) - (_K171012171030_ - (lambda (_rest171027_ _hd171028_) - (if (fx= _len171003_ (length _hd171028_)) + (lambda (_hd170930_ . _rest170931_) + (let ((_len170933_ (length _hd170930_))) + (let _lp170935_ ((_rest170937_ _rest170931_)) + (let* ((_rest170938170946_ _rest170937_) + (_else170940170954_ (lambda () '#!void)) + (_K170942170960_ + (lambda (_rest170957_ _hd170958_) + (if (fx= _len170933_ (length _hd170958_)) (let () (declare (not safe)) - (_lp171005_ _rest171027_)) + (_lp170935_ _rest170957_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _hd171028_)))))) - (if (let () (declare (not safe)) (##pair? _rest171008171016_)) - (let ((_hd171013171033_ + _hd170958_)))))) + (if (let () (declare (not safe)) (##pair? _rest170938170946_)) + (let ((_hd170943170963_ (let () (declare (not safe)) - (##car _rest171008171016_))) - (_tl171014171035_ + (##car _rest170938170946_))) + (_tl170944170965_ (let () (declare (not safe)) - (##cdr _rest171008171016_)))) - (let* ((_hd171038_ _hd171013171033_) - (_rest171040_ _tl171014171035_)) + (##cdr _rest170938170946_)))) + (let* ((_hd170968_ _hd170943170963_) + (_rest170970_ _tl170944170965_)) (declare (not safe)) - (_K171012171030_ _rest171040_ _hd171038_))) + (_K170942170960_ _rest170970_ _hd170968_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_stx170958_ _n170959_) - (let _lp170961_ ((_rest170963_ _stx170958_) (_r170964_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _rest170963_)) - (let* ((_g170965170972_ - (let () (declare (not safe)) (gx#syntax-e _rest170963_))) - (_E170967170976_ + (lambda (_stx170888_ _n170889_) + (let _lp170891_ ((_rest170893_ _stx170888_) (_r170894_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _rest170893_)) + (let* ((_g170895170902_ + (let () (declare (not safe)) (gx#syntax-e _rest170893_))) + (_E170897170906_ (lambda () - (error '"No clause matching" _g170965170972_))) - (_K170968170982_ - (lambda (_rest170979_ _hd170980_) - (let ((__tmp176744 + (error '"No clause matching" _g170895170902_))) + (_K170898170912_ + (lambda (_rest170909_ _hd170910_) + (let ((__tmp176674 (let () (declare (not safe)) - (cons _hd170980_ _r170964_)))) + (cons _hd170910_ _r170894_)))) (declare (not safe)) - (_lp170961_ _rest170979_ __tmp176744))))) - (if (let () (declare (not safe)) (##pair? _g170965170972_)) - (let ((_hd170969170985_ + (_lp170891_ _rest170909_ __tmp176674))))) + (if (let () (declare (not safe)) (##pair? _g170895170902_)) + (let ((_hd170899170915_ (let () (declare (not safe)) - (##car _g170965170972_))) - (_tl170970170987_ + (##car _g170895170902_))) + (_tl170900170917_ (let () (declare (not safe)) - (##cdr _g170965170972_)))) - (let* ((_hd170990_ _hd170969170985_) - (_rest170992_ _tl170970170987_)) + (##cdr _g170895170902_)))) + (let* ((_hd170920_ _hd170899170915_) + (_rest170922_ _tl170900170917_)) (declare (not safe)) - (_K170968170982_ _rest170992_ _hd170990_))) - (let () (declare (not safe)) (_E170967170976_)))) - (let _lp170994_ ((_n170996_ _n170959_) - (_l170997_ _r170964_) - (_r170998_ _rest170963_)) - (if (let () (declare (not safe)) (null? _l170997_)) - (values _l170997_ _r170998_) - (if (fxpositive? _n170996_) - (let ((__tmp176743 + (_K170898170912_ _rest170922_ _hd170920_))) + (let () (declare (not safe)) (_E170897170906_)))) + (let _lp170924_ ((_n170926_ _n170889_) + (_l170927_ _r170894_) + (_r170928_ _rest170893_)) + (if (let () (declare (not safe)) (null? _l170927_)) + (values _l170927_ _r170928_) + (if (fxpositive? _n170926_) + (let ((__tmp176673 (let () (declare (not safe)) - (fx- _n170996_ '1))) - (__tmp176742 (cdr _l170997_)) - (__tmp176740 - (let ((__tmp176741 (car _l170997_))) + (fx- _n170926_ '1))) + (__tmp176672 (cdr _l170927_)) + (__tmp176670 + (let ((__tmp176671 (car _l170927_))) (declare (not safe)) - (cons __tmp176741 _r170998_)))) + (cons __tmp176671 _r170928_)))) (declare (not safe)) - (_lp170994_ __tmp176743 __tmp176742 __tmp176740)) - (values (reverse _l170997_) _r170998_)))))))))) + (_lp170924_ __tmp176673 __tmp176672 __tmp176670)) + (values (reverse _l170927_) _r170928_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase__1.scm b/src/bootstrap/gerbil/expander/stxcase__1.scm index 9cb9835f6..7b3e7bc84 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]#_g176747_| + (define |gx[1]#_g176677_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g176749_| + (define |gx[1]#_g176679_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g176751_| + (define |gx[1]#_g176681_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g176753_| + (define |gx[1]#_g176683_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g176759_| + (define |gx[1]#_g176689_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g176762_| + (define |gx[1]#_g176692_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g176765_| + (define |gx[1]#_g176695_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g176771_| + (define |gx[1]#_g176701_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g176774_| + (define |gx[1]#_g176704_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g176777_| + (define |gx[1]#_g176707_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g176783_| + (define |gx[1]#_g176713_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g176786_| + (define |gx[1]#_g176716_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g176789_| + (define |gx[1]#_g176719_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g176795_| + (define |gx[1]#_g176725_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g176798_| + (define |gx[1]#_g176728_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g176801_| + (define |gx[1]#_g176731_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! @@ -113,12 +113,12 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj176498 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj176428 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176498 + __obj176428 'gx#syntax-pattern::t '1 gerbil/core$$#class-type-info::t @@ -126,7 +126,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176498 + __obj176428 'syntax-pattern '2 gerbil/core$$#class-type-info::t @@ -134,26 +134,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176498 + __obj176428 '(id depth) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp176745 - (let ((__tmp176746 |gx[1]#_g176747_|)) + (let ((__tmp176675 + (let ((__tmp176676 |gx[1]#_g176677_|)) (declare (not safe)) - (cons __tmp176746 '())))) + (cons __tmp176676 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj176498 - __tmp176745 + __obj176428 + __tmp176675 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176498 + __obj176428 '#t '5 gerbil/core$$#class-type-info::t @@ -161,7 +161,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176498 + __obj176428 '#f '6 gerbil/core$$#class-type-info::t @@ -169,145 +169,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176498 + __obj176428 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp176748 |gx[1]#_g176749_|)) + (let ((__tmp176678 |gx[1]#_g176679_|)) (declare (not safe)) (##unchecked-structure-set! - __obj176498 - __tmp176748 + __obj176428 + __tmp176678 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp176750 |gx[1]#_g176751_|)) + (let ((__tmp176680 |gx[1]#_g176681_|)) (declare (not safe)) (##unchecked-structure-set! - __obj176498 - __tmp176750 + __obj176428 + __tmp176680 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp176752 |gx[1]#_g176753_|)) + (let ((__tmp176682 |gx[1]#_g176683_|)) (declare (not safe)) (##unchecked-structure-set! - __obj176498 - __tmp176752 + __obj176428 + __tmp176682 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp176754 - (let ((__tmp176763 - (let ((__tmp176764 |gx[1]#_g176765_|)) + (let ((__tmp176684 + (let ((__tmp176693 + (let ((__tmp176694 |gx[1]#_g176695_|)) (declare (not safe)) - (cons 'id __tmp176764))) - (__tmp176755 - (let ((__tmp176760 - (let ((__tmp176761 |gx[1]#_g176762_|)) + (cons 'id __tmp176694))) + (__tmp176685 + (let ((__tmp176690 + (let ((__tmp176691 |gx[1]#_g176692_|)) (declare (not safe)) - (cons 'depth __tmp176761))) - (__tmp176756 - (let ((__tmp176757 - (let ((__tmp176758 |gx[1]#_g176759_|)) + (cons 'depth __tmp176691))) + (__tmp176686 + (let ((__tmp176687 + (let ((__tmp176688 |gx[1]#_g176689_|)) (declare (not safe)) - (cons 'e __tmp176758)))) + (cons 'e __tmp176688)))) (declare (not safe)) - (cons __tmp176757 '())))) + (cons __tmp176687 '())))) (declare (not safe)) - (cons __tmp176760 __tmp176756)))) + (cons __tmp176690 __tmp176686)))) (declare (not safe)) - (cons __tmp176763 __tmp176755)))) + (cons __tmp176693 __tmp176685)))) (declare (not safe)) (##unchecked-structure-set! - __obj176498 - __tmp176754 + __obj176428 + __tmp176684 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp176766 - (let ((__tmp176775 - (let ((__tmp176776 |gx[1]#_g176777_|)) + (let ((__tmp176696 + (let ((__tmp176705 + (let ((__tmp176706 |gx[1]#_g176707_|)) (declare (not safe)) - (cons 'id __tmp176776))) - (__tmp176767 - (let ((__tmp176772 - (let ((__tmp176773 |gx[1]#_g176774_|)) + (cons 'id __tmp176706))) + (__tmp176697 + (let ((__tmp176702 + (let ((__tmp176703 |gx[1]#_g176704_|)) (declare (not safe)) - (cons 'depth __tmp176773))) - (__tmp176768 - (let ((__tmp176769 - (let ((__tmp176770 |gx[1]#_g176771_|)) + (cons 'depth __tmp176703))) + (__tmp176698 + (let ((__tmp176699 + (let ((__tmp176700 |gx[1]#_g176701_|)) (declare (not safe)) - (cons 'e __tmp176770)))) + (cons 'e __tmp176700)))) (declare (not safe)) - (cons __tmp176769 '())))) + (cons __tmp176699 '())))) (declare (not safe)) - (cons __tmp176772 __tmp176768)))) + (cons __tmp176702 __tmp176698)))) (declare (not safe)) - (cons __tmp176775 __tmp176767)))) + (cons __tmp176705 __tmp176697)))) (declare (not safe)) (##unchecked-structure-set! - __obj176498 - __tmp176766 + __obj176428 + __tmp176696 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp176778 - (let ((__tmp176787 - (let ((__tmp176788 |gx[1]#_g176789_|)) + (let ((__tmp176708 + (let ((__tmp176717 + (let ((__tmp176718 |gx[1]#_g176719_|)) (declare (not safe)) - (cons 'id __tmp176788))) - (__tmp176779 - (let ((__tmp176784 - (let ((__tmp176785 |gx[1]#_g176786_|)) + (cons 'id __tmp176718))) + (__tmp176709 + (let ((__tmp176714 + (let ((__tmp176715 |gx[1]#_g176716_|)) (declare (not safe)) - (cons 'depth __tmp176785))) - (__tmp176780 - (let ((__tmp176781 - (let ((__tmp176782 |gx[1]#_g176783_|)) + (cons 'depth __tmp176715))) + (__tmp176710 + (let ((__tmp176711 + (let ((__tmp176712 |gx[1]#_g176713_|)) (declare (not safe)) - (cons 'e __tmp176782)))) + (cons 'e __tmp176712)))) (declare (not safe)) - (cons __tmp176781 '())))) + (cons __tmp176711 '())))) (declare (not safe)) - (cons __tmp176784 __tmp176780)))) + (cons __tmp176714 __tmp176710)))) (declare (not safe)) - (cons __tmp176787 __tmp176779)))) + (cons __tmp176717 __tmp176709)))) (declare (not safe)) (##unchecked-structure-set! - __obj176498 - __tmp176778 + __obj176428 + __tmp176708 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp176790 - (let ((__tmp176799 - (let ((__tmp176800 |gx[1]#_g176801_|)) + (let ((__tmp176720 + (let ((__tmp176729 + (let ((__tmp176730 |gx[1]#_g176731_|)) (declare (not safe)) - (cons 'id __tmp176800))) - (__tmp176791 - (let ((__tmp176796 - (let ((__tmp176797 |gx[1]#_g176798_|)) + (cons 'id __tmp176730))) + (__tmp176721 + (let ((__tmp176726 + (let ((__tmp176727 |gx[1]#_g176728_|)) (declare (not safe)) - (cons 'depth __tmp176797))) - (__tmp176792 - (let ((__tmp176793 - (let ((__tmp176794 |gx[1]#_g176795_|)) + (cons 'depth __tmp176727))) + (__tmp176722 + (let ((__tmp176723 + (let ((__tmp176724 |gx[1]#_g176725_|)) (declare (not safe)) - (cons 'e __tmp176794)))) + (cons 'e __tmp176724)))) (declare (not safe)) - (cons __tmp176793 '())))) + (cons __tmp176723 '())))) (declare (not safe)) - (cons __tmp176796 __tmp176792)))) + (cons __tmp176726 __tmp176722)))) (declare (not safe)) - (cons __tmp176799 __tmp176791)))) + (cons __tmp176729 __tmp176721)))) (declare (not safe)) (##unchecked-structure-set! - __obj176498 - __tmp176790 + __obj176428 + __tmp176720 '14 gerbil/core$$#class-type-info::t '#f)) - __obj176498))) + __obj176428))) diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index d6e74a985..6ac6d863c 100644 --- a/src/bootstrap/gerbil/expander/top__0.scm +++ b/src/bootstrap/gerbil/expander/top__0.scm @@ -1,3503 +1,3503 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1707423040) + (define gerbil/expander/top::timestamp 1707565660) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_stx147903_) - (letrec ((_expand-special147905_ - (lambda (_hd147907_ _K147908_ _rest147909_ _r147910_) - (_K147908_ - _rest147909_ - (cons (gx#core-expand-top _hd147907_) _r147910_))))) - (gx#core-expand-block__0 _stx147903_ _expand-special147905_)))) + (lambda (_stx147833_) + (letrec ((_expand-special147835_ + (lambda (_hd147837_ _K147838_ _rest147839_ _r147840_) + (_K147838_ + _rest147839_ + (cons (gx#core-expand-top _hd147837_) _r147840_))))) + (gx#core-expand-block__0 _stx147833_ _expand-special147835_)))) (define gx#core-expand-begin-syntax% - (lambda (_stx147656_) - (letrec ((_expand-special147658_ - (lambda (_hd147778_ _K147779_ _rest147780_ _r147781_) - (let* ((_K147785_ - (lambda (_e147783_) - (_K147779_ - _rest147780_ - (cons _e147783_ _r147781_)))) - (_e147786147815_ _hd147778_) - (_E147810147819_ + (lambda (_stx147586_) + (letrec ((_expand-special147588_ + (lambda (_hd147708_ _K147709_ _rest147710_ _r147711_) + (let* ((_K147715_ + (lambda (_e147713_) + (_K147709_ + _rest147710_ + (cons _e147713_ _r147711_)))) + (_e147716147745_ _hd147708_) + (_E147740147749_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e147786147815_))) - (_E147806147831_ + _e147716147745_))) + (_E147736147761_ (lambda () - (if (gx#stx-pair? _e147786147815_) - (let ((_e147811147823_ - (gx#syntax-e _e147786147815_))) - (let ((_hd147812147826_ - (##car _e147811147823_)) - (_tl147813147828_ - (##cdr _e147811147823_))) + (if (gx#stx-pair? _e147716147745_) + (let ((_e147741147753_ + (gx#syntax-e _e147716147745_))) + (let ((_hd147742147756_ + (##car _e147741147753_)) + (_tl147743147758_ + (##cdr _e147741147753_))) (if (and (gx#identifier? - _hd147812147826_) + _hd147742147756_) (gx#core-identifier=? - _hd147812147826_ + _hd147742147756_ '%#define-runtime)) (if '#t - (_K147785_ + (_K147715_ (gx#core-expand-define-runtime% - _hd147778_)) - (_E147810147819_)) - (_E147810147819_)))) - (_E147810147819_)))) - (_E147802147843_ + _hd147708_)) + (_E147740147749_)) + (_E147740147749_)))) + (_E147740147749_)))) + (_E147732147773_ (lambda () - (if (gx#stx-pair? _e147786147815_) - (let ((_e147807147835_ - (gx#syntax-e _e147786147815_))) - (let ((_hd147808147838_ - (##car _e147807147835_)) - (_tl147809147840_ - (##cdr _e147807147835_))) + (if (gx#stx-pair? _e147716147745_) + (let ((_e147737147765_ + (gx#syntax-e _e147716147745_))) + (let ((_hd147738147768_ + (##car _e147737147765_)) + (_tl147739147770_ + (##cdr _e147737147765_))) (if (and (gx#identifier? - _hd147808147838_) + _hd147738147768_) (gx#core-identifier=? - _hd147808147838_ + _hd147738147768_ '%#define-alias)) (if '#t - (_K147785_ + (_K147715_ (gx#core-expand-define-alias% - _hd147778_)) - (_E147806147831_)) - (_E147806147831_)))) - (_E147806147831_)))) - (_E147792147855_ + _hd147708_)) + (_E147736147761_)) + (_E147736147761_)))) + (_E147736147761_)))) + (_E147722147785_ (lambda () - (if (gx#stx-pair? _e147786147815_) - (let ((_e147803147847_ - (gx#syntax-e _e147786147815_))) - (let ((_hd147804147850_ - (##car _e147803147847_)) - (_tl147805147852_ - (##cdr _e147803147847_))) + (if (gx#stx-pair? _e147716147745_) + (let ((_e147733147777_ + (gx#syntax-e _e147716147745_))) + (let ((_hd147734147780_ + (##car _e147733147777_)) + (_tl147735147782_ + (##cdr _e147733147777_))) (if (and (gx#identifier? - _hd147804147850_) + _hd147734147780_) (gx#core-identifier=? - _hd147804147850_ + _hd147734147780_ '%#define-syntax)) (if '#t - (_K147785_ + (_K147715_ (gx#core-expand-define-syntax% - _hd147778_)) - (_E147802147843_)) - (_E147802147843_)))) - (_E147802147843_)))) - (_E147788147887_ + _hd147708_)) + (_E147732147773_)) + (_E147732147773_)))) + (_E147732147773_)))) + (_E147718147817_ (lambda () - (if (gx#stx-pair? _e147786147815_) - (let ((_e147793147859_ - (gx#syntax-e _e147786147815_))) - (let ((_hd147794147862_ - (##car _e147793147859_)) - (_tl147795147864_ - (##cdr _e147793147859_))) + (if (gx#stx-pair? _e147716147745_) + (let ((_e147723147789_ + (gx#syntax-e _e147716147745_))) + (let ((_hd147724147792_ + (##car _e147723147789_)) + (_tl147725147794_ + (##cdr _e147723147789_))) (if (and (gx#identifier? - _hd147794147862_) + _hd147724147792_) (gx#core-identifier=? - _hd147794147862_ + _hd147724147792_ '%#define-values)) - (if (gx#stx-pair? _tl147795147864_) - (let ((_e147796147867_ + (if (gx#stx-pair? _tl147725147794_) + (let ((_e147726147797_ (gx#syntax-e - _tl147795147864_))) - (let ((_hd147797147870_ - (##car _e147796147867_)) - (_tl147798147872_ - (##cdr _e147796147867_))) - (let ((_hd-bind147875_ - _hd147797147870_)) + _tl147725147794_))) + (let ((_hd147727147800_ + (##car _e147726147797_)) + (_tl147728147802_ + (##cdr _e147726147797_))) + (let ((_hd-bind147805_ + _hd147727147800_)) (if (gx#stx-pair? - _tl147798147872_) - (let ((_e147799147877_ + _tl147728147802_) + (let ((_e147729147807_ (gx#syntax-e - _tl147798147872_))) - (let ((_hd147800147880_ + _tl147728147802_))) + (let ((_hd147730147810_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e147799147877_)) - (_tl147801147882_ (##cdr _e147799147877_))) - (let ((_expr147885_ _hd147800147880_)) - (if (gx#stx-null? _tl147801147882_) - (if (gx#core-bind-values? _hd-bind147875_) + (##car _e147729147807_)) + (_tl147731147812_ (##cdr _e147729147807_))) + (let ((_expr147815_ _hd147730147810_)) + (if (gx#stx-null? _tl147731147812_) + (if (gx#core-bind-values? _hd-bind147805_) (begin - (gx#core-bind-values!__0 _hd-bind147875_) - (_K147785_ _hd147778_)) - (_E147792147855_)) - (_E147792147855_))))) - (_E147792147855_))))) + (gx#core-bind-values!__0 _hd-bind147805_) + (_K147715_ _hd147708_)) + (_E147722147785_)) + (_E147722147785_))))) + (_E147722147785_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147792147855_)) - (_E147792147855_)))) - (_E147792147855_)))) - (_E147787147899_ + (_E147722147785_)) + (_E147722147785_)))) + (_E147722147785_)))) + (_E147717147829_ (lambda () - (if (gx#stx-pair? _e147786147815_) - (let ((_e147789147891_ - (gx#syntax-e _e147786147815_))) - (let ((_hd147790147894_ - (##car _e147789147891_)) - (_tl147791147896_ - (##cdr _e147789147891_))) + (if (gx#stx-pair? _e147716147745_) + (let ((_e147719147821_ + (gx#syntax-e _e147716147745_))) + (let ((_hd147720147824_ + (##car _e147719147821_)) + (_tl147721147826_ + (##cdr _e147719147821_))) (if (and (gx#identifier? - _hd147790147894_) + _hd147720147824_) (gx#core-identifier=? - _hd147790147894_ + _hd147720147824_ '%#begin-syntax)) (if '#t - (_K147785_ + (_K147715_ (gx#core-expand-begin-syntax% - _hd147778_)) - (_E147788147887_)) - (_E147788147887_)))) - (_E147788147887_))))) - (_E147787147899_)))) - (_eval-body147659_ - (lambda (_rbody147667_) - (let _lp147669_ ((_rest147671_ _rbody147667_) - (_body147672_ '()) - (_ebody147673_ '())) - (let* ((_rest147674147682_ _rest147671_) - (_else147676147690_ + _hd147708_)) + (_E147718147817_)) + (_E147718147817_)))) + (_E147718147817_))))) + (_E147717147829_)))) + (_eval-body147589_ + (lambda (_rbody147597_) + (let _lp147599_ ((_rest147601_ _rbody147597_) + (_body147602_ '()) + (_ebody147603_ '())) + (let* ((_rest147604147612_ _rest147601_) + (_else147606147620_ (lambda () - (values _body147672_ + (values _body147602_ (gx#eval-syntax* (gx#core-quote-syntax__1 - (gx#core-cons '%#begin _ebody147673_) - (gx#stx-source _stx147656_)))))) - (_K147678147766_ - (lambda (_rest147693_ _hd147694_) - (let* ((_e147695147712_ _hd147694_) - (_E147707147716_ + (gx#core-cons '%#begin _ebody147603_) + (gx#stx-source _stx147586_)))))) + (_K147608147696_ + (lambda (_rest147623_ _hd147624_) + (let* ((_e147625147642_ _hd147624_) + (_E147637147646_ (lambda () - (_lp147669_ - _rest147693_ - (cons _hd147694_ _body147672_) - (cons _hd147694_ _ebody147673_)))) - (_E147697147728_ + (_lp147599_ + _rest147623_ + (cons _hd147624_ _body147602_) + (cons _hd147624_ _ebody147603_)))) + (_E147627147658_ (lambda () - (if (gx#stx-pair? _e147695147712_) - (let ((_e147708147720_ + (if (gx#stx-pair? _e147625147642_) + (let ((_e147638147650_ (gx#syntax-e - _e147695147712_))) - (let ((_hd147709147723_ - (##car _e147708147720_)) - (_tl147710147725_ - (##cdr _e147708147720_))) + _e147625147642_))) + (let ((_hd147639147653_ + (##car _e147638147650_)) + (_tl147640147655_ + (##cdr _e147638147650_))) (if (and (gx#identifier? - _hd147709147723_) + _hd147639147653_) (gx#core-identifier=? - _hd147709147723_ + _hd147639147653_ '%#begin-syntax)) (if '#t - (_lp147669_ - _rest147693_ - (cons _hd147694_ + (_lp147599_ + _rest147623_ + (cons _hd147624_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body147672_) - _ebody147673_) - (_E147707147716_)) - (_E147707147716_)))) + _body147602_) + _ebody147603_) + (_E147637147646_)) + (_E147637147646_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147707147716_)))) - (_E147696147762_ + (_E147637147646_)))) + (_E147626147692_ (lambda () - (if (gx#stx-pair? _e147695147712_) - (let ((_e147698147732_ + (if (gx#stx-pair? _e147625147642_) + (let ((_e147628147662_ (gx#syntax-e - _e147695147712_))) - (let ((_hd147699147735_ - (##car _e147698147732_)) - (_tl147700147737_ - (##cdr _e147698147732_))) + _e147625147642_))) + (let ((_hd147629147665_ + (##car _e147628147662_)) + (_tl147630147667_ + (##cdr _e147628147662_))) (if (and (gx#identifier? - _hd147699147735_) + _hd147629147665_) (gx#core-identifier=? - _hd147699147735_ + _hd147629147665_ '%#define-values)) (if (gx#stx-pair? - _tl147700147737_) - (let ((_e147701147740_ + _tl147630147667_) + (let ((_e147631147670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl147700147737_))) - (let ((_hd147702147743_ (##car _e147701147740_)) - (_tl147703147745_ (##cdr _e147701147740_))) - (let ((_hd-bind147748_ _hd147702147743_)) - (if (gx#stx-pair? _tl147703147745_) - (let ((_e147704147750_ - (gx#syntax-e _tl147703147745_))) - (let ((_hd147705147753_ (##car _e147704147750_)) - (_tl147706147755_ (##cdr _e147704147750_))) - (let ((_expr147758_ _hd147705147753_)) - (if (gx#stx-null? _tl147706147755_) + (gx#syntax-e _tl147630147667_))) + (let ((_hd147632147673_ (##car _e147631147670_)) + (_tl147633147675_ (##cdr _e147631147670_))) + (let ((_hd-bind147678_ _hd147632147673_)) + (if (gx#stx-pair? _tl147633147675_) + (let ((_e147634147680_ + (gx#syntax-e _tl147633147675_))) + (let ((_hd147635147683_ (##car _e147634147680_)) + (_tl147636147685_ (##cdr _e147634147680_))) + (let ((_expr147688_ _hd147635147683_)) + (if (gx#stx-null? _tl147636147685_) (if '#t - (let ((_ehd147760_ + (let ((_ehd147690_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _hd-bind147748_) + _hd-bind147678_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr147758_) + _expr147688_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _hd147694_)))) - (_lp147669_ - _rest147693_ - (cons _ehd147760_ _body147672_) - (cons _ehd147760_ _ebody147673_))) - (_E147697147728_)) - (_E147697147728_))))) - (_E147697147728_))))) - (_E147697147728_)) - (_E147697147728_)))) + (gx#stx-source _hd147624_)))) + (_lp147599_ + _rest147623_ + (cons _ehd147690_ _body147602_) + (cons _ehd147690_ _ebody147603_))) + (_E147627147658_)) + (_E147627147658_))))) + (_E147627147658_))))) + (_E147627147658_)) + (_E147627147658_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147697147728_))))) - (_E147696147762_))))) - (if (##pair? _rest147674147682_) - (let ((_hd147679147769_ (##car _rest147674147682_)) - (_tl147680147771_ - (##cdr _rest147674147682_))) - (let* ((_hd147774_ _hd147679147769_) - (_rest147776_ _tl147680147771_)) - (_K147678147766_ _rest147776_ _hd147774_))) - (_else147676147690_))))))) + (_E147627147658_))))) + (_E147626147692_))))) + (if (##pair? _rest147604147612_) + (let ((_hd147609147699_ (##car _rest147604147612_)) + (_tl147610147701_ + (##cdr _rest147604147612_))) + (let* ((_hd147704_ _hd147609147699_) + (_rest147706_ _tl147610147701_)) + (_K147608147696_ _rest147706_ _hd147704_))) + (_else147606147620_))))))) (call-with-parameters (lambda () - (let* ((_rbody147662_ + (let* ((_rbody147592_ (gx#core-expand-block__1 - _stx147656_ - _expand-special147658_ + _stx147586_ + _expand-special147588_ '#f)) - (_g152120_ (_eval-body147659_ _rbody147662_))) + (_g152050_ (_eval-body147589_ _rbody147592_))) (begin - (let ((_g152121_ - (if (##values? _g152120_) - (##vector-length _g152120_) + (let ((_g152051_ + (if (##values? _g152050_) + (##vector-length _g152050_) 1))) - (if (not (##fx= _g152121_ 2)) - (error "Context expects 2 values" _g152121_))) - (let ((_expanded-body147664_ (##vector-ref _g152120_ 0)) - (_value147665_ (##vector-ref _g152120_ 1))) + (if (not (##fx= _g152051_ 2)) + (error "Context expects 2 values" _g152051_))) + (let ((_expanded-body147594_ (##vector-ref _g152050_ 0)) + (_value147595_ (##vector-ref _g152050_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _expanded-body147664_) + (gx#core-cons '%#begin-syntax _expanded-body147594_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _value147665_ '()))) - (gx#stx-source _stx147656_)))))) + (cons _value147595_ '()))) + (gx#stx-source _stx147586_)))))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_stx147626_) - (let* ((_e147627147634_ _stx147626_) - (_E147629147638_ + (lambda (_stx147556_) + (let* ((_e147557147564_ _stx147556_) + (_E147559147568_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e147627147634_))) - (_E147628147652_ + _e147557147564_))) + (_E147558147582_ (lambda () - (if (gx#stx-pair? _e147627147634_) - (let ((_e147630147642_ (gx#syntax-e _e147627147634_))) - (let ((_hd147631147645_ (##car _e147630147642_)) - (_tl147632147647_ (##cdr _e147630147642_))) - (let ((_body147650_ _tl147632147647_)) - (if (gx#stx-list? _body147650_) + (if (gx#stx-pair? _e147557147564_) + (let ((_e147560147572_ (gx#syntax-e _e147557147564_))) + (let ((_hd147561147575_ (##car _e147560147572_)) + (_tl147562147577_ (##cdr _e147560147572_))) + (let ((_body147580_ _tl147562147577_)) + (if (gx#stx-list? _body147580_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _body147650_) - (gx#stx-source _stx147626_)) - (_E147629147638_))))) - (_E147629147638_))))) - (_E147628147652_)))) + (gx#core-cons '%#begin-foreign _body147580_) + (gx#stx-source _stx147556_)) + (_E147559147568_))))) + (_E147559147568_))))) + (_E147558147582_)))) (define gx#core-expand-begin-module% - (lambda (_stx147624_) - (gx#raise-syntax-error '#f '"Illegal expansion" _stx147624_))) + (lambda (_stx147554_) + (gx#raise-syntax-error '#f '"Illegal expansion" _stx147554_))) (define gx#core-expand-begin-annotation% - (lambda (_stx147570_) - (let* ((_e147571147584_ _stx147570_) - (_E147573147588_ + (lambda (_stx147500_) + (let* ((_e147501147514_ _stx147500_) + (_E147503147518_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e147571147584_))) - (_E147572147620_ + _e147501147514_))) + (_E147502147550_ (lambda () - (if (gx#stx-pair? _e147571147584_) - (let ((_e147574147592_ (gx#syntax-e _e147571147584_))) - (let ((_hd147575147595_ (##car _e147574147592_)) - (_tl147576147597_ (##cdr _e147574147592_))) - (if (gx#stx-pair? _tl147576147597_) - (let ((_e147577147600_ - (gx#syntax-e _tl147576147597_))) - (let ((_hd147578147603_ - (##car _e147577147600_)) - (_tl147579147605_ - (##cdr _e147577147600_))) - (let ((_ann147608_ _hd147578147603_)) - (if (gx#stx-pair? _tl147579147605_) - (let ((_e147580147610_ - (gx#syntax-e _tl147579147605_))) - (let ((_hd147581147613_ - (##car _e147580147610_)) - (_tl147582147615_ - (##cdr _e147580147610_))) - (let ((_expr147618_ - _hd147581147613_)) + (if (gx#stx-pair? _e147501147514_) + (let ((_e147504147522_ (gx#syntax-e _e147501147514_))) + (let ((_hd147505147525_ (##car _e147504147522_)) + (_tl147506147527_ (##cdr _e147504147522_))) + (if (gx#stx-pair? _tl147506147527_) + (let ((_e147507147530_ + (gx#syntax-e _tl147506147527_))) + (let ((_hd147508147533_ + (##car _e147507147530_)) + (_tl147509147535_ + (##cdr _e147507147530_))) + (let ((_ann147538_ _hd147508147533_)) + (if (gx#stx-pair? _tl147509147535_) + (let ((_e147510147540_ + (gx#syntax-e _tl147509147535_))) + (let ((_hd147511147543_ + (##car _e147510147540_)) + (_tl147512147545_ + (##cdr _e147510147540_))) + (let ((_expr147548_ + _hd147511147543_)) (if (gx#stx-null? - _tl147582147615_) + _tl147512147545_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _ann147608_ + (cons _ann147538_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-expand-expression _expr147618_) + (cons (gx#core-expand-expression _expr147548_) '()))) - (gx#stx-source _stx147570_)) - (_E147573147588_)) + (gx#stx-source _stx147500_)) + (_E147503147518_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147573147588_))))) - (_E147573147588_))))) - (_E147573147588_)))) - (_E147573147588_))))) - (_E147572147620_)))) + (_E147503147518_))))) + (_E147503147518_))))) + (_E147503147518_)))) + (_E147503147518_))))) + (_E147502147550_)))) (define gx#core-expand-local-block - (lambda (_stx147294_ _body147295_) - (letrec ((_expand-special147297_ - (lambda (_hd147565_ _K147566_ _rest147567_ _r147568_) - (_K147566_ + (lambda (_stx147224_ _body147225_) + (letrec ((_expand-special147227_ + (lambda (_hd147495_ _K147496_ _rest147497_ _r147498_) + (_K147496_ '() - (cons (_expand-internal147298_ _hd147565_ _rest147567_) - _r147568_)))) - (_expand-internal147298_ - (lambda (_hd147561_ _rest147562_) + (cons (_expand-internal147228_ _hd147495_ _rest147497_) + _r147498_)))) + (_expand-internal147228_ + (lambda (_hd147491_ _rest147492_) (call-with-parameters (lambda () - (_wrap-internal147300_ + (_wrap-internal147230_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _hd147561_ _rest147562_)) - (gx#stx-source _stx147294_)) - _expand-internal-special147299_ + (cons '%#begin (cons _hd147491_ _rest147492_)) + (gx#stx-source _stx147224_)) + _expand-internal-special147229_ '#f))) gx#current-expander-context - (let ((__obj152114 (make-object* gx#local-context::t '6))) - (gx#local-context:::init! __obj152114) - __obj152114)))) - (_expand-internal-special147299_ - (lambda (_hd147456_ _K147457_ _rest147458_ _r147459_) - (let* ((_e147460147485_ _hd147456_) - (_E147480147489_ + (let ((__obj152044 (make-object gx#local-context::t '6))) + (gx#local-context:::init! __obj152044) + __obj152044)))) + (_expand-internal-special147229_ + (lambda (_hd147386_ _K147387_ _rest147388_ _r147389_) + (let* ((_e147390147415_ _hd147386_) + (_E147410147419_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e147460147485_))) - (_E147476147501_ + _e147390147415_))) + (_E147406147431_ (lambda () - (if (gx#stx-pair? _e147460147485_) - (let ((_e147481147493_ - (gx#syntax-e _e147460147485_))) - (let ((_hd147482147496_ - (##car _e147481147493_)) - (_tl147483147498_ - (##cdr _e147481147493_))) + (if (gx#stx-pair? _e147390147415_) + (let ((_e147411147423_ + (gx#syntax-e _e147390147415_))) + (let ((_hd147412147426_ + (##car _e147411147423_)) + (_tl147413147428_ + (##cdr _e147411147423_))) (if (and (gx#identifier? - _hd147482147496_) + _hd147412147426_) (gx#core-identifier=? - _hd147482147496_ + _hd147412147426_ '%#declare)) (if '#t - (_K147457_ - _rest147458_ + (_K147387_ + _rest147388_ (cons (gx#core-expand-declare% - _hd147456_) - _r147459_)) - (_E147480147489_)) - (_E147480147489_)))) - (_E147480147489_)))) - (_E147472147513_ + _hd147386_) + _r147389_)) + (_E147410147419_)) + (_E147410147419_)))) + (_E147410147419_)))) + (_E147402147443_ (lambda () - (if (gx#stx-pair? _e147460147485_) - (let ((_e147477147505_ - (gx#syntax-e _e147460147485_))) - (let ((_hd147478147508_ - (##car _e147477147505_)) - (_tl147479147510_ - (##cdr _e147477147505_))) + (if (gx#stx-pair? _e147390147415_) + (let ((_e147407147435_ + (gx#syntax-e _e147390147415_))) + (let ((_hd147408147438_ + (##car _e147407147435_)) + (_tl147409147440_ + (##cdr _e147407147435_))) (if (and (gx#identifier? - _hd147478147508_) + _hd147408147438_) (gx#core-identifier=? - _hd147478147508_ + _hd147408147438_ '%#define-alias)) (if '#t (begin (gx#core-expand-define-alias% - _hd147456_) - (_K147457_ - _rest147458_ - _r147459_)) - (_E147476147501_)) - (_E147476147501_)))) - (_E147476147501_)))) - (_E147462147525_ + _hd147386_) + (_K147387_ + _rest147388_ + _r147389_)) + (_E147406147431_)) + (_E147406147431_)))) + (_E147406147431_)))) + (_E147392147455_ (lambda () - (if (gx#stx-pair? _e147460147485_) - (let ((_e147473147517_ - (gx#syntax-e _e147460147485_))) - (let ((_hd147474147520_ - (##car _e147473147517_)) - (_tl147475147522_ - (##cdr _e147473147517_))) + (if (gx#stx-pair? _e147390147415_) + (let ((_e147403147447_ + (gx#syntax-e _e147390147415_))) + (let ((_hd147404147450_ + (##car _e147403147447_)) + (_tl147405147452_ + (##cdr _e147403147447_))) (if (and (gx#identifier? - _hd147474147520_) + _hd147404147450_) (gx#core-identifier=? - _hd147474147520_ + _hd147404147450_ '%#define-syntax)) (if '#t (begin (gx#core-expand-define-syntax% - _hd147456_) - (_K147457_ - _rest147458_ - _r147459_)) - (_E147472147513_)) - (_E147472147513_)))) - (_E147472147513_)))) - (_E147461147557_ + _hd147386_) + (_K147387_ + _rest147388_ + _r147389_)) + (_E147402147443_)) + (_E147402147443_)))) + (_E147402147443_)))) + (_E147391147487_ (lambda () - (if (gx#stx-pair? _e147460147485_) - (let ((_e147463147529_ - (gx#syntax-e _e147460147485_))) - (let ((_hd147464147532_ - (##car _e147463147529_)) - (_tl147465147534_ - (##cdr _e147463147529_))) + (if (gx#stx-pair? _e147390147415_) + (let ((_e147393147459_ + (gx#syntax-e _e147390147415_))) + (let ((_hd147394147462_ + (##car _e147393147459_)) + (_tl147395147464_ + (##cdr _e147393147459_))) (if (and (gx#identifier? - _hd147464147532_) + _hd147394147462_) (gx#core-identifier=? - _hd147464147532_ + _hd147394147462_ '%#define-values)) - (if (gx#stx-pair? _tl147465147534_) - (let ((_e147466147537_ + (if (gx#stx-pair? _tl147395147464_) + (let ((_e147396147467_ (gx#syntax-e - _tl147465147534_))) - (let ((_hd147467147540_ - (##car _e147466147537_)) - (_tl147468147542_ - (##cdr _e147466147537_))) - (let ((_hd-bind147545_ - _hd147467147540_)) + _tl147395147464_))) + (let ((_hd147397147470_ + (##car _e147396147467_)) + (_tl147398147472_ + (##cdr _e147396147467_))) + (let ((_hd-bind147475_ + _hd147397147470_)) (if (gx#stx-pair? - _tl147468147542_) - (let ((_e147469147547_ + _tl147398147472_) + (let ((_e147399147477_ (gx#syntax-e - _tl147468147542_))) - (let ((_hd147470147550_ + _tl147398147472_))) + (let ((_hd147400147480_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e147469147547_)) - (_tl147471147552_ (##cdr _e147469147547_))) - (let ((_expr147555_ _hd147470147550_)) - (if (gx#stx-null? _tl147471147552_) - (if (gx#core-bind-values? _hd-bind147545_) + (##car _e147399147477_)) + (_tl147401147482_ (##cdr _e147399147477_))) + (let ((_expr147485_ _hd147400147480_)) + (if (gx#stx-null? _tl147401147482_) + (if (gx#core-bind-values? _hd-bind147475_) (begin - (gx#core-bind-values!__0 _hd-bind147545_) - (_K147457_ - _rest147458_ - (cons _hd147456_ _r147459_))) - (_E147462147525_)) - (_E147462147525_))))) - (_E147462147525_))))) + (gx#core-bind-values!__0 _hd-bind147475_) + (_K147387_ + _rest147388_ + (cons _hd147386_ _r147389_))) + (_E147392147455_)) + (_E147392147455_))))) + (_E147392147455_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147462147525_)) - (_E147462147525_)))) - (_E147462147525_))))) - (_E147461147557_)))) - (_wrap-internal147300_ - (lambda (_rbody147302_) - (let _lp147304_ ((_rest147306_ _rbody147302_) - (_decls147307_ '()) - (_bind147308_ '()) - (_body147309_ '())) - (let* ((_e147310147317_ _rest147306_) - (_E147312147366_ + (_E147392147455_)) + (_E147392147455_)))) + (_E147392147455_))))) + (_E147391147487_)))) + (_wrap-internal147230_ + (lambda (_rbody147232_) + (let _lp147234_ ((_rest147236_ _rbody147232_) + (_decls147237_ '()) + (_bind147238_ '()) + (_body147239_ '())) + (let* ((_e147240147247_ _rest147236_) + (_E147242147296_ (lambda () - (let* ((_body147361_ - (let* ((_body147320147330_ - _body147309_) - (_else147323147338_ + (let* ((_body147291_ + (let* ((_body147250147260_ + _body147239_) + (_else147253147268_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body147309_) + _body147239_) (gx#stx-source - _stx147294_))))) - (let ((_K147328147358_ + _stx147224_))))) + (let ((_K147258147288_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _stx147294_))) - (_K147325147344_ - (lambda (_expr147342_) - _expr147342_))) - (let ((_try-match147322147354_ + _stx147224_))) + (_K147255147274_ + (lambda (_expr147272_) + _expr147272_))) + (let ((_try-match147252147284_ (lambda () - (if (##pair? _body147320147330_) - (let ((_tl147327147349_ - (##cdr _body147320147330_)) - (_hd147326147347_ - (##car _body147320147330_))) - (if (##null? _tl147327147349_) - (let ((_expr147352_ + (if (##pair? _body147250147260_) + (let ((_tl147257147279_ + (##cdr _body147250147260_)) + (_hd147256147277_ + (##car _body147250147260_))) + (if (##null? _tl147257147279_) + (let ((_expr147282_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd147326147347_)) - (_K147325147344_ _expr147352_)) - (_else147323147338_))) - (_else147323147338_))))) + _hd147256147277_)) + (_K147255147274_ _expr147282_)) + (_else147253147268_))) + (_else147253147268_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _body147320147330_) - (_K147328147358_) - (_try-match147322147354_)))))) - (_body147363_ - (if (null? _bind147308_) - _body147361_ + (if (##null? _body147250147260_) + (_K147258147288_) + (_try-match147252147284_)))))) + (_body147293_ + (if (null? _bind147238_) + _body147291_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _bind147308_ - (cons _body147361_ + (cons _bind147238_ + (cons _body147291_ '()))) - (gx#stx-source _stx147294_))))) - (if (null? _decls147307_) - _body147363_ + (gx#stx-source _stx147224_))))) + (if (null? _decls147237_) + _body147293_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _decls147307_ - (cons _body147363_ '()))) - (gx#stx-source _stx147294_)))))) - (_E147311147452_ + (cons _decls147237_ + (cons _body147293_ '()))) + (gx#stx-source _stx147224_)))))) + (_E147241147382_ (lambda () - (if (gx#stx-pair? _e147310147317_) - (let ((_e147313147370_ - (gx#syntax-e _e147310147317_))) - (let ((_hd147314147373_ - (##car _e147313147370_)) - (_tl147315147375_ - (##cdr _e147313147370_))) - (let* ((_hd147378_ _hd147314147373_) - (_rest147380_ _tl147315147375_)) + (if (gx#stx-pair? _e147240147247_) + (let ((_e147243147300_ + (gx#syntax-e _e147240147247_))) + (let ((_hd147244147303_ + (##car _e147243147300_)) + (_tl147245147305_ + (##cdr _e147243147300_))) + (let* ((_hd147308_ _hd147244147303_) + (_rest147310_ _tl147245147305_)) (if '#t - (let* ((_e147381147398_ - _hd147378_) - (_E147393147402_ + (let* ((_e147311147328_ + _hd147308_) + (_E147323147332_ (lambda () - (if (null? _bind147308_) - (_lp147304_ - _rest147380_ - _decls147307_ - _bind147308_ - (cons _hd147378_ + (if (null? _bind147238_) + (_lp147234_ + _rest147310_ + _decls147237_ + _bind147238_ + (cons _hd147308_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body147309_)) - (_lp147304_ - _rest147380_ - _decls147307_ - (cons (cons '#f (cons _hd147378_ '())) _bind147308_) - _body147309_)))) + _body147239_)) + (_lp147234_ + _rest147310_ + _decls147237_ + (cons (cons '#f (cons _hd147308_ '())) _bind147238_) + _body147239_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147383147416_ + (_E147313147346_ (lambda () (if (gx#stx-pair? - _e147381147398_) - (let ((_e147394147406_ + _e147311147328_) + (let ((_e147324147336_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e147381147398_))) - (let ((_hd147395147409_ (##car _e147394147406_)) - (_tl147396147411_ (##cdr _e147394147406_))) - (if (and (gx#identifier? _hd147395147409_) + (gx#syntax-e _e147311147328_))) + (let ((_hd147325147339_ (##car _e147324147336_)) + (_tl147326147341_ (##cdr _e147324147336_))) + (if (and (gx#identifier? _hd147325147339_) (gx#core-identifier=? - _hd147395147409_ + _hd147325147339_ '%#declare)) - (let ((_xdecls147414_ _tl147396147411_)) + (let ((_xdecls147344_ _tl147326147341_)) (if '#t - (_lp147304_ - _rest147380_ + (_lp147234_ + _rest147310_ (gx#stx-foldr cons - _decls147307_ - _xdecls147414_) - _bind147308_ - _body147309_) - (_E147393147402_))) - (_E147393147402_)))) - (_E147393147402_)))) + _decls147237_ + _xdecls147344_) + _bind147238_ + _body147239_) + (_E147323147332_))) + (_E147323147332_)))) + (_E147323147332_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147382147448_ + (_E147312147378_ (lambda () (if (gx#stx-pair? - _e147381147398_) - (let ((_e147384147420_ + _e147311147328_) + (let ((_e147314147350_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e147381147398_))) - (let ((_hd147385147423_ (##car _e147384147420_)) - (_tl147386147425_ (##cdr _e147384147420_))) - (if (and (gx#identifier? _hd147385147423_) + (gx#syntax-e _e147311147328_))) + (let ((_hd147315147353_ (##car _e147314147350_)) + (_tl147316147355_ (##cdr _e147314147350_))) + (if (and (gx#identifier? _hd147315147353_) (gx#core-identifier=? - _hd147385147423_ + _hd147315147353_ '%#define-values)) - (if (gx#stx-pair? _tl147386147425_) - (let ((_e147387147428_ - (gx#syntax-e _tl147386147425_))) - (let ((_hd147388147431_ - (##car _e147387147428_)) - (_tl147389147433_ - (##cdr _e147387147428_))) - (let ((_hd-bind147436_ _hd147388147431_)) - (if (gx#stx-pair? _tl147389147433_) - (let ((_e147390147438_ + (if (gx#stx-pair? _tl147316147355_) + (let ((_e147317147358_ + (gx#syntax-e _tl147316147355_))) + (let ((_hd147318147361_ + (##car _e147317147358_)) + (_tl147319147363_ + (##cdr _e147317147358_))) + (let ((_hd-bind147366_ _hd147318147361_)) + (if (gx#stx-pair? _tl147319147363_) + (let ((_e147320147368_ (gx#syntax-e - _tl147389147433_))) - (let ((_hd147391147441_ - (##car _e147390147438_)) - (_tl147392147443_ - (##cdr _e147390147438_))) - (let ((_expr147446_ - _hd147391147441_)) + _tl147319147363_))) + (let ((_hd147321147371_ + (##car _e147320147368_)) + (_tl147322147373_ + (##cdr _e147320147368_))) + (let ((_expr147376_ + _hd147321147371_)) (if (gx#stx-null? - _tl147392147443_) + _tl147322147373_) (if '#t - (_lp147304_ - _rest147380_ - _decls147307_ + (_lp147234_ + _rest147310_ + _decls147237_ (cons (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-bind147436_) - (cons (gx#core-expand-expression _expr147446_) + _hd-bind147366_) + (cons (gx#core-expand-expression _expr147376_) '())) - _bind147308_) - _body147309_) - (_E147383147416_)) + _bind147238_) + _body147239_) + (_E147313147346_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147383147416_))))) - (_E147383147416_))))) - (_E147383147416_)) - (_E147383147416_)))) - (_E147383147416_))))) + (_E147313147346_))))) + (_E147313147346_))))) + (_E147313147346_)) + (_E147313147346_)))) + (_E147313147346_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147382147448_)) - (_E147312147366_))))) - (_E147312147366_))))) - (_E147311147452_)))))) + (_E147312147378_)) + (_E147242147296_))))) + (_E147242147296_))))) + (_E147241147382_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _body147295_) - (gx#stx-source _stx147294_)) - _expand-special147297_)))) + (cons '%#begin _body147225_) + (gx#stx-source _stx147224_)) + _expand-special147227_)))) (define gx#core-expand-declare% - (lambda (_stx147232_) - (let* ((_e147233147240_ _stx147232_) - (_E147235147244_ + (lambda (_stx147162_) + (let* ((_e147163147170_ _stx147162_) + (_E147165147174_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e147233147240_))) - (_E147234147290_ + _e147163147170_))) + (_E147164147220_ (lambda () - (if (gx#stx-pair? _e147233147240_) - (let ((_e147236147248_ (gx#syntax-e _e147233147240_))) - (let ((_hd147237147251_ (##car _e147236147248_)) - (_tl147238147253_ (##cdr _e147236147248_))) - (let ((_body147256_ _tl147238147253_)) - (if (gx#stx-list? _body147256_) + (if (gx#stx-pair? _e147163147170_) + (let ((_e147166147178_ (gx#syntax-e _e147163147170_))) + (let ((_hd147167147181_ (##car _e147166147178_)) + (_tl147168147183_ (##cdr _e147166147178_))) + (let ((_body147186_ _tl147168147183_)) + (if (gx#stx-list? _body147186_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_decl147258_) - (let* ((_e147259147266_ _decl147258_) - (_E147261147270_ + (lambda (_decl147188_) + (let* ((_e147189147196_ _decl147188_) + (_E147191147200_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e147259147266_))) - (_E147260147286_ + _e147189147196_))) + (_E147190147216_ (lambda () (if (gx#stx-pair? - _e147259147266_) - (let ((_e147262147274_ + _e147189147196_) + (let ((_e147192147204_ (gx#syntax-e - _e147259147266_))) - (let ((_hd147263147277_ - (##car _e147262147274_)) - (_tl147264147279_ - (##cdr _e147262147274_))) - (let* ((_head147282_ - _hd147263147277_) - (_args147284_ - _tl147264147279_)) + _e147189147196_))) + (let ((_hd147193147207_ + (##car _e147192147204_)) + (_tl147194147209_ + (##cdr _e147192147204_))) + (let* ((_head147212_ + _hd147193147207_) + (_args147214_ + _tl147194147209_)) (if (gx#stx-list? - _args147284_) + _args147214_) (gx#stx-map1 gx#core-quote-syntax - _decl147258_) - (_E147261147270_))))) - (_E147261147270_))))) - (_E147260147286_))) - _body147256_)) - (gx#stx-source _stx147232_)) - (_E147235147244_))))) - (_E147235147244_))))) - (_E147234147290_)))) + _decl147188_) + (_E147191147200_))))) + (_E147191147200_))))) + (_E147190147216_))) + _body147186_)) + (gx#stx-source _stx147162_)) + (_E147165147174_))))) + (_E147165147174_))))) + (_E147164147220_)))) (define gx#core-expand-extern% - (lambda (_stx147136_) - (let* ((_e147137147144_ _stx147136_) - (_E147139147148_ + (lambda (_stx147066_) + (let* ((_e147067147074_ _stx147066_) + (_E147069147078_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e147137147144_))) - (_E147138147228_ + _e147067147074_))) + (_E147068147158_ (lambda () - (if (gx#stx-pair? _e147137147144_) - (let ((_e147140147152_ (gx#syntax-e _e147137147144_))) - (let ((_hd147141147155_ (##car _e147140147152_)) - (_tl147142147157_ (##cdr _e147140147152_))) - (let ((_body147160_ _tl147142147157_)) + (if (gx#stx-pair? _e147067147074_) + (let ((_e147070147082_ (gx#syntax-e _e147067147074_))) + (let ((_hd147071147085_ (##car _e147070147082_)) + (_tl147072147087_ (##cdr _e147070147082_))) + (let ((_body147090_ _tl147072147087_)) (if '#t - (let _lp147162_ ((_rest147164_ _body147160_) - (_r147165_ '())) - (let* ((_e147166147180_ _rest147164_) - (_E147178147184_ + (let _lp147092_ ((_rest147094_ _body147090_) + (_r147095_ '())) + (let* ((_e147096147110_ _rest147094_) + (_E147108147114_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _stx147136_))) - (_E147168147188_ + _stx147066_))) + (_E147098147118_ (lambda () - (if (gx#stx-null? _e147166147180_) + (if (gx#stx-null? _e147096147110_) (if '#t (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _r147165_)) + (reverse _r147095_)) (gx#stx-source - _stx147136_)) - (_E147178147184_)) - (_E147178147184_)))) - (_E147167147224_ + _stx147066_)) + (_E147108147114_)) + (_E147108147114_)))) + (_E147097147154_ (lambda () - (if (gx#stx-pair? _e147166147180_) - (let ((_e147169147192_ + (if (gx#stx-pair? _e147096147110_) + (let ((_e147099147122_ (gx#syntax-e - _e147166147180_))) - (let ((_hd147170147195_ - (##car _e147169147192_)) - (_tl147171147197_ - (##cdr _e147169147192_))) + _e147096147110_))) + (let ((_hd147100147125_ + (##car _e147099147122_)) + (_tl147101147127_ + (##cdr _e147099147122_))) (if (gx#stx-pair? - _hd147170147195_) - (let ((_e147172147200_ + _hd147100147125_) + (let ((_e147102147130_ (gx#syntax-e - _hd147170147195_))) - (let ((_hd147173147203_ + _hd147100147125_))) + (let ((_hd147103147133_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e147172147200_)) - (_tl147174147205_ (##cdr _e147172147200_))) - (let ((_id147208_ _hd147173147203_)) - (if (gx#stx-pair? _tl147174147205_) - (let ((_e147175147210_ - (gx#syntax-e _tl147174147205_))) - (let ((_hd147176147213_ (##car _e147175147210_)) - (_tl147177147215_ (##cdr _e147175147210_))) - (let ((_eid147218_ _hd147176147213_)) - (if (gx#stx-null? _tl147177147215_) - (let ((_rest147220_ _tl147171147197_)) - (if (and (gx#identifier? _id147208_) - (gx#identifier? _eid147218_)) - (let ((_eid147222_ - (gx#stx-e _eid147218_))) + (##car _e147102147130_)) + (_tl147104147135_ (##cdr _e147102147130_))) + (let ((_id147138_ _hd147103147133_)) + (if (gx#stx-pair? _tl147104147135_) + (let ((_e147105147140_ + (gx#syntax-e _tl147104147135_))) + (let ((_hd147106147143_ (##car _e147105147140_)) + (_tl147107147145_ (##cdr _e147105147140_))) + (let ((_eid147148_ _hd147106147143_)) + (if (gx#stx-null? _tl147107147145_) + (let ((_rest147150_ _tl147101147127_)) + (if (and (gx#identifier? _id147138_) + (gx#identifier? _eid147148_)) + (let ((_eid147152_ + (gx#stx-e _eid147148_))) (gx#core-bind-extern!__0 - _id147208_ - _eid147222_) - (_lp147162_ - _rest147220_ + _id147138_ + _eid147152_) + (_lp147092_ + _rest147150_ (cons (cons (gx#core-quote-syntax__0 - _id147208_) - (cons _eid147222_ + _id147138_) + (cons _eid147152_ '())) - _r147165_))) - (_E147168147188_))) - (_E147168147188_))))) - (_E147168147188_))))) - (_E147168147188_)))) + _r147095_))) + (_E147098147118_))) + (_E147098147118_))))) + (_E147098147118_))))) + (_E147098147118_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147168147188_))))) - (_E147167147224_))) - (_E147139147148_))))) - (_E147139147148_))))) - (_E147138147228_)))) + (_E147098147118_))))) + (_E147097147154_))) + (_E147069147078_))))) + (_E147069147078_))))) + (_E147068147158_)))) (define gx#core-expand-define-values% - (lambda (_stx147082_) - (let* ((_e147083147096_ _stx147082_) - (_E147085147100_ + (lambda (_stx147012_) + (let* ((_e147013147026_ _stx147012_) + (_E147015147030_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e147083147096_))) - (_E147084147132_ + _e147013147026_))) + (_E147014147062_ (lambda () - (if (gx#stx-pair? _e147083147096_) - (let ((_e147086147104_ (gx#syntax-e _e147083147096_))) - (let ((_hd147087147107_ (##car _e147086147104_)) - (_tl147088147109_ (##cdr _e147086147104_))) - (if (gx#stx-pair? _tl147088147109_) - (let ((_e147089147112_ - (gx#syntax-e _tl147088147109_))) - (let ((_hd147090147115_ - (##car _e147089147112_)) - (_tl147091147117_ - (##cdr _e147089147112_))) - (let ((_hd147120_ _hd147090147115_)) - (if (gx#stx-pair? _tl147091147117_) - (let ((_e147092147122_ - (gx#syntax-e _tl147091147117_))) - (let ((_hd147093147125_ - (##car _e147092147122_)) - (_tl147094147127_ - (##cdr _e147092147122_))) - (let ((_expr147130_ - _hd147093147125_)) + (if (gx#stx-pair? _e147013147026_) + (let ((_e147016147034_ (gx#syntax-e _e147013147026_))) + (let ((_hd147017147037_ (##car _e147016147034_)) + (_tl147018147039_ (##cdr _e147016147034_))) + (if (gx#stx-pair? _tl147018147039_) + (let ((_e147019147042_ + (gx#syntax-e _tl147018147039_))) + (let ((_hd147020147045_ + (##car _e147019147042_)) + (_tl147021147047_ + (##cdr _e147019147042_))) + (let ((_hd147050_ _hd147020147045_)) + (if (gx#stx-pair? _tl147021147047_) + (let ((_e147022147052_ + (gx#syntax-e _tl147021147047_))) + (let ((_hd147023147055_ + (##car _e147022147052_)) + (_tl147024147057_ + (##cdr _e147022147052_))) + (let ((_expr147060_ + _hd147023147055_)) (if (gx#stx-null? - _tl147094147127_) + _tl147024147057_) (if (gx#core-bind-values? - _hd147120_) + _hd147050_) (begin (gx#core-bind-values!__0 - _hd147120_) + _hd147050_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd147120_) - (cons (gx#core-expand-expression _expr147130_) + _hd147050_) + (cons (gx#core-expand-expression _expr147060_) '()))) - (gx#stx-source _stx147082_))) - (_E147085147100_)) + (gx#stx-source _stx147012_))) + (_E147015147030_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147085147100_))))) - (_E147085147100_))))) - (_E147085147100_)))) - (_E147085147100_))))) - (_E147084147132_)))) + (_E147015147030_))))) + (_E147015147030_))))) + (_E147015147030_)))) + (_E147015147030_))))) + (_E147014147062_)))) (define gx#core-expand-define-runtime% - (lambda (_stx147026_) - (let* ((_e147027147040_ _stx147026_) - (_E147029147044_ + (lambda (_stx146956_) + (let* ((_e146957146970_ _stx146956_) + (_E146959146974_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e147027147040_))) - (_E147028147078_ + _e146957146970_))) + (_E146958147008_ (lambda () - (if (gx#stx-pair? _e147027147040_) - (let ((_e147030147048_ (gx#syntax-e _e147027147040_))) - (let ((_hd147031147051_ (##car _e147030147048_)) - (_tl147032147053_ (##cdr _e147030147048_))) - (if (gx#stx-pair? _tl147032147053_) - (let ((_e147033147056_ - (gx#syntax-e _tl147032147053_))) - (let ((_hd147034147059_ - (##car _e147033147056_)) - (_tl147035147061_ - (##cdr _e147033147056_))) - (let ((_id147064_ _hd147034147059_)) - (if (gx#stx-pair? _tl147035147061_) - (let ((_e147036147066_ - (gx#syntax-e _tl147035147061_))) - (let ((_hd147037147069_ - (##car _e147036147066_)) - (_tl147038147071_ - (##cdr _e147036147066_))) - (let ((_binding-id147074_ - _hd147037147069_)) + (if (gx#stx-pair? _e146957146970_) + (let ((_e146960146978_ (gx#syntax-e _e146957146970_))) + (let ((_hd146961146981_ (##car _e146960146978_)) + (_tl146962146983_ (##cdr _e146960146978_))) + (if (gx#stx-pair? _tl146962146983_) + (let ((_e146963146986_ + (gx#syntax-e _tl146962146983_))) + (let ((_hd146964146989_ + (##car _e146963146986_)) + (_tl146965146991_ + (##cdr _e146963146986_))) + (let ((_id146994_ _hd146964146989_)) + (if (gx#stx-pair? _tl146965146991_) + (let ((_e146966146996_ + (gx#syntax-e _tl146965146991_))) + (let ((_hd146967146999_ + (##car _e146966146996_)) + (_tl146968147001_ + (##cdr _e146966146996_))) + (let ((_binding-id147004_ + _hd146967146999_)) (if (gx#stx-null? - _tl147038147071_) + _tl146968147001_) (if (and (gx#identifier? - _id147064_) + _id146994_) (gx#identifier? - _binding-id147074_)) - (let ((_eid147076_ + _binding-id147004_)) + (let ((_eid147006_ (gx#stx-e - _binding-id147074_))) + _binding-id147004_))) (gx#core-bind-runtime-reference!__0 - _id147064_ - _eid147076_) + _id146994_ + _eid147006_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id147064_) - (cons _eid147076_ '()))))) - (_E147029147044_)) + _id146994_) + (cons _eid147006_ '()))))) + (_E146959146974_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E147029147044_))))) - (_E147029147044_))))) - (_E147029147044_)))) - (_E147029147044_))))) - (_E147028147078_)))) + (_E146959146974_))))) + (_E146959146974_))))) + (_E146959146974_)))) + (_E146959146974_))))) + (_E146958147008_)))) (define gx#core-expand-define-syntax% - (lambda (_stx146969_) - (let* ((_e146970146983_ _stx146969_) - (_E146972146987_ + (lambda (_stx146899_) + (let* ((_e146900146913_ _stx146899_) + (_E146902146917_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146970146983_))) - (_E146971147022_ + _e146900146913_))) + (_E146901146952_ (lambda () - (if (gx#stx-pair? _e146970146983_) - (let ((_e146973146991_ (gx#syntax-e _e146970146983_))) - (let ((_hd146974146994_ (##car _e146973146991_)) - (_tl146975146996_ (##cdr _e146973146991_))) - (if (gx#stx-pair? _tl146975146996_) - (let ((_e146976146999_ - (gx#syntax-e _tl146975146996_))) - (let ((_hd146977147002_ - (##car _e146976146999_)) - (_tl146978147004_ - (##cdr _e146976146999_))) - (let ((_id147007_ _hd146977147002_)) - (if (gx#stx-pair? _tl146978147004_) - (let ((_e146979147009_ - (gx#syntax-e _tl146978147004_))) - (let ((_hd146980147012_ - (##car _e146979147009_)) - (_tl146981147014_ - (##cdr _e146979147009_))) - (let ((_expr147017_ - _hd146980147012_)) + (if (gx#stx-pair? _e146900146913_) + (let ((_e146903146921_ (gx#syntax-e _e146900146913_))) + (let ((_hd146904146924_ (##car _e146903146921_)) + (_tl146905146926_ (##cdr _e146903146921_))) + (if (gx#stx-pair? _tl146905146926_) + (let ((_e146906146929_ + (gx#syntax-e _tl146905146926_))) + (let ((_hd146907146932_ + (##car _e146906146929_)) + (_tl146908146934_ + (##cdr _e146906146929_))) + (let ((_id146937_ _hd146907146932_)) + (if (gx#stx-pair? _tl146908146934_) + (let ((_e146909146939_ + (gx#syntax-e _tl146908146934_))) + (let ((_hd146910146942_ + (##car _e146909146939_)) + (_tl146911146944_ + (##cdr _e146909146939_))) + (let ((_expr146947_ + _hd146910146942_)) (if (gx#stx-null? - _tl146981147014_) + _tl146911146944_) (if (gx#identifier? - _id147007_) - (let ((_g152122_ + _id146937_) + (let ((_g152052_ (gx#core-expand-expression+1 - _expr147017_))) + _expr146947_))) (begin - (let ((_g152123_ + (let ((_g152053_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g152122_) - (##vector-length _g152122_) + (if (##values? _g152052_) + (##vector-length _g152052_) 1))) - (if (not (##fx= _g152123_ 2)) - (error "Context expects 2 values" _g152123_))) - (let ((_e-stx147019_ (##vector-ref _g152122_ 0)) - (_e147020_ (##vector-ref _g152122_ 1))) + (if (not (##fx= _g152053_ 2)) + (error "Context expects 2 values" _g152053_))) + (let ((_e-stx146949_ (##vector-ref _g152052_ 0)) + (_e146950_ (##vector-ref _g152052_ 1))) (begin - (gx#core-bind-syntax!__0 _id147007_ _e147020_) + (gx#core-bind-syntax!__0 _id146937_ _e146950_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _id147007_) - (cons _e-stx147019_ '()))) - (gx#stx-source _stx146969_)))))) - (_E146972146987_)) + (cons (gx#core-quote-syntax__0 _id146937_) + (cons _e-stx146949_ '()))) + (gx#stx-source _stx146899_)))))) + (_E146902146917_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E146972146987_))))) - (_E146972146987_))))) - (_E146972146987_)))) - (_E146972146987_))))) - (_E146971147022_)))) + (_E146902146917_))))) + (_E146902146917_))))) + (_E146902146917_)))) + (_E146902146917_))))) + (_E146901146952_)))) (define gx#core-expand-define-alias% - (lambda (_stx146913_) - (let* ((_e146914146927_ _stx146913_) - (_E146916146931_ + (lambda (_stx146843_) + (let* ((_e146844146857_ _stx146843_) + (_E146846146861_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146914146927_))) - (_E146915146965_ + _e146844146857_))) + (_E146845146895_ (lambda () - (if (gx#stx-pair? _e146914146927_) - (let ((_e146917146935_ (gx#syntax-e _e146914146927_))) - (let ((_hd146918146938_ (##car _e146917146935_)) - (_tl146919146940_ (##cdr _e146917146935_))) - (if (gx#stx-pair? _tl146919146940_) - (let ((_e146920146943_ - (gx#syntax-e _tl146919146940_))) - (let ((_hd146921146946_ - (##car _e146920146943_)) - (_tl146922146948_ - (##cdr _e146920146943_))) - (let ((_id146951_ _hd146921146946_)) - (if (gx#stx-pair? _tl146922146948_) - (let ((_e146923146953_ - (gx#syntax-e _tl146922146948_))) - (let ((_hd146924146956_ - (##car _e146923146953_)) - (_tl146925146958_ - (##cdr _e146923146953_))) - (let ((_alias-id146961_ - _hd146924146956_)) + (if (gx#stx-pair? _e146844146857_) + (let ((_e146847146865_ (gx#syntax-e _e146844146857_))) + (let ((_hd146848146868_ (##car _e146847146865_)) + (_tl146849146870_ (##cdr _e146847146865_))) + (if (gx#stx-pair? _tl146849146870_) + (let ((_e146850146873_ + (gx#syntax-e _tl146849146870_))) + (let ((_hd146851146876_ + (##car _e146850146873_)) + (_tl146852146878_ + (##cdr _e146850146873_))) + (let ((_id146881_ _hd146851146876_)) + (if (gx#stx-pair? _tl146852146878_) + (let ((_e146853146883_ + (gx#syntax-e _tl146852146878_))) + (let ((_hd146854146886_ + (##car _e146853146883_)) + (_tl146855146888_ + (##cdr _e146853146883_))) + (let ((_alias-id146891_ + _hd146854146886_)) (if (gx#stx-null? - _tl146925146958_) + _tl146855146888_) (if (and (gx#identifier? - _id146951_) + _id146881_) (gx#identifier? - _alias-id146961_)) - (let ((_alias-id146963_ + _alias-id146891_)) + (let ((_alias-id146893_ (gx#core-quote-syntax__0 - _alias-id146961_))) + _alias-id146891_))) (gx#core-bind-alias!__0 - _id146951_ - _alias-id146963_) + _id146881_ + _alias-id146893_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id146951_) - (cons _alias-id146963_ '()))))) - (_E146916146931_)) + _id146881_) + (cons _alias-id146893_ '()))))) + (_E146846146861_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E146916146931_))))) - (_E146916146931_))))) - (_E146916146931_)))) - (_E146916146931_))))) - (_E146915146965_)))) + (_E146846146861_))))) + (_E146846146861_))))) + (_E146846146861_)))) + (_E146846146861_))))) + (_E146845146895_)))) (define gx#core-expand-lambda%__% - (lambda (_stx146856_ _wrap?146857_) - (let* ((_e146858146868_ _stx146856_) - (_E146860146872_ + (lambda (_stx146786_ _wrap?146787_) + (let* ((_e146788146798_ _stx146786_) + (_E146790146802_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146858146868_))) - (_E146859146899_ + _e146788146798_))) + (_E146789146829_ (lambda () - (if (gx#stx-pair? _e146858146868_) - (let ((_e146861146876_ (gx#syntax-e _e146858146868_))) - (let ((_hd146862146879_ (##car _e146861146876_)) - (_tl146863146881_ (##cdr _e146861146876_))) - (if (gx#stx-pair? _tl146863146881_) - (let ((_e146864146884_ - (gx#syntax-e _tl146863146881_))) - (let ((_hd146865146887_ - (##car _e146864146884_)) - (_tl146866146889_ - (##cdr _e146864146884_))) - (let* ((_hd146892_ _hd146865146887_) - (_body146894_ _tl146866146889_)) - (if (gx#core-bind-values? _hd146892_) + (if (gx#stx-pair? _e146788146798_) + (let ((_e146791146806_ (gx#syntax-e _e146788146798_))) + (let ((_hd146792146809_ (##car _e146791146806_)) + (_tl146793146811_ (##cdr _e146791146806_))) + (if (gx#stx-pair? _tl146793146811_) + (let ((_e146794146814_ + (gx#syntax-e _tl146793146811_))) + (let ((_hd146795146817_ + (##car _e146794146814_)) + (_tl146796146819_ + (##cdr _e146794146814_))) + (let* ((_hd146822_ _hd146795146817_) + (_body146824_ _tl146796146819_)) + (if (gx#core-bind-values? _hd146822_) (call-with-parameters (lambda () - (gx#core-bind-values!__0 _hd146892_) - (let ((_body146897_ + (gx#core-bind-values!__0 _hd146822_) + (let ((_body146827_ (cons (gx#core-quote-bind-values - _hd146892_) + _hd146822_) (cons (gx#core-expand-local-block - _stx146856_ - _body146894_) + _stx146786_ + _body146824_) '())))) - (if _wrap?146857_ + (if _wrap?146787_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _body146897_) - (gx#stx-source _stx146856_)) - _body146897_))) + _body146827_) + (gx#stx-source _stx146786_)) + _body146827_))) gx#current-expander-context - (let ((__obj152115 - (make-object* + (let ((__obj152045 + (make-object gx#local-context::t '6))) (gx#local-context:::init! - __obj152115) - __obj152115)) - (_E146860146872_))))) - (_E146860146872_)))) - (_E146860146872_))))) - (_E146859146899_)))) + __obj152045) + __obj152045)) + (_E146790146802_))))) + (_E146790146802_)))) + (_E146790146802_))))) + (_E146789146829_)))) (define gx#core-expand-lambda%__0 - (lambda (_stx146906_) - (let ((_wrap?146908_ '#t)) - (gx#core-expand-lambda%__% _stx146906_ _wrap?146908_)))) + (lambda (_stx146836_) + (let ((_wrap?146838_ '#t)) + (gx#core-expand-lambda%__% _stx146836_ _wrap?146838_)))) (define gx#core-expand-lambda% - (lambda _g152125_ - (let ((_g152124_ (##length _g152125_))) - (cond ((##fx= _g152124_ 1) - (apply (lambda (_stx146906_) - (gx#core-expand-lambda%__0 _stx146906_)) - _g152125_)) - ((##fx= _g152124_ 2) - (apply (lambda (_stx146910_ _wrap?146911_) + (lambda _g152055_ + (let ((_g152054_ (##length _g152055_))) + (cond ((##fx= _g152054_ 1) + (apply (lambda (_stx146836_) + (gx#core-expand-lambda%__0 _stx146836_)) + _g152055_)) + ((##fx= _g152054_ 2) + (apply (lambda (_stx146840_ _wrap?146841_) (gx#core-expand-lambda%__% - _stx146910_ - _wrap?146911_)) - _g152125_)) + _stx146840_ + _wrap?146841_)) + _g152055_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g152125_)))))) + _g152055_)))))) (define gx#core-expand-case-lambda% - (lambda (_stx146820_) - (let* ((_e146821146828_ _stx146820_) - (_E146823146832_ + (lambda (_stx146750_) + (let* ((_e146751146758_ _stx146750_) + (_E146753146762_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146821146828_))) - (_E146822146851_ + _e146751146758_))) + (_E146752146781_ (lambda () - (if (gx#stx-pair? _e146821146828_) - (let ((_e146824146836_ (gx#syntax-e _e146821146828_))) - (let ((_hd146825146839_ (##car _e146824146836_)) - (_tl146826146841_ (##cdr _e146824146836_))) - (let ((_clauses146844_ _tl146826146841_)) - (if (gx#stx-list? _clauses146844_) + (if (gx#stx-pair? _e146751146758_) + (let ((_e146754146766_ (gx#syntax-e _e146751146758_))) + (let ((_hd146755146769_ (##car _e146754146766_)) + (_tl146756146771_ (##cdr _e146754146766_))) + (let ((_clauses146774_ _tl146756146771_)) + (if (gx#stx-list? _clauses146774_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_clause146846_) + (lambda (_clause146776_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _clause146846_) - (let ((_$e146848_ - (gx#stx-source _clause146846_))) - (if _$e146848_ - _$e146848_ - (gx#stx-source _stx146820_)))) + _clause146776_) + (let ((_$e146778_ + (gx#stx-source _clause146776_))) + (if _$e146778_ + _$e146778_ + (gx#stx-source _stx146750_)))) '#f)) - _clauses146844_)) - (gx#stx-source _stx146820_)) - (_E146823146832_))))) - (_E146823146832_))))) - (_E146822146851_)))) + _clauses146774_)) + (gx#stx-source _stx146750_)) + (_E146753146762_))))) + (_E146753146762_))))) + (_E146752146781_)))) (define gx#core-expand-let-values% - (lambda (_stx146774_) - (let* ((_e146775146785_ _stx146774_) - (_E146777146789_ + (lambda (_stx146704_) + (let* ((_e146705146715_ _stx146704_) + (_E146707146719_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146775146785_))) - (_E146776146816_ + _e146705146715_))) + (_E146706146746_ (lambda () - (if (gx#stx-pair? _e146775146785_) - (let ((_e146778146793_ (gx#syntax-e _e146775146785_))) - (let ((_hd146779146796_ (##car _e146778146793_)) - (_tl146780146798_ (##cdr _e146778146793_))) - (if (gx#stx-pair? _tl146780146798_) - (let ((_e146781146801_ - (gx#syntax-e _tl146780146798_))) - (let ((_hd146782146804_ - (##car _e146781146801_)) - (_tl146783146806_ - (##cdr _e146781146801_))) - (let* ((_hd146809_ _hd146782146804_) - (_body146811_ _tl146783146806_)) - (if (gx#core-expand-let-bind? _hd146809_) - (let ((_expressions146813_ + (if (gx#stx-pair? _e146705146715_) + (let ((_e146708146723_ (gx#syntax-e _e146705146715_))) + (let ((_hd146709146726_ (##car _e146708146723_)) + (_tl146710146728_ (##cdr _e146708146723_))) + (if (gx#stx-pair? _tl146710146728_) + (let ((_e146711146731_ + (gx#syntax-e _tl146710146728_))) + (let ((_hd146712146734_ + (##car _e146711146731_)) + (_tl146713146736_ + (##cdr _e146711146731_))) + (let* ((_hd146739_ _hd146712146734_) + (_body146741_ _tl146713146736_)) + (if (gx#core-expand-let-bind? _hd146739_) + (let ((_expressions146743_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd146809_))) + _hd146739_))) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd146809_) + _hd146739_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd146809_ - _expressions146813_) + _hd146739_ + _expressions146743_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx146774_ - _body146811_) + _stx146704_ + _body146741_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx146774_))) + (gx#stx-source _stx146704_))) gx#current-expander-context - (let ((__obj152116 - (make-object* + (let ((__obj152046 + (make-object gx#local-context::t '6))) (gx#local-context:::init! - __obj152116) - __obj152116))) - (_E146777146789_))))) - (_E146777146789_)))) - (_E146777146789_))))) - (_E146776146816_)))) + __obj152046) + __obj152046))) + (_E146707146719_))))) + (_E146707146719_)))) + (_E146707146719_))))) + (_E146706146746_)))) (define gx#core-expand-letrec-values%__% - (lambda (_stx146719_ _form146720_) - (let* ((_e146721146731_ _stx146719_) - (_E146723146735_ + (lambda (_stx146649_ _form146650_) + (let* ((_e146651146661_ _stx146649_) + (_E146653146665_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146721146731_))) - (_E146722146760_ + _e146651146661_))) + (_E146652146690_ (lambda () - (if (gx#stx-pair? _e146721146731_) - (let ((_e146724146739_ (gx#syntax-e _e146721146731_))) - (let ((_hd146725146742_ (##car _e146724146739_)) - (_tl146726146744_ (##cdr _e146724146739_))) - (if (gx#stx-pair? _tl146726146744_) - (let ((_e146727146747_ - (gx#syntax-e _tl146726146744_))) - (let ((_hd146728146750_ - (##car _e146727146747_)) - (_tl146729146752_ - (##cdr _e146727146747_))) - (let* ((_hd146755_ _hd146728146750_) - (_body146757_ _tl146729146752_)) - (if (gx#core-expand-let-bind? _hd146755_) + (if (gx#stx-pair? _e146651146661_) + (let ((_e146654146669_ (gx#syntax-e _e146651146661_))) + (let ((_hd146655146672_ (##car _e146654146669_)) + (_tl146656146674_ (##cdr _e146654146669_))) + (if (gx#stx-pair? _tl146656146674_) + (let ((_e146657146677_ + (gx#syntax-e _tl146656146674_))) + (let ((_hd146658146680_ + (##car _e146657146677_)) + (_tl146659146682_ + (##cdr _e146657146677_))) + (let* ((_hd146685_ _hd146658146680_) + (_body146687_ _tl146659146682_)) + (if (gx#core-expand-let-bind? _hd146685_) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd146755_) + _hd146685_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _form146720_) + _form146650_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd146755_ + _hd146685_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd146755_)) + _hd146685_)) (cons (gx#core-expand-local-block - _stx146719_ - _body146757_) + _stx146649_ + _body146687_) '()))) - (gx#stx-source _stx146719_))) + (gx#stx-source _stx146649_))) gx#current-expander-context - (let ((__obj152117 - (make-object* + (let ((__obj152047 + (make-object gx#local-context::t '6))) (gx#local-context:::init! - __obj152117) - __obj152117)) - (_E146723146735_))))) - (_E146723146735_)))) - (_E146723146735_))))) - (_E146722146760_)))) + __obj152047) + __obj152047)) + (_E146653146665_))))) + (_E146653146665_)))) + (_E146653146665_))))) + (_E146652146690_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_stx146767_) - (let ((_form146769_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _stx146767_ _form146769_)))) + (lambda (_stx146697_) + (let ((_form146699_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _stx146697_ _form146699_)))) (define gx#core-expand-letrec-values% - (lambda _g152127_ - (let ((_g152126_ (##length _g152127_))) - (cond ((##fx= _g152126_ 1) - (apply (lambda (_stx146767_) - (gx#core-expand-letrec-values%__0 _stx146767_)) - _g152127_)) - ((##fx= _g152126_ 2) - (apply (lambda (_stx146771_ _form146772_) + (lambda _g152057_ + (let ((_g152056_ (##length _g152057_))) + (cond ((##fx= _g152056_ 1) + (apply (lambda (_stx146697_) + (gx#core-expand-letrec-values%__0 _stx146697_)) + _g152057_)) + ((##fx= _g152056_ 2) + (apply (lambda (_stx146701_ _form146702_) (gx#core-expand-letrec-values%__% - _stx146771_ - _form146772_)) - _g152127_)) + _stx146701_ + _form146702_)) + _g152057_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g152127_)))))) + _g152057_)))))) (define gx#core-expand-letrec*-values% - (lambda (_stx146716_) - (gx#core-expand-letrec-values%__% _stx146716_ '%#letrec*-values))) + (lambda (_stx146646_) + (gx#core-expand-letrec-values%__% _stx146646_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_stx146673_) - (if (gx#stx-list? _stx146673_) + (lambda (_stx146603_) + (if (gx#stx-list? _stx146603_) (gx#stx-andmap - (lambda (_bind146675_) - (let* ((_e146676146686_ _bind146675_) - (_E146678146690_ (lambda () '#f)) - (_E146677146712_ + (lambda (_bind146605_) + (let* ((_e146606146616_ _bind146605_) + (_E146608146620_ (lambda () '#f)) + (_E146607146642_ (lambda () - (if (gx#stx-pair? _e146676146686_) - (let ((_e146679146694_ - (gx#syntax-e _e146676146686_))) - (let ((_hd146680146697_ (##car _e146679146694_)) - (_tl146681146699_ - (##cdr _e146679146694_))) - (let ((_hd146702_ _hd146680146697_)) - (if (gx#stx-pair? _tl146681146699_) - (let ((_e146682146704_ - (gx#syntax-e _tl146681146699_))) - (let ((_hd146683146707_ - (##car _e146682146704_)) - (_tl146684146709_ - (##cdr _e146682146704_))) - (if (gx#stx-null? _tl146684146709_) + (if (gx#stx-pair? _e146606146616_) + (let ((_e146609146624_ + (gx#syntax-e _e146606146616_))) + (let ((_hd146610146627_ (##car _e146609146624_)) + (_tl146611146629_ + (##cdr _e146609146624_))) + (let ((_hd146632_ _hd146610146627_)) + (if (gx#stx-pair? _tl146611146629_) + (let ((_e146612146634_ + (gx#syntax-e _tl146611146629_))) + (let ((_hd146613146637_ + (##car _e146612146634_)) + (_tl146614146639_ + (##cdr _e146612146634_))) + (if (gx#stx-null? _tl146614146639_) (if '#t (gx#core-bind-values? - _hd146702_) - (_E146678146690_)) - (_E146678146690_)))) - (_E146678146690_))))) - (_E146678146690_))))) - (_E146677146712_))) - _stx146673_) + _hd146632_) + (_E146608146620_)) + (_E146608146620_)))) + (_E146608146620_))))) + (_E146608146620_))))) + (_E146607146642_))) + _stx146603_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_bind146632_) - (let* ((_e146633146643_ _bind146632_) - (_E146635146647_ + (lambda (_bind146562_) + (let* ((_e146563146573_ _bind146562_) + (_E146565146577_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146633146643_))) - (_E146634146669_ + _e146563146573_))) + (_E146564146599_ (lambda () - (if (gx#stx-pair? _e146633146643_) - (let ((_e146636146651_ (gx#syntax-e _e146633146643_))) - (let ((_hd146637146654_ (##car _e146636146651_)) - (_tl146638146656_ (##cdr _e146636146651_))) - (if (gx#stx-pair? _tl146638146656_) - (let ((_e146639146659_ - (gx#syntax-e _tl146638146656_))) - (let ((_hd146640146662_ - (##car _e146639146659_)) - (_tl146641146664_ - (##cdr _e146639146659_))) - (let ((_expr146667_ _hd146640146662_)) - (if (gx#stx-null? _tl146641146664_) + (if (gx#stx-pair? _e146563146573_) + (let ((_e146566146581_ (gx#syntax-e _e146563146573_))) + (let ((_hd146567146584_ (##car _e146566146581_)) + (_tl146568146586_ (##cdr _e146566146581_))) + (if (gx#stx-pair? _tl146568146586_) + (let ((_e146569146589_ + (gx#syntax-e _tl146568146586_))) + (let ((_hd146570146592_ + (##car _e146569146589_)) + (_tl146571146594_ + (##cdr _e146569146589_))) + (let ((_expr146597_ _hd146570146592_)) + (if (gx#stx-null? _tl146571146594_) (if '#t (gx#core-expand-expression - _expr146667_) - (_E146635146647_)) - (_E146635146647_))))) - (_E146635146647_)))) - (_E146635146647_))))) - (_E146634146669_)))) + _expr146597_) + (_E146565146577_)) + (_E146565146577_))))) + (_E146565146577_)))) + (_E146565146577_))))) + (_E146564146599_)))) (define gx#core-expand-let-bind-values! - (lambda (_bind146591_) - (let* ((_e146592146602_ _bind146591_) - (_E146594146606_ + (lambda (_bind146521_) + (let* ((_e146522146532_ _bind146521_) + (_E146524146536_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146592146602_))) - (_E146593146628_ + _e146522146532_))) + (_E146523146558_ (lambda () - (if (gx#stx-pair? _e146592146602_) - (let ((_e146595146610_ (gx#syntax-e _e146592146602_))) - (let ((_hd146596146613_ (##car _e146595146610_)) - (_tl146597146615_ (##cdr _e146595146610_))) - (let ((_hd146618_ _hd146596146613_)) - (if (gx#stx-pair? _tl146597146615_) - (let ((_e146598146620_ - (gx#syntax-e _tl146597146615_))) - (let ((_hd146599146623_ - (##car _e146598146620_)) - (_tl146600146625_ - (##cdr _e146598146620_))) - (if (gx#stx-null? _tl146600146625_) + (if (gx#stx-pair? _e146522146532_) + (let ((_e146525146540_ (gx#syntax-e _e146522146532_))) + (let ((_hd146526146543_ (##car _e146525146540_)) + (_tl146527146545_ (##cdr _e146525146540_))) + (let ((_hd146548_ _hd146526146543_)) + (if (gx#stx-pair? _tl146527146545_) + (let ((_e146528146550_ + (gx#syntax-e _tl146527146545_))) + (let ((_hd146529146553_ + (##car _e146528146550_)) + (_tl146530146555_ + (##cdr _e146528146550_))) + (if (gx#stx-null? _tl146530146555_) (if '#t (gx#core-bind-values!__0 - _hd146618_) - (_E146594146606_)) - (_E146594146606_)))) - (_E146594146606_))))) - (_E146594146606_))))) - (_E146593146628_)))) + _hd146548_) + (_E146524146536_)) + (_E146524146536_)))) + (_E146524146536_))))) + (_E146524146536_))))) + (_E146523146558_)))) (define gx#core-expand-let-bind-quote - (lambda (_bind146549_ _expr146550_) - (let* ((_e146551146561_ _bind146549_) - (_E146553146565_ + (lambda (_bind146479_ _expr146480_) + (let* ((_e146481146491_ _bind146479_) + (_E146483146495_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146551146561_))) - (_E146552146587_ + _e146481146491_))) + (_E146482146517_ (lambda () - (if (gx#stx-pair? _e146551146561_) - (let ((_e146554146569_ (gx#syntax-e _e146551146561_))) - (let ((_hd146555146572_ (##car _e146554146569_)) - (_tl146556146574_ (##cdr _e146554146569_))) - (let ((_hd146577_ _hd146555146572_)) - (if (gx#stx-pair? _tl146556146574_) - (let ((_e146557146579_ - (gx#syntax-e _tl146556146574_))) - (let ((_hd146558146582_ - (##car _e146557146579_)) - (_tl146559146584_ - (##cdr _e146557146579_))) - (if (gx#stx-null? _tl146559146584_) + (if (gx#stx-pair? _e146481146491_) + (let ((_e146484146499_ (gx#syntax-e _e146481146491_))) + (let ((_hd146485146502_ (##car _e146484146499_)) + (_tl146486146504_ (##cdr _e146484146499_))) + (let ((_hd146507_ _hd146485146502_)) + (if (gx#stx-pair? _tl146486146504_) + (let ((_e146487146509_ + (gx#syntax-e _tl146486146504_))) + (let ((_hd146488146512_ + (##car _e146487146509_)) + (_tl146489146514_ + (##cdr _e146487146509_))) + (if (gx#stx-null? _tl146489146514_) (if '#t (cons (gx#core-quote-bind-values - _hd146577_) - (cons _expr146550_ '())) - (_E146553146565_)) - (_E146553146565_)))) - (_E146553146565_))))) - (_E146553146565_))))) - (_E146552146587_)))) + _hd146507_) + (cons _expr146480_ '())) + (_E146483146495_)) + (_E146483146495_)))) + (_E146483146495_))))) + (_E146483146495_))))) + (_E146482146517_)))) (define gx#core-expand-let-syntax% - (lambda (_stx146503_) - (let* ((_e146504146514_ _stx146503_) - (_E146506146518_ + (lambda (_stx146433_) + (let* ((_e146434146444_ _stx146433_) + (_E146436146448_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146504146514_))) - (_E146505146545_ + _e146434146444_))) + (_E146435146475_ (lambda () - (if (gx#stx-pair? _e146504146514_) - (let ((_e146507146522_ (gx#syntax-e _e146504146514_))) - (let ((_hd146508146525_ (##car _e146507146522_)) - (_tl146509146527_ (##cdr _e146507146522_))) - (if (gx#stx-pair? _tl146509146527_) - (let ((_e146510146530_ - (gx#syntax-e _tl146509146527_))) - (let ((_hd146511146533_ - (##car _e146510146530_)) - (_tl146512146535_ - (##cdr _e146510146530_))) - (let* ((_hd146538_ _hd146511146533_) - (_body146540_ _tl146512146535_)) + (if (gx#stx-pair? _e146434146444_) + (let ((_e146437146452_ (gx#syntax-e _e146434146444_))) + (let ((_hd146438146455_ (##car _e146437146452_)) + (_tl146439146457_ (##cdr _e146437146452_))) + (if (gx#stx-pair? _tl146439146457_) + (let ((_e146440146460_ + (gx#syntax-e _tl146439146457_))) + (let ((_hd146441146463_ + (##car _e146440146460_)) + (_tl146442146465_ + (##cdr _e146440146460_))) + (let* ((_hd146468_ _hd146441146463_) + (_body146470_ _tl146442146465_)) (if (gx#core-expand-let-bind-syntax? - _hd146538_) - (let ((_expanders146542_ + _hd146468_) + (let ((_expanders146472_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd146538_))) + _hd146468_))) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd146538_ - _expanders146542_) + _hd146468_ + _expanders146472_) (gx#core-expand-local-block - _stx146503_ - _body146540_)) + _stx146433_ + _body146470_)) gx#current-expander-context - (let ((__obj152118 - (make-object* + (let ((__obj152048 + (make-object gx#local-context::t '6))) (gx#local-context:::init! - __obj152118) - __obj152118))) - (_E146506146518_))))) - (_E146506146518_)))) - (_E146506146518_))))) - (_E146505146545_)))) + __obj152048) + __obj152048))) + (_E146436146448_))))) + (_E146436146448_)))) + (_E146436146448_))))) + (_E146435146475_)))) (define gx#core-expand-letrec-syntax% - (lambda (_stx146452_) - (let* ((_e146453146463_ _stx146452_) - (_E146455146467_ + (lambda (_stx146382_) + (let* ((_e146383146393_ _stx146382_) + (_E146385146397_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146453146463_))) - (_E146454146499_ + _e146383146393_))) + (_E146384146429_ (lambda () - (if (gx#stx-pair? _e146453146463_) - (let ((_e146456146471_ (gx#syntax-e _e146453146463_))) - (let ((_hd146457146474_ (##car _e146456146471_)) - (_tl146458146476_ (##cdr _e146456146471_))) - (if (gx#stx-pair? _tl146458146476_) - (let ((_e146459146479_ - (gx#syntax-e _tl146458146476_))) - (let ((_hd146460146482_ - (##car _e146459146479_)) - (_tl146461146484_ - (##cdr _e146459146479_))) - (let* ((_hd146487_ _hd146460146482_) - (_body146489_ _tl146461146484_)) + (if (gx#stx-pair? _e146383146393_) + (let ((_e146386146401_ (gx#syntax-e _e146383146393_))) + (let ((_hd146387146404_ (##car _e146386146401_)) + (_tl146388146406_ (##cdr _e146386146401_))) + (if (gx#stx-pair? _tl146388146406_) + (let ((_e146389146409_ + (gx#syntax-e _tl146388146406_))) + (let ((_hd146390146412_ + (##car _e146389146409_)) + (_tl146391146414_ + (##cdr _e146389146409_))) + (let* ((_hd146417_ _hd146390146412_) + (_body146419_ _tl146391146414_)) (if (gx#core-expand-let-bind-syntax? - _hd146487_) + _hd146417_) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd146487_ + _hd146417_ (make-list - (gx#stx-length _hd146487_) + (gx#stx-length _hd146417_) '#!void)) (gx#stx-for-each2 - (lambda (_g146491146494_ - _g146492146496_) + (lambda (_g146421146424_ + _g146422146426_) (gx#core-expand-let-bind-syntax!__% - _g146491146494_ - _g146492146496_ + _g146421146424_ + _g146422146426_ '#t)) - _hd146487_ + _hd146417_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd146487_)) + _hd146417_)) (gx#core-expand-local-block - _stx146452_ - _body146489_)) + _stx146382_ + _body146419_)) gx#current-expander-context - (let ((__obj152119 - (make-object* + (let ((__obj152049 + (make-object gx#local-context::t '6))) (gx#local-context:::init! - __obj152119) - __obj152119)) - (_E146455146467_))))) - (_E146455146467_)))) - (_E146455146467_))))) - (_E146454146499_)))) + __obj152049) + __obj152049)) + (_E146385146397_))))) + (_E146385146397_)))) + (_E146385146397_))))) + (_E146384146429_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_stx146409_) - (if (gx#stx-list? _stx146409_) + (lambda (_stx146339_) + (if (gx#stx-list? _stx146339_) (gx#stx-andmap - (lambda (_bind146411_) - (let* ((_e146412146422_ _bind146411_) - (_E146414146426_ (lambda () '#f)) - (_E146413146448_ + (lambda (_bind146341_) + (let* ((_e146342146352_ _bind146341_) + (_E146344146356_ (lambda () '#f)) + (_E146343146378_ (lambda () - (if (gx#stx-pair? _e146412146422_) - (let ((_e146415146430_ - (gx#syntax-e _e146412146422_))) - (let ((_hd146416146433_ (##car _e146415146430_)) - (_tl146417146435_ - (##cdr _e146415146430_))) - (let ((_hd146438_ _hd146416146433_)) - (if (gx#stx-pair? _tl146417146435_) - (let ((_e146418146440_ - (gx#syntax-e _tl146417146435_))) - (let ((_hd146419146443_ - (##car _e146418146440_)) - (_tl146420146445_ - (##cdr _e146418146440_))) - (if (gx#stx-null? _tl146420146445_) + (if (gx#stx-pair? _e146342146352_) + (let ((_e146345146360_ + (gx#syntax-e _e146342146352_))) + (let ((_hd146346146363_ (##car _e146345146360_)) + (_tl146347146365_ + (##cdr _e146345146360_))) + (let ((_hd146368_ _hd146346146363_)) + (if (gx#stx-pair? _tl146347146365_) + (let ((_e146348146370_ + (gx#syntax-e _tl146347146365_))) + (let ((_hd146349146373_ + (##car _e146348146370_)) + (_tl146350146375_ + (##cdr _e146348146370_))) + (if (gx#stx-null? _tl146350146375_) (if '#t - (gx#identifier? _hd146438_) - (_E146414146426_)) - (_E146414146426_)))) - (_E146414146426_))))) - (_E146414146426_))))) - (_E146413146448_))) - _stx146409_) + (gx#identifier? _hd146368_) + (_E146344146356_)) + (_E146344146356_)))) + (_E146344146356_))))) + (_E146344146356_))))) + (_E146343146378_))) + _stx146339_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_bind146366_) - (let* ((_e146367146377_ _bind146366_) - (_E146369146381_ + (lambda (_bind146296_) + (let* ((_e146297146307_ _bind146296_) + (_E146299146311_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146367146377_))) - (_E146368146405_ + _e146297146307_))) + (_E146298146335_ (lambda () - (if (gx#stx-pair? _e146367146377_) - (let ((_e146370146385_ (gx#syntax-e _e146367146377_))) - (let ((_hd146371146388_ (##car _e146370146385_)) - (_tl146372146390_ (##cdr _e146370146385_))) - (if (gx#stx-pair? _tl146372146390_) - (let ((_e146373146393_ - (gx#syntax-e _tl146372146390_))) - (let ((_hd146374146396_ - (##car _e146373146393_)) - (_tl146375146398_ - (##cdr _e146373146393_))) - (let ((_expr146401_ _hd146374146396_)) - (if (gx#stx-null? _tl146375146398_) + (if (gx#stx-pair? _e146297146307_) + (let ((_e146300146315_ (gx#syntax-e _e146297146307_))) + (let ((_hd146301146318_ (##car _e146300146315_)) + (_tl146302146320_ (##cdr _e146300146315_))) + (if (gx#stx-pair? _tl146302146320_) + (let ((_e146303146323_ + (gx#syntax-e _tl146302146320_))) + (let ((_hd146304146326_ + (##car _e146303146323_)) + (_tl146305146328_ + (##cdr _e146303146323_))) + (let ((_expr146331_ _hd146304146326_)) + (if (gx#stx-null? _tl146305146328_) (if '#t - (let ((_g152128_ + (let ((_g152058_ (gx#core-expand-expression+1 - _expr146401_))) + _expr146331_))) (begin - (let ((_g152129_ + (let ((_g152059_ (if (##values? - _g152128_) + _g152058_) (##vector-length - _g152128_) + _g152058_) 1))) - (if (not (##fx= _g152129_ 2)) + (if (not (##fx= _g152059_ 2)) (error "Context expects 2 values" - _g152129_))) - (let ((_e146403_ + _g152059_))) + (let ((_e146333_ (##vector-ref - _g152128_ + _g152058_ 1))) - _e146403_))) - (_E146369146381_)) - (_E146369146381_))))) - (_E146369146381_)))) - (_E146369146381_))))) - (_E146368146405_)))) + _e146333_))) + (_E146299146311_)) + (_E146299146311_))))) + (_E146299146311_)))) + (_E146299146311_))))) + (_E146298146335_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_bind146311_ _e146312_ _rebind?146313_) - (let* ((_e146314146324_ _bind146311_) - (_E146316146328_ + (lambda (_bind146241_ _e146242_ _rebind?146243_) + (let* ((_e146244146254_ _bind146241_) + (_E146246146258_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146314146324_))) - (_E146315146350_ + _e146244146254_))) + (_E146245146280_ (lambda () - (if (gx#stx-pair? _e146314146324_) - (let ((_e146317146332_ (gx#syntax-e _e146314146324_))) - (let ((_hd146318146335_ (##car _e146317146332_)) - (_tl146319146337_ (##cdr _e146317146332_))) - (let ((_id146340_ _hd146318146335_)) - (if (gx#stx-pair? _tl146319146337_) - (let ((_e146320146342_ - (gx#syntax-e _tl146319146337_))) - (let ((_hd146321146345_ - (##car _e146320146342_)) - (_tl146322146347_ - (##cdr _e146320146342_))) - (if (gx#stx-null? _tl146322146347_) + (if (gx#stx-pair? _e146244146254_) + (let ((_e146247146262_ (gx#syntax-e _e146244146254_))) + (let ((_hd146248146265_ (##car _e146247146262_)) + (_tl146249146267_ (##cdr _e146247146262_))) + (let ((_id146270_ _hd146248146265_)) + (if (gx#stx-pair? _tl146249146267_) + (let ((_e146250146272_ + (gx#syntax-e _tl146249146267_))) + (let ((_hd146251146275_ + (##car _e146250146272_)) + (_tl146252146277_ + (##cdr _e146250146272_))) + (if (gx#stx-null? _tl146252146277_) (if '#t (gx#core-bind-syntax!__1 - _id146340_ - _e146312_ - _rebind?146313_) - (_E146316146328_)) - (_E146316146328_)))) - (_E146316146328_))))) - (_E146316146328_))))) - (_E146315146350_)))) + _id146270_ + _e146242_ + _rebind?146243_) + (_E146246146258_)) + (_E146246146258_)))) + (_E146246146258_))))) + (_E146246146258_))))) + (_E146245146280_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_bind146357_ _e146358_) - (let ((_rebind?146360_ '#f)) + (lambda (_bind146287_ _e146288_) + (let ((_rebind?146290_ '#f)) (gx#core-expand-let-bind-syntax!__% - _bind146357_ - _e146358_ - _rebind?146360_)))) + _bind146287_ + _e146288_ + _rebind?146290_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g152131_ - (let ((_g152130_ (##length _g152131_))) - (cond ((##fx= _g152130_ 2) - (apply (lambda (_bind146357_ _e146358_) + (lambda _g152061_ + (let ((_g152060_ (##length _g152061_))) + (cond ((##fx= _g152060_ 2) + (apply (lambda (_bind146287_ _e146288_) (gx#core-expand-let-bind-syntax!__0 - _bind146357_ - _e146358_)) - _g152131_)) - ((##fx= _g152130_ 3) - (apply (lambda (_bind146362_ _e146363_ _rebind?146364_) + _bind146287_ + _e146288_)) + _g152061_)) + ((##fx= _g152060_ 3) + (apply (lambda (_bind146292_ _e146293_ _rebind?146294_) (gx#core-expand-let-bind-syntax!__% - _bind146362_ - _e146363_ - _rebind?146364_)) - _g152131_)) + _bind146292_ + _e146293_ + _rebind?146294_)) + _g152061_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g152131_)))))) + _g152061_)))))) (define gx#core-expand-expression% - (lambda (_stx146269_) - (let* ((_e146270146280_ _stx146269_) - (_E146272146284_ + (lambda (_stx146199_) + (let* ((_e146200146210_ _stx146199_) + (_E146202146214_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146270146280_))) - (_E146271146306_ + _e146200146210_))) + (_E146201146236_ (lambda () - (if (gx#stx-pair? _e146270146280_) - (let ((_e146273146288_ (gx#syntax-e _e146270146280_))) - (let ((_hd146274146291_ (##car _e146273146288_)) - (_tl146275146293_ (##cdr _e146273146288_))) - (if (gx#stx-pair? _tl146275146293_) - (let ((_e146276146296_ - (gx#syntax-e _tl146275146293_))) - (let ((_hd146277146299_ - (##car _e146276146296_)) - (_tl146278146301_ - (##cdr _e146276146296_))) - (let ((_expr146304_ _hd146277146299_)) - (if (gx#stx-null? _tl146278146301_) + (if (gx#stx-pair? _e146200146210_) + (let ((_e146203146218_ (gx#syntax-e _e146200146210_))) + (let ((_hd146204146221_ (##car _e146203146218_)) + (_tl146205146223_ (##cdr _e146203146218_))) + (if (gx#stx-pair? _tl146205146223_) + (let ((_e146206146226_ + (gx#syntax-e _tl146205146223_))) + (let ((_hd146207146229_ + (##car _e146206146226_)) + (_tl146208146231_ + (##cdr _e146206146226_))) + (let ((_expr146234_ _hd146207146229_)) + (if (gx#stx-null? _tl146208146231_) (if '#t (gx#core-expand-expression - _expr146304_) - (_E146272146284_)) - (_E146272146284_))))) - (_E146272146284_)))) - (_E146272146284_))))) - (_E146271146306_)))) + _expr146234_) + (_E146202146214_)) + (_E146202146214_))))) + (_E146202146214_)))) + (_E146202146214_))))) + (_E146201146236_)))) (define gx#core-expand-quote% - (lambda (_stx146228_) - (let* ((_e146229146239_ _stx146228_) - (_E146231146243_ + (lambda (_stx146158_) + (let* ((_e146159146169_ _stx146158_) + (_E146161146173_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146229146239_))) - (_E146230146265_ + _e146159146169_))) + (_E146160146195_ (lambda () - (if (gx#stx-pair? _e146229146239_) - (let ((_e146232146247_ (gx#syntax-e _e146229146239_))) - (let ((_hd146233146250_ (##car _e146232146247_)) - (_tl146234146252_ (##cdr _e146232146247_))) - (if (gx#stx-pair? _tl146234146252_) - (let ((_e146235146255_ - (gx#syntax-e _tl146234146252_))) - (let ((_hd146236146258_ - (##car _e146235146255_)) - (_tl146237146260_ - (##cdr _e146235146255_))) - (let ((_e146263_ _hd146236146258_)) - (if (gx#stx-null? _tl146237146260_) + (if (gx#stx-pair? _e146159146169_) + (let ((_e146162146177_ (gx#syntax-e _e146159146169_))) + (let ((_hd146163146180_ (##car _e146162146177_)) + (_tl146164146182_ (##cdr _e146162146177_))) + (if (gx#stx-pair? _tl146164146182_) + (let ((_e146165146185_ + (gx#syntax-e _tl146164146182_))) + (let ((_hd146166146188_ + (##car _e146165146185_)) + (_tl146167146190_ + (##cdr _e146165146185_))) + (let ((_e146193_ _hd146166146188_)) + (if (gx#stx-null? _tl146167146190_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _e146263_) + _e146193_) '())) - (gx#stx-source _stx146228_)) - (_E146231146243_)) - (_E146231146243_))))) - (_E146231146243_)))) - (_E146231146243_))))) - (_E146230146265_)))) + (gx#stx-source _stx146158_)) + (_E146161146173_)) + (_E146161146173_))))) + (_E146161146173_)))) + (_E146161146173_))))) + (_E146160146195_)))) (define gx#core-expand-quote-syntax% - (lambda (_stx146187_) - (let* ((_e146188146198_ _stx146187_) - (_E146190146202_ + (lambda (_stx146117_) + (let* ((_e146118146128_ _stx146117_) + (_E146120146132_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146188146198_))) - (_E146189146224_ + _e146118146128_))) + (_E146119146154_ (lambda () - (if (gx#stx-pair? _e146188146198_) - (let ((_e146191146206_ (gx#syntax-e _e146188146198_))) - (let ((_hd146192146209_ (##car _e146191146206_)) - (_tl146193146211_ (##cdr _e146191146206_))) - (if (gx#stx-pair? _tl146193146211_) - (let ((_e146194146214_ - (gx#syntax-e _tl146193146211_))) - (let ((_hd146195146217_ - (##car _e146194146214_)) - (_tl146196146219_ - (##cdr _e146194146214_))) - (let ((_e146222_ _hd146195146217_)) - (if (gx#stx-null? _tl146196146219_) + (if (gx#stx-pair? _e146118146128_) + (let ((_e146121146136_ (gx#syntax-e _e146118146128_))) + (let ((_hd146122146139_ (##car _e146121146136_)) + (_tl146123146141_ (##cdr _e146121146136_))) + (if (gx#stx-pair? _tl146123146141_) + (let ((_e146124146144_ + (gx#syntax-e _tl146123146141_))) + (let ((_hd146125146147_ + (##car _e146124146144_)) + (_tl146126146149_ + (##cdr _e146124146144_))) + (let ((_e146152_ _hd146125146147_)) + (if (gx#stx-null? _tl146126146149_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _e146222_) + _e146152_) '())) - (gx#stx-source _stx146187_)) - (_E146190146202_)) - (_E146190146202_))))) - (_E146190146202_)))) - (_E146190146202_))))) - (_E146189146224_)))) + (gx#stx-source _stx146117_)) + (_E146120146132_)) + (_E146120146132_))))) + (_E146120146132_)))) + (_E146120146132_))))) + (_E146119146154_)))) (define gx#core-expand-call% - (lambda (_stx146144_) - (let* ((_e146145146155_ _stx146144_) - (_E146147146159_ + (lambda (_stx146074_) + (let* ((_e146075146085_ _stx146074_) + (_E146077146089_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146145146155_))) - (_E146146146183_ + _e146075146085_))) + (_E146076146113_ (lambda () - (if (gx#stx-pair? _e146145146155_) - (let ((_e146148146163_ (gx#syntax-e _e146145146155_))) - (let ((_hd146149146166_ (##car _e146148146163_)) - (_tl146150146168_ (##cdr _e146148146163_))) - (if (gx#stx-pair? _tl146150146168_) - (let ((_e146151146171_ - (gx#syntax-e _tl146150146168_))) - (let ((_hd146152146174_ - (##car _e146151146171_)) - (_tl146153146176_ - (##cdr _e146151146171_))) - (let* ((_rator146179_ _hd146152146174_) - (_args146181_ _tl146153146176_)) - (if (gx#stx-list? _args146181_) + (if (gx#stx-pair? _e146075146085_) + (let ((_e146078146093_ (gx#syntax-e _e146075146085_))) + (let ((_hd146079146096_ (##car _e146078146093_)) + (_tl146080146098_ (##cdr _e146078146093_))) + (if (gx#stx-pair? _tl146080146098_) + (let ((_e146081146101_ + (gx#syntax-e _tl146080146098_))) + (let ((_hd146082146104_ + (##car _e146081146101_)) + (_tl146083146106_ + (##cdr _e146081146101_))) + (let* ((_rator146109_ _hd146082146104_) + (_args146111_ _tl146083146106_)) + (if (gx#stx-list? _args146111_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _rator146179_) + _rator146109_) (gx#stx-map1 gx#core-expand-expression - _args146181_)) - (gx#stx-source _stx146144_)) - (_E146147146159_))))) - (_E146147146159_)))) - (_E146147146159_))))) - (_E146146146183_)))) + _args146111_)) + (gx#stx-source _stx146074_)) + (_E146077146089_))))) + (_E146077146089_)))) + (_E146077146089_))))) + (_E146076146113_)))) (define gx#core-expand-if% - (lambda (_stx146077_) - (let* ((_e146078146094_ _stx146077_) - (_E146080146098_ + (lambda (_stx146007_) + (let* ((_e146008146024_ _stx146007_) + (_E146010146028_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146078146094_))) - (_E146079146140_ + _e146008146024_))) + (_E146009146070_ (lambda () - (if (gx#stx-pair? _e146078146094_) - (let ((_e146081146102_ (gx#syntax-e _e146078146094_))) - (let ((_hd146082146105_ (##car _e146081146102_)) - (_tl146083146107_ (##cdr _e146081146102_))) - (if (gx#stx-pair? _tl146083146107_) - (let ((_e146084146110_ - (gx#syntax-e _tl146083146107_))) - (let ((_hd146085146113_ - (##car _e146084146110_)) - (_tl146086146115_ - (##cdr _e146084146110_))) - (let ((_test146118_ _hd146085146113_)) - (if (gx#stx-pair? _tl146086146115_) - (let ((_e146087146120_ - (gx#syntax-e _tl146086146115_))) - (let ((_hd146088146123_ - (##car _e146087146120_)) - (_tl146089146125_ - (##cdr _e146087146120_))) - (let ((_K146128_ _hd146088146123_)) + (if (gx#stx-pair? _e146008146024_) + (let ((_e146011146032_ (gx#syntax-e _e146008146024_))) + (let ((_hd146012146035_ (##car _e146011146032_)) + (_tl146013146037_ (##cdr _e146011146032_))) + (if (gx#stx-pair? _tl146013146037_) + (let ((_e146014146040_ + (gx#syntax-e _tl146013146037_))) + (let ((_hd146015146043_ + (##car _e146014146040_)) + (_tl146016146045_ + (##cdr _e146014146040_))) + (let ((_test146048_ _hd146015146043_)) + (if (gx#stx-pair? _tl146016146045_) + (let ((_e146017146050_ + (gx#syntax-e _tl146016146045_))) + (let ((_hd146018146053_ + (##car _e146017146050_)) + (_tl146019146055_ + (##cdr _e146017146050_))) + (let ((_K146058_ _hd146018146053_)) (if (gx#stx-pair? - _tl146089146125_) - (let ((_e146090146130_ + _tl146019146055_) + (let ((_e146020146060_ (gx#syntax-e - _tl146089146125_))) - (let ((_hd146091146133_ - (##car _e146090146130_)) - (_tl146092146135_ - (##cdr _e146090146130_))) - (let ((_E146138_ - _hd146091146133_)) + _tl146019146055_))) + (let ((_hd146021146063_ + (##car _e146020146060_)) + (_tl146022146065_ + (##cdr _e146020146060_))) + (let ((_E146068_ + _hd146021146063_)) (if (gx#stx-null? - _tl146092146135_) + _tl146022146065_) (if '#t (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _test146118_) + (cons (gx#core-expand-expression _test146048_) (cons (gx#core-expand-expression - _K146128_) + _K146058_) (cons (gx#core-expand-expression - _E146138_) + _E146068_) '())))) - (gx#stx-source _stx146077_)) - (_E146080146098_)) - (_E146080146098_))))) + (gx#stx-source _stx146007_)) + (_E146010146028_)) + (_E146010146028_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E146080146098_))))) - (_E146080146098_))))) - (_E146080146098_)))) - (_E146080146098_))))) - (_E146079146140_)))) + (_E146010146028_))))) + (_E146010146028_))))) + (_E146010146028_)))) + (_E146010146028_))))) + (_E146009146070_)))) (define gx#core-expand-ref% - (lambda (_stx146036_) - (let* ((_e146037146047_ _stx146036_) - (_E146039146051_ + (lambda (_stx145966_) + (let* ((_e145967145977_ _stx145966_) + (_E145969145981_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e146037146047_))) - (_E146038146073_ + _e145967145977_))) + (_E145968146003_ (lambda () - (if (gx#stx-pair? _e146037146047_) - (let ((_e146040146055_ (gx#syntax-e _e146037146047_))) - (let ((_hd146041146058_ (##car _e146040146055_)) - (_tl146042146060_ (##cdr _e146040146055_))) - (if (gx#stx-pair? _tl146042146060_) - (let ((_e146043146063_ - (gx#syntax-e _tl146042146060_))) - (let ((_hd146044146066_ - (##car _e146043146063_)) - (_tl146045146068_ - (##cdr _e146043146063_))) - (let ((_id146071_ _hd146044146066_)) - (if (gx#stx-null? _tl146045146068_) - (if (gx#identifier? _id146071_) + (if (gx#stx-pair? _e145967145977_) + (let ((_e145970145985_ (gx#syntax-e _e145967145977_))) + (let ((_hd145971145988_ (##car _e145970145985_)) + (_tl145972145990_ (##cdr _e145970145985_))) + (if (gx#stx-pair? _tl145972145990_) + (let ((_e145973145993_ + (gx#syntax-e _tl145972145990_))) + (let ((_hd145974145996_ + (##car _e145973145993_)) + (_tl145975145998_ + (##cdr _e145973145993_))) + (let ((_id146001_ _hd145974145996_)) + (if (gx#stx-null? _tl145975145998_) + (if (gx#identifier? _id146001_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _id146071_ - _stx146036_) + _id146001_ + _stx145966_) '())) - (gx#stx-source _stx146036_)) - (_E146039146051_)) - (_E146039146051_))))) - (_E146039146051_)))) - (_E146039146051_))))) - (_E146038146073_)))) + (gx#stx-source _stx145966_)) + (_E145969145981_)) + (_E145969145981_))))) + (_E145969145981_)))) + (_E145969145981_))))) + (_E145968146003_)))) (define gx#core-expand-setq% - (lambda (_stx145982_) - (let* ((_e145983145996_ _stx145982_) - (_E145985146000_ + (lambda (_stx145912_) + (let* ((_e145913145926_ _stx145912_) + (_E145915145930_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145983145996_))) - (_E145984146032_ + _e145913145926_))) + (_E145914145962_ (lambda () - (if (gx#stx-pair? _e145983145996_) - (let ((_e145986146004_ (gx#syntax-e _e145983145996_))) - (let ((_hd145987146007_ (##car _e145986146004_)) - (_tl145988146009_ (##cdr _e145986146004_))) - (if (gx#stx-pair? _tl145988146009_) - (let ((_e145989146012_ - (gx#syntax-e _tl145988146009_))) - (let ((_hd145990146015_ - (##car _e145989146012_)) - (_tl145991146017_ - (##cdr _e145989146012_))) - (let ((_id146020_ _hd145990146015_)) - (if (gx#stx-pair? _tl145991146017_) - (let ((_e145992146022_ - (gx#syntax-e _tl145991146017_))) - (let ((_hd145993146025_ - (##car _e145992146022_)) - (_tl145994146027_ - (##cdr _e145992146022_))) - (let ((_expr146030_ - _hd145993146025_)) + (if (gx#stx-pair? _e145913145926_) + (let ((_e145916145934_ (gx#syntax-e _e145913145926_))) + (let ((_hd145917145937_ (##car _e145916145934_)) + (_tl145918145939_ (##cdr _e145916145934_))) + (if (gx#stx-pair? _tl145918145939_) + (let ((_e145919145942_ + (gx#syntax-e _tl145918145939_))) + (let ((_hd145920145945_ + (##car _e145919145942_)) + (_tl145921145947_ + (##cdr _e145919145942_))) + (let ((_id145950_ _hd145920145945_)) + (if (gx#stx-pair? _tl145921145947_) + (let ((_e145922145952_ + (gx#syntax-e _tl145921145947_))) + (let ((_hd145923145955_ + (##car _e145922145952_)) + (_tl145924145957_ + (##cdr _e145922145952_))) + (let ((_expr145960_ + _hd145923145955_)) (if (gx#stx-null? - _tl145994146027_) + _tl145924145957_) (if (gx#identifier? - _id146020_) + _id145950_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id146020_ - _stx145982_) - (cons (gx#core-expand-expression _expr146030_) + _id145950_ + _stx145912_) + (cons (gx#core-expand-expression _expr145960_) '()))) - (gx#stx-source _stx145982_)) - (_E145985146000_)) + (gx#stx-source _stx145912_)) + (_E145915145930_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145985146000_))))) - (_E145985146000_))))) - (_E145985146000_)))) - (_E145985146000_))))) - (_E145984146032_)))) + (_E145915145930_))))) + (_E145915145930_))))) + (_E145915145930_)))) + (_E145915145930_))))) + (_E145914145962_)))) (define gx#macro-expand-extern - (lambda (_stx145830_) - (letrec ((_generate145832_ - (lambda (_body145862_) - (let _lp145864_ ((_rest145866_ _body145862_) - (_ns145867_ + (lambda (_stx145760_) + (letrec ((_generate145762_ + (lambda (_body145792_) + (let _lp145794_ ((_rest145796_ _body145792_) + (_ns145797_ (gx#core-context-namespace__0)) - (_r145868_ '())) - (let* ((_e145869145884_ _rest145866_) - (_E145882145888_ + (_r145798_ '())) + (let* ((_e145799145814_ _rest145796_) + (_E145812145818_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145869145884_))) - (_E145878145892_ + _e145799145814_))) + (_E145808145822_ (lambda () - (if (gx#stx-null? _e145869145884_) + (if (gx#stx-null? _e145799145814_) (if '#t - (reverse _r145868_) - (_E145882145888_)) - (_E145882145888_)))) - (_E145871145949_ + (reverse _r145798_) + (_E145812145818_)) + (_E145812145818_)))) + (_E145801145879_ (lambda () - (if (gx#stx-pair? _e145869145884_) - (let ((_e145879145896_ - (gx#syntax-e _e145869145884_))) - (let ((_hd145880145899_ - (##car _e145879145896_)) - (_tl145881145901_ - (##cdr _e145879145896_))) - (let* ((_hd145904_ _hd145880145899_) - (_rest145906_ _tl145881145901_)) + (if (gx#stx-pair? _e145799145814_) + (let ((_e145809145826_ + (gx#syntax-e _e145799145814_))) + (let ((_hd145810145829_ + (##car _e145809145826_)) + (_tl145811145831_ + (##cdr _e145809145826_))) + (let* ((_hd145834_ _hd145810145829_) + (_rest145836_ _tl145811145831_)) (if '#t - (if (gx#identifier? _hd145904_) - (_lp145864_ - _rest145906_ - _ns145867_ - (cons (cons _hd145904_ - (cons (if _ns145867_ + (if (gx#identifier? _hd145834_) + (_lp145794_ + _rest145836_ + _ns145797_ + (cons (cons _hd145834_ + (cons (if _ns145797_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _hd145904_ - _ns145867_ + _hd145834_ + _ns145797_ '"#" - _hd145904_) - _hd145904_) + _hd145834_) + _hd145834_) '())) - _r145868_)) + _r145798_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e145907145917_ - _hd145904_) - (_E145909145921_ + (let* ((_e145837145847_ + _hd145834_) + (_E145839145851_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145907145917_))) - (_E145908145945_ + _e145837145847_))) + (_E145838145875_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e145907145917_) - (let ((_e145910145925_ (gx#syntax-e _e145907145917_))) - (let ((_hd145911145928_ (##car _e145910145925_)) - (_tl145912145930_ (##cdr _e145910145925_))) - (let ((_id145933_ _hd145911145928_)) - (if (gx#stx-pair? _tl145912145930_) - (let ((_e145913145935_ - (gx#syntax-e _tl145912145930_))) - (let ((_hd145914145938_ - (##car _e145913145935_)) - (_tl145915145940_ - (##cdr _e145913145935_))) - (let ((_eid145943_ _hd145914145938_)) - (if (gx#stx-null? _tl145915145940_) + _e145837145847_) + (let ((_e145840145855_ (gx#syntax-e _e145837145847_))) + (let ((_hd145841145858_ (##car _e145840145855_)) + (_tl145842145860_ (##cdr _e145840145855_))) + (let ((_id145863_ _hd145841145858_)) + (if (gx#stx-pair? _tl145842145860_) + (let ((_e145843145865_ + (gx#syntax-e _tl145842145860_))) + (let ((_hd145844145868_ + (##car _e145843145865_)) + (_tl145845145870_ + (##cdr _e145843145865_))) + (let ((_eid145873_ _hd145844145868_)) + (if (gx#stx-null? _tl145845145870_) (if (and (gx#identifier? - _id145933_) + _id145863_) (gx#identifier? - _eid145943_)) - (_lp145864_ - _rest145906_ - _ns145867_ - (cons (cons _id145933_ - (cons _eid145943_ + _eid145873_)) + (_lp145794_ + _rest145836_ + _ns145797_ + (cons (cons _id145863_ + (cons _eid145873_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _r145868_)) + _r145798_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145909145921_)) - (_E145909145921_))))) - (_E145909145921_))))) - (_E145909145921_))))) + (_E145839145851_)) + (_E145839145851_))))) + (_E145839145851_))))) + (_E145839145851_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145908145945_))) - (_E145878145892_))))) - (_E145878145892_)))) - (_E145870145978_ + (_E145838145875_))) + (_E145808145822_))))) + (_E145808145822_)))) + (_E145800145908_ (lambda () - (if (gx#stx-pair? _e145869145884_) - (let ((_e145872145953_ - (gx#syntax-e _e145869145884_))) - (let ((_hd145873145956_ - (##car _e145872145953_)) - (_tl145874145958_ - (##cdr _e145872145953_))) - (if (eq? (gx#stx-e _hd145873145956_) + (if (gx#stx-pair? _e145799145814_) + (let ((_e145802145883_ + (gx#syntax-e _e145799145814_))) + (let ((_hd145803145886_ + (##car _e145802145883_)) + (_tl145804145888_ + (##cdr _e145802145883_))) + (if (eq? (gx#stx-e _hd145803145886_) 'namespace:) - (if (gx#stx-pair? _tl145874145958_) - (let ((_e145875145961_ + (if (gx#stx-pair? _tl145804145888_) + (let ((_e145805145891_ (gx#syntax-e - _tl145874145958_))) - (let ((_hd145876145964_ - (##car _e145875145961_)) - (_tl145877145966_ - (##cdr _e145875145961_))) - (let* ((_ns145969_ - _hd145876145964_) - (_rest145971_ - _tl145877145966_)) + _tl145804145888_))) + (let ((_hd145806145894_ + (##car _e145805145891_)) + (_tl145807145896_ + (##cdr _e145805145891_))) + (let* ((_ns145899_ + _hd145806145894_) + (_rest145901_ + _tl145807145896_)) (if '#t - (let ((_ns145976_ + (let ((_ns145906_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _ns145969_) - (symbol->string (gx#stx-e _ns145969_)) - (if (or (gx#stx-string? _ns145969_) - (gx#stx-false? _ns145969_)) - (gx#stx-e _ns145969_) + (if (gx#identifier? _ns145899_) + (symbol->string (gx#stx-e _ns145899_)) + (if (or (gx#stx-string? _ns145899_) + (gx#stx-false? _ns145899_)) + (gx#stx-e _ns145899_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _stx145830_ - _ns145969_))))) - (_lp145864_ _rest145971_ _ns145976_ _r145868_)) - (_E145871145949_))))) + _stx145760_ + _ns145899_))))) + (_lp145794_ _rest145901_ _ns145906_ _r145798_)) + (_E145801145879_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145871145949_)) - (_E145871145949_)))) - (_E145871145949_))))) - (_E145870145978_)))))) - (let* ((_e145833145840_ _stx145830_) - (_E145835145844_ + (_E145801145879_)) + (_E145801145879_)))) + (_E145801145879_))))) + (_E145800145908_)))))) + (let* ((_e145763145770_ _stx145760_) + (_E145765145774_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145833145840_))) - (_E145834145858_ + _e145763145770_))) + (_E145764145788_ (lambda () - (if (gx#stx-pair? _e145833145840_) - (let ((_e145836145848_ (gx#syntax-e _e145833145840_))) - (let ((_hd145837145851_ (##car _e145836145848_)) - (_tl145838145853_ (##cdr _e145836145848_))) - (let ((_body145856_ _tl145838145853_)) - (if (gx#stx-list? _body145856_) + (if (gx#stx-pair? _e145763145770_) + (let ((_e145766145778_ (gx#syntax-e _e145763145770_))) + (let ((_hd145767145781_ (##car _e145766145778_)) + (_tl145768145783_ (##cdr _e145766145778_))) + (let ((_body145786_ _tl145768145783_)) + (if (gx#stx-list? _body145786_) (gx#core-cons '%#extern - (_generate145832_ _body145856_)) - (_E145835145844_))))) - (_E145835145844_))))) - (_E145834145858_))))) + (_generate145762_ _body145786_)) + (_E145765145774_))))) + (_E145765145774_))))) + (_E145764145788_))))) (define gx#macro-expand-define-values - (lambda (_stx145776_) - (let* ((_e145777145790_ _stx145776_) - (_E145779145794_ + (lambda (_stx145706_) + (let* ((_e145707145720_ _stx145706_) + (_E145709145724_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145777145790_))) - (_E145778145826_ + _e145707145720_))) + (_E145708145756_ (lambda () - (if (gx#stx-pair? _e145777145790_) - (let ((_e145780145798_ (gx#syntax-e _e145777145790_))) - (let ((_hd145781145801_ (##car _e145780145798_)) - (_tl145782145803_ (##cdr _e145780145798_))) - (if (gx#stx-pair? _tl145782145803_) - (let ((_e145783145806_ - (gx#syntax-e _tl145782145803_))) - (let ((_hd145784145809_ - (##car _e145783145806_)) - (_tl145785145811_ - (##cdr _e145783145806_))) - (let ((_hd145814_ _hd145784145809_)) - (if (gx#stx-pair? _tl145785145811_) - (let ((_e145786145816_ - (gx#syntax-e _tl145785145811_))) - (let ((_hd145787145819_ - (##car _e145786145816_)) - (_tl145788145821_ - (##cdr _e145786145816_))) - (let ((_expr145824_ - _hd145787145819_)) + (if (gx#stx-pair? _e145707145720_) + (let ((_e145710145728_ (gx#syntax-e _e145707145720_))) + (let ((_hd145711145731_ (##car _e145710145728_)) + (_tl145712145733_ (##cdr _e145710145728_))) + (if (gx#stx-pair? _tl145712145733_) + (let ((_e145713145736_ + (gx#syntax-e _tl145712145733_))) + (let ((_hd145714145739_ + (##car _e145713145736_)) + (_tl145715145741_ + (##cdr _e145713145736_))) + (let ((_hd145744_ _hd145714145739_)) + (if (gx#stx-pair? _tl145715145741_) + (let ((_e145716145746_ + (gx#syntax-e _tl145715145741_))) + (let ((_hd145717145749_ + (##car _e145716145746_)) + (_tl145718145751_ + (##cdr _e145716145746_))) + (let ((_expr145754_ + _hd145717145749_)) (if (gx#stx-null? - _tl145788145821_) + _tl145718145751_) (if (gx#stx-andmap gx#identifier? - _hd145814_) + _hd145744_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _hd145814_) - (cons _expr145824_ '()))) - (_E145779145794_)) + _hd145744_) + (cons _expr145754_ '()))) + (_E145709145724_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145779145794_))))) - (_E145779145794_))))) - (_E145779145794_)))) - (_E145779145794_))))) - (_E145778145826_)))) + (_E145709145724_))))) + (_E145709145724_))))) + (_E145709145724_)))) + (_E145709145724_))))) + (_E145708145756_)))) (define gx#macro-expand-define-syntax - (lambda (_stx145722_) - (let* ((_e145723145736_ _stx145722_) - (_E145725145740_ + (lambda (_stx145652_) + (let* ((_e145653145666_ _stx145652_) + (_E145655145670_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145723145736_))) - (_E145724145772_ + _e145653145666_))) + (_E145654145702_ (lambda () - (if (gx#stx-pair? _e145723145736_) - (let ((_e145726145744_ (gx#syntax-e _e145723145736_))) - (let ((_hd145727145747_ (##car _e145726145744_)) - (_tl145728145749_ (##cdr _e145726145744_))) - (if (gx#stx-pair? _tl145728145749_) - (let ((_e145729145752_ - (gx#syntax-e _tl145728145749_))) - (let ((_hd145730145755_ - (##car _e145729145752_)) - (_tl145731145757_ - (##cdr _e145729145752_))) - (let ((_hd145760_ _hd145730145755_)) - (if (gx#stx-pair? _tl145731145757_) - (let ((_e145732145762_ - (gx#syntax-e _tl145731145757_))) - (let ((_hd145733145765_ - (##car _e145732145762_)) - (_tl145734145767_ - (##cdr _e145732145762_))) - (let ((_expr145770_ - _hd145733145765_)) + (if (gx#stx-pair? _e145653145666_) + (let ((_e145656145674_ (gx#syntax-e _e145653145666_))) + (let ((_hd145657145677_ (##car _e145656145674_)) + (_tl145658145679_ (##cdr _e145656145674_))) + (if (gx#stx-pair? _tl145658145679_) + (let ((_e145659145682_ + (gx#syntax-e _tl145658145679_))) + (let ((_hd145660145685_ + (##car _e145659145682_)) + (_tl145661145687_ + (##cdr _e145659145682_))) + (let ((_hd145690_ _hd145660145685_)) + (if (gx#stx-pair? _tl145661145687_) + (let ((_e145662145692_ + (gx#syntax-e _tl145661145687_))) + (let ((_hd145663145695_ + (##car _e145662145692_)) + (_tl145664145697_ + (##cdr _e145662145692_))) + (let ((_expr145700_ + _hd145663145695_)) (if (gx#stx-null? - _tl145734145767_) + _tl145664145697_) (if (gx#identifier? - _hd145760_) + _hd145690_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _hd145760_ + (cons _hd145690_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr145770_ '()))) - (_E145725145740_)) + (cons _expr145700_ '()))) + (_E145655145670_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145725145740_))))) - (_E145725145740_))))) - (_E145725145740_)))) - (_E145725145740_))))) - (_E145724145772_)))) + (_E145655145670_))))) + (_E145655145670_))))) + (_E145655145670_)))) + (_E145655145670_))))) + (_E145654145702_)))) (define gx#macro-expand-define-alias - (lambda (_stx145668_) - (let* ((_e145669145682_ _stx145668_) - (_E145671145686_ + (lambda (_stx145598_) + (let* ((_e145599145612_ _stx145598_) + (_E145601145616_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145669145682_))) - (_E145670145718_ + _e145599145612_))) + (_E145600145648_ (lambda () - (if (gx#stx-pair? _e145669145682_) - (let ((_e145672145690_ (gx#syntax-e _e145669145682_))) - (let ((_hd145673145693_ (##car _e145672145690_)) - (_tl145674145695_ (##cdr _e145672145690_))) - (if (gx#stx-pair? _tl145674145695_) - (let ((_e145675145698_ - (gx#syntax-e _tl145674145695_))) - (let ((_hd145676145701_ - (##car _e145675145698_)) - (_tl145677145703_ - (##cdr _e145675145698_))) - (let ((_id145706_ _hd145676145701_)) - (if (gx#stx-pair? _tl145677145703_) - (let ((_e145678145708_ - (gx#syntax-e _tl145677145703_))) - (let ((_hd145679145711_ - (##car _e145678145708_)) - (_tl145680145713_ - (##cdr _e145678145708_))) - (let ((_alias-id145716_ - _hd145679145711_)) + (if (gx#stx-pair? _e145599145612_) + (let ((_e145602145620_ (gx#syntax-e _e145599145612_))) + (let ((_hd145603145623_ (##car _e145602145620_)) + (_tl145604145625_ (##cdr _e145602145620_))) + (if (gx#stx-pair? _tl145604145625_) + (let ((_e145605145628_ + (gx#syntax-e _tl145604145625_))) + (let ((_hd145606145631_ + (##car _e145605145628_)) + (_tl145607145633_ + (##cdr _e145605145628_))) + (let ((_id145636_ _hd145606145631_)) + (if (gx#stx-pair? _tl145607145633_) + (let ((_e145608145638_ + (gx#syntax-e _tl145607145633_))) + (let ((_hd145609145641_ + (##car _e145608145638_)) + (_tl145610145643_ + (##cdr _e145608145638_))) + (let ((_alias-id145646_ + _hd145609145641_)) (if (gx#stx-null? - _tl145680145713_) + _tl145610145643_) (if (and (gx#identifier? - _id145706_) + _id145636_) (gx#identifier? - _alias-id145716_)) + _alias-id145646_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _id145706_ + (cons _id145636_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _alias-id145716_ '()))) - (_E145671145686_)) + (cons _alias-id145646_ '()))) + (_E145601145616_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145671145686_))))) - (_E145671145686_))))) - (_E145671145686_)))) - (_E145671145686_))))) - (_E145670145718_)))) + (_E145601145616_))))) + (_E145601145616_))))) + (_E145601145616_)))) + (_E145601145616_))))) + (_E145600145648_)))) (define gx#macro-expand-lambda% - (lambda (_stx145625_) - (let* ((_e145626145636_ _stx145625_) - (_E145628145640_ + (lambda (_stx145555_) + (let* ((_e145556145566_ _stx145555_) + (_E145558145570_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145626145636_))) - (_E145627145664_ + _e145556145566_))) + (_E145557145594_ (lambda () - (if (gx#stx-pair? _e145626145636_) - (let ((_e145629145644_ (gx#syntax-e _e145626145636_))) - (let ((_hd145630145647_ (##car _e145629145644_)) - (_tl145631145649_ (##cdr _e145629145644_))) - (if (gx#stx-pair? _tl145631145649_) - (let ((_e145632145652_ - (gx#syntax-e _tl145631145649_))) - (let ((_hd145633145655_ - (##car _e145632145652_)) - (_tl145634145657_ - (##cdr _e145632145652_))) - (let* ((_hd145660_ _hd145633145655_) - (_body145662_ _tl145634145657_)) + (if (gx#stx-pair? _e145556145566_) + (let ((_e145559145574_ (gx#syntax-e _e145556145566_))) + (let ((_hd145560145577_ (##car _e145559145574_)) + (_tl145561145579_ (##cdr _e145559145574_))) + (if (gx#stx-pair? _tl145561145579_) + (let ((_e145562145582_ + (gx#syntax-e _tl145561145579_))) + (let ((_hd145563145585_ + (##car _e145562145582_)) + (_tl145564145587_ + (##cdr _e145562145582_))) + (let* ((_hd145590_ _hd145563145585_) + (_body145592_ _tl145564145587_)) (if (and (gx#stx-andmap gx#identifier? - _hd145660_) - (gx#stx-list? _body145662_) - (not (gx#stx-null? _body145662_))) + _hd145590_) + (gx#stx-list? _body145592_) + (not (gx#stx-null? _body145592_))) (gx#core-cons* '%#lambda (gx#stx-map1 gx#user-binding-identifier - _hd145660_) - _body145662_) - (_E145628145640_))))) - (_E145628145640_)))) - (_E145628145640_))))) - (_E145627145664_)))) + _hd145590_) + _body145592_) + (_E145558145570_))))) + (_E145558145570_)))) + (_E145558145570_))))) + (_E145557145594_)))) (define gx#macro-expand-case-lambda - (lambda (_stx145561_) - (letrec ((_generate145563_ - (lambda (_clause145593_) - (let* ((_e145594145601_ _clause145593_) - (_E145596145605_ + (lambda (_stx145491_) + (letrec ((_generate145493_ + (lambda (_clause145523_) + (let* ((_e145524145531_ _clause145523_) + (_E145526145535_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _stx145561_ - _clause145593_))) - (_E145595145621_ + _stx145491_ + _clause145523_))) + (_E145525145551_ (lambda () - (if (gx#stx-pair? _e145594145601_) - (let ((_e145597145609_ - (gx#syntax-e _e145594145601_))) - (let ((_hd145598145612_ - (##car _e145597145609_)) - (_tl145599145614_ - (##cdr _e145597145609_))) - (let* ((_hd145617_ _hd145598145612_) - (_body145619_ _tl145599145614_)) + (if (gx#stx-pair? _e145524145531_) + (let ((_e145527145539_ + (gx#syntax-e _e145524145531_))) + (let ((_hd145528145542_ + (##car _e145527145539_)) + (_tl145529145544_ + (##cdr _e145527145539_))) + (let* ((_hd145547_ _hd145528145542_) + (_body145549_ _tl145529145544_)) (if (and (gx#stx-andmap gx#identifier? - _hd145617_) - (gx#stx-list? _body145619_) + _hd145547_) + (gx#stx-list? _body145549_) (not (gx#stx-null? - _body145619_))) + _body145549_))) (gx#stx-wrap-source (cons (gx#stx-map1 gx#user-binding-identifier - _hd145617_) - _body145619_) - (gx#stx-source _clause145593_)) - (_E145596145605_))))) - (_E145596145605_))))) - (_E145595145621_))))) - (let* ((_e145564145571_ _stx145561_) - (_E145566145575_ + _hd145547_) + _body145549_) + (gx#stx-source _clause145523_)) + (_E145526145535_))))) + (_E145526145535_))))) + (_E145525145551_))))) + (let* ((_e145494145501_ _stx145491_) + (_E145496145505_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145564145571_))) - (_E145565145589_ + _e145494145501_))) + (_E145495145519_ (lambda () - (if (gx#stx-pair? _e145564145571_) - (let ((_e145567145579_ (gx#syntax-e _e145564145571_))) - (let ((_hd145568145582_ (##car _e145567145579_)) - (_tl145569145584_ (##cdr _e145567145579_))) - (let ((_clauses145587_ _tl145569145584_)) - (if (gx#stx-list? _clauses145587_) + (if (gx#stx-pair? _e145494145501_) + (let ((_e145497145509_ (gx#syntax-e _e145494145501_))) + (let ((_hd145498145512_ (##car _e145497145509_)) + (_tl145499145514_ (##cdr _e145497145509_))) + (let ((_clauses145517_ _tl145499145514_)) + (if (gx#stx-list? _clauses145517_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _generate145563_ - _clauses145587_)) - (_E145566145575_))))) - (_E145566145575_))))) - (_E145565145589_))))) + _generate145493_ + _clauses145517_)) + (_E145496145505_))))) + (_E145496145505_))))) + (_E145495145519_))))) (define gx#macro-expand-let-values__% - (lambda (_stx145462_ _form145463_) - (letrec ((_generate145465_ - (lambda (_bind145508_) - (let* ((_e145509145519_ _bind145508_) - (_E145511145523_ + (lambda (_stx145392_ _form145393_) + (letrec ((_generate145395_ + (lambda (_bind145438_) + (let* ((_e145439145449_ _bind145438_) + (_E145441145453_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _stx145462_ - _bind145508_))) - (_E145510145547_ + _stx145392_ + _bind145438_))) + (_E145440145477_ (lambda () - (if (gx#stx-pair? _e145509145519_) - (let ((_e145512145527_ - (gx#syntax-e _e145509145519_))) - (let ((_hd145513145530_ - (##car _e145512145527_)) - (_tl145514145532_ - (##cdr _e145512145527_))) - (let ((_ids145535_ _hd145513145530_)) - (if (gx#stx-pair? _tl145514145532_) - (let ((_e145515145537_ + (if (gx#stx-pair? _e145439145449_) + (let ((_e145442145457_ + (gx#syntax-e _e145439145449_))) + (let ((_hd145443145460_ + (##car _e145442145457_)) + (_tl145444145462_ + (##cdr _e145442145457_))) + (let ((_ids145465_ _hd145443145460_)) + (if (gx#stx-pair? _tl145444145462_) + (let ((_e145445145467_ (gx#syntax-e - _tl145514145532_))) - (let ((_hd145516145540_ - (##car _e145515145537_)) - (_tl145517145542_ - (##cdr _e145515145537_))) - (let ((_expr145545_ - _hd145516145540_)) + _tl145444145462_))) + (let ((_hd145446145470_ + (##car _e145445145467_)) + (_tl145447145472_ + (##cdr _e145445145467_))) + (let ((_expr145475_ + _hd145446145470_)) (if (gx#stx-null? - _tl145517145542_) + _tl145447145472_) (if (gx#stx-andmap gx#identifier? - _ids145535_) + _ids145465_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _ids145535_) - (cons _expr145545_ '())) - (_E145511145523_)) - (_E145511145523_))))) + _ids145465_) + (cons _expr145475_ '())) + (_E145441145453_)) + (_E145441145453_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145511145523_))))) - (_E145511145523_))))) - (_E145510145547_))))) - (let* ((_e145466145476_ _stx145462_) - (_E145468145480_ + (_E145441145453_))))) + (_E145441145453_))))) + (_E145440145477_))))) + (let* ((_e145396145406_ _stx145392_) + (_E145398145410_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145466145476_))) - (_E145467145504_ + _e145396145406_))) + (_E145397145434_ (lambda () - (if (gx#stx-pair? _e145466145476_) - (let ((_e145469145484_ (gx#syntax-e _e145466145476_))) - (let ((_hd145470145487_ (##car _e145469145484_)) - (_tl145471145489_ (##cdr _e145469145484_))) - (if (gx#stx-pair? _tl145471145489_) - (let ((_e145472145492_ - (gx#syntax-e _tl145471145489_))) - (let ((_hd145473145495_ - (##car _e145472145492_)) - (_tl145474145497_ - (##cdr _e145472145492_))) - (let* ((_hd145500_ _hd145473145495_) - (_body145502_ _tl145474145497_)) - (if (and (gx#stx-list? _hd145500_) - (gx#stx-list? _body145502_) + (if (gx#stx-pair? _e145396145406_) + (let ((_e145399145414_ (gx#syntax-e _e145396145406_))) + (let ((_hd145400145417_ (##car _e145399145414_)) + (_tl145401145419_ (##cdr _e145399145414_))) + (if (gx#stx-pair? _tl145401145419_) + (let ((_e145402145422_ + (gx#syntax-e _tl145401145419_))) + (let ((_hd145403145425_ + (##car _e145402145422_)) + (_tl145404145427_ + (##cdr _e145402145422_))) + (let* ((_hd145430_ _hd145403145425_) + (_body145432_ _tl145404145427_)) + (if (and (gx#stx-list? _hd145430_) + (gx#stx-list? _body145432_) (not (gx#stx-null? - _body145502_))) + _body145432_))) (gx#core-cons* - _form145463_ + _form145393_ (gx#stx-map1 - _generate145465_ - _hd145500_) - _body145502_) - (_E145468145480_))))) - (_E145468145480_)))) - (_E145468145480_))))) - (_E145467145504_))))) + _generate145395_ + _hd145430_) + _body145432_) + (_E145398145410_))))) + (_E145398145410_)))) + (_E145398145410_))))) + (_E145397145434_))))) (define gx#macro-expand-let-values__0 - (lambda (_stx145554_) - (let ((_form145556_ '%#let-values)) - (gx#macro-expand-let-values__% _stx145554_ _form145556_)))) + (lambda (_stx145484_) + (let ((_form145486_ '%#let-values)) + (gx#macro-expand-let-values__% _stx145484_ _form145486_)))) (define gx#macro-expand-let-values - (lambda _g152133_ - (let ((_g152132_ (##length _g152133_))) - (cond ((##fx= _g152132_ 1) - (apply (lambda (_stx145554_) - (gx#macro-expand-let-values__0 _stx145554_)) - _g152133_)) - ((##fx= _g152132_ 2) - (apply (lambda (_stx145558_ _form145559_) + (lambda _g152063_ + (let ((_g152062_ (##length _g152063_))) + (cond ((##fx= _g152062_ 1) + (apply (lambda (_stx145484_) + (gx#macro-expand-let-values__0 _stx145484_)) + _g152063_)) + ((##fx= _g152062_ 2) + (apply (lambda (_stx145488_ _form145489_) (gx#macro-expand-let-values__% - _stx145558_ - _form145559_)) - _g152133_)) + _stx145488_ + _form145489_)) + _g152063_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g152133_)))))) + _g152063_)))))) (define gx#macro-expand-letrec-values - (lambda (_stx145459_) - (gx#macro-expand-let-values__% _stx145459_ '%#letrec-values))) + (lambda (_stx145389_) + (gx#macro-expand-let-values__% _stx145389_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_stx145457_) - (gx#macro-expand-let-values__% _stx145457_ '%#letrec*-values))) + (lambda (_stx145387_) + (gx#macro-expand-let-values__% _stx145387_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_stx145348_) - (let* ((_e145349145375_ _stx145348_) - (_E145361145379_ + (lambda (_stx145278_) + (let* ((_e145279145305_ _stx145278_) + (_E145291145309_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145349145375_))) - (_E145351145421_ + _e145279145305_))) + (_E145281145351_ (lambda () - (if (gx#stx-pair? _e145349145375_) - (let ((_e145362145383_ (gx#syntax-e _e145349145375_))) - (let ((_hd145363145386_ (##car _e145362145383_)) - (_tl145364145388_ (##cdr _e145362145383_))) - (if (gx#stx-pair? _tl145364145388_) - (let ((_e145365145391_ - (gx#syntax-e _tl145364145388_))) - (let ((_hd145366145394_ - (##car _e145365145391_)) - (_tl145367145396_ - (##cdr _e145365145391_))) - (let ((_test145399_ _hd145366145394_)) - (if (gx#stx-pair? _tl145367145396_) - (let ((_e145368145401_ - (gx#syntax-e _tl145367145396_))) - (let ((_hd145369145404_ - (##car _e145368145401_)) - (_tl145370145406_ - (##cdr _e145368145401_))) - (let ((_K145409_ _hd145369145404_)) + (if (gx#stx-pair? _e145279145305_) + (let ((_e145292145313_ (gx#syntax-e _e145279145305_))) + (let ((_hd145293145316_ (##car _e145292145313_)) + (_tl145294145318_ (##cdr _e145292145313_))) + (if (gx#stx-pair? _tl145294145318_) + (let ((_e145295145321_ + (gx#syntax-e _tl145294145318_))) + (let ((_hd145296145324_ + (##car _e145295145321_)) + (_tl145297145326_ + (##cdr _e145295145321_))) + (let ((_test145329_ _hd145296145324_)) + (if (gx#stx-pair? _tl145297145326_) + (let ((_e145298145331_ + (gx#syntax-e _tl145297145326_))) + (let ((_hd145299145334_ + (##car _e145298145331_)) + (_tl145300145336_ + (##cdr _e145298145331_))) + (let ((_K145339_ _hd145299145334_)) (if (gx#stx-pair? - _tl145370145406_) - (let ((_e145371145411_ + _tl145300145336_) + (let ((_e145301145341_ (gx#syntax-e - _tl145370145406_))) - (let ((_hd145372145414_ - (##car _e145371145411_)) - (_tl145373145416_ - (##cdr _e145371145411_))) - (let ((_E145419_ - _hd145372145414_)) + _tl145300145336_))) + (let ((_hd145302145344_ + (##car _e145301145341_)) + (_tl145303145346_ + (##cdr _e145301145341_))) + (let ((_E145349_ + _hd145302145344_)) (if (gx#stx-null? - _tl145373145416_) + _tl145303145346_) (if '#t (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if - _test145399_ - _K145409_ - _E145419_) - (_E145361145379_)) - (_E145361145379_))))) + _test145329_ + _K145339_ + _E145349_) + (_E145291145309_)) + (_E145291145309_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145361145379_))))) - (_E145361145379_))))) - (_E145361145379_)))) - (_E145361145379_)))) - (_E145350145453_ + (_E145291145309_))))) + (_E145291145309_))))) + (_E145291145309_)))) + (_E145291145309_)))) + (_E145280145383_ (lambda () - (if (gx#stx-pair? _e145349145375_) - (let ((_e145352145425_ (gx#syntax-e _e145349145375_))) - (let ((_hd145353145428_ (##car _e145352145425_)) - (_tl145354145430_ (##cdr _e145352145425_))) - (if (gx#stx-pair? _tl145354145430_) - (let ((_e145355145433_ - (gx#syntax-e _tl145354145430_))) - (let ((_hd145356145436_ - (##car _e145355145433_)) - (_tl145357145438_ - (##cdr _e145355145433_))) - (let ((_test145441_ _hd145356145436_)) - (if (gx#stx-pair? _tl145357145438_) - (let ((_e145358145443_ - (gx#syntax-e _tl145357145438_))) - (let ((_hd145359145446_ - (##car _e145358145443_)) - (_tl145360145448_ - (##cdr _e145358145443_))) - (let ((_K145451_ _hd145359145446_)) + (if (gx#stx-pair? _e145279145305_) + (let ((_e145282145355_ (gx#syntax-e _e145279145305_))) + (let ((_hd145283145358_ (##car _e145282145355_)) + (_tl145284145360_ (##cdr _e145282145355_))) + (if (gx#stx-pair? _tl145284145360_) + (let ((_e145285145363_ + (gx#syntax-e _tl145284145360_))) + (let ((_hd145286145366_ + (##car _e145285145363_)) + (_tl145287145368_ + (##cdr _e145285145363_))) + (let ((_test145371_ _hd145286145366_)) + (if (gx#stx-pair? _tl145287145368_) + (let ((_e145288145373_ + (gx#syntax-e _tl145287145368_))) + (let ((_hd145289145376_ + (##car _e145288145373_)) + (_tl145290145378_ + (##cdr _e145288145373_))) + (let ((_K145381_ _hd145289145376_)) (if (gx#stx-null? - _tl145360145448_) + _tl145290145378_) (if '#t (gx#core-list '%#if - _test145441_ - _K145451_ + _test145371_ + _K145381_ '#!void) - (_E145351145421_)) - (_E145351145421_))))) - (_E145351145421_))))) - (_E145351145421_)))) - (_E145351145421_))))) - (_E145350145453_)))) + (_E145281145351_)) + (_E145281145351_))))) + (_E145281145351_))))) + (_E145281145351_)))) + (_E145281145351_))))) + (_E145280145383_)))) (define gx#free-identifier=? - (lambda (_xid145336_ _yid145337_) - (let ((_xe145339_ (gx#resolve-identifier__0 _xid145336_)) - (_ye145340_ (gx#resolve-identifier__0 _yid145337_))) - (if (and _xe145339_ _ye145340_) - (let ((_$e145342_ (eq? _xe145339_ _ye145340_))) - (if _$e145342_ - _$e145342_ - (if (##structure-instance-of? _xe145339_ 'gx#binding::t) + (lambda (_xid145266_ _yid145267_) + (let ((_xe145269_ (gx#resolve-identifier__0 _xid145266_)) + (_ye145270_ (gx#resolve-identifier__0 _yid145267_))) + (if (and _xe145269_ _ye145270_) + (let ((_$e145272_ (eq? _xe145269_ _ye145270_))) + (if _$e145272_ + _$e145272_ + (if (##structure-instance-of? _xe145269_ 'gx#binding::t) (if (##structure-instance-of? - _ye145340_ + _ye145270_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _xe145339_ + _xe145269_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _ye145340_ + _ye145270_ '1 gx#binding::t '#f)) '#f) '#f))) - (if (or _xe145339_ _ye145340_) + (if (or _xe145269_ _ye145270_) '#f - (gx#stx-eq? _xid145336_ _yid145337_)))))) + (gx#stx-eq? _xid145266_ _yid145267_)))))) (define gx#bound-identifier=? - (lambda (_xid145320_ _yid145321_) - (letrec ((_context145323_ - (lambda (_e145334_) + (lambda (_xid145250_ _yid145251_) + (letrec ((_context145253_ + (lambda (_e145264_) (if (##structure-direct-instance-of? - _e145334_ + _e145264_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _e145334_ + _e145264_ '3 gx#syntax-quote::t '#f) (gx#current-expander-context)))) - (_marks145324_ - (lambda (_e145332_) - (if (symbol? _e145332_) + (_marks145254_ + (lambda (_e145262_) + (if (symbol? _e145262_) '() (if (##structure-direct-instance-of? - _e145332_ + _e145262_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _e145332_ + _e145262_ '3 gx#identifier-wrap::t '#f) (##unchecked-structure-ref - _e145332_ + _e145262_ '4 gx#syntax-quote::t '#f))))) - (_unwrap145325_ - (lambda (_e145330_) - (if (symbol? _e145330_) - _e145330_ - (gx#syntax-local-unwrap _e145330_))))) - (let ((_x145327_ (_unwrap145325_ _xid145320_)) - (_y145328_ (_unwrap145325_ _yid145321_))) - (if (gx#stx-eq? _x145327_ _y145328_) - (if (eq? (_context145323_ _x145327_) - (_context145323_ _y145328_)) - (equal? (_marks145324_ _x145327_) - (_marks145324_ _y145328_)) + (_unwrap145255_ + (lambda (_e145260_) + (if (symbol? _e145260_) + _e145260_ + (gx#syntax-local-unwrap _e145260_))))) + (let ((_x145257_ (_unwrap145255_ _xid145250_)) + (_y145258_ (_unwrap145255_ _yid145251_))) + (if (gx#stx-eq? _x145257_ _y145258_) + (if (eq? (_context145253_ _x145257_) + (_context145253_ _y145258_)) + (equal? (_marks145254_ _x145257_) + (_marks145254_ _y145258_)) '#f) '#f))))) (define gx#underscore? - (lambda (_stx145318_) - (if (gx#identifier? _stx145318_) - (gx#core-identifier=? _stx145318_ '_) + (lambda (_stx145248_) + (if (gx#identifier? _stx145248_) + (gx#core-identifier=? _stx145248_ '_) '#f))) (define gx#ellipsis? - (lambda (_stx145316_) - (if (gx#identifier? _stx145316_) - (gx#core-identifier=? _stx145316_ '...) + (lambda (_stx145246_) + (if (gx#identifier? _stx145246_) + (gx#core-identifier=? _stx145246_ '...) '#f))) (define gx#user-binding-identifier - (lambda (_x145314_) - (if (gx#identifier? _x145314_) - (if (not (gx#underscore? _x145314_)) _x145314_ '#f) + (lambda (_x145244_) + (if (gx#identifier? _x145244_) + (if (not (gx#underscore? _x145244_)) _x145244_ '#f) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_stx145260_ _where145261_) - (let _lp145263_ ((_rest145265_ (gx#syntax->list _stx145260_))) - (let* ((_rest145266145274_ _rest145265_) - (_else145268145282_ (lambda () '#t)) - (_K145270145292_ - (lambda (_rest145285_ _hd145286_) - (if (not (gx#identifier? _hd145286_)) + (lambda (_stx145190_ _where145191_) + (let _lp145193_ ((_rest145195_ (gx#syntax->list _stx145190_))) + (let* ((_rest145196145204_ _rest145195_) + (_else145198145212_ (lambda () '#t)) + (_K145200145222_ + (lambda (_rest145215_ _hd145216_) + (if (not (gx#identifier? _hd145216_)) (gx#raise-syntax-error '#f '"Bad identifier" - _where145261_ - _hd145286_) - (if (find (lambda (_g145287145289_) + _where145191_ + _hd145216_) + (if (find (lambda (_g145217145219_) (gx#bound-identifier=? - _g145287145289_ - _hd145286_)) - _rest145285_) + _g145217145219_ + _hd145216_)) + _rest145215_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _where145261_ - _hd145286_) - (_lp145263_ _rest145285_)))))) - (if (##pair? _rest145266145274_) - (let ((_hd145271145295_ (##car _rest145266145274_)) - (_tl145272145297_ (##cdr _rest145266145274_))) - (let* ((_hd145300_ _hd145271145295_) - (_rest145302_ _tl145272145297_)) - (_K145270145292_ _rest145302_ _hd145300_))) - (_else145268145282_)))))) + _where145191_ + _hd145216_) + (_lp145193_ _rest145215_)))))) + (if (##pair? _rest145196145204_) + (let ((_hd145201145225_ (##car _rest145196145204_)) + (_tl145202145227_ (##cdr _rest145196145204_))) + (let* ((_hd145230_ _hd145201145225_) + (_rest145232_ _tl145202145227_)) + (_K145200145222_ _rest145232_ _hd145230_))) + (_else145198145212_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_stx145307_) - (let ((_where145309_ _stx145307_)) - (gx#check-duplicate-identifiers__% _stx145307_ _where145309_)))) + (lambda (_stx145237_) + (let ((_where145239_ _stx145237_)) + (gx#check-duplicate-identifiers__% _stx145237_ _where145239_)))) (define gx#check-duplicate-identifiers - (lambda _g152135_ - (let ((_g152134_ (##length _g152135_))) - (cond ((##fx= _g152134_ 1) - (apply (lambda (_stx145307_) - (gx#check-duplicate-identifiers__0 _stx145307_)) - _g152135_)) - ((##fx= _g152134_ 2) - (apply (lambda (_stx145311_ _where145312_) + (lambda _g152065_ + (let ((_g152064_ (##length _g152065_))) + (cond ((##fx= _g152064_ 1) + (apply (lambda (_stx145237_) + (gx#check-duplicate-identifiers__0 _stx145237_)) + _g152065_)) + ((##fx= _g152064_ 2) + (apply (lambda (_stx145241_ _where145242_) (gx#check-duplicate-identifiers__% - _stx145311_ - _where145312_)) - _g152135_)) + _stx145241_ + _where145242_)) + _g152065_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g152135_)))))) + _g152065_)))))) (define gx#core-bind-values? - (lambda (_stx145252_) + (lambda (_stx145182_) (gx#stx-andmap - (lambda (_x145254_) - (let ((_$e145256_ (gx#identifier? _x145254_))) - (if _$e145256_ _$e145256_ (gx#stx-false? _x145254_)))) - _stx145252_))) + (lambda (_x145184_) + (let ((_$e145186_ (gx#identifier? _x145184_))) + (if _$e145186_ _$e145186_ (gx#stx-false? _x145184_)))) + _stx145182_))) (define gx#core-bind-values!__% - (lambda (_stx145216_ _rebind?145217_ _phi145218_ _ctx145219_) + (lambda (_stx145146_ _rebind?145147_ _phi145148_ _ctx145149_) (gx#stx-for-each1 - (lambda (_id145221_) - (if (gx#identifier? _id145221_) + (lambda (_id145151_) + (if (gx#identifier? _id145151_) (gx#core-bind-runtime!__% - _id145221_ - _rebind?145217_ - _phi145218_ - _ctx145219_) + _id145151_ + _rebind?145147_ + _phi145148_ + _ctx145149_) '#!void)) - _stx145216_))) + _stx145146_))) (define gx#core-bind-values!__0 - (lambda (_stx145226_) - (let* ((_rebind?145228_ '#f) - (_phi145230_ (gx#current-expander-phi)) - (_ctx145232_ (gx#current-expander-context))) + (lambda (_stx145156_) + (let* ((_rebind?145158_ '#f) + (_phi145160_ (gx#current-expander-phi)) + (_ctx145162_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx145226_ - _rebind?145228_ - _phi145230_ - _ctx145232_)))) + _stx145156_ + _rebind?145158_ + _phi145160_ + _ctx145162_)))) (define gx#core-bind-values!__1 - (lambda (_stx145234_ _rebind?145235_) - (let* ((_phi145237_ (gx#current-expander-phi)) - (_ctx145239_ (gx#current-expander-context))) + (lambda (_stx145164_ _rebind?145165_) + (let* ((_phi145167_ (gx#current-expander-phi)) + (_ctx145169_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx145234_ - _rebind?145235_ - _phi145237_ - _ctx145239_)))) + _stx145164_ + _rebind?145165_ + _phi145167_ + _ctx145169_)))) (define gx#core-bind-values!__2 - (lambda (_stx145241_ _rebind?145242_ _phi145243_) - (let ((_ctx145245_ (gx#current-expander-context))) + (lambda (_stx145171_ _rebind?145172_ _phi145173_) + (let ((_ctx145175_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx145241_ - _rebind?145242_ - _phi145243_ - _ctx145245_)))) + _stx145171_ + _rebind?145172_ + _phi145173_ + _ctx145175_)))) (define gx#core-bind-values! - (lambda _g152137_ - (let ((_g152136_ (##length _g152137_))) - (cond ((##fx= _g152136_ 1) - (apply (lambda (_stx145226_) - (gx#core-bind-values!__0 _stx145226_)) - _g152137_)) - ((##fx= _g152136_ 2) - (apply (lambda (_stx145234_ _rebind?145235_) + (lambda _g152067_ + (let ((_g152066_ (##length _g152067_))) + (cond ((##fx= _g152066_ 1) + (apply (lambda (_stx145156_) + (gx#core-bind-values!__0 _stx145156_)) + _g152067_)) + ((##fx= _g152066_ 2) + (apply (lambda (_stx145164_ _rebind?145165_) (gx#core-bind-values!__1 - _stx145234_ - _rebind?145235_)) - _g152137_)) - ((##fx= _g152136_ 3) - (apply (lambda (_stx145241_ _rebind?145242_ _phi145243_) + _stx145164_ + _rebind?145165_)) + _g152067_)) + ((##fx= _g152066_ 3) + (apply (lambda (_stx145171_ _rebind?145172_ _phi145173_) (gx#core-bind-values!__2 - _stx145241_ - _rebind?145242_ - _phi145243_)) - _g152137_)) - ((##fx= _g152136_ 4) - (apply (lambda (_stx145247_ - _rebind?145248_ - _phi145249_ - _ctx145250_) + _stx145171_ + _rebind?145172_ + _phi145173_)) + _g152067_)) + ((##fx= _g152066_ 4) + (apply (lambda (_stx145177_ + _rebind?145178_ + _phi145179_ + _ctx145180_) (gx#core-bind-values!__% - _stx145247_ - _rebind?145248_ - _phi145249_ - _ctx145250_)) - _g152137_)) + _stx145177_ + _rebind?145178_ + _phi145179_ + _ctx145180_)) + _g152067_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g152137_)))))) + _g152067_)))))) (define gx#core-quote-bind-values - (lambda (_stx145211_) + (lambda (_stx145141_) (gx#stx-map1 - (lambda (_x145213_) - (if (gx#identifier? _x145213_) - (gx#core-quote-syntax__0 _x145213_) + (lambda (_x145143_) + (if (gx#identifier? _x145143_) + (gx#core-quote-syntax__0 _x145143_) '#f)) - _stx145211_))) + _stx145141_))) (define gx#core-runtime-ref? - (lambda (_stx145204_) - (if (gx#identifier? _stx145204_) - (let* ((_bind145206_ (gx#resolve-identifier__0 _stx145204_)) - (_$e145208_ (not _bind145206_))) - (if _$e145208_ - _$e145208_ + (lambda (_stx145134_) + (if (gx#identifier? _stx145134_) + (let* ((_bind145136_ (gx#resolve-identifier__0 _stx145134_)) + (_$e145138_ (not _bind145136_))) + (if _$e145138_ + _$e145138_ (##structure-instance-of? - _bind145206_ + _bind145136_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_id145196_ _form145197_) - (let ((_bind145199_ (gx#resolve-identifier__0 _id145196_))) - (if (##structure-instance-of? _bind145199_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _id145196_) - (if (not _bind145199_) + (lambda (_id145126_ _form145127_) + (let ((_bind145129_ (gx#resolve-identifier__0 _id145126_))) + (if (##structure-instance-of? _bind145129_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _id145126_) + (if (not _bind145129_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _id145196_))) - (gx#core-quote-syntax__0 _id145196_) + (gx#core-extern-symbol? (gx#stx-e _id145126_))) + (gx#core-quote-syntax__0 _id145126_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _form145197_ - _id145196_)) + _form145127_ + _id145126_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _form145197_ - _id145196_)))))) + _form145127_ + _id145126_)))))) (define gx#core-bind-runtime!__% - (lambda (_id145155_ _rebind?145156_ _phi145157_ _ctx145158_) - (let* ((_key145160_ (gx#core-identifier-key _id145155_)) - (_eid145162_ + (lambda (_id145085_ _rebind?145086_ _phi145087_ _ctx145088_) + (let* ((_key145090_ (gx#core-identifier-key _id145085_)) + (_eid145092_ (gx#make-binding-id__% - _key145160_ + _key145090_ '#f - _phi145157_ - _ctx145158_)) - (_bind145164_ + _phi145087_ + _ctx145088_)) + (_bind145094_ (if (##structure-instance-of? - _ctx145158_ + _ctx145088_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid145162_ - _key145160_ - _phi145157_ - _ctx145158_) + _eid145092_ + _key145090_ + _phi145087_ + _ctx145088_) (if (##structure-instance-of? - _ctx145158_ + _ctx145088_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid145162_ - _key145160_ - _phi145157_) + _eid145092_ + _key145090_ + _phi145087_) (if (##structure-instance-of? - _ctx145158_ + _ctx145088_ 'gx#local-context::t) (##structure gx#local-binding::t - _eid145162_ - _key145160_ - _phi145157_) + _eid145092_ + _key145090_ + _phi145087_) (##structure gx#runtime-binding::t - _eid145162_ - _key145160_ - _phi145157_)))))) + _eid145092_ + _key145090_ + _phi145087_)))))) (gx#bind-identifier!__% - _id145155_ - _bind145164_ - _rebind?145156_ - _phi145157_ - _ctx145158_)))) + _id145085_ + _bind145094_ + _rebind?145086_ + _phi145087_ + _ctx145088_)))) (define gx#core-bind-runtime!__0 - (lambda (_id145170_) - (let* ((_rebind?145172_ '#f) - (_phi145174_ (gx#current-expander-phi)) - (_ctx145176_ (gx#current-expander-context))) + (lambda (_id145100_) + (let* ((_rebind?145102_ '#f) + (_phi145104_ (gx#current-expander-phi)) + (_ctx145106_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id145170_ - _rebind?145172_ - _phi145174_ - _ctx145176_)))) + _id145100_ + _rebind?145102_ + _phi145104_ + _ctx145106_)))) (define gx#core-bind-runtime!__1 - (lambda (_id145178_ _rebind?145179_) - (let* ((_phi145181_ (gx#current-expander-phi)) - (_ctx145183_ (gx#current-expander-context))) + (lambda (_id145108_ _rebind?145109_) + (let* ((_phi145111_ (gx#current-expander-phi)) + (_ctx145113_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id145178_ - _rebind?145179_ - _phi145181_ - _ctx145183_)))) + _id145108_ + _rebind?145109_ + _phi145111_ + _ctx145113_)))) (define gx#core-bind-runtime!__2 - (lambda (_id145185_ _rebind?145186_ _phi145187_) - (let ((_ctx145189_ (gx#current-expander-context))) + (lambda (_id145115_ _rebind?145116_ _phi145117_) + (let ((_ctx145119_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id145185_ - _rebind?145186_ - _phi145187_ - _ctx145189_)))) + _id145115_ + _rebind?145116_ + _phi145117_ + _ctx145119_)))) (define gx#core-bind-runtime! - (lambda _g152139_ - (let ((_g152138_ (##length _g152139_))) - (cond ((##fx= _g152138_ 1) - (apply (lambda (_id145170_) - (gx#core-bind-runtime!__0 _id145170_)) - _g152139_)) - ((##fx= _g152138_ 2) - (apply (lambda (_id145178_ _rebind?145179_) + (lambda _g152069_ + (let ((_g152068_ (##length _g152069_))) + (cond ((##fx= _g152068_ 1) + (apply (lambda (_id145100_) + (gx#core-bind-runtime!__0 _id145100_)) + _g152069_)) + ((##fx= _g152068_ 2) + (apply (lambda (_id145108_ _rebind?145109_) (gx#core-bind-runtime!__1 - _id145178_ - _rebind?145179_)) - _g152139_)) - ((##fx= _g152138_ 3) - (apply (lambda (_id145185_ _rebind?145186_ _phi145187_) + _id145108_ + _rebind?145109_)) + _g152069_)) + ((##fx= _g152068_ 3) + (apply (lambda (_id145115_ _rebind?145116_ _phi145117_) (gx#core-bind-runtime!__2 - _id145185_ - _rebind?145186_ - _phi145187_)) - _g152139_)) - ((##fx= _g152138_ 4) - (apply (lambda (_id145191_ - _rebind?145192_ - _phi145193_ - _ctx145194_) + _id145115_ + _rebind?145116_ + _phi145117_)) + _g152069_)) + ((##fx= _g152068_ 4) + (apply (lambda (_id145121_ + _rebind?145122_ + _phi145123_ + _ctx145124_) (gx#core-bind-runtime!__% - _id145191_ - _rebind?145192_ - _phi145193_ - _ctx145194_)) - _g152139_)) + _id145121_ + _rebind?145122_ + _phi145123_ + _ctx145124_)) + _g152069_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g152139_)))))) + _g152069_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_id145110_ _eid145111_ _rebind?145112_ _phi145113_ _ctx145114_) - (let* ((_key145116_ (gx#core-identifier-key _id145110_)) - (_bind145118_ + (lambda (_id145040_ _eid145041_ _rebind?145042_ _phi145043_ _ctx145044_) + (let* ((_key145046_ (gx#core-identifier-key _id145040_)) + (_bind145048_ (if (##structure-instance-of? - _ctx145114_ + _ctx145044_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid145111_ - _key145116_ - _phi145113_ - _ctx145114_) + _eid145041_ + _key145046_ + _phi145043_ + _ctx145044_) (if (##structure-instance-of? - _ctx145114_ + _ctx145044_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid145111_ - _key145116_ - _phi145113_) + _eid145041_ + _key145046_ + _phi145043_) (##structure gx#runtime-binding::t - _eid145111_ - _key145116_ - _phi145113_))))) + _eid145041_ + _key145046_ + _phi145043_))))) (gx#bind-identifier!__% - _id145110_ - _bind145118_ - _rebind?145112_ - _phi145113_ - _ctx145114_)))) + _id145040_ + _bind145048_ + _rebind?145042_ + _phi145043_ + _ctx145044_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_id145124_ _eid145125_) - (let* ((_rebind?145127_ '#f) - (_phi145129_ (gx#current-expander-phi)) - (_ctx145131_ (gx#current-expander-context))) + (lambda (_id145054_ _eid145055_) + (let* ((_rebind?145057_ '#f) + (_phi145059_ (gx#current-expander-phi)) + (_ctx145061_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id145124_ - _eid145125_ - _rebind?145127_ - _phi145129_ - _ctx145131_)))) + _id145054_ + _eid145055_ + _rebind?145057_ + _phi145059_ + _ctx145061_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_id145133_ _eid145134_ _rebind?145135_) - (let* ((_phi145137_ (gx#current-expander-phi)) - (_ctx145139_ (gx#current-expander-context))) + (lambda (_id145063_ _eid145064_ _rebind?145065_) + (let* ((_phi145067_ (gx#current-expander-phi)) + (_ctx145069_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id145133_ - _eid145134_ - _rebind?145135_ - _phi145137_ - _ctx145139_)))) + _id145063_ + _eid145064_ + _rebind?145065_ + _phi145067_ + _ctx145069_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_id145141_ _eid145142_ _rebind?145143_ _phi145144_) - (let ((_ctx145146_ (gx#current-expander-context))) + (lambda (_id145071_ _eid145072_ _rebind?145073_ _phi145074_) + (let ((_ctx145076_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id145141_ - _eid145142_ - _rebind?145143_ - _phi145144_ - _ctx145146_)))) + _id145071_ + _eid145072_ + _rebind?145073_ + _phi145074_ + _ctx145076_)))) (define gx#core-bind-runtime-reference! - (lambda _g152141_ - (let ((_g152140_ (##length _g152141_))) - (cond ((##fx= _g152140_ 2) - (apply (lambda (_id145124_ _eid145125_) + (lambda _g152071_ + (let ((_g152070_ (##length _g152071_))) + (cond ((##fx= _g152070_ 2) + (apply (lambda (_id145054_ _eid145055_) (gx#core-bind-runtime-reference!__0 - _id145124_ - _eid145125_)) - _g152141_)) - ((##fx= _g152140_ 3) - (apply (lambda (_id145133_ _eid145134_ _rebind?145135_) + _id145054_ + _eid145055_)) + _g152071_)) + ((##fx= _g152070_ 3) + (apply (lambda (_id145063_ _eid145064_ _rebind?145065_) (gx#core-bind-runtime-reference!__1 - _id145133_ - _eid145134_ - _rebind?145135_)) - _g152141_)) - ((##fx= _g152140_ 4) - (apply (lambda (_id145141_ - _eid145142_ - _rebind?145143_ - _phi145144_) + _id145063_ + _eid145064_ + _rebind?145065_)) + _g152071_)) + ((##fx= _g152070_ 4) + (apply (lambda (_id145071_ + _eid145072_ + _rebind?145073_ + _phi145074_) (gx#core-bind-runtime-reference!__2 - _id145141_ - _eid145142_ - _rebind?145143_ - _phi145144_)) - _g152141_)) - ((##fx= _g152140_ 5) - (apply (lambda (_id145148_ - _eid145149_ - _rebind?145150_ - _phi145151_ - _ctx145152_) + _id145071_ + _eid145072_ + _rebind?145073_ + _phi145074_)) + _g152071_)) + ((##fx= _g152070_ 5) + (apply (lambda (_id145078_ + _eid145079_ + _rebind?145080_ + _phi145081_ + _ctx145082_) (gx#core-bind-runtime-reference!__% - _id145148_ - _eid145149_ - _rebind?145150_ - _phi145151_ - _ctx145152_)) - _g152141_)) + _id145078_ + _eid145079_ + _rebind?145080_ + _phi145081_ + _ctx145082_)) + _g152071_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g152141_)))))) + _g152071_)))))) (define gx#core-bind-extern!__% - (lambda (_id145070_ _eid145071_ _rebind?145072_ _phi145073_ _ctx145074_) + (lambda (_id145000_ _eid145001_ _rebind?145002_ _phi145003_ _ctx145004_) (gx#bind-identifier!__% - _id145070_ + _id145000_ (##structure gx#extern-binding::t - _eid145071_ - (gx#core-identifier-key _id145070_) - _phi145073_) - _rebind?145072_ - _phi145073_ - _ctx145074_))) + _eid145001_ + (gx#core-identifier-key _id145000_) + _phi145003_) + _rebind?145002_ + _phi145003_ + _ctx145004_))) (define gx#core-bind-extern!__0 - (lambda (_id145079_ _eid145080_) - (let* ((_rebind?145082_ '#f) - (_phi145084_ (gx#current-expander-phi)) - (_ctx145086_ (gx#current-expander-context))) + (lambda (_id145009_ _eid145010_) + (let* ((_rebind?145012_ '#f) + (_phi145014_ (gx#current-expander-phi)) + (_ctx145016_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id145079_ - _eid145080_ - _rebind?145082_ - _phi145084_ - _ctx145086_)))) + _id145009_ + _eid145010_ + _rebind?145012_ + _phi145014_ + _ctx145016_)))) (define gx#core-bind-extern!__1 - (lambda (_id145088_ _eid145089_ _rebind?145090_) - (let* ((_phi145092_ (gx#current-expander-phi)) - (_ctx145094_ (gx#current-expander-context))) + (lambda (_id145018_ _eid145019_ _rebind?145020_) + (let* ((_phi145022_ (gx#current-expander-phi)) + (_ctx145024_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id145088_ - _eid145089_ - _rebind?145090_ - _phi145092_ - _ctx145094_)))) + _id145018_ + _eid145019_ + _rebind?145020_ + _phi145022_ + _ctx145024_)))) (define gx#core-bind-extern!__2 - (lambda (_id145096_ _eid145097_ _rebind?145098_ _phi145099_) - (let ((_ctx145101_ (gx#current-expander-context))) + (lambda (_id145026_ _eid145027_ _rebind?145028_ _phi145029_) + (let ((_ctx145031_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id145096_ - _eid145097_ - _rebind?145098_ - _phi145099_ - _ctx145101_)))) + _id145026_ + _eid145027_ + _rebind?145028_ + _phi145029_ + _ctx145031_)))) (define gx#core-bind-extern! - (lambda _g152143_ - (let ((_g152142_ (##length _g152143_))) - (cond ((##fx= _g152142_ 2) - (apply (lambda (_id145079_ _eid145080_) - (gx#core-bind-extern!__0 _id145079_ _eid145080_)) - _g152143_)) - ((##fx= _g152142_ 3) - (apply (lambda (_id145088_ _eid145089_ _rebind?145090_) + (lambda _g152073_ + (let ((_g152072_ (##length _g152073_))) + (cond ((##fx= _g152072_ 2) + (apply (lambda (_id145009_ _eid145010_) + (gx#core-bind-extern!__0 _id145009_ _eid145010_)) + _g152073_)) + ((##fx= _g152072_ 3) + (apply (lambda (_id145018_ _eid145019_ _rebind?145020_) (gx#core-bind-extern!__1 - _id145088_ - _eid145089_ - _rebind?145090_)) - _g152143_)) - ((##fx= _g152142_ 4) - (apply (lambda (_id145096_ - _eid145097_ - _rebind?145098_ - _phi145099_) + _id145018_ + _eid145019_ + _rebind?145020_)) + _g152073_)) + ((##fx= _g152072_ 4) + (apply (lambda (_id145026_ + _eid145027_ + _rebind?145028_ + _phi145029_) (gx#core-bind-extern!__2 - _id145096_ - _eid145097_ - _rebind?145098_ - _phi145099_)) - _g152143_)) - ((##fx= _g152142_ 5) - (apply (lambda (_id145103_ - _eid145104_ - _rebind?145105_ - _phi145106_ - _ctx145107_) + _id145026_ + _eid145027_ + _rebind?145028_ + _phi145029_)) + _g152073_)) + ((##fx= _g152072_ 5) + (apply (lambda (_id145033_ + _eid145034_ + _rebind?145035_ + _phi145036_ + _ctx145037_) (gx#core-bind-extern!__% - _id145103_ - _eid145104_ - _rebind?145105_ - _phi145106_ - _ctx145107_)) - _g152143_)) + _id145033_ + _eid145034_ + _rebind?145035_ + _phi145036_ + _ctx145037_)) + _g152073_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g152143_)))))) + _g152073_)))))) (define gx#core-bind-syntax!__% - (lambda (_id145024_ _e145025_ _rebind?145026_ _phi145027_ _ctx145028_) + (lambda (_id144954_ _e144955_ _rebind?144956_ _phi144957_ _ctx144958_) (gx#bind-identifier!__% - _id145024_ - (let ((_key145033_ (gx#core-identifier-key _id145024_)) - (_e145034_ - (if (or (##structure-instance-of? _e145025_ 'gx#expander::t) + _id144954_ + (let ((_key144963_ (gx#core-identifier-key _id144954_)) + (_e144964_ + (if (or (##structure-instance-of? _e144955_ 'gx#expander::t) (##structure-instance-of? - _e145025_ + _e144955_ 'gx#expander-context::t)) - _e145025_ + _e144955_ (##structure gx#user-expander::t - _e145025_ - _ctx145028_ - _phi145027_)))) + _e144955_ + _ctx144958_ + _phi144957_)))) (##structure gx#syntax-binding::t - (gx#make-binding-id__% _key145033_ '#t _phi145027_ _ctx145028_) - _key145033_ - _phi145027_ - _e145034_)) - _rebind?145026_ - _phi145027_ - _ctx145028_))) + (gx#make-binding-id__% _key144963_ '#t _phi144957_ _ctx144958_) + _key144963_ + _phi144957_ + _e144964_)) + _rebind?144956_ + _phi144957_ + _ctx144958_))) (define gx#core-bind-syntax!__0 - (lambda (_id145039_ _e145040_) - (let* ((_rebind?145042_ '#f) - (_phi145044_ (gx#current-expander-phi)) - (_ctx145046_ (gx#current-expander-context))) + (lambda (_id144969_ _e144970_) + (let* ((_rebind?144972_ '#f) + (_phi144974_ (gx#current-expander-phi)) + (_ctx144976_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id145039_ - _e145040_ - _rebind?145042_ - _phi145044_ - _ctx145046_)))) + _id144969_ + _e144970_ + _rebind?144972_ + _phi144974_ + _ctx144976_)))) (define gx#core-bind-syntax!__1 - (lambda (_id145048_ _e145049_ _rebind?145050_) - (let* ((_phi145052_ (gx#current-expander-phi)) - (_ctx145054_ (gx#current-expander-context))) + (lambda (_id144978_ _e144979_ _rebind?144980_) + (let* ((_phi144982_ (gx#current-expander-phi)) + (_ctx144984_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id145048_ - _e145049_ - _rebind?145050_ - _phi145052_ - _ctx145054_)))) + _id144978_ + _e144979_ + _rebind?144980_ + _phi144982_ + _ctx144984_)))) (define gx#core-bind-syntax!__2 - (lambda (_id145056_ _e145057_ _rebind?145058_ _phi145059_) - (let ((_ctx145061_ (gx#current-expander-context))) + (lambda (_id144986_ _e144987_ _rebind?144988_ _phi144989_) + (let ((_ctx144991_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id145056_ - _e145057_ - _rebind?145058_ - _phi145059_ - _ctx145061_)))) + _id144986_ + _e144987_ + _rebind?144988_ + _phi144989_ + _ctx144991_)))) (define gx#core-bind-syntax! - (lambda _g152145_ - (let ((_g152144_ (##length _g152145_))) - (cond ((##fx= _g152144_ 2) - (apply (lambda (_id145039_ _e145040_) - (gx#core-bind-syntax!__0 _id145039_ _e145040_)) - _g152145_)) - ((##fx= _g152144_ 3) - (apply (lambda (_id145048_ _e145049_ _rebind?145050_) + (lambda _g152075_ + (let ((_g152074_ (##length _g152075_))) + (cond ((##fx= _g152074_ 2) + (apply (lambda (_id144969_ _e144970_) + (gx#core-bind-syntax!__0 _id144969_ _e144970_)) + _g152075_)) + ((##fx= _g152074_ 3) + (apply (lambda (_id144978_ _e144979_ _rebind?144980_) (gx#core-bind-syntax!__1 - _id145048_ - _e145049_ - _rebind?145050_)) - _g152145_)) - ((##fx= _g152144_ 4) - (apply (lambda (_id145056_ - _e145057_ - _rebind?145058_ - _phi145059_) + _id144978_ + _e144979_ + _rebind?144980_)) + _g152075_)) + ((##fx= _g152074_ 4) + (apply (lambda (_id144986_ + _e144987_ + _rebind?144988_ + _phi144989_) (gx#core-bind-syntax!__2 - _id145056_ - _e145057_ - _rebind?145058_ - _phi145059_)) - _g152145_)) - ((##fx= _g152144_ 5) - (apply (lambda (_id145063_ - _e145064_ - _rebind?145065_ - _phi145066_ - _ctx145067_) + _id144986_ + _e144987_ + _rebind?144988_ + _phi144989_)) + _g152075_)) + ((##fx= _g152074_ 5) + (apply (lambda (_id144993_ + _e144994_ + _rebind?144995_ + _phi144996_ + _ctx144997_) (gx#core-bind-syntax!__% - _id145063_ - _e145064_ - _rebind?145065_ - _phi145066_ - _ctx145067_)) - _g152145_)) + _id144993_ + _e144994_ + _rebind?144995_ + _phi144996_ + _ctx144997_)) + _g152075_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g152145_)))))) + _g152075_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_id145007_ _e145008_ _rebind?145009_) + (lambda (_id144937_ _e144938_ _rebind?144939_) (gx#core-bind-syntax!__% - _id145007_ - _e145008_ - _rebind?145009_ + _id144937_ + _e144938_ + _rebind?144939_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_id145014_ _e145015_) - (let ((_rebind?145017_ '#f)) + (lambda (_id144944_ _e144945_) + (let ((_rebind?144947_ '#f)) (gx#core-bind-root-syntax!__% - _id145014_ - _e145015_ - _rebind?145017_)))) + _id144944_ + _e144945_ + _rebind?144947_)))) (define gx#core-bind-root-syntax! - (lambda _g152147_ - (let ((_g152146_ (##length _g152147_))) - (cond ((##fx= _g152146_ 2) - (apply (lambda (_id145014_ _e145015_) - (gx#core-bind-root-syntax!__0 _id145014_ _e145015_)) - _g152147_)) - ((##fx= _g152146_ 3) - (apply (lambda (_id145019_ _e145020_ _rebind?145021_) + (lambda _g152077_ + (let ((_g152076_ (##length _g152077_))) + (cond ((##fx= _g152076_ 2) + (apply (lambda (_id144944_ _e144945_) + (gx#core-bind-root-syntax!__0 _id144944_ _e144945_)) + _g152077_)) + ((##fx= _g152076_ 3) + (apply (lambda (_id144949_ _e144950_ _rebind?144951_) (gx#core-bind-root-syntax!__% - _id145019_ - _e145020_ - _rebind?145021_)) - _g152147_)) + _id144949_ + _e144950_ + _rebind?144951_)) + _g152077_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g152147_)))))) + _g152077_)))))) (define gx#core-bind-alias!__% - (lambda (_id144965_ - _alias-id144966_ - _rebind?144967_ - _phi144968_ - _ctx144969_) + (lambda (_id144895_ + _alias-id144896_ + _rebind?144897_ + _phi144898_ + _ctx144899_) (gx#bind-identifier!__% - _id144965_ - (let ((_key144971_ (gx#core-identifier-key _id144965_))) + _id144895_ + (let ((_key144901_ (gx#core-identifier-key _id144895_))) (##structure gx#alias-binding::t - (gx#make-binding-id__% _key144971_ '#t _phi144968_ _ctx144969_) - _key144971_ - _phi144968_ - _alias-id144966_)) - _rebind?144967_ - _phi144968_ - _ctx144969_))) + (gx#make-binding-id__% _key144901_ '#t _phi144898_ _ctx144899_) + _key144901_ + _phi144898_ + _alias-id144896_)) + _rebind?144897_ + _phi144898_ + _ctx144899_))) (define gx#core-bind-alias!__0 - (lambda (_id144976_ _alias-id144977_) - (let* ((_rebind?144979_ '#f) - (_phi144981_ (gx#current-expander-phi)) - (_ctx144983_ (gx#current-expander-context))) + (lambda (_id144906_ _alias-id144907_) + (let* ((_rebind?144909_ '#f) + (_phi144911_ (gx#current-expander-phi)) + (_ctx144913_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id144976_ - _alias-id144977_ - _rebind?144979_ - _phi144981_ - _ctx144983_)))) + _id144906_ + _alias-id144907_ + _rebind?144909_ + _phi144911_ + _ctx144913_)))) (define gx#core-bind-alias!__1 - (lambda (_id144985_ _alias-id144986_ _rebind?144987_) - (let* ((_phi144989_ (gx#current-expander-phi)) - (_ctx144991_ (gx#current-expander-context))) + (lambda (_id144915_ _alias-id144916_ _rebind?144917_) + (let* ((_phi144919_ (gx#current-expander-phi)) + (_ctx144921_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id144985_ - _alias-id144986_ - _rebind?144987_ - _phi144989_ - _ctx144991_)))) + _id144915_ + _alias-id144916_ + _rebind?144917_ + _phi144919_ + _ctx144921_)))) (define gx#core-bind-alias!__2 - (lambda (_id144993_ _alias-id144994_ _rebind?144995_ _phi144996_) - (let ((_ctx144998_ (gx#current-expander-context))) + (lambda (_id144923_ _alias-id144924_ _rebind?144925_ _phi144926_) + (let ((_ctx144928_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id144993_ - _alias-id144994_ - _rebind?144995_ - _phi144996_ - _ctx144998_)))) + _id144923_ + _alias-id144924_ + _rebind?144925_ + _phi144926_ + _ctx144928_)))) (define gx#core-bind-alias! - (lambda _g152149_ - (let ((_g152148_ (##length _g152149_))) - (cond ((##fx= _g152148_ 2) - (apply (lambda (_id144976_ _alias-id144977_) - (gx#core-bind-alias!__0 _id144976_ _alias-id144977_)) - _g152149_)) - ((##fx= _g152148_ 3) - (apply (lambda (_id144985_ _alias-id144986_ _rebind?144987_) + (lambda _g152079_ + (let ((_g152078_ (##length _g152079_))) + (cond ((##fx= _g152078_ 2) + (apply (lambda (_id144906_ _alias-id144907_) + (gx#core-bind-alias!__0 _id144906_ _alias-id144907_)) + _g152079_)) + ((##fx= _g152078_ 3) + (apply (lambda (_id144915_ _alias-id144916_ _rebind?144917_) (gx#core-bind-alias!__1 - _id144985_ - _alias-id144986_ - _rebind?144987_)) - _g152149_)) - ((##fx= _g152148_ 4) - (apply (lambda (_id144993_ - _alias-id144994_ - _rebind?144995_ - _phi144996_) + _id144915_ + _alias-id144916_ + _rebind?144917_)) + _g152079_)) + ((##fx= _g152078_ 4) + (apply (lambda (_id144923_ + _alias-id144924_ + _rebind?144925_ + _phi144926_) (gx#core-bind-alias!__2 - _id144993_ - _alias-id144994_ - _rebind?144995_ - _phi144996_)) - _g152149_)) - ((##fx= _g152148_ 5) - (apply (lambda (_id145000_ - _alias-id145001_ - _rebind?145002_ - _phi145003_ - _ctx145004_) + _id144923_ + _alias-id144924_ + _rebind?144925_ + _phi144926_)) + _g152079_)) + ((##fx= _g152078_ 5) + (apply (lambda (_id144930_ + _alias-id144931_ + _rebind?144932_ + _phi144933_ + _ctx144934_) (gx#core-bind-alias!__% - _id145000_ - _alias-id145001_ - _rebind?145002_ - _phi145003_ - _ctx145004_)) - _g152149_)) + _id144930_ + _alias-id144931_ + _rebind?144932_ + _phi144933_ + _ctx144934_)) + _g152079_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g152149_)))))) + _g152079_)))))) (define gx#make-binding-id__% - (lambda (_key144922_ _syntax?144923_ _phi144924_ _ctx144925_) - (if (uninterned-symbol? _key144922_) + (lambda (_key144852_ _syntax?144853_ _phi144854_ _ctx144855_) + (if (uninterned-symbol? _key144852_) (gensym 'L) - (if (pair? _key144922_) - (gensym (car _key144922_)) - (if (##structure-instance-of? _ctx144925_ 'gx#top-context::t) - (let ((_ns144927_ - (gx#core-context-namespace__% _ctx144925_))) - (if (and (fxzero? _phi144924_) (not _syntax?144923_)) - (if _ns144927_ - (make-symbol__1 _ns144927_ '"#" _key144922_) - _key144922_) - (if _syntax?144923_ + (if (pair? _key144852_) + (gensym (car _key144852_)) + (if (##structure-instance-of? _ctx144855_ 'gx#top-context::t) + (let ((_ns144857_ + (gx#core-context-namespace__% _ctx144855_))) + (if (and (fxzero? _phi144854_) (not _syntax?144853_)) + (if _ns144857_ + (make-symbol__1 _ns144857_ '"#" _key144852_) + _key144852_) + (if _syntax?144853_ (make-symbol__1 - (let ((_$e144929_ _ns144927_)) - (if _$e144929_ _$e144929_ '"")) + (let ((_$e144859_ _ns144857_)) + (if _$e144859_ _$e144859_ '"")) '"[:" - (number->string _phi144924_) + (number->string _phi144854_) '":]#" - _key144922_) + _key144852_) (make-symbol__1 - (let ((_$e144932_ _ns144927_)) - (if _$e144932_ _$e144932_ '"")) + (let ((_$e144862_ _ns144857_)) + (if _$e144862_ _$e144862_ '"")) '"[" - (number->string _phi144924_) + (number->string _phi144854_) '"]#" - _key144922_)))) - (gensym _key144922_)))))) + _key144852_)))) + (gensym _key144852_)))))) (define gx#make-binding-id__0 - (lambda (_key144938_) - (let* ((_syntax?144940_ '#f) - (_phi144942_ (gx#current-expander-phi)) - (_ctx144944_ (gx#current-expander-context))) + (lambda (_key144868_) + (let* ((_syntax?144870_ '#f) + (_phi144872_ (gx#current-expander-phi)) + (_ctx144874_ (gx#current-expander-context))) (gx#make-binding-id__% - _key144938_ - _syntax?144940_ - _phi144942_ - _ctx144944_)))) + _key144868_ + _syntax?144870_ + _phi144872_ + _ctx144874_)))) (define gx#make-binding-id__1 - (lambda (_key144946_ _syntax?144947_) - (let* ((_phi144949_ (gx#current-expander-phi)) - (_ctx144951_ (gx#current-expander-context))) + (lambda (_key144876_ _syntax?144877_) + (let* ((_phi144879_ (gx#current-expander-phi)) + (_ctx144881_ (gx#current-expander-context))) (gx#make-binding-id__% - _key144946_ - _syntax?144947_ - _phi144949_ - _ctx144951_)))) + _key144876_ + _syntax?144877_ + _phi144879_ + _ctx144881_)))) (define gx#make-binding-id__2 - (lambda (_key144953_ _syntax?144954_ _phi144955_) - (let ((_ctx144957_ (gx#current-expander-context))) + (lambda (_key144883_ _syntax?144884_ _phi144885_) + (let ((_ctx144887_ (gx#current-expander-context))) (gx#make-binding-id__% - _key144953_ - _syntax?144954_ - _phi144955_ - _ctx144957_)))) + _key144883_ + _syntax?144884_ + _phi144885_ + _ctx144887_)))) (define gx#make-binding-id - (lambda _g152151_ - (let ((_g152150_ (##length _g152151_))) - (cond ((##fx= _g152150_ 1) - (apply (lambda (_key144938_) - (gx#make-binding-id__0 _key144938_)) - _g152151_)) - ((##fx= _g152150_ 2) - (apply (lambda (_key144946_ _syntax?144947_) - (gx#make-binding-id__1 _key144946_ _syntax?144947_)) - _g152151_)) - ((##fx= _g152150_ 3) - (apply (lambda (_key144953_ _syntax?144954_ _phi144955_) + (lambda _g152081_ + (let ((_g152080_ (##length _g152081_))) + (cond ((##fx= _g152080_ 1) + (apply (lambda (_key144868_) + (gx#make-binding-id__0 _key144868_)) + _g152081_)) + ((##fx= _g152080_ 2) + (apply (lambda (_key144876_ _syntax?144877_) + (gx#make-binding-id__1 _key144876_ _syntax?144877_)) + _g152081_)) + ((##fx= _g152080_ 3) + (apply (lambda (_key144883_ _syntax?144884_ _phi144885_) (gx#make-binding-id__2 - _key144953_ - _syntax?144954_ - _phi144955_)) - _g152151_)) - ((##fx= _g152150_ 4) - (apply (lambda (_key144959_ - _syntax?144960_ - _phi144961_ - _ctx144962_) + _key144883_ + _syntax?144884_ + _phi144885_)) + _g152081_)) + ((##fx= _g152080_ 4) + (apply (lambda (_key144889_ + _syntax?144890_ + _phi144891_ + _ctx144892_) (gx#make-binding-id__% - _key144959_ - _syntax?144960_ - _phi144961_ - _ctx144962_)) - _g152151_)) + _key144889_ + _syntax?144890_ + _phi144891_ + _ctx144892_)) + _g152081_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g152151_)))))))) + _g152081_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3__0.scm b/src/bootstrap/gerbil/runtime/c3__0.scm index 088b281e5..54f274968 100644 --- a/src/bootstrap/gerbil/runtime/c3__0.scm +++ b/src/bootstrap/gerbil/runtime/c3__0.scm @@ -1,339 +1,339 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1707423038) + (define gerbil/runtime/c3::timestamp 1707565658) (begin (define c3-linearize__% - (lambda (_rhead76951_ - _supers76952_ - _get-precedence-list76953_ - _eqpred76954_ - _get-name76955_) - (let ((_tails76957_ (map _get-precedence-list76953_ _supers76952_))) - (let () (declare (not safe)) (append1! _tails76957_ _supers76952_)) + (lambda (_rhead76956_ + _supers76957_ + _get-precedence-list76958_ + _eqpred76959_ + _get-name76960_) + (let ((_tails76962_ (map _get-precedence-list76958_ _supers76957_))) + (let () (declare (not safe)) (append1! _tails76962_ _supers76957_)) (let () (declare (not safe)) (c3-linearize-loop__% - _rhead76951_ - _tails76957_ - _eqpred76954_ - _get-name76955_))))) + _rhead76956_ + _tails76962_ + _eqpred76959_ + _get-name76960_))))) (define c3-linearize__0 - (lambda (_rhead76962_ _supers76963_ _get-precedence-list76964_) - (let* ((_eqpred76966_ eq?) (_get-name76968_ identity)) + (lambda (_rhead76967_ _supers76968_ _get-precedence-list76969_) + (let* ((_eqpred76971_ eq?) (_get-name76973_ identity)) (declare (not safe)) (c3-linearize__% - _rhead76962_ - _supers76963_ - _get-precedence-list76964_ - _eqpred76966_ - _get-name76968_)))) + _rhead76967_ + _supers76968_ + _get-precedence-list76969_ + _eqpred76971_ + _get-name76973_)))) (define c3-linearize__1 - (lambda (_rhead76970_ - _supers76971_ - _get-precedence-list76972_ - _eqpred76973_) - (let ((_get-name76975_ identity)) + (lambda (_rhead76975_ + _supers76976_ + _get-precedence-list76977_ + _eqpred76978_) + (let ((_get-name76980_ identity)) (declare (not safe)) (c3-linearize__% - _rhead76970_ - _supers76971_ - _get-precedence-list76972_ - _eqpred76973_ - _get-name76975_)))) + _rhead76975_ + _supers76976_ + _get-precedence-list76977_ + _eqpred76978_ + _get-name76980_)))) (define c3-linearize - (lambda _g81197_ - (let ((_g81196_ (let () (declare (not safe)) (##length _g81197_)))) - (cond ((let () (declare (not safe)) (##fx= _g81196_ 3)) - (apply (lambda (_rhead76962_ - _supers76963_ - _get-precedence-list76964_) + (lambda _g81202_ + (let ((_g81201_ (let () (declare (not safe)) (##length _g81202_)))) + (cond ((let () (declare (not safe)) (##fx= _g81201_ 3)) + (apply (lambda (_rhead76967_ + _supers76968_ + _get-precedence-list76969_) (let () (declare (not safe)) (c3-linearize__0 - _rhead76962_ - _supers76963_ - _get-precedence-list76964_))) - _g81197_)) - ((let () (declare (not safe)) (##fx= _g81196_ 4)) - (apply (lambda (_rhead76970_ - _supers76971_ - _get-precedence-list76972_ - _eqpred76973_) + _rhead76967_ + _supers76968_ + _get-precedence-list76969_))) + _g81202_)) + ((let () (declare (not safe)) (##fx= _g81201_ 4)) + (apply (lambda (_rhead76975_ + _supers76976_ + _get-precedence-list76977_ + _eqpred76978_) (let () (declare (not safe)) (c3-linearize__1 - _rhead76970_ - _supers76971_ - _get-precedence-list76972_ - _eqpred76973_))) - _g81197_)) - ((let () (declare (not safe)) (##fx= _g81196_ 5)) - (apply (lambda (_rhead76977_ - _supers76978_ - _get-precedence-list76979_ - _eqpred76980_ - _get-name76981_) + _rhead76975_ + _supers76976_ + _get-precedence-list76977_ + _eqpred76978_))) + _g81202_)) + ((let () (declare (not safe)) (##fx= _g81201_ 5)) + (apply (lambda (_rhead76982_ + _supers76983_ + _get-precedence-list76984_ + _eqpred76985_ + _get-name76986_) (let () (declare (not safe)) (c3-linearize__% - _rhead76977_ - _supers76978_ - _get-precedence-list76979_ - _eqpred76980_ - _get-name76981_))) - _g81197_)) + _rhead76982_ + _supers76983_ + _get-precedence-list76984_ + _eqpred76985_ + _get-name76986_))) + _g81202_)) (else (##raise-wrong-number-of-arguments-exception c3-linearize - _g81197_)))))) + _g81202_)))))) (define c3-linearize-loop__% - (lambda (_rhead76867_ _tails76868_ _eqpred76869_ _get-name76870_) - (let _loop76872_ ((_rhead76874_ _rhead76867_) - (_tails76875_ _tails76868_)) - (let* ((_tails76877_ - (let () (declare (not safe)) (remove-nulls! _tails76875_))) - (_tails7687876888_ _tails76877_) - (_else7688176906_ + (lambda (_rhead76872_ _tails76873_ _eqpred76874_ _get-name76875_) + (let _loop76877_ ((_rhead76879_ _rhead76872_) + (_tails76880_ _tails76873_)) + (let* ((_tails76882_ + (let () (declare (not safe)) (remove-nulls! _tails76880_))) + (_tails7688376893_ _tails76882_) + (_else7688676911_ (lambda () - (let* ((_err76901_ + (let* ((_err76906_ (lambda () (error '"Inconsistent precedence graph" 'head: - (map _get-name76870_ - (reverse _rhead76874_)) + (map _get-name76875_ + (reverse _rhead76879_)) 'tails: - (map (lambda (_g7689676898_) - (map _get-name76870_ - _g7689676898_)) - _tails76877_)))) - (_next76903_ + (map (lambda (_g7690176903_) + (map _get-name76875_ + _g7690176903_)) + _tails76882_)))) + (_next76908_ (let () (declare (not safe)) (c3-select-next - _tails76877_ - _eqpred76869_ - _err76901_)))) - (let ((__tmp81199 + _tails76882_ + _eqpred76874_ + _err76906_)))) + (let ((__tmp81204 (let () (declare (not safe)) - (cons _next76903_ _rhead76874_))) - (__tmp81198 + (cons _next76908_ _rhead76879_))) + (__tmp81203 (let () (declare (not safe)) (remove-next!__% - _next76903_ - _tails76877_ - _eqpred76869_)))) + _next76908_ + _tails76882_ + _eqpred76874_)))) (declare (not safe)) - (_loop76872_ __tmp81199 __tmp81198)))))) - (let ((_K7688676926_ (lambda () (reverse _rhead76874_))) - (_K7688376912_ - (lambda (_tail76910_) + (_loop76877_ __tmp81204 __tmp81203)))))) + (let ((_K7689176931_ (lambda () (reverse _rhead76879_))) + (_K7688876917_ + (lambda (_tail76915_) (let () (declare (not safe)) - (append-reverse _rhead76874_ _tail76910_))))) - (let ((_try-match7688076922_ + (append-reverse _rhead76879_ _tail76915_))))) + (let ((_try-match7688576927_ (lambda () (if (let () (declare (not safe)) - (##pair? _tails7687876888_)) - (let ((_tl7688576917_ + (##pair? _tails7688376893_)) + (let ((_tl7689076922_ (let () (declare (not safe)) - (##cdr _tails7687876888_))) - (_hd7688476915_ + (##cdr _tails7688376893_))) + (_hd7688976920_ (let () (declare (not safe)) - (##car _tails7687876888_)))) + (##car _tails7688376893_)))) (if (let () (declare (not safe)) - (##null? _tl7688576917_)) - (let ((_tail76920_ _hd7688476915_)) + (##null? _tl7689076922_)) + (let ((_tail76925_ _hd7688976920_)) (declare (not safe)) - (_K7688376912_ _tail76920_)) + (_K7688876917_ _tail76925_)) (let () (declare (not safe)) - (_else7688176906_)))) - (let () (declare (not safe)) (_else7688176906_)))))) - (if (let () (declare (not safe)) (##null? _tails7687876888_)) - (let () (declare (not safe)) (_K7688676926_)) + (_else7688676911_)))) + (let () (declare (not safe)) (_else7688676911_)))))) + (if (let () (declare (not safe)) (##null? _tails7688376893_)) + (let () (declare (not safe)) (_K7689176931_)) (let () (declare (not safe)) - (_try-match7688076922_))))))))) + (_try-match7688576927_))))))))) (define c3-linearize-loop__0 - (lambda (_rhead76932_ _tails76933_) - (let* ((_eqpred76935_ eq?) (_get-name76937_ identity)) + (lambda (_rhead76937_ _tails76938_) + (let* ((_eqpred76940_ eq?) (_get-name76942_ identity)) (declare (not safe)) (c3-linearize-loop__% - _rhead76932_ - _tails76933_ - _eqpred76935_ - _get-name76937_)))) + _rhead76937_ + _tails76938_ + _eqpred76940_ + _get-name76942_)))) (define c3-linearize-loop__1 - (lambda (_rhead76939_ _tails76940_ _eqpred76941_) - (let ((_get-name76943_ identity)) + (lambda (_rhead76944_ _tails76945_ _eqpred76946_) + (let ((_get-name76948_ identity)) (declare (not safe)) (c3-linearize-loop__% - _rhead76939_ - _tails76940_ - _eqpred76941_ - _get-name76943_)))) + _rhead76944_ + _tails76945_ + _eqpred76946_ + _get-name76948_)))) (define c3-linearize-loop - (lambda _g81201_ - (let ((_g81200_ (let () (declare (not safe)) (##length _g81201_)))) - (cond ((let () (declare (not safe)) (##fx= _g81200_ 2)) - (apply (lambda (_rhead76932_ _tails76933_) + (lambda _g81206_ + (let ((_g81205_ (let () (declare (not safe)) (##length _g81206_)))) + (cond ((let () (declare (not safe)) (##fx= _g81205_ 2)) + (apply (lambda (_rhead76937_ _tails76938_) (let () (declare (not safe)) - (c3-linearize-loop__0 _rhead76932_ _tails76933_))) - _g81201_)) - ((let () (declare (not safe)) (##fx= _g81200_ 3)) - (apply (lambda (_rhead76939_ _tails76940_ _eqpred76941_) + (c3-linearize-loop__0 _rhead76937_ _tails76938_))) + _g81206_)) + ((let () (declare (not safe)) (##fx= _g81205_ 3)) + (apply (lambda (_rhead76944_ _tails76945_ _eqpred76946_) (let () (declare (not safe)) (c3-linearize-loop__1 - _rhead76939_ - _tails76940_ - _eqpred76941_))) - _g81201_)) - ((let () (declare (not safe)) (##fx= _g81200_ 4)) - (apply (lambda (_rhead76945_ - _tails76946_ - _eqpred76947_ - _get-name76948_) + _rhead76944_ + _tails76945_ + _eqpred76946_))) + _g81206_)) + ((let () (declare (not safe)) (##fx= _g81205_ 4)) + (apply (lambda (_rhead76950_ + _tails76951_ + _eqpred76952_ + _get-name76953_) (let () (declare (not safe)) (c3-linearize-loop__% - _rhead76945_ - _tails76946_ - _eqpred76947_ - _get-name76948_))) - _g81201_)) + _rhead76950_ + _tails76951_ + _eqpred76952_ + _get-name76953_))) + _g81206_)) (else (##raise-wrong-number-of-arguments-exception c3-linearize-loop - _g81201_)))))) + _g81206_)))))) (define c3-select-next - (lambda (_tails76814_ _eqpred76815_ _err76816_) - (let ((_candidate?76822_ - (lambda (_c76818_) - (let ((__tmp81202 - (lambda (_tail76820_) - (let ((__tmp81203 - (member _c76818_ - (cdr _tail76820_) - _eqpred76815_))) + (lambda (_tails76819_ _eqpred76820_ _err76821_) + (let ((_candidate?76827_ + (lambda (_c76823_) + (let ((__tmp81207 + (lambda (_tail76825_) + (let ((__tmp81208 + (member _c76823_ + (cdr _tail76825_) + _eqpred76820_))) (declare (not safe)) - (not __tmp81203))))) + (not __tmp81208))))) (declare (not safe)) - (andmap1 __tmp81202 _tails76814_))))) - (let _loop76824_ ((_ts76826_ _tails76814_)) - (let* ((_ts7682776837_ _ts76826_) - (_else7682976845_ (lambda () (_err76816_))) - (_K7683176851_ - (lambda (_rts76848_ _c76849_) + (andmap1 __tmp81207 _tails76819_))))) + (let _loop76829_ ((_ts76831_ _tails76819_)) + (let* ((_ts7683276842_ _ts76831_) + (_else7683476850_ (lambda () (_err76821_))) + (_K7683676856_ + (lambda (_rts76853_ _c76854_) (if (let () (declare (not safe)) - (_candidate?76822_ _c76849_)) - _c76849_ + (_candidate?76827_ _c76854_)) + _c76854_ (let () (declare (not safe)) - (_loop76824_ _rts76848_)))))) - (if (let () (declare (not safe)) (##pair? _ts7682776837_)) - (let ((_hd7683276854_ - (let () (declare (not safe)) (##car _ts7682776837_))) - (_tl7683376856_ - (let () (declare (not safe)) (##cdr _ts7682776837_)))) - (if (let () (declare (not safe)) (##pair? _hd7683276854_)) - (let* ((_hd7683476859_ + (_loop76829_ _rts76853_)))))) + (if (let () (declare (not safe)) (##pair? _ts7683276842_)) + (let ((_hd7683776859_ + (let () (declare (not safe)) (##car _ts7683276842_))) + (_tl7683876861_ + (let () (declare (not safe)) (##cdr _ts7683276842_)))) + (if (let () (declare (not safe)) (##pair? _hd7683776859_)) + (let* ((_hd7683976864_ (let () (declare (not safe)) - (##car _hd7683276854_))) - (_c76862_ _hd7683476859_) - (_rts76864_ _tl7683376856_)) + (##car _hd7683776859_))) + (_c76867_ _hd7683976864_) + (_rts76869_ _tl7683876861_)) (declare (not safe)) - (_K7683176851_ _rts76864_ _c76862_)) - (let () (declare (not safe)) (_err76816_)))) - (let () (declare (not safe)) (_err76816_)))))))) + (_K7683676856_ _rts76869_ _c76867_)) + (let () (declare (not safe)) (_err76821_)))) + (let () (declare (not safe)) (_err76821_)))))))) (define remove-next!__% - (lambda (_next76746_ _tails76747_ _eqpred76748_) - (let _loop76750_ ((_t76752_ _tails76747_)) - (let* ((_t7675376764_ _t76752_) - (_E7675676768_ - (lambda () (error '"No clause matching" _t7675376764_)))) - (let ((_K7676276799_ (lambda () _tails76747_)) - (_K7675776776_ - (lambda (_more76772_ _tail76773_ _head76774_) - (if (_eqpred76748_ _head76774_ _next76746_) - (set-car! _t76752_ _tail76773_) + (lambda (_next76751_ _tails76752_ _eqpred76753_) + (let _loop76755_ ((_t76757_ _tails76752_)) + (let* ((_t7675876769_ _t76757_) + (_E7676176773_ + (lambda () (error '"No clause matching" _t7675876769_)))) + (let ((_K7676776804_ (lambda () _tails76752_)) + (_K7676276781_ + (lambda (_more76777_ _tail76778_ _head76779_) + (if (_eqpred76753_ _head76779_ _next76751_) + (set-car! _t76757_ _tail76778_) '#!void) - (let () (declare (not safe)) (_loop76750_ _more76772_))))) - (let ((_try-match7675576795_ + (let () (declare (not safe)) (_loop76755_ _more76777_))))) + (let ((_try-match7676076800_ (lambda () (if (let () (declare (not safe)) - (##pair? _t7675376764_)) - (let ((_tl7675976781_ + (##pair? _t7675876769_)) + (let ((_tl7676476786_ (let () (declare (not safe)) - (##cdr _t7675376764_))) - (_hd7675876779_ + (##cdr _t7675876769_))) + (_hd7676376784_ (let () (declare (not safe)) - (##car _t7675376764_)))) + (##car _t7675876769_)))) (if (let () (declare (not safe)) - (##pair? _hd7675876779_)) - (let ((_tl7676176786_ + (##pair? _hd7676376784_)) + (let ((_tl7676676791_ (let () (declare (not safe)) - (##cdr _hd7675876779_))) - (_hd7676076784_ + (##cdr _hd7676376784_))) + (_hd7676576789_ (let () (declare (not safe)) - (##car _hd7675876779_)))) - (let ((_head76789_ _hd7676076784_) - (_tail76791_ _tl7676176786_) - (_more76793_ _tl7675976781_)) + (##car _hd7676376784_)))) + (let ((_head76794_ _hd7676576789_) + (_tail76796_ _tl7676676791_) + (_more76798_ _tl7676476786_)) (let () (declare (not safe)) - (_K7675776776_ - _more76793_ - _tail76791_ - _head76789_)))) + (_K7676276781_ + _more76798_ + _tail76796_ + _head76794_)))) (let () (declare (not safe)) - (_E7675676768_)))) - (let () (declare (not safe)) (_E7675676768_)))))) - (if (let () (declare (not safe)) (##null? _t7675376764_)) - (let () (declare (not safe)) (_K7676276799_)) + (_E7676176773_)))) + (let () (declare (not safe)) (_E7676176773_)))))) + (if (let () (declare (not safe)) (##null? _t7675876769_)) + (let () (declare (not safe)) (_K7676776804_)) (let () (declare (not safe)) - (_try-match7675576795_))))))))) + (_try-match7676076800_))))))))) (define remove-next!__0 - (lambda (_next76805_ _tails76806_) - (let ((_eqpred76808_ eq?)) + (lambda (_next76810_ _tails76811_) + (let ((_eqpred76813_ eq?)) (declare (not safe)) - (remove-next!__% _next76805_ _tails76806_ _eqpred76808_)))) + (remove-next!__% _next76810_ _tails76811_ _eqpred76813_)))) (define remove-next! - (lambda _g81205_ - (let ((_g81204_ (let () (declare (not safe)) (##length _g81205_)))) - (cond ((let () (declare (not safe)) (##fx= _g81204_ 2)) - (apply (lambda (_next76805_ _tails76806_) + (lambda _g81210_ + (let ((_g81209_ (let () (declare (not safe)) (##length _g81210_)))) + (cond ((let () (declare (not safe)) (##fx= _g81209_ 2)) + (apply (lambda (_next76810_ _tails76811_) (let () (declare (not safe)) - (remove-next!__0 _next76805_ _tails76806_))) - _g81205_)) - ((let () (declare (not safe)) (##fx= _g81204_ 3)) - (apply (lambda (_next76810_ _tails76811_ _eqpred76812_) + (remove-next!__0 _next76810_ _tails76811_))) + _g81210_)) + ((let () (declare (not safe)) (##fx= _g81209_ 3)) + (apply (lambda (_next76815_ _tails76816_ _eqpred76817_) (let () (declare (not safe)) (remove-next!__% - _next76810_ - _tails76811_ - _eqpred76812_))) - _g81205_)) + _next76815_ + _tails76816_ + _eqpred76817_))) + _g81210_)) (else (##raise-wrong-number-of-arguments-exception remove-next! - _g81205_)))))))) + _g81210_)))))))) diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index bc8ed1ab3..bf02d71c3 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 1707423038) + (define gerbil/runtime/control::timestamp 1707565658) (begin (define make-promise - (lambda (_thunk63851_) - (let () (declare (not safe)) (##make-delay-promise _thunk63851_)))) + (lambda (_thunk63856_) + (let () (declare (not safe)) (##make-delay-promise _thunk63856_)))) (define call-with-parameters - (lambda (_thunk63799_ . _rest63800_) - (let* ((_rest6380163812_ _rest63800_) - (_E6380463816_ - (lambda () (error '"No clause matching" _rest6380163812_)))) - (let ((_K6380663832_ - (lambda (_rest63827_ _val63828_ _param63829_) - (let ((__tmp76735 - (if (let () (declare (not safe)) (null? _rest63827_)) - _thunk63799_ + (lambda (_thunk63804_ . _rest63805_) + (let* ((_rest6380663817_ _rest63805_) + (_E6380963821_ + (lambda () (error '"No clause matching" _rest6380663817_)))) + (let ((_K6381163837_ + (lambda (_rest63832_ _val63833_ _param63834_) + (let ((__tmp76740 + (if (let () (declare (not safe)) (null? _rest63832_)) + _thunk63804_ (lambda () (apply call-with-parameters - _thunk63799_ - _rest63827_))))) + _thunk63804_ + _rest63832_))))) (declare (not safe)) - (##parameterize1 _param63829_ _val63828_ __tmp76735)))) - (_K6380563821_ (lambda () (_thunk63799_)))) - (let ((_try-match6380363824_ + (##parameterize1 _param63834_ _val63833_ __tmp76740)))) + (_K6381063826_ (lambda () (_thunk63804_)))) + (let ((_try-match6380863829_ (lambda () (if (let () (declare (not safe)) - (##null? _rest6380163812_)) - (let () (declare (not safe)) (_thunk63799_)) - (let () (declare (not safe)) (_E6380463816_)))))) - (if (let () (declare (not safe)) (##pair? _rest6380163812_)) - (let ((_tl6380863837_ + (##null? _rest6380663817_)) + (let () (declare (not safe)) (_thunk63804_)) + (let () (declare (not safe)) (_E6380963821_)))))) + (if (let () (declare (not safe)) (##pair? _rest6380663817_)) + (let ((_tl6381363842_ (let () (declare (not safe)) - (##cdr _rest6380163812_))) - (_hd6380763835_ + (##cdr _rest6380663817_))) + (_hd6381263840_ (let () (declare (not safe)) - (##car _rest6380163812_)))) - (if (let () (declare (not safe)) (##pair? _tl6380863837_)) - (let ((_tl6381063844_ + (##car _rest6380663817_)))) + (if (let () (declare (not safe)) (##pair? _tl6381363842_)) + (let ((_tl6381563849_ (let () (declare (not safe)) - (##cdr _tl6380863837_))) - (_hd6380963842_ + (##cdr _tl6381363842_))) + (_hd6381463847_ (let () (declare (not safe)) - (##car _tl6380863837_)))) - (let ((_param63840_ _hd6380763835_) - (_val63847_ _hd6380963842_) - (_rest63849_ _tl6381063844_)) + (##car _tl6381363842_)))) + (let ((_param63845_ _hd6381263840_) + (_val63852_ _hd6381463847_) + (_rest63854_ _tl6381563849_)) (let () (declare (not safe)) - (_K6380663832_ - _rest63849_ - _val63847_ - _param63840_)))) - (let () (declare (not safe)) (_E6380463816_)))) - (let () (declare (not safe)) (_try-match6380363824_)))))))) + (_K6381163837_ + _rest63854_ + _val63852_ + _param63845_)))) + (let () (declare (not safe)) (_E6380963821_)))) + (let () (declare (not safe)) (_try-match6380863829_)))))))) (define with-unwind-protect - (lambda (_K63792_ _fini63793_) - (let ((_once63795_ '#f)) + (lambda (_K63797_ _fini63798_) + (let ((_once63800_ '#f)) (dynamic-wind (lambda () (declare (not interrupts-enabled)) - (if _once63795_ + (if _once63800_ (error '"Cannot re-enter unwind protected block") - (set! _once63795_ '#t))) - _K63792_ - _fini63793_)))) + (set! _once63800_ '#t))) + _K63797_ + _fini63798_)))) (define keyword-dispatch - (lambda (_kwt63689_ _K63690_ . _all-args63691_) - (if _kwt63689_ - (if (let () (declare (not safe)) (vector? _kwt63689_)) + (lambda (_kwt63694_ _K63695_ . _all-args63696_) + (if _kwt63694_ + (if (let () (declare (not safe)) (vector? _kwt63694_)) '#!void - (error '"expected vector" _kwt63689_)) + (error '"expected vector" _kwt63694_)) '#!void) - (if (let () (declare (not safe)) (procedure? _K63690_)) + (if (let () (declare (not safe)) (procedure? _K63695_)) '#!void - (error '"expected procedure" _K63690_)) - (let ((_keys63693_ + (error '"expected procedure" _K63695_)) + (let ((_keys63698_ (let () (declare (not safe)) (make-table 'test: eq? 'hash: keyword-hash)))) - (let _lp63695_ ((_rest63697_ _all-args63691_) - (_args63698_ '#f) - (_tail63699_ '#f)) - (let* ((_rest6370063708_ _rest63697_) - (_else6370263716_ + (let _lp63700_ ((_rest63702_ _all-args63696_) + (_args63703_ '#f) + (_tail63704_ '#f)) + (let* ((_rest6370563713_ _rest63702_) + (_else6370763721_ (lambda () - (if _args63698_ + (if _args63703_ (begin (let () (declare (not safe)) - (##set-cdr! _tail63699_ '())) - (let ((__tmp76736 + (##set-cdr! _tail63704_ '())) + (let ((__tmp76741 (let () (declare (not safe)) - (cons _keys63693_ _args63698_)))) + (cons _keys63698_ _args63703_)))) (declare (not safe)) - (##apply _K63690_ __tmp76736))) - (_K63690_ _keys63693_)))) - (_K6370463780_ - (lambda (_hd-rest63719_ _hd63720_) - (if (keyword? _hd63720_) - (let* ((_hd-rest6372163728_ _hd-rest63719_) - (_E6372363732_ + (##apply _K63695_ __tmp76741))) + (_K63695_ _keys63698_)))) + (_K6370963785_ + (lambda (_hd-rest63724_ _hd63725_) + (if (keyword? _hd63725_) + (let* ((_hd-rest6372663733_ _hd-rest63724_) + (_E6372863737_ (lambda () (error '"No clause matching" - _hd-rest6372163728_))) - (_K6372463740_ - (lambda (_rest63735_ _val63736_) - (if _kwt63689_ - (let ((_pos63738_ - (let ((__tmp76740 - (keyword-hash _hd63720_)) - (__tmp76739 + _hd-rest6372663733_))) + (_K6372963745_ + (lambda (_rest63740_ _val63741_) + (if _kwt63694_ + (let ((_pos63743_ + (let ((__tmp76745 + (keyword-hash _hd63725_)) + (__tmp76744 (let () (declare (not safe)) (##vector-length - _kwt63689_)))) + _kwt63694_)))) (declare (not safe)) (##fxmodulo - __tmp76740 - __tmp76739)))) - (if (let ((__tmp76741 + __tmp76745 + __tmp76744)))) + (if (let ((__tmp76746 (let () (declare (not safe)) (##vector-ref - _kwt63689_ - _pos63738_)))) + _kwt63694_ + _pos63743_)))) (declare (not safe)) - (eq? _hd63720_ __tmp76741)) + (eq? _hd63725_ __tmp76746)) '#!void (error '"Unexpected keyword argument" - _K63690_ - _hd63720_))) + _K63695_ + _hd63725_))) '#!void) (if (let () (declare (not safe)) - (hash-key? _keys63693_ _hd63720_)) + (hash-key? _keys63698_ _hd63725_)) (error '"Duplicate keyword argument" - _K63690_ - _hd63720_) + _K63695_ + _hd63725_) '#!void) (let () (declare (not safe)) (table-set! - _keys63693_ - _hd63720_ - _val63736_)) + _keys63698_ + _hd63725_ + _val63741_)) (let () (declare (not safe)) - (_lp63695_ - _rest63735_ - _args63698_ - _tail63699_))))) + (_lp63700_ + _rest63740_ + _args63703_ + _tail63704_))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6372163728_)) - (let ((_hd6372563743_ + (##pair? _hd-rest6372663733_)) + (let ((_hd6373063748_ (let () (declare (not safe)) - (##car _hd-rest6372163728_))) - (_tl6372663745_ + (##car _hd-rest6372663733_))) + (_tl6373163750_ (let () (declare (not safe)) - (##cdr _hd-rest6372163728_)))) - (let* ((_val63748_ _hd6372563743_) - (_rest63750_ _tl6372663745_)) + (##cdr _hd-rest6372663733_)))) + (let* ((_val63753_ _hd6373063748_) + (_rest63755_ _tl6373163750_)) (declare (not safe)) - (_K6372463740_ _rest63750_ _val63748_))) - (let () (declare (not safe)) (_E6372363732_)))) + (_K6372963745_ _rest63755_ _val63753_))) + (let () (declare (not safe)) (_E6372863737_)))) (if (let () (declare (not safe)) - (eq? _hd63720_ '#!key)) - (let* ((_hd-rest6375163758_ _hd-rest63719_) - (_E6375363762_ + (eq? _hd63725_ '#!key)) + (let* ((_hd-rest6375663763_ _hd-rest63724_) + (_E6375863767_ (lambda () (error '"No clause matching" - _hd-rest6375163758_))) - (_K6375463768_ - (lambda (_rest63765_ _val63766_) - (if _args63698_ + _hd-rest6375663763_))) + (_K6375963773_ + (lambda (_rest63770_ _val63771_) + (if _args63703_ (begin (let () (declare (not safe)) (##set-cdr! - _tail63699_ - _hd-rest63719_)) + _tail63704_ + _hd-rest63724_)) (let () (declare (not safe)) - (_lp63695_ - _rest63765_ - _args63698_ - _hd-rest63719_))) + (_lp63700_ + _rest63770_ + _args63703_ + _hd-rest63724_))) (let () (declare (not safe)) - (_lp63695_ - _rest63765_ - _hd-rest63719_ - _hd-rest63719_)))))) + (_lp63700_ + _rest63770_ + _hd-rest63724_ + _hd-rest63724_)))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6375163758_)) - (let ((_hd6375563771_ + (##pair? _hd-rest6375663763_)) + (let ((_hd6376063776_ (let () (declare (not safe)) - (##car _hd-rest6375163758_))) - (_tl6375663773_ + (##car _hd-rest6375663763_))) + (_tl6376163778_ (let () (declare (not safe)) - (##cdr _hd-rest6375163758_)))) - (let* ((_val63776_ _hd6375563771_) - (_rest63778_ _tl6375663773_)) + (##cdr _hd-rest6375663763_)))) + (let* ((_val63781_ _hd6376063776_) + (_rest63783_ _tl6376163778_)) (declare (not safe)) - (_K6375463768_ - _rest63778_ - _val63776_))) + (_K6375963773_ + _rest63783_ + _val63781_))) (let () (declare (not safe)) - (_E6375363762_)))) + (_E6375863767_)))) (if (let () (declare (not safe)) - (eq? _hd63720_ '#!rest)) - (if _args63698_ + (eq? _hd63725_ '#!rest)) + (if _args63703_ (begin (let () (declare (not safe)) (##set-cdr! - _tail63699_ - _hd-rest63719_)) - (let ((__tmp76738 + _tail63704_ + _hd-rest63724_)) + (let ((__tmp76743 (let () (declare (not safe)) - (cons _keys63693_ - _args63698_)))) + (cons _keys63698_ + _args63703_)))) (declare (not safe)) - (##apply _K63690_ __tmp76738))) - (let ((__tmp76737 + (##apply _K63695_ __tmp76743))) + (let ((__tmp76742 (let () (declare (not safe)) - (cons _keys63693_ - _hd-rest63719_)))) + (cons _keys63698_ + _hd-rest63724_)))) (declare (not safe)) - (##apply _K63690_ __tmp76737))) - (if _args63698_ + (##apply _K63695_ __tmp76742))) + (if _args63703_ (begin (let () (declare (not safe)) - (##set-cdr! _tail63699_ _rest63697_)) + (##set-cdr! _tail63704_ _rest63702_)) (let () (declare (not safe)) - (_lp63695_ - _hd-rest63719_ - _args63698_ - _rest63697_))) + (_lp63700_ + _hd-rest63724_ + _args63703_ + _rest63702_))) (let () (declare (not safe)) - (_lp63695_ - _hd-rest63719_ - _rest63697_ - _rest63697_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6370063708_)) - (let ((_hd6370563783_ + (_lp63700_ + _hd-rest63724_ + _rest63702_ + _rest63702_))))))))) + (if (let () (declare (not safe)) (##pair? _rest6370563713_)) + (let ((_hd6371063788_ (let () (declare (not safe)) - (##car _rest6370063708_))) - (_tl6370663785_ + (##car _rest6370563713_))) + (_tl6371163790_ (let () (declare (not safe)) - (##cdr _rest6370063708_)))) - (let* ((_hd63788_ _hd6370563783_) - (_hd-rest63790_ _tl6370663785_)) + (##cdr _rest6370563713_)))) + (let* ((_hd63793_ _hd6371063788_) + (_hd-rest63795_ _tl6371163790_)) (declare (not safe)) - (_K6370463780_ _hd-rest63790_ _hd63788_))) - (let () (declare (not safe)) (_else6370263716_)))))))) + (_K6370963785_ _hd-rest63795_ _hd63793_))) + (let () (declare (not safe)) (_else6370763721_)))))))) (define keyword-rest - (lambda (_kwt63680_ . _drop63681_) + (lambda (_kwt63685_ . _drop63686_) (for-each - (lambda (_kw63683_) - (let () (declare (not safe)) (table-set! _kwt63680_ _kw63683_))) - _drop63681_) - (let ((__tmp76742 - (lambda (_k63685_ _v63686_ _r63687_) - (let ((__tmp76743 + (lambda (_kw63688_) + (let () (declare (not safe)) (table-set! _kwt63685_ _kw63688_))) + _drop63686_) + (let ((__tmp76747 + (lambda (_k63690_ _v63691_ _r63692_) + (let ((__tmp76748 (let () (declare (not safe)) - (cons _v63686_ _r63687_)))) + (cons _v63691_ _r63692_)))) (declare (not safe)) - (cons _k63685_ __tmp76743))))) + (cons _k63690_ __tmp76748))))) (declare (not safe)) - (hash-fold __tmp76742 '() _kwt63680_)))))) + (hash-fold __tmp76747 '() _kwt63685_)))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssxi.ss b/src/bootstrap/gerbil/runtime/error.ssxi.ss index 67ca5e8aa..639c25cf7 100644 --- a/src/bootstrap/gerbil/runtime/error.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/error.ssxi.ss @@ -42,8 +42,8 @@ package: gerbil/runtime :init! #f #f - ((:init! . Error:::init!) - (display-exception . Error::display-exception)))) + ((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)) diff --git a/src/bootstrap/gerbil/runtime/error__0.scm b/src/bootstrap/gerbil/runtime/error__0.scm index e9f066101..dfa99a06d 100644 --- a/src/bootstrap/gerbil/runtime/error__0.scm +++ b/src/bootstrap/gerbil/runtime/error__0.scm @@ -1,37 +1,37 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1707423038) + (define gerbil/runtime/error::timestamp 1707565658) (begin (define Exception::t - (let ((__tmp92745 (list))) + (let ((__tmp92675 (list))) (declare (not safe)) - (make-class-type* + (make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp92745 + __tmp92675 '() '() '#f))) (define Exception? (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args88522_ - (apply make-class-instance Exception::t _$args88522_))) + (lambda _$args88452_ + (apply make-class-instance Exception::t _$args88452_))) (define StackTrace::t - (let ((__tmp92746 (list))) + (let ((__tmp92676 (list))) (declare (not safe)) - (make-class-type* + (make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp92746 + __tmp92676 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _$args88519_ - (apply make-class-instance StackTrace::t _$args88519_))) + (lambda _$args88449_ + (apply make-class-instance StackTrace::t _$args88449_))) (define StackTrace-continuation (let () (declare (not safe)) @@ -49,19 +49,19 @@ (declare (not safe)) (make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (let ((__tmp92747 (list StackTrace::t Exception::t))) + (let ((__tmp92677 (list StackTrace::t Exception::t))) (declare (not safe)) - (make-class-type* + (make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp92747 + __tmp92677 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (make-class-predicate Error::t))) (define make-Error - (lambda _$args88516_ (apply make-class-instance Error::t _$args88516_))) + (lambda _$args88446_ (apply make-class-instance Error::t _$args88446_))) (define Error-message (let () (declare (not safe)) @@ -123,20 +123,20 @@ (declare (not safe)) (make-class-slot-unchecked-mutator Error::t 'continuation))) (define RuntimeException::t - (let ((__tmp92748 (list StackTrace::t Exception::t))) + (let ((__tmp92678 (list StackTrace::t Exception::t))) (declare (not safe)) - (make-class-type* + (make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp92748 + __tmp92678 '(exception) '((transparent: . #t)) '#f))) (define RuntimeException? (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args88513_ - (apply make-class-instance RuntimeException::t _$args88513_))) + (lambda _$args88443_ + (apply make-class-instance RuntimeException::t _$args88443_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -172,264 +172,264 @@ (declare (not safe)) (make-class-slot-unchecked-mutator RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_exn88508_ _continue88509_) - (let ((_exn88511_ + (lambda (_exn88438_ _continue88439_) + (let ((_exn88441_ (let () (declare (not safe)) - (wrap-runtime-exception _exn88508_)))) + (wrap-runtime-exception _exn88438_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn88511_ _continue88509_)))) + (##repl-exception-handler-hook _exn88441_ _continue88439_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn88504_) + (lambda (_exn88434_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn88504_)) + (class-instance? StackTrace::t _exn88434_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _exn88504_ 'continuation)) + (unchecked-slot-ref _exn88434_ 'continuation)) '#!void - (let ((__tmp92749 - (lambda (_cont88506_) + (let ((__tmp92679 + (lambda (_cont88436_) (let () (declare (not safe)) (unchecked-slot-set! - _exn88504_ + _exn88434_ 'continuation - _cont88506_))))) + _cont88436_))))) (declare (not safe)) - (##continuation-capture __tmp92749))) + (##continuation-capture __tmp92679))) '#!void) - (let () (declare (not safe)) (##raise _exn88504_)))) + (let () (declare (not safe)) (##raise _exn88434_)))) (define error - (lambda (_message88501_ . _irritants88502_) - (raise (let ((__obj92739 (make-object* Error::t '5))) + (lambda (_message88431_ . _irritants88432_) + (raise (let ((__obj92669 (make-object Error::t '5))) (Error:::init! - __obj92739 - _message88501_ + __obj92669 + _message88431_ 'irritants: - _irritants88502_) - __obj92739)))) + _irritants88432_) + __obj92669)))) (define with-exception-handler - (lambda (_handler88494_ _thunk88495_) - (if (let () (declare (not safe)) (procedure? _handler88494_)) + (lambda (_handler88424_ _thunk88425_) + (if (let () (declare (not safe)) (procedure? _handler88424_)) '#!void - (raise (let ((__obj92740 (make-object* Error::t '5))) + (raise (let ((__obj92670 (make-object Error::t '5))) (Error:::init! - __obj92740 + __obj92670 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler88494_ '()))) - __obj92740))) - (if (let () (declare (not safe)) (procedure? _thunk88495_)) + (let () (declare (not safe)) (cons _handler88424_ '()))) + __obj92670))) + (if (let () (declare (not safe)) (procedure? _thunk88425_)) '#!void - (raise (let ((__obj92741 (make-object* Error::t '5))) + (raise (let ((__obj92671 (make-object Error::t '5))) (Error:::init! - __obj92741 + __obj92671 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk88495_ '()))) - __obj92741))) - (let ((__tmp92750 - (lambda (_exn88497_) - (let ((_exn88499_ + (let () (declare (not safe)) (cons _thunk88425_ '()))) + __obj92671))) + (let ((__tmp92680 + (lambda (_exn88427_) + (let ((_exn88429_ (let () (declare (not safe)) - (wrap-runtime-exception _exn88497_)))) - (_handler88494_ _exn88499_))))) + (wrap-runtime-exception _exn88427_)))) + (_handler88424_ _exn88429_))))) (declare (not safe)) - (##with-exception-handler __tmp92750 _thunk88495_)))) + (##with-exception-handler __tmp92680 _thunk88425_)))) (define with-catch - (lambda (_handler88487_ _thunk88488_) - (if (let () (declare (not safe)) (procedure? _handler88487_)) + (lambda (_handler88417_ _thunk88418_) + (if (let () (declare (not safe)) (procedure? _handler88417_)) '#!void - (raise (let ((__obj92742 (make-object* Error::t '5))) + (raise (let ((__obj92672 (make-object Error::t '5))) (Error:::init! - __obj92742 + __obj92672 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler88487_ '()))) - __obj92742))) - (if (let () (declare (not safe)) (procedure? _thunk88488_)) + (let () (declare (not safe)) (cons _handler88417_ '()))) + __obj92672))) + (if (let () (declare (not safe)) (procedure? _thunk88418_)) '#!void - (raise (let ((__obj92743 (make-object* Error::t '5))) + (raise (let ((__obj92673 (make-object Error::t '5))) (Error:::init! - __obj92743 + __obj92673 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk88488_ '()))) - __obj92743))) - (let ((__tmp92751 - (lambda (_cont88490_) + (let () (declare (not safe)) (cons _thunk88418_ '()))) + __obj92673))) + (let ((__tmp92681 + (lambda (_cont88420_) (with-exception-handler - (lambda (_exn88492_) + (lambda (_exn88422_) (let () (declare (not safe)) (##continuation-graft - _cont88490_ - _handler88487_ - _exn88492_))) - _thunk88488_)))) + _cont88420_ + _handler88417_ + _exn88422_))) + _thunk88418_)))) (declare (not safe)) - (##continuation-capture __tmp92751)))) + (##continuation-capture __tmp92681)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn88478_) - (if (or (heap-overflow-exception? _exn88478_) - (stack-overflow-exception? _exn88478_)) - _exn88478_ + (lambda (_exn88408_) + (if (or (heap-overflow-exception? _exn88408_) + (stack-overflow-exception? _exn88408_)) + _exn88408_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn88478_)) - _exn88478_ - (if (macro-exception? _exn88478_) - (let ((_rte88483_ - (let ((__obj92744 - (make-object* RuntimeException::t '3))) + (class-instance? Exception::t _exn88408_)) + _exn88408_ + (if (macro-exception? _exn88408_) + (let ((_rte88413_ + (let ((__obj92674 + (make-object RuntimeException::t '3))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj92744 - _exn88478_ + __obj92674 + _exn88408_ '2 RuntimeException::t '#f)) - __obj92744))) - (let ((__tmp92752 - (lambda (_cont88485_) - (let ((__tmp92753 + __obj92674))) + (let ((__tmp92682 + (lambda (_cont88415_) + (let ((__tmp92683 (let () (declare (not safe)) - (##continuation-next _cont88485_)))) + (##continuation-next _cont88415_)))) (declare (not safe)) (unchecked-slot-set! - _rte88483_ + _rte88413_ 'continuation - __tmp92753))))) + __tmp92683))))) (declare (not safe)) - (##continuation-capture __tmp92752)) - _rte88483_) - _exn88478_))))) + (##continuation-capture __tmp92682)) + _rte88413_) + _exn88408_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj88473_) - (let ((_$e88475_ + (lambda (_obj88403_) + (let ((_$e88405_ (let () (declare (not safe)) - (class-instance? Error::t _obj88473_)))) - (if _$e88475_ _$e88475_ (error-exception? _obj88473_))))) + (class-instance? Error::t _obj88403_)))) + (if _$e88405_ _$e88405_ (error-exception? _obj88403_))))) (define error-message - (lambda (_obj88471_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj88471_)) + (lambda (_obj88401_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj88401_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj88471_ 'message)) - (if (error-exception? _obj88471_) - (error-exception-message _obj88471_) + (unchecked-slot-ref _obj88401_ 'message)) + (if (error-exception? _obj88401_) + (error-exception-message _obj88401_) '#f)))) (define error-irritants - (lambda (_obj88469_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj88469_)) + (lambda (_obj88399_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj88399_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj88469_ 'irritants)) - (if (error-exception? _obj88469_) - (error-exception-parameters _obj88469_) + (unchecked-slot-ref _obj88399_ 'irritants)) + (if (error-exception? _obj88399_) + (error-exception-parameters _obj88399_) '#f)))) (define error-trace - (lambda (_obj88467_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj88467_)) + (lambda (_obj88397_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj88397_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj88467_ 'where)) + (unchecked-slot-ref _obj88397_ 'where)) '#f))) (define display-exception__% - (lambda (_e88449_ _port88450_) - (let ((_$e88452_ + (lambda (_e88379_ _port88380_) + (let ((_$e88382_ (let () (declare (not safe)) - (method-ref _e88449_ 'display-exception)))) - (if _$e88452_ - ((lambda (_f88455_) (_f88455_ _e88449_ _port88450_)) _$e88452_) + (method-ref _e88379_ 'display-exception)))) + (if _$e88382_ + ((lambda (_f88385_) (_f88385_ _e88379_ _port88380_)) _$e88382_) (let () (declare (not safe)) - (##default-display-exception _e88449_ _port88450_)))))) + (##default-display-exception _e88379_ _port88380_)))))) (define display-exception__0 - (lambda (_e88460_) - (let ((_port88462_ (current-error-port))) + (lambda (_e88390_) + (let ((_port88392_ (current-error-port))) (declare (not safe)) - (display-exception__% _e88460_ _port88462_)))) + (display-exception__% _e88390_ _port88392_)))) (define display-exception - (lambda _g92755_ - (let ((_g92754_ (let () (declare (not safe)) (##length _g92755_)))) - (cond ((let () (declare (not safe)) (##fx= _g92754_ 1)) - (apply (lambda (_e88460_) + (lambda _g92685_ + (let ((_g92684_ (let () (declare (not safe)) (##length _g92685_)))) + (cond ((let () (declare (not safe)) (##fx= _g92684_ 1)) + (apply (lambda (_e88390_) (let () (declare (not safe)) - (display-exception__0 _e88460_))) - _g92755_)) - ((let () (declare (not safe)) (##fx= _g92754_ 2)) - (apply (lambda (_e88464_ _port88465_) + (display-exception__0 _e88390_))) + _g92685_)) + ((let () (declare (not safe)) (##fx= _g92684_ 2)) + (apply (lambda (_e88394_ _port88395_) (let () (declare (not safe)) - (display-exception__% _e88464_ _port88465_))) - _g92755_)) + (display-exception__% _e88394_ _port88395_))) + _g92685_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g92755_)))))) + _g92685_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self88438_ _message88439_ . _rest88440_) - (let ((_message88446_ - (if (let () (declare (not safe)) (string? _message88439_)) - _message88439_ + (lambda (_self88368_ _message88369_ . _rest88370_) + (let ((_message88376_ + (if (let () (declare (not safe)) (string? _message88369_)) + _message88369_ (call-with-output-string '"" - (lambda (_g8844188443_) - (display _message88439_ _g8844188443_)))))) + (lambda (_g8837188373_) + (display _message88369_ _g8837188373_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self88438_ 'message _message88446_)) - (apply class-instance-init! _self88438_ _rest88440_)))) + (unchecked-slot-set! _self88368_ 'message _message88376_)) + (apply class-instance-init! _self88368_ _rest88370_)))) (define Error:::init!::specialize - (lambda (__t92718) - (let ((__message92719 - (let ((__tmp92720 + (lambda (__t92648) + (let ((__message92649 + (let ((__tmp92650 (let () (declare (not safe)) - (class-slot-offset* __t92718 'message)))) - (if __tmp92720 __tmp92720 (error '"Unknown slot" 'message))))) - (lambda (_self88438_ _message88439_ . _rest88440_) - (let ((_message88446_ - (if (let () (declare (not safe)) (string? _message88439_)) - _message88439_ + (class-slot-offset __t92648 'message)))) + (if __tmp92650 __tmp92650 (error '"Unknown slot" 'message))))) + (lambda (_self88368_ _message88369_ . _rest88370_) + (let ((_message88376_ + (if (let () (declare (not safe)) (string? _message88369_)) + _message88369_ (call-with-output-string '"" - (lambda (_g8844188443_) - (display _message88439_ _g8844188443_)))))) + (lambda (_g8837188373_) + (display _message88369_ _g8837188373_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self88438_ - _message88446_ - __message92719 - __t92718 + _self88368_ + _message88376_ + __message92649 + __t92648 '#f)) - (apply class-instance-init! _self88438_ _rest88440_)))))) + (apply class-instance-init! _self88368_ _rest88370_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) @@ -438,192 +438,192 @@ (bind-method! Error::t ':init! Error:::init! '#f)) (define dump-stack-trace? (make-parameter '#t)) (define Error::display-exception - (lambda (_self88296_ _port88297_) - (let ((_tmp-port88299_ (open-output-string)) - (_display-error-newline88300_ - (> (output-port-column _port88297_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port88299_)) - (let ((__tmp92756 + (lambda (_self88226_ _port88227_) + (let ((_tmp-port88229_ (open-output-string)) + (_display-error-newline88230_ + (> (output-port-column _port88227_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port88229_)) + (let ((__tmp92686 (lambda () - (if _display-error-newline88300_ (newline) '#!void) + (if _display-error-newline88230_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e88303_ + (let ((_$e88233_ (let () (declare (not safe)) - (unchecked-slot-ref _self88296_ 'where)))) - (if _$e88303_ (display _$e88303_) (display '"?"))) - (let ((__tmp92757 - (let ((__tmp92758 + (unchecked-slot-ref _self88226_ 'where)))) + (if _$e88233_ (display _$e88233_) (display '"?"))) + (let ((__tmp92687 + (let ((__tmp92688 (let () (declare (not safe)) - (object-type _self88296_)))) + (object-type _self88226_)))) (declare (not safe)) - (##type-name __tmp92758)))) + (##type-name __tmp92688)))) (declare (not safe)) - (display* '" [" __tmp92757 '"]: ")) - (let ((__tmp92759 + (display* '" [" __tmp92687 '"]: ")) + (let ((__tmp92689 (let () (declare (not safe)) - (unchecked-slot-ref _self88296_ 'message)))) + (unchecked-slot-ref _self88226_ 'message)))) (declare (not safe)) - (displayln __tmp92759)) - (let ((_irritants88306_ + (displayln __tmp92689)) + (let ((_irritants88236_ (let () (declare (not safe)) - (unchecked-slot-ref _self88296_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants88306_)) + (unchecked-slot-ref _self88226_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants88236_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj88308_) - (write _obj88308_) + (lambda (_obj88238_) + (write _obj88238_) (write-char '#\space)) - _irritants88306_) + _irritants88236_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self88296_)) + (class-instance? StackTrace::t _self88226_)) (dump-stack-trace?)) - (let ((_cont8830988311_ + (let ((_cont8823988241_ (let () (declare (not safe)) (unchecked-slot-ref - _self88296_ + _self88226_ 'continuation)))) - (if _cont8830988311_ - (let ((_cont88314_ _cont8830988311_)) + (if _cont8823988241_ + (let ((_cont88244_ _cont8823988241_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont88314_)) + (display-continuation-backtrace _cont88244_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp92756 + __tmp92686 current-output-port - _tmp-port88299_)) - (let ((__tmp92760 (get-output-string _tmp-port88299_))) + _tmp-port88229_)) + (let ((__tmp92690 (get-output-string _tmp-port88229_))) (declare (not safe)) - (##write-string __tmp92760 _port88297_))))) + (##write-string __tmp92690 _port88227_))))) (define Error::display-exception::specialize - (lambda (__t92721) - (let ((__message92722 - (let ((__tmp92726 + (lambda (__t92651) + (let ((__continuation92652 + (let ((__tmp92656 (let () (declare (not safe)) - (class-slot-offset* __t92721 'message)))) - (if __tmp92726 __tmp92726 (error '"Unknown slot" 'message)))) - (__continuation92723 - (let ((__tmp92727 + (class-slot-offset __t92651 'continuation)))) + (if __tmp92656 + __tmp92656 + (error '"Unknown slot" 'continuation)))) + (__message92653 + (let ((__tmp92657 (let () (declare (not safe)) - (class-slot-offset* __t92721 'continuation)))) - (if __tmp92727 - __tmp92727 - (error '"Unknown slot" 'continuation)))) - (__irritants92724 - (let ((__tmp92728 + (class-slot-offset __t92651 'message)))) + (if __tmp92657 __tmp92657 (error '"Unknown slot" 'message)))) + (__irritants92654 + (let ((__tmp92658 (let () (declare (not safe)) - (class-slot-offset* __t92721 'irritants)))) - (if __tmp92728 - __tmp92728 + (class-slot-offset __t92651 'irritants)))) + (if __tmp92658 + __tmp92658 (error '"Unknown slot" 'irritants)))) - (__where92725 - (let ((__tmp92729 + (__where92655 + (let ((__tmp92659 (let () (declare (not safe)) - (class-slot-offset* __t92721 'where)))) - (if __tmp92729 __tmp92729 (error '"Unknown slot" 'where))))) - (lambda (_self88296_ _port88297_) - (let ((_tmp-port88299_ (open-output-string)) - (_display-error-newline88300_ - (> (output-port-column _port88297_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port88299_)) - (let ((__tmp92761 + (class-slot-offset __t92651 'where)))) + (if __tmp92659 __tmp92659 (error '"Unknown slot" 'where))))) + (lambda (_self88226_ _port88227_) + (let ((_tmp-port88229_ (open-output-string)) + (_display-error-newline88230_ + (> (output-port-column _port88227_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port88229_)) + (let ((__tmp92691 (lambda () - (if _display-error-newline88300_ (newline) '#!void) + (if _display-error-newline88230_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e88303_ + (let ((_$e88233_ (let () (declare (not safe)) (##unchecked-structure-ref - _self88296_ - __where92725 - __t92721 + _self88226_ + __where92655 + __t92651 '#f)))) - (if _$e88303_ (display _$e88303_) (display '"?"))) - (let ((__tmp92762 - (let ((__tmp92763 + (if _$e88233_ (display _$e88233_) (display '"?"))) + (let ((__tmp92692 + (let ((__tmp92693 (let () (declare (not safe)) - (object-type _self88296_)))) + (object-type _self88226_)))) (declare (not safe)) - (##type-name __tmp92763)))) + (##type-name __tmp92693)))) (declare (not safe)) - (display* '" [" __tmp92762 '"]: ")) - (let ((__tmp92764 + (display* '" [" __tmp92692 '"]: ")) + (let ((__tmp92694 (let () (declare (not safe)) (##unchecked-structure-ref - _self88296_ - __message92722 - __t92721 + _self88226_ + __message92653 + __t92651 '#f)))) (declare (not safe)) - (displayln __tmp92764)) - (let ((_irritants88306_ + (displayln __tmp92694)) + (let ((_irritants88236_ (let () (declare (not safe)) (##unchecked-structure-ref - _self88296_ - __irritants92724 - __t92721 + _self88226_ + __irritants92654 + __t92651 '#f)))) (if (let () (declare (not safe)) - (null? _irritants88306_)) + (null? _irritants88236_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj88308_) - (write _obj88308_) + (lambda (_obj88238_) + (write _obj88238_) (write-char '#\space)) - _irritants88306_) + _irritants88236_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self88296_)) + (class-instance? StackTrace::t _self88226_)) (dump-stack-trace?)) - (let ((_cont8830988311_ + (let ((_cont8823988241_ (let () (declare (not safe)) (##unchecked-structure-ref - _self88296_ - __continuation92723 - __t92721 + _self88226_ + __continuation92652 + __t92651 '#f)))) - (if _cont8830988311_ - (let ((_cont88314_ _cont8830988311_)) + (if _cont8823988241_ + (let ((_cont88244_ _cont8823988241_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont88314_)) + _cont88244_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp92761 + __tmp92691 current-output-port - _tmp-port88299_)) - (let ((__tmp92765 (get-output-string _tmp-port88299_))) + _tmp-port88229_)) + (let ((__tmp92695 (get-output-string _tmp-port88229_))) (declare (not safe)) - (##write-string __tmp92765 _port88297_))))))) + (##write-string __tmp92695 _port88227_))))))) (let () (declare (not safe)) (bind-specializer! @@ -633,85 +633,85 @@ (declare (not safe)) (bind-method! Error::t 'display-exception Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_self88163_ _port88164_) - (let ((_tmp-port88166_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port88166_)) - (let ((__tmp92766 + (lambda (_self88093_ _port88094_) + (let ((_tmp-port88096_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port88096_)) + (let ((__tmp92696 (let () (declare (not safe)) - (unchecked-slot-ref _self88163_ 'exception)))) + (unchecked-slot-ref _self88093_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp92766 _tmp-port88166_)) + (##default-display-exception __tmp92696 _tmp-port88096_)) (if (dump-stack-trace?) - (let ((_cont8816788169_ + (let ((_cont8809788099_ (let () (declare (not safe)) - (unchecked-slot-ref _self88163_ 'continuation)))) - (if _cont8816788169_ - (let ((_cont88172_ _cont8816788169_)) - (display '"--- continuation backtrace:" _tmp-port88166_) - (newline _tmp-port88166_) + (unchecked-slot-ref _self88093_ 'continuation)))) + (if _cont8809788099_ + (let ((_cont88102_ _cont8809788099_)) + (display '"--- continuation backtrace:" _tmp-port88096_) + (newline _tmp-port88096_) (display-continuation-backtrace - _cont88172_ - _tmp-port88166_)) + _cont88102_ + _tmp-port88096_)) '#f)) '#!void) - (let ((__tmp92767 (get-output-string _tmp-port88166_))) + (let ((__tmp92697 (get-output-string _tmp-port88096_))) (declare (not safe)) - (##write-string __tmp92767 _port88164_))))) + (##write-string __tmp92697 _port88094_))))) (define RuntimeException::display-exception::specialize - (lambda (__t92730) - (let ((__exception92731 - (let ((__tmp92733 + (lambda (__t92660) + (let ((__continuation92661 + (let ((__tmp92663 (let () (declare (not safe)) - (class-slot-offset* __t92730 'exception)))) - (if __tmp92733 - __tmp92733 - (error '"Unknown slot" 'exception)))) - (__continuation92732 - (let ((__tmp92734 + (class-slot-offset __t92660 'continuation)))) + (if __tmp92663 + __tmp92663 + (error '"Unknown slot" 'continuation)))) + (__exception92662 + (let ((__tmp92664 (let () (declare (not safe)) - (class-slot-offset* __t92730 'continuation)))) - (if __tmp92734 - __tmp92734 - (error '"Unknown slot" 'continuation))))) - (lambda (_self88163_ _port88164_) - (let ((_tmp-port88166_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port88166_)) - (let ((__tmp92768 + (class-slot-offset __t92660 'exception)))) + (if __tmp92664 + __tmp92664 + (error '"Unknown slot" 'exception))))) + (lambda (_self88093_ _port88094_) + (let ((_tmp-port88096_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port88096_)) + (let ((__tmp92698 (let () (declare (not safe)) (##unchecked-structure-ref - _self88163_ - __exception92731 - __t92730 + _self88093_ + __exception92662 + __t92660 '#f)))) (declare (not safe)) - (##default-display-exception __tmp92768 _tmp-port88166_)) + (##default-display-exception __tmp92698 _tmp-port88096_)) (if (dump-stack-trace?) - (let ((_cont8816788169_ + (let ((_cont8809788099_ (let () (declare (not safe)) (##unchecked-structure-ref - _self88163_ - __continuation92732 - __t92730 + _self88093_ + __continuation92661 + __t92660 '#f)))) - (if _cont8816788169_ - (let ((_cont88172_ _cont8816788169_)) + (if _cont8809788099_ + (let ((_cont88102_ _cont8809788099_)) (display '"--- continuation backtrace:" - _tmp-port88166_) - (newline _tmp-port88166_) + _tmp-port88096_) + (newline _tmp-port88096_) (display-continuation-backtrace - _cont88172_ - _tmp-port88166_)) + _cont88102_ + _tmp-port88096_)) '#f)) '#!void) - (let ((__tmp92769 (get-output-string _tmp-port88166_))) + (let ((__tmp92699 (get-output-string _tmp-port88096_))) (declare (not safe)) - (##write-string __tmp92769 _port88164_))))))) + (##write-string __tmp92699 _port88094_))))))) (let () (declare (not safe)) (bind-specializer! @@ -725,3566 +725,3566 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_port88035_) - (if (macro-character-port? _port88035_) - (let ((_old-width88037_ - (macro-character-port-output-width _port88035_))) + (lambda (_port87965_) + (if (macro-character-port? _port87965_) + (let ((_old-width87967_ + (macro-character-port-output-width _port87965_))) (macro-character-port-output-width-set! - _port88035_ - (lambda (_port88039_) '256)) - _old-width88037_) + _port87965_ + (lambda (_port87969_) '256)) + _old-width87967_) '#!void))) (define reset-port-width! - (lambda (_port88032_ _old-width88033_) - (if (macro-character-port? _port88032_) + (lambda (_port87962_ _old-width87963_) + (if (macro-character-port? _port87962_) (macro-character-port-output-width-set! - _port88032_ - _old-width88033_) + _port87962_ + _old-width87963_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e88030_) - (macro-readenv-filepos (datum-parsing-exception-readenv _e88030_)))) + (lambda (_e87960_) + (macro-readenv-filepos (datum-parsing-exception-readenv _e87960_)))) (define abandoned-mutex-exception? - (lambda (_exn88024_) + (lambda (_exn87954_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn88024_)) - (let ((_e88027_ + (class-instance? RuntimeException::t _exn87954_)) + (let ((_e87957_ (let () (declare (not safe)) - (unchecked-slot-ref _exn88024_ 'exception)))) - (macro-abandoned-mutex-exception? _e88027_)) - (macro-abandoned-mutex-exception? _exn88024_)))) + (unchecked-slot-ref _exn87954_ 'exception)))) + (macro-abandoned-mutex-exception? _e87957_)) + (macro-abandoned-mutex-exception? _exn87954_)))) (define cfun-conversion-exception? - (lambda (_exn88020_) + (lambda (_exn87950_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn88020_)) - (let ((_e88022_ + (class-instance? RuntimeException::t _exn87950_)) + (let ((_e87952_ (let () (declare (not safe)) - (unchecked-slot-ref _exn88020_ 'exception)))) - (macro-cfun-conversion-exception? _e88022_)) - (macro-cfun-conversion-exception? _exn88020_)))) + (unchecked-slot-ref _exn87950_ 'exception)))) + (macro-cfun-conversion-exception? _e87952_)) + (macro-cfun-conversion-exception? _exn87950_)))) (define cfun-conversion-exception-arguments - (lambda (_exn88016_) + (lambda (_exn87946_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn88016_)) - (let ((_e88018_ + (class-instance? RuntimeException::t _exn87946_)) + (let ((_e87948_ (let () (declare (not safe)) - (unchecked-slot-ref _exn88016_ 'exception)))) - (if (macro-cfun-conversion-exception? _e88018_) - (macro-cfun-conversion-exception-arguments _e88018_) + (unchecked-slot-ref _exn87946_ 'exception)))) + (if (macro-cfun-conversion-exception? _e87948_) + (macro-cfun-conversion-exception-arguments _e87948_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp92771 + (let ((__tmp92701 (let () (declare (not safe)) - (cons _e88018_ '())))) + (cons _e87948_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp92771))))) - (if (macro-cfun-conversion-exception? _exn88016_) - (macro-cfun-conversion-exception-arguments _exn88016_) + __tmp92701))))) + (if (macro-cfun-conversion-exception? _exn87946_) + (macro-cfun-conversion-exception-arguments _exn87946_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp92770 + (let ((__tmp92700 (let () (declare (not safe)) - (cons _exn88016_ '())))) + (cons _exn87946_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp92770))))))) + __tmp92700))))))) (define cfun-conversion-exception-code - (lambda (_exn88012_) + (lambda (_exn87942_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn88012_)) - (let ((_e88014_ + (class-instance? RuntimeException::t _exn87942_)) + (let ((_e87944_ (let () (declare (not safe)) - (unchecked-slot-ref _exn88012_ 'exception)))) - (if (macro-cfun-conversion-exception? _e88014_) - (macro-cfun-conversion-exception-code _e88014_) + (unchecked-slot-ref _exn87942_ 'exception)))) + (if (macro-cfun-conversion-exception? _e87944_) + (macro-cfun-conversion-exception-code _e87944_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp92773 + (let ((__tmp92703 (let () (declare (not safe)) - (cons _e88014_ '())))) + (cons _e87944_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp92773))))) - (if (macro-cfun-conversion-exception? _exn88012_) - (macro-cfun-conversion-exception-code _exn88012_) + __tmp92703))))) + (if (macro-cfun-conversion-exception? _exn87942_) + (macro-cfun-conversion-exception-code _exn87942_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp92772 + (let ((__tmp92702 (let () (declare (not safe)) - (cons _exn88012_ '())))) + (cons _exn87942_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp92772))))))) + __tmp92702))))))) (define cfun-conversion-exception-message - (lambda (_exn88008_) + (lambda (_exn87938_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn88008_)) - (let ((_e88010_ + (class-instance? RuntimeException::t _exn87938_)) + (let ((_e87940_ (let () (declare (not safe)) - (unchecked-slot-ref _exn88008_ 'exception)))) - (if (macro-cfun-conversion-exception? _e88010_) - (macro-cfun-conversion-exception-message _e88010_) + (unchecked-slot-ref _exn87938_ 'exception)))) + (if (macro-cfun-conversion-exception? _e87940_) + (macro-cfun-conversion-exception-message _e87940_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp92775 + (let ((__tmp92705 (let () (declare (not safe)) - (cons _e88010_ '())))) + (cons _e87940_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp92775))))) - (if (macro-cfun-conversion-exception? _exn88008_) - (macro-cfun-conversion-exception-message _exn88008_) + __tmp92705))))) + (if (macro-cfun-conversion-exception? _exn87938_) + (macro-cfun-conversion-exception-message _exn87938_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp92774 + (let ((__tmp92704 (let () (declare (not safe)) - (cons _exn88008_ '())))) + (cons _exn87938_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp92774))))))) + __tmp92704))))))) (define cfun-conversion-exception-procedure - (lambda (_exn88002_) + (lambda (_exn87932_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn88002_)) - (let ((_e88005_ + (class-instance? RuntimeException::t _exn87932_)) + (let ((_e87935_ (let () (declare (not safe)) - (unchecked-slot-ref _exn88002_ 'exception)))) - (if (macro-cfun-conversion-exception? _e88005_) - (macro-cfun-conversion-exception-procedure _e88005_) + (unchecked-slot-ref _exn87932_ 'exception)))) + (if (macro-cfun-conversion-exception? _e87935_) + (macro-cfun-conversion-exception-procedure _e87935_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp92777 + (let ((__tmp92707 (let () (declare (not safe)) - (cons _e88005_ '())))) + (cons _e87935_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp92777))))) - (if (macro-cfun-conversion-exception? _exn88002_) - (macro-cfun-conversion-exception-procedure _exn88002_) + __tmp92707))))) + (if (macro-cfun-conversion-exception? _exn87932_) + (macro-cfun-conversion-exception-procedure _exn87932_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp92776 + (let ((__tmp92706 (let () (declare (not safe)) - (cons _exn88002_ '())))) + (cons _exn87932_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp92776))))))) + __tmp92706))))))) (define datum-parsing-exception? - (lambda (_exn87998_) + (lambda (_exn87928_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87998_)) - (let ((_e88000_ + (class-instance? RuntimeException::t _exn87928_)) + (let ((_e87930_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87998_ 'exception)))) - (macro-datum-parsing-exception? _e88000_)) - (macro-datum-parsing-exception? _exn87998_)))) + (unchecked-slot-ref _exn87928_ 'exception)))) + (macro-datum-parsing-exception? _e87930_)) + (macro-datum-parsing-exception? _exn87928_)))) (define datum-parsing-exception-kind - (lambda (_exn87994_) + (lambda (_exn87924_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87994_)) - (let ((_e87996_ + (class-instance? RuntimeException::t _exn87924_)) + (let ((_e87926_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87994_ 'exception)))) - (if (macro-datum-parsing-exception? _e87996_) - (macro-datum-parsing-exception-kind _e87996_) + (unchecked-slot-ref _exn87924_ 'exception)))) + (if (macro-datum-parsing-exception? _e87926_) + (macro-datum-parsing-exception-kind _e87926_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp92779 + (let ((__tmp92709 (let () (declare (not safe)) - (cons _e87996_ '())))) + (cons _e87926_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp92779))))) - (if (macro-datum-parsing-exception? _exn87994_) - (macro-datum-parsing-exception-kind _exn87994_) + (cons 'datum-parsing-exception-kind __tmp92709))))) + (if (macro-datum-parsing-exception? _exn87924_) + (macro-datum-parsing-exception-kind _exn87924_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp92778 + (let ((__tmp92708 (let () (declare (not safe)) - (cons _exn87994_ '())))) + (cons _exn87924_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp92778))))))) + (cons 'datum-parsing-exception-kind __tmp92708))))))) (define datum-parsing-exception-parameters - (lambda (_exn87990_) + (lambda (_exn87920_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87990_)) - (let ((_e87992_ + (class-instance? RuntimeException::t _exn87920_)) + (let ((_e87922_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87990_ 'exception)))) - (if (macro-datum-parsing-exception? _e87992_) - (macro-datum-parsing-exception-parameters _e87992_) + (unchecked-slot-ref _exn87920_ 'exception)))) + (if (macro-datum-parsing-exception? _e87922_) + (macro-datum-parsing-exception-parameters _e87922_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp92781 + (let ((__tmp92711 (let () (declare (not safe)) - (cons _e87992_ '())))) + (cons _e87922_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp92781))))) - (if (macro-datum-parsing-exception? _exn87990_) - (macro-datum-parsing-exception-parameters _exn87990_) + __tmp92711))))) + (if (macro-datum-parsing-exception? _exn87920_) + (macro-datum-parsing-exception-parameters _exn87920_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp92780 + (let ((__tmp92710 (let () (declare (not safe)) - (cons _exn87990_ '())))) + (cons _exn87920_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp92780))))))) + __tmp92710))))))) (define datum-parsing-exception-readenv - (lambda (_exn87984_) + (lambda (_exn87914_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87984_)) - (let ((_e87987_ + (class-instance? RuntimeException::t _exn87914_)) + (let ((_e87917_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87984_ 'exception)))) - (if (macro-datum-parsing-exception? _e87987_) - (macro-datum-parsing-exception-readenv _e87987_) + (unchecked-slot-ref _exn87914_ 'exception)))) + (if (macro-datum-parsing-exception? _e87917_) + (macro-datum-parsing-exception-readenv _e87917_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp92783 + (let ((__tmp92713 (let () (declare (not safe)) - (cons _e87987_ '())))) + (cons _e87917_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp92783))))) - (if (macro-datum-parsing-exception? _exn87984_) - (macro-datum-parsing-exception-readenv _exn87984_) + __tmp92713))))) + (if (macro-datum-parsing-exception? _exn87914_) + (macro-datum-parsing-exception-readenv _exn87914_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp92782 + (let ((__tmp92712 (let () (declare (not safe)) - (cons _exn87984_ '())))) + (cons _exn87914_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp92782))))))) + __tmp92712))))))) (define deadlock-exception? - (lambda (_exn87978_) + (lambda (_exn87908_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87978_)) - (let ((_e87981_ + (class-instance? RuntimeException::t _exn87908_)) + (let ((_e87911_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87978_ 'exception)))) - (macro-deadlock-exception? _e87981_)) - (macro-deadlock-exception? _exn87978_)))) + (unchecked-slot-ref _exn87908_ 'exception)))) + (macro-deadlock-exception? _e87911_)) + (macro-deadlock-exception? _exn87908_)))) (define divide-by-zero-exception? - (lambda (_exn87974_) + (lambda (_exn87904_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87974_)) - (let ((_e87976_ + (class-instance? RuntimeException::t _exn87904_)) + (let ((_e87906_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87974_ 'exception)))) - (macro-divide-by-zero-exception? _e87976_)) - (macro-divide-by-zero-exception? _exn87974_)))) + (unchecked-slot-ref _exn87904_ 'exception)))) + (macro-divide-by-zero-exception? _e87906_)) + (macro-divide-by-zero-exception? _exn87904_)))) (define divide-by-zero-exception-arguments - (lambda (_exn87970_) + (lambda (_exn87900_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87970_)) - (let ((_e87972_ + (class-instance? RuntimeException::t _exn87900_)) + (let ((_e87902_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87970_ 'exception)))) - (if (macro-divide-by-zero-exception? _e87972_) - (macro-divide-by-zero-exception-arguments _e87972_) + (unchecked-slot-ref _exn87900_ 'exception)))) + (if (macro-divide-by-zero-exception? _e87902_) + (macro-divide-by-zero-exception-arguments _e87902_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp92785 + (let ((__tmp92715 (let () (declare (not safe)) - (cons _e87972_ '())))) + (cons _e87902_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp92785))))) - (if (macro-divide-by-zero-exception? _exn87970_) - (macro-divide-by-zero-exception-arguments _exn87970_) + __tmp92715))))) + (if (macro-divide-by-zero-exception? _exn87900_) + (macro-divide-by-zero-exception-arguments _exn87900_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp92784 + (let ((__tmp92714 (let () (declare (not safe)) - (cons _exn87970_ '())))) + (cons _exn87900_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp92784))))))) + __tmp92714))))))) (define divide-by-zero-exception-procedure - (lambda (_exn87964_) + (lambda (_exn87894_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87964_)) - (let ((_e87967_ + (class-instance? RuntimeException::t _exn87894_)) + (let ((_e87897_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87964_ 'exception)))) - (if (macro-divide-by-zero-exception? _e87967_) - (macro-divide-by-zero-exception-procedure _e87967_) + (unchecked-slot-ref _exn87894_ 'exception)))) + (if (macro-divide-by-zero-exception? _e87897_) + (macro-divide-by-zero-exception-procedure _e87897_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp92787 + (let ((__tmp92717 (let () (declare (not safe)) - (cons _e87967_ '())))) + (cons _e87897_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp92787))))) - (if (macro-divide-by-zero-exception? _exn87964_) - (macro-divide-by-zero-exception-procedure _exn87964_) + __tmp92717))))) + (if (macro-divide-by-zero-exception? _exn87894_) + (macro-divide-by-zero-exception-procedure _exn87894_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp92786 + (let ((__tmp92716 (let () (declare (not safe)) - (cons _exn87964_ '())))) + (cons _exn87894_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp92786))))))) + __tmp92716))))))) (define error-exception? - (lambda (_exn87960_) + (lambda (_exn87890_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87960_)) - (let ((_e87962_ + (class-instance? RuntimeException::t _exn87890_)) + (let ((_e87892_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87960_ 'exception)))) - (macro-error-exception? _e87962_)) - (macro-error-exception? _exn87960_)))) + (unchecked-slot-ref _exn87890_ 'exception)))) + (macro-error-exception? _e87892_)) + (macro-error-exception? _exn87890_)))) (define error-exception-message - (lambda (_exn87956_) + (lambda (_exn87886_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87956_)) - (let ((_e87958_ + (class-instance? RuntimeException::t _exn87886_)) + (let ((_e87888_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87956_ 'exception)))) - (if (macro-error-exception? _e87958_) - (macro-error-exception-message _e87958_) + (unchecked-slot-ref _exn87886_ 'exception)))) + (if (macro-error-exception? _e87888_) + (macro-error-exception-message _e87888_) (error '"not an instance" 'error-exception? - (let ((__tmp92789 + (let ((__tmp92719 (let () (declare (not safe)) - (cons _e87958_ '())))) + (cons _e87888_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp92789))))) - (if (macro-error-exception? _exn87956_) - (macro-error-exception-message _exn87956_) + (cons 'error-exception-message __tmp92719))))) + (if (macro-error-exception? _exn87886_) + (macro-error-exception-message _exn87886_) (error '"not an instance" 'error-exception? - (let ((__tmp92788 + (let ((__tmp92718 (let () (declare (not safe)) - (cons _exn87956_ '())))) + (cons _exn87886_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp92788))))))) + (cons 'error-exception-message __tmp92718))))))) (define error-exception-parameters - (lambda (_exn87950_) + (lambda (_exn87880_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87950_)) - (let ((_e87953_ + (class-instance? RuntimeException::t _exn87880_)) + (let ((_e87883_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87950_ 'exception)))) - (if (macro-error-exception? _e87953_) - (macro-error-exception-parameters _e87953_) + (unchecked-slot-ref _exn87880_ 'exception)))) + (if (macro-error-exception? _e87883_) + (macro-error-exception-parameters _e87883_) (error '"not an instance" 'error-exception? - (let ((__tmp92791 + (let ((__tmp92721 (let () (declare (not safe)) - (cons _e87953_ '())))) + (cons _e87883_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp92791))))) - (if (macro-error-exception? _exn87950_) - (macro-error-exception-parameters _exn87950_) + (cons 'error-exception-parameters __tmp92721))))) + (if (macro-error-exception? _exn87880_) + (macro-error-exception-parameters _exn87880_) (error '"not an instance" 'error-exception? - (let ((__tmp92790 + (let ((__tmp92720 (let () (declare (not safe)) - (cons _exn87950_ '())))) + (cons _exn87880_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp92790))))))) + (cons 'error-exception-parameters __tmp92720))))))) (define expression-parsing-exception? - (lambda (_exn87946_) + (lambda (_exn87876_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87946_)) - (let ((_e87948_ + (class-instance? RuntimeException::t _exn87876_)) + (let ((_e87878_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87946_ 'exception)))) - (macro-expression-parsing-exception? _e87948_)) - (macro-expression-parsing-exception? _exn87946_)))) + (unchecked-slot-ref _exn87876_ 'exception)))) + (macro-expression-parsing-exception? _e87878_)) + (macro-expression-parsing-exception? _exn87876_)))) (define expression-parsing-exception-kind - (lambda (_exn87942_) + (lambda (_exn87872_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87942_)) - (let ((_e87944_ + (class-instance? RuntimeException::t _exn87872_)) + (let ((_e87874_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87942_ 'exception)))) - (if (macro-expression-parsing-exception? _e87944_) - (macro-expression-parsing-exception-kind _e87944_) + (unchecked-slot-ref _exn87872_ 'exception)))) + (if (macro-expression-parsing-exception? _e87874_) + (macro-expression-parsing-exception-kind _e87874_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp92793 + (let ((__tmp92723 (let () (declare (not safe)) - (cons _e87944_ '())))) + (cons _e87874_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp92793))))) - (if (macro-expression-parsing-exception? _exn87942_) - (macro-expression-parsing-exception-kind _exn87942_) + __tmp92723))))) + (if (macro-expression-parsing-exception? _exn87872_) + (macro-expression-parsing-exception-kind _exn87872_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp92792 + (let ((__tmp92722 (let () (declare (not safe)) - (cons _exn87942_ '())))) + (cons _exn87872_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp92792))))))) + __tmp92722))))))) (define expression-parsing-exception-parameters - (lambda (_exn87938_) + (lambda (_exn87868_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87938_)) - (let ((_e87940_ + (class-instance? RuntimeException::t _exn87868_)) + (let ((_e87870_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87938_ 'exception)))) - (if (macro-expression-parsing-exception? _e87940_) - (macro-expression-parsing-exception-parameters _e87940_) + (unchecked-slot-ref _exn87868_ 'exception)))) + (if (macro-expression-parsing-exception? _e87870_) + (macro-expression-parsing-exception-parameters _e87870_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp92795 + (let ((__tmp92725 (let () (declare (not safe)) - (cons _e87940_ '())))) + (cons _e87870_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp92795))))) - (if (macro-expression-parsing-exception? _exn87938_) - (macro-expression-parsing-exception-parameters _exn87938_) + __tmp92725))))) + (if (macro-expression-parsing-exception? _exn87868_) + (macro-expression-parsing-exception-parameters _exn87868_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp92794 + (let ((__tmp92724 (let () (declare (not safe)) - (cons _exn87938_ '())))) + (cons _exn87868_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp92794))))))) + __tmp92724))))))) (define expression-parsing-exception-source - (lambda (_exn87932_) + (lambda (_exn87862_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87932_)) - (let ((_e87935_ + (class-instance? RuntimeException::t _exn87862_)) + (let ((_e87865_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87932_ 'exception)))) - (if (macro-expression-parsing-exception? _e87935_) - (macro-expression-parsing-exception-source _e87935_) + (unchecked-slot-ref _exn87862_ 'exception)))) + (if (macro-expression-parsing-exception? _e87865_) + (macro-expression-parsing-exception-source _e87865_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp92797 + (let ((__tmp92727 (let () (declare (not safe)) - (cons _e87935_ '())))) + (cons _e87865_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp92797))))) - (if (macro-expression-parsing-exception? _exn87932_) - (macro-expression-parsing-exception-source _exn87932_) + __tmp92727))))) + (if (macro-expression-parsing-exception? _exn87862_) + (macro-expression-parsing-exception-source _exn87862_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp92796 + (let ((__tmp92726 (let () (declare (not safe)) - (cons _exn87932_ '())))) + (cons _exn87862_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp92796))))))) + __tmp92726))))))) (define file-exists-exception? - (lambda (_exn87928_) + (lambda (_exn87858_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87928_)) - (let ((_e87930_ + (class-instance? RuntimeException::t _exn87858_)) + (let ((_e87860_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87928_ 'exception)))) - (macro-file-exists-exception? _e87930_)) - (macro-file-exists-exception? _exn87928_)))) + (unchecked-slot-ref _exn87858_ 'exception)))) + (macro-file-exists-exception? _e87860_)) + (macro-file-exists-exception? _exn87858_)))) (define file-exists-exception-arguments - (lambda (_exn87924_) + (lambda (_exn87854_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87924_)) - (let ((_e87926_ + (class-instance? RuntimeException::t _exn87854_)) + (let ((_e87856_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87924_ 'exception)))) - (if (macro-file-exists-exception? _e87926_) - (macro-file-exists-exception-arguments _e87926_) + (unchecked-slot-ref _exn87854_ 'exception)))) + (if (macro-file-exists-exception? _e87856_) + (macro-file-exists-exception-arguments _e87856_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp92799 + (let ((__tmp92729 (let () (declare (not safe)) - (cons _e87926_ '())))) + (cons _e87856_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp92799))))) - (if (macro-file-exists-exception? _exn87924_) - (macro-file-exists-exception-arguments _exn87924_) + __tmp92729))))) + (if (macro-file-exists-exception? _exn87854_) + (macro-file-exists-exception-arguments _exn87854_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp92798 + (let ((__tmp92728 (let () (declare (not safe)) - (cons _exn87924_ '())))) + (cons _exn87854_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp92798))))))) + __tmp92728))))))) (define file-exists-exception-procedure - (lambda (_exn87918_) + (lambda (_exn87848_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87918_)) - (let ((_e87921_ + (class-instance? RuntimeException::t _exn87848_)) + (let ((_e87851_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87918_ 'exception)))) - (if (macro-file-exists-exception? _e87921_) - (macro-file-exists-exception-procedure _e87921_) + (unchecked-slot-ref _exn87848_ 'exception)))) + (if (macro-file-exists-exception? _e87851_) + (macro-file-exists-exception-procedure _e87851_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp92801 + (let ((__tmp92731 (let () (declare (not safe)) - (cons _e87921_ '())))) + (cons _e87851_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp92801))))) - (if (macro-file-exists-exception? _exn87918_) - (macro-file-exists-exception-procedure _exn87918_) + __tmp92731))))) + (if (macro-file-exists-exception? _exn87848_) + (macro-file-exists-exception-procedure _exn87848_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp92800 + (let ((__tmp92730 (let () (declare (not safe)) - (cons _exn87918_ '())))) + (cons _exn87848_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp92800))))))) + __tmp92730))))))) (define fixnum-overflow-exception? - (lambda (_exn87914_) + (lambda (_exn87844_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87914_)) - (let ((_e87916_ + (class-instance? RuntimeException::t _exn87844_)) + (let ((_e87846_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87914_ 'exception)))) - (macro-fixnum-overflow-exception? _e87916_)) - (macro-fixnum-overflow-exception? _exn87914_)))) + (unchecked-slot-ref _exn87844_ 'exception)))) + (macro-fixnum-overflow-exception? _e87846_)) + (macro-fixnum-overflow-exception? _exn87844_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn87910_) + (lambda (_exn87840_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87910_)) - (let ((_e87912_ + (class-instance? RuntimeException::t _exn87840_)) + (let ((_e87842_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87910_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e87912_) - (macro-fixnum-overflow-exception-arguments _e87912_) + (unchecked-slot-ref _exn87840_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e87842_) + (macro-fixnum-overflow-exception-arguments _e87842_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp92803 + (let ((__tmp92733 (let () (declare (not safe)) - (cons _e87912_ '())))) + (cons _e87842_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp92803))))) - (if (macro-fixnum-overflow-exception? _exn87910_) - (macro-fixnum-overflow-exception-arguments _exn87910_) + __tmp92733))))) + (if (macro-fixnum-overflow-exception? _exn87840_) + (macro-fixnum-overflow-exception-arguments _exn87840_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp92802 + (let ((__tmp92732 (let () (declare (not safe)) - (cons _exn87910_ '())))) + (cons _exn87840_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp92802))))))) + __tmp92732))))))) (define fixnum-overflow-exception-procedure - (lambda (_exn87904_) + (lambda (_exn87834_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87904_)) - (let ((_e87907_ + (class-instance? RuntimeException::t _exn87834_)) + (let ((_e87837_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87904_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e87907_) - (macro-fixnum-overflow-exception-procedure _e87907_) + (unchecked-slot-ref _exn87834_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e87837_) + (macro-fixnum-overflow-exception-procedure _e87837_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp92805 + (let ((__tmp92735 (let () (declare (not safe)) - (cons _e87907_ '())))) + (cons _e87837_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp92805))))) - (if (macro-fixnum-overflow-exception? _exn87904_) - (macro-fixnum-overflow-exception-procedure _exn87904_) + __tmp92735))))) + (if (macro-fixnum-overflow-exception? _exn87834_) + (macro-fixnum-overflow-exception-procedure _exn87834_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp92804 + (let ((__tmp92734 (let () (declare (not safe)) - (cons _exn87904_ '())))) + (cons _exn87834_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp92804))))))) + __tmp92734))))))) (define heap-overflow-exception? - (lambda (_exn87898_) + (lambda (_exn87828_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87898_)) - (let ((_e87901_ + (class-instance? RuntimeException::t _exn87828_)) + (let ((_e87831_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87898_ 'exception)))) - (macro-heap-overflow-exception? _e87901_)) - (macro-heap-overflow-exception? _exn87898_)))) + (unchecked-slot-ref _exn87828_ 'exception)))) + (macro-heap-overflow-exception? _e87831_)) + (macro-heap-overflow-exception? _exn87828_)))) (define inactive-thread-exception? - (lambda (_exn87894_) + (lambda (_exn87824_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87894_)) - (let ((_e87896_ + (class-instance? RuntimeException::t _exn87824_)) + (let ((_e87826_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87894_ 'exception)))) - (macro-inactive-thread-exception? _e87896_)) - (macro-inactive-thread-exception? _exn87894_)))) + (unchecked-slot-ref _exn87824_ 'exception)))) + (macro-inactive-thread-exception? _e87826_)) + (macro-inactive-thread-exception? _exn87824_)))) (define inactive-thread-exception-arguments - (lambda (_exn87890_) + (lambda (_exn87820_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87890_)) - (let ((_e87892_ + (class-instance? RuntimeException::t _exn87820_)) + (let ((_e87822_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87890_ 'exception)))) - (if (macro-inactive-thread-exception? _e87892_) - (macro-inactive-thread-exception-arguments _e87892_) + (unchecked-slot-ref _exn87820_ 'exception)))) + (if (macro-inactive-thread-exception? _e87822_) + (macro-inactive-thread-exception-arguments _e87822_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp92807 + (let ((__tmp92737 (let () (declare (not safe)) - (cons _e87892_ '())))) + (cons _e87822_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp92807))))) - (if (macro-inactive-thread-exception? _exn87890_) - (macro-inactive-thread-exception-arguments _exn87890_) + __tmp92737))))) + (if (macro-inactive-thread-exception? _exn87820_) + (macro-inactive-thread-exception-arguments _exn87820_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp92806 + (let ((__tmp92736 (let () (declare (not safe)) - (cons _exn87890_ '())))) + (cons _exn87820_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp92806))))))) + __tmp92736))))))) (define inactive-thread-exception-procedure - (lambda (_exn87884_) + (lambda (_exn87814_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87884_)) - (let ((_e87887_ + (class-instance? RuntimeException::t _exn87814_)) + (let ((_e87817_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87884_ 'exception)))) - (if (macro-inactive-thread-exception? _e87887_) - (macro-inactive-thread-exception-procedure _e87887_) + (unchecked-slot-ref _exn87814_ 'exception)))) + (if (macro-inactive-thread-exception? _e87817_) + (macro-inactive-thread-exception-procedure _e87817_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp92809 + (let ((__tmp92739 (let () (declare (not safe)) - (cons _e87887_ '())))) + (cons _e87817_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp92809))))) - (if (macro-inactive-thread-exception? _exn87884_) - (macro-inactive-thread-exception-procedure _exn87884_) + __tmp92739))))) + (if (macro-inactive-thread-exception? _exn87814_) + (macro-inactive-thread-exception-procedure _exn87814_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp92808 + (let ((__tmp92738 (let () (declare (not safe)) - (cons _exn87884_ '())))) + (cons _exn87814_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp92808))))))) + __tmp92738))))))) (define initialized-thread-exception? - (lambda (_exn87880_) + (lambda (_exn87810_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87880_)) - (let ((_e87882_ + (class-instance? RuntimeException::t _exn87810_)) + (let ((_e87812_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87880_ 'exception)))) - (macro-initialized-thread-exception? _e87882_)) - (macro-initialized-thread-exception? _exn87880_)))) + (unchecked-slot-ref _exn87810_ 'exception)))) + (macro-initialized-thread-exception? _e87812_)) + (macro-initialized-thread-exception? _exn87810_)))) (define initialized-thread-exception-arguments - (lambda (_exn87876_) + (lambda (_exn87806_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87876_)) - (let ((_e87878_ + (class-instance? RuntimeException::t _exn87806_)) + (let ((_e87808_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87876_ 'exception)))) - (if (macro-initialized-thread-exception? _e87878_) - (macro-initialized-thread-exception-arguments _e87878_) + (unchecked-slot-ref _exn87806_ 'exception)))) + (if (macro-initialized-thread-exception? _e87808_) + (macro-initialized-thread-exception-arguments _e87808_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp92811 + (let ((__tmp92741 (let () (declare (not safe)) - (cons _e87878_ '())))) + (cons _e87808_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp92811))))) - (if (macro-initialized-thread-exception? _exn87876_) - (macro-initialized-thread-exception-arguments _exn87876_) + __tmp92741))))) + (if (macro-initialized-thread-exception? _exn87806_) + (macro-initialized-thread-exception-arguments _exn87806_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp92810 + (let ((__tmp92740 (let () (declare (not safe)) - (cons _exn87876_ '())))) + (cons _exn87806_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp92810))))))) + __tmp92740))))))) (define initialized-thread-exception-procedure - (lambda (_exn87870_) + (lambda (_exn87800_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87870_)) - (let ((_e87873_ + (class-instance? RuntimeException::t _exn87800_)) + (let ((_e87803_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87870_ 'exception)))) - (if (macro-initialized-thread-exception? _e87873_) - (macro-initialized-thread-exception-procedure _e87873_) + (unchecked-slot-ref _exn87800_ 'exception)))) + (if (macro-initialized-thread-exception? _e87803_) + (macro-initialized-thread-exception-procedure _e87803_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp92813 + (let ((__tmp92743 (let () (declare (not safe)) - (cons _e87873_ '())))) + (cons _e87803_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp92813))))) - (if (macro-initialized-thread-exception? _exn87870_) - (macro-initialized-thread-exception-procedure _exn87870_) + __tmp92743))))) + (if (macro-initialized-thread-exception? _exn87800_) + (macro-initialized-thread-exception-procedure _exn87800_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp92812 + (let ((__tmp92742 (let () (declare (not safe)) - (cons _exn87870_ '())))) + (cons _exn87800_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp92812))))))) + __tmp92742))))))) (define invalid-hash-number-exception? - (lambda (_exn87866_) + (lambda (_exn87796_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87866_)) - (let ((_e87868_ + (class-instance? RuntimeException::t _exn87796_)) + (let ((_e87798_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87866_ 'exception)))) - (macro-invalid-hash-number-exception? _e87868_)) - (macro-invalid-hash-number-exception? _exn87866_)))) + (unchecked-slot-ref _exn87796_ 'exception)))) + (macro-invalid-hash-number-exception? _e87798_)) + (macro-invalid-hash-number-exception? _exn87796_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn87862_) + (lambda (_exn87792_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87862_)) - (let ((_e87864_ + (class-instance? RuntimeException::t _exn87792_)) + (let ((_e87794_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87862_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e87864_) - (macro-invalid-hash-number-exception-arguments _e87864_) + (unchecked-slot-ref _exn87792_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e87794_) + (macro-invalid-hash-number-exception-arguments _e87794_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp92815 + (let ((__tmp92745 (let () (declare (not safe)) - (cons _e87864_ '())))) + (cons _e87794_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp92815))))) - (if (macro-invalid-hash-number-exception? _exn87862_) - (macro-invalid-hash-number-exception-arguments _exn87862_) + __tmp92745))))) + (if (macro-invalid-hash-number-exception? _exn87792_) + (macro-invalid-hash-number-exception-arguments _exn87792_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp92814 + (let ((__tmp92744 (let () (declare (not safe)) - (cons _exn87862_ '())))) + (cons _exn87792_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp92814))))))) + __tmp92744))))))) (define invalid-hash-number-exception-procedure - (lambda (_exn87856_) + (lambda (_exn87786_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87856_)) - (let ((_e87859_ + (class-instance? RuntimeException::t _exn87786_)) + (let ((_e87789_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87856_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e87859_) - (macro-invalid-hash-number-exception-procedure _e87859_) + (unchecked-slot-ref _exn87786_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e87789_) + (macro-invalid-hash-number-exception-procedure _e87789_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp92817 + (let ((__tmp92747 (let () (declare (not safe)) - (cons _e87859_ '())))) + (cons _e87789_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp92817))))) - (if (macro-invalid-hash-number-exception? _exn87856_) - (macro-invalid-hash-number-exception-procedure _exn87856_) + __tmp92747))))) + (if (macro-invalid-hash-number-exception? _exn87786_) + (macro-invalid-hash-number-exception-procedure _exn87786_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp92816 + (let ((__tmp92746 (let () (declare (not safe)) - (cons _exn87856_ '())))) + (cons _exn87786_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp92816))))))) + __tmp92746))))))) (define invalid-utf8-encoding-exception? - (lambda (_exn87852_) + (lambda (_exn87782_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87852_)) - (let ((_e87854_ + (class-instance? RuntimeException::t _exn87782_)) + (let ((_e87784_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87852_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e87854_)) - (macro-invalid-utf8-encoding-exception? _exn87852_)))) + (unchecked-slot-ref _exn87782_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e87784_)) + (macro-invalid-utf8-encoding-exception? _exn87782_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn87848_) + (lambda (_exn87778_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87848_)) - (let ((_e87850_ + (class-instance? RuntimeException::t _exn87778_)) + (let ((_e87780_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87848_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e87850_) - (macro-invalid-utf8-encoding-exception-arguments _e87850_) + (unchecked-slot-ref _exn87778_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e87780_) + (macro-invalid-utf8-encoding-exception-arguments _e87780_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp92819 + (let ((__tmp92749 (let () (declare (not safe)) - (cons _e87850_ '())))) + (cons _e87780_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp92819))))) - (if (macro-invalid-utf8-encoding-exception? _exn87848_) - (macro-invalid-utf8-encoding-exception-arguments _exn87848_) + __tmp92749))))) + (if (macro-invalid-utf8-encoding-exception? _exn87778_) + (macro-invalid-utf8-encoding-exception-arguments _exn87778_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp92818 + (let ((__tmp92748 (let () (declare (not safe)) - (cons _exn87848_ '())))) + (cons _exn87778_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp92818))))))) + __tmp92748))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn87842_) + (lambda (_exn87772_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87842_)) - (let ((_e87845_ + (class-instance? RuntimeException::t _exn87772_)) + (let ((_e87775_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87842_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e87845_) - (macro-invalid-utf8-encoding-exception-procedure _e87845_) + (unchecked-slot-ref _exn87772_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e87775_) + (macro-invalid-utf8-encoding-exception-procedure _e87775_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp92821 + (let ((__tmp92751 (let () (declare (not safe)) - (cons _e87845_ '())))) + (cons _e87775_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp92821))))) - (if (macro-invalid-utf8-encoding-exception? _exn87842_) - (macro-invalid-utf8-encoding-exception-procedure _exn87842_) + __tmp92751))))) + (if (macro-invalid-utf8-encoding-exception? _exn87772_) + (macro-invalid-utf8-encoding-exception-procedure _exn87772_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp92820 + (let ((__tmp92750 (let () (declare (not safe)) - (cons _exn87842_ '())))) + (cons _exn87772_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp92820))))))) + __tmp92750))))))) (define join-timeout-exception? - (lambda (_exn87838_) + (lambda (_exn87768_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87838_)) - (let ((_e87840_ + (class-instance? RuntimeException::t _exn87768_)) + (let ((_e87770_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87838_ 'exception)))) - (macro-join-timeout-exception? _e87840_)) - (macro-join-timeout-exception? _exn87838_)))) + (unchecked-slot-ref _exn87768_ 'exception)))) + (macro-join-timeout-exception? _e87770_)) + (macro-join-timeout-exception? _exn87768_)))) (define join-timeout-exception-arguments - (lambda (_exn87834_) + (lambda (_exn87764_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87834_)) - (let ((_e87836_ + (class-instance? RuntimeException::t _exn87764_)) + (let ((_e87766_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87834_ 'exception)))) - (if (macro-join-timeout-exception? _e87836_) - (macro-join-timeout-exception-arguments _e87836_) + (unchecked-slot-ref _exn87764_ 'exception)))) + (if (macro-join-timeout-exception? _e87766_) + (macro-join-timeout-exception-arguments _e87766_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp92823 + (let ((__tmp92753 (let () (declare (not safe)) - (cons _e87836_ '())))) + (cons _e87766_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp92823))))) - (if (macro-join-timeout-exception? _exn87834_) - (macro-join-timeout-exception-arguments _exn87834_) + __tmp92753))))) + (if (macro-join-timeout-exception? _exn87764_) + (macro-join-timeout-exception-arguments _exn87764_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp92822 + (let ((__tmp92752 (let () (declare (not safe)) - (cons _exn87834_ '())))) + (cons _exn87764_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp92822))))))) + __tmp92752))))))) (define join-timeout-exception-procedure - (lambda (_exn87828_) + (lambda (_exn87758_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87828_)) - (let ((_e87831_ + (class-instance? RuntimeException::t _exn87758_)) + (let ((_e87761_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87828_ 'exception)))) - (if (macro-join-timeout-exception? _e87831_) - (macro-join-timeout-exception-procedure _e87831_) + (unchecked-slot-ref _exn87758_ 'exception)))) + (if (macro-join-timeout-exception? _e87761_) + (macro-join-timeout-exception-procedure _e87761_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp92825 + (let ((__tmp92755 (let () (declare (not safe)) - (cons _e87831_ '())))) + (cons _e87761_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp92825))))) - (if (macro-join-timeout-exception? _exn87828_) - (macro-join-timeout-exception-procedure _exn87828_) + __tmp92755))))) + (if (macro-join-timeout-exception? _exn87758_) + (macro-join-timeout-exception-procedure _exn87758_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp92824 + (let ((__tmp92754 (let () (declare (not safe)) - (cons _exn87828_ '())))) + (cons _exn87758_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp92824))))))) + __tmp92754))))))) (define keyword-expected-exception? - (lambda (_exn87824_) + (lambda (_exn87754_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87824_)) - (let ((_e87826_ + (class-instance? RuntimeException::t _exn87754_)) + (let ((_e87756_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87824_ 'exception)))) - (macro-keyword-expected-exception? _e87826_)) - (macro-keyword-expected-exception? _exn87824_)))) + (unchecked-slot-ref _exn87754_ 'exception)))) + (macro-keyword-expected-exception? _e87756_)) + (macro-keyword-expected-exception? _exn87754_)))) (define keyword-expected-exception-arguments - (lambda (_exn87820_) + (lambda (_exn87750_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87820_)) - (let ((_e87822_ + (class-instance? RuntimeException::t _exn87750_)) + (let ((_e87752_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87820_ 'exception)))) - (if (macro-keyword-expected-exception? _e87822_) - (macro-keyword-expected-exception-arguments _e87822_) + (unchecked-slot-ref _exn87750_ 'exception)))) + (if (macro-keyword-expected-exception? _e87752_) + (macro-keyword-expected-exception-arguments _e87752_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp92827 + (let ((__tmp92757 (let () (declare (not safe)) - (cons _e87822_ '())))) + (cons _e87752_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp92827))))) - (if (macro-keyword-expected-exception? _exn87820_) - (macro-keyword-expected-exception-arguments _exn87820_) + __tmp92757))))) + (if (macro-keyword-expected-exception? _exn87750_) + (macro-keyword-expected-exception-arguments _exn87750_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp92826 + (let ((__tmp92756 (let () (declare (not safe)) - (cons _exn87820_ '())))) + (cons _exn87750_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp92826))))))) + __tmp92756))))))) (define keyword-expected-exception-procedure - (lambda (_exn87814_) + (lambda (_exn87744_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87814_)) - (let ((_e87817_ + (class-instance? RuntimeException::t _exn87744_)) + (let ((_e87747_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87814_ 'exception)))) - (if (macro-keyword-expected-exception? _e87817_) - (macro-keyword-expected-exception-procedure _e87817_) + (unchecked-slot-ref _exn87744_ 'exception)))) + (if (macro-keyword-expected-exception? _e87747_) + (macro-keyword-expected-exception-procedure _e87747_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp92829 + (let ((__tmp92759 (let () (declare (not safe)) - (cons _e87817_ '())))) + (cons _e87747_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp92829))))) - (if (macro-keyword-expected-exception? _exn87814_) - (macro-keyword-expected-exception-procedure _exn87814_) + __tmp92759))))) + (if (macro-keyword-expected-exception? _exn87744_) + (macro-keyword-expected-exception-procedure _exn87744_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp92828 + (let ((__tmp92758 (let () (declare (not safe)) - (cons _exn87814_ '())))) + (cons _exn87744_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp92828))))))) + __tmp92758))))))) (define length-mismatch-exception? - (lambda (_exn87810_) + (lambda (_exn87740_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87810_)) - (let ((_e87812_ + (class-instance? RuntimeException::t _exn87740_)) + (let ((_e87742_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87810_ 'exception)))) - (macro-length-mismatch-exception? _e87812_)) - (macro-length-mismatch-exception? _exn87810_)))) + (unchecked-slot-ref _exn87740_ 'exception)))) + (macro-length-mismatch-exception? _e87742_)) + (macro-length-mismatch-exception? _exn87740_)))) (define length-mismatch-exception-arg-id - (lambda (_exn87806_) + (lambda (_exn87736_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87806_)) - (let ((_e87808_ + (class-instance? RuntimeException::t _exn87736_)) + (let ((_e87738_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87806_ 'exception)))) - (if (macro-length-mismatch-exception? _e87808_) - (macro-length-mismatch-exception-arg-id _e87808_) + (unchecked-slot-ref _exn87736_ 'exception)))) + (if (macro-length-mismatch-exception? _e87738_) + (macro-length-mismatch-exception-arg-id _e87738_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp92831 + (let ((__tmp92761 (let () (declare (not safe)) - (cons _e87808_ '())))) + (cons _e87738_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp92831))))) - (if (macro-length-mismatch-exception? _exn87806_) - (macro-length-mismatch-exception-arg-id _exn87806_) + __tmp92761))))) + (if (macro-length-mismatch-exception? _exn87736_) + (macro-length-mismatch-exception-arg-id _exn87736_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp92830 + (let ((__tmp92760 (let () (declare (not safe)) - (cons _exn87806_ '())))) + (cons _exn87736_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp92830))))))) + __tmp92760))))))) (define length-mismatch-exception-arguments - (lambda (_exn87802_) + (lambda (_exn87732_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87802_)) - (let ((_e87804_ + (class-instance? RuntimeException::t _exn87732_)) + (let ((_e87734_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87802_ 'exception)))) - (if (macro-length-mismatch-exception? _e87804_) - (macro-length-mismatch-exception-arguments _e87804_) + (unchecked-slot-ref _exn87732_ 'exception)))) + (if (macro-length-mismatch-exception? _e87734_) + (macro-length-mismatch-exception-arguments _e87734_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp92833 + (let ((__tmp92763 (let () (declare (not safe)) - (cons _e87804_ '())))) + (cons _e87734_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp92833))))) - (if (macro-length-mismatch-exception? _exn87802_) - (macro-length-mismatch-exception-arguments _exn87802_) + __tmp92763))))) + (if (macro-length-mismatch-exception? _exn87732_) + (macro-length-mismatch-exception-arguments _exn87732_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp92832 + (let ((__tmp92762 (let () (declare (not safe)) - (cons _exn87802_ '())))) + (cons _exn87732_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp92832))))))) + __tmp92762))))))) (define length-mismatch-exception-procedure - (lambda (_exn87796_) + (lambda (_exn87726_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87796_)) - (let ((_e87799_ + (class-instance? RuntimeException::t _exn87726_)) + (let ((_e87729_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87796_ 'exception)))) - (if (macro-length-mismatch-exception? _e87799_) - (macro-length-mismatch-exception-procedure _e87799_) + (unchecked-slot-ref _exn87726_ 'exception)))) + (if (macro-length-mismatch-exception? _e87729_) + (macro-length-mismatch-exception-procedure _e87729_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp92835 + (let ((__tmp92765 (let () (declare (not safe)) - (cons _e87799_ '())))) + (cons _e87729_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp92835))))) - (if (macro-length-mismatch-exception? _exn87796_) - (macro-length-mismatch-exception-procedure _exn87796_) + __tmp92765))))) + (if (macro-length-mismatch-exception? _exn87726_) + (macro-length-mismatch-exception-procedure _exn87726_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp92834 + (let ((__tmp92764 (let () (declare (not safe)) - (cons _exn87796_ '())))) + (cons _exn87726_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp92834))))))) + __tmp92764))))))) (define mailbox-receive-timeout-exception? - (lambda (_exn87792_) + (lambda (_exn87722_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87792_)) - (let ((_e87794_ + (class-instance? RuntimeException::t _exn87722_)) + (let ((_e87724_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87792_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e87794_)) - (macro-mailbox-receive-timeout-exception? _exn87792_)))) + (unchecked-slot-ref _exn87722_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e87724_)) + (macro-mailbox-receive-timeout-exception? _exn87722_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn87788_) + (lambda (_exn87718_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87788_)) - (let ((_e87790_ + (class-instance? RuntimeException::t _exn87718_)) + (let ((_e87720_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87788_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e87790_) - (macro-mailbox-receive-timeout-exception-arguments _e87790_) + (unchecked-slot-ref _exn87718_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e87720_) + (macro-mailbox-receive-timeout-exception-arguments _e87720_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp92837 + (let ((__tmp92767 (let () (declare (not safe)) - (cons _e87790_ '())))) + (cons _e87720_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp92837))))) - (if (macro-mailbox-receive-timeout-exception? _exn87788_) - (macro-mailbox-receive-timeout-exception-arguments _exn87788_) + __tmp92767))))) + (if (macro-mailbox-receive-timeout-exception? _exn87718_) + (macro-mailbox-receive-timeout-exception-arguments _exn87718_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp92836 + (let ((__tmp92766 (let () (declare (not safe)) - (cons _exn87788_ '())))) + (cons _exn87718_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp92836))))))) + __tmp92766))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn87782_) + (lambda (_exn87712_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87782_)) - (let ((_e87785_ + (class-instance? RuntimeException::t _exn87712_)) + (let ((_e87715_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87782_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e87785_) - (macro-mailbox-receive-timeout-exception-procedure _e87785_) + (unchecked-slot-ref _exn87712_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e87715_) + (macro-mailbox-receive-timeout-exception-procedure _e87715_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp92839 + (let ((__tmp92769 (let () (declare (not safe)) - (cons _e87785_ '())))) + (cons _e87715_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp92839))))) - (if (macro-mailbox-receive-timeout-exception? _exn87782_) - (macro-mailbox-receive-timeout-exception-procedure _exn87782_) + __tmp92769))))) + (if (macro-mailbox-receive-timeout-exception? _exn87712_) + (macro-mailbox-receive-timeout-exception-procedure _exn87712_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp92838 + (let ((__tmp92768 (let () (declare (not safe)) - (cons _exn87782_ '())))) + (cons _exn87712_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp92838))))))) + __tmp92768))))))) (define module-not-found-exception? - (lambda (_exn87778_) + (lambda (_exn87708_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87778_)) - (let ((_e87780_ + (class-instance? RuntimeException::t _exn87708_)) + (let ((_e87710_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87778_ 'exception)))) - (macro-module-not-found-exception? _e87780_)) - (macro-module-not-found-exception? _exn87778_)))) + (unchecked-slot-ref _exn87708_ 'exception)))) + (macro-module-not-found-exception? _e87710_)) + (macro-module-not-found-exception? _exn87708_)))) (define module-not-found-exception-arguments - (lambda (_exn87774_) + (lambda (_exn87704_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87774_)) - (let ((_e87776_ + (class-instance? RuntimeException::t _exn87704_)) + (let ((_e87706_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87774_ 'exception)))) - (if (macro-module-not-found-exception? _e87776_) - (macro-module-not-found-exception-arguments _e87776_) + (unchecked-slot-ref _exn87704_ 'exception)))) + (if (macro-module-not-found-exception? _e87706_) + (macro-module-not-found-exception-arguments _e87706_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp92841 + (let ((__tmp92771 (let () (declare (not safe)) - (cons _e87776_ '())))) + (cons _e87706_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp92841))))) - (if (macro-module-not-found-exception? _exn87774_) - (macro-module-not-found-exception-arguments _exn87774_) + __tmp92771))))) + (if (macro-module-not-found-exception? _exn87704_) + (macro-module-not-found-exception-arguments _exn87704_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp92840 + (let ((__tmp92770 (let () (declare (not safe)) - (cons _exn87774_ '())))) + (cons _exn87704_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp92840))))))) + __tmp92770))))))) (define module-not-found-exception-procedure - (lambda (_exn87768_) + (lambda (_exn87698_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87768_)) - (let ((_e87771_ + (class-instance? RuntimeException::t _exn87698_)) + (let ((_e87701_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87768_ 'exception)))) - (if (macro-module-not-found-exception? _e87771_) - (macro-module-not-found-exception-procedure _e87771_) + (unchecked-slot-ref _exn87698_ 'exception)))) + (if (macro-module-not-found-exception? _e87701_) + (macro-module-not-found-exception-procedure _e87701_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp92843 + (let ((__tmp92773 (let () (declare (not safe)) - (cons _e87771_ '())))) + (cons _e87701_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp92843))))) - (if (macro-module-not-found-exception? _exn87768_) - (macro-module-not-found-exception-procedure _exn87768_) + __tmp92773))))) + (if (macro-module-not-found-exception? _exn87698_) + (macro-module-not-found-exception-procedure _exn87698_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp92842 + (let ((__tmp92772 (let () (declare (not safe)) - (cons _exn87768_ '())))) + (cons _exn87698_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp92842))))))) + __tmp92772))))))) (define multiple-c-return-exception? - (lambda (_exn87762_) + (lambda (_exn87692_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87762_)) - (let ((_e87765_ + (class-instance? RuntimeException::t _exn87692_)) + (let ((_e87695_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87762_ 'exception)))) - (macro-multiple-c-return-exception? _e87765_)) - (macro-multiple-c-return-exception? _exn87762_)))) + (unchecked-slot-ref _exn87692_ 'exception)))) + (macro-multiple-c-return-exception? _e87695_)) + (macro-multiple-c-return-exception? _exn87692_)))) (define no-such-file-or-directory-exception? - (lambda (_exn87758_) + (lambda (_exn87688_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87758_)) - (let ((_e87760_ + (class-instance? RuntimeException::t _exn87688_)) + (let ((_e87690_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87758_ 'exception)))) - (macro-no-such-file-or-directory-exception? _e87760_)) - (macro-no-such-file-or-directory-exception? _exn87758_)))) + (unchecked-slot-ref _exn87688_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e87690_)) + (macro-no-such-file-or-directory-exception? _exn87688_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn87754_) + (lambda (_exn87684_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87754_)) - (let ((_e87756_ + (class-instance? RuntimeException::t _exn87684_)) + (let ((_e87686_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87754_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e87756_) + (unchecked-slot-ref _exn87684_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e87686_) (macro-no-such-file-or-directory-exception-arguments - _e87756_) + _e87686_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp92845 + (let ((__tmp92775 (let () (declare (not safe)) - (cons _e87756_ '())))) + (cons _e87686_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp92845))))) - (if (macro-no-such-file-or-directory-exception? _exn87754_) + __tmp92775))))) + (if (macro-no-such-file-or-directory-exception? _exn87684_) (macro-no-such-file-or-directory-exception-arguments - _exn87754_) + _exn87684_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp92844 + (let ((__tmp92774 (let () (declare (not safe)) - (cons _exn87754_ '())))) + (cons _exn87684_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp92844))))))) + __tmp92774))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn87748_) + (lambda (_exn87678_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87748_)) - (let ((_e87751_ + (class-instance? RuntimeException::t _exn87678_)) + (let ((_e87681_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87748_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e87751_) + (unchecked-slot-ref _exn87678_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e87681_) (macro-no-such-file-or-directory-exception-procedure - _e87751_) + _e87681_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp92847 + (let ((__tmp92777 (let () (declare (not safe)) - (cons _e87751_ '())))) + (cons _e87681_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp92847))))) - (if (macro-no-such-file-or-directory-exception? _exn87748_) + __tmp92777))))) + (if (macro-no-such-file-or-directory-exception? _exn87678_) (macro-no-such-file-or-directory-exception-procedure - _exn87748_) + _exn87678_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp92846 + (let ((__tmp92776 (let () (declare (not safe)) - (cons _exn87748_ '())))) + (cons _exn87678_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp92846))))))) + __tmp92776))))))) (define noncontinuable-exception? - (lambda (_exn87744_) + (lambda (_exn87674_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87744_)) - (let ((_e87746_ + (class-instance? RuntimeException::t _exn87674_)) + (let ((_e87676_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87744_ 'exception)))) - (macro-noncontinuable-exception? _e87746_)) - (macro-noncontinuable-exception? _exn87744_)))) + (unchecked-slot-ref _exn87674_ 'exception)))) + (macro-noncontinuable-exception? _e87676_)) + (macro-noncontinuable-exception? _exn87674_)))) (define noncontinuable-exception-reason - (lambda (_exn87738_) + (lambda (_exn87668_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87738_)) - (let ((_e87741_ + (class-instance? RuntimeException::t _exn87668_)) + (let ((_e87671_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87738_ 'exception)))) - (if (macro-noncontinuable-exception? _e87741_) - (macro-noncontinuable-exception-reason _e87741_) + (unchecked-slot-ref _exn87668_ 'exception)))) + (if (macro-noncontinuable-exception? _e87671_) + (macro-noncontinuable-exception-reason _e87671_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp92849 + (let ((__tmp92779 (let () (declare (not safe)) - (cons _e87741_ '())))) + (cons _e87671_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp92849))))) - (if (macro-noncontinuable-exception? _exn87738_) - (macro-noncontinuable-exception-reason _exn87738_) + __tmp92779))))) + (if (macro-noncontinuable-exception? _exn87668_) + (macro-noncontinuable-exception-reason _exn87668_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp92848 + (let ((__tmp92778 (let () (declare (not safe)) - (cons _exn87738_ '())))) + (cons _exn87668_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp92848))))))) + __tmp92778))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn87734_) + (lambda (_exn87664_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87734_)) - (let ((_e87736_ + (class-instance? RuntimeException::t _exn87664_)) + (let ((_e87666_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87734_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e87736_)) + (unchecked-slot-ref _exn87664_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e87666_)) (macro-nonempty-input-port-character-buffer-exception? - _exn87734_)))) + _exn87664_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn87730_) + (lambda (_exn87660_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87730_)) - (let ((_e87732_ + (class-instance? RuntimeException::t _exn87660_)) + (let ((_e87662_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87730_ 'exception)))) + (unchecked-slot-ref _exn87660_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e87732_) + _e87662_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e87732_) + _e87662_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp92851 + (let ((__tmp92781 (let () (declare (not safe)) - (cons _e87732_ '())))) + (cons _e87662_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp92851))))) + __tmp92781))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn87730_) + _exn87660_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn87730_) + _exn87660_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp92850 + (let ((__tmp92780 (let () (declare (not safe)) - (cons _exn87730_ '())))) + (cons _exn87660_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp92850))))))) + __tmp92780))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn87724_) + (lambda (_exn87654_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87724_)) - (let ((_e87727_ + (class-instance? RuntimeException::t _exn87654_)) + (let ((_e87657_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87724_ 'exception)))) + (unchecked-slot-ref _exn87654_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e87727_) + _e87657_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e87727_) + _e87657_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp92853 + (let ((__tmp92783 (let () (declare (not safe)) - (cons _e87727_ '())))) + (cons _e87657_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp92853))))) + __tmp92783))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn87724_) + _exn87654_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn87724_) + _exn87654_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp92852 + (let ((__tmp92782 (let () (declare (not safe)) - (cons _exn87724_ '())))) + (cons _exn87654_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp92852))))))) + __tmp92782))))))) (define nonprocedure-operator-exception? - (lambda (_exn87720_) + (lambda (_exn87650_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87720_)) - (let ((_e87722_ + (class-instance? RuntimeException::t _exn87650_)) + (let ((_e87652_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87720_ 'exception)))) - (macro-nonprocedure-operator-exception? _e87722_)) - (macro-nonprocedure-operator-exception? _exn87720_)))) + (unchecked-slot-ref _exn87650_ 'exception)))) + (macro-nonprocedure-operator-exception? _e87652_)) + (macro-nonprocedure-operator-exception? _exn87650_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn87716_) + (lambda (_exn87646_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87716_)) - (let ((_e87718_ + (class-instance? RuntimeException::t _exn87646_)) + (let ((_e87648_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87716_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e87718_) - (macro-nonprocedure-operator-exception-arguments _e87718_) + (unchecked-slot-ref _exn87646_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e87648_) + (macro-nonprocedure-operator-exception-arguments _e87648_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp92855 + (let ((__tmp92785 (let () (declare (not safe)) - (cons _e87718_ '())))) + (cons _e87648_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp92855))))) - (if (macro-nonprocedure-operator-exception? _exn87716_) - (macro-nonprocedure-operator-exception-arguments _exn87716_) + __tmp92785))))) + (if (macro-nonprocedure-operator-exception? _exn87646_) + (macro-nonprocedure-operator-exception-arguments _exn87646_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp92854 + (let ((__tmp92784 (let () (declare (not safe)) - (cons _exn87716_ '())))) + (cons _exn87646_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp92854))))))) + __tmp92784))))))) (define nonprocedure-operator-exception-code - (lambda (_exn87712_) + (lambda (_exn87642_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87712_)) - (let ((_e87714_ + (class-instance? RuntimeException::t _exn87642_)) + (let ((_e87644_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87712_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e87714_) - (macro-nonprocedure-operator-exception-code _e87714_) + (unchecked-slot-ref _exn87642_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e87644_) + (macro-nonprocedure-operator-exception-code _e87644_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp92857 + (let ((__tmp92787 (let () (declare (not safe)) - (cons _e87714_ '())))) + (cons _e87644_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp92857))))) - (if (macro-nonprocedure-operator-exception? _exn87712_) - (macro-nonprocedure-operator-exception-code _exn87712_) + __tmp92787))))) + (if (macro-nonprocedure-operator-exception? _exn87642_) + (macro-nonprocedure-operator-exception-code _exn87642_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp92856 + (let ((__tmp92786 (let () (declare (not safe)) - (cons _exn87712_ '())))) + (cons _exn87642_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp92856))))))) + __tmp92786))))))) (define nonprocedure-operator-exception-operator - (lambda (_exn87708_) + (lambda (_exn87638_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87708_)) - (let ((_e87710_ + (class-instance? RuntimeException::t _exn87638_)) + (let ((_e87640_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87708_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e87710_) - (macro-nonprocedure-operator-exception-operator _e87710_) + (unchecked-slot-ref _exn87638_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e87640_) + (macro-nonprocedure-operator-exception-operator _e87640_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp92859 + (let ((__tmp92789 (let () (declare (not safe)) - (cons _e87710_ '())))) + (cons _e87640_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp92859))))) - (if (macro-nonprocedure-operator-exception? _exn87708_) - (macro-nonprocedure-operator-exception-operator _exn87708_) + __tmp92789))))) + (if (macro-nonprocedure-operator-exception? _exn87638_) + (macro-nonprocedure-operator-exception-operator _exn87638_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp92858 + (let ((__tmp92788 (let () (declare (not safe)) - (cons _exn87708_ '())))) + (cons _exn87638_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp92858))))))) + __tmp92788))))))) (define nonprocedure-operator-exception-rte - (lambda (_exn87702_) + (lambda (_exn87632_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87702_)) - (let ((_e87705_ + (class-instance? RuntimeException::t _exn87632_)) + (let ((_e87635_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87702_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e87705_) - (macro-nonprocedure-operator-exception-rte _e87705_) + (unchecked-slot-ref _exn87632_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e87635_) + (macro-nonprocedure-operator-exception-rte _e87635_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp92861 + (let ((__tmp92791 (let () (declare (not safe)) - (cons _e87705_ '())))) + (cons _e87635_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp92861))))) - (if (macro-nonprocedure-operator-exception? _exn87702_) - (macro-nonprocedure-operator-exception-rte _exn87702_) + __tmp92791))))) + (if (macro-nonprocedure-operator-exception? _exn87632_) + (macro-nonprocedure-operator-exception-rte _exn87632_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp92860 + (let ((__tmp92790 (let () (declare (not safe)) - (cons _exn87702_ '())))) + (cons _exn87632_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp92860))))))) + __tmp92790))))))) (define not-in-compilation-context-exception? - (lambda (_exn87698_) + (lambda (_exn87628_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87698_)) - (let ((_e87700_ + (class-instance? RuntimeException::t _exn87628_)) + (let ((_e87630_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87698_ 'exception)))) - (macro-not-in-compilation-context-exception? _e87700_)) - (macro-not-in-compilation-context-exception? _exn87698_)))) + (unchecked-slot-ref _exn87628_ 'exception)))) + (macro-not-in-compilation-context-exception? _e87630_)) + (macro-not-in-compilation-context-exception? _exn87628_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn87694_) + (lambda (_exn87624_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87694_)) - (let ((_e87696_ + (class-instance? RuntimeException::t _exn87624_)) + (let ((_e87626_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87694_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e87696_) + (unchecked-slot-ref _exn87624_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e87626_) (macro-not-in-compilation-context-exception-arguments - _e87696_) + _e87626_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp92863 + (let ((__tmp92793 (let () (declare (not safe)) - (cons _e87696_ '())))) + (cons _e87626_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp92863))))) - (if (macro-not-in-compilation-context-exception? _exn87694_) + __tmp92793))))) + (if (macro-not-in-compilation-context-exception? _exn87624_) (macro-not-in-compilation-context-exception-arguments - _exn87694_) + _exn87624_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp92862 + (let ((__tmp92792 (let () (declare (not safe)) - (cons _exn87694_ '())))) + (cons _exn87624_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp92862))))))) + __tmp92792))))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn87688_) + (lambda (_exn87618_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87688_)) - (let ((_e87691_ + (class-instance? RuntimeException::t _exn87618_)) + (let ((_e87621_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87688_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e87691_) + (unchecked-slot-ref _exn87618_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e87621_) (macro-not-in-compilation-context-exception-procedure - _e87691_) + _e87621_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp92865 + (let ((__tmp92795 (let () (declare (not safe)) - (cons _e87691_ '())))) + (cons _e87621_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp92865))))) - (if (macro-not-in-compilation-context-exception? _exn87688_) + __tmp92795))))) + (if (macro-not-in-compilation-context-exception? _exn87618_) (macro-not-in-compilation-context-exception-procedure - _exn87688_) + _exn87618_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp92864 + (let ((__tmp92794 (let () (declare (not safe)) - (cons _exn87688_ '())))) + (cons _exn87618_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp92864))))))) + __tmp92794))))))) (define number-of-arguments-limit-exception? - (lambda (_exn87684_) + (lambda (_exn87614_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87684_)) - (let ((_e87686_ + (class-instance? RuntimeException::t _exn87614_)) + (let ((_e87616_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87684_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e87686_)) - (macro-number-of-arguments-limit-exception? _exn87684_)))) + (unchecked-slot-ref _exn87614_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e87616_)) + (macro-number-of-arguments-limit-exception? _exn87614_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn87680_) + (lambda (_exn87610_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87680_)) - (let ((_e87682_ + (class-instance? RuntimeException::t _exn87610_)) + (let ((_e87612_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87680_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e87682_) + (unchecked-slot-ref _exn87610_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e87612_) (macro-number-of-arguments-limit-exception-arguments - _e87682_) + _e87612_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp92867 + (let ((__tmp92797 (let () (declare (not safe)) - (cons _e87682_ '())))) + (cons _e87612_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp92867))))) - (if (macro-number-of-arguments-limit-exception? _exn87680_) + __tmp92797))))) + (if (macro-number-of-arguments-limit-exception? _exn87610_) (macro-number-of-arguments-limit-exception-arguments - _exn87680_) + _exn87610_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp92866 + (let ((__tmp92796 (let () (declare (not safe)) - (cons _exn87680_ '())))) + (cons _exn87610_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp92866))))))) + __tmp92796))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn87674_) + (lambda (_exn87604_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87674_)) - (let ((_e87677_ + (class-instance? RuntimeException::t _exn87604_)) + (let ((_e87607_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87674_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e87677_) + (unchecked-slot-ref _exn87604_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e87607_) (macro-number-of-arguments-limit-exception-procedure - _e87677_) + _e87607_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp92869 + (let ((__tmp92799 (let () (declare (not safe)) - (cons _e87677_ '())))) + (cons _e87607_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp92869))))) - (if (macro-number-of-arguments-limit-exception? _exn87674_) + __tmp92799))))) + (if (macro-number-of-arguments-limit-exception? _exn87604_) (macro-number-of-arguments-limit-exception-procedure - _exn87674_) + _exn87604_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp92868 + (let ((__tmp92798 (let () (declare (not safe)) - (cons _exn87674_ '())))) + (cons _exn87604_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp92868))))))) + __tmp92798))))))) (define os-exception? - (lambda (_exn87670_) + (lambda (_exn87600_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87670_)) - (let ((_e87672_ + (class-instance? RuntimeException::t _exn87600_)) + (let ((_e87602_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87670_ 'exception)))) - (macro-os-exception? _e87672_)) - (macro-os-exception? _exn87670_)))) + (unchecked-slot-ref _exn87600_ 'exception)))) + (macro-os-exception? _e87602_)) + (macro-os-exception? _exn87600_)))) (define os-exception-arguments - (lambda (_exn87666_) + (lambda (_exn87596_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87666_)) - (let ((_e87668_ + (class-instance? RuntimeException::t _exn87596_)) + (let ((_e87598_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87666_ 'exception)))) - (if (macro-os-exception? _e87668_) - (macro-os-exception-arguments _e87668_) + (unchecked-slot-ref _exn87596_ 'exception)))) + (if (macro-os-exception? _e87598_) + (macro-os-exception-arguments _e87598_) (error '"not an instance" 'os-exception? - (let ((__tmp92871 + (let ((__tmp92801 (let () (declare (not safe)) - (cons _e87668_ '())))) + (cons _e87598_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp92871))))) - (if (macro-os-exception? _exn87666_) - (macro-os-exception-arguments _exn87666_) + (cons 'os-exception-arguments __tmp92801))))) + (if (macro-os-exception? _exn87596_) + (macro-os-exception-arguments _exn87596_) (error '"not an instance" 'os-exception? - (let ((__tmp92870 + (let ((__tmp92800 (let () (declare (not safe)) - (cons _exn87666_ '())))) + (cons _exn87596_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp92870))))))) + (cons 'os-exception-arguments __tmp92800))))))) (define os-exception-code - (lambda (_exn87662_) + (lambda (_exn87592_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87662_)) - (let ((_e87664_ + (class-instance? RuntimeException::t _exn87592_)) + (let ((_e87594_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87662_ 'exception)))) - (if (macro-os-exception? _e87664_) - (macro-os-exception-code _e87664_) + (unchecked-slot-ref _exn87592_ 'exception)))) + (if (macro-os-exception? _e87594_) + (macro-os-exception-code _e87594_) (error '"not an instance" 'os-exception? - (let ((__tmp92873 + (let ((__tmp92803 (let () (declare (not safe)) - (cons _e87664_ '())))) + (cons _e87594_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp92873))))) - (if (macro-os-exception? _exn87662_) - (macro-os-exception-code _exn87662_) + (cons 'os-exception-code __tmp92803))))) + (if (macro-os-exception? _exn87592_) + (macro-os-exception-code _exn87592_) (error '"not an instance" 'os-exception? - (let ((__tmp92872 + (let ((__tmp92802 (let () (declare (not safe)) - (cons _exn87662_ '())))) + (cons _exn87592_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp92872))))))) + (cons 'os-exception-code __tmp92802))))))) (define os-exception-message - (lambda (_exn87658_) + (lambda (_exn87588_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87658_)) - (let ((_e87660_ + (class-instance? RuntimeException::t _exn87588_)) + (let ((_e87590_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87658_ 'exception)))) - (if (macro-os-exception? _e87660_) - (macro-os-exception-message _e87660_) + (unchecked-slot-ref _exn87588_ 'exception)))) + (if (macro-os-exception? _e87590_) + (macro-os-exception-message _e87590_) (error '"not an instance" 'os-exception? - (let ((__tmp92875 + (let ((__tmp92805 (let () (declare (not safe)) - (cons _e87660_ '())))) + (cons _e87590_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp92875))))) - (if (macro-os-exception? _exn87658_) - (macro-os-exception-message _exn87658_) + (cons 'os-exception-message __tmp92805))))) + (if (macro-os-exception? _exn87588_) + (macro-os-exception-message _exn87588_) (error '"not an instance" 'os-exception? - (let ((__tmp92874 + (let ((__tmp92804 (let () (declare (not safe)) - (cons _exn87658_ '())))) + (cons _exn87588_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp92874))))))) + (cons 'os-exception-message __tmp92804))))))) (define os-exception-procedure - (lambda (_exn87652_) + (lambda (_exn87582_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87652_)) - (let ((_e87655_ + (class-instance? RuntimeException::t _exn87582_)) + (let ((_e87585_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87652_ 'exception)))) - (if (macro-os-exception? _e87655_) - (macro-os-exception-procedure _e87655_) + (unchecked-slot-ref _exn87582_ 'exception)))) + (if (macro-os-exception? _e87585_) + (macro-os-exception-procedure _e87585_) (error '"not an instance" 'os-exception? - (let ((__tmp92877 + (let ((__tmp92807 (let () (declare (not safe)) - (cons _e87655_ '())))) + (cons _e87585_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp92877))))) - (if (macro-os-exception? _exn87652_) - (macro-os-exception-procedure _exn87652_) + (cons 'os-exception-procedure __tmp92807))))) + (if (macro-os-exception? _exn87582_) + (macro-os-exception-procedure _exn87582_) (error '"not an instance" 'os-exception? - (let ((__tmp92876 + (let ((__tmp92806 (let () (declare (not safe)) - (cons _exn87652_ '())))) + (cons _exn87582_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp92876))))))) + (cons 'os-exception-procedure __tmp92806))))))) (define permission-denied-exception? - (lambda (_exn87648_) + (lambda (_exn87578_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87648_)) - (let ((_e87650_ + (class-instance? RuntimeException::t _exn87578_)) + (let ((_e87580_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87648_ 'exception)))) - (macro-permission-denied-exception? _e87650_)) - (macro-permission-denied-exception? _exn87648_)))) + (unchecked-slot-ref _exn87578_ 'exception)))) + (macro-permission-denied-exception? _e87580_)) + (macro-permission-denied-exception? _exn87578_)))) (define permission-denied-exception-arguments - (lambda (_exn87644_) + (lambda (_exn87574_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87644_)) - (let ((_e87646_ + (class-instance? RuntimeException::t _exn87574_)) + (let ((_e87576_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87644_ 'exception)))) - (if (macro-permission-denied-exception? _e87646_) - (macro-permission-denied-exception-arguments _e87646_) + (unchecked-slot-ref _exn87574_ 'exception)))) + (if (macro-permission-denied-exception? _e87576_) + (macro-permission-denied-exception-arguments _e87576_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp92879 + (let ((__tmp92809 (let () (declare (not safe)) - (cons _e87646_ '())))) + (cons _e87576_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp92879))))) - (if (macro-permission-denied-exception? _exn87644_) - (macro-permission-denied-exception-arguments _exn87644_) + __tmp92809))))) + (if (macro-permission-denied-exception? _exn87574_) + (macro-permission-denied-exception-arguments _exn87574_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp92878 + (let ((__tmp92808 (let () (declare (not safe)) - (cons _exn87644_ '())))) + (cons _exn87574_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp92878))))))) + __tmp92808))))))) (define permission-denied-exception-procedure - (lambda (_exn87638_) + (lambda (_exn87568_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87638_)) - (let ((_e87641_ + (class-instance? RuntimeException::t _exn87568_)) + (let ((_e87571_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87638_ 'exception)))) - (if (macro-permission-denied-exception? _e87641_) - (macro-permission-denied-exception-procedure _e87641_) + (unchecked-slot-ref _exn87568_ 'exception)))) + (if (macro-permission-denied-exception? _e87571_) + (macro-permission-denied-exception-procedure _e87571_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp92881 + (let ((__tmp92811 (let () (declare (not safe)) - (cons _e87641_ '())))) + (cons _e87571_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp92881))))) - (if (macro-permission-denied-exception? _exn87638_) - (macro-permission-denied-exception-procedure _exn87638_) + __tmp92811))))) + (if (macro-permission-denied-exception? _exn87568_) + (macro-permission-denied-exception-procedure _exn87568_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp92880 + (let ((__tmp92810 (let () (declare (not safe)) - (cons _exn87638_ '())))) + (cons _exn87568_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp92880))))))) + __tmp92810))))))) (define range-exception? - (lambda (_exn87634_) + (lambda (_exn87564_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87634_)) - (let ((_e87636_ + (class-instance? RuntimeException::t _exn87564_)) + (let ((_e87566_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87634_ 'exception)))) - (macro-range-exception? _e87636_)) - (macro-range-exception? _exn87634_)))) + (unchecked-slot-ref _exn87564_ 'exception)))) + (macro-range-exception? _e87566_)) + (macro-range-exception? _exn87564_)))) (define range-exception-arg-id - (lambda (_exn87630_) + (lambda (_exn87560_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87630_)) - (let ((_e87632_ + (class-instance? RuntimeException::t _exn87560_)) + (let ((_e87562_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87630_ 'exception)))) - (if (macro-range-exception? _e87632_) - (macro-range-exception-arg-id _e87632_) + (unchecked-slot-ref _exn87560_ 'exception)))) + (if (macro-range-exception? _e87562_) + (macro-range-exception-arg-id _e87562_) (error '"not an instance" 'range-exception? - (let ((__tmp92883 + (let ((__tmp92813 (let () (declare (not safe)) - (cons _e87632_ '())))) + (cons _e87562_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp92883))))) - (if (macro-range-exception? _exn87630_) - (macro-range-exception-arg-id _exn87630_) + (cons 'range-exception-arg-id __tmp92813))))) + (if (macro-range-exception? _exn87560_) + (macro-range-exception-arg-id _exn87560_) (error '"not an instance" 'range-exception? - (let ((__tmp92882 + (let ((__tmp92812 (let () (declare (not safe)) - (cons _exn87630_ '())))) + (cons _exn87560_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp92882))))))) + (cons 'range-exception-arg-id __tmp92812))))))) (define range-exception-arguments - (lambda (_exn87626_) + (lambda (_exn87556_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87626_)) - (let ((_e87628_ + (class-instance? RuntimeException::t _exn87556_)) + (let ((_e87558_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87626_ 'exception)))) - (if (macro-range-exception? _e87628_) - (macro-range-exception-arguments _e87628_) + (unchecked-slot-ref _exn87556_ 'exception)))) + (if (macro-range-exception? _e87558_) + (macro-range-exception-arguments _e87558_) (error '"not an instance" 'range-exception? - (let ((__tmp92885 + (let ((__tmp92815 (let () (declare (not safe)) - (cons _e87628_ '())))) + (cons _e87558_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp92885))))) - (if (macro-range-exception? _exn87626_) - (macro-range-exception-arguments _exn87626_) + (cons 'range-exception-arguments __tmp92815))))) + (if (macro-range-exception? _exn87556_) + (macro-range-exception-arguments _exn87556_) (error '"not an instance" 'range-exception? - (let ((__tmp92884 + (let ((__tmp92814 (let () (declare (not safe)) - (cons _exn87626_ '())))) + (cons _exn87556_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp92884))))))) + (cons 'range-exception-arguments __tmp92814))))))) (define range-exception-procedure - (lambda (_exn87620_) + (lambda (_exn87550_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87620_)) - (let ((_e87623_ + (class-instance? RuntimeException::t _exn87550_)) + (let ((_e87553_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87620_ 'exception)))) - (if (macro-range-exception? _e87623_) - (macro-range-exception-procedure _e87623_) + (unchecked-slot-ref _exn87550_ 'exception)))) + (if (macro-range-exception? _e87553_) + (macro-range-exception-procedure _e87553_) (error '"not an instance" 'range-exception? - (let ((__tmp92887 + (let ((__tmp92817 (let () (declare (not safe)) - (cons _e87623_ '())))) + (cons _e87553_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp92887))))) - (if (macro-range-exception? _exn87620_) - (macro-range-exception-procedure _exn87620_) + (cons 'range-exception-procedure __tmp92817))))) + (if (macro-range-exception? _exn87550_) + (macro-range-exception-procedure _exn87550_) (error '"not an instance" 'range-exception? - (let ((__tmp92886 + (let ((__tmp92816 (let () (declare (not safe)) - (cons _exn87620_ '())))) + (cons _exn87550_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp92886))))))) + (cons 'range-exception-procedure __tmp92816))))))) (define rpc-remote-error-exception? - (lambda (_exn87616_) + (lambda (_exn87546_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87616_)) - (let ((_e87618_ + (class-instance? RuntimeException::t _exn87546_)) + (let ((_e87548_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87616_ 'exception)))) - (macro-rpc-remote-error-exception? _e87618_)) - (macro-rpc-remote-error-exception? _exn87616_)))) + (unchecked-slot-ref _exn87546_ 'exception)))) + (macro-rpc-remote-error-exception? _e87548_)) + (macro-rpc-remote-error-exception? _exn87546_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn87612_) + (lambda (_exn87542_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87612_)) - (let ((_e87614_ + (class-instance? RuntimeException::t _exn87542_)) + (let ((_e87544_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87612_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e87614_) - (macro-rpc-remote-error-exception-arguments _e87614_) + (unchecked-slot-ref _exn87542_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e87544_) + (macro-rpc-remote-error-exception-arguments _e87544_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp92889 + (let ((__tmp92819 (let () (declare (not safe)) - (cons _e87614_ '())))) + (cons _e87544_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp92889))))) - (if (macro-rpc-remote-error-exception? _exn87612_) - (macro-rpc-remote-error-exception-arguments _exn87612_) + __tmp92819))))) + (if (macro-rpc-remote-error-exception? _exn87542_) + (macro-rpc-remote-error-exception-arguments _exn87542_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp92888 + (let ((__tmp92818 (let () (declare (not safe)) - (cons _exn87612_ '())))) + (cons _exn87542_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp92888))))))) + __tmp92818))))))) (define rpc-remote-error-exception-message - (lambda (_exn87608_) + (lambda (_exn87538_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87608_)) - (let ((_e87610_ + (class-instance? RuntimeException::t _exn87538_)) + (let ((_e87540_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87608_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e87610_) - (macro-rpc-remote-error-exception-message _e87610_) + (unchecked-slot-ref _exn87538_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e87540_) + (macro-rpc-remote-error-exception-message _e87540_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp92891 + (let ((__tmp92821 (let () (declare (not safe)) - (cons _e87610_ '())))) + (cons _e87540_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp92891))))) - (if (macro-rpc-remote-error-exception? _exn87608_) - (macro-rpc-remote-error-exception-message _exn87608_) + __tmp92821))))) + (if (macro-rpc-remote-error-exception? _exn87538_) + (macro-rpc-remote-error-exception-message _exn87538_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp92890 + (let ((__tmp92820 (let () (declare (not safe)) - (cons _exn87608_ '())))) + (cons _exn87538_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp92890))))))) + __tmp92820))))))) (define rpc-remote-error-exception-procedure - (lambda (_exn87602_) + (lambda (_exn87532_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87602_)) - (let ((_e87605_ + (class-instance? RuntimeException::t _exn87532_)) + (let ((_e87535_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87602_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e87605_) - (macro-rpc-remote-error-exception-procedure _e87605_) + (unchecked-slot-ref _exn87532_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e87535_) + (macro-rpc-remote-error-exception-procedure _e87535_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp92893 + (let ((__tmp92823 (let () (declare (not safe)) - (cons _e87605_ '())))) + (cons _e87535_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp92893))))) - (if (macro-rpc-remote-error-exception? _exn87602_) - (macro-rpc-remote-error-exception-procedure _exn87602_) + __tmp92823))))) + (if (macro-rpc-remote-error-exception? _exn87532_) + (macro-rpc-remote-error-exception-procedure _exn87532_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp92892 + (let ((__tmp92822 (let () (declare (not safe)) - (cons _exn87602_ '())))) + (cons _exn87532_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp92892))))))) + __tmp92822))))))) (define scheduler-exception? - (lambda (_exn87598_) + (lambda (_exn87528_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87598_)) - (let ((_e87600_ + (class-instance? RuntimeException::t _exn87528_)) + (let ((_e87530_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87598_ 'exception)))) - (macro-scheduler-exception? _e87600_)) - (macro-scheduler-exception? _exn87598_)))) + (unchecked-slot-ref _exn87528_ 'exception)))) + (macro-scheduler-exception? _e87530_)) + (macro-scheduler-exception? _exn87528_)))) (define scheduler-exception-reason - (lambda (_exn87592_) + (lambda (_exn87522_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87592_)) - (let ((_e87595_ + (class-instance? RuntimeException::t _exn87522_)) + (let ((_e87525_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87592_ 'exception)))) - (if (macro-scheduler-exception? _e87595_) - (macro-scheduler-exception-reason _e87595_) + (unchecked-slot-ref _exn87522_ 'exception)))) + (if (macro-scheduler-exception? _e87525_) + (macro-scheduler-exception-reason _e87525_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp92895 + (let ((__tmp92825 (let () (declare (not safe)) - (cons _e87595_ '())))) + (cons _e87525_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp92895))))) - (if (macro-scheduler-exception? _exn87592_) - (macro-scheduler-exception-reason _exn87592_) + (cons 'scheduler-exception-reason __tmp92825))))) + (if (macro-scheduler-exception? _exn87522_) + (macro-scheduler-exception-reason _exn87522_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp92894 + (let ((__tmp92824 (let () (declare (not safe)) - (cons _exn87592_ '())))) + (cons _exn87522_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp92894))))))) + (cons 'scheduler-exception-reason __tmp92824))))))) (define sfun-conversion-exception? - (lambda (_exn87588_) + (lambda (_exn87518_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87588_)) - (let ((_e87590_ + (class-instance? RuntimeException::t _exn87518_)) + (let ((_e87520_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87588_ 'exception)))) - (macro-sfun-conversion-exception? _e87590_)) - (macro-sfun-conversion-exception? _exn87588_)))) + (unchecked-slot-ref _exn87518_ 'exception)))) + (macro-sfun-conversion-exception? _e87520_)) + (macro-sfun-conversion-exception? _exn87518_)))) (define sfun-conversion-exception-arguments - (lambda (_exn87584_) + (lambda (_exn87514_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87584_)) - (let ((_e87586_ + (class-instance? RuntimeException::t _exn87514_)) + (let ((_e87516_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87584_ 'exception)))) - (if (macro-sfun-conversion-exception? _e87586_) - (macro-sfun-conversion-exception-arguments _e87586_) + (unchecked-slot-ref _exn87514_ 'exception)))) + (if (macro-sfun-conversion-exception? _e87516_) + (macro-sfun-conversion-exception-arguments _e87516_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp92897 + (let ((__tmp92827 (let () (declare (not safe)) - (cons _e87586_ '())))) + (cons _e87516_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp92897))))) - (if (macro-sfun-conversion-exception? _exn87584_) - (macro-sfun-conversion-exception-arguments _exn87584_) + __tmp92827))))) + (if (macro-sfun-conversion-exception? _exn87514_) + (macro-sfun-conversion-exception-arguments _exn87514_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp92896 + (let ((__tmp92826 (let () (declare (not safe)) - (cons _exn87584_ '())))) + (cons _exn87514_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp92896))))))) + __tmp92826))))))) (define sfun-conversion-exception-code - (lambda (_exn87580_) + (lambda (_exn87510_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87580_)) - (let ((_e87582_ + (class-instance? RuntimeException::t _exn87510_)) + (let ((_e87512_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87580_ 'exception)))) - (if (macro-sfun-conversion-exception? _e87582_) - (macro-sfun-conversion-exception-code _e87582_) + (unchecked-slot-ref _exn87510_ 'exception)))) + (if (macro-sfun-conversion-exception? _e87512_) + (macro-sfun-conversion-exception-code _e87512_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp92899 + (let ((__tmp92829 (let () (declare (not safe)) - (cons _e87582_ '())))) + (cons _e87512_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp92899))))) - (if (macro-sfun-conversion-exception? _exn87580_) - (macro-sfun-conversion-exception-code _exn87580_) + __tmp92829))))) + (if (macro-sfun-conversion-exception? _exn87510_) + (macro-sfun-conversion-exception-code _exn87510_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp92898 + (let ((__tmp92828 (let () (declare (not safe)) - (cons _exn87580_ '())))) + (cons _exn87510_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp92898))))))) + __tmp92828))))))) (define sfun-conversion-exception-message - (lambda (_exn87576_) + (lambda (_exn87506_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87576_)) - (let ((_e87578_ + (class-instance? RuntimeException::t _exn87506_)) + (let ((_e87508_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87576_ 'exception)))) - (if (macro-sfun-conversion-exception? _e87578_) - (macro-sfun-conversion-exception-message _e87578_) + (unchecked-slot-ref _exn87506_ 'exception)))) + (if (macro-sfun-conversion-exception? _e87508_) + (macro-sfun-conversion-exception-message _e87508_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp92901 + (let ((__tmp92831 (let () (declare (not safe)) - (cons _e87578_ '())))) + (cons _e87508_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp92901))))) - (if (macro-sfun-conversion-exception? _exn87576_) - (macro-sfun-conversion-exception-message _exn87576_) + __tmp92831))))) + (if (macro-sfun-conversion-exception? _exn87506_) + (macro-sfun-conversion-exception-message _exn87506_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp92900 + (let ((__tmp92830 (let () (declare (not safe)) - (cons _exn87576_ '())))) + (cons _exn87506_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp92900))))))) + __tmp92830))))))) (define sfun-conversion-exception-procedure - (lambda (_exn87570_) + (lambda (_exn87500_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87570_)) - (let ((_e87573_ + (class-instance? RuntimeException::t _exn87500_)) + (let ((_e87503_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87570_ 'exception)))) - (if (macro-sfun-conversion-exception? _e87573_) - (macro-sfun-conversion-exception-procedure _e87573_) + (unchecked-slot-ref _exn87500_ 'exception)))) + (if (macro-sfun-conversion-exception? _e87503_) + (macro-sfun-conversion-exception-procedure _e87503_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp92903 + (let ((__tmp92833 (let () (declare (not safe)) - (cons _e87573_ '())))) + (cons _e87503_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp92903))))) - (if (macro-sfun-conversion-exception? _exn87570_) - (macro-sfun-conversion-exception-procedure _exn87570_) + __tmp92833))))) + (if (macro-sfun-conversion-exception? _exn87500_) + (macro-sfun-conversion-exception-procedure _exn87500_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp92902 + (let ((__tmp92832 (let () (declare (not safe)) - (cons _exn87570_ '())))) + (cons _exn87500_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp92902))))))) + __tmp92832))))))) (define stack-overflow-exception? - (lambda (_exn87564_) + (lambda (_exn87494_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87564_)) - (let ((_e87567_ + (class-instance? RuntimeException::t _exn87494_)) + (let ((_e87497_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87564_ 'exception)))) - (macro-stack-overflow-exception? _e87567_)) - (macro-stack-overflow-exception? _exn87564_)))) + (unchecked-slot-ref _exn87494_ 'exception)))) + (macro-stack-overflow-exception? _e87497_)) + (macro-stack-overflow-exception? _exn87494_)))) (define started-thread-exception? - (lambda (_exn87560_) + (lambda (_exn87490_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87560_)) - (let ((_e87562_ + (class-instance? RuntimeException::t _exn87490_)) + (let ((_e87492_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87560_ 'exception)))) - (macro-started-thread-exception? _e87562_)) - (macro-started-thread-exception? _exn87560_)))) + (unchecked-slot-ref _exn87490_ 'exception)))) + (macro-started-thread-exception? _e87492_)) + (macro-started-thread-exception? _exn87490_)))) (define started-thread-exception-arguments - (lambda (_exn87556_) + (lambda (_exn87486_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87556_)) - (let ((_e87558_ + (class-instance? RuntimeException::t _exn87486_)) + (let ((_e87488_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87556_ 'exception)))) - (if (macro-started-thread-exception? _e87558_) - (macro-started-thread-exception-arguments _e87558_) + (unchecked-slot-ref _exn87486_ 'exception)))) + (if (macro-started-thread-exception? _e87488_) + (macro-started-thread-exception-arguments _e87488_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp92905 + (let ((__tmp92835 (let () (declare (not safe)) - (cons _e87558_ '())))) + (cons _e87488_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp92905))))) - (if (macro-started-thread-exception? _exn87556_) - (macro-started-thread-exception-arguments _exn87556_) + __tmp92835))))) + (if (macro-started-thread-exception? _exn87486_) + (macro-started-thread-exception-arguments _exn87486_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp92904 + (let ((__tmp92834 (let () (declare (not safe)) - (cons _exn87556_ '())))) + (cons _exn87486_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp92904))))))) + __tmp92834))))))) (define started-thread-exception-procedure - (lambda (_exn87550_) + (lambda (_exn87480_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87550_)) - (let ((_e87553_ + (class-instance? RuntimeException::t _exn87480_)) + (let ((_e87483_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87550_ 'exception)))) - (if (macro-started-thread-exception? _e87553_) - (macro-started-thread-exception-procedure _e87553_) + (unchecked-slot-ref _exn87480_ 'exception)))) + (if (macro-started-thread-exception? _e87483_) + (macro-started-thread-exception-procedure _e87483_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp92907 + (let ((__tmp92837 (let () (declare (not safe)) - (cons _e87553_ '())))) + (cons _e87483_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp92907))))) - (if (macro-started-thread-exception? _exn87550_) - (macro-started-thread-exception-procedure _exn87550_) + __tmp92837))))) + (if (macro-started-thread-exception? _exn87480_) + (macro-started-thread-exception-procedure _exn87480_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp92906 + (let ((__tmp92836 (let () (declare (not safe)) - (cons _exn87550_ '())))) + (cons _exn87480_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp92906))))))) + __tmp92836))))))) (define terminated-thread-exception? - (lambda (_exn87546_) + (lambda (_exn87476_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87546_)) - (let ((_e87548_ + (class-instance? RuntimeException::t _exn87476_)) + (let ((_e87478_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87546_ 'exception)))) - (macro-terminated-thread-exception? _e87548_)) - (macro-terminated-thread-exception? _exn87546_)))) + (unchecked-slot-ref _exn87476_ 'exception)))) + (macro-terminated-thread-exception? _e87478_)) + (macro-terminated-thread-exception? _exn87476_)))) (define terminated-thread-exception-arguments - (lambda (_exn87542_) + (lambda (_exn87472_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87542_)) - (let ((_e87544_ + (class-instance? RuntimeException::t _exn87472_)) + (let ((_e87474_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87542_ 'exception)))) - (if (macro-terminated-thread-exception? _e87544_) - (macro-terminated-thread-exception-arguments _e87544_) + (unchecked-slot-ref _exn87472_ 'exception)))) + (if (macro-terminated-thread-exception? _e87474_) + (macro-terminated-thread-exception-arguments _e87474_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp92909 + (let ((__tmp92839 (let () (declare (not safe)) - (cons _e87544_ '())))) + (cons _e87474_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp92909))))) - (if (macro-terminated-thread-exception? _exn87542_) - (macro-terminated-thread-exception-arguments _exn87542_) + __tmp92839))))) + (if (macro-terminated-thread-exception? _exn87472_) + (macro-terminated-thread-exception-arguments _exn87472_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp92908 + (let ((__tmp92838 (let () (declare (not safe)) - (cons _exn87542_ '())))) + (cons _exn87472_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp92908))))))) + __tmp92838))))))) (define terminated-thread-exception-procedure - (lambda (_exn87536_) + (lambda (_exn87466_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87536_)) - (let ((_e87539_ + (class-instance? RuntimeException::t _exn87466_)) + (let ((_e87469_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87536_ 'exception)))) - (if (macro-terminated-thread-exception? _e87539_) - (macro-terminated-thread-exception-procedure _e87539_) + (unchecked-slot-ref _exn87466_ 'exception)))) + (if (macro-terminated-thread-exception? _e87469_) + (macro-terminated-thread-exception-procedure _e87469_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp92911 + (let ((__tmp92841 (let () (declare (not safe)) - (cons _e87539_ '())))) + (cons _e87469_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp92911))))) - (if (macro-terminated-thread-exception? _exn87536_) - (macro-terminated-thread-exception-procedure _exn87536_) + __tmp92841))))) + (if (macro-terminated-thread-exception? _exn87466_) + (macro-terminated-thread-exception-procedure _exn87466_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp92910 + (let ((__tmp92840 (let () (declare (not safe)) - (cons _exn87536_ '())))) + (cons _exn87466_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp92910))))))) + __tmp92840))))))) (define type-exception? - (lambda (_exn87532_) + (lambda (_exn87462_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87532_)) - (let ((_e87534_ + (class-instance? RuntimeException::t _exn87462_)) + (let ((_e87464_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87532_ 'exception)))) - (macro-type-exception? _e87534_)) - (macro-type-exception? _exn87532_)))) + (unchecked-slot-ref _exn87462_ 'exception)))) + (macro-type-exception? _e87464_)) + (macro-type-exception? _exn87462_)))) (define type-exception-arg-id - (lambda (_exn87528_) + (lambda (_exn87458_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87528_)) - (let ((_e87530_ + (class-instance? RuntimeException::t _exn87458_)) + (let ((_e87460_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87528_ 'exception)))) - (if (macro-type-exception? _e87530_) - (macro-type-exception-arg-id _e87530_) + (unchecked-slot-ref _exn87458_ 'exception)))) + (if (macro-type-exception? _e87460_) + (macro-type-exception-arg-id _e87460_) (error '"not an instance" 'type-exception? - (let ((__tmp92913 + (let ((__tmp92843 (let () (declare (not safe)) - (cons _e87530_ '())))) + (cons _e87460_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp92913))))) - (if (macro-type-exception? _exn87528_) - (macro-type-exception-arg-id _exn87528_) + (cons 'type-exception-arg-id __tmp92843))))) + (if (macro-type-exception? _exn87458_) + (macro-type-exception-arg-id _exn87458_) (error '"not an instance" 'type-exception? - (let ((__tmp92912 + (let ((__tmp92842 (let () (declare (not safe)) - (cons _exn87528_ '())))) + (cons _exn87458_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp92912))))))) + (cons 'type-exception-arg-id __tmp92842))))))) (define type-exception-arguments - (lambda (_exn87524_) + (lambda (_exn87454_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87524_)) - (let ((_e87526_ + (class-instance? RuntimeException::t _exn87454_)) + (let ((_e87456_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87524_ 'exception)))) - (if (macro-type-exception? _e87526_) - (macro-type-exception-arguments _e87526_) + (unchecked-slot-ref _exn87454_ 'exception)))) + (if (macro-type-exception? _e87456_) + (macro-type-exception-arguments _e87456_) (error '"not an instance" 'type-exception? - (let ((__tmp92915 + (let ((__tmp92845 (let () (declare (not safe)) - (cons _e87526_ '())))) + (cons _e87456_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp92915))))) - (if (macro-type-exception? _exn87524_) - (macro-type-exception-arguments _exn87524_) + (cons 'type-exception-arguments __tmp92845))))) + (if (macro-type-exception? _exn87454_) + (macro-type-exception-arguments _exn87454_) (error '"not an instance" 'type-exception? - (let ((__tmp92914 + (let ((__tmp92844 (let () (declare (not safe)) - (cons _exn87524_ '())))) + (cons _exn87454_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp92914))))))) + (cons 'type-exception-arguments __tmp92844))))))) (define type-exception-procedure - (lambda (_exn87520_) + (lambda (_exn87450_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87520_)) - (let ((_e87522_ + (class-instance? RuntimeException::t _exn87450_)) + (let ((_e87452_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87520_ 'exception)))) - (if (macro-type-exception? _e87522_) - (macro-type-exception-procedure _e87522_) + (unchecked-slot-ref _exn87450_ 'exception)))) + (if (macro-type-exception? _e87452_) + (macro-type-exception-procedure _e87452_) (error '"not an instance" 'type-exception? - (let ((__tmp92917 + (let ((__tmp92847 (let () (declare (not safe)) - (cons _e87522_ '())))) + (cons _e87452_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp92917))))) - (if (macro-type-exception? _exn87520_) - (macro-type-exception-procedure _exn87520_) + (cons 'type-exception-procedure __tmp92847))))) + (if (macro-type-exception? _exn87450_) + (macro-type-exception-procedure _exn87450_) (error '"not an instance" 'type-exception? - (let ((__tmp92916 + (let ((__tmp92846 (let () (declare (not safe)) - (cons _exn87520_ '())))) + (cons _exn87450_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp92916))))))) + (cons 'type-exception-procedure __tmp92846))))))) (define type-exception-type-id - (lambda (_exn87514_) + (lambda (_exn87444_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87514_)) - (let ((_e87517_ + (class-instance? RuntimeException::t _exn87444_)) + (let ((_e87447_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87514_ 'exception)))) - (if (macro-type-exception? _e87517_) - (macro-type-exception-type-id _e87517_) + (unchecked-slot-ref _exn87444_ 'exception)))) + (if (macro-type-exception? _e87447_) + (macro-type-exception-type-id _e87447_) (error '"not an instance" 'type-exception? - (let ((__tmp92919 + (let ((__tmp92849 (let () (declare (not safe)) - (cons _e87517_ '())))) + (cons _e87447_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp92919))))) - (if (macro-type-exception? _exn87514_) - (macro-type-exception-type-id _exn87514_) + (cons 'type-exception-type-id __tmp92849))))) + (if (macro-type-exception? _exn87444_) + (macro-type-exception-type-id _exn87444_) (error '"not an instance" 'type-exception? - (let ((__tmp92918 + (let ((__tmp92848 (let () (declare (not safe)) - (cons _exn87514_ '())))) + (cons _exn87444_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp92918))))))) + (cons 'type-exception-type-id __tmp92848))))))) (define unbound-global-exception? - (lambda (_exn87510_) + (lambda (_exn87440_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87510_)) - (let ((_e87512_ + (class-instance? RuntimeException::t _exn87440_)) + (let ((_e87442_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87510_ 'exception)))) - (macro-unbound-global-exception? _e87512_)) - (macro-unbound-global-exception? _exn87510_)))) + (unchecked-slot-ref _exn87440_ 'exception)))) + (macro-unbound-global-exception? _e87442_)) + (macro-unbound-global-exception? _exn87440_)))) (define unbound-global-exception-code - (lambda (_exn87506_) + (lambda (_exn87436_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87506_)) - (let ((_e87508_ + (class-instance? RuntimeException::t _exn87436_)) + (let ((_e87438_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87506_ 'exception)))) - (if (macro-unbound-global-exception? _e87508_) - (macro-unbound-global-exception-code _e87508_) + (unchecked-slot-ref _exn87436_ 'exception)))) + (if (macro-unbound-global-exception? _e87438_) + (macro-unbound-global-exception-code _e87438_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp92921 + (let ((__tmp92851 (let () (declare (not safe)) - (cons _e87508_ '())))) + (cons _e87438_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp92921))))) - (if (macro-unbound-global-exception? _exn87506_) - (macro-unbound-global-exception-code _exn87506_) + (cons 'unbound-global-exception-code __tmp92851))))) + (if (macro-unbound-global-exception? _exn87436_) + (macro-unbound-global-exception-code _exn87436_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp92920 + (let ((__tmp92850 (let () (declare (not safe)) - (cons _exn87506_ '())))) + (cons _exn87436_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp92920))))))) + (cons 'unbound-global-exception-code __tmp92850))))))) (define unbound-global-exception-rte - (lambda (_exn87502_) + (lambda (_exn87432_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87502_)) - (let ((_e87504_ + (class-instance? RuntimeException::t _exn87432_)) + (let ((_e87434_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87502_ 'exception)))) - (if (macro-unbound-global-exception? _e87504_) - (macro-unbound-global-exception-rte _e87504_) + (unchecked-slot-ref _exn87432_ 'exception)))) + (if (macro-unbound-global-exception? _e87434_) + (macro-unbound-global-exception-rte _e87434_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp92923 + (let ((__tmp92853 (let () (declare (not safe)) - (cons _e87504_ '())))) + (cons _e87434_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp92923))))) - (if (macro-unbound-global-exception? _exn87502_) - (macro-unbound-global-exception-rte _exn87502_) + (cons 'unbound-global-exception-rte __tmp92853))))) + (if (macro-unbound-global-exception? _exn87432_) + (macro-unbound-global-exception-rte _exn87432_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp92922 + (let ((__tmp92852 (let () (declare (not safe)) - (cons _exn87502_ '())))) + (cons _exn87432_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp92922))))))) + (cons 'unbound-global-exception-rte __tmp92852))))))) (define unbound-global-exception-variable - (lambda (_exn87496_) + (lambda (_exn87426_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87496_)) - (let ((_e87499_ + (class-instance? RuntimeException::t _exn87426_)) + (let ((_e87429_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87496_ 'exception)))) - (if (macro-unbound-global-exception? _e87499_) - (macro-unbound-global-exception-variable _e87499_) + (unchecked-slot-ref _exn87426_ 'exception)))) + (if (macro-unbound-global-exception? _e87429_) + (macro-unbound-global-exception-variable _e87429_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp92925 + (let ((__tmp92855 (let () (declare (not safe)) - (cons _e87499_ '())))) + (cons _e87429_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp92925))))) - (if (macro-unbound-global-exception? _exn87496_) - (macro-unbound-global-exception-variable _exn87496_) + __tmp92855))))) + (if (macro-unbound-global-exception? _exn87426_) + (macro-unbound-global-exception-variable _exn87426_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp92924 + (let ((__tmp92854 (let () (declare (not safe)) - (cons _exn87496_ '())))) + (cons _exn87426_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp92924))))))) + __tmp92854))))))) (define unbound-key-exception? - (lambda (_exn87492_) + (lambda (_exn87422_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87492_)) - (let ((_e87494_ + (class-instance? RuntimeException::t _exn87422_)) + (let ((_e87424_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87492_ 'exception)))) - (macro-unbound-key-exception? _e87494_)) - (macro-unbound-key-exception? _exn87492_)))) + (unchecked-slot-ref _exn87422_ 'exception)))) + (macro-unbound-key-exception? _e87424_)) + (macro-unbound-key-exception? _exn87422_)))) (define unbound-key-exception-arguments - (lambda (_exn87488_) + (lambda (_exn87418_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87488_)) - (let ((_e87490_ + (class-instance? RuntimeException::t _exn87418_)) + (let ((_e87420_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87488_ 'exception)))) - (if (macro-unbound-key-exception? _e87490_) - (macro-unbound-key-exception-arguments _e87490_) + (unchecked-slot-ref _exn87418_ 'exception)))) + (if (macro-unbound-key-exception? _e87420_) + (macro-unbound-key-exception-arguments _e87420_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp92927 + (let ((__tmp92857 (let () (declare (not safe)) - (cons _e87490_ '())))) + (cons _e87420_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp92927))))) - (if (macro-unbound-key-exception? _exn87488_) - (macro-unbound-key-exception-arguments _exn87488_) + __tmp92857))))) + (if (macro-unbound-key-exception? _exn87418_) + (macro-unbound-key-exception-arguments _exn87418_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp92926 + (let ((__tmp92856 (let () (declare (not safe)) - (cons _exn87488_ '())))) + (cons _exn87418_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp92926))))))) + __tmp92856))))))) (define unbound-key-exception-procedure - (lambda (_exn87482_) + (lambda (_exn87412_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87482_)) - (let ((_e87485_ + (class-instance? RuntimeException::t _exn87412_)) + (let ((_e87415_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87482_ 'exception)))) - (if (macro-unbound-key-exception? _e87485_) - (macro-unbound-key-exception-procedure _e87485_) + (unchecked-slot-ref _exn87412_ 'exception)))) + (if (macro-unbound-key-exception? _e87415_) + (macro-unbound-key-exception-procedure _e87415_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp92929 + (let ((__tmp92859 (let () (declare (not safe)) - (cons _e87485_ '())))) + (cons _e87415_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp92929))))) - (if (macro-unbound-key-exception? _exn87482_) - (macro-unbound-key-exception-procedure _exn87482_) + __tmp92859))))) + (if (macro-unbound-key-exception? _exn87412_) + (macro-unbound-key-exception-procedure _exn87412_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp92928 + (let ((__tmp92858 (let () (declare (not safe)) - (cons _exn87482_ '())))) + (cons _exn87412_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp92928))))))) + __tmp92858))))))) (define unbound-os-environment-variable-exception? - (lambda (_exn87478_) + (lambda (_exn87408_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87478_)) - (let ((_e87480_ + (class-instance? RuntimeException::t _exn87408_)) + (let ((_e87410_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87478_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e87480_)) - (macro-unbound-os-environment-variable-exception? _exn87478_)))) + (unchecked-slot-ref _exn87408_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e87410_)) + (macro-unbound-os-environment-variable-exception? _exn87408_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn87474_) + (lambda (_exn87404_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87474_)) - (let ((_e87476_ + (class-instance? RuntimeException::t _exn87404_)) + (let ((_e87406_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87474_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e87476_) + (unchecked-slot-ref _exn87404_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e87406_) (macro-unbound-os-environment-variable-exception-arguments - _e87476_) + _e87406_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp92931 + (let ((__tmp92861 (let () (declare (not safe)) - (cons _e87476_ '())))) + (cons _e87406_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp92931))))) - (if (macro-unbound-os-environment-variable-exception? _exn87474_) + __tmp92861))))) + (if (macro-unbound-os-environment-variable-exception? _exn87404_) (macro-unbound-os-environment-variable-exception-arguments - _exn87474_) + _exn87404_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp92930 + (let ((__tmp92860 (let () (declare (not safe)) - (cons _exn87474_ '())))) + (cons _exn87404_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp92930))))))) + __tmp92860))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn87468_) + (lambda (_exn87398_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87468_)) - (let ((_e87471_ + (class-instance? RuntimeException::t _exn87398_)) + (let ((_e87401_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87468_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e87471_) + (unchecked-slot-ref _exn87398_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e87401_) (macro-unbound-os-environment-variable-exception-procedure - _e87471_) + _e87401_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp92933 + (let ((__tmp92863 (let () (declare (not safe)) - (cons _e87471_ '())))) + (cons _e87401_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp92933))))) - (if (macro-unbound-os-environment-variable-exception? _exn87468_) + __tmp92863))))) + (if (macro-unbound-os-environment-variable-exception? _exn87398_) (macro-unbound-os-environment-variable-exception-procedure - _exn87468_) + _exn87398_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp92932 + (let ((__tmp92862 (let () (declare (not safe)) - (cons _exn87468_ '())))) + (cons _exn87398_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp92932))))))) + __tmp92862))))))) (define unbound-serial-number-exception? - (lambda (_exn87464_) + (lambda (_exn87394_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87464_)) - (let ((_e87466_ + (class-instance? RuntimeException::t _exn87394_)) + (let ((_e87396_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87464_ 'exception)))) - (macro-unbound-serial-number-exception? _e87466_)) - (macro-unbound-serial-number-exception? _exn87464_)))) + (unchecked-slot-ref _exn87394_ 'exception)))) + (macro-unbound-serial-number-exception? _e87396_)) + (macro-unbound-serial-number-exception? _exn87394_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn87460_) + (lambda (_exn87390_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87460_)) - (let ((_e87462_ + (class-instance? RuntimeException::t _exn87390_)) + (let ((_e87392_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87460_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e87462_) - (macro-unbound-serial-number-exception-arguments _e87462_) + (unchecked-slot-ref _exn87390_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e87392_) + (macro-unbound-serial-number-exception-arguments _e87392_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp92935 + (let ((__tmp92865 (let () (declare (not safe)) - (cons _e87462_ '())))) + (cons _e87392_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp92935))))) - (if (macro-unbound-serial-number-exception? _exn87460_) - (macro-unbound-serial-number-exception-arguments _exn87460_) + __tmp92865))))) + (if (macro-unbound-serial-number-exception? _exn87390_) + (macro-unbound-serial-number-exception-arguments _exn87390_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp92934 + (let ((__tmp92864 (let () (declare (not safe)) - (cons _exn87460_ '())))) + (cons _exn87390_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp92934))))))) + __tmp92864))))))) (define unbound-serial-number-exception-procedure - (lambda (_exn87454_) + (lambda (_exn87384_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87454_)) - (let ((_e87457_ + (class-instance? RuntimeException::t _exn87384_)) + (let ((_e87387_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87454_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e87457_) - (macro-unbound-serial-number-exception-procedure _e87457_) + (unchecked-slot-ref _exn87384_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e87387_) + (macro-unbound-serial-number-exception-procedure _e87387_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp92937 + (let ((__tmp92867 (let () (declare (not safe)) - (cons _e87457_ '())))) + (cons _e87387_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp92937))))) - (if (macro-unbound-serial-number-exception? _exn87454_) - (macro-unbound-serial-number-exception-procedure _exn87454_) + __tmp92867))))) + (if (macro-unbound-serial-number-exception? _exn87384_) + (macro-unbound-serial-number-exception-procedure _exn87384_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp92936 + (let ((__tmp92866 (let () (declare (not safe)) - (cons _exn87454_ '())))) + (cons _exn87384_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp92936))))))) + __tmp92866))))))) (define uncaught-exception? - (lambda (_exn87450_) + (lambda (_exn87380_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87450_)) - (let ((_e87452_ + (class-instance? RuntimeException::t _exn87380_)) + (let ((_e87382_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87450_ 'exception)))) - (macro-uncaught-exception? _e87452_)) - (macro-uncaught-exception? _exn87450_)))) + (unchecked-slot-ref _exn87380_ 'exception)))) + (macro-uncaught-exception? _e87382_)) + (macro-uncaught-exception? _exn87380_)))) (define uncaught-exception-arguments - (lambda (_exn87446_) + (lambda (_exn87376_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87446_)) - (let ((_e87448_ + (class-instance? RuntimeException::t _exn87376_)) + (let ((_e87378_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87446_ 'exception)))) - (if (macro-uncaught-exception? _e87448_) - (macro-uncaught-exception-arguments _e87448_) + (unchecked-slot-ref _exn87376_ 'exception)))) + (if (macro-uncaught-exception? _e87378_) + (macro-uncaught-exception-arguments _e87378_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp92939 + (let ((__tmp92869 (let () (declare (not safe)) - (cons _e87448_ '())))) + (cons _e87378_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp92939))))) - (if (macro-uncaught-exception? _exn87446_) - (macro-uncaught-exception-arguments _exn87446_) + (cons 'uncaught-exception-arguments __tmp92869))))) + (if (macro-uncaught-exception? _exn87376_) + (macro-uncaught-exception-arguments _exn87376_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp92938 + (let ((__tmp92868 (let () (declare (not safe)) - (cons _exn87446_ '())))) + (cons _exn87376_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp92938))))))) + (cons 'uncaught-exception-arguments __tmp92868))))))) (define uncaught-exception-procedure - (lambda (_exn87442_) + (lambda (_exn87372_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87442_)) - (let ((_e87444_ + (class-instance? RuntimeException::t _exn87372_)) + (let ((_e87374_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87442_ 'exception)))) - (if (macro-uncaught-exception? _e87444_) - (macro-uncaught-exception-procedure _e87444_) + (unchecked-slot-ref _exn87372_ 'exception)))) + (if (macro-uncaught-exception? _e87374_) + (macro-uncaught-exception-procedure _e87374_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp92941 + (let ((__tmp92871 (let () (declare (not safe)) - (cons _e87444_ '())))) + (cons _e87374_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp92941))))) - (if (macro-uncaught-exception? _exn87442_) - (macro-uncaught-exception-procedure _exn87442_) + (cons 'uncaught-exception-procedure __tmp92871))))) + (if (macro-uncaught-exception? _exn87372_) + (macro-uncaught-exception-procedure _exn87372_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp92940 + (let ((__tmp92870 (let () (declare (not safe)) - (cons _exn87442_ '())))) + (cons _exn87372_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp92940))))))) + (cons 'uncaught-exception-procedure __tmp92870))))))) (define uncaught-exception-reason - (lambda (_exn87436_) + (lambda (_exn87366_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87436_)) - (let ((_e87439_ + (class-instance? RuntimeException::t _exn87366_)) + (let ((_e87369_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87436_ 'exception)))) - (if (macro-uncaught-exception? _e87439_) - (macro-uncaught-exception-reason _e87439_) + (unchecked-slot-ref _exn87366_ 'exception)))) + (if (macro-uncaught-exception? _e87369_) + (macro-uncaught-exception-reason _e87369_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp92943 + (let ((__tmp92873 (let () (declare (not safe)) - (cons _e87439_ '())))) + (cons _e87369_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp92943))))) - (if (macro-uncaught-exception? _exn87436_) - (macro-uncaught-exception-reason _exn87436_) + (cons 'uncaught-exception-reason __tmp92873))))) + (if (macro-uncaught-exception? _exn87366_) + (macro-uncaught-exception-reason _exn87366_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp92942 + (let ((__tmp92872 (let () (declare (not safe)) - (cons _exn87436_ '())))) + (cons _exn87366_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp92942))))))) + (cons 'uncaught-exception-reason __tmp92872))))))) (define uninitialized-thread-exception? - (lambda (_exn87432_) + (lambda (_exn87362_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87432_)) - (let ((_e87434_ + (class-instance? RuntimeException::t _exn87362_)) + (let ((_e87364_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87432_ 'exception)))) - (macro-uninitialized-thread-exception? _e87434_)) - (macro-uninitialized-thread-exception? _exn87432_)))) + (unchecked-slot-ref _exn87362_ 'exception)))) + (macro-uninitialized-thread-exception? _e87364_)) + (macro-uninitialized-thread-exception? _exn87362_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn87428_) + (lambda (_exn87358_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87428_)) - (let ((_e87430_ + (class-instance? RuntimeException::t _exn87358_)) + (let ((_e87360_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87428_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e87430_) - (macro-uninitialized-thread-exception-arguments _e87430_) + (unchecked-slot-ref _exn87358_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e87360_) + (macro-uninitialized-thread-exception-arguments _e87360_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp92945 + (let ((__tmp92875 (let () (declare (not safe)) - (cons _e87430_ '())))) + (cons _e87360_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp92945))))) - (if (macro-uninitialized-thread-exception? _exn87428_) - (macro-uninitialized-thread-exception-arguments _exn87428_) + __tmp92875))))) + (if (macro-uninitialized-thread-exception? _exn87358_) + (macro-uninitialized-thread-exception-arguments _exn87358_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp92944 + (let ((__tmp92874 (let () (declare (not safe)) - (cons _exn87428_ '())))) + (cons _exn87358_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp92944))))))) + __tmp92874))))))) (define uninitialized-thread-exception-procedure - (lambda (_exn87422_) + (lambda (_exn87352_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87422_)) - (let ((_e87425_ + (class-instance? RuntimeException::t _exn87352_)) + (let ((_e87355_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87422_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e87425_) - (macro-uninitialized-thread-exception-procedure _e87425_) + (unchecked-slot-ref _exn87352_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e87355_) + (macro-uninitialized-thread-exception-procedure _e87355_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp92947 + (let ((__tmp92877 (let () (declare (not safe)) - (cons _e87425_ '())))) + (cons _e87355_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp92947))))) - (if (macro-uninitialized-thread-exception? _exn87422_) - (macro-uninitialized-thread-exception-procedure _exn87422_) + __tmp92877))))) + (if (macro-uninitialized-thread-exception? _exn87352_) + (macro-uninitialized-thread-exception-procedure _exn87352_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp92946 + (let ((__tmp92876 (let () (declare (not safe)) - (cons _exn87422_ '())))) + (cons _exn87352_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp92946))))))) + __tmp92876))))))) (define unknown-keyword-argument-exception? - (lambda (_exn87418_) + (lambda (_exn87348_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87418_)) - (let ((_e87420_ + (class-instance? RuntimeException::t _exn87348_)) + (let ((_e87350_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87418_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e87420_)) - (macro-unknown-keyword-argument-exception? _exn87418_)))) + (unchecked-slot-ref _exn87348_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e87350_)) + (macro-unknown-keyword-argument-exception? _exn87348_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn87414_) + (lambda (_exn87344_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87414_)) - (let ((_e87416_ + (class-instance? RuntimeException::t _exn87344_)) + (let ((_e87346_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87414_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e87416_) - (macro-unknown-keyword-argument-exception-arguments _e87416_) + (unchecked-slot-ref _exn87344_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e87346_) + (macro-unknown-keyword-argument-exception-arguments _e87346_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp92949 + (let ((__tmp92879 (let () (declare (not safe)) - (cons _e87416_ '())))) + (cons _e87346_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp92949))))) - (if (macro-unknown-keyword-argument-exception? _exn87414_) - (macro-unknown-keyword-argument-exception-arguments _exn87414_) + __tmp92879))))) + (if (macro-unknown-keyword-argument-exception? _exn87344_) + (macro-unknown-keyword-argument-exception-arguments _exn87344_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp92948 + (let ((__tmp92878 (let () (declare (not safe)) - (cons _exn87414_ '())))) + (cons _exn87344_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp92948))))))) + __tmp92878))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn87408_) + (lambda (_exn87338_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87408_)) - (let ((_e87411_ + (class-instance? RuntimeException::t _exn87338_)) + (let ((_e87341_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87408_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e87411_) - (macro-unknown-keyword-argument-exception-procedure _e87411_) + (unchecked-slot-ref _exn87338_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e87341_) + (macro-unknown-keyword-argument-exception-procedure _e87341_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp92951 + (let ((__tmp92881 (let () (declare (not safe)) - (cons _e87411_ '())))) + (cons _e87341_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp92951))))) - (if (macro-unknown-keyword-argument-exception? _exn87408_) - (macro-unknown-keyword-argument-exception-procedure _exn87408_) + __tmp92881))))) + (if (macro-unknown-keyword-argument-exception? _exn87338_) + (macro-unknown-keyword-argument-exception-procedure _exn87338_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp92950 + (let ((__tmp92880 (let () (declare (not safe)) - (cons _exn87408_ '())))) + (cons _exn87338_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp92950))))))) + __tmp92880))))))) (define unterminated-process-exception? - (lambda (_exn87404_) + (lambda (_exn87334_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87404_)) - (let ((_e87406_ + (class-instance? RuntimeException::t _exn87334_)) + (let ((_e87336_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87404_ 'exception)))) - (macro-unterminated-process-exception? _e87406_)) - (macro-unterminated-process-exception? _exn87404_)))) + (unchecked-slot-ref _exn87334_ 'exception)))) + (macro-unterminated-process-exception? _e87336_)) + (macro-unterminated-process-exception? _exn87334_)))) (define unterminated-process-exception-arguments - (lambda (_exn87400_) + (lambda (_exn87330_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87400_)) - (let ((_e87402_ + (class-instance? RuntimeException::t _exn87330_)) + (let ((_e87332_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87400_ 'exception)))) - (if (macro-unterminated-process-exception? _e87402_) - (macro-unterminated-process-exception-arguments _e87402_) + (unchecked-slot-ref _exn87330_ 'exception)))) + (if (macro-unterminated-process-exception? _e87332_) + (macro-unterminated-process-exception-arguments _e87332_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp92953 + (let ((__tmp92883 (let () (declare (not safe)) - (cons _e87402_ '())))) + (cons _e87332_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp92953))))) - (if (macro-unterminated-process-exception? _exn87400_) - (macro-unterminated-process-exception-arguments _exn87400_) + __tmp92883))))) + (if (macro-unterminated-process-exception? _exn87330_) + (macro-unterminated-process-exception-arguments _exn87330_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp92952 + (let ((__tmp92882 (let () (declare (not safe)) - (cons _exn87400_ '())))) + (cons _exn87330_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp92952))))))) + __tmp92882))))))) (define unterminated-process-exception-procedure - (lambda (_exn87394_) + (lambda (_exn87324_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87394_)) - (let ((_e87397_ + (class-instance? RuntimeException::t _exn87324_)) + (let ((_e87327_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87394_ 'exception)))) - (if (macro-unterminated-process-exception? _e87397_) - (macro-unterminated-process-exception-procedure _e87397_) + (unchecked-slot-ref _exn87324_ 'exception)))) + (if (macro-unterminated-process-exception? _e87327_) + (macro-unterminated-process-exception-procedure _e87327_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp92955 + (let ((__tmp92885 (let () (declare (not safe)) - (cons _e87397_ '())))) + (cons _e87327_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp92955))))) - (if (macro-unterminated-process-exception? _exn87394_) - (macro-unterminated-process-exception-procedure _exn87394_) + __tmp92885))))) + (if (macro-unterminated-process-exception? _exn87324_) + (macro-unterminated-process-exception-procedure _exn87324_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp92954 + (let ((__tmp92884 (let () (declare (not safe)) - (cons _exn87394_ '())))) + (cons _exn87324_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp92954))))))) + __tmp92884))))))) (define wrong-number-of-arguments-exception? - (lambda (_exn87390_) + (lambda (_exn87320_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87390_)) - (let ((_e87392_ + (class-instance? RuntimeException::t _exn87320_)) + (let ((_e87322_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87390_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e87392_)) - (macro-wrong-number-of-arguments-exception? _exn87390_)))) + (unchecked-slot-ref _exn87320_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e87322_)) + (macro-wrong-number-of-arguments-exception? _exn87320_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn87386_) + (lambda (_exn87316_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87386_)) - (let ((_e87388_ + (class-instance? RuntimeException::t _exn87316_)) + (let ((_e87318_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87386_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e87388_) + (unchecked-slot-ref _exn87316_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e87318_) (macro-wrong-number-of-arguments-exception-arguments - _e87388_) + _e87318_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp92957 + (let ((__tmp92887 (let () (declare (not safe)) - (cons _e87388_ '())))) + (cons _e87318_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp92957))))) - (if (macro-wrong-number-of-arguments-exception? _exn87386_) + __tmp92887))))) + (if (macro-wrong-number-of-arguments-exception? _exn87316_) (macro-wrong-number-of-arguments-exception-arguments - _exn87386_) + _exn87316_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp92956 + (let ((__tmp92886 (let () (declare (not safe)) - (cons _exn87386_ '())))) + (cons _exn87316_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp92956))))))) + __tmp92886))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn87380_) + (lambda (_exn87310_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87380_)) - (let ((_e87383_ + (class-instance? RuntimeException::t _exn87310_)) + (let ((_e87313_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87380_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e87383_) + (unchecked-slot-ref _exn87310_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e87313_) (macro-wrong-number-of-arguments-exception-procedure - _e87383_) + _e87313_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp92959 + (let ((__tmp92889 (let () (declare (not safe)) - (cons _e87383_ '())))) + (cons _e87313_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp92959))))) - (if (macro-wrong-number-of-arguments-exception? _exn87380_) + __tmp92889))))) + (if (macro-wrong-number-of-arguments-exception? _exn87310_) (macro-wrong-number-of-arguments-exception-procedure - _exn87380_) + _exn87310_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp92958 + (let ((__tmp92888 (let () (declare (not safe)) - (cons _exn87380_ '())))) + (cons _exn87310_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp92958))))))) + __tmp92888))))))) (define wrong-number-of-values-exception? - (lambda (_exn87376_) + (lambda (_exn87306_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87376_)) - (let ((_e87378_ + (class-instance? RuntimeException::t _exn87306_)) + (let ((_e87308_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87376_ 'exception)))) - (macro-wrong-number-of-values-exception? _e87378_)) - (macro-wrong-number-of-values-exception? _exn87376_)))) + (unchecked-slot-ref _exn87306_ 'exception)))) + (macro-wrong-number-of-values-exception? _e87308_)) + (macro-wrong-number-of-values-exception? _exn87306_)))) (define wrong-number-of-values-exception-code - (lambda (_exn87372_) + (lambda (_exn87302_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87372_)) - (let ((_e87374_ + (class-instance? RuntimeException::t _exn87302_)) + (let ((_e87304_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87372_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e87374_) - (macro-wrong-number-of-values-exception-code _e87374_) + (unchecked-slot-ref _exn87302_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e87304_) + (macro-wrong-number-of-values-exception-code _e87304_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp92961 + (let ((__tmp92891 (let () (declare (not safe)) - (cons _e87374_ '())))) + (cons _e87304_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp92961))))) - (if (macro-wrong-number-of-values-exception? _exn87372_) - (macro-wrong-number-of-values-exception-code _exn87372_) + __tmp92891))))) + (if (macro-wrong-number-of-values-exception? _exn87302_) + (macro-wrong-number-of-values-exception-code _exn87302_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp92960 + (let ((__tmp92890 (let () (declare (not safe)) - (cons _exn87372_ '())))) + (cons _exn87302_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp92960))))))) + __tmp92890))))))) (define wrong-number-of-values-exception-rte - (lambda (_exn87368_) + (lambda (_exn87298_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87368_)) - (let ((_e87370_ + (class-instance? RuntimeException::t _exn87298_)) + (let ((_e87300_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87368_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e87370_) - (macro-wrong-number-of-values-exception-rte _e87370_) + (unchecked-slot-ref _exn87298_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e87300_) + (macro-wrong-number-of-values-exception-rte _e87300_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp92963 + (let ((__tmp92893 (let () (declare (not safe)) - (cons _e87370_ '())))) + (cons _e87300_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp92963))))) - (if (macro-wrong-number-of-values-exception? _exn87368_) - (macro-wrong-number-of-values-exception-rte _exn87368_) + __tmp92893))))) + (if (macro-wrong-number-of-values-exception? _exn87298_) + (macro-wrong-number-of-values-exception-rte _exn87298_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp92962 + (let ((__tmp92892 (let () (declare (not safe)) - (cons _exn87368_ '())))) + (cons _exn87298_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp92962))))))) + __tmp92892))))))) (define wrong-number-of-values-exception-vals - (lambda (_exn87362_) + (lambda (_exn87292_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87362_)) - (let ((_e87365_ + (class-instance? RuntimeException::t _exn87292_)) + (let ((_e87295_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87362_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e87365_) - (macro-wrong-number-of-values-exception-vals _e87365_) + (unchecked-slot-ref _exn87292_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e87295_) + (macro-wrong-number-of-values-exception-vals _e87295_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp92965 + (let ((__tmp92895 (let () (declare (not safe)) - (cons _e87365_ '())))) + (cons _e87295_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp92965))))) - (if (macro-wrong-number-of-values-exception? _exn87362_) - (macro-wrong-number-of-values-exception-vals _exn87362_) + __tmp92895))))) + (if (macro-wrong-number-of-values-exception? _exn87292_) + (macro-wrong-number-of-values-exception-vals _exn87292_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp92964 + (let ((__tmp92894 (let () (declare (not safe)) - (cons _exn87362_ '())))) + (cons _exn87292_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp92964))))))) + __tmp92894))))))) (define wrong-processor-c-return-exception? - (lambda (_exn87356_) + (lambda (_exn87286_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn87356_)) - (let ((_e87359_ + (class-instance? RuntimeException::t _exn87286_)) + (let ((_e87289_ (let () (declare (not safe)) - (unchecked-slot-ref _exn87356_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e87359_)) - (macro-wrong-processor-c-return-exception? _exn87356_)))))) + (unchecked-slot-ref _exn87286_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e87289_)) + (macro-wrong-processor-c-return-exception? _exn87286_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index aad41cef3..a41ff7fa4 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]#_g92967_| + (define |[1]#_g92897_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g92969_| + (define |[1]#_g92899_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g92971_| + (define |[1]#_g92901_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g92973_| + (define |[1]#_g92903_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g92975_| + (define |[1]#_g92905_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g92977_| + (define |[1]#_g92907_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g92981_| + (define |[1]#_g92911_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g92985_| + (define |[1]#_g92915_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g92989_| + (define |[1]#_g92919_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g92993_| + (define |[1]#_g92923_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g92997_| + (define |[1]#_g92927_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g92999_| + (define |[1]#_g92929_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g93001_| + (define |[1]#_g92931_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g93003_| + (define |[1]#_g92933_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g93005_| + (define |[1]#_g92935_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g93012_| + (define |[1]#_g92942_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g93015_| + (define |[1]#_g92945_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g93018_| + (define |[1]#_g92948_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g93021_| + (define |[1]#_g92951_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g93028_| + (define |[1]#_g92958_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93031_| + (define |[1]#_g92961_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93034_| + (define |[1]#_g92964_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93037_| + (define |[1]#_g92967_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93044_| + (define |[1]#_g92974_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g93047_| + (define |[1]#_g92977_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g93050_| + (define |[1]#_g92980_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g93053_| + (define |[1]#_g92983_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g93060_| + (define |[1]#_g92990_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93063_| + (define |[1]#_g92993_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93066_| + (define |[1]#_g92996_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93069_| + (define |[1]#_g92999_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93075_| + (define |[1]#_g93005_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g93077_| + (define |[1]#_g93007_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g93079_| + (define |[1]#_g93009_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g93084_| + (define |[1]#_g93014_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g93087_| + (define |[1]#_g93017_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g93092_| + (define |[1]#_g93022_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93095_| + (define |[1]#_g93025_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93100_| + (define |[1]#_g93030_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g93103_| + (define |[1]#_g93033_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g93108_| + (define |[1]#_g93038_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g93111_| + (define |[1]#_g93041_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! @@ -296,12 +296,12 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj92735 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj92665 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 'gerbil/runtime/error#Exception::t '1 gerbil/core$$#class-type-info::t @@ -309,7 +309,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 'Exception '2 gerbil/core$$#class-type-info::t @@ -317,7 +317,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 '() '4 gerbil/core$$#class-type-info::t @@ -325,7 +325,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 '() '3 gerbil/core$$#class-type-info::t @@ -333,7 +333,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 '#f '5 gerbil/core$$#class-type-info::t @@ -341,7 +341,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 '#f '6 gerbil/core$$#class-type-info::t @@ -349,39 +349,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92966 |[1]#_g92967_|)) + (let ((__tmp92896 |[1]#_g92897_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92735 - __tmp92966 + __obj92665 + __tmp92896 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92968 |[1]#_g92969_|)) + (let ((__tmp92898 |[1]#_g92899_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92735 - __tmp92968 + __obj92665 + __tmp92898 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92970 |[1]#_g92971_|)) + (let ((__tmp92900 |[1]#_g92901_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92735 - __tmp92970 + __obj92665 + __tmp92900 '10 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 '() '11 gerbil/core$$#class-type-info::t @@ -389,7 +389,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 '() '12 gerbil/core$$#class-type-info::t @@ -397,7 +397,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 '() '13 gerbil/core$$#class-type-info::t @@ -405,19 +405,19 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92735 + __obj92665 '() '14 gerbil/core$$#class-type-info::t '#f)) - __obj92735)) + __obj92665)) (define |[:0:]#StackTrace| - (let ((__obj92736 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj92666 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj92736 + __obj92666 'gerbil/runtime/error#StackTrace::t '1 gerbil/core$$#class-type-info::t @@ -425,7 +425,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92736 + __obj92666 'StackTrace '2 gerbil/core$$#class-type-info::t @@ -433,7 +433,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92736 + __obj92666 '(continuation) '4 gerbil/core$$#class-type-info::t @@ -441,7 +441,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92736 + __obj92666 '() '3 gerbil/core$$#class-type-info::t @@ -449,7 +449,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92736 + __obj92666 '#f '5 gerbil/core$$#class-type-info::t @@ -457,7 +457,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92736 + __obj92666 '#f '6 gerbil/core$$#class-type-info::t @@ -465,99 +465,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92736 + __obj92666 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92972 |[1]#_g92973_|)) + (let ((__tmp92902 |[1]#_g92903_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92736 - __tmp92972 + __obj92666 + __tmp92902 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92974 |[1]#_g92975_|)) + (let ((__tmp92904 |[1]#_g92905_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92736 - __tmp92974 + __obj92666 + __tmp92904 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92976 |[1]#_g92977_|)) + (let ((__tmp92906 |[1]#_g92907_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92736 - __tmp92976 + __obj92666 + __tmp92906 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92978 - (let ((__tmp92979 - (let ((__tmp92980 |[1]#_g92981_|)) + (let ((__tmp92908 + (let ((__tmp92909 + (let ((__tmp92910 |[1]#_g92911_|)) (declare (not safe)) - (cons 'continuation __tmp92980)))) + (cons 'continuation __tmp92910)))) (declare (not safe)) - (cons __tmp92979 '())))) + (cons __tmp92909 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj92736 - __tmp92978 + __obj92666 + __tmp92908 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92982 - (let ((__tmp92983 - (let ((__tmp92984 |[1]#_g92985_|)) + (let ((__tmp92912 + (let ((__tmp92913 + (let ((__tmp92914 |[1]#_g92915_|)) (declare (not safe)) - (cons 'continuation __tmp92984)))) + (cons 'continuation __tmp92914)))) (declare (not safe)) - (cons __tmp92983 '())))) + (cons __tmp92913 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj92736 - __tmp92982 + __obj92666 + __tmp92912 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92986 - (let ((__tmp92987 - (let ((__tmp92988 |[1]#_g92989_|)) + (let ((__tmp92916 + (let ((__tmp92917 + (let ((__tmp92918 |[1]#_g92919_|)) (declare (not safe)) - (cons 'continuation __tmp92988)))) + (cons 'continuation __tmp92918)))) (declare (not safe)) - (cons __tmp92987 '())))) + (cons __tmp92917 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj92736 - __tmp92986 + __obj92666 + __tmp92916 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92990 - (let ((__tmp92991 - (let ((__tmp92992 |[1]#_g92993_|)) + (let ((__tmp92920 + (let ((__tmp92921 + (let ((__tmp92922 |[1]#_g92923_|)) (declare (not safe)) - (cons 'continuation __tmp92992)))) + (cons 'continuation __tmp92922)))) (declare (not safe)) - (cons __tmp92991 '())))) + (cons __tmp92921 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj92736 - __tmp92990 + __obj92666 + __tmp92920 '14 gerbil/core$$#class-type-info::t '#f)) - __obj92736)) + __obj92666)) (define |[:0:]#Error| - (let ((__obj92737 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj92667 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj92737 + __obj92667 'gerbil/runtime/error#Error::t '1 gerbil/core$$#class-type-info::t @@ -565,7 +565,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92737 + __obj92667 'Error '2 gerbil/core$$#class-type-info::t @@ -573,30 +573,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92737 + __obj92667 '(message irritants where) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp92994 - (let ((__tmp92998 |[1]#_g92999_|) - (__tmp92995 - (let ((__tmp92996 |[1]#_g92997_|)) + (let ((__tmp92924 + (let ((__tmp92928 |[1]#_g92929_|) + (__tmp92925 + (let ((__tmp92926 |[1]#_g92927_|)) (declare (not safe)) - (cons __tmp92996 '())))) + (cons __tmp92926 '())))) (declare (not safe)) - (cons __tmp92998 __tmp92995)))) + (cons __tmp92928 __tmp92925)))) (declare (not safe)) (##unchecked-structure-set! - __obj92737 - __tmp92994 + __obj92667 + __tmp92924 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj92737 + __obj92667 '#f '5 gerbil/core$$#class-type-info::t @@ -604,7 +604,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92737 + __obj92667 '#f '6 gerbil/core$$#class-type-info::t @@ -612,183 +612,183 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92737 + __obj92667 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93000 |[1]#_g93001_|)) + (let ((__tmp92930 |[1]#_g92931_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92737 - __tmp93000 + __obj92667 + __tmp92930 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93002 |[1]#_g93003_|)) + (let ((__tmp92932 |[1]#_g92933_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92737 - __tmp93002 + __obj92667 + __tmp92932 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93004 |[1]#_g93005_|)) + (let ((__tmp92934 |[1]#_g92935_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92737 - __tmp93004 + __obj92667 + __tmp92934 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93006 - (let ((__tmp93019 - (let ((__tmp93020 |[1]#_g93021_|)) + (let ((__tmp92936 + (let ((__tmp92949 + (let ((__tmp92950 |[1]#_g92951_|)) (declare (not safe)) - (cons 'message __tmp93020))) - (__tmp93007 - (let ((__tmp93016 - (let ((__tmp93017 |[1]#_g93018_|)) + (cons 'message __tmp92950))) + (__tmp92937 + (let ((__tmp92946 + (let ((__tmp92947 |[1]#_g92948_|)) (declare (not safe)) - (cons 'irritants __tmp93017))) - (__tmp93008 - (let ((__tmp93013 - (let ((__tmp93014 |[1]#_g93015_|)) + (cons 'irritants __tmp92947))) + (__tmp92938 + (let ((__tmp92943 + (let ((__tmp92944 |[1]#_g92945_|)) (declare (not safe)) - (cons 'where __tmp93014))) - (__tmp93009 - (let ((__tmp93010 - (let ((__tmp93011 |[1]#_g93012_|)) + (cons 'where __tmp92944))) + (__tmp92939 + (let ((__tmp92940 + (let ((__tmp92941 |[1]#_g92942_|)) (declare (not safe)) - (cons 'continuation __tmp93011)))) + (cons 'continuation __tmp92941)))) (declare (not safe)) - (cons __tmp93010 '())))) + (cons __tmp92940 '())))) (declare (not safe)) - (cons __tmp93013 __tmp93009)))) + (cons __tmp92943 __tmp92939)))) (declare (not safe)) - (cons __tmp93016 __tmp93008)))) + (cons __tmp92946 __tmp92938)))) (declare (not safe)) - (cons __tmp93019 __tmp93007)))) + (cons __tmp92949 __tmp92937)))) (declare (not safe)) (##unchecked-structure-set! - __obj92737 - __tmp93006 + __obj92667 + __tmp92936 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93022 - (let ((__tmp93035 - (let ((__tmp93036 |[1]#_g93037_|)) + (let ((__tmp92952 + (let ((__tmp92965 + (let ((__tmp92966 |[1]#_g92967_|)) (declare (not safe)) - (cons 'message __tmp93036))) - (__tmp93023 - (let ((__tmp93032 - (let ((__tmp93033 |[1]#_g93034_|)) + (cons 'message __tmp92966))) + (__tmp92953 + (let ((__tmp92962 + (let ((__tmp92963 |[1]#_g92964_|)) (declare (not safe)) - (cons 'irritants __tmp93033))) - (__tmp93024 - (let ((__tmp93029 - (let ((__tmp93030 |[1]#_g93031_|)) + (cons 'irritants __tmp92963))) + (__tmp92954 + (let ((__tmp92959 + (let ((__tmp92960 |[1]#_g92961_|)) (declare (not safe)) - (cons 'where __tmp93030))) - (__tmp93025 - (let ((__tmp93026 - (let ((__tmp93027 |[1]#_g93028_|)) + (cons 'where __tmp92960))) + (__tmp92955 + (let ((__tmp92956 + (let ((__tmp92957 |[1]#_g92958_|)) (declare (not safe)) - (cons 'continuation __tmp93027)))) + (cons 'continuation __tmp92957)))) (declare (not safe)) - (cons __tmp93026 '())))) + (cons __tmp92956 '())))) (declare (not safe)) - (cons __tmp93029 __tmp93025)))) + (cons __tmp92959 __tmp92955)))) (declare (not safe)) - (cons __tmp93032 __tmp93024)))) + (cons __tmp92962 __tmp92954)))) (declare (not safe)) - (cons __tmp93035 __tmp93023)))) + (cons __tmp92965 __tmp92953)))) (declare (not safe)) (##unchecked-structure-set! - __obj92737 - __tmp93022 + __obj92667 + __tmp92952 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93038 - (let ((__tmp93051 - (let ((__tmp93052 |[1]#_g93053_|)) + (let ((__tmp92968 + (let ((__tmp92981 + (let ((__tmp92982 |[1]#_g92983_|)) (declare (not safe)) - (cons 'message __tmp93052))) - (__tmp93039 - (let ((__tmp93048 - (let ((__tmp93049 |[1]#_g93050_|)) + (cons 'message __tmp92982))) + (__tmp92969 + (let ((__tmp92978 + (let ((__tmp92979 |[1]#_g92980_|)) (declare (not safe)) - (cons 'irritants __tmp93049))) - (__tmp93040 - (let ((__tmp93045 - (let ((__tmp93046 |[1]#_g93047_|)) + (cons 'irritants __tmp92979))) + (__tmp92970 + (let ((__tmp92975 + (let ((__tmp92976 |[1]#_g92977_|)) (declare (not safe)) - (cons 'where __tmp93046))) - (__tmp93041 - (let ((__tmp93042 - (let ((__tmp93043 |[1]#_g93044_|)) + (cons 'where __tmp92976))) + (__tmp92971 + (let ((__tmp92972 + (let ((__tmp92973 |[1]#_g92974_|)) (declare (not safe)) - (cons 'continuation __tmp93043)))) + (cons 'continuation __tmp92973)))) (declare (not safe)) - (cons __tmp93042 '())))) + (cons __tmp92972 '())))) (declare (not safe)) - (cons __tmp93045 __tmp93041)))) + (cons __tmp92975 __tmp92971)))) (declare (not safe)) - (cons __tmp93048 __tmp93040)))) + (cons __tmp92978 __tmp92970)))) (declare (not safe)) - (cons __tmp93051 __tmp93039)))) + (cons __tmp92981 __tmp92969)))) (declare (not safe)) (##unchecked-structure-set! - __obj92737 - __tmp93038 + __obj92667 + __tmp92968 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93054 - (let ((__tmp93067 - (let ((__tmp93068 |[1]#_g93069_|)) + (let ((__tmp92984 + (let ((__tmp92997 + (let ((__tmp92998 |[1]#_g92999_|)) (declare (not safe)) - (cons 'message __tmp93068))) - (__tmp93055 - (let ((__tmp93064 - (let ((__tmp93065 |[1]#_g93066_|)) + (cons 'message __tmp92998))) + (__tmp92985 + (let ((__tmp92994 + (let ((__tmp92995 |[1]#_g92996_|)) (declare (not safe)) - (cons 'irritants __tmp93065))) - (__tmp93056 - (let ((__tmp93061 - (let ((__tmp93062 |[1]#_g93063_|)) + (cons 'irritants __tmp92995))) + (__tmp92986 + (let ((__tmp92991 + (let ((__tmp92992 |[1]#_g92993_|)) (declare (not safe)) - (cons 'where __tmp93062))) - (__tmp93057 - (let ((__tmp93058 - (let ((__tmp93059 |[1]#_g93060_|)) + (cons 'where __tmp92992))) + (__tmp92987 + (let ((__tmp92988 + (let ((__tmp92989 |[1]#_g92990_|)) (declare (not safe)) - (cons 'continuation __tmp93059)))) + (cons 'continuation __tmp92989)))) (declare (not safe)) - (cons __tmp93058 '())))) + (cons __tmp92988 '())))) (declare (not safe)) - (cons __tmp93061 __tmp93057)))) + (cons __tmp92991 __tmp92987)))) (declare (not safe)) - (cons __tmp93064 __tmp93056)))) + (cons __tmp92994 __tmp92986)))) (declare (not safe)) - (cons __tmp93067 __tmp93055)))) + (cons __tmp92997 __tmp92985)))) (declare (not safe)) (##unchecked-structure-set! - __obj92737 - __tmp93054 + __obj92667 + __tmp92984 '14 gerbil/core$$#class-type-info::t '#f)) - __obj92737)) + __obj92667)) (define |[:0:]#RuntimeException| - (let ((__obj92738 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj92668 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj92738 + __obj92668 'gerbil/runtime/error#RuntimeException::t '1 gerbil/core$$#class-type-info::t @@ -796,7 +796,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92738 + __obj92668 'RuntimeException '2 gerbil/core$$#class-type-info::t @@ -804,30 +804,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92738 + __obj92668 '(exception) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93070 - (let ((__tmp93073 |[1]#_g92999_|) - (__tmp93071 - (let ((__tmp93072 |[1]#_g92997_|)) + (let ((__tmp93000 + (let ((__tmp93003 |[1]#_g92929_|) + (__tmp93001 + (let ((__tmp93002 |[1]#_g92927_|)) (declare (not safe)) - (cons __tmp93072 '())))) + (cons __tmp93002 '())))) (declare (not safe)) - (cons __tmp93073 __tmp93071)))) + (cons __tmp93003 __tmp93001)))) (declare (not safe)) (##unchecked-structure-set! - __obj92738 - __tmp93070 + __obj92668 + __tmp93000 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj92738 + __obj92668 '#f '5 gerbil/core$$#class-type-info::t @@ -835,7 +835,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92738 + __obj92668 '#f '6 gerbil/core$$#class-type-info::t @@ -843,971 +843,971 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj92738 + __obj92668 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93074 |[1]#_g93075_|)) + (let ((__tmp93004 |[1]#_g93005_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92738 - __tmp93074 + __obj92668 + __tmp93004 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93076 |[1]#_g93077_|)) + (let ((__tmp93006 |[1]#_g93007_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92738 - __tmp93076 + __obj92668 + __tmp93006 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93078 |[1]#_g93079_|)) + (let ((__tmp93008 |[1]#_g93009_|)) (declare (not safe)) (##unchecked-structure-set! - __obj92738 - __tmp93078 + __obj92668 + __tmp93008 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93080 - (let ((__tmp93085 - (let ((__tmp93086 |[1]#_g93087_|)) + (let ((__tmp93010 + (let ((__tmp93015 + (let ((__tmp93016 |[1]#_g93017_|)) (declare (not safe)) - (cons 'exception __tmp93086))) - (__tmp93081 - (let ((__tmp93082 - (let ((__tmp93083 |[1]#_g93084_|)) + (cons 'exception __tmp93016))) + (__tmp93011 + (let ((__tmp93012 + (let ((__tmp93013 |[1]#_g93014_|)) (declare (not safe)) - (cons 'continuation __tmp93083)))) + (cons 'continuation __tmp93013)))) (declare (not safe)) - (cons __tmp93082 '())))) + (cons __tmp93012 '())))) (declare (not safe)) - (cons __tmp93085 __tmp93081)))) + (cons __tmp93015 __tmp93011)))) (declare (not safe)) (##unchecked-structure-set! - __obj92738 - __tmp93080 + __obj92668 + __tmp93010 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93088 - (let ((__tmp93093 - (let ((__tmp93094 |[1]#_g93095_|)) + (let ((__tmp93018 + (let ((__tmp93023 + (let ((__tmp93024 |[1]#_g93025_|)) (declare (not safe)) - (cons 'exception __tmp93094))) - (__tmp93089 - (let ((__tmp93090 - (let ((__tmp93091 |[1]#_g93092_|)) + (cons 'exception __tmp93024))) + (__tmp93019 + (let ((__tmp93020 + (let ((__tmp93021 |[1]#_g93022_|)) (declare (not safe)) - (cons 'continuation __tmp93091)))) + (cons 'continuation __tmp93021)))) (declare (not safe)) - (cons __tmp93090 '())))) + (cons __tmp93020 '())))) (declare (not safe)) - (cons __tmp93093 __tmp93089)))) + (cons __tmp93023 __tmp93019)))) (declare (not safe)) (##unchecked-structure-set! - __obj92738 - __tmp93088 + __obj92668 + __tmp93018 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93096 - (let ((__tmp93101 - (let ((__tmp93102 |[1]#_g93103_|)) + (let ((__tmp93026 + (let ((__tmp93031 + (let ((__tmp93032 |[1]#_g93033_|)) (declare (not safe)) - (cons 'exception __tmp93102))) - (__tmp93097 - (let ((__tmp93098 - (let ((__tmp93099 |[1]#_g93100_|)) + (cons 'exception __tmp93032))) + (__tmp93027 + (let ((__tmp93028 + (let ((__tmp93029 |[1]#_g93030_|)) (declare (not safe)) - (cons 'continuation __tmp93099)))) + (cons 'continuation __tmp93029)))) (declare (not safe)) - (cons __tmp93098 '())))) + (cons __tmp93028 '())))) (declare (not safe)) - (cons __tmp93101 __tmp93097)))) + (cons __tmp93031 __tmp93027)))) (declare (not safe)) (##unchecked-structure-set! - __obj92738 - __tmp93096 + __obj92668 + __tmp93026 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp93104 - (let ((__tmp93109 - (let ((__tmp93110 |[1]#_g93111_|)) + (let ((__tmp93034 + (let ((__tmp93039 + (let ((__tmp93040 |[1]#_g93041_|)) (declare (not safe)) - (cons 'exception __tmp93110))) - (__tmp93105 - (let ((__tmp93106 - (let ((__tmp93107 |[1]#_g93108_|)) + (cons 'exception __tmp93040))) + (__tmp93035 + (let ((__tmp93036 + (let ((__tmp93037 |[1]#_g93038_|)) (declare (not safe)) - (cons 'continuation __tmp93107)))) + (cons 'continuation __tmp93037)))) (declare (not safe)) - (cons __tmp93106 '())))) + (cons __tmp93036 '())))) (declare (not safe)) - (cons __tmp93109 __tmp93105)))) + (cons __tmp93039 __tmp93035)))) (declare (not safe)) (##unchecked-structure-set! - __obj92738 - __tmp93104 + __obj92668 + __tmp93034 '14 gerbil/core$$#class-type-info::t '#f)) - __obj92738)) + __obj92668)) (define |[:0:]#check-procedure| - (lambda (_$stx86903_) - (let* ((_g8690786925_ - (lambda (_g8690886921_) + (lambda (_$stx86833_) + (let* ((_g8683786855_ + (lambda (_g8683886851_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8690886921_))) - (_g8690686981_ - (lambda (_g8690886929_) - (if (gx#stx-pair? _g8690886929_) - (let ((_e8691386932_ (gx#syntax-e _g8690886929_))) - (let ((_hd8691286936_ + _g8683886851_))) + (_g8683686911_ + (lambda (_g8683886859_) + (if (gx#stx-pair? _g8683886859_) + (let ((_e8684386862_ (gx#syntax-e _g8683886859_))) + (let ((_hd8684286866_ (let () (declare (not safe)) - (##car _e8691386932_))) - (_tl8691186939_ + (##car _e8684386862_))) + (_tl8684186869_ (let () (declare (not safe)) - (##cdr _e8691386932_)))) - (if (gx#stx-pair? _tl8691186939_) - (let ((_e8691686942_ - (gx#syntax-e _tl8691186939_))) - (let ((_hd8691586946_ + (##cdr _e8684386862_)))) + (if (gx#stx-pair? _tl8684186869_) + (let ((_e8684686872_ + (gx#syntax-e _tl8684186869_))) + (let ((_hd8684586876_ (let () (declare (not safe)) - (##car _e8691686942_))) - (_tl8691486949_ + (##car _e8684686872_))) + (_tl8684486879_ (let () (declare (not safe)) - (##cdr _e8691686942_)))) - (if (gx#stx-pair? _tl8691486949_) - (let ((_e8691986952_ - (gx#syntax-e _tl8691486949_))) - (let ((_hd8691886956_ + (##cdr _e8684686872_)))) + (if (gx#stx-pair? _tl8684486879_) + (let ((_e8684986882_ + (gx#syntax-e _tl8684486879_))) + (let ((_hd8684886886_ (let () (declare (not safe)) - (##car _e8691986952_))) - (_tl8691786959_ + (##car _e8684986882_))) + (_tl8684786889_ (let () (declare (not safe)) - (##cdr _e8691986952_)))) - (if (gx#stx-null? _tl8691786959_) - ((lambda (_L86962_ _L86964_) - (let ((__tmp93133 + (##cdr _e8684986882_)))) + (if (gx#stx-null? _tl8684786889_) + ((lambda (_L86892_ _L86894_) + (let ((__tmp93063 (gx#datum->syntax '#f 'unless)) - (__tmp93112 - (let ((__tmp93130 - (let ((__tmp93132 + (__tmp93042 + (let ((__tmp93060 + (let ((__tmp93062 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp93131 + (__tmp93061 (let () (declare (not safe)) - (cons _L86964_ '())))) + (cons _L86894_ '())))) (declare (not safe)) - (cons __tmp93132 __tmp93131))) - (__tmp93113 - (let ((__tmp93114 - (let ((__tmp93129 (gx#datum->syntax '#f 'raise)) - (__tmp93115 - (let ((__tmp93116 - (let ((__tmp93128 + (cons __tmp93062 __tmp93061))) + (__tmp93043 + (let ((__tmp93044 + (let ((__tmp93059 (gx#datum->syntax '#f 'raise)) + (__tmp93045 + (let ((__tmp93046 + (let ((__tmp93058 (gx#datum->syntax '#f 'Error)) - (__tmp93117 - (let ((__tmp93118 - (let ((__tmp93119 + (__tmp93047 + (let ((__tmp93048 + (let ((__tmp93049 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp93125 - (let ((__tmp93127 + (let ((__tmp93055 + (let ((__tmp93057 (gx#datum->syntax '#f 'quote)) - (__tmp93126 + (__tmp93056 (let () (declare (not safe)) - (cons _L86962_ '())))) + (cons _L86892_ '())))) (declare (not safe)) - (cons __tmp93127 __tmp93126))) - (__tmp93120 - (let ((__tmp93121 - (let ((__tmp93122 - (let ((__tmp93124 + (cons __tmp93057 __tmp93056))) + (__tmp93050 + (let ((__tmp93051 + (let ((__tmp93052 + (let ((__tmp93054 (gx#datum->syntax '#f '@list)) - (__tmp93123 + (__tmp93053 (let () (declare (not safe)) - (cons _L86964_ '())))) + (cons _L86894_ '())))) (declare (not safe)) - (cons __tmp93124 __tmp93123)))) + (cons __tmp93054 __tmp93053)))) (declare (not safe)) - (cons __tmp93122 '())))) + (cons __tmp93052 '())))) (declare (not safe)) - (cons 'irritants: __tmp93121)))) + (cons 'irritants: __tmp93051)))) (declare (not safe)) - (cons __tmp93125 __tmp93120)))) + (cons __tmp93055 __tmp93050)))) (declare (not safe)) - (cons 'where: __tmp93119)))) + (cons 'where: __tmp93049)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp93118)))) + __tmp93048)))) (declare (not safe)) - (cons __tmp93128 __tmp93117)))) + (cons __tmp93058 __tmp93047)))) (declare (not safe)) - (cons __tmp93116 '())))) + (cons __tmp93046 '())))) (declare (not safe)) - (cons __tmp93129 __tmp93115)))) + (cons __tmp93059 __tmp93045)))) (declare (not safe)) - (cons __tmp93114 '())))) + (cons __tmp93044 '())))) (declare (not safe)) - (cons __tmp93130 __tmp93113)))) + (cons __tmp93060 __tmp93043)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp93133 - __tmp93112))) - _hd8691886956_ - _hd8691586946_) - (_g8690786925_ _g8690886929_)))) - (_g8690786925_ _g8690886929_)))) - (_g8690786925_ _g8690886929_)))) - (_g8690786925_ _g8690886929_))))) - (_g8690686981_ _$stx86903_)))) + (cons __tmp93063 + __tmp93042))) + _hd8684886886_ + _hd8684586876_) + (_g8683786855_ _g8683886859_)))) + (_g8683786855_ _g8683886859_)))) + (_g8683786855_ _g8683886859_)))) + (_g8683786855_ _g8683886859_))))) + (_g8683686911_ _$stx86833_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx86985_) - (let* ((_g8698887015_ - (lambda (_g8698987011_) + (lambda (_stx86915_) + (let* ((_g8691886945_ + (lambda (_g8691986941_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8698987011_))) - (_g8698787250_ - (lambda (_g8698987019_) - (if (gx#stx-pair? _g8698987019_) - (let ((_e8699487022_ (gx#syntax-e _g8698987019_))) - (let ((_hd8699387026_ + _g8691986941_))) + (_g8691787180_ + (lambda (_g8691986949_) + (if (gx#stx-pair? _g8691986949_) + (let ((_e8692486952_ (gx#syntax-e _g8691986949_))) + (let ((_hd8692386956_ (let () (declare (not safe)) - (##car _e8699487022_))) - (_tl8699287029_ + (##car _e8692486952_))) + (_tl8692286959_ (let () (declare (not safe)) - (##cdr _e8699487022_)))) - (if (gx#stx-pair? _tl8699287029_) - (let ((_e8699787032_ - (gx#syntax-e _tl8699287029_))) - (let ((_hd8699687036_ + (##cdr _e8692486952_)))) + (if (gx#stx-pair? _tl8692286959_) + (let ((_e8692786962_ + (gx#syntax-e _tl8692286959_))) + (let ((_hd8692686966_ (let () (declare (not safe)) - (##car _e8699787032_))) - (_tl8699587039_ + (##car _e8692786962_))) + (_tl8692586969_ (let () (declare (not safe)) - (##cdr _e8699787032_)))) - (if (gx#stx-pair? _hd8699687036_) - (let ((_e8700087042_ - (gx#syntax-e _hd8699687036_))) - (let ((_hd8699987046_ + (##cdr _e8692786962_)))) + (if (gx#stx-pair? _hd8692686966_) + (let ((_e8693086972_ + (gx#syntax-e _hd8692686966_))) + (let ((_hd8692986976_ (let () (declare (not safe)) - (##car _e8700087042_))) - (_tl8699887049_ + (##car _e8693086972_))) + (_tl8692886979_ (let () (declare (not safe)) - (##cdr _e8700087042_)))) + (##cdr _e8693086972_)))) (if (gx#stx-pair/null? - _tl8699887049_) - (let ((_g93134_ + _tl8692886979_) + (let ((_g93064_ (gx#syntax-split-splice - _tl8699887049_ + _tl8692886979_ '0))) (begin - (let ((_g93135_ + (let ((_g93065_ (let () (declare (not safe)) (if (##values? - _g93134_) + _g93064_) (##vector-length - _g93134_) + _g93064_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g93135_ 2))) - (error "Context expects 2 values" _g93135_))) + (##fx= _g93065_ 2))) + (error "Context expects 2 values" _g93065_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target8700187052_ + (let ((_target8693186982_ (let () (declare (not safe)) (##vector-ref - _g93134_ + _g93064_ 0))) - (_tl8700387055_ + (_tl8693386985_ (let () (declare (not safe)) (##vector-ref - _g93134_ + _g93064_ 1)))) (if (gx#stx-null? - _tl8700387055_) - (letrec ((_loop8700487058_ + _tl8693386985_) + (letrec ((_loop8693486988_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd8700287062_ _getf8700887065_) - (if (gx#stx-pair? _hd8700287062_) - (let ((_e8700587068_ - (gx#syntax-e _hd8700287062_))) - (let ((_lp-hd8700687072_ + (lambda (_hd8693286992_ _getf8693886995_) + (if (gx#stx-pair? _hd8693286992_) + (let ((_e8693586998_ + (gx#syntax-e _hd8693286992_))) + (let ((_lp-hd8693687002_ (let () (declare (not safe)) - (##car _e8700587068_))) - (_lp-tl8700787075_ + (##car _e8693586998_))) + (_lp-tl8693787005_ (let () (declare (not safe)) - (##cdr _e8700587068_)))) - (_loop8700487058_ - _lp-tl8700787075_ + (##cdr _e8693586998_)))) + (_loop8693486988_ + _lp-tl8693787005_ (let () (declare (not safe)) - (cons _lp-hd8700687072_ - _getf8700887065_))))) - (let ((_getf8700987078_ - (reverse _getf8700887065_))) - (if (gx#stx-null? _tl8699587039_) - ((lambda (_L87082_ _L87084_) - (let* ((_g8710487128_ - (lambda (_g8710587124_) + (cons _lp-hd8693687002_ + _getf8693886995_))))) + (let ((_getf8693987008_ + (reverse _getf8693886995_))) + (if (gx#stx-null? _tl8692586969_) + ((lambda (_L87012_ _L87014_) + (let* ((_g8703487058_ + (lambda (_g8703587054_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8710587124_))) - (_g8710387235_ - (lambda (_g8710587132_) + _g8703587054_))) + (_g8703387165_ + (lambda (_g8703587062_) (if (gx#stx-pair? - _g8710587132_) - (let ((_e8711087135_ + _g8703587062_) + (let ((_e8704087065_ (gx#syntax-e - _g8710587132_))) - (let ((_hd8710987139_ + _g8703587062_))) + (let ((_hd8703987069_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e8711087135_))) - (_tl8710887142_ - (let () (declare (not safe)) (##cdr _e8711087135_)))) - (if (gx#stx-pair? _tl8710887142_) - (let ((_e8711387145_ (gx#syntax-e _tl8710887142_))) - (let ((_hd8711287149_ + (##car _e8704087065_))) + (_tl8703887072_ + (let () (declare (not safe)) (##cdr _e8704087065_)))) + (if (gx#stx-pair? _tl8703887072_) + (let ((_e8704387075_ (gx#syntax-e _tl8703887072_))) + (let ((_hd8704287079_ (let () (declare (not safe)) - (##car _e8711387145_))) - (_tl8711187152_ + (##car _e8704387075_))) + (_tl8704187082_ (let () (declare (not safe)) - (##cdr _e8711387145_)))) - (if (gx#stx-pair/null? _hd8711287149_) - (let ((_g93136_ + (##cdr _e8704387075_)))) + (if (gx#stx-pair/null? _hd8704287079_) + (let ((_g93066_ (gx#syntax-split-splice - _hd8711287149_ + _hd8704287079_ '0))) (begin - (let ((_g93137_ + (let ((_g93067_ (let () (declare (not safe)) - (if (##values? _g93136_) - (##vector-length _g93136_) + (if (##values? _g93066_) + (##vector-length _g93066_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g93137_ 2))) + (##fx= _g93067_ 2))) (error "Context expects 2 values" - _g93137_))) - (let ((_target8711487155_ + _g93067_))) + (let ((_target8704487085_ (let () (declare (not safe)) - (##vector-ref _g93136_ 0))) - (_tl8711687158_ + (##vector-ref _g93066_ 0))) + (_tl8704687088_ (let () (declare (not safe)) - (##vector-ref _g93136_ 1)))) - (if (gx#stx-null? _tl8711687158_) - (letrec ((_loop8711787161_ - (lambda (_hd8711587165_ - _macro-getf8712187168_) + (##vector-ref _g93066_ 1)))) + (if (gx#stx-null? _tl8704687088_) + (letrec ((_loop8704787091_ + (lambda (_hd8704587095_ + _macro-getf8705187098_) (if (gx#stx-pair? - _hd8711587165_) - (let ((_e8711887171_ + _hd8704587095_) + (let ((_e8704887101_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd8711587165_))) - (let ((_lp-hd8711987175_ - (let () (declare (not safe)) (##car _e8711887171_))) - (_lp-tl8712087178_ - (let () (declare (not safe)) (##cdr _e8711887171_)))) - (_loop8711787161_ - _lp-tl8712087178_ + _hd8704587095_))) + (let ((_lp-hd8704987105_ + (let () (declare (not safe)) (##car _e8704887101_))) + (_lp-tl8705087108_ + (let () (declare (not safe)) (##cdr _e8704887101_)))) + (_loop8704787091_ + _lp-tl8705087108_ (let () (declare (not safe)) - (cons _lp-hd8711987175_ _macro-getf8712187168_))))) - (let ((_macro-getf8712287181_ - (reverse _macro-getf8712187168_))) - (if (gx#stx-null? _tl8711187152_) - ((lambda (_L87185_ _L87187_) + (cons _lp-hd8704987105_ _macro-getf8705187098_))))) + (let ((_macro-getf8705287111_ + (reverse _macro-getf8705187098_))) + (if (gx#stx-null? _tl8704187082_) + ((lambda (_L87115_ _L87117_) (let () - (let ((__tmp93261 (gx#datum->syntax '#f 'begin)) - (__tmp93138 - (let ((__tmp93256 - (let ((__tmp93260 + (let ((__tmp93191 (gx#datum->syntax '#f 'begin)) + (__tmp93068 + (let ((__tmp93186 + (let ((__tmp93190 (gx#datum->syntax '#f 'extern)) - (__tmp93257 - (let ((__tmp93258 - (let ((__tmp93259 - (lambda (_g8721287215_ + (__tmp93187 + (let ((__tmp93188 + (let ((__tmp93189 + (lambda (_g8714287145_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g8721387218_) + _g8714387148_) (let () (declare (not safe)) - (cons _g8721287215_ _g8721387218_))))) + (cons _g8714287145_ _g8714387148_))))) (declare (not safe)) - (foldr1 __tmp93259 '() _L87185_)))) + (foldr1 __tmp93189 '() _L87115_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L87187_ - __tmp93258)))) + (cons _L87117_ + __tmp93188)))) (declare (not safe)) - (cons __tmp93260 __tmp93257))) - (__tmp93139 - (let ((__tmp93223 - (let ((__tmp93255 + (cons __tmp93190 __tmp93187))) + (__tmp93069 + (let ((__tmp93153 + (let ((__tmp93185 (gx#datum->syntax '#f 'def)) - (__tmp93224 - (let ((__tmp93252 - (let ((__tmp93253 + (__tmp93154 + (let ((__tmp93182 + (let ((__tmp93183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp93254 (gx#datum->syntax '#f 'exn))) + (let ((__tmp93184 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp93254 '())))) + (cons __tmp93184 '())))) (declare (not safe)) - (cons _L87084_ __tmp93253))) - (__tmp93225 - (let ((__tmp93226 - (let ((__tmp93251 (gx#datum->syntax '#f 'if)) - (__tmp93227 - (let ((__tmp93247 - (let ((__tmp93250 + (cons _L87014_ __tmp93183))) + (__tmp93155 + (let ((__tmp93156 + (let ((__tmp93181 (gx#datum->syntax '#f 'if)) + (__tmp93157 + (let ((__tmp93177 + (let ((__tmp93180 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp93248 - (let ((__tmp93249 + (__tmp93178 + (let ((__tmp93179 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp93249 '())))) + (cons __tmp93179 '())))) (declare (not safe)) - (cons __tmp93250 __tmp93248))) - (__tmp93228 - (let ((__tmp93233 - (let ((__tmp93246 + (cons __tmp93180 __tmp93178))) + (__tmp93158 + (let ((__tmp93163 + (let ((__tmp93176 (gx#datum->syntax '#f 'let)) - (__tmp93234 - (let ((__tmp93239 + (__tmp93164 + (let ((__tmp93169 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp93245 (gx#datum->syntax '#f 'e)) - (__tmp93240 - (let ((__tmp93241 - (let ((__tmp93244 + (let ((__tmp93175 (gx#datum->syntax '#f 'e)) + (__tmp93170 + (let ((__tmp93171 + (let ((__tmp93174 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp93242 - (let ((__tmp93243 + (__tmp93172 + (let ((__tmp93173 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp93243 '())))) + (cons __tmp93173 '())))) (declare (not safe)) - (cons __tmp93244 __tmp93242)))) + (cons __tmp93174 __tmp93172)))) (declare (not safe)) - (cons __tmp93241 '())))) + (cons __tmp93171 '())))) (declare (not safe)) - (cons __tmp93245 __tmp93240))) - (__tmp93235 - (let ((__tmp93236 - (let ((__tmp93237 - (let ((__tmp93238 + (cons __tmp93175 __tmp93170))) + (__tmp93165 + (let ((__tmp93166 + (let ((__tmp93167 + (let ((__tmp93168 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp93238 '())))) + (cons __tmp93168 '())))) (declare (not safe)) - (cons _L87187_ __tmp93237)))) + (cons _L87117_ __tmp93167)))) (declare (not safe)) - (cons __tmp93236 '())))) + (cons __tmp93166 '())))) (declare (not safe)) - (cons __tmp93239 __tmp93235)))) + (cons __tmp93169 __tmp93165)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp93246 - __tmp93234))) - (__tmp93229 - (let ((__tmp93230 - (let ((__tmp93231 + (cons __tmp93176 + __tmp93164))) + (__tmp93159 + (let ((__tmp93160 + (let ((__tmp93161 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp93232 (gx#datum->syntax '#f 'exn))) + (let ((__tmp93162 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp93232 '())))) + (cons __tmp93162 '())))) (declare (not safe)) - (cons _L87187_ __tmp93231)))) + (cons _L87117_ __tmp93161)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp93230 '())))) + (cons __tmp93160 '())))) (declare (not safe)) - (cons __tmp93233 __tmp93229)))) + (cons __tmp93163 __tmp93159)))) (declare (not safe)) - (cons __tmp93247 __tmp93228)))) + (cons __tmp93177 __tmp93158)))) (declare (not safe)) - (cons __tmp93251 __tmp93227)))) + (cons __tmp93181 __tmp93157)))) (declare (not safe)) - (cons __tmp93226 '())))) + (cons __tmp93156 '())))) (declare (not safe)) - (cons __tmp93252 __tmp93225)))) + (cons __tmp93182 __tmp93155)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp93255 - __tmp93224))) - (__tmp93140 + (cons __tmp93185 + __tmp93154))) + (__tmp93070 (begin (gx#syntax-check-splice-targets - _L87082_ - _L87185_ - _L87082_ - _L87185_ - _L87082_) - (let ((__tmp93141 - (lambda (_g8720687221_ + _L87012_ + _L87115_ + _L87012_ + _L87115_ + _L87012_) + (let ((__tmp93071 + (lambda (_g8713687151_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g8720787224_ - _g8720887226_ - _g8720987228_ - _g8721087230_ - _g8721187232_) - (let ((__tmp93142 - (let ((__tmp93222 (gx#datum->syntax '#f 'def)) - (__tmp93143 - (let ((__tmp93219 - (let ((__tmp93220 - (let ((__tmp93221 + _g8713787154_ + _g8713887156_ + _g8713987158_ + _g8714087160_ + _g8714187162_) + (let ((__tmp93072 + (let ((__tmp93152 (gx#datum->syntax '#f 'def)) + (__tmp93073 + (let ((__tmp93149 + (let ((__tmp93150 + (let ((__tmp93151 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp93221 '())))) + (cons __tmp93151 '())))) (declare (not safe)) - (cons _g8720687221_ __tmp93220))) - (__tmp93144 - (let ((__tmp93145 - (let ((__tmp93218 + (cons _g8713687151_ __tmp93150))) + (__tmp93074 + (let ((__tmp93075 + (let ((__tmp93148 (gx#datum->syntax '#f 'if)) - (__tmp93146 - (let ((__tmp93214 - (let ((__tmp93217 + (__tmp93076 + (let ((__tmp93144 + (let ((__tmp93147 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp93215 - (let ((__tmp93216 (gx#datum->syntax '#f 'exn))) + (__tmp93145 + (let ((__tmp93146 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp93216 '())))) + (cons __tmp93146 '())))) (declare (not safe)) - (cons __tmp93217 __tmp93215))) - (__tmp93147 - (let ((__tmp93176 - (let ((__tmp93213 (gx#datum->syntax '#f 'let)) - (__tmp93177 - (let ((__tmp93206 - (let ((__tmp93212 + (cons __tmp93147 __tmp93145))) + (__tmp93077 + (let ((__tmp93106 + (let ((__tmp93143 (gx#datum->syntax '#f 'let)) + (__tmp93107 + (let ((__tmp93136 + (let ((__tmp93142 (gx#datum->syntax '#f 'e)) - (__tmp93207 - (let ((__tmp93208 - (let ((__tmp93211 + (__tmp93137 + (let ((__tmp93138 + (let ((__tmp93141 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp93209 - (let ((__tmp93210 (gx#datum->syntax '#f 'exn))) + (__tmp93139 + (let ((__tmp93140 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp93210 '())))) + (cons __tmp93140 '())))) (declare (not safe)) - (cons __tmp93211 __tmp93209)))) + (cons __tmp93141 __tmp93139)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp93208 '())))) + (cons __tmp93138 '())))) (declare (not safe)) - (cons __tmp93212 __tmp93207))) - (__tmp93178 - (let ((__tmp93179 - (let ((__tmp93205 + (cons __tmp93142 __tmp93137))) + (__tmp93108 + (let ((__tmp93109 + (let ((__tmp93135 (gx#datum->syntax '#f 'if)) - (__tmp93180 - (let ((__tmp93202 - (let ((__tmp93203 + (__tmp93110 + (let ((__tmp93132 + (let ((__tmp93133 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp93204 (gx#datum->syntax '#f 'e))) + (let ((__tmp93134 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp93204 '())))) + (cons __tmp93134 '())))) (declare (not safe)) - (cons _L87187_ __tmp93203))) - (__tmp93181 - (let ((__tmp93199 - (let ((__tmp93200 - (let ((__tmp93201 + (cons _L87117_ __tmp93133))) + (__tmp93111 + (let ((__tmp93129 + (let ((__tmp93130 + (let ((__tmp93131 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp93201 '())))) + (cons __tmp93131 '())))) (declare (not safe)) - (cons _g8720787224_ __tmp93200))) - (__tmp93182 - (let ((__tmp93183 - (let ((__tmp93198 + (cons _g8713787154_ __tmp93130))) + (__tmp93112 + (let ((__tmp93113 + (let ((__tmp93128 (gx#datum->syntax '#f 'error)) - (__tmp93184 - (let ((__tmp93185 - (let ((__tmp93195 - (let ((__tmp93197 + (__tmp93114 + (let ((__tmp93115 + (let ((__tmp93125 + (let ((__tmp93127 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp93196 - (let () (declare (not safe)) (cons _L87084_ '())))) + (__tmp93126 + (let () (declare (not safe)) (cons _L87014_ '())))) (declare (not safe)) - (cons __tmp93197 __tmp93196))) - (__tmp93186 - (let ((__tmp93187 - (let ((__tmp93194 (gx#datum->syntax '#f '@list)) - (__tmp93188 - (let ((__tmp93191 - (let ((__tmp93193 + (cons __tmp93127 __tmp93126))) + (__tmp93116 + (let ((__tmp93117 + (let ((__tmp93124 (gx#datum->syntax '#f '@list)) + (__tmp93118 + (let ((__tmp93121 + (let ((__tmp93123 (gx#datum->syntax '#f 'quote)) - (__tmp93192 + (__tmp93122 (let () (declare (not safe)) - (cons _g8720687221_ '())))) + (cons _g8713687151_ '())))) (declare (not safe)) - (cons __tmp93193 __tmp93192))) - (__tmp93189 - (let ((__tmp93190 + (cons __tmp93123 __tmp93122))) + (__tmp93119 + (let ((__tmp93120 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp93190 '())))) + (cons __tmp93120 '())))) (declare (not safe)) - (cons __tmp93191 __tmp93189)))) + (cons __tmp93121 __tmp93119)))) (declare (not safe)) - (cons __tmp93194 __tmp93188)))) + (cons __tmp93124 __tmp93118)))) (declare (not safe)) - (cons __tmp93187 '())))) + (cons __tmp93117 '())))) (declare (not safe)) - (cons __tmp93195 __tmp93186)))) + (cons __tmp93125 __tmp93116)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp93185)))) + __tmp93115)))) (declare (not safe)) - (cons __tmp93198 __tmp93184)))) + (cons __tmp93128 __tmp93114)))) (declare (not safe)) - (cons __tmp93183 '())))) + (cons __tmp93113 '())))) (declare (not safe)) - (cons __tmp93199 __tmp93182)))) + (cons __tmp93129 __tmp93112)))) (declare (not safe)) - (cons __tmp93202 __tmp93181)))) + (cons __tmp93132 __tmp93111)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp93205 - __tmp93180)))) + (cons __tmp93135 + __tmp93110)))) (declare (not safe)) - (cons __tmp93179 '())))) + (cons __tmp93109 '())))) (declare (not safe)) - (cons __tmp93206 __tmp93178)))) + (cons __tmp93136 __tmp93108)))) (declare (not safe)) - (cons __tmp93213 __tmp93177))) - (__tmp93148 - (let ((__tmp93149 - (let ((__tmp93175 + (cons __tmp93143 __tmp93107))) + (__tmp93078 + (let ((__tmp93079 + (let ((__tmp93105 (gx#datum->syntax '#f 'if)) - (__tmp93150 - (let ((__tmp93172 - (let ((__tmp93173 - (let ((__tmp93174 + (__tmp93080 + (let ((__tmp93102 + (let ((__tmp93103 + (let ((__tmp93104 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp93174 '())))) + (cons __tmp93104 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L87187_ - __tmp93173))) - (__tmp93151 - (let ((__tmp93169 - (let ((__tmp93170 - (let ((__tmp93171 + (cons _L87117_ + __tmp93103))) + (__tmp93081 + (let ((__tmp93099 + (let ((__tmp93100 + (let ((__tmp93101 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp93171 '())))) + (cons __tmp93101 '())))) (declare (not safe)) - (cons _g8720787224_ __tmp93170))) - (__tmp93152 - (let ((__tmp93153 - (let ((__tmp93168 (gx#datum->syntax '#f 'error)) - (__tmp93154 - (let ((__tmp93155 - (let ((__tmp93165 - (let ((__tmp93167 + (cons _g8713787154_ __tmp93100))) + (__tmp93082 + (let ((__tmp93083 + (let ((__tmp93098 (gx#datum->syntax '#f 'error)) + (__tmp93084 + (let ((__tmp93085 + (let ((__tmp93095 + (let ((__tmp93097 (gx#datum->syntax '#f 'quote)) - (__tmp93166 + (__tmp93096 (let () (declare (not safe)) - (cons _L87084_ '())))) + (cons _L87014_ '())))) (declare (not safe)) - (cons __tmp93167 __tmp93166))) - (__tmp93156 - (let ((__tmp93157 - (let ((__tmp93164 + (cons __tmp93097 __tmp93096))) + (__tmp93086 + (let ((__tmp93087 + (let ((__tmp93094 (gx#datum->syntax '#f '@list)) - (__tmp93158 - (let ((__tmp93161 + (__tmp93088 + (let ((__tmp93091 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp93163 (gx#datum->syntax '#f 'quote)) - (__tmp93162 + (let ((__tmp93093 (gx#datum->syntax '#f 'quote)) + (__tmp93092 (let () (declare (not safe)) - (cons _g8720687221_ '())))) + (cons _g8713687151_ '())))) (declare (not safe)) - (cons __tmp93163 __tmp93162))) - (__tmp93159 - (let ((__tmp93160 (gx#datum->syntax '#f 'exn))) + (cons __tmp93093 __tmp93092))) + (__tmp93089 + (let ((__tmp93090 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp93160 '())))) + (cons __tmp93090 '())))) (declare (not safe)) - (cons __tmp93161 __tmp93159)))) + (cons __tmp93091 __tmp93089)))) (declare (not safe)) - (cons __tmp93164 __tmp93158)))) + (cons __tmp93094 __tmp93088)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp93157 '())))) + (cons __tmp93087 '())))) (declare (not safe)) - (cons __tmp93165 __tmp93156)))) + (cons __tmp93095 __tmp93086)))) (declare (not safe)) - (cons '"not an instance" __tmp93155)))) + (cons '"not an instance" __tmp93085)))) (declare (not safe)) - (cons __tmp93168 __tmp93154)))) + (cons __tmp93098 __tmp93084)))) (declare (not safe)) - (cons __tmp93153 '())))) + (cons __tmp93083 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp93169 - __tmp93152)))) + (cons __tmp93099 + __tmp93082)))) (declare (not safe)) - (cons __tmp93172 __tmp93151)))) + (cons __tmp93102 __tmp93081)))) (declare (not safe)) - (cons __tmp93175 __tmp93150)))) + (cons __tmp93105 __tmp93080)))) (declare (not safe)) - (cons __tmp93149 '())))) + (cons __tmp93079 '())))) (declare (not safe)) - (cons __tmp93176 __tmp93148)))) + (cons __tmp93106 __tmp93078)))) (declare (not safe)) - (cons __tmp93214 __tmp93147)))) + (cons __tmp93144 __tmp93077)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp93218 - __tmp93146)))) + (cons __tmp93148 + __tmp93076)))) (declare (not safe)) - (cons __tmp93145 '())))) + (cons __tmp93075 '())))) (declare (not safe)) - (cons __tmp93219 __tmp93144)))) + (cons __tmp93149 __tmp93074)))) (declare (not safe)) - (cons __tmp93222 __tmp93143)))) + (cons __tmp93152 __tmp93073)))) (declare (not safe)) - (cons __tmp93142 _g8721187232_))))) + (cons __tmp93072 _g8714187162_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp93141 + (foldr* __tmp93071 '() - _L87082_ - _L87185_ - _L87082_ - _L87185_ - _L87082_))))) + _L87012_ + _L87115_ + _L87012_ + _L87115_ + _L87012_))))) (declare (not safe)) - (cons __tmp93223 __tmp93140)))) + (cons __tmp93153 __tmp93070)))) (declare (not safe)) - (cons __tmp93256 __tmp93139)))) + (cons __tmp93186 __tmp93069)))) (declare (not safe)) - (cons __tmp93261 __tmp93138)))) - _macro-getf8712287181_ - _hd8710987139_) - (_g8710487128_ _g8710587132_))))))) + (cons __tmp93191 __tmp93068)))) + _macro-getf8705287111_ + _hd8703987069_) + (_g8703487058_ _g8703587062_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop8711787161_ - _target8711487155_ + (_loop8704787091_ + _target8704487085_ '())) - (_g8710487128_ _g8710587132_))))) - (_g8710487128_ _g8710587132_)))) - (_g8710487128_ _g8710587132_)))) - (_g8710487128_ _g8710587132_))))) + (_g8703487058_ _g8703587062_))))) + (_g8703487058_ _g8703587062_)))) + (_g8703487058_ _g8703587062_)))) + (_g8703487058_ _g8703587062_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8710387235_ + (_g8703387165_ (list (gx#stx-identifier - _L87084_ + _L87014_ '"macro-" - _L87084_) - (map (lambda (_f87239_) + _L87014_) + (map (lambda (_f87169_) (gx#stx-identifier - _f87239_ + _f87169_ '"macro-" - _f87239_)) - (let ((__tmp93262 - (lambda (_g8724187244_ + _f87169_)) + (let ((__tmp93192 + (lambda (_g8717187174_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g8724287247_) + _g8717287177_) (let () (declare (not safe)) - (cons _g8724187244_ _g8724287247_))))) + (cons _g8717187174_ _g8717287177_))))) (declare (not safe)) - (foldr1 __tmp93262 '() _L87082_))))))) + (foldr1 __tmp93192 '() _L87012_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf8700987078_ - _hd8699987046_) - (_g8698887015_ _g8698987019_))))))) - (_loop8700487058_ _target8700187052_ '())) - (_g8698887015_ _g8698987019_))))) + _getf8693987008_ + _hd8692986976_) + (_g8691886945_ _g8691986949_))))))) + (_loop8693486988_ _target8693186982_ '())) + (_g8691886945_ _g8691986949_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8698887015_ _g8698987019_)))) - (_g8698887015_ _g8698987019_)))) - (_g8698887015_ _g8698987019_)))) - (_g8698887015_ _g8698987019_))))) - (_g8698787250_ _stx86985_)))) + (_g8691886945_ _g8691986949_)))) + (_g8691886945_ _g8691986949_)))) + (_g8691886945_ _g8691986949_)))) + (_g8691886945_ _g8691986949_))))) + (_g8691787180_ _stx86915_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx87256_) - (let* ((_g8726087280_ - (lambda (_g8726187276_) + (lambda (_$stx87186_) + (let* ((_g8719087210_ + (lambda (_g8719187206_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8726187276_))) - (_g8725987351_ - (lambda (_g8726187284_) - (if (gx#stx-pair? _g8726187284_) - (let ((_e8726587287_ (gx#syntax-e _g8726187284_))) - (let ((_hd8726487291_ + _g8719187206_))) + (_g8718987281_ + (lambda (_g8719187214_) + (if (gx#stx-pair? _g8719187214_) + (let ((_e8719587217_ (gx#syntax-e _g8719187214_))) + (let ((_hd8719487221_ (let () (declare (not safe)) - (##car _e8726587287_))) - (_tl8726387294_ + (##car _e8719587217_))) + (_tl8719387224_ (let () (declare (not safe)) - (##cdr _e8726587287_)))) - (if (gx#stx-pair/null? _tl8726387294_) - (let ((_g93263_ + (##cdr _e8719587217_)))) + (if (gx#stx-pair/null? _tl8719387224_) + (let ((_g93193_ (gx#syntax-split-splice - _tl8726387294_ + _tl8719387224_ '0))) (begin - (let ((_g93264_ + (let ((_g93194_ (let () (declare (not safe)) - (if (##values? _g93263_) - (##vector-length _g93263_) + (if (##values? _g93193_) + (##vector-length _g93193_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g93264_ 2))) + (##fx= _g93194_ 2))) (error "Context expects 2 values" - _g93264_))) - (let ((_target8726687297_ + _g93194_))) + (let ((_target8719687227_ (let () (declare (not safe)) - (##vector-ref _g93263_ 0))) - (_tl8726887300_ + (##vector-ref _g93193_ 0))) + (_tl8719887230_ (let () (declare (not safe)) - (##vector-ref _g93263_ 1)))) - (if (gx#stx-null? _tl8726887300_) - (letrec ((_loop8726987303_ - (lambda (_hd8726787307_ - _defexn8727387310_) + (##vector-ref _g93193_ 1)))) + (if (gx#stx-null? _tl8719887230_) + (letrec ((_loop8719987233_ + (lambda (_hd8719787237_ + _defexn8720387240_) (if (gx#stx-pair? - _hd8726787307_) - (let ((_e8727087313_ + _hd8719787237_) + (let ((_e8720087243_ (gx#syntax-e - _hd8726787307_))) - (let ((_lp-hd8727187317_ + _hd8719787237_))) + (let ((_lp-hd8720187247_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e8727087313_))) - (_lp-tl8727287320_ - (let () (declare (not safe)) (##cdr _e8727087313_)))) - (_loop8726987303_ - _lp-tl8727287320_ + (let () (declare (not safe)) (##car _e8720087243_))) + (_lp-tl8720287250_ + (let () (declare (not safe)) (##cdr _e8720087243_)))) + (_loop8719987233_ + _lp-tl8720287250_ (let () (declare (not safe)) - (cons _lp-hd8727187317_ _defexn8727387310_))))) - (let ((_defexn8727487323_ (reverse _defexn8727387310_))) - ((lambda (_L87327_) - (let ((__tmp93270 (gx#datum->syntax '#f 'begin)) - (__tmp93265 - (let ((__tmp93266 - (lambda (_g8734287345_ _g8734387348_) - (let ((__tmp93267 - (let ((__tmp93269 + (cons _lp-hd8720187247_ _defexn8720387240_))))) + (let ((_defexn8720487253_ (reverse _defexn8720387240_))) + ((lambda (_L87257_) + (let ((__tmp93200 (gx#datum->syntax '#f 'begin)) + (__tmp93195 + (let ((__tmp93196 + (lambda (_g8727287275_ _g8727387278_) + (let ((__tmp93197 + (let ((__tmp93199 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp93268 + (__tmp93198 (let () (declare (not safe)) - (cons _g8734287345_ + (cons _g8727287275_ '())))) (declare (not safe)) - (cons __tmp93269 __tmp93268)))) + (cons __tmp93199 __tmp93198)))) (declare (not safe)) - (cons __tmp93267 _g8734387348_))))) + (cons __tmp93197 _g8727387278_))))) (declare (not safe)) - (foldr1 __tmp93266 '() _L87327_)))) + (foldr1 __tmp93196 '() _L87257_)))) (declare (not safe)) - (cons __tmp93270 __tmp93265))) - _defexn8727487323_)))))) + (cons __tmp93200 __tmp93195))) + _defexn8720487253_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop8726987303_ - _target8726687297_ + (_loop8719987233_ + _target8719687227_ '())) - (_g8726087280_ _g8726187284_))))) - (_g8726087280_ _g8726187284_)))) - (_g8726087280_ _g8726187284_))))) - (_g8725987351_ _$stx87256_)))))) + (_g8719087210_ _g8719187214_))))) + (_g8719087210_ _g8719187214_)))) + (_g8719087210_ _g8719187214_))))) + (_g8718987281_ _$stx87186_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index 76f77b090..7ecba137c 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 1707423039) + (define gerbil/runtime/eval::timestamp 1707565658) (begin (define __context::t - (let ((__tmp110552 - (let ((__tmp110553 + (let ((__tmp110482 + (let ((__tmp110483 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110553 '())))) + (cons __tmp110483 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__context::t '__context '#f '(t ns super table) - __tmp110552 + __tmp110482 '#f))) (define __context? (let () (declare (not safe)) (make-struct-predicate __context::t))) (define make-__context - (lambda _$args106162_ - (apply make-struct-instance __context::t _$args106162_))) + (lambda _$args106092_ + (apply make-struct-instance __context::t _$args106092_))) (define __context-t (let () (declare (not safe)) @@ -84,24 +84,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator __context::t 'table))) (define __runtime::t - (let ((__tmp110554 - (let ((__tmp110555 + (let ((__tmp110484 + (let ((__tmp110485 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110555 '())))) + (cons __tmp110485 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__runtime::t '__runtime '#f '(id) - __tmp110554 + __tmp110484 '#f))) (define __runtime? (let () (declare (not safe)) (make-struct-predicate __runtime::t))) (define make-__runtime - (lambda _$args106159_ - (apply make-struct-instance __runtime::t _$args106159_))) + (lambda _$args106089_ + (apply make-struct-instance __runtime::t _$args106089_))) (define __runtime-id (let () (declare (not safe)) @@ -119,24 +119,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator __runtime::t 'id))) (define __syntax::t - (let ((__tmp110556 - (let ((__tmp110557 + (let ((__tmp110486 + (let ((__tmp110487 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110557 '())))) + (cons __tmp110487 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__syntax::t '__syntax '#f '(e id) - __tmp110556 + __tmp110486 '#f))) (define __syntax? (let () (declare (not safe)) (make-struct-predicate __syntax::t))) (define make-__syntax - (lambda _$args106156_ - (apply make-struct-instance __syntax::t _$args106156_))) + (lambda _$args106086_ + (apply make-struct-instance __syntax::t _$args106086_))) (define __syntax-e (let () (declare (not safe)) (make-struct-slot-accessor __syntax::t 'e))) (define __syntax-id @@ -164,24 +164,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator __syntax::t 'id))) (define __macro::t - (let ((__tmp110558 - (let ((__tmp110559 + (let ((__tmp110488 + (let ((__tmp110489 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110559 '())))) + (cons __tmp110489 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__macro::t '__macro __syntax::t '() - __tmp110558 + __tmp110488 '#f))) (define __macro? (let () (declare (not safe)) (make-struct-predicate __macro::t))) (define make-__macro - (lambda _$args106153_ - (apply make-struct-instance __macro::t _$args106153_))) + (lambda _$args106083_ + (apply make-struct-instance __macro::t _$args106083_))) (define __macro-e (let () (declare (not safe)) (make-struct-slot-accessor __macro::t 'e))) (define __macro-id @@ -207,24 +207,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator __macro::t 'id))) (define __special-form::t - (let ((__tmp110560 - (let ((__tmp110561 + (let ((__tmp110490 + (let ((__tmp110491 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110561 '())))) + (cons __tmp110491 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__special-form::t '__special-form __macro::t '() - __tmp110560 + __tmp110490 '#f))) (define __special-form? (let () (declare (not safe)) (make-struct-predicate __special-form::t))) (define make-__special-form - (lambda _$args106150_ - (apply make-struct-instance __special-form::t _$args106150_))) + (lambda _$args106080_ + (apply make-struct-instance __special-form::t _$args106080_))) (define __special-form-e (let () (declare (not safe)) @@ -258,24 +258,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator __special-form::t 'id))) (define __core-form::t - (let ((__tmp110562 - (let ((__tmp110563 + (let ((__tmp110492 + (let ((__tmp110493 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110563 '())))) + (cons __tmp110493 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__core-form::t '__core-form __syntax::t '() - __tmp110562 + __tmp110492 '#f))) (define __core-form? (let () (declare (not safe)) (make-struct-predicate __core-form::t))) (define make-__core-form - (lambda _$args106147_ - (apply make-struct-instance __core-form::t _$args106147_))) + (lambda _$args106077_ + (apply make-struct-instance __core-form::t _$args106077_))) (define __core-form-e (let () (declare (not safe)) @@ -309,26 +309,26 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator __core-form::t 'id))) (define __core-expression::t - (let ((__tmp110564 - (let ((__tmp110565 + (let ((__tmp110494 + (let ((__tmp110495 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110565 '())))) + (cons __tmp110495 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__core-expression::t '__core-expression __core-form::t '() - __tmp110564 + __tmp110494 '#f))) (define __core-expression? (let () (declare (not safe)) (make-struct-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args106144_ - (apply make-struct-instance __core-expression::t _$args106144_))) + (lambda _$args106074_ + (apply make-struct-instance __core-expression::t _$args106074_))) (define __core-expression-e (let () (declare (not safe)) @@ -362,26 +362,26 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator __core-expression::t 'id))) (define __core-special-form::t - (let ((__tmp110566 - (let ((__tmp110567 + (let ((__tmp110496 + (let ((__tmp110497 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110567 '())))) + (cons __tmp110497 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form __core-form::t '() - __tmp110566 + __tmp110496 '#f))) (define __core-special-form? (let () (declare (not safe)) (make-struct-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args106141_ - (apply make-struct-instance __core-special-form::t _$args106141_))) + (lambda _$args106071_ + (apply make-struct-instance __core-special-form::t _$args106071_))) (define __core-special-form-e (let () (declare (not safe)) @@ -415,24 +415,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator __core-special-form::t 'id))) (define __struct-info::t - (let ((__tmp110568 - (let ((__tmp110569 + (let ((__tmp110498 + (let ((__tmp110499 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110569 '())))) + (cons __tmp110499 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__struct-info::t '__struct-info __syntax::t '() - __tmp110568 + __tmp110498 '#f))) (define __struct-info? (let () (declare (not safe)) (make-struct-predicate __struct-info::t))) (define make-__struct-info - (lambda _$args106138_ - (apply make-struct-instance __struct-info::t _$args106138_))) + (lambda _$args106068_ + (apply make-struct-instance __struct-info::t _$args106068_))) (define __struct-info-e (let () (declare (not safe)) @@ -466,24 +466,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator __struct-info::t 'id))) (define __feature::t - (let ((__tmp110570 - (let ((__tmp110571 + (let ((__tmp110500 + (let ((__tmp110501 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110571 '())))) + (cons __tmp110501 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__feature::t '__feature __syntax::t '() - __tmp110570 + __tmp110500 '#f))) (define __feature? (let () (declare (not safe)) (make-struct-predicate __feature::t))) (define make-__feature - (lambda _$args106135_ - (apply make-struct-instance __feature::t _$args106135_))) + (lambda _$args106065_ + (apply make-struct-instance __feature::t _$args106065_))) (define __feature-e (let () (declare (not safe)) @@ -515,24 +515,24 @@ (declare (not safe)) (make-struct-slot-unchecked-mutator __feature::t 'id))) (define __module::t - (let ((__tmp110572 - (let ((__tmp110573 + (let ((__tmp110502 + (let ((__tmp110503 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp110573 '())))) + (cons __tmp110503 '())))) (declare (not safe)) - (make-struct-type* + (make-struct-type 'gerbil/runtime/eval#__module::t '__module __context::t '(id path import export) - __tmp110572 + __tmp110502 '#f))) (define __module? (let () (declare (not safe)) (make-struct-predicate __module::t))) (define make-__module - (lambda _$args106132_ - (apply make-struct-instance __module::t _$args106132_))) + (lambda _$args106062_ + (apply make-struct-instance __module::t _$args106062_))) (define __module-id (let () (declare (not safe)) @@ -656,750 +656,750 @@ (define __*modules* (let () (declare (not safe)) (make-table))) (define __*core* (let () (declare (not safe)) (make-table 'test: eq?))) (define __*top* - (let ((__tmp110575 + (let ((__tmp110505 (let () (declare (not safe)) (##structure __context::t 'root '#f '#f __*core*))) - (__tmp110574 + (__tmp110504 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'top '#f __tmp110575 __tmp110574))) + (##structure __context::t 'top '#f __tmp110505 __tmp110504))) (define __current-expander (make-parameter '#f)) (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve__% - (lambda (_id106107_ _ctx106108_) - (if _ctx106108_ - (let ((_id106110_ - (let () (declare (not safe)) (__AST-e _id106107_)))) - (let _lp106112_ ((_ctx106114_ _ctx106108_)) - (let ((_$e106116_ + (lambda (_id106037_ _ctx106038_) + (if _ctx106038_ + (let ((_id106040_ + (let () (declare (not safe)) (__AST-e _id106037_)))) + (let _lp106042_ ((_ctx106044_ _ctx106038_)) + (let ((_$e106046_ (table-ref - (##structure-ref _ctx106114_ '4 __context::t '#f) - _id106110_ + (##structure-ref _ctx106044_ '4 __context::t '#f) + _id106040_ '#f))) - (if _$e106116_ - (values _$e106116_) - (let ((_$e106119_ + (if _$e106046_ + (values _$e106046_) + (let ((_$e106049_ (##structure-ref - _ctx106114_ + _ctx106044_ '3 __context::t '#f))) - (if _$e106119_ + (if _$e106049_ (let () (declare (not safe)) - (_lp106112_ _$e106119_)) + (_lp106042_ _$e106049_)) '#f)))))) '#f))) (define __core-resolve__0 - (lambda (_id106125_) - (let ((_ctx106127_ (__current-context))) + (lambda (_id106055_) + (let ((_ctx106057_ (__current-context))) (declare (not safe)) - (__core-resolve__% _id106125_ _ctx106127_)))) + (__core-resolve__% _id106055_ _ctx106057_)))) (define __core-resolve - (lambda _g110577_ - (let ((_g110576_ (let () (declare (not safe)) (##length _g110577_)))) - (cond ((let () (declare (not safe)) (##fx= _g110576_ 1)) - (apply (lambda (_id106125_) + (lambda _g110507_ + (let ((_g110506_ (let () (declare (not safe)) (##length _g110507_)))) + (cond ((let () (declare (not safe)) (##fx= _g110506_ 1)) + (apply (lambda (_id106055_) (let () (declare (not safe)) - (__core-resolve__0 _id106125_))) - _g110577_)) - ((let () (declare (not safe)) (##fx= _g110576_ 2)) - (apply (lambda (_id106129_ _ctx106130_) + (__core-resolve__0 _id106055_))) + _g110507_)) + ((let () (declare (not safe)) (##fx= _g110506_ 2)) + (apply (lambda (_id106059_ _ctx106060_) (let () (declare (not safe)) - (__core-resolve__% _id106129_ _ctx106130_))) - _g110577_)) + (__core-resolve__% _id106059_ _ctx106060_))) + _g110507_)) (else (##raise-wrong-number-of-arguments-exception __core-resolve - _g110577_)))))) + _g110507_)))))) (define __core-bound-id?__% - (lambda (_id106090_ _is?106091_) - (let ((_$e106093_ - (let () (declare (not safe)) (__core-resolve__0 _id106090_)))) - (if _$e106093_ (_is?106091_ _$e106093_) '#f)))) + (lambda (_id106020_ _is?106021_) + (let ((_$e106023_ + (let () (declare (not safe)) (__core-resolve__0 _id106020_)))) + (if _$e106023_ (_is?106021_ _$e106023_) '#f)))) (define __core-bound-id?__0 - (lambda (_id106099_) - (let ((_is?106101_ true)) + (lambda (_id106029_) + (let ((_is?106031_ true)) (declare (not safe)) - (__core-bound-id?__% _id106099_ _is?106101_)))) + (__core-bound-id?__% _id106029_ _is?106031_)))) (define __core-bound-id? - (lambda _g110579_ - (let ((_g110578_ (let () (declare (not safe)) (##length _g110579_)))) - (cond ((let () (declare (not safe)) (##fx= _g110578_ 1)) - (apply (lambda (_id106099_) + (lambda _g110509_ + (let ((_g110508_ (let () (declare (not safe)) (##length _g110509_)))) + (cond ((let () (declare (not safe)) (##fx= _g110508_ 1)) + (apply (lambda (_id106029_) (let () (declare (not safe)) - (__core-bound-id?__0 _id106099_))) - _g110579_)) - ((let () (declare (not safe)) (##fx= _g110578_ 2)) - (apply (lambda (_id106103_ _is?106104_) + (__core-bound-id?__0 _id106029_))) + _g110509_)) + ((let () (declare (not safe)) (##fx= _g110508_ 2)) + (apply (lambda (_id106033_ _is?106034_) (let () (declare (not safe)) - (__core-bound-id?__% _id106103_ _is?106104_))) - _g110579_)) + (__core-bound-id?__% _id106033_ _is?106034_))) + _g110509_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g110579_)))))) + _g110509_)))))) (define __core-bind-runtime!__% - (lambda (_id106073_ _eid106074_ _ctx106075_) - (if _eid106074_ - (let ((__tmp110582 - (##structure-ref _ctx106075_ '4 __context::t '#f)) - (__tmp110581 - (let () (declare (not safe)) (__AST-e _id106073_))) - (__tmp110580 + (lambda (_id106003_ _eid106004_ _ctx106005_) + (if _eid106004_ + (let ((__tmp110512 + (##structure-ref _ctx106005_ '4 __context::t '#f)) + (__tmp110511 + (let () (declare (not safe)) (__AST-e _id106003_))) + (__tmp110510 (let () (declare (not safe)) - (##structure __runtime::t _eid106074_)))) + (##structure __runtime::t _eid106004_)))) (declare (not safe)) - (table-set! __tmp110582 __tmp110581 __tmp110580)) + (table-set! __tmp110512 __tmp110511 __tmp110510)) '#!void))) (define __core-bind-runtime!__0 - (lambda (_id106080_ _eid106081_) - (let ((_ctx106083_ (__current-context))) + (lambda (_id106010_ _eid106011_) + (let ((_ctx106013_ (__current-context))) (declare (not safe)) - (__core-bind-runtime!__% _id106080_ _eid106081_ _ctx106083_)))) + (__core-bind-runtime!__% _id106010_ _eid106011_ _ctx106013_)))) (define __core-bind-runtime! - (lambda _g110584_ - (let ((_g110583_ (let () (declare (not safe)) (##length _g110584_)))) - (cond ((let () (declare (not safe)) (##fx= _g110583_ 2)) - (apply (lambda (_id106080_ _eid106081_) + (lambda _g110514_ + (let ((_g110513_ (let () (declare (not safe)) (##length _g110514_)))) + (cond ((let () (declare (not safe)) (##fx= _g110513_ 2)) + (apply (lambda (_id106010_ _eid106011_) (let () (declare (not safe)) - (__core-bind-runtime!__0 _id106080_ _eid106081_))) - _g110584_)) - ((let () (declare (not safe)) (##fx= _g110583_ 3)) - (apply (lambda (_id106085_ _eid106086_ _ctx106087_) + (__core-bind-runtime!__0 _id106010_ _eid106011_))) + _g110514_)) + ((let () (declare (not safe)) (##fx= _g110513_ 3)) + (apply (lambda (_id106015_ _eid106016_ _ctx106017_) (let () (declare (not safe)) (__core-bind-runtime!__% - _id106085_ - _eid106086_ - _ctx106087_))) - _g110584_)) + _id106015_ + _eid106016_ + _ctx106017_))) + _g110514_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-runtime! - _g110584_)))))) + _g110514_)))))) (define __core-bind-syntax!__% - (lambda (_id106056_ _e106057_ _make106058_) - (let ((__tmp110585 + (lambda (_id105986_ _e105987_ _make105988_) + (let ((__tmp110515 (if (let () (declare (not safe)) (##structure-instance-of? - _e106057_ + _e105987_ 'gerbil/runtime/eval#__syntax::t)) - _e106057_ - (_make106058_ _e106057_ _id106056_)))) + _e105987_ + (_make105988_ _e105987_ _id105986_)))) (declare (not safe)) - (table-set! __*core* _id106056_ __tmp110585)))) + (table-set! __*core* _id105986_ __tmp110515)))) (define __core-bind-syntax!__0 - (lambda (_id106063_ _e106064_) - (let ((_make106066_ make-__syntax)) + (lambda (_id105993_ _e105994_) + (let ((_make105996_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id106063_ _e106064_ _make106066_)))) + (__core-bind-syntax!__% _id105993_ _e105994_ _make105996_)))) (define __core-bind-syntax! - (lambda _g110587_ - (let ((_g110586_ (let () (declare (not safe)) (##length _g110587_)))) - (cond ((let () (declare (not safe)) (##fx= _g110586_ 2)) - (apply (lambda (_id106063_ _e106064_) + (lambda _g110517_ + (let ((_g110516_ (let () (declare (not safe)) (##length _g110517_)))) + (cond ((let () (declare (not safe)) (##fx= _g110516_ 2)) + (apply (lambda (_id105993_ _e105994_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id106063_ _e106064_))) - _g110587_)) - ((let () (declare (not safe)) (##fx= _g110586_ 3)) - (apply (lambda (_id106068_ _e106069_ _make106070_) + (__core-bind-syntax!__0 _id105993_ _e105994_))) + _g110517_)) + ((let () (declare (not safe)) (##fx= _g110516_ 3)) + (apply (lambda (_id105998_ _e105999_ _make106000_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id106068_ - _e106069_ - _make106070_))) - _g110587_)) + _id105998_ + _e105999_ + _make106000_))) + _g110517_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g110587_)))))) + _g110517_)))))) (define __core-bind-macro! - (lambda (_id106052_ _e106053_) + (lambda (_id105982_ _e105983_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id106052_ _e106053_ make-__macro)))) + (__core-bind-syntax!__% _id105982_ _e105983_ make-__macro)))) (define __core-bind-special-form! - (lambda (_id106049_ _e106050_) + (lambda (_id105979_ _e105980_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id106049_ _e106050_ make-__special-form)))) + (__core-bind-syntax!__% _id105979_ _e105980_ make-__special-form)))) (define __core-bind-user-syntax!__% - (lambda (_id106033_ _e106034_ _ctx106035_) - (let ((__tmp110591 (##structure-ref _ctx106035_ '4 __context::t '#f)) - (__tmp110590 (let () (declare (not safe)) (__AST-e _id106033_))) - (__tmp110588 + (lambda (_id105963_ _e105964_ _ctx105965_) + (let ((__tmp110521 (##structure-ref _ctx105965_ '4 __context::t '#f)) + (__tmp110520 (let () (declare (not safe)) (__AST-e _id105963_))) + (__tmp110518 (if (let () (declare (not safe)) (##structure-instance-of? - _e106034_ + _e105964_ 'gerbil/runtime/eval#__syntax::t)) - _e106034_ - (let ((__tmp110589 - (let () (declare (not safe)) (__AST-e _id106033_)))) + _e105964_ + (let ((__tmp110519 + (let () (declare (not safe)) (__AST-e _id105963_)))) (declare (not safe)) - (##structure __syntax::t _e106034_ __tmp110589))))) + (##structure __syntax::t _e105964_ __tmp110519))))) (declare (not safe)) - (table-set! __tmp110591 __tmp110590 __tmp110588)))) + (table-set! __tmp110521 __tmp110520 __tmp110518)))) (define __core-bind-user-syntax!__0 - (lambda (_id106040_ _e106041_) - (let ((_ctx106043_ (__current-context))) + (lambda (_id105970_ _e105971_) + (let ((_ctx105973_ (__current-context))) (declare (not safe)) - (__core-bind-user-syntax!__% _id106040_ _e106041_ _ctx106043_)))) + (__core-bind-user-syntax!__% _id105970_ _e105971_ _ctx105973_)))) (define __core-bind-user-syntax! - (lambda _g110593_ - (let ((_g110592_ (let () (declare (not safe)) (##length _g110593_)))) - (cond ((let () (declare (not safe)) (##fx= _g110592_ 2)) - (apply (lambda (_id106040_ _e106041_) + (lambda _g110523_ + (let ((_g110522_ (let () (declare (not safe)) (##length _g110523_)))) + (cond ((let () (declare (not safe)) (##fx= _g110522_ 2)) + (apply (lambda (_id105970_ _e105971_) (let () (declare (not safe)) (__core-bind-user-syntax!__0 - _id106040_ - _e106041_))) - _g110593_)) - ((let () (declare (not safe)) (##fx= _g110592_ 3)) - (apply (lambda (_id106045_ _e106046_ _ctx106047_) + _id105970_ + _e105971_))) + _g110523_)) + ((let () (declare (not safe)) (##fx= _g110522_ 3)) + (apply (lambda (_id105975_ _e105976_ _ctx105977_) (let () (declare (not safe)) (__core-bind-user-syntax!__% - _id106045_ - _e106046_ - _ctx106047_))) - _g110593_)) + _id105975_ + _e105976_ + _ctx105977_))) + _g110523_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-user-syntax! - _g110593_)))))) + _g110523_)))))) (define make-__runtime-id__% - (lambda (_id106014_ _ctx106015_) - (let ((_id106017_ (let () (declare (not safe)) (__AST-e _id106014_)))) - (if (let () (declare (not safe)) (eq? _id106017_ '_)) + (lambda (_id105944_ _ctx105945_) + (let ((_id105947_ (let () (declare (not safe)) (__AST-e _id105944_)))) + (if (let () (declare (not safe)) (eq? _id105947_ '_)) '#f - (if (uninterned-symbol? _id106017_) - (gensym _id106017_) - (if (let () (declare (not safe)) (symbol? _id106017_)) - (let ((_$e106019_ + (if (uninterned-symbol? _id105947_) + (gensym _id105947_) + (if (let () (declare (not safe)) (symbol? _id105947_)) + (let ((_$e105949_ (##structure-ref - _ctx106015_ + _ctx105945_ '1 __context::t '#f))) (if (let () (declare (not safe)) - (eq? 'local _$e106019_)) - (gensym _id106017_) + (eq? 'local _$e105949_)) + (gensym _id105947_) (if (let () (declare (not safe)) - (eq? 'module _$e106019_)) - (let ((__tmp110594 + (eq? 'module _$e105949_)) + (let ((__tmp110524 (##structure-ref - _ctx106015_ + _ctx105945_ '2 __context::t '#f))) (declare (not safe)) - (make-symbol__1 __tmp110594 '"#" _id106017_)) - _id106017_))) - (error '"Illegal runtime identifier" _id106017_))))))) + (make-symbol__1 __tmp110524 '"#" _id105947_)) + _id105947_))) + (error '"Illegal runtime identifier" _id105947_))))))) (define make-__runtime-id__0 - (lambda (_id106025_) - (let ((_ctx106027_ (__current-context))) + (lambda (_id105955_) + (let ((_ctx105957_ (__current-context))) (declare (not safe)) - (make-__runtime-id__% _id106025_ _ctx106027_)))) + (make-__runtime-id__% _id105955_ _ctx105957_)))) (define make-__runtime-id - (lambda _g110596_ - (let ((_g110595_ (let () (declare (not safe)) (##length _g110596_)))) - (cond ((let () (declare (not safe)) (##fx= _g110595_ 1)) - (apply (lambda (_id106025_) + (lambda _g110526_ + (let ((_g110525_ (let () (declare (not safe)) (##length _g110526_)))) + (cond ((let () (declare (not safe)) (##fx= _g110525_ 1)) + (apply (lambda (_id105955_) (let () (declare (not safe)) - (make-__runtime-id__0 _id106025_))) - _g110596_)) - ((let () (declare (not safe)) (##fx= _g110595_ 2)) - (apply (lambda (_id106029_ _ctx106030_) + (make-__runtime-id__0 _id105955_))) + _g110526_)) + ((let () (declare (not safe)) (##fx= _g110525_ 2)) + (apply (lambda (_id105959_ _ctx105960_) (let () (declare (not safe)) - (make-__runtime-id__% _id106029_ _ctx106030_))) - _g110596_)) + (make-__runtime-id__% _id105959_ _ctx105960_))) + _g110526_)) (else (##raise-wrong-number-of-arguments-exception make-__runtime-id - _g110596_)))))) + _g110526_)))))) (define make-__context-local__% - (lambda (_super106003_) - (let ((__tmp110597 + (lambda (_super105933_) + (let ((__tmp110527 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'local '#f _super106003_ __tmp110597)))) + (##structure __context::t 'local '#f _super105933_ __tmp110527)))) (define make-__context-local__0 (lambda () - (let ((_super106009_ (__current-context))) + (let ((_super105939_ (__current-context))) (declare (not safe)) - (make-__context-local__% _super106009_)))) + (make-__context-local__% _super105939_)))) (define make-__context-local - (lambda _g110599_ - (let ((_g110598_ (let () (declare (not safe)) (##length _g110599_)))) - (cond ((let () (declare (not safe)) (##fx= _g110598_ 0)) + (lambda _g110529_ + (let ((_g110528_ (let () (declare (not safe)) (##length _g110529_)))) + (cond ((let () (declare (not safe)) (##fx= _g110528_ 0)) (apply (lambda () (let () (declare (not safe)) (make-__context-local__0))) - _g110599_)) - ((let () (declare (not safe)) (##fx= _g110598_ 1)) - (apply (lambda (_super106011_) + _g110529_)) + ((let () (declare (not safe)) (##fx= _g110528_ 1)) + (apply (lambda (_super105941_) (let () (declare (not safe)) - (make-__context-local__% _super106011_))) - _g110599_)) + (make-__context-local__% _super105941_))) + _g110529_)) (else (##raise-wrong-number-of-arguments-exception make-__context-local - _g110599_)))))) + _g110529_)))))) (define make-__context-module__% - (lambda (_id105983_ _ns105984_ _path105985_ _super105986_) - (let ((__tmp110600 + (lambda (_id105913_ _ns105914_ _path105915_ _super105916_) + (let ((__tmp110530 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (##structure __module::t 'module - _ns105984_ - _super105986_ - __tmp110600 - _id105983_ - _path105985_ + _ns105914_ + _super105916_ + __tmp110530 + _id105913_ + _path105915_ '#f '#f)))) (define make-__context-module__0 - (lambda (_id105991_ _ns105992_ _path105993_) - (let ((_super105995_ (__current-context))) + (lambda (_id105921_ _ns105922_ _path105923_) + (let ((_super105925_ (__current-context))) (declare (not safe)) (make-__context-module__% - _id105991_ - _ns105992_ - _path105993_ - _super105995_)))) + _id105921_ + _ns105922_ + _path105923_ + _super105925_)))) (define make-__context-module - (lambda _g110602_ - (let ((_g110601_ (let () (declare (not safe)) (##length _g110602_)))) - (cond ((let () (declare (not safe)) (##fx= _g110601_ 3)) - (apply (lambda (_id105991_ _ns105992_ _path105993_) + (lambda _g110532_ + (let ((_g110531_ (let () (declare (not safe)) (##length _g110532_)))) + (cond ((let () (declare (not safe)) (##fx= _g110531_ 3)) + (apply (lambda (_id105921_ _ns105922_ _path105923_) (let () (declare (not safe)) (make-__context-module__0 - _id105991_ - _ns105992_ - _path105993_))) - _g110602_)) - ((let () (declare (not safe)) (##fx= _g110601_ 4)) - (apply (lambda (_id105997_ - _ns105998_ - _path105999_ - _super106000_) + _id105921_ + _ns105922_ + _path105923_))) + _g110532_)) + ((let () (declare (not safe)) (##fx= _g110531_ 4)) + (apply (lambda (_id105927_ + _ns105928_ + _path105929_ + _super105930_) (let () (declare (not safe)) (make-__context-module__% - _id105997_ - _ns105998_ - _path105999_ - _super106000_))) - _g110602_)) + _id105927_ + _ns105928_ + _path105929_ + _super105930_))) + _g110532_)) (else (##raise-wrong-number-of-arguments-exception make-__context-module - _g110602_)))))) + _g110532_)))))) (define __SRC__% - (lambda (_e105966_ _src-stx105967_) - (if (or (let () (declare (not safe)) (pair? _e105966_)) - (let () (declare (not safe)) (symbol? _e105966_))) - (let ((__tmp110606 + (lambda (_e105896_ _src-stx105897_) + (if (or (let () (declare (not safe)) (pair? _e105896_)) + (let () (declare (not safe)) (symbol? _e105896_))) + (let ((__tmp110536 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx105967_ + _src-stx105897_ 'gerbil#AST::t)) - (let ((__tmp110607 + (let ((__tmp110537 (let () (declare (not safe)) - (__AST-source _src-stx105967_)))) + (__AST-source _src-stx105897_)))) (declare (not safe)) - (__locat __tmp110607)) + (__locat __tmp110537)) '#f))) (declare (not safe)) - (##make-source _e105966_ __tmp110606)) + (##make-source _e105896_ __tmp110536)) (if (let () (declare (not safe)) - (##structure-instance-of? _e105966_ 'gerbil#AST::t)) - (let ((__tmp110605 + (##structure-instance-of? _e105896_ 'gerbil#AST::t)) + (let ((__tmp110535 (let () (declare (not safe)) - (##unchecked-structure-ref _e105966_ '1 AST::t '#f))) - (__tmp110603 - (let ((__tmp110604 + (##unchecked-structure-ref _e105896_ '1 AST::t '#f))) + (__tmp110533 + (let ((__tmp110534 (let () (declare (not safe)) - (__AST-source _e105966_)))) + (__AST-source _e105896_)))) (declare (not safe)) - (__locat __tmp110604)))) + (__locat __tmp110534)))) (declare (not safe)) - (##make-source __tmp110605 __tmp110603)) - (error '"BUG! Cannot sourcify object" _e105966_))))) + (##make-source __tmp110535 __tmp110533)) + (error '"BUG! Cannot sourcify object" _e105896_))))) (define __SRC__0 - (lambda (_e105975_) - (let ((_src-stx105977_ '#f)) + (lambda (_e105905_) + (let ((_src-stx105907_ '#f)) (declare (not safe)) - (__SRC__% _e105975_ _src-stx105977_)))) + (__SRC__% _e105905_ _src-stx105907_)))) (define __SRC - (lambda _g110609_ - (let ((_g110608_ (let () (declare (not safe)) (##length _g110609_)))) - (cond ((let () (declare (not safe)) (##fx= _g110608_ 1)) - (apply (lambda (_e105975_) - (let () (declare (not safe)) (__SRC__0 _e105975_))) - _g110609_)) - ((let () (declare (not safe)) (##fx= _g110608_ 2)) - (apply (lambda (_e105979_ _src-stx105980_) + (lambda _g110539_ + (let ((_g110538_ (let () (declare (not safe)) (##length _g110539_)))) + (cond ((let () (declare (not safe)) (##fx= _g110538_ 1)) + (apply (lambda (_e105905_) + (let () (declare (not safe)) (__SRC__0 _e105905_))) + _g110539_)) + ((let () (declare (not safe)) (##fx= _g110538_ 2)) + (apply (lambda (_e105909_ _src-stx105910_) (let () (declare (not safe)) - (__SRC__% _e105979_ _src-stx105980_))) - _g110609_)) + (__SRC__% _e105909_ _src-stx105910_))) + _g110539_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g110609_)))))) + _g110539_)))))) (define __locat - (lambda (_loc105963_) - (if (let () (declare (not safe)) (##locat? _loc105963_)) - _loc105963_ + (lambda (_loc105893_) + (if (let () (declare (not safe)) (##locat? _loc105893_)) + _loc105893_ '#f))) (define __check-values - (lambda (_obj105958_ _k105959_) - (let ((_count105961_ - (if (let () (declare (not safe)) (##values? _obj105958_)) - (let () (declare (not safe)) (##vector-length _obj105958_)) + (lambda (_obj105888_ _k105889_) + (let ((_count105891_ + (if (let () (declare (not safe)) (##values? _obj105888_)) + (let () (declare (not safe)) (##vector-length _obj105888_)) '1))) - (if (fx= _count105961_ _k105959_) + (if (fx= _count105891_ _k105889_) '#!void - (error (if (fx< _count105961_ _k105959_) + (error (if (fx< _count105891_ _k105889_) '"Too few values for context" '"Too many values for context") - (if (let () (declare (not safe)) (##values? _obj105958_)) + (if (let () (declare (not safe)) (##values? _obj105888_)) (let () (declare (not safe)) - (##vector->list _obj105958_)) - _obj105958_) - _k105959_))))) + (##vector->list _obj105888_)) + _obj105888_) + _k105889_))))) (define __compile - (lambda (_stx105928_) - (let* ((_$e105930_ _stx105928_) - (_$E105932105938_ + (lambda (_stx105858_) + (let* ((_$e105860_ _stx105858_) + (_$E105862105868_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105930_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e105930_)) - (let* ((_$tgt105933105941_ - (let () (declare (not safe)) (__AST-e _$e105930_))) - (_$hd105934105944_ - (let () (declare (not safe)) (##car _$tgt105933105941_))) - (_$tl105935105947_ + _$e105860_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e105860_)) + (let* ((_$tgt105863105871_ + (let () (declare (not safe)) (__AST-e _$e105860_))) + (_$hd105864105874_ + (let () (declare (not safe)) (##car _$tgt105863105871_))) + (_$tl105865105877_ (let () (declare (not safe)) - (##cdr _$tgt105933105941_)))) - (let* ((_form105951_ _$hd105934105944_) - (_$e105953_ + (##cdr _$tgt105863105871_)))) + (let* ((_form105881_ _$hd105864105874_) + (_$e105883_ (let () (declare (not safe)) - (__core-resolve__0 _form105951_)))) - (if _$e105953_ - ((lambda (_bind105956_) - ((##structure-ref _bind105956_ '1 __syntax::t '#f) - _stx105928_)) - _$e105953_) + (__core-resolve__0 _form105881_)))) + (if _$e105883_ + ((lambda (_bind105886_) + ((##structure-ref _bind105886_ '1 __syntax::t '#f) + _stx105858_)) + _$e105883_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _stx105928_ - _form105951_))))) - (let () (declare (not safe)) (_$E105932105938_)))))) + _stx105858_ + _form105881_))))) + (let () (declare (not safe)) (_$E105862105868_)))))) (define __compile-error__% - (lambda (_stx105915_ _detail105916_) + (lambda (_stx105845_ _detail105846_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx105915_ - _detail105916_)))) + _stx105845_ + _detail105846_)))) (define __compile-error__0 - (lambda (_stx105921_) - (let ((_detail105923_ '#f)) + (lambda (_stx105851_) + (let ((_detail105853_ '#f)) (declare (not safe)) - (__compile-error__% _stx105921_ _detail105923_)))) + (__compile-error__% _stx105851_ _detail105853_)))) (define __compile-error - (lambda _g110611_ - (let ((_g110610_ (let () (declare (not safe)) (##length _g110611_)))) - (cond ((let () (declare (not safe)) (##fx= _g110610_ 1)) - (apply (lambda (_stx105921_) + (lambda _g110541_ + (let ((_g110540_ (let () (declare (not safe)) (##length _g110541_)))) + (cond ((let () (declare (not safe)) (##fx= _g110540_ 1)) + (apply (lambda (_stx105851_) (let () (declare (not safe)) - (__compile-error__0 _stx105921_))) - _g110611_)) - ((let () (declare (not safe)) (##fx= _g110610_ 2)) - (apply (lambda (_stx105925_ _detail105926_) + (__compile-error__0 _stx105851_))) + _g110541_)) + ((let () (declare (not safe)) (##fx= _g110540_ 2)) + (apply (lambda (_stx105855_ _detail105856_) (let () (declare (not safe)) - (__compile-error__% _stx105925_ _detail105926_))) - _g110611_)) + (__compile-error__% _stx105855_ _detail105856_))) + _g110541_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g110611_)))))) + _g110541_)))))) (define __compile-ignore% - (lambda (_stx105912_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx105912_)))) + (lambda (_stx105842_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx105842_)))) (define __compile-begin% - (lambda (_stx105887_) - (let* ((_$e105889_ _stx105887_) - (_$E105891105897_ + (lambda (_stx105817_) + (let* ((_$e105819_ _stx105817_) + (_$E105821105827_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105889_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e105889_)) - (let* ((_$tgt105892105900_ - (let () (declare (not safe)) (__AST-e _$e105889_))) - (_$hd105893105903_ - (let () (declare (not safe)) (##car _$tgt105892105900_))) - (_$tl105894105906_ + _$e105819_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e105819_)) + (let* ((_$tgt105822105830_ + (let () (declare (not safe)) (__AST-e _$e105819_))) + (_$hd105823105833_ + (let () (declare (not safe)) (##car _$tgt105822105830_))) + (_$tl105824105836_ (let () (declare (not safe)) - (##cdr _$tgt105892105900_)))) - (let* ((_body105910_ _$tl105894105906_) - (__tmp110612 - (let ((__tmp110613 (map __compile _body105910_))) + (##cdr _$tgt105822105830_)))) + (let* ((_body105840_ _$tl105824105836_) + (__tmp110542 + (let ((__tmp110543 (map __compile _body105840_))) (declare (not safe)) - (cons 'begin __tmp110613)))) + (cons 'begin __tmp110543)))) (declare (not safe)) - (__SRC__% __tmp110612 _stx105887_))) - (let () (declare (not safe)) (_$E105891105897_)))))) + (__SRC__% __tmp110542 _stx105817_))) + (let () (declare (not safe)) (_$E105821105827_)))))) (define __compile-begin-foreign% - (lambda (_stx105862_) - (let* ((_$e105864_ _stx105862_) - (_$E105866105872_ + (lambda (_stx105792_) + (let* ((_$e105794_ _stx105792_) + (_$E105796105802_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105864_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e105864_)) - (let* ((_$tgt105867105875_ - (let () (declare (not safe)) (__AST-e _$e105864_))) - (_$hd105868105878_ - (let () (declare (not safe)) (##car _$tgt105867105875_))) - (_$tl105869105881_ + _$e105794_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e105794_)) + (let* ((_$tgt105797105805_ + (let () (declare (not safe)) (__AST-e _$e105794_))) + (_$hd105798105808_ + (let () (declare (not safe)) (##car _$tgt105797105805_))) + (_$tl105799105811_ (let () (declare (not safe)) - (##cdr _$tgt105867105875_)))) - (let* ((_body105885_ _$tl105869105881_) - (__tmp110614 - (let ((__tmp110615 + (##cdr _$tgt105797105805_)))) + (let* ((_body105815_ _$tl105799105811_) + (__tmp110544 + (let ((__tmp110545 (let () (declare (not safe)) - (__AST->datum _body105885_)))) + (__AST->datum _body105815_)))) (declare (not safe)) - (cons 'begin __tmp110615)))) + (cons 'begin __tmp110545)))) (declare (not safe)) - (__SRC__% __tmp110614 _stx105862_))) - (let () (declare (not safe)) (_$E105866105872_)))))) + (__SRC__% __tmp110544 _stx105792_))) + (let () (declare (not safe)) (_$E105796105802_)))))) (define __compile-import% - (lambda (_stx105837_) - (let* ((_$e105839_ _stx105837_) - (_$E105841105847_ + (lambda (_stx105767_) + (let* ((_$e105769_ _stx105767_) + (_$E105771105777_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105839_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e105839_)) - (let* ((_$tgt105842105850_ - (let () (declare (not safe)) (__AST-e _$e105839_))) - (_$hd105843105853_ - (let () (declare (not safe)) (##car _$tgt105842105850_))) - (_$tl105844105856_ + _$e105769_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e105769_)) + (let* ((_$tgt105772105780_ + (let () (declare (not safe)) (__AST-e _$e105769_))) + (_$hd105773105783_ + (let () (declare (not safe)) (##car _$tgt105772105780_))) + (_$tl105774105786_ (let () (declare (not safe)) - (##cdr _$tgt105842105850_)))) - (let* ((_body105860_ _$tl105844105856_) - (__tmp110616 - (let ((__tmp110617 - (let ((__tmp110618 - (let ((__tmp110619 + (##cdr _$tgt105772105780_)))) + (let* ((_body105790_ _$tl105774105786_) + (__tmp110546 + (let ((__tmp110547 + (let ((__tmp110548 + (let ((__tmp110549 (let () (declare (not safe)) - (cons _body105860_ '())))) + (cons _body105790_ '())))) (declare (not safe)) - (cons 'quote __tmp110619)))) + (cons 'quote __tmp110549)))) (declare (not safe)) - (cons __tmp110618 '())))) + (cons __tmp110548 '())))) (declare (not safe)) - (cons '__eval-import __tmp110617)))) + (cons '__eval-import __tmp110547)))) (declare (not safe)) - (__SRC__% __tmp110616 _stx105837_))) - (let () (declare (not safe)) (_$E105841105847_)))))) + (__SRC__% __tmp110546 _stx105767_))) + (let () (declare (not safe)) (_$E105771105777_)))))) (define __compile-begin-annotation% - (lambda (_stx105784_) - (let* ((_$e105786_ _stx105784_) - (_$E105788105800_ + (lambda (_stx105714_) + (let* ((_$e105716_ _stx105714_) + (_$E105718105730_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105786_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e105786_)) - (let* ((_$tgt105789105803_ - (let () (declare (not safe)) (__AST-e _$e105786_))) - (_$hd105790105806_ - (let () (declare (not safe)) (##car _$tgt105789105803_))) - (_$tl105791105809_ + _$e105716_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e105716_)) + (let* ((_$tgt105719105733_ + (let () (declare (not safe)) (__AST-e _$e105716_))) + (_$hd105720105736_ + (let () (declare (not safe)) (##car _$tgt105719105733_))) + (_$tl105721105739_ (let () (declare (not safe)) - (##cdr _$tgt105789105803_)))) + (##cdr _$tgt105719105733_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl105791105809_)) - (let* ((_$tgt105792105813_ + (__AST-pair? _$tl105721105739_)) + (let* ((_$tgt105722105743_ (let () (declare (not safe)) - (__AST-e _$tl105791105809_))) - (_$hd105793105816_ + (__AST-e _$tl105721105739_))) + (_$hd105723105746_ (let () (declare (not safe)) - (##car _$tgt105792105813_))) - (_$tl105794105819_ + (##car _$tgt105722105743_))) + (_$tl105724105749_ (let () (declare (not safe)) - (##cdr _$tgt105792105813_)))) - (let ((_ann105823_ _$hd105793105816_)) + (##cdr _$tgt105722105743_)))) + (let ((_ann105753_ _$hd105723105746_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl105794105819_)) - (let* ((_$tgt105795105825_ + (__AST-pair? _$tl105724105749_)) + (let* ((_$tgt105725105755_ (let () (declare (not safe)) - (__AST-e _$tl105794105819_))) - (_$hd105796105828_ + (__AST-e _$tl105724105749_))) + (_$hd105726105758_ (let () (declare (not safe)) - (##car _$tgt105795105825_))) - (_$tl105797105831_ + (##car _$tgt105725105755_))) + (_$tl105727105761_ (let () (declare (not safe)) - (##cdr _$tgt105795105825_)))) - (let ((_expr105835_ _$hd105796105828_)) - (if (let ((__tmp110620 + (##cdr _$tgt105725105755_)))) + (let ((_expr105765_ _$hd105726105758_)) + (if (let ((__tmp110550 (let () (declare (not safe)) - (__AST-e _$tl105797105831_)))) + (__AST-e _$tl105727105761_)))) (declare (not safe)) - (equal? __tmp110620 '())) + (equal? __tmp110550 '())) (let () (declare (not safe)) - (__compile _expr105835_)) + (__compile _expr105765_)) (let () (declare (not safe)) - (_$E105788105800_))))) - (let () (declare (not safe)) (_$E105788105800_))))) - (let () (declare (not safe)) (_$E105788105800_)))) - (let () (declare (not safe)) (_$E105788105800_)))))) + (_$E105718105730_))))) + (let () (declare (not safe)) (_$E105718105730_))))) + (let () (declare (not safe)) (_$E105718105730_)))) + (let () (declare (not safe)) (_$E105718105730_)))))) (define __compile-define-values% - (lambda (_stx105675_) - (let* ((_$e105677_ _stx105675_) - (_$E105679105691_ + (lambda (_stx105605_) + (let* ((_$e105607_ _stx105605_) + (_$E105609105621_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105677_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e105677_)) - (let* ((_$tgt105680105694_ - (let () (declare (not safe)) (__AST-e _$e105677_))) - (_$hd105681105697_ - (let () (declare (not safe)) (##car _$tgt105680105694_))) - (_$tl105682105700_ + _$e105607_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e105607_)) + (let* ((_$tgt105610105624_ + (let () (declare (not safe)) (__AST-e _$e105607_))) + (_$hd105611105627_ + (let () (declare (not safe)) (##car _$tgt105610105624_))) + (_$tl105612105630_ (let () (declare (not safe)) - (##cdr _$tgt105680105694_)))) + (##cdr _$tgt105610105624_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl105682105700_)) - (let* ((_$tgt105683105704_ + (__AST-pair? _$tl105612105630_)) + (let* ((_$tgt105613105634_ (let () (declare (not safe)) - (__AST-e _$tl105682105700_))) - (_$hd105684105707_ + (__AST-e _$tl105612105630_))) + (_$hd105614105637_ (let () (declare (not safe)) - (##car _$tgt105683105704_))) - (_$tl105685105710_ + (##car _$tgt105613105634_))) + (_$tl105615105640_ (let () (declare (not safe)) - (##cdr _$tgt105683105704_)))) - (let ((_hd105714_ _$hd105684105707_)) + (##cdr _$tgt105613105634_)))) + (let ((_hd105644_ _$hd105614105637_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl105685105710_)) - (let* ((_$tgt105686105716_ + (__AST-pair? _$tl105615105640_)) + (let* ((_$tgt105616105646_ (let () (declare (not safe)) - (__AST-e _$tl105685105710_))) - (_$hd105687105719_ + (__AST-e _$tl105615105640_))) + (_$hd105617105649_ (let () (declare (not safe)) - (##car _$tgt105686105716_))) - (_$tl105688105722_ + (##car _$tgt105616105646_))) + (_$tl105618105652_ (let () (declare (not safe)) - (##cdr _$tgt105686105716_)))) - (let ((_expr105726_ _$hd105687105719_)) - (if (let ((__tmp110653 + (##cdr _$tgt105616105646_)))) + (let ((_expr105656_ _$hd105617105649_)) + (if (let ((__tmp110583 (let () (declare (not safe)) - (__AST-e _$tl105688105722_)))) + (__AST-e _$tl105618105652_)))) (declare (not safe)) - (equal? __tmp110653 '())) - (let* ((_$e105728_ _hd105714_) - (_$E105730105771_ + (equal? __tmp110583 '())) + (let* ((_$e105658_ _hd105644_) + (_$E105660105701_ (lambda () - (let ((_$E105731105756_ + (let ((_$E105661105686_ (lambda () - (let* ((_$E105732105743_ + (let* ((_$E105662105673_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -1407,2987 +1407,2987 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105728_)))) - (_ids105746_ _hd105714_) - (_len105748_ (length _ids105746_)) - (_tmp105750_ - (let ((__tmp110621 (gensym))) + _$e105658_)))) + (_ids105676_ _hd105644_) + (_len105678_ (length _ids105676_)) + (_tmp105680_ + (let ((__tmp110551 (gensym))) (declare (not safe)) - (__SRC__0 __tmp110621)))) - (let ((__tmp110622 - (let ((__tmp110623 - (let ((__tmp110640 - (let ((__tmp110641 - (let ((__tmp110642 - (let ((__tmp110643 - (let ((__tmp110644 + (__SRC__0 __tmp110551)))) + (let ((__tmp110552 + (let ((__tmp110553 + (let ((__tmp110570 + (let ((__tmp110571 + (let ((__tmp110572 + (let ((__tmp110573 + (let ((__tmp110574 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr105726_)))) + (__compile _expr105656_)))) (declare (not safe)) - (cons __tmp110644 '())))) + (cons __tmp110574 '())))) (declare (not safe)) - (cons _tmp105750_ __tmp110643)))) + (cons _tmp105680_ __tmp110573)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp110642)))) + (cons 'define __tmp110572)))) (declare (not safe)) - (__SRC__% __tmp110641 _stx105675_))) - (__tmp110624 - (let ((__tmp110636 - (let ((__tmp110637 - (let ((__tmp110638 - (let ((__tmp110639 + (__SRC__% __tmp110571 _stx105605_))) + (__tmp110554 + (let ((__tmp110566 + (let ((__tmp110567 + (let ((__tmp110568 + (let ((__tmp110569 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len105748_ '())))) + (cons _len105678_ '())))) (declare (not safe)) - (cons _tmp105750_ __tmp110639)))) + (cons _tmp105680_ __tmp110569)))) (declare (not safe)) - (cons '__check-values __tmp110638)))) + (cons '__check-values __tmp110568)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp110637 - _stx105675_))) - (__tmp110625 - (let ((__tmp110626 - (let ((__tmp110628 - (lambda (_id105753_ + __tmp110567 + _stx105605_))) + (__tmp110555 + (let ((__tmp110556 + (let ((__tmp110558 + (lambda (_id105683_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k105754_) - (if (let () (declare (not safe)) (__AST-e _id105753_)) - (let ((__tmp110629 - (let ((__tmp110630 - (let ((__tmp110635 + _k105684_) + (if (let () (declare (not safe)) (__AST-e _id105683_)) + (let ((__tmp110559 + (let ((__tmp110560 + (let ((__tmp110565 (let () (declare (not safe)) - (__SRC__0 _id105753_))) - (__tmp110631 - (let ((__tmp110632 - (let ((__tmp110633 - (let ((__tmp110634 + (__SRC__0 _id105683_))) + (__tmp110561 + (let ((__tmp110562 + (let ((__tmp110563 + (let ((__tmp110564 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k105754_ '())))) + (let () (declare (not safe)) (cons _k105684_ '())))) (declare (not safe)) - (cons _tmp105750_ __tmp110634)))) + (cons _tmp105680_ __tmp110564)))) (declare (not safe)) - (cons '##vector-ref __tmp110633)))) + (cons '##vector-ref __tmp110563)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110632 '())))) + (cons __tmp110562 '())))) (declare (not safe)) - (cons __tmp110635 __tmp110631)))) + (cons __tmp110565 __tmp110561)))) (declare (not safe)) - (cons 'define __tmp110630)))) + (cons 'define __tmp110560)))) (declare (not safe)) - (__SRC__% __tmp110629 _stx105675_)) + (__SRC__% __tmp110559 _stx105605_)) '#f))) - (__tmp110627 - (let () (declare (not safe)) (iota _len105748_)))) + (__tmp110557 + (let () (declare (not safe)) (iota _len105678_)))) (declare (not safe)) - (filter-map2 __tmp110628 _ids105746_ __tmp110627)))) + (filter-map2 __tmp110558 _ids105676_ __tmp110557)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp110626)))) + (foldr1 cons '() __tmp110556)))) (declare (not safe)) - (cons __tmp110636 __tmp110625)))) + (cons __tmp110566 __tmp110555)))) (declare (not safe)) - (cons __tmp110640 __tmp110624)))) + (cons __tmp110570 __tmp110554)))) (declare (not safe)) - (cons 'begin __tmp110623)))) + (cons 'begin __tmp110553)))) (declare (not safe)) - (__SRC__% __tmp110622 _stx105675_)))))) + (__SRC__% __tmp110552 _stx105605_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e105728_)) - (let* ((_$tgt105733105759_ + (__AST-pair? _$e105658_)) + (let* ((_$tgt105663105689_ (let () (declare (not safe)) - (__AST-e _$e105728_))) - (_$hd105734105762_ + (__AST-e _$e105658_))) + (_$hd105664105692_ (let () (declare (not safe)) - (##car _$tgt105733105759_))) - (_$tl105735105765_ + (##car _$tgt105663105689_))) + (_$tl105665105695_ (let () (declare (not safe)) - (##cdr _$tgt105733105759_)))) - (let ((_id105769_ - _$hd105734105762_)) - (if (let ((__tmp110650 + (##cdr _$tgt105663105689_)))) + (let ((_id105699_ + _$hd105664105692_)) + (if (let ((__tmp110580 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl105735105765_)))) + (__AST-e _$tl105665105695_)))) (declare (not safe)) - (equal? __tmp110650 '())) - (let ((__tmp110645 - (let ((__tmp110646 - (let ((__tmp110649 + (equal? __tmp110580 '())) + (let ((__tmp110575 + (let ((__tmp110576 + (let ((__tmp110579 (let () (declare (not safe)) - (__SRC__0 _id105769_))) - (__tmp110647 - (let ((__tmp110648 + (__SRC__0 _id105699_))) + (__tmp110577 + (let ((__tmp110578 (let () (declare (not safe)) - (__compile _expr105726_)))) + (__compile _expr105656_)))) (declare (not safe)) - (cons __tmp110648 '())))) + (cons __tmp110578 '())))) (declare (not safe)) - (cons __tmp110649 __tmp110647)))) + (cons __tmp110579 __tmp110577)))) (declare (not safe)) - (cons 'define __tmp110646)))) + (cons 'define __tmp110576)))) (declare (not safe)) - (__SRC__% __tmp110645 _stx105675_)) - (let () (declare (not safe)) (_$E105731105756_))))) + (__SRC__% __tmp110575 _stx105605_)) + (let () (declare (not safe)) (_$E105661105686_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E105731105756_))))))) + (_$E105661105686_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e105728_)) - (let* ((_$tgt105736105774_ + (__AST-pair? _$e105658_)) + (let* ((_$tgt105666105704_ (let () (declare (not safe)) - (__AST-e _$e105728_))) - (_$hd105737105777_ + (__AST-e _$e105658_))) + (_$hd105667105707_ (let () (declare (not safe)) - (##car _$tgt105736105774_))) - (_$tl105738105780_ + (##car _$tgt105666105704_))) + (_$tl105668105710_ (let () (declare (not safe)) - (##cdr _$tgt105736105774_)))) - (if (let ((__tmp110652 + (##cdr _$tgt105666105704_)))) + (if (let ((__tmp110582 (let () (declare (not safe)) - (__AST-e _$hd105737105777_)))) + (__AST-e _$hd105667105707_)))) (declare (not safe)) - (equal? __tmp110652 '#f)) - (if (let ((__tmp110651 + (equal? __tmp110582 '#f)) + (if (let ((__tmp110581 (let () (declare (not safe)) - (__AST-e _$tl105738105780_)))) + (__AST-e _$tl105668105710_)))) (declare (not safe)) - (equal? __tmp110651 '())) + (equal? __tmp110581 '())) (let () (declare (not safe)) - (__compile _expr105726_)) + (__compile _expr105656_)) (let () (declare (not safe)) - (_$E105730105771_))) + (_$E105660105701_))) (let () (declare (not safe)) - (_$E105730105771_)))) + (_$E105660105701_)))) (let () (declare (not safe)) - (_$E105730105771_)))) + (_$E105660105701_)))) (let () (declare (not safe)) - (_$E105679105691_))))) - (let () (declare (not safe)) (_$E105679105691_))))) - (let () (declare (not safe)) (_$E105679105691_)))) - (let () (declare (not safe)) (_$E105679105691_)))))) + (_$E105609105621_))))) + (let () (declare (not safe)) (_$E105609105621_))))) + (let () (declare (not safe)) (_$E105609105621_)))) + (let () (declare (not safe)) (_$E105609105621_)))))) (define __compile-head-id - (lambda (_e105673_) - (let ((__tmp110654 - (if (let () (declare (not safe)) (__AST-e _e105673_)) - _e105673_ + (lambda (_e105603_) + (let ((__tmp110584 + (if (let () (declare (not safe)) (__AST-e _e105603_)) + _e105603_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp110654)))) + (__SRC__0 __tmp110584)))) (define __compile-lambda-head - (lambda (_hd105630_) - (let _recur105632_ ((_rest105634_ _hd105630_)) - (let* ((_$e105636_ _rest105634_) - (_$E105638105656_ + (lambda (_hd105560_) + (let _recur105562_ ((_rest105564_ _hd105560_)) + (let* ((_$e105566_ _rest105564_) + (_$E105568105586_ (lambda () - (let ((_$E105639105653_ + (let ((_$E105569105583_ (lambda () - (let* ((_$E105640105648_ + (let* ((_$E105570105578_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105636_)))) - (_tail105651_ _$e105636_)) + _$e105566_)))) + (_tail105581_ _$e105566_)) (declare (not safe)) - (__compile-head-id _tail105651_))))) - (if (let ((__tmp110655 + (__compile-head-id _tail105581_))))) + (if (let ((__tmp110585 (let () (declare (not safe)) - (__AST-e _$e105636_)))) + (__AST-e _$e105566_)))) (declare (not safe)) - (equal? __tmp110655 '())) + (equal? __tmp110585 '())) '() - (let () (declare (not safe)) (_$E105639105653_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e105636_)) - (let* ((_$tgt105641105659_ - (let () (declare (not safe)) (__AST-e _$e105636_))) - (_$hd105642105662_ + (let () (declare (not safe)) (_$E105569105583_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e105566_)) + (let* ((_$tgt105571105589_ + (let () (declare (not safe)) (__AST-e _$e105566_))) + (_$hd105572105592_ (let () (declare (not safe)) - (##car _$tgt105641105659_))) - (_$tl105643105665_ + (##car _$tgt105571105589_))) + (_$tl105573105595_ (let () (declare (not safe)) - (##cdr _$tgt105641105659_)))) - (let* ((_hd105669_ _$hd105642105662_) - (_rest105671_ _$tl105643105665_)) - (let ((__tmp110657 + (##cdr _$tgt105571105589_)))) + (let* ((_hd105599_ _$hd105572105592_) + (_rest105601_ _$tl105573105595_)) + (let ((__tmp110587 (let () (declare (not safe)) - (__compile-head-id _hd105669_))) - (__tmp110656 + (__compile-head-id _hd105599_))) + (__tmp110586 (let () (declare (not safe)) - (_recur105632_ _rest105671_)))) + (_recur105562_ _rest105601_)))) (declare (not safe)) - (cons __tmp110657 __tmp110656)))) - (let () (declare (not safe)) (_$E105638105656_))))))) + (cons __tmp110587 __tmp110586)))) + (let () (declare (not safe)) (_$E105568105586_))))))) (define __compile-lambda% - (lambda (_stx105577_) - (let* ((_$e105579_ _stx105577_) - (_$E105581105593_ + (lambda (_stx105507_) + (let* ((_$e105509_ _stx105507_) + (_$E105511105523_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105579_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e105579_)) - (let* ((_$tgt105582105596_ - (let () (declare (not safe)) (__AST-e _$e105579_))) - (_$hd105583105599_ - (let () (declare (not safe)) (##car _$tgt105582105596_))) - (_$tl105584105602_ + _$e105509_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e105509_)) + (let* ((_$tgt105512105526_ + (let () (declare (not safe)) (__AST-e _$e105509_))) + (_$hd105513105529_ + (let () (declare (not safe)) (##car _$tgt105512105526_))) + (_$tl105514105532_ (let () (declare (not safe)) - (##cdr _$tgt105582105596_)))) + (##cdr _$tgt105512105526_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl105584105602_)) - (let* ((_$tgt105585105606_ + (__AST-pair? _$tl105514105532_)) + (let* ((_$tgt105515105536_ (let () (declare (not safe)) - (__AST-e _$tl105584105602_))) - (_$hd105586105609_ + (__AST-e _$tl105514105532_))) + (_$hd105516105539_ (let () (declare (not safe)) - (##car _$tgt105585105606_))) - (_$tl105587105612_ + (##car _$tgt105515105536_))) + (_$tl105517105542_ (let () (declare (not safe)) - (##cdr _$tgt105585105606_)))) - (let ((_hd105616_ _$hd105586105609_)) + (##cdr _$tgt105515105536_)))) + (let ((_hd105546_ _$hd105516105539_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl105587105612_)) - (let* ((_$tgt105588105618_ + (__AST-pair? _$tl105517105542_)) + (let* ((_$tgt105518105548_ (let () (declare (not safe)) - (__AST-e _$tl105587105612_))) - (_$hd105589105621_ + (__AST-e _$tl105517105542_))) + (_$hd105519105551_ (let () (declare (not safe)) - (##car _$tgt105588105618_))) - (_$tl105590105624_ + (##car _$tgt105518105548_))) + (_$tl105520105554_ (let () (declare (not safe)) - (##cdr _$tgt105588105618_)))) - (let ((_body105628_ _$hd105589105621_)) - (if (let ((__tmp110663 + (##cdr _$tgt105518105548_)))) + (let ((_body105558_ _$hd105519105551_)) + (if (let ((__tmp110593 (let () (declare (not safe)) - (__AST-e _$tl105590105624_)))) + (__AST-e _$tl105520105554_)))) (declare (not safe)) - (equal? __tmp110663 '())) - (let ((__tmp110658 - (let ((__tmp110659 - (let ((__tmp110662 + (equal? __tmp110593 '())) + (let ((__tmp110588 + (let ((__tmp110589 + (let ((__tmp110592 (let () (declare (not safe)) (__compile-lambda-head - _hd105616_))) - (__tmp110660 - (let ((__tmp110661 + _hd105546_))) + (__tmp110590 + (let ((__tmp110591 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body105628_)))) + (__compile _body105558_)))) (declare (not safe)) - (cons __tmp110661 '())))) + (cons __tmp110591 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110662 - __tmp110660)))) + (cons __tmp110592 + __tmp110590)))) (declare (not safe)) - (cons 'lambda __tmp110659)))) + (cons 'lambda __tmp110589)))) (declare (not safe)) - (__SRC__% __tmp110658 _stx105577_)) + (__SRC__% __tmp110588 _stx105507_)) (let () (declare (not safe)) - (_$E105581105593_))))) - (let () (declare (not safe)) (_$E105581105593_))))) - (let () (declare (not safe)) (_$E105581105593_)))) - (let () (declare (not safe)) (_$E105581105593_)))))) + (_$E105511105523_))))) + (let () (declare (not safe)) (_$E105511105523_))))) + (let () (declare (not safe)) (_$E105511105523_)))) + (let () (declare (not safe)) (_$E105511105523_)))))) (define __compile-case-lambda% - (lambda (_stx105369_) - (letrec ((_variadic?105371_ - (lambda (_hd105542_) - (let* ((_$e105544_ _hd105542_) - (_$E105546105562_ + (lambda (_stx105299_) + (letrec ((_variadic?105301_ + (lambda (_hd105472_) + (let* ((_$e105474_ _hd105472_) + (_$E105476105492_ (lambda () - (let ((_$E105547105559_ + (let ((_$E105477105489_ (lambda () - (let ((_$E105548105556_ + (let ((_$E105478105486_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105544_))))) + _$e105474_))))) '#t)))) - (if (let ((__tmp110664 + (if (let ((__tmp110594 (let () (declare (not safe)) - (__AST-e _$e105544_)))) + (__AST-e _$e105474_)))) (declare (not safe)) - (equal? __tmp110664 '())) + (equal? __tmp110594 '())) '#f (let () (declare (not safe)) - (_$E105547105559_))))))) + (_$E105477105489_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e105544_)) - (let* ((_$tgt105549105565_ + (__AST-pair? _$e105474_)) + (let* ((_$tgt105479105495_ (let () (declare (not safe)) - (__AST-e _$e105544_))) - (_$hd105550105568_ + (__AST-e _$e105474_))) + (_$hd105480105498_ (let () (declare (not safe)) - (##car _$tgt105549105565_))) - (_$tl105551105571_ + (##car _$tgt105479105495_))) + (_$tl105481105501_ (let () (declare (not safe)) - (##cdr _$tgt105549105565_)))) - (let ((_rest105575_ _$tl105551105571_)) + (##cdr _$tgt105479105495_)))) + (let ((_rest105505_ _$tl105481105501_)) (declare (not safe)) - (_variadic?105371_ _rest105575_))) - (let () (declare (not safe)) (_$E105546105562_)))))) - (_arity105372_ - (lambda (_hd105507_) - (let _lp105509_ ((_rest105511_ _hd105507_) (_k105512_ '0)) - (let* ((_$e105514_ _rest105511_) - (_$E105516105527_ + (_variadic?105301_ _rest105505_))) + (let () (declare (not safe)) (_$E105476105492_)))))) + (_arity105302_ + (lambda (_hd105437_) + (let _lp105439_ ((_rest105441_ _hd105437_) (_k105442_ '0)) + (let* ((_$e105444_ _rest105441_) + (_$E105446105457_ (lambda () - (let ((_$E105517105524_ + (let ((_$E105447105454_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105514_))))) - _k105512_)))) + _$e105444_))))) + _k105442_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e105514_)) - (let* ((_$tgt105518105530_ + (__AST-pair? _$e105444_)) + (let* ((_$tgt105448105460_ (let () (declare (not safe)) - (__AST-e _$e105514_))) - (_$hd105519105533_ + (__AST-e _$e105444_))) + (_$hd105449105463_ (let () (declare (not safe)) - (##car _$tgt105518105530_))) - (_$tl105520105536_ + (##car _$tgt105448105460_))) + (_$tl105450105466_ (let () (declare (not safe)) - (##cdr _$tgt105518105530_)))) - (let* ((_rest105540_ _$tl105520105536_) - (__tmp110665 + (##cdr _$tgt105448105460_)))) + (let* ((_rest105470_ _$tl105450105466_) + (__tmp110595 (let () (declare (not safe)) - (fx+ _k105512_ '1)))) + (fx+ _k105442_ '1)))) (declare (not safe)) - (_lp105509_ _rest105540_ __tmp110665))) + (_lp105439_ _rest105470_ __tmp110595))) (let () (declare (not safe)) - (_$E105516105527_))))))) - (_generate105373_ - (lambda (_rest105434_ _args105435_ _len105436_) - (let* ((_$e105438_ _rest105434_) - (_$E105440105451_ + (_$E105446105457_))))))) + (_generate105303_ + (lambda (_rest105364_ _args105365_ _len105366_) + (let* ((_$e105368_ _rest105364_) + (_$E105370105381_ (lambda () - (let* ((_$E105441105448_ + (let* ((_$E105371105378_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105438_)))) - (__tmp110666 - (let ((__tmp110667 - (let ((__tmp110668 + _$e105368_)))) + (__tmp110596 + (let ((__tmp110597 + (let ((__tmp110598 (let () (declare (not safe)) - (cons _args105435_ + (cons _args105365_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp110668)))) + __tmp110598)))) (declare (not safe)) - (cons 'error __tmp110667)))) + (cons 'error __tmp110597)))) (declare (not safe)) - (__SRC__% __tmp110666 _stx105369_))))) + (__SRC__% __tmp110596 _stx105299_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e105438_)) - (let* ((_$tgt105442105454_ + (__AST-pair? _$e105368_)) + (let* ((_$tgt105372105384_ (let () (declare (not safe)) - (__AST-e _$e105438_))) - (_$hd105443105457_ + (__AST-e _$e105368_))) + (_$hd105373105387_ (let () (declare (not safe)) - (##car _$tgt105442105454_))) - (_$tl105444105460_ + (##car _$tgt105372105384_))) + (_$tl105374105390_ (let () (declare (not safe)) - (##cdr _$tgt105442105454_)))) - (let* ((_clause105464_ _$hd105443105457_) - (_rest105466_ _$tl105444105460_) - (_$e105468_ _clause105464_) - (_$E105470105479_ + (##cdr _$tgt105372105384_)))) + (let* ((_clause105394_ _$hd105373105387_) + (_rest105396_ _$tl105374105390_) + (_$e105398_ _clause105394_) + (_$E105400105409_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105468_))))) + _$e105398_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e105468_)) - (let* ((_$tgt105471105482_ + (__AST-pair? _$e105398_)) + (let* ((_$tgt105401105412_ (let () (declare (not safe)) - (__AST-e _$e105468_))) - (_$hd105472105485_ + (__AST-e _$e105398_))) + (_$hd105402105415_ (let () (declare (not safe)) - (##car _$tgt105471105482_))) - (_$tl105473105488_ + (##car _$tgt105401105412_))) + (_$tl105403105418_ (let () (declare (not safe)) - (##cdr _$tgt105471105482_)))) - (let ((_hd105492_ _$hd105472105485_)) + (##cdr _$tgt105401105412_)))) + (let ((_hd105422_ _$hd105402105415_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl105473105488_)) - (let* ((_$tgt105474105494_ + (__AST-pair? _$tl105403105418_)) + (let* ((_$tgt105404105424_ (let () (declare (not safe)) - (__AST-e _$tl105473105488_))) - (_$hd105475105497_ + (__AST-e _$tl105403105418_))) + (_$hd105405105427_ (let () (declare (not safe)) - (##car _$tgt105474105494_))) - (_$tl105476105500_ + (##car _$tgt105404105424_))) + (_$tl105406105430_ (let () (declare (not safe)) - (##cdr _$tgt105474105494_)))) - (if (let ((__tmp110683 + (##cdr _$tgt105404105424_)))) + (if (let ((__tmp110613 (let () (declare (not safe)) - (__AST-e _$tl105476105500_)))) + (__AST-e _$tl105406105430_)))) (declare (not safe)) - (equal? __tmp110683 '())) - (let ((_clen105504_ + (equal? __tmp110613 '())) + (let ((_clen105434_ (let () (declare (not safe)) - (_arity105372_ - _hd105492_))) - (_cmp105505_ + (_arity105302_ + _hd105422_))) + (_cmp105435_ (if (let () (declare (not safe)) - (_variadic?105371_ - _hd105492_)) + (_variadic?105301_ + _hd105422_)) 'fx>= 'fx=))) - (let ((__tmp110669 - (let ((__tmp110670 - (let ((__tmp110680 + (let ((__tmp110599 + (let ((__tmp110600 + (let ((__tmp110610 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110681 - (let ((__tmp110682 + (let ((__tmp110611 + (let ((__tmp110612 (let () (declare (not safe)) - (cons _clen105504_ '())))) + (cons _clen105434_ '())))) (declare (not safe)) - (cons _len105436_ __tmp110682)))) + (cons _len105366_ __tmp110612)))) (declare (not safe)) - (cons _cmp105505_ __tmp110681))) - (__tmp110671 - (let ((__tmp110674 - (let ((__tmp110675 - (let ((__tmp110676 - (let ((__tmp110678 - (let ((__tmp110679 + (cons _cmp105435_ __tmp110611))) + (__tmp110601 + (let ((__tmp110604 + (let ((__tmp110605 + (let ((__tmp110606 + (let ((__tmp110608 + (let ((__tmp110609 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause105464_)))) + (cons '%#lambda _clause105394_)))) (declare (not safe)) - (__compile-lambda% __tmp110679))) - (__tmp110677 - (let () (declare (not safe)) (cons _args105435_ '())))) + (__compile-lambda% __tmp110609))) + (__tmp110607 + (let () (declare (not safe)) (cons _args105365_ '())))) (declare (not safe)) - (cons __tmp110678 __tmp110677)))) + (cons __tmp110608 __tmp110607)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp110676)))) + (cons '##apply __tmp110606)))) (declare (not safe)) - (__SRC__% __tmp110675 _stx105369_))) - (__tmp110672 - (let ((__tmp110673 + (__SRC__% __tmp110605 _stx105299_))) + (__tmp110602 + (let ((__tmp110603 (let () (declare (not safe)) - (_generate105373_ - _rest105466_ - _args105435_ - _len105436_)))) + (_generate105303_ + _rest105396_ + _args105365_ + _len105366_)))) (declare (not safe)) - (cons __tmp110673 '())))) + (cons __tmp110603 '())))) (declare (not safe)) - (cons __tmp110674 __tmp110672)))) + (cons __tmp110604 __tmp110602)))) (declare (not safe)) - (cons __tmp110680 __tmp110671)))) + (cons __tmp110610 __tmp110601)))) (declare (not safe)) - (cons 'if __tmp110670)))) + (cons 'if __tmp110600)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp110669 - _stx105369_))) + __tmp110599 + _stx105299_))) (let () (declare (not safe)) - (_$E105470105479_)))) + (_$E105400105409_)))) (let () (declare (not safe)) - (_$E105470105479_))))) + (_$E105400105409_))))) (let () (declare (not safe)) - (_$E105470105479_))))) - (let () (declare (not safe)) (_$E105440105451_))))))) - (let* ((_$e105375_ _stx105369_) - (_$E105377105409_ + (_$E105400105409_))))) + (let () (declare (not safe)) (_$E105370105381_))))))) + (let* ((_$e105305_ _stx105299_) + (_$E105307105339_ (lambda () - (let ((_$E105378105391_ + (let ((_$E105308105321_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105375_))))) + _$e105305_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e105375_)) - (let* ((_$tgt105379105394_ + (__AST-pair? _$e105305_)) + (let* ((_$tgt105309105324_ (let () (declare (not safe)) - (__AST-e _$e105375_))) - (_$hd105380105397_ + (__AST-e _$e105305_))) + (_$hd105310105327_ (let () (declare (not safe)) - (##car _$tgt105379105394_))) - (_$tl105381105400_ + (##car _$tgt105309105324_))) + (_$tl105311105330_ (let () (declare (not safe)) - (##cdr _$tgt105379105394_)))) - (let ((_clauses105404_ _$tl105381105400_)) - (let ((_args105406_ - (let ((__tmp110684 (gensym))) + (##cdr _$tgt105309105324_)))) + (let ((_clauses105334_ _$tl105311105330_)) + (let ((_args105336_ + (let ((__tmp110614 (gensym))) (declare (not safe)) - (__SRC__% __tmp110684 _stx105369_))) - (_len105407_ - (let ((__tmp110685 (gensym))) + (__SRC__% __tmp110614 _stx105299_))) + (_len105337_ + (let ((__tmp110615 (gensym))) (declare (not safe)) - (__SRC__% __tmp110685 _stx105369_)))) - (let ((__tmp110686 - (let ((__tmp110687 - (let ((__tmp110688 - (let ((__tmp110689 - (let ((__tmp110690 + (__SRC__% __tmp110615 _stx105299_)))) + (let ((__tmp110616 + (let ((__tmp110617 + (let ((__tmp110618 + (let ((__tmp110619 + (let ((__tmp110620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110691 - (let ((__tmp110694 - (let ((__tmp110695 - (let ((__tmp110696 - (let ((__tmp110697 - (let ((__tmp110698 + (let ((__tmp110621 + (let ((__tmp110624 + (let ((__tmp110625 + (let ((__tmp110626 + (let ((__tmp110627 + (let ((__tmp110628 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110699 + (let ((__tmp110629 (let () (declare (not safe)) - (cons _args105406_ '())))) + (cons _args105336_ '())))) (declare (not safe)) - (cons '##length __tmp110699)))) + (cons '##length __tmp110629)))) (declare (not safe)) - (__SRC__% __tmp110698 _stx105369_)))) + (__SRC__% __tmp110628 _stx105299_)))) (declare (not safe)) - (cons __tmp110697 '())))) + (cons __tmp110627 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len105407_ - __tmp110696)))) + (cons _len105337_ + __tmp110626)))) (declare (not safe)) - (cons __tmp110695 '()))) - (__tmp110692 - (let ((__tmp110693 + (cons __tmp110625 '()))) + (__tmp110622 + (let ((__tmp110623 (let () (declare (not safe)) - (_generate105373_ - _clauses105404_ - _args105406_ - _len105407_)))) + (_generate105303_ + _clauses105334_ + _args105336_ + _len105337_)))) (declare (not safe)) - (cons __tmp110693 '())))) + (cons __tmp110623 '())))) (declare (not safe)) - (cons __tmp110694 __tmp110692)))) + (cons __tmp110624 __tmp110622)))) (declare (not safe)) - (cons 'let __tmp110691)))) + (cons 'let __tmp110621)))) (declare (not safe)) - (__SRC__% __tmp110690 _stx105369_)))) + (__SRC__% __tmp110620 _stx105299_)))) (declare (not safe)) - (cons __tmp110689 '())))) + (cons __tmp110619 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args105406_ - __tmp110688)))) + (cons _args105336_ + __tmp110618)))) (declare (not safe)) - (cons 'lambda __tmp110687)))) + (cons 'lambda __tmp110617)))) (declare (not safe)) - (__SRC__% __tmp110686 _stx105369_))))) - (let () (declare (not safe)) (_$E105378105391_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e105375_)) - (let* ((_$tgt105382105412_ - (let () (declare (not safe)) (__AST-e _$e105375_))) - (_$hd105383105415_ + (__SRC__% __tmp110616 _stx105299_))))) + (let () (declare (not safe)) (_$E105308105321_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e105305_)) + (let* ((_$tgt105312105342_ + (let () (declare (not safe)) (__AST-e _$e105305_))) + (_$hd105313105345_ (let () (declare (not safe)) - (##car _$tgt105382105412_))) - (_$tl105384105418_ + (##car _$tgt105312105342_))) + (_$tl105314105348_ (let () (declare (not safe)) - (##cdr _$tgt105382105412_)))) + (##cdr _$tgt105312105342_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl105384105418_)) - (let* ((_$tgt105385105422_ + (__AST-pair? _$tl105314105348_)) + (let* ((_$tgt105315105352_ (let () (declare (not safe)) - (__AST-e _$tl105384105418_))) - (_$hd105386105425_ + (__AST-e _$tl105314105348_))) + (_$hd105316105355_ (let () (declare (not safe)) - (##car _$tgt105385105422_))) - (_$tl105387105428_ + (##car _$tgt105315105352_))) + (_$tl105317105358_ (let () (declare (not safe)) - (##cdr _$tgt105385105422_)))) - (let ((_clause105432_ _$hd105386105425_)) - (if (let ((__tmp110701 + (##cdr _$tgt105315105352_)))) + (let ((_clause105362_ _$hd105316105355_)) + (if (let ((__tmp110631 (let () (declare (not safe)) - (__AST-e _$tl105387105428_)))) + (__AST-e _$tl105317105358_)))) (declare (not safe)) - (equal? __tmp110701 '())) - (let ((__tmp110700 + (equal? __tmp110631 '())) + (let ((__tmp110630 (let () (declare (not safe)) - (cons '%#lambda _clause105432_)))) + (cons '%#lambda _clause105362_)))) (declare (not safe)) - (__compile-lambda% __tmp110700)) + (__compile-lambda% __tmp110630)) (let () (declare (not safe)) - (_$E105377105409_))))) - (let () (declare (not safe)) (_$E105377105409_)))) - (let () (declare (not safe)) (_$E105377105409_))))))) + (_$E105307105339_))))) + (let () (declare (not safe)) (_$E105307105339_)))) + (let () (declare (not safe)) (_$E105307105339_))))))) (define __compile-let-form - (lambda (_stx105138_ _compile-simple105139_ _compile-values105140_) - (letrec ((_simple-bind?105142_ - (lambda (_hd105327_) - (let* ((_hd105328105338_ _hd105327_) - (_else105331105346_ (lambda () '#f))) - (let ((_K105334105359_ (lambda (_id105357_) '#t)) - (_K105333105351_ (lambda () '#t))) - (let ((_try-match105330105354_ + (lambda (_stx105068_ _compile-simple105069_ _compile-values105070_) + (letrec ((_simple-bind?105072_ + (lambda (_hd105257_) + (let* ((_hd105258105268_ _hd105257_) + (_else105261105276_ (lambda () '#f))) + (let ((_K105264105289_ (lambda (_id105287_) '#t)) + (_K105263105281_ (lambda () '#t))) + (let ((_try-match105260105284_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd105328105338_ '#f)) + (##eq? _hd105258105268_ '#f)) (let () (declare (not safe)) - (_K105333105351_)) + (_K105263105281_)) (let () (declare (not safe)) - (_else105331105346_)))))) + (_else105261105276_)))))) (if (let () (declare (not safe)) - (##pair? _hd105328105338_)) - (let ((_tl105336105364_ + (##pair? _hd105258105268_)) + (let ((_tl105266105294_ (let () (declare (not safe)) - (##cdr _hd105328105338_))) - (_hd105335105362_ + (##cdr _hd105258105268_))) + (_hd105265105292_ (let () (declare (not safe)) - (##car _hd105328105338_)))) + (##car _hd105258105268_)))) (if (let () (declare (not safe)) - (##null? _tl105336105364_)) - (let ((_id105367_ _hd105335105362_)) + (##null? _tl105266105294_)) + (let ((_id105297_ _hd105265105292_)) (declare (not safe)) - (_K105334105359_ _id105367_)) + (_K105264105289_ _id105297_)) (let () (declare (not safe)) - (_try-match105330105354_)))) + (_try-match105260105284_)))) (let () (declare (not safe)) - (_try-match105330105354_)))))))) - (_car-e105143_ - (lambda (_hd105325_) - (if (let () (declare (not safe)) (pair? _hd105325_)) - (car _hd105325_) - _hd105325_)))) - (let* ((_$e105145_ _stx105138_) - (_$E105147105290_ + (_try-match105260105284_)))))))) + (_car-e105073_ + (lambda (_hd105255_) + (if (let () (declare (not safe)) (pair? _hd105255_)) + (car _hd105255_) + _hd105255_)))) + (let* ((_$e105075_ _stx105068_) + (_$E105077105220_ (lambda () - (let ((_$E105148105170_ + (let ((_$E105078105100_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105145_))))) + _$e105075_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e105145_)) - (let* ((_$tgt105149105173_ + (__AST-pair? _$e105075_)) + (let* ((_$tgt105079105103_ (let () (declare (not safe)) - (__AST-e _$e105145_))) - (_$hd105150105176_ + (__AST-e _$e105075_))) + (_$hd105080105106_ (let () (declare (not safe)) - (##car _$tgt105149105173_))) - (_$tl105151105179_ + (##car _$tgt105079105103_))) + (_$tl105081105109_ (let () (declare (not safe)) - (##cdr _$tgt105149105173_)))) + (##cdr _$tgt105079105103_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl105151105179_)) - (let* ((_$tgt105152105183_ + (__AST-pair? _$tl105081105109_)) + (let* ((_$tgt105082105113_ (let () (declare (not safe)) - (__AST-e _$tl105151105179_))) - (_$hd105153105186_ + (__AST-e _$tl105081105109_))) + (_$hd105083105116_ (let () (declare (not safe)) - (##car _$tgt105152105183_))) - (_$tl105154105189_ + (##car _$tgt105082105113_))) + (_$tl105084105119_ (let () (declare (not safe)) - (##cdr _$tgt105152105183_)))) - (let ((_hd105193_ _$hd105153105186_)) + (##cdr _$tgt105082105113_)))) + (let ((_hd105123_ _$hd105083105116_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl105154105189_)) - (let* ((_$tgt105155105195_ + (__AST-pair? _$tl105084105119_)) + (let* ((_$tgt105085105125_ (let () (declare (not safe)) - (__AST-e _$tl105154105189_))) - (_$hd105156105198_ + (__AST-e _$tl105084105119_))) + (_$hd105086105128_ (let () (declare (not safe)) - (##car _$tgt105155105195_))) - (_$tl105157105201_ + (##car _$tgt105085105125_))) + (_$tl105087105131_ (let () (declare (not safe)) - (##cdr _$tgt105155105195_)))) - (let ((_body105205_ - _$hd105156105198_)) - (if (let ((__tmp110704 + (##cdr _$tgt105085105125_)))) + (let ((_body105135_ + _$hd105086105128_)) + (if (let ((__tmp110634 (let () (declare (not safe)) - (__AST-e _$tl105157105201_)))) + (__AST-e _$tl105087105131_)))) (declare (not safe)) - (equal? __tmp110704 '())) - (let* ((_hd-ids105245_ - (map (lambda (_bind105207_) - (let* ((_$e105209_ + (equal? __tmp110634 '())) + (let* ((_hd-ids105175_ + (map (lambda (_bind105137_) + (let* ((_$e105139_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind105207_) - (_$E105211105220_ + _bind105137_) + (_$E105141105150_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105209_))))) + _$e105139_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e105209_)) - (let* ((_$tgt105212105223_ + (__AST-pair? _$e105139_)) + (let* ((_$tgt105142105153_ (let () (declare (not safe)) - (__AST-e _$e105209_))) - (_$hd105213105226_ + (__AST-e _$e105139_))) + (_$hd105143105156_ (let () (declare (not safe)) - (##car _$tgt105212105223_))) - (_$tl105214105229_ + (##car _$tgt105142105153_))) + (_$tl105144105159_ (let () (declare (not safe)) - (##cdr _$tgt105212105223_)))) - (let ((_ids105233_ _$hd105213105226_)) + (##cdr _$tgt105142105153_)))) + (let ((_ids105163_ _$hd105143105156_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl105214105229_)) - (let* ((_$tgt105215105235_ + (__AST-pair? _$tl105144105159_)) + (let* ((_$tgt105145105165_ (let () (declare (not safe)) - (__AST-e _$tl105214105229_))) - (_$hd105216105238_ + (__AST-e _$tl105144105159_))) + (_$hd105146105168_ (let () (declare (not safe)) - (##car _$tgt105215105235_))) - (_$tl105217105241_ + (##car _$tgt105145105165_))) + (_$tl105147105171_ (let () (declare (not safe)) - (##cdr _$tgt105215105235_)))) - (if (let ((__tmp110702 + (##cdr _$tgt105145105165_)))) + (if (let ((__tmp110632 (let () (declare (not safe)) - (__AST-e _$tl105217105241_)))) + (__AST-e _$tl105147105171_)))) (declare (not safe)) - (equal? __tmp110702 '())) - _ids105233_ + (equal? __tmp110632 '())) + _ids105163_ (let () (declare (not safe)) - (_$E105211105220_)))) + (_$E105141105150_)))) (let () (declare (not safe)) - (_$E105211105220_))))) + (_$E105141105150_))))) (let () (declare (not safe)) - (_$E105211105220_))))) - _hd105193_)) - (_exprs105285_ - (map (lambda (_bind105247_) - (let* ((_$e105249_ _bind105247_) - (_$E105251105260_ + (_$E105141105150_))))) + _hd105123_)) + (_exprs105215_ + (map (lambda (_bind105177_) + (let* ((_$e105179_ _bind105177_) + (_$E105181105190_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e105249_))))) + _$e105179_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e105249_)) - (let* ((_$tgt105252105263_ + (__AST-pair? _$e105179_)) + (let* ((_$tgt105182105193_ (let () (declare (not safe)) - (__AST-e _$e105249_))) - (_$hd105253105266_ + (__AST-e _$e105179_))) + (_$hd105183105196_ (let () (declare (not safe)) - (##car _$tgt105252105263_))) - (_$tl105254105269_ + (##car _$tgt105182105193_))) + (_$tl105184105199_ (let () (declare (not safe)) - (##cdr _$tgt105252105263_)))) + (##cdr _$tgt105182105193_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl105254105269_)) - (let* ((_$tgt105255105273_ + (__AST-pair? _$tl105184105199_)) + (let* ((_$tgt105185105203_ (let () (declare (not safe)) - (__AST-e _$tl105254105269_))) - (_$hd105256105276_ + (__AST-e _$tl105184105199_))) + (_$hd105186105206_ (let () (declare (not safe)) - (##car _$tgt105255105273_))) - (_$tl105257105279_ + (##car _$tgt105185105203_))) + (_$tl105187105209_ (let () (declare (not safe)) - (##cdr _$tgt105255105273_)))) - (let ((_expr105283_ _$hd105256105276_)) - (if (let ((__tmp110703 + (##cdr _$tgt105185105203_)))) + (let ((_expr105213_ _$hd105186105206_)) + (if (let ((__tmp110633 (let () (declare (not safe)) - (__AST-e _$tl105257105279_)))) + (__AST-e _$tl105187105209_)))) (declare (not safe)) - (equal? __tmp110703 '())) + (equal? __tmp110633 '())) (let () (declare (not safe)) - (__compile _expr105283_)) + (__compile _expr105213_)) (let () (declare (not safe)) - (_$E105251105260_))))) + (_$E105181105190_))))) (let () (declare (not safe)) - (_$E105251105260_)))) + (_$E105181105190_)))) (let () (declare (not safe)) - (_$E105251105260_))))) - _hd105193_)) - (_body105287_ - (let () (declare (not safe)) (__compile _body105205_)))) + (_$E105181105190_))))) + _hd105123_)) + (_body105217_ + (let () (declare (not safe)) (__compile _body105135_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?105142_ + (andmap1 _simple-bind?105072_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids105245_)) - (_compile-simple105139_ - (map _car-e105143_ _hd-ids105245_) - _exprs105285_ - _body105287_) - (_compile-values105140_ - _hd-ids105245_ - _exprs105285_ - _body105287_))) + _hd-ids105175_)) + (_compile-simple105069_ + (map _car-e105073_ _hd-ids105175_) + _exprs105215_ + _body105217_) + (_compile-values105070_ + _hd-ids105175_ + _exprs105215_ + _body105217_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E105148105170_))))) + (_$E105078105100_))))) (let () (declare (not safe)) - (_$E105148105170_))))) + (_$E105078105100_))))) (let () (declare (not safe)) - (_$E105148105170_)))) - (let () (declare (not safe)) (_$E105148105170_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e105145_)) - (let* ((_$tgt105158105293_ - (let () (declare (not safe)) (__AST-e _$e105145_))) - (_$hd105159105296_ + (_$E105078105100_)))) + (let () (declare (not safe)) (_$E105078105100_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e105075_)) + (let* ((_$tgt105088105223_ + (let () (declare (not safe)) (__AST-e _$e105075_))) + (_$hd105089105226_ (let () (declare (not safe)) - (##car _$tgt105158105293_))) - (_$tl105160105299_ + (##car _$tgt105088105223_))) + (_$tl105090105229_ (let () (declare (not safe)) - (##cdr _$tgt105158105293_)))) + (##cdr _$tgt105088105223_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl105160105299_)) - (let* ((_$tgt105161105303_ + (__AST-pair? _$tl105090105229_)) + (let* ((_$tgt105091105233_ (let () (declare (not safe)) - (__AST-e _$tl105160105299_))) - (_$hd105162105306_ + (__AST-e _$tl105090105229_))) + (_$hd105092105236_ (let () (declare (not safe)) - (##car _$tgt105161105303_))) - (_$tl105163105309_ + (##car _$tgt105091105233_))) + (_$tl105093105239_ (let () (declare (not safe)) - (##cdr _$tgt105161105303_)))) - (if (let ((__tmp110706 + (##cdr _$tgt105091105233_)))) + (if (let ((__tmp110636 (let () (declare (not safe)) - (__AST-e _$hd105162105306_)))) + (__AST-e _$hd105092105236_)))) (declare (not safe)) - (equal? __tmp110706 '())) + (equal? __tmp110636 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl105163105309_)) - (let* ((_$tgt105164105313_ + (__AST-pair? _$tl105093105239_)) + (let* ((_$tgt105094105243_ (let () (declare (not safe)) - (__AST-e _$tl105163105309_))) - (_$hd105165105316_ + (__AST-e _$tl105093105239_))) + (_$hd105095105246_ (let () (declare (not safe)) - (##car _$tgt105164105313_))) - (_$tl105166105319_ + (##car _$tgt105094105243_))) + (_$tl105096105249_ (let () (declare (not safe)) - (##cdr _$tgt105164105313_)))) - (let ((_body105323_ _$hd105165105316_)) - (if (let ((__tmp110705 + (##cdr _$tgt105094105243_)))) + (let ((_body105253_ _$hd105095105246_)) + (if (let ((__tmp110635 (let () (declare (not safe)) - (__AST-e _$tl105166105319_)))) + (__AST-e _$tl105096105249_)))) (declare (not safe)) - (equal? __tmp110705 '())) + (equal? __tmp110635 '())) (let () (declare (not safe)) - (__compile _body105323_)) + (__compile _body105253_)) (let () (declare (not safe)) - (_$E105147105290_))))) + (_$E105077105220_))))) (let () (declare (not safe)) - (_$E105147105290_))) - (let () (declare (not safe)) (_$E105147105290_)))) - (let () (declare (not safe)) (_$E105147105290_)))) - (let () (declare (not safe)) (_$E105147105290_))))))) + (_$E105077105220_))) + (let () (declare (not safe)) (_$E105077105220_)))) + (let () (declare (not safe)) (_$E105077105220_)))) + (let () (declare (not safe)) (_$E105077105220_))))))) (define __compile-let-values% - (lambda (_stx104953_) - (letrec ((_compile-simple104955_ - (lambda (_hd-ids105134_ _exprs105135_ _body105136_) - (let ((__tmp110707 - (let ((__tmp110708 - (let ((__tmp110710 + (lambda (_stx104883_) + (letrec ((_compile-simple104885_ + (lambda (_hd-ids105064_ _exprs105065_ _body105066_) + (let ((__tmp110637 + (let ((__tmp110638 + (let ((__tmp110640 (map list (map __compile-head-id - _hd-ids105134_) - _exprs105135_)) - (__tmp110709 + _hd-ids105064_) + _exprs105065_)) + (__tmp110639 (let () (declare (not safe)) - (cons _body105136_ '())))) + (cons _body105066_ '())))) (declare (not safe)) - (cons __tmp110710 __tmp110709)))) + (cons __tmp110640 __tmp110639)))) (declare (not safe)) - (cons 'let __tmp110708)))) + (cons 'let __tmp110638)))) (declare (not safe)) - (__SRC__% __tmp110707 _stx104953_)))) - (_compile-values104956_ - (lambda (_hd-ids105052_ _exprs105053_ _body105054_) - (let _lp105056_ ((_rest105058_ _hd-ids105052_) - (_exprs105059_ _exprs105053_) - (_bind105060_ '()) - (_post105061_ '())) - (let* ((_rest105062105076_ _rest105058_) - (_else105065105084_ + (__SRC__% __tmp110637 _stx104883_)))) + (_compile-values104886_ + (lambda (_hd-ids104982_ _exprs104983_ _body104984_) + (let _lp104986_ ((_rest104988_ _hd-ids104982_) + (_exprs104989_ _exprs104983_) + (_bind104990_ '()) + (_post104991_ '())) + (let* ((_rest104992105006_ _rest104988_) + (_else104995105014_ (lambda () - (let ((__tmp110711 - (let ((__tmp110712 - (let ((__tmp110715 - (reverse _bind105060_)) - (__tmp110713 - (let ((__tmp110714 + (let ((__tmp110641 + (let ((__tmp110642 + (let ((__tmp110645 + (reverse _bind104990_)) + (__tmp110643 + (let ((__tmp110644 (let () (declare (not safe)) - (_compile-post104957_ - _post105061_ - _body105054_)))) + (_compile-post104887_ + _post104991_ + _body104984_)))) (declare (not safe)) - (cons __tmp110714 + (cons __tmp110644 '())))) (declare (not safe)) - (cons __tmp110715 - __tmp110713)))) + (cons __tmp110645 + __tmp110643)))) (declare (not safe)) - (cons 'let __tmp110712)))) + (cons 'let __tmp110642)))) (declare (not safe)) - (__SRC__% __tmp110711 _stx104953_))))) - (let ((_K105070105117_ - (lambda (_rest105114_ _id105115_) - (let ((__tmp110721 (cdr _exprs105059_)) - (__tmp110716 - (let ((__tmp110717 - (let ((__tmp110720 + (__SRC__% __tmp110641 _stx104883_))))) + (let ((_K105000105047_ + (lambda (_rest105044_ _id105045_) + (let ((__tmp110651 (cdr _exprs104989_)) + (__tmp110646 + (let ((__tmp110647 + (let ((__tmp110650 (let () (declare (not safe)) (__compile-head-id - _id105115_))) - (__tmp110718 - (let ((__tmp110719 - (car _exprs105059_))) + _id105045_))) + (__tmp110648 + (let ((__tmp110649 + (car _exprs104989_))) (declare (not safe)) - (cons __tmp110719 + (cons __tmp110649 '())))) (declare (not safe)) - (cons __tmp110720 - __tmp110718)))) + (cons __tmp110650 + __tmp110648)))) (declare (not safe)) - (cons __tmp110717 _bind105060_)))) + (cons __tmp110647 _bind104990_)))) (declare (not safe)) - (_lp105056_ - _rest105114_ - __tmp110721 - __tmp110716 - _post105061_)))) - (_K105067105099_ - (lambda (_rest105088_ _hd105089_) + (_lp104986_ + _rest105044_ + __tmp110651 + __tmp110646 + _post104991_)))) + (_K104997105029_ + (lambda (_rest105018_ _hd105019_) (if (let () (declare (not safe)) - (__AST-id? _hd105089_)) - (let ((__tmp110742 (cdr _exprs105059_)) - (__tmp110735 - (let ((__tmp110736 - (let ((__tmp110741 + (__AST-id? _hd105019_)) + (let ((__tmp110672 (cdr _exprs104989_)) + (__tmp110665 + (let ((__tmp110666 + (let ((__tmp110671 (let () (declare (not safe)) (__compile-head-id - _hd105089_))) - (__tmp110737 - (let ((__tmp110738 + _hd105019_))) + (__tmp110667 + (let ((__tmp110668 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110739 - (let ((__tmp110740 (car _exprs105059_))) + (let ((__tmp110669 + (let ((__tmp110670 (car _exprs104989_))) (declare (not safe)) - (cons __tmp110740 '())))) + (cons __tmp110670 '())))) (declare (not safe)) - (cons 'values->list __tmp110739)))) + (cons 'values->list __tmp110669)))) (declare (not safe)) - (cons __tmp110738 '())))) + (cons __tmp110668 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110741 - __tmp110737)))) + (cons __tmp110671 + __tmp110667)))) (declare (not safe)) - (cons __tmp110736 - _bind105060_)))) + (cons __tmp110666 + _bind104990_)))) (declare (not safe)) - (_lp105056_ - _rest105088_ - __tmp110742 - __tmp110735 - _post105061_)) + (_lp104986_ + _rest105018_ + __tmp110672 + __tmp110665 + _post104991_)) (if (let () (declare (not safe)) - (list? _hd105089_)) - (let* ((_len105091_ - (length _hd105089_)) - (_tmp105093_ - (let ((__tmp110722 (gensym))) + (list? _hd105019_)) + (let* ((_len105021_ + (length _hd105019_)) + (_tmp105023_ + (let ((__tmp110652 (gensym))) (declare (not safe)) - (__SRC__0 __tmp110722)))) - (let ((__tmp110734 - (cdr _exprs105059_)) - (__tmp110730 - (let ((__tmp110731 - (let ((__tmp110732 - (let ((__tmp110733 + (__SRC__0 __tmp110652)))) + (let ((__tmp110664 + (cdr _exprs104989_)) + (__tmp110660 + (let ((__tmp110661 + (let ((__tmp110662 + (let ((__tmp110663 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs105059_))) + (car _exprs104989_))) (declare (not safe)) - (cons __tmp110733 '())))) + (cons __tmp110663 '())))) (declare (not safe)) - (cons _tmp105093_ __tmp110732)))) + (cons _tmp105023_ __tmp110662)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110731 - _bind105060_))) - (__tmp110723 - (let ((__tmp110724 - (let ((__tmp110725 - (let ((__tmp110726 + (cons __tmp110661 + _bind104990_))) + (__tmp110653 + (let ((__tmp110654 + (let ((__tmp110655 + (let ((__tmp110656 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110728 - (lambda (_id105096_ _k105097_) + (let ((__tmp110658 + (lambda (_id105026_ _k105027_) (if (let () (declare (not safe)) - (__AST-e _id105096_)) - (let ((__tmp110729 + (__AST-e _id105026_)) + (let ((__tmp110659 (let () (declare (not safe)) - (__SRC__0 _id105096_)))) + (__SRC__0 _id105026_)))) (declare (not safe)) - (cons __tmp110729 _k105097_)) + (cons __tmp110659 _k105027_)) '#f))) - (__tmp110727 + (__tmp110657 (let () (declare (not safe)) - (iota _len105091_)))) + (iota _len105021_)))) (declare (not safe)) (filter-map2 - __tmp110728 - _hd105089_ - __tmp110727)))) + __tmp110658 + _hd105019_ + __tmp110657)))) (declare (not safe)) - (cons _len105091_ __tmp110726)))) + (cons _len105021_ __tmp110656)))) (declare (not safe)) - (cons _tmp105093_ __tmp110725)))) + (cons _tmp105023_ __tmp110655)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110724 - _post105061_)))) + (cons __tmp110654 + _post104991_)))) (declare (not safe)) - (_lp105056_ - _rest105088_ - __tmp110734 - __tmp110730 - __tmp110723))) + (_lp104986_ + _rest105018_ + __tmp110664 + __tmp110660 + __tmp110653))) (let () (declare (not safe)) (__compile-error__% - _stx104953_ - _hd105089_))))))) + _stx104883_ + _hd105019_))))))) (if (let () (declare (not safe)) - (##pair? _rest105062105076_)) - (let ((_tl105072105122_ + (##pair? _rest104992105006_)) + (let ((_tl105002105052_ (let () (declare (not safe)) - (##cdr _rest105062105076_))) - (_hd105071105120_ + (##cdr _rest104992105006_))) + (_hd105001105050_ (let () (declare (not safe)) - (##car _rest105062105076_)))) + (##car _rest104992105006_)))) (if (let () (declare (not safe)) - (##pair? _hd105071105120_)) - (let ((_tl105074105127_ + (##pair? _hd105001105050_)) + (let ((_tl105004105057_ (let () (declare (not safe)) - (##cdr _hd105071105120_))) - (_hd105073105125_ + (##cdr _hd105001105050_))) + (_hd105003105055_ (let () (declare (not safe)) - (##car _hd105071105120_)))) + (##car _hd105001105050_)))) (if (let () (declare (not safe)) - (##null? _tl105074105127_)) - (let ((_id105130_ _hd105073105125_) - (_rest105132_ - _tl105072105122_)) + (##null? _tl105004105057_)) + (let ((_id105060_ _hd105003105055_) + (_rest105062_ + _tl105002105052_)) (let () (declare (not safe)) - (_K105070105117_ - _rest105132_ - _id105130_))) - (let ((_hd105107_ _hd105071105120_) - (_rest105109_ - _tl105072105122_)) + (_K105000105047_ + _rest105062_ + _id105060_))) + (let ((_hd105037_ _hd105001105050_) + (_rest105039_ + _tl105002105052_)) (let () (declare (not safe)) - (_K105067105099_ - _rest105109_ - _hd105107_))))) - (let ((_hd105107_ _hd105071105120_) - (_rest105109_ _tl105072105122_)) + (_K104997105029_ + _rest105039_ + _hd105037_))))) + (let ((_hd105037_ _hd105001105050_) + (_rest105039_ _tl105002105052_)) (let () (declare (not safe)) - (_K105067105099_ - _rest105109_ - _hd105107_))))) + (_K104997105029_ + _rest105039_ + _hd105037_))))) (let () (declare (not safe)) - (_else105065105084_)))))))) - (_compile-post104957_ - (lambda (_post104959_ _body104960_) - (let _lp104962_ ((_rest104964_ _post104959_) - (_check104965_ '()) - (_bind104966_ '())) - (let* ((_rest104967104979_ _rest104964_) - (_else104969104987_ + (_else104995105014_)))))))) + (_compile-post104887_ + (lambda (_post104889_ _body104890_) + (let _lp104892_ ((_rest104894_ _post104889_) + (_check104895_ '()) + (_bind104896_ '())) + (let* ((_rest104897104909_ _rest104894_) + (_else104899104917_ (lambda () - (let ((__tmp110743 - (let ((__tmp110744 - (let ((__tmp110745 - (let ((__tmp110746 - (let ((__tmp110747 + (let ((__tmp110673 + (let ((__tmp110674 + (let ((__tmp110675 + (let ((__tmp110676 + (let ((__tmp110677 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110748 - (let ((__tmp110749 + (let ((__tmp110678 + (let ((__tmp110679 (let () (declare (not safe)) - (cons _body104960_ '())))) + (cons _body104890_ '())))) (declare (not safe)) - (cons _bind104966_ __tmp110749)))) + (cons _bind104896_ __tmp110679)))) (declare (not safe)) - (cons 'let __tmp110748)))) + (cons 'let __tmp110678)))) (declare (not safe)) - (__SRC__% __tmp110747 _stx104953_)))) + (__SRC__% __tmp110677 _stx104883_)))) (declare (not safe)) - (cons __tmp110746 '())))) + (cons __tmp110676 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp110745 - _check104965_)))) + __tmp110675 + _check104895_)))) (declare (not safe)) - (cons 'begin __tmp110744)))) + (cons 'begin __tmp110674)))) (declare (not safe)) - (__SRC__% __tmp110743 _stx104953_)))) - (_K104971105026_ - (lambda (_rest104990_ - _init104991_ - _len104992_ - _tmp104993_) - (let ((__tmp110757 - (let ((__tmp110758 - (let ((__tmp110759 - (let ((__tmp110760 - (let ((__tmp110761 + (__SRC__% __tmp110673 _stx104883_)))) + (_K104901104956_ + (lambda (_rest104920_ + _init104921_ + _len104922_ + _tmp104923_) + (let ((__tmp110687 + (let ((__tmp110688 + (let ((__tmp110689 + (let ((__tmp110690 + (let ((__tmp110691 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len104992_ '())))) + (cons _len104922_ '())))) (declare (not safe)) - (cons _tmp104993_ __tmp110761)))) + (cons _tmp104923_ __tmp110691)))) (declare (not safe)) - (cons '__check-values __tmp110760)))) + (cons '__check-values __tmp110690)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp110759 - _stx104953_)))) + __tmp110689 + _stx104883_)))) (declare (not safe)) - (cons __tmp110758 _check104965_))) - (__tmp110750 - (let ((__tmp110751 - (lambda (_hd104995_ _r104996_) - (let* ((_hd104997105004_ - _hd104995_) - (_E104999105008_ + (cons __tmp110688 _check104895_))) + (__tmp110680 + (let ((__tmp110681 + (lambda (_hd104925_ _r104926_) + (let* ((_hd104927104934_ + _hd104925_) + (_E104929104938_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd104997105004_))) - (_K105000105014_ - (lambda (_k105011_ _id105012_) - (let ((__tmp110752 - (let ((__tmp110753 - (let ((__tmp110754 - (let ((__tmp110755 - (let ((__tmp110756 + _hd104927104934_))) + (_K104930104944_ + (lambda (_k104941_ _id104942_) + (let ((__tmp110682 + (let ((__tmp110683 + (let ((__tmp110684 + (let ((__tmp110685 + (let ((__tmp110686 (let () (declare (not safe)) - (cons _k105011_ '())))) + (cons _k104941_ '())))) (declare (not safe)) - (cons _tmp104993_ - __tmp110756)))) + (cons _tmp104923_ + __tmp110686)))) (declare (not safe)) - (cons '##vector-ref __tmp110755)))) + (cons '##vector-ref __tmp110685)))) (declare (not safe)) - (cons __tmp110754 '())))) + (cons __tmp110684 '())))) (declare (not safe)) - (cons _id105012_ __tmp110753)))) + (cons _id104942_ __tmp110683)))) (declare (not safe)) - (cons __tmp110752 _r104996_))))) + (cons __tmp110682 _r104926_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd104997105004_)) - (let ((_hd105001105017_ + (##pair? _hd104927104934_)) + (let ((_hd104931104947_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd104997105004_))) - (_tl105002105019_ - (let () (declare (not safe)) (##cdr _hd104997105004_)))) - (let* ((_id105022_ _hd105001105017_) - (_k105024_ _tl105002105019_)) + (##car _hd104927104934_))) + (_tl104932104949_ + (let () (declare (not safe)) (##cdr _hd104927104934_)))) + (let* ((_id104952_ _hd104931104947_) + (_k104954_ _tl104932104949_)) (declare (not safe)) - (_K105000105014_ _k105024_ _id105022_))) - (let () (declare (not safe)) (_E104999105008_))))))) + (_K104930104944_ _k104954_ _id104952_))) + (let () (declare (not safe)) (_E104929104938_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp110751 - _bind104966_ - _init104991_)))) + (foldr1 __tmp110681 + _bind104896_ + _init104921_)))) (declare (not safe)) - (_lp104962_ - _rest104990_ - __tmp110757 - __tmp110750))))) + (_lp104892_ + _rest104920_ + __tmp110687 + __tmp110680))))) (if (let () (declare (not safe)) - (##pair? _rest104967104979_)) - (let ((_hd104972105029_ + (##pair? _rest104897104909_)) + (let ((_hd104902104959_ (let () (declare (not safe)) - (##car _rest104967104979_))) - (_tl104973105031_ + (##car _rest104897104909_))) + (_tl104903104961_ (let () (declare (not safe)) - (##cdr _rest104967104979_)))) + (##cdr _rest104897104909_)))) (if (let () (declare (not safe)) - (##pair? _hd104972105029_)) - (let ((_hd104974105034_ + (##pair? _hd104902104959_)) + (let ((_hd104904104964_ (let () (declare (not safe)) - (##car _hd104972105029_))) - (_tl104975105036_ + (##car _hd104902104959_))) + (_tl104905104966_ (let () (declare (not safe)) - (##cdr _hd104972105029_)))) - (let ((_tmp105039_ _hd104974105034_)) + (##cdr _hd104902104959_)))) + (let ((_tmp104969_ _hd104904104964_)) (if (let () (declare (not safe)) - (##pair? _tl104975105036_)) - (let ((_hd104976105041_ + (##pair? _tl104905104966_)) + (let ((_hd104906104971_ (let () (declare (not safe)) - (##car _tl104975105036_))) - (_tl104977105043_ + (##car _tl104905104966_))) + (_tl104907104973_ (let () (declare (not safe)) - (##cdr _tl104975105036_)))) - (let* ((_len105046_ - _hd104976105041_) - (_init105048_ - _tl104977105043_) - (_rest105050_ - _tl104973105031_)) + (##cdr _tl104905104966_)))) + (let* ((_len104976_ + _hd104906104971_) + (_init104978_ + _tl104907104973_) + (_rest104980_ + _tl104903104961_)) (declare (not safe)) - (_K104971105026_ - _rest105050_ - _init105048_ - _len105046_ - _tmp105039_))) + (_K104901104956_ + _rest104980_ + _init104978_ + _len104976_ + _tmp104969_))) (let () (declare (not safe)) - (_else104969104987_))))) + (_else104899104917_))))) (let () (declare (not safe)) - (_else104969104987_)))) + (_else104899104917_)))) (let () (declare (not safe)) - (_else104969104987_)))))))) + (_else104899104917_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx104953_ - _compile-simple104955_ - _compile-values104956_))))) + _stx104883_ + _compile-simple104885_ + _compile-values104886_))))) (define __compile-letrec-values% - (lambda (_stx104753_) - (letrec ((_compile-simple104755_ - (lambda (_hd-ids104949_ _exprs104950_ _body104951_) - (let ((__tmp110762 - (let ((__tmp110763 - (let ((__tmp110765 + (lambda (_stx104683_) + (letrec ((_compile-simple104685_ + (lambda (_hd-ids104879_ _exprs104880_ _body104881_) + (let ((__tmp110692 + (let ((__tmp110693 + (let ((__tmp110695 (map list (map __compile-head-id - _hd-ids104949_) - _exprs104950_)) - (__tmp110764 + _hd-ids104879_) + _exprs104880_)) + (__tmp110694 (let () (declare (not safe)) - (cons _body104951_ '())))) + (cons _body104881_ '())))) (declare (not safe)) - (cons __tmp110765 __tmp110764)))) + (cons __tmp110695 __tmp110694)))) (declare (not safe)) - (cons 'letrec __tmp110763)))) + (cons 'letrec __tmp110693)))) (declare (not safe)) - (__SRC__% __tmp110762 _stx104753_)))) - (_compile-values104756_ - (lambda (_hd-ids104863_ _exprs104864_ _body104865_) - (let _lp104867_ ((_rest104869_ _hd-ids104863_) - (_exprs104870_ _exprs104864_) - (_pre104871_ '()) - (_bind104872_ '()) - (_post104873_ '())) - (let* ((_rest104874104888_ _rest104869_) - (_else104877104896_ + (__SRC__% __tmp110692 _stx104683_)))) + (_compile-values104686_ + (lambda (_hd-ids104793_ _exprs104794_ _body104795_) + (let _lp104797_ ((_rest104799_ _hd-ids104793_) + (_exprs104800_ _exprs104794_) + (_pre104801_ '()) + (_bind104802_ '()) + (_post104803_ '())) + (let* ((_rest104804104818_ _rest104799_) + (_else104807104826_ (lambda () (let () (declare (not safe)) - (_compile-inner104757_ - _pre104871_ - _bind104872_ - _post104873_ - _body104865_))))) - (let ((_K104882104932_ - (lambda (_rest104929_ _id104930_) - (let ((__tmp110771 (cdr _exprs104870_)) - (__tmp110766 - (let ((__tmp110767 - (let ((__tmp110770 + (_compile-inner104687_ + _pre104801_ + _bind104802_ + _post104803_ + _body104795_))))) + (let ((_K104812104862_ + (lambda (_rest104859_ _id104860_) + (let ((__tmp110701 (cdr _exprs104800_)) + (__tmp110696 + (let ((__tmp110697 + (let ((__tmp110700 (let () (declare (not safe)) (__compile-head-id - _id104930_))) - (__tmp110768 - (let ((__tmp110769 - (car _exprs104870_))) + _id104860_))) + (__tmp110698 + (let ((__tmp110699 + (car _exprs104800_))) (declare (not safe)) - (cons __tmp110769 + (cons __tmp110699 '())))) (declare (not safe)) - (cons __tmp110770 - __tmp110768)))) + (cons __tmp110700 + __tmp110698)))) (declare (not safe)) - (cons __tmp110767 _bind104872_)))) + (cons __tmp110697 _bind104802_)))) (declare (not safe)) - (_lp104867_ - _rest104929_ - __tmp110771 - _pre104871_ - __tmp110766 - _post104873_)))) - (_K104879104914_ - (lambda (_rest104900_ _hd104901_) + (_lp104797_ + _rest104859_ + __tmp110701 + _pre104801_ + __tmp110696 + _post104803_)))) + (_K104809104844_ + (lambda (_rest104830_ _hd104831_) (if (let () (declare (not safe)) - (__AST-id? _hd104901_)) - (let ((__tmp110799 (cdr _exprs104870_)) - (__tmp110792 - (let ((__tmp110793 - (let ((__tmp110798 + (__AST-id? _hd104831_)) + (let ((__tmp110729 (cdr _exprs104800_)) + (__tmp110722 + (let ((__tmp110723 + (let ((__tmp110728 (let () (declare (not safe)) (__compile-head-id - _hd104901_))) - (__tmp110794 - (let ((__tmp110795 + _hd104831_))) + (__tmp110724 + (let ((__tmp110725 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110796 - (let ((__tmp110797 (car _exprs104870_))) + (let ((__tmp110726 + (let ((__tmp110727 (car _exprs104800_))) (declare (not safe)) - (cons __tmp110797 '())))) + (cons __tmp110727 '())))) (declare (not safe)) - (cons 'values->list __tmp110796)))) + (cons 'values->list __tmp110726)))) (declare (not safe)) - (cons __tmp110795 '())))) + (cons __tmp110725 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110798 - __tmp110794)))) + (cons __tmp110728 + __tmp110724)))) (declare (not safe)) - (cons __tmp110793 - _bind104872_)))) + (cons __tmp110723 + _bind104802_)))) (declare (not safe)) - (_lp104867_ - _rest104900_ - __tmp110799 - _pre104871_ - __tmp110792 - _post104873_)) + (_lp104797_ + _rest104830_ + __tmp110729 + _pre104801_ + __tmp110722 + _post104803_)) (if (let () (declare (not safe)) - (list? _hd104901_)) - (let* ((_len104903_ - (length _hd104901_)) - (_tmp104905_ - (let ((__tmp110772 (gensym))) + (list? _hd104831_)) + (let* ((_len104833_ + (length _hd104831_)) + (_tmp104835_ + (let ((__tmp110702 (gensym))) (declare (not safe)) - (__SRC__0 __tmp110772)))) - (let ((__tmp110791 - (cdr _exprs104870_)) - (__tmp110784 - (let ((__tmp110785 - (lambda (_id104908_ + (__SRC__0 __tmp110702)))) + (let ((__tmp110721 + (cdr _exprs104800_)) + (__tmp110714 + (let ((__tmp110715 + (lambda (_id104838_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r104909_) - (if (let () (declare (not safe)) (__AST-e _id104908_)) - (let ((__tmp110786 - (let ((__tmp110790 + _r104839_) + (if (let () (declare (not safe)) (__AST-e _id104838_)) + (let ((__tmp110716 + (let ((__tmp110720 (let () (declare (not safe)) - (__SRC__0 _id104908_))) - (__tmp110787 - (let ((__tmp110788 - (let ((__tmp110789 + (__SRC__0 _id104838_))) + (__tmp110717 + (let ((__tmp110718 + (let ((__tmp110719 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp110789)))) + (cons 'quote __tmp110719)))) (declare (not safe)) - (cons __tmp110788 '())))) + (cons __tmp110718 '())))) (declare (not safe)) - (cons __tmp110790 __tmp110787)))) + (cons __tmp110720 __tmp110717)))) (declare (not safe)) - (cons __tmp110786 _r104909_)) - _r104909_)))) + (cons __tmp110716 _r104839_)) + _r104839_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp110785 - _pre104871_ - _hd104901_))) - (__tmp110780 - (let ((__tmp110781 - (let ((__tmp110782 - (let ((__tmp110783 + (foldl1 __tmp110715 + _pre104801_ + _hd104831_))) + (__tmp110710 + (let ((__tmp110711 + (let ((__tmp110712 + (let ((__tmp110713 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs104870_))) + (car _exprs104800_))) (declare (not safe)) - (cons __tmp110783 '())))) + (cons __tmp110713 '())))) (declare (not safe)) - (cons _tmp104905_ __tmp110782)))) + (cons _tmp104835_ __tmp110712)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110781 - _bind104872_))) - (__tmp110773 - (let ((__tmp110774 - (let ((__tmp110775 - (let ((__tmp110776 + (cons __tmp110711 + _bind104802_))) + (__tmp110703 + (let ((__tmp110704 + (let ((__tmp110705 + (let ((__tmp110706 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110778 - (lambda (_id104911_ _k104912_) + (let ((__tmp110708 + (lambda (_id104841_ _k104842_) (if (let () (declare (not safe)) - (__AST-e _id104911_)) - (let ((__tmp110779 + (__AST-e _id104841_)) + (let ((__tmp110709 (let () (declare (not safe)) - (__SRC__0 _id104911_)))) + (__SRC__0 _id104841_)))) (declare (not safe)) - (cons __tmp110779 _k104912_)) + (cons __tmp110709 _k104842_)) '#f))) - (__tmp110777 + (__tmp110707 (let () (declare (not safe)) - (iota _len104903_)))) + (iota _len104833_)))) (declare (not safe)) (filter-map2 - __tmp110778 - _hd104901_ - __tmp110777)))) + __tmp110708 + _hd104831_ + __tmp110707)))) (declare (not safe)) - (cons _len104903_ __tmp110776)))) + (cons _len104833_ __tmp110706)))) (declare (not safe)) - (cons _tmp104905_ __tmp110775)))) + (cons _tmp104835_ __tmp110705)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110774 - _post104873_)))) + (cons __tmp110704 + _post104803_)))) (declare (not safe)) - (_lp104867_ - _rest104900_ - __tmp110791 - __tmp110784 - __tmp110780 - __tmp110773))) + (_lp104797_ + _rest104830_ + __tmp110721 + __tmp110714 + __tmp110710 + __tmp110703))) (let () (declare (not safe)) (__compile-error__% - _stx104753_ - _hd104901_))))))) + _stx104683_ + _hd104831_))))))) (if (let () (declare (not safe)) - (##pair? _rest104874104888_)) - (let ((_tl104884104937_ + (##pair? _rest104804104818_)) + (let ((_tl104814104867_ (let () (declare (not safe)) - (##cdr _rest104874104888_))) - (_hd104883104935_ + (##cdr _rest104804104818_))) + (_hd104813104865_ (let () (declare (not safe)) - (##car _rest104874104888_)))) + (##car _rest104804104818_)))) (if (let () (declare (not safe)) - (##pair? _hd104883104935_)) - (let ((_tl104886104942_ + (##pair? _hd104813104865_)) + (let ((_tl104816104872_ (let () (declare (not safe)) - (##cdr _hd104883104935_))) - (_hd104885104940_ + (##cdr _hd104813104865_))) + (_hd104815104870_ (let () (declare (not safe)) - (##car _hd104883104935_)))) + (##car _hd104813104865_)))) (if (let () (declare (not safe)) - (##null? _tl104886104942_)) - (let ((_id104945_ _hd104885104940_) - (_rest104947_ - _tl104884104937_)) + (##null? _tl104816104872_)) + (let ((_id104875_ _hd104815104870_) + (_rest104877_ + _tl104814104867_)) (let () (declare (not safe)) - (_K104882104932_ - _rest104947_ - _id104945_))) - (let ((_hd104922_ _hd104883104935_) - (_rest104924_ - _tl104884104937_)) + (_K104812104862_ + _rest104877_ + _id104875_))) + (let ((_hd104852_ _hd104813104865_) + (_rest104854_ + _tl104814104867_)) (let () (declare (not safe)) - (_K104879104914_ - _rest104924_ - _hd104922_))))) - (let ((_hd104922_ _hd104883104935_) - (_rest104924_ _tl104884104937_)) + (_K104809104844_ + _rest104854_ + _hd104852_))))) + (let ((_hd104852_ _hd104813104865_) + (_rest104854_ _tl104814104867_)) (let () (declare (not safe)) - (_K104879104914_ - _rest104924_ - _hd104922_))))) + (_K104809104844_ + _rest104854_ + _hd104852_))))) (let () (declare (not safe)) - (_else104877104896_)))))))) - (_compile-inner104757_ - (lambda (_pre104858_ _bind104859_ _post104860_ _body104861_) - (if (let () (declare (not safe)) (null? _pre104858_)) + (_else104807104826_)))))))) + (_compile-inner104687_ + (lambda (_pre104788_ _bind104789_ _post104790_ _body104791_) + (if (let () (declare (not safe)) (null? _pre104788_)) (let () (declare (not safe)) - (_compile-bind104758_ - _bind104859_ - _post104860_ - _body104861_)) - (let ((__tmp110800 - (let ((__tmp110801 - (let ((__tmp110804 (reverse _pre104858_)) - (__tmp110802 - (let ((__tmp110803 + (_compile-bind104688_ + _bind104789_ + _post104790_ + _body104791_)) + (let ((__tmp110730 + (let ((__tmp110731 + (let ((__tmp110734 (reverse _pre104788_)) + (__tmp110732 + (let ((__tmp110733 (let () (declare (not safe)) - (_compile-bind104758_ - _bind104859_ - _post104860_ - _body104861_)))) + (_compile-bind104688_ + _bind104789_ + _post104790_ + _body104791_)))) (declare (not safe)) - (cons __tmp110803 '())))) + (cons __tmp110733 '())))) (declare (not safe)) - (cons __tmp110804 __tmp110802)))) + (cons __tmp110734 __tmp110732)))) (declare (not safe)) - (cons 'let __tmp110801)))) + (cons 'let __tmp110731)))) (declare (not safe)) - (__SRC__% __tmp110800 _stx104753_))))) - (_compile-bind104758_ - (lambda (_bind104854_ _post104855_ _body104856_) - (let ((__tmp110805 - (let ((__tmp110806 - (let ((__tmp110809 (reverse _bind104854_)) - (__tmp110807 - (let ((__tmp110808 + (__SRC__% __tmp110730 _stx104683_))))) + (_compile-bind104688_ + (lambda (_bind104784_ _post104785_ _body104786_) + (let ((__tmp110735 + (let ((__tmp110736 + (let ((__tmp110739 (reverse _bind104784_)) + (__tmp110737 + (let ((__tmp110738 (let () (declare (not safe)) - (_compile-post104759_ - _post104855_ - _body104856_)))) + (_compile-post104689_ + _post104785_ + _body104786_)))) (declare (not safe)) - (cons __tmp110808 '())))) + (cons __tmp110738 '())))) (declare (not safe)) - (cons __tmp110809 __tmp110807)))) + (cons __tmp110739 __tmp110737)))) (declare (not safe)) - (cons 'letrec __tmp110806)))) + (cons 'letrec __tmp110736)))) (declare (not safe)) - (__SRC__% __tmp110805 _stx104753_)))) - (_compile-post104759_ - (lambda (_post104761_ _body104762_) - (let _lp104764_ ((_rest104766_ _post104761_) - (_check104767_ '()) - (_bind104768_ '())) - (let* ((_rest104769104781_ _rest104766_) - (_else104771104789_ + (__SRC__% __tmp110735 _stx104683_)))) + (_compile-post104689_ + (lambda (_post104691_ _body104692_) + (let _lp104694_ ((_rest104696_ _post104691_) + (_check104697_ '()) + (_bind104698_ '())) + (let* ((_rest104699104711_ _rest104696_) + (_else104701104719_ (lambda () - (let ((__tmp110810 - (let ((__tmp110811 - (let ((__tmp110812 - (let ((__tmp110813 + (let ((__tmp110740 + (let ((__tmp110741 + (let ((__tmp110742 + (let ((__tmp110743 (let () (declare (not safe)) - (cons _body104762_ + (cons _body104692_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp110813 _bind104768_)))) + (foldr1 cons __tmp110743 _bind104698_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp110812 - _check104767_)))) + __tmp110742 + _check104697_)))) (declare (not safe)) - (cons 'begin __tmp110811)))) + (cons 'begin __tmp110741)))) (declare (not safe)) - (__SRC__% __tmp110810 _stx104753_)))) - (_K104773104828_ - (lambda (_rest104792_ - _init104793_ - _len104794_ - _tmp104795_) - (let ((__tmp110822 - (let ((__tmp110823 - (let ((__tmp110824 - (let ((__tmp110825 - (let ((__tmp110826 + (__SRC__% __tmp110740 _stx104683_)))) + (_K104703104758_ + (lambda (_rest104722_ + _init104723_ + _len104724_ + _tmp104725_) + (let ((__tmp110752 + (let ((__tmp110753 + (let ((__tmp110754 + (let ((__tmp110755 + (let ((__tmp110756 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len104794_ '())))) + (cons _len104724_ '())))) (declare (not safe)) - (cons _tmp104795_ __tmp110826)))) + (cons _tmp104725_ __tmp110756)))) (declare (not safe)) - (cons '__check-values __tmp110825)))) + (cons '__check-values __tmp110755)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp110824 - _stx104753_)))) + __tmp110754 + _stx104683_)))) (declare (not safe)) - (cons __tmp110823 _check104767_))) - (__tmp110814 - (let ((__tmp110815 - (lambda (_hd104797_ _r104798_) - (let* ((_hd104799104806_ - _hd104797_) - (_E104801104810_ + (cons __tmp110753 _check104697_))) + (__tmp110744 + (let ((__tmp110745 + (lambda (_hd104727_ _r104728_) + (let* ((_hd104729104736_ + _hd104727_) + (_E104731104740_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd104799104806_))) - (_K104802104816_ - (lambda (_k104813_ _id104814_) - (let ((__tmp110816 - (let ((__tmp110817 - (let ((__tmp110818 - (let ((__tmp110819 - (let ((__tmp110820 - (let ((__tmp110821 + _hd104729104736_))) + (_K104732104746_ + (lambda (_k104743_ _id104744_) + (let ((__tmp110746 + (let ((__tmp110747 + (let ((__tmp110748 + (let ((__tmp110749 + (let ((__tmp110750 + (let ((__tmp110751 (let () (declare (not safe)) - (cons _k104813_ + (cons _k104743_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp104795_ __tmp110821)))) + (cons _tmp104725_ __tmp110751)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp110820)))) + __tmp110750)))) (declare (not safe)) - (cons __tmp110819 '())))) + (cons __tmp110749 '())))) (declare (not safe)) - (cons _id104814_ __tmp110818)))) + (cons _id104744_ __tmp110748)))) (declare (not safe)) - (cons 'set! __tmp110817)))) + (cons 'set! __tmp110747)))) (declare (not safe)) - (cons __tmp110816 _r104798_))))) + (cons __tmp110746 _r104728_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd104799104806_)) - (let ((_hd104803104819_ + (##pair? _hd104729104736_)) + (let ((_hd104733104749_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd104799104806_))) - (_tl104804104821_ - (let () (declare (not safe)) (##cdr _hd104799104806_)))) - (let* ((_id104824_ _hd104803104819_) - (_k104826_ _tl104804104821_)) + (##car _hd104729104736_))) + (_tl104734104751_ + (let () (declare (not safe)) (##cdr _hd104729104736_)))) + (let* ((_id104754_ _hd104733104749_) + (_k104756_ _tl104734104751_)) (declare (not safe)) - (_K104802104816_ _k104826_ _id104824_))) - (let () (declare (not safe)) (_E104801104810_))))))) + (_K104732104746_ _k104756_ _id104754_))) + (let () (declare (not safe)) (_E104731104740_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp110815 - _bind104768_ - _init104793_)))) + (foldr1 __tmp110745 + _bind104698_ + _init104723_)))) (declare (not safe)) - (_lp104764_ - _rest104792_ - __tmp110822 - __tmp110814))))) + (_lp104694_ + _rest104722_ + __tmp110752 + __tmp110744))))) (if (let () (declare (not safe)) - (##pair? _rest104769104781_)) - (let ((_hd104774104831_ + (##pair? _rest104699104711_)) + (let ((_hd104704104761_ (let () (declare (not safe)) - (##car _rest104769104781_))) - (_tl104775104833_ + (##car _rest104699104711_))) + (_tl104705104763_ (let () (declare (not safe)) - (##cdr _rest104769104781_)))) + (##cdr _rest104699104711_)))) (if (let () (declare (not safe)) - (##pair? _hd104774104831_)) - (let ((_hd104776104836_ + (##pair? _hd104704104761_)) + (let ((_hd104706104766_ (let () (declare (not safe)) - (##car _hd104774104831_))) - (_tl104777104838_ + (##car _hd104704104761_))) + (_tl104707104768_ (let () (declare (not safe)) - (##cdr _hd104774104831_)))) - (let ((_tmp104841_ _hd104776104836_)) + (##cdr _hd104704104761_)))) + (let ((_tmp104771_ _hd104706104766_)) (if (let () (declare (not safe)) - (##pair? _tl104777104838_)) - (let ((_hd104778104843_ + (##pair? _tl104707104768_)) + (let ((_hd104708104773_ (let () (declare (not safe)) - (##car _tl104777104838_))) - (_tl104779104845_ + (##car _tl104707104768_))) + (_tl104709104775_ (let () (declare (not safe)) - (##cdr _tl104777104838_)))) - (let* ((_len104848_ - _hd104778104843_) - (_init104850_ - _tl104779104845_) - (_rest104852_ - _tl104775104833_)) + (##cdr _tl104707104768_)))) + (let* ((_len104778_ + _hd104708104773_) + (_init104780_ + _tl104709104775_) + (_rest104782_ + _tl104705104763_)) (declare (not safe)) - (_K104773104828_ - _rest104852_ - _init104850_ - _len104848_ - _tmp104841_))) + (_K104703104758_ + _rest104782_ + _init104780_ + _len104778_ + _tmp104771_))) (let () (declare (not safe)) - (_else104771104789_))))) + (_else104701104719_))))) (let () (declare (not safe)) - (_else104771104789_)))) + (_else104701104719_)))) (let () (declare (not safe)) - (_else104771104789_)))))))) + (_else104701104719_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx104753_ - _compile-simple104755_ - _compile-values104756_))))) + _stx104683_ + _compile-simple104685_ + _compile-values104686_))))) (define __compile-letrec*-values% - (lambda (_stx104508_) - (letrec ((_compile-simple104510_ - (lambda (_hd-ids104749_ _exprs104750_ _body104751_) - (let ((__tmp110827 - (let ((__tmp110828 - (let ((__tmp110830 + (lambda (_stx104438_) + (letrec ((_compile-simple104440_ + (lambda (_hd-ids104679_ _exprs104680_ _body104681_) + (let ((__tmp110757 + (let ((__tmp110758 + (let ((__tmp110760 (map list (map __compile-head-id - _hd-ids104749_) - _exprs104750_)) - (__tmp110829 + _hd-ids104679_) + _exprs104680_)) + (__tmp110759 (let () (declare (not safe)) - (cons _body104751_ '())))) + (cons _body104681_ '())))) (declare (not safe)) - (cons __tmp110830 __tmp110829)))) + (cons __tmp110760 __tmp110759)))) (declare (not safe)) - (cons 'letrec* __tmp110828)))) + (cons 'letrec* __tmp110758)))) (declare (not safe)) - (__SRC__% __tmp110827 _stx104508_)))) - (_compile-values104511_ - (lambda (_hd-ids104660_ _exprs104661_ _body104662_) - (let _lp104664_ ((_rest104666_ _hd-ids104660_) - (_exprs104667_ _exprs104661_) - (_bind104668_ '()) - (_post104669_ '())) - (let* ((_rest104670104684_ _rest104666_) - (_else104673104692_ + (__SRC__% __tmp110757 _stx104438_)))) + (_compile-values104441_ + (lambda (_hd-ids104590_ _exprs104591_ _body104592_) + (let _lp104594_ ((_rest104596_ _hd-ids104590_) + (_exprs104597_ _exprs104591_) + (_bind104598_ '()) + (_post104599_ '())) + (let* ((_rest104600104614_ _rest104596_) + (_else104603104622_ (lambda () (let () (declare (not safe)) - (_compile-bind104512_ - _bind104668_ - _post104669_ - _body104662_))))) - (let ((_K104678104732_ - (lambda (_rest104727_ _hd104728_) + (_compile-bind104442_ + _bind104598_ + _post104599_ + _body104592_))))) + (let ((_K104608104662_ + (lambda (_rest104657_ _hd104658_) (if (let () (declare (not safe)) - (__AST-id? _hd104728_)) - (let ((_id104730_ + (__AST-id? _hd104658_)) + (let ((_id104660_ (let () (declare (not safe)) - (__SRC__0 _hd104728_)))) - (let ((__tmp110845 (cdr _exprs104667_)) - (__tmp110840 - (let ((__tmp110841 - (let ((__tmp110842 - (let ((__tmp110843 + (__SRC__0 _hd104658_)))) + (let ((__tmp110775 (cdr _exprs104597_)) + (__tmp110770 + (let ((__tmp110771 + (let ((__tmp110772 + (let ((__tmp110773 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110844 + (let ((__tmp110774 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp110844)))) + (cons 'quote __tmp110774)))) (declare (not safe)) - (cons __tmp110843 '())))) + (cons __tmp110773 '())))) (declare (not safe)) - (cons _id104730_ __tmp110842)))) + (cons _id104660_ __tmp110772)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110841 - _bind104668_))) - (__tmp110836 - (let ((__tmp110837 - (let ((__tmp110838 - (let ((__tmp110839 + (cons __tmp110771 + _bind104598_))) + (__tmp110766 + (let ((__tmp110767 + (let ((__tmp110768 + (let ((__tmp110769 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs104667_))) + (car _exprs104597_))) (declare (not safe)) - (cons __tmp110839 '())))) + (cons __tmp110769 '())))) (declare (not safe)) - (cons _id104730_ __tmp110838)))) + (cons _id104660_ __tmp110768)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110837 - _post104669_)))) + (cons __tmp110767 + _post104599_)))) (declare (not safe)) - (_lp104664_ - _rest104727_ - __tmp110845 - __tmp110840 - __tmp110836))) - (let ((__tmp110835 (cdr _exprs104667_)) - (__tmp110831 - (let ((__tmp110832 - (let ((__tmp110833 - (let ((__tmp110834 + (_lp104594_ + _rest104657_ + __tmp110775 + __tmp110770 + __tmp110766))) + (let ((__tmp110765 (cdr _exprs104597_)) + (__tmp110761 + (let ((__tmp110762 + (let ((__tmp110763 + (let ((__tmp110764 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs104667_))) + (car _exprs104597_))) (declare (not safe)) - (cons __tmp110834 '())))) + (cons __tmp110764 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp110833)))) + (cons '#f __tmp110763)))) (declare (not safe)) - (cons __tmp110832 - _post104669_)))) + (cons __tmp110762 + _post104599_)))) (declare (not safe)) - (_lp104664_ - _rest104727_ - __tmp110835 - _bind104668_ - __tmp110831))))) - (_K104675104712_ - (lambda (_rest104696_ _hd104697_) + (_lp104594_ + _rest104657_ + __tmp110765 + _bind104598_ + __tmp110761))))) + (_K104605104642_ + (lambda (_rest104626_ _hd104627_) (if (let () (declare (not safe)) - (__AST-id? _hd104697_)) - (let ((_id104699_ + (__AST-id? _hd104627_)) + (let ((_id104629_ (let () (declare (not safe)) - (__SRC__0 _hd104697_)))) - (let ((__tmp110881 (cdr _exprs104667_)) - (__tmp110876 - (let ((__tmp110877 - (let ((__tmp110878 - (let ((__tmp110879 + (__SRC__0 _hd104627_)))) + (let ((__tmp110811 (cdr _exprs104597_)) + (__tmp110806 + (let ((__tmp110807 + (let ((__tmp110808 + (let ((__tmp110809 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110880 + (let ((__tmp110810 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp110880)))) + (cons 'quote __tmp110810)))) (declare (not safe)) - (cons __tmp110879 '())))) + (cons __tmp110809 '())))) (declare (not safe)) - (cons _id104699_ __tmp110878)))) + (cons _id104629_ __tmp110808)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110877 - _bind104668_))) - (__tmp110870 - (let ((__tmp110871 - (let ((__tmp110872 - (let ((__tmp110873 + (cons __tmp110807 + _bind104598_))) + (__tmp110800 + (let ((__tmp110801 + (let ((__tmp110802 + (let ((__tmp110803 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110874 - (let ((__tmp110875 (car _exprs104667_))) + (let ((__tmp110804 + (let ((__tmp110805 (car _exprs104597_))) (declare (not safe)) - (cons __tmp110875 '())))) + (cons __tmp110805 '())))) (declare (not safe)) - (cons 'values->list __tmp110874)))) + (cons 'values->list __tmp110804)))) (declare (not safe)) - (cons __tmp110873 '())))) + (cons __tmp110803 '())))) (declare (not safe)) - (cons _id104699_ __tmp110872)))) + (cons _id104629_ __tmp110802)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110871 - _post104669_)))) + (cons __tmp110801 + _post104599_)))) (declare (not safe)) - (_lp104664_ - _rest104696_ - __tmp110881 - __tmp110876 - __tmp110870))) - (if (let ((__tmp110869 + (_lp104594_ + _rest104626_ + __tmp110811 + __tmp110806 + __tmp110800))) + (if (let ((__tmp110799 (let () (declare (not safe)) - (__AST-e _hd104697_)))) + (__AST-e _hd104627_)))) (declare (not safe)) - (not __tmp110869)) - (let ((__tmp110868 - (cdr _exprs104667_)) - (__tmp110864 - (let ((__tmp110865 - (let ((__tmp110866 - (let ((__tmp110867 + (not __tmp110799)) + (let ((__tmp110798 + (cdr _exprs104597_)) + (__tmp110794 + (let ((__tmp110795 + (let ((__tmp110796 + (let ((__tmp110797 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs104667_))) + (car _exprs104597_))) (declare (not safe)) - (cons __tmp110867 '())))) + (cons __tmp110797 '())))) (declare (not safe)) - (cons '#f __tmp110866)))) + (cons '#f __tmp110796)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110865 - _post104669_)))) + (cons __tmp110795 + _post104599_)))) (declare (not safe)) - (_lp104664_ - _rest104696_ - __tmp110868 - _bind104668_ - __tmp110864)) + (_lp104594_ + _rest104626_ + __tmp110798 + _bind104598_ + __tmp110794)) (if (let () (declare (not safe)) - (list? _hd104697_)) - (let* ((_len104701_ - (length _hd104697_)) - (_tmp104703_ - (let ((__tmp110846 + (list? _hd104627_)) + (let* ((_len104631_ + (length _hd104627_)) + (_tmp104633_ + (let ((__tmp110776 (gensym))) (declare (not safe)) (__SRC__0 - __tmp110846)))) - (let ((__tmp110863 - (cdr _exprs104667_)) - (__tmp110856 - (let ((__tmp110857 - (lambda (_id104706_ + __tmp110776)))) + (let ((__tmp110793 + (cdr _exprs104597_)) + (__tmp110786 + (let ((__tmp110787 + (lambda (_id104636_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r104707_) - (if (let () (declare (not safe)) (__AST-e _id104706_)) - (let ((__tmp110858 - (let ((__tmp110862 + _r104637_) + (if (let () (declare (not safe)) (__AST-e _id104636_)) + (let ((__tmp110788 + (let ((__tmp110792 (let () (declare (not safe)) - (__SRC__0 _id104706_))) - (__tmp110859 - (let ((__tmp110860 - (let ((__tmp110861 + (__SRC__0 _id104636_))) + (__tmp110789 + (let ((__tmp110790 + (let ((__tmp110791 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp110861)))) + (cons 'quote __tmp110791)))) (declare (not safe)) - (cons __tmp110860 '())))) + (cons __tmp110790 '())))) (declare (not safe)) - (cons __tmp110862 __tmp110859)))) + (cons __tmp110792 __tmp110789)))) (declare (not safe)) - (cons __tmp110858 _r104707_)) - _r104707_)))) + (cons __tmp110788 _r104637_)) + _r104637_)))) (declare (not safe)) - (foldl1 __tmp110857 _bind104668_ _hd104697_))) + (foldl1 __tmp110787 _bind104598_ _hd104627_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp110847 - (let ((__tmp110848 - (let ((__tmp110849 + (__tmp110777 + (let ((__tmp110778 + (let ((__tmp110779 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110855 (car _exprs104667_)) - (__tmp110850 - (let ((__tmp110851 - (let ((__tmp110853 - (lambda (_id104709_ _k104710_) + (let ((__tmp110785 (car _exprs104597_)) + (__tmp110780 + (let ((__tmp110781 + (let ((__tmp110783 + (lambda (_id104639_ _k104640_) (if (let () (declare (not safe)) - (__AST-e _id104709_)) - (let ((__tmp110854 + (__AST-e _id104639_)) + (let ((__tmp110784 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id104709_)))) + (__SRC__0 _id104639_)))) (declare (not safe)) - (cons __tmp110854 _k104710_)) + (cons __tmp110784 _k104640_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp110852 + (__tmp110782 (let () (declare (not safe)) - (iota _len104701_)))) + (iota _len104631_)))) (declare (not safe)) (filter-map2 - __tmp110853 - _hd104697_ - __tmp110852)))) + __tmp110783 + _hd104627_ + __tmp110782)))) (declare (not safe)) - (cons _len104701_ __tmp110851)))) + (cons _len104631_ __tmp110781)))) (declare (not safe)) - (cons __tmp110855 __tmp110850)))) + (cons __tmp110785 __tmp110780)))) (declare (not safe)) - (cons _tmp104703_ __tmp110849)))) + (cons _tmp104633_ __tmp110779)))) (declare (not safe)) - (cons __tmp110848 _post104669_)))) + (cons __tmp110778 _post104599_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp104664_ - _rest104696_ - __tmp110863 - __tmp110856 - __tmp110847))) + (_lp104594_ + _rest104626_ + __tmp110793 + __tmp110786 + __tmp110777))) (let () (declare (not safe)) (__compile-error__% - _stx104508_ - _hd104697_)))))))) + _stx104438_ + _hd104627_)))))))) (if (let () (declare (not safe)) - (##pair? _rest104670104684_)) - (let ((_tl104680104737_ + (##pair? _rest104600104614_)) + (let ((_tl104610104667_ (let () (declare (not safe)) - (##cdr _rest104670104684_))) - (_hd104679104735_ + (##cdr _rest104600104614_))) + (_hd104609104665_ (let () (declare (not safe)) - (##car _rest104670104684_)))) + (##car _rest104600104614_)))) (if (let () (declare (not safe)) - (##pair? _hd104679104735_)) - (let ((_tl104682104742_ + (##pair? _hd104609104665_)) + (let ((_tl104612104672_ (let () (declare (not safe)) - (##cdr _hd104679104735_))) - (_hd104681104740_ + (##cdr _hd104609104665_))) + (_hd104611104670_ (let () (declare (not safe)) - (##car _hd104679104735_)))) + (##car _hd104609104665_)))) (if (let () (declare (not safe)) - (##null? _tl104682104742_)) - (let ((_hd104745_ _hd104681104740_) - (_rest104747_ - _tl104680104737_)) + (##null? _tl104612104672_)) + (let ((_hd104675_ _hd104611104670_) + (_rest104677_ + _tl104610104667_)) (let () (declare (not safe)) - (_K104678104732_ - _rest104747_ - _hd104745_))) - (let ((_hd104720_ _hd104679104735_) - (_rest104722_ - _tl104680104737_)) + (_K104608104662_ + _rest104677_ + _hd104675_))) + (let ((_hd104650_ _hd104609104665_) + (_rest104652_ + _tl104610104667_)) (let () (declare (not safe)) - (_K104675104712_ - _rest104722_ - _hd104720_))))) - (let ((_hd104720_ _hd104679104735_) - (_rest104722_ _tl104680104737_)) + (_K104605104642_ + _rest104652_ + _hd104650_))))) + (let ((_hd104650_ _hd104609104665_) + (_rest104652_ _tl104610104667_)) (let () (declare (not safe)) - (_K104675104712_ - _rest104722_ - _hd104720_))))) + (_K104605104642_ + _rest104652_ + _hd104650_))))) (let () (declare (not safe)) - (_else104673104692_)))))))) - (_compile-bind104512_ - (lambda (_bind104656_ _post104657_ _body104658_) - (let ((__tmp110882 - (let ((__tmp110883 - (let ((__tmp110886 (reverse _bind104656_)) - (__tmp110884 - (let ((__tmp110885 + (_else104603104622_)))))))) + (_compile-bind104442_ + (lambda (_bind104586_ _post104587_ _body104588_) + (let ((__tmp110812 + (let ((__tmp110813 + (let ((__tmp110816 (reverse _bind104586_)) + (__tmp110814 + (let ((__tmp110815 (let () (declare (not safe)) - (_compile-post104513_ - _post104657_ - _body104658_)))) + (_compile-post104443_ + _post104587_ + _body104588_)))) (declare (not safe)) - (cons __tmp110885 '())))) + (cons __tmp110815 '())))) (declare (not safe)) - (cons __tmp110886 __tmp110884)))) + (cons __tmp110816 __tmp110814)))) (declare (not safe)) - (cons 'let __tmp110883)))) + (cons 'let __tmp110813)))) (declare (not safe)) - (__SRC__% __tmp110882 _stx104508_)))) - (_compile-post104513_ - (lambda (_post104515_ _body104516_) - (let ((__tmp110887 - (let ((__tmp110888 - (let ((__tmp110889 - (let ((__tmp110891 - (lambda (_hd104518_ _r104519_) - (let* ((_hd104520104543_ - _hd104518_) - (_E104524104547_ + (__SRC__% __tmp110812 _stx104438_)))) + (_compile-post104443_ + (lambda (_post104445_ _body104446_) + (let ((__tmp110817 + (let ((__tmp110818 + (let ((__tmp110819 + (let ((__tmp110821 + (lambda (_hd104448_ _r104449_) + (let* ((_hd104450104473_ + _hd104448_) + (_E104454104477_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd104520104543_)))) + _hd104450104473_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K104537104641_ - (lambda (_expr104639_) + (let ((_K104467104571_ + (lambda (_expr104569_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr104639_ _r104519_)))) - (_K104532104619_ - (lambda (_expr104616_ _id104617_) - (let ((__tmp110892 - (let ((__tmp110893 - (let ((__tmp110894 - (let ((__tmp110895 + (cons _expr104569_ _r104449_)))) + (_K104462104549_ + (lambda (_expr104546_ _id104547_) + (let ((__tmp110822 + (let ((__tmp110823 + (let ((__tmp110824 + (let ((__tmp110825 (let () (declare (not safe)) - (cons _expr104616_ '())))) + (cons _expr104546_ '())))) (declare (not safe)) - (cons _id104617_ __tmp110895)))) + (cons _id104547_ __tmp110825)))) (declare (not safe)) - (cons 'set! __tmp110894)))) + (cons 'set! __tmp110824)))) (declare (not safe)) - (__SRC__% __tmp110893 _stx104508_)))) + (__SRC__% __tmp110823 _stx104438_)))) (declare (not safe)) - (cons __tmp110892 _r104519_)))) - (_K104525104586_ - (lambda (_init104551_ _len104552_ _expr104553_ _tmp104554_) - (let ((__tmp110896 - (let ((__tmp110897 - (let ((__tmp110898 - (let ((__tmp110912 - (let ((__tmp110913 - (let ((__tmp110914 + (cons __tmp110822 _r104449_)))) + (_K104455104516_ + (lambda (_init104481_ _len104482_ _expr104483_ _tmp104484_) + (let ((__tmp110826 + (let ((__tmp110827 + (let ((__tmp110828 + (let ((__tmp110842 + (let ((__tmp110843 + (let ((__tmp110844 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr104553_ '())))) + (cons _expr104483_ '())))) (declare (not safe)) - (cons _tmp104554_ __tmp110914)))) + (cons _tmp104484_ __tmp110844)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110913 '()))) - (__tmp110899 - (let ((__tmp110908 - (let ((__tmp110909 - (let ((__tmp110910 + (cons __tmp110843 '()))) + (__tmp110829 + (let ((__tmp110838 + (let ((__tmp110839 + (let ((__tmp110840 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110911 + (let ((__tmp110841 (let () (declare (not safe)) - (cons _len104552_ '())))) + (cons _len104482_ '())))) (declare (not safe)) - (cons _tmp104554_ __tmp110911)))) + (cons _tmp104484_ __tmp110841)))) (declare (not safe)) - (cons '__check-values __tmp110910)))) + (cons '__check-values __tmp110840)))) (declare (not safe)) - (__SRC__% __tmp110909 _stx104508_))) - (__tmp110900 - (let ((__tmp110901 - (map (lambda (_hd104556_) - (let* ((_hd104557104564_ _hd104556_) - (_E104559104568_ + (__SRC__% __tmp110839 _stx104438_))) + (__tmp110830 + (let ((__tmp110831 + (map (lambda (_hd104486_) + (let* ((_hd104487104494_ _hd104486_) + (_E104489104498_ (lambda () (error '"No clause matching" - _hd104557104564_))) - (_K104560104574_ - (lambda (_k104571_ _id104572_) - (let ((__tmp110902 - (let ((__tmp110903 - (let ((__tmp110904 - (let ((__tmp110905 + _hd104487104494_))) + (_K104490104504_ + (lambda (_k104501_ _id104502_) + (let ((__tmp110832 + (let ((__tmp110833 + (let ((__tmp110834 + (let ((__tmp110835 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp110906 - (let ((__tmp110907 + (let ((__tmp110836 + (let ((__tmp110837 (let () (declare (not safe)) - (cons _k104571_ '())))) + (cons _k104501_ '())))) (declare (not safe)) - (cons _tmp104554_ __tmp110907)))) + (cons _tmp104484_ __tmp110837)))) (declare (not safe)) - (cons '##vector-ref __tmp110906)))) + (cons '##vector-ref __tmp110836)))) (declare (not safe)) - (cons __tmp110905 '())))) + (cons __tmp110835 '())))) (declare (not safe)) - (cons _id104572_ __tmp110904)))) + (cons _id104502_ __tmp110834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp110903)))) + (cons 'set! __tmp110833)))) (declare (not safe)) (__SRC__% - __tmp110902 - _stx104508_))))) + __tmp110832 + _stx104438_))))) (if (let () (declare (not safe)) - (##pair? _hd104557104564_)) - (let ((_hd104561104577_ + (##pair? _hd104487104494_)) + (let ((_hd104491104507_ (let () (declare (not safe)) - (##car _hd104557104564_))) - (_tl104562104579_ + (##car _hd104487104494_))) + (_tl104492104509_ (let () (declare (not safe)) - (##cdr _hd104557104564_)))) - (let* ((_id104582_ _hd104561104577_) - (_k104584_ _tl104562104579_)) + (##cdr _hd104487104494_)))) + (let* ((_id104512_ _hd104491104507_) + (_k104514_ _tl104492104509_)) (declare (not safe)) - (_K104560104574_ - _k104584_ - _id104582_))) + (_K104490104504_ + _k104514_ + _id104512_))) (let () (declare (not safe)) - (_E104559104568_))))) - _init104551_))) + (_E104489104498_))))) + _init104481_))) (declare (not safe)) - (foldr1 cons '() __tmp110901)))) + (foldr1 cons '() __tmp110831)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110908 - __tmp110900)))) + (cons __tmp110838 + __tmp110830)))) (declare (not safe)) - (cons __tmp110912 __tmp110899)))) + (cons __tmp110842 __tmp110829)))) (declare (not safe)) - (cons 'let __tmp110898)))) + (cons 'let __tmp110828)))) (declare (not safe)) - (__SRC__% __tmp110897 _stx104508_)))) + (__SRC__% __tmp110827 _stx104438_)))) (declare (not safe)) - (cons __tmp110896 _r104519_))))) - (if (let () (declare (not safe)) (##pair? _hd104520104543_)) - (let ((_tl104539104646_ + (cons __tmp110826 _r104449_))))) + (if (let () (declare (not safe)) (##pair? _hd104450104473_)) + (let ((_tl104469104576_ (let () (declare (not safe)) - (##cdr _hd104520104543_))) - (_hd104538104644_ + (##cdr _hd104450104473_))) + (_hd104468104574_ (let () (declare (not safe)) - (##car _hd104520104543_)))) + (##car _hd104450104473_)))) (if (let () (declare (not safe)) - (##eq? _hd104538104644_ '#f)) + (##eq? _hd104468104574_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl104539104646_)) - (let ((_tl104541104651_ + (##pair? _tl104469104576_)) + (let ((_tl104471104581_ (let () (declare (not safe)) - (##cdr _tl104539104646_))) - (_hd104540104649_ + (##cdr _tl104469104576_))) + (_hd104470104579_ (let () (declare (not safe)) - (##car _tl104539104646_)))) + (##car _tl104469104576_)))) (if (let () (declare (not safe)) - (##null? _tl104541104651_)) - (let ((_expr104654_ _hd104540104649_)) + (##null? _tl104471104581_)) + (let ((_expr104584_ _hd104470104579_)) (declare (not safe)) - (_K104537104641_ _expr104654_)) + (_K104467104571_ _expr104584_)) (if (let () (declare (not safe)) - (##pair? _tl104541104651_)) - (let ((_tl104531104605_ + (##pair? _tl104471104581_)) + (let ((_tl104461104535_ (let () (declare (not safe)) - (##cdr _tl104541104651_))) - (_hd104530104603_ + (##cdr _tl104471104581_))) + (_hd104460104533_ (let () (declare (not safe)) - (##car _tl104541104651_)))) - (let ((_tmp104594_ _hd104538104644_) - (_expr104601_ _hd104540104649_) - (_len104608_ _hd104530104603_) - (_init104610_ _tl104531104605_)) + (##car _tl104471104581_)))) + (let ((_tmp104524_ _hd104468104574_) + (_expr104531_ _hd104470104579_) + (_len104538_ _hd104460104533_) + (_init104540_ _tl104461104535_)) (let () (declare (not safe)) - (_K104525104586_ - _init104610_ - _len104608_ - _expr104601_ - _tmp104594_)))) + (_K104455104516_ + _init104540_ + _len104538_ + _expr104531_ + _tmp104524_)))) (let () (declare (not safe)) - (_E104524104547_))))) - (let () (declare (not safe)) (_E104524104547_))) + (_E104454104477_))))) + (let () (declare (not safe)) (_E104454104477_))) (if (let () (declare (not safe)) - (##pair? _tl104539104646_)) - (let ((_tl104536104631_ + (##pair? _tl104469104576_)) + (let ((_tl104466104561_ (let () (declare (not safe)) - (##cdr _tl104539104646_))) - (_hd104535104629_ + (##cdr _tl104469104576_))) + (_hd104465104559_ (let () (declare (not safe)) - (##car _tl104539104646_)))) + (##car _tl104469104576_)))) (if (let () (declare (not safe)) - (##null? _tl104536104631_)) - (let ((_id104627_ _hd104538104644_) - (_expr104634_ _hd104535104629_)) + (##null? _tl104466104561_)) + (let ((_id104557_ _hd104468104574_) + (_expr104564_ _hd104465104559_)) (let () (declare (not safe)) - (_K104532104619_ - _expr104634_ - _id104627_))) + (_K104462104549_ + _expr104564_ + _id104557_))) (if (let () (declare (not safe)) - (##pair? _tl104536104631_)) - (let ((_tl104531104605_ + (##pair? _tl104466104561_)) + (let ((_tl104461104535_ (let () (declare (not safe)) - (##cdr _tl104536104631_))) - (_hd104530104603_ + (##cdr _tl104466104561_))) + (_hd104460104533_ (let () (declare (not safe)) - (##car _tl104536104631_)))) - (let ((_tmp104594_ _hd104538104644_) - (_expr104601_ _hd104535104629_) - (_len104608_ _hd104530104603_) - (_init104610_ _tl104531104605_)) + (##car _tl104466104561_)))) + (let ((_tmp104524_ _hd104468104574_) + (_expr104531_ _hd104465104559_) + (_len104538_ _hd104460104533_) + (_init104540_ _tl104461104535_)) (let () (declare (not safe)) - (_K104525104586_ - _init104610_ - _len104608_ - _expr104601_ - _tmp104594_)))) + (_K104455104516_ + _init104540_ + _len104538_ + _expr104531_ + _tmp104524_)))) (let () (declare (not safe)) - (_E104524104547_))))) - (let () (declare (not safe)) (_E104524104547_))))) - (let () (declare (not safe)) (_E104524104547_))))))) + (_E104454104477_))))) + (let () (declare (not safe)) (_E104454104477_))))) + (let () (declare (not safe)) (_E104454104477_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp110890 - (list _body104516_))) + (__tmp110820 + (list _body104446_))) (declare (not safe)) - (foldl1 __tmp110891 - __tmp110890 - _post104515_)))) + (foldl1 __tmp110821 + __tmp110820 + _post104445_)))) (declare (not safe)) - (foldr1 cons '() __tmp110889)))) + (foldr1 cons '() __tmp110819)))) (declare (not safe)) - (cons 'begin __tmp110888)))) + (cons 'begin __tmp110818)))) (declare (not safe)) - (__SRC__% __tmp110887 _stx104508_))))) + (__SRC__% __tmp110817 _stx104438_))))) (let () (declare (not safe)) (__compile-let-form - _stx104508_ - _compile-simple104510_ - _compile-values104511_))))) + _stx104438_ + _compile-simple104440_ + _compile-values104441_))))) (define __compile-call% - (lambda (_stx104468_) - (let* ((_$e104470_ _stx104468_) - (_$E104472104481_ + (lambda (_stx104398_) + (let* ((_$e104400_ _stx104398_) + (_$E104402104411_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e104470_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e104470_)) - (let* ((_$tgt104473104484_ - (let () (declare (not safe)) (__AST-e _$e104470_))) - (_$hd104474104487_ - (let () (declare (not safe)) (##car _$tgt104473104484_))) - (_$tl104475104490_ + _$e104400_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e104400_)) + (let* ((_$tgt104403104414_ + (let () (declare (not safe)) (__AST-e _$e104400_))) + (_$hd104404104417_ + (let () (declare (not safe)) (##car _$tgt104403104414_))) + (_$tl104405104420_ (let () (declare (not safe)) - (##cdr _$tgt104473104484_)))) + (##cdr _$tgt104403104414_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl104475104490_)) - (let* ((_$tgt104476104494_ + (__AST-pair? _$tl104405104420_)) + (let* ((_$tgt104406104424_ (let () (declare (not safe)) - (__AST-e _$tl104475104490_))) - (_$hd104477104497_ + (__AST-e _$tl104405104420_))) + (_$hd104407104427_ (let () (declare (not safe)) - (##car _$tgt104476104494_))) - (_$tl104478104500_ + (##car _$tgt104406104424_))) + (_$tl104408104430_ (let () (declare (not safe)) - (##cdr _$tgt104476104494_)))) - (let* ((_rator104504_ _$hd104477104497_) - (_rands104506_ _$tl104478104500_) - (__tmp110915 - (let ((__tmp110917 + (##cdr _$tgt104406104424_)))) + (let* ((_rator104434_ _$hd104407104427_) + (_rands104436_ _$tl104408104430_) + (__tmp110845 + (let ((__tmp110847 (let () (declare (not safe)) - (__compile _rator104504_))) - (__tmp110916 - (map __compile _rands104506_))) + (__compile _rator104434_))) + (__tmp110846 + (map __compile _rands104436_))) (declare (not safe)) - (cons __tmp110917 __tmp110916)))) + (cons __tmp110847 __tmp110846)))) (declare (not safe)) - (__SRC__% __tmp110915 _stx104468_))) - (let () (declare (not safe)) (_$E104472104481_)))) - (let () (declare (not safe)) (_$E104472104481_)))))) + (__SRC__% __tmp110845 _stx104398_))) + (let () (declare (not safe)) (_$E104402104411_)))) + (let () (declare (not safe)) (_$E104402104411_)))))) (define __compile-ref% - (lambda (_stx104430_) - (let* ((_$e104432_ _stx104430_) - (_$E104434104443_ + (lambda (_stx104360_) + (let* ((_$e104362_ _stx104360_) + (_$E104364104373_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e104432_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e104432_)) - (let* ((_$tgt104435104446_ - (let () (declare (not safe)) (__AST-e _$e104432_))) - (_$hd104436104449_ - (let () (declare (not safe)) (##car _$tgt104435104446_))) - (_$tl104437104452_ + _$e104362_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e104362_)) + (let* ((_$tgt104365104376_ + (let () (declare (not safe)) (__AST-e _$e104362_))) + (_$hd104366104379_ + (let () (declare (not safe)) (##car _$tgt104365104376_))) + (_$tl104367104382_ (let () (declare (not safe)) - (##cdr _$tgt104435104446_)))) + (##cdr _$tgt104365104376_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl104437104452_)) - (let* ((_$tgt104438104456_ + (__AST-pair? _$tl104367104382_)) + (let* ((_$tgt104368104386_ (let () (declare (not safe)) - (__AST-e _$tl104437104452_))) - (_$hd104439104459_ + (__AST-e _$tl104367104382_))) + (_$hd104369104389_ (let () (declare (not safe)) - (##car _$tgt104438104456_))) - (_$tl104440104462_ + (##car _$tgt104368104386_))) + (_$tl104370104392_ (let () (declare (not safe)) - (##cdr _$tgt104438104456_)))) - (let ((_id104466_ _$hd104439104459_)) - (if (let ((__tmp110918 + (##cdr _$tgt104368104386_)))) + (let ((_id104396_ _$hd104369104389_)) + (if (let ((__tmp110848 (let () (declare (not safe)) - (__AST-e _$tl104440104462_)))) + (__AST-e _$tl104370104392_)))) (declare (not safe)) - (equal? __tmp110918 '())) + (equal? __tmp110848 '())) (let () (declare (not safe)) - (__SRC__% _id104466_ _stx104430_)) - (let () (declare (not safe)) (_$E104434104443_))))) - (let () (declare (not safe)) (_$E104434104443_)))) - (let () (declare (not safe)) (_$E104434104443_)))))) + (__SRC__% _id104396_ _stx104360_)) + (let () (declare (not safe)) (_$E104364104373_))))) + (let () (declare (not safe)) (_$E104364104373_)))) + (let () (declare (not safe)) (_$E104364104373_)))))) (define __compile-setq% - (lambda (_stx104377_) - (let* ((_$e104379_ _stx104377_) - (_$E104381104393_ + (lambda (_stx104307_) + (let* ((_$e104309_ _stx104307_) + (_$E104311104323_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e104379_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e104379_)) - (let* ((_$tgt104382104396_ - (let () (declare (not safe)) (__AST-e _$e104379_))) - (_$hd104383104399_ - (let () (declare (not safe)) (##car _$tgt104382104396_))) - (_$tl104384104402_ + _$e104309_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e104309_)) + (let* ((_$tgt104312104326_ + (let () (declare (not safe)) (__AST-e _$e104309_))) + (_$hd104313104329_ + (let () (declare (not safe)) (##car _$tgt104312104326_))) + (_$tl104314104332_ (let () (declare (not safe)) - (##cdr _$tgt104382104396_)))) + (##cdr _$tgt104312104326_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl104384104402_)) - (let* ((_$tgt104385104406_ + (__AST-pair? _$tl104314104332_)) + (let* ((_$tgt104315104336_ (let () (declare (not safe)) - (__AST-e _$tl104384104402_))) - (_$hd104386104409_ + (__AST-e _$tl104314104332_))) + (_$hd104316104339_ (let () (declare (not safe)) - (##car _$tgt104385104406_))) - (_$tl104387104412_ + (##car _$tgt104315104336_))) + (_$tl104317104342_ (let () (declare (not safe)) - (##cdr _$tgt104385104406_)))) - (let ((_id104416_ _$hd104386104409_)) + (##cdr _$tgt104315104336_)))) + (let ((_id104346_ _$hd104316104339_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl104387104412_)) - (let* ((_$tgt104388104418_ + (__AST-pair? _$tl104317104342_)) + (let* ((_$tgt104318104348_ (let () (declare (not safe)) - (__AST-e _$tl104387104412_))) - (_$hd104389104421_ + (__AST-e _$tl104317104342_))) + (_$hd104319104351_ (let () (declare (not safe)) - (##car _$tgt104388104418_))) - (_$tl104390104424_ + (##car _$tgt104318104348_))) + (_$tl104320104354_ (let () (declare (not safe)) - (##cdr _$tgt104388104418_)))) - (let ((_expr104428_ _$hd104389104421_)) - (if (let ((__tmp110924 + (##cdr _$tgt104318104348_)))) + (let ((_expr104358_ _$hd104319104351_)) + (if (let ((__tmp110854 (let () (declare (not safe)) - (__AST-e _$tl104390104424_)))) + (__AST-e _$tl104320104354_)))) (declare (not safe)) - (equal? __tmp110924 '())) - (let ((__tmp110919 - (let ((__tmp110920 - (let ((__tmp110923 + (equal? __tmp110854 '())) + (let ((__tmp110849 + (let ((__tmp110850 + (let ((__tmp110853 (let () (declare (not safe)) (__SRC__% - _id104416_ - _stx104377_))) - (__tmp110921 - (let ((__tmp110922 + _id104346_ + _stx104307_))) + (__tmp110851 + (let ((__tmp110852 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr104428_)))) + (__compile _expr104358_)))) (declare (not safe)) - (cons __tmp110922 '())))) + (cons __tmp110852 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp110923 - __tmp110921)))) + (cons __tmp110853 + __tmp110851)))) (declare (not safe)) - (cons 'set! __tmp110920)))) + (cons 'set! __tmp110850)))) (declare (not safe)) - (__SRC__% __tmp110919 _stx104377_)) + (__SRC__% __tmp110849 _stx104307_)) (let () (declare (not safe)) - (_$E104381104393_))))) - (let () (declare (not safe)) (_$E104381104393_))))) - (let () (declare (not safe)) (_$E104381104393_)))) - (let () (declare (not safe)) (_$E104381104393_)))))) + (_$E104311104323_))))) + (let () (declare (not safe)) (_$E104311104323_))))) + (let () (declare (not safe)) (_$E104311104323_)))) + (let () (declare (not safe)) (_$E104311104323_)))))) (define __compile-if% - (lambda (_stx104309_) - (let* ((_$e104311_ _stx104309_) - (_$E104313104328_ + (lambda (_stx104239_) + (let* ((_$e104241_ _stx104239_) + (_$E104243104258_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e104311_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e104311_)) - (let* ((_$tgt104314104331_ - (let () (declare (not safe)) (__AST-e _$e104311_))) - (_$hd104315104334_ - (let () (declare (not safe)) (##car _$tgt104314104331_))) - (_$tl104316104337_ + _$e104241_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e104241_)) + (let* ((_$tgt104244104261_ + (let () (declare (not safe)) (__AST-e _$e104241_))) + (_$hd104245104264_ + (let () (declare (not safe)) (##car _$tgt104244104261_))) + (_$tl104246104267_ (let () (declare (not safe)) - (##cdr _$tgt104314104331_)))) + (##cdr _$tgt104244104261_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl104316104337_)) - (let* ((_$tgt104317104341_ + (__AST-pair? _$tl104246104267_)) + (let* ((_$tgt104247104271_ (let () (declare (not safe)) - (__AST-e _$tl104316104337_))) - (_$hd104318104344_ + (__AST-e _$tl104246104267_))) + (_$hd104248104274_ (let () (declare (not safe)) - (##car _$tgt104317104341_))) - (_$tl104319104347_ + (##car _$tgt104247104271_))) + (_$tl104249104277_ (let () (declare (not safe)) - (##cdr _$tgt104317104341_)))) - (let ((_p104351_ _$hd104318104344_)) + (##cdr _$tgt104247104271_)))) + (let ((_p104281_ _$hd104248104274_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl104319104347_)) - (let* ((_$tgt104320104353_ + (__AST-pair? _$tl104249104277_)) + (let* ((_$tgt104250104283_ (let () (declare (not safe)) - (__AST-e _$tl104319104347_))) - (_$hd104321104356_ + (__AST-e _$tl104249104277_))) + (_$hd104251104286_ (let () (declare (not safe)) - (##car _$tgt104320104353_))) - (_$tl104322104359_ + (##car _$tgt104250104283_))) + (_$tl104252104289_ (let () (declare (not safe)) - (##cdr _$tgt104320104353_)))) - (let ((_t104363_ _$hd104321104356_)) + (##cdr _$tgt104250104283_)))) + (let ((_t104293_ _$hd104251104286_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl104322104359_)) - (let* ((_$tgt104323104365_ + (__AST-pair? _$tl104252104289_)) + (let* ((_$tgt104253104295_ (let () (declare (not safe)) - (__AST-e _$tl104322104359_))) - (_$hd104324104368_ + (__AST-e _$tl104252104289_))) + (_$hd104254104298_ (let () (declare (not safe)) - (##car _$tgt104323104365_))) - (_$tl104325104371_ + (##car _$tgt104253104295_))) + (_$tl104255104301_ (let () (declare (not safe)) - (##cdr _$tgt104323104365_)))) - (let ((_f104375_ _$hd104324104368_)) - (if (let ((__tmp110932 + (##cdr _$tgt104253104295_)))) + (let ((_f104305_ _$hd104254104298_)) + (if (let ((__tmp110862 (let () (declare (not safe)) - (__AST-e _$tl104325104371_)))) + (__AST-e _$tl104255104301_)))) (declare (not safe)) - (equal? __tmp110932 '())) - (let ((__tmp110925 - (let ((__tmp110926 - (let ((__tmp110931 + (equal? __tmp110862 '())) + (let ((__tmp110855 + (let ((__tmp110856 + (let ((__tmp110861 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p104351_))) - (__tmp110927 - (let ((__tmp110930 + (let () (declare (not safe)) (__compile _p104281_))) + (__tmp110857 + (let ((__tmp110860 (let () (declare (not safe)) - (__compile _t104363_))) - (__tmp110928 - (let ((__tmp110929 + (__compile _t104293_))) + (__tmp110858 + (let ((__tmp110859 (let () (declare (not safe)) - (__compile _f104375_)))) + (__compile _f104305_)))) (declare (not safe)) - (cons __tmp110929 '())))) + (cons __tmp110859 '())))) (declare (not safe)) - (cons __tmp110930 __tmp110928)))) + (cons __tmp110860 __tmp110858)))) (declare (not safe)) - (cons __tmp110931 __tmp110927)))) + (cons __tmp110861 __tmp110857)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp110926)))) + (cons 'if __tmp110856)))) (declare (not safe)) (__SRC__% - __tmp110925 - _stx104309_)) + __tmp110855 + _stx104239_)) (let () (declare (not safe)) - (_$E104313104328_))))) + (_$E104243104258_))))) (let () (declare (not safe)) - (_$E104313104328_))))) - (let () (declare (not safe)) (_$E104313104328_))))) - (let () (declare (not safe)) (_$E104313104328_)))) - (let () (declare (not safe)) (_$E104313104328_)))))) + (_$E104243104258_))))) + (let () (declare (not safe)) (_$E104243104258_))))) + (let () (declare (not safe)) (_$E104243104258_)))) + (let () (declare (not safe)) (_$E104243104258_)))))) (define __compile-quote% - (lambda (_stx104271_) - (let* ((_$e104273_ _stx104271_) - (_$E104275104284_ + (lambda (_stx104201_) + (let* ((_$e104203_ _stx104201_) + (_$E104205104214_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e104273_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e104273_)) - (let* ((_$tgt104276104287_ - (let () (declare (not safe)) (__AST-e _$e104273_))) - (_$hd104277104290_ - (let () (declare (not safe)) (##car _$tgt104276104287_))) - (_$tl104278104293_ + _$e104203_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e104203_)) + (let* ((_$tgt104206104217_ + (let () (declare (not safe)) (__AST-e _$e104203_))) + (_$hd104207104220_ + (let () (declare (not safe)) (##car _$tgt104206104217_))) + (_$tl104208104223_ (let () (declare (not safe)) - (##cdr _$tgt104276104287_)))) + (##cdr _$tgt104206104217_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl104278104293_)) - (let* ((_$tgt104279104297_ + (__AST-pair? _$tl104208104223_)) + (let* ((_$tgt104209104227_ (let () (declare (not safe)) - (__AST-e _$tl104278104293_))) - (_$hd104280104300_ + (__AST-e _$tl104208104223_))) + (_$hd104210104230_ (let () (declare (not safe)) - (##car _$tgt104279104297_))) - (_$tl104281104303_ + (##car _$tgt104209104227_))) + (_$tl104211104233_ (let () (declare (not safe)) - (##cdr _$tgt104279104297_)))) - (let ((_e104307_ _$hd104280104300_)) - (if (let ((__tmp110936 + (##cdr _$tgt104209104227_)))) + (let ((_e104237_ _$hd104210104230_)) + (if (let ((__tmp110866 (let () (declare (not safe)) - (__AST-e _$tl104281104303_)))) + (__AST-e _$tl104211104233_)))) (declare (not safe)) - (equal? __tmp110936 '())) - (let ((__tmp110933 - (let ((__tmp110934 - (let ((__tmp110935 + (equal? __tmp110866 '())) + (let ((__tmp110863 + (let ((__tmp110864 + (let ((__tmp110865 (let () (declare (not safe)) - (__AST->datum _e104307_)))) + (__AST->datum _e104237_)))) (declare (not safe)) - (cons __tmp110935 '())))) + (cons __tmp110865 '())))) (declare (not safe)) - (cons 'quote __tmp110934)))) + (cons 'quote __tmp110864)))) (declare (not safe)) - (__SRC__% __tmp110933 _stx104271_)) - (let () (declare (not safe)) (_$E104275104284_))))) - (let () (declare (not safe)) (_$E104275104284_)))) - (let () (declare (not safe)) (_$E104275104284_)))))) + (__SRC__% __tmp110863 _stx104201_)) + (let () (declare (not safe)) (_$E104205104214_))))) + (let () (declare (not safe)) (_$E104205104214_)))) + (let () (declare (not safe)) (_$E104205104214_)))))) (define __compile-quote-syntax% - (lambda (_stx104233_) - (let* ((_$e104235_ _stx104233_) - (_$E104237104246_ + (lambda (_stx104163_) + (let* ((_$e104165_ _stx104163_) + (_$E104167104176_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e104235_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e104235_)) - (let* ((_$tgt104238104249_ - (let () (declare (not safe)) (__AST-e _$e104235_))) - (_$hd104239104252_ - (let () (declare (not safe)) (##car _$tgt104238104249_))) - (_$tl104240104255_ + _$e104165_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e104165_)) + (let* ((_$tgt104168104179_ + (let () (declare (not safe)) (__AST-e _$e104165_))) + (_$hd104169104182_ + (let () (declare (not safe)) (##car _$tgt104168104179_))) + (_$tl104170104185_ (let () (declare (not safe)) - (##cdr _$tgt104238104249_)))) + (##cdr _$tgt104168104179_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl104240104255_)) - (let* ((_$tgt104241104259_ + (__AST-pair? _$tl104170104185_)) + (let* ((_$tgt104171104189_ (let () (declare (not safe)) - (__AST-e _$tl104240104255_))) - (_$hd104242104262_ + (__AST-e _$tl104170104185_))) + (_$hd104172104192_ (let () (declare (not safe)) - (##car _$tgt104241104259_))) - (_$tl104243104265_ + (##car _$tgt104171104189_))) + (_$tl104173104195_ (let () (declare (not safe)) - (##cdr _$tgt104241104259_)))) - (let ((_e104269_ _$hd104242104262_)) - (if (let ((__tmp110939 + (##cdr _$tgt104171104189_)))) + (let ((_e104199_ _$hd104172104192_)) + (if (let ((__tmp110869 (let () (declare (not safe)) - (__AST-e _$tl104243104265_)))) + (__AST-e _$tl104173104195_)))) (declare (not safe)) - (equal? __tmp110939 '())) - (let ((__tmp110937 - (let ((__tmp110938 + (equal? __tmp110869 '())) + (let ((__tmp110867 + (let ((__tmp110868 (let () (declare (not safe)) - (cons _e104269_ '())))) + (cons _e104199_ '())))) (declare (not safe)) - (cons 'quote __tmp110938)))) + (cons 'quote __tmp110868)))) (declare (not safe)) - (__SRC__% __tmp110937 _stx104233_)) - (let () (declare (not safe)) (_$E104237104246_))))) - (let () (declare (not safe)) (_$E104237104246_)))) - (let () (declare (not safe)) (_$E104237104246_)))))) + (__SRC__% __tmp110867 _stx104163_)) + (let () (declare (not safe)) (_$E104167104176_))))) + (let () (declare (not safe)) (_$E104167104176_)))) + (let () (declare (not safe)) (_$E104167104176_)))))) (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 5382165d1..8972f26fb 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]#_g110941_| + (define |[1]#_g110871_| (##structure gx#syntax-quote::t '__context::t #f (gx#current-expander-context) '())) - (define |[1]#_g110943_| + (define |[1]#_g110873_| (##structure gx#syntax-quote::t 'make-__context #f (gx#current-expander-context) '())) - (define |[1]#_g110945_| + (define |[1]#_g110875_| (##structure gx#syntax-quote::t '__context? #f (gx#current-expander-context) '())) - (define |[1]#_g110952_| + (define |[1]#_g110882_| (##structure gx#syntax-quote::t '__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g110955_| + (define |[1]#_g110885_| (##structure gx#syntax-quote::t '__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g110958_| + (define |[1]#_g110888_| (##structure gx#syntax-quote::t '__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g110961_| + (define |[1]#_g110891_| (##structure gx#syntax-quote::t '__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g110968_| + (define |[1]#_g110898_| (##structure gx#syntax-quote::t '__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110971_| + (define |[1]#_g110901_| (##structure gx#syntax-quote::t '__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110974_| + (define |[1]#_g110904_| (##structure gx#syntax-quote::t '__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110977_| + (define |[1]#_g110907_| (##structure gx#syntax-quote::t '__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110984_| + (define |[1]#_g110914_| (##structure gx#syntax-quote::t '&__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g110987_| + (define |[1]#_g110917_| (##structure gx#syntax-quote::t '&__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g110990_| + (define |[1]#_g110920_| (##structure gx#syntax-quote::t '&__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g110993_| + (define |[1]#_g110923_| (##structure gx#syntax-quote::t '&__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g111000_| + (define |[1]#_g110930_| (##structure gx#syntax-quote::t '&__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111003_| + (define |[1]#_g110933_| (##structure gx#syntax-quote::t '&__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111006_| + (define |[1]#_g110936_| (##structure gx#syntax-quote::t '&__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111009_| + (define |[1]#_g110939_| (##structure gx#syntax-quote::t '&__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111011_| + (define |[1]#_g110941_| (##structure gx#syntax-quote::t '__runtime::t #f (gx#current-expander-context) '())) - (define |[1]#_g111013_| + (define |[1]#_g110943_| (##structure gx#syntax-quote::t 'make-__runtime #f (gx#current-expander-context) '())) - (define |[1]#_g111015_| + (define |[1]#_g110945_| (##structure gx#syntax-quote::t '__runtime? #f (gx#current-expander-context) '())) - (define |[1]#_g111019_| + (define |[1]#_g110949_| (##structure gx#syntax-quote::t '__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g111023_| + (define |[1]#_g110953_| (##structure gx#syntax-quote::t '__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111027_| + (define |[1]#_g110957_| (##structure gx#syntax-quote::t '&__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g111031_| + (define |[1]#_g110961_| (##structure gx#syntax-quote::t '&__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111033_| + (define |[1]#_g110963_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g111035_| + (define |[1]#_g110965_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g111037_| + (define |[1]#_g110967_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g111042_| + (define |[1]#_g110972_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g111045_| + (define |[1]#_g110975_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g111050_| + (define |[1]#_g110980_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111053_| + (define |[1]#_g110983_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111058_| + (define |[1]#_g110988_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g111061_| + (define |[1]#_g110991_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g111066_| + (define |[1]#_g110996_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111069_| + (define |[1]#_g110999_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111072_| + (define |[1]#_g111002_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g111074_| + (define |[1]#_g111004_| (##structure gx#syntax-quote::t '__macro::t #f (gx#current-expander-context) '())) - (define |[1]#_g111076_| + (define |[1]#_g111006_| (##structure gx#syntax-quote::t 'make-__macro #f (gx#current-expander-context) '())) - (define |[1]#_g111078_| + (define |[1]#_g111008_| (##structure gx#syntax-quote::t '__macro? #f (gx#current-expander-context) '())) - (define |[1]#_g111083_| + (define |[1]#_g111013_| (##structure gx#syntax-quote::t '__macro-id #f (gx#current-expander-context) '())) - (define |[1]#_g111086_| + (define |[1]#_g111016_| (##structure gx#syntax-quote::t '__macro-e #f (gx#current-expander-context) '())) - (define |[1]#_g111091_| + (define |[1]#_g111021_| (##structure gx#syntax-quote::t '__macro-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111094_| + (define |[1]#_g111024_| (##structure gx#syntax-quote::t '__macro-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111099_| + (define |[1]#_g111029_| (##structure gx#syntax-quote::t '&__macro-id #f (gx#current-expander-context) '())) - (define |[1]#_g111102_| + (define |[1]#_g111032_| (##structure gx#syntax-quote::t '&__macro-e #f (gx#current-expander-context) '())) - (define |[1]#_g111107_| + (define |[1]#_g111037_| (##structure gx#syntax-quote::t '&__macro-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111110_| + (define |[1]#_g111040_| (##structure gx#syntax-quote::t '&__macro-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111113_| + (define |[1]#_g111043_| (##structure gx#syntax-quote::t '__macro #f (gx#current-expander-context) '())) - (define |[1]#_g111115_| + (define |[1]#_g111045_| (##structure gx#syntax-quote::t '__special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g111117_| + (define |[1]#_g111047_| (##structure gx#syntax-quote::t 'make-__special-form #f (gx#current-expander-context) '())) - (define |[1]#_g111119_| + (define |[1]#_g111049_| (##structure gx#syntax-quote::t '__special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g111124_| + (define |[1]#_g111054_| (##structure gx#syntax-quote::t '__special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g111127_| + (define |[1]#_g111057_| (##structure gx#syntax-quote::t '__special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g111132_| + (define |[1]#_g111062_| (##structure gx#syntax-quote::t '__special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111135_| + (define |[1]#_g111065_| (##structure gx#syntax-quote::t '__special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111140_| + (define |[1]#_g111070_| (##structure gx#syntax-quote::t '&__special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g111143_| + (define |[1]#_g111073_| (##structure gx#syntax-quote::t '&__special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g111148_| + (define |[1]#_g111078_| (##structure gx#syntax-quote::t '&__special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111151_| + (define |[1]#_g111081_| (##structure gx#syntax-quote::t '&__special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111155_| + (define |[1]#_g111085_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g111157_| + (define |[1]#_g111087_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g111159_| + (define |[1]#_g111089_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g111164_| + (define |[1]#_g111094_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g111167_| + (define |[1]#_g111097_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g111172_| + (define |[1]#_g111102_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111175_| + (define |[1]#_g111105_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111180_| + (define |[1]#_g111110_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g111183_| + (define |[1]#_g111113_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g111188_| + (define |[1]#_g111118_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111191_| + (define |[1]#_g111121_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111194_| + (define |[1]#_g111124_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g111196_| + (define |[1]#_g111126_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g111198_| + (define |[1]#_g111128_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g111200_| + (define |[1]#_g111130_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g111205_| + (define |[1]#_g111135_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g111208_| + (define |[1]#_g111138_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g111213_| + (define |[1]#_g111143_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111216_| + (define |[1]#_g111146_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111221_| + (define |[1]#_g111151_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g111224_| + (define |[1]#_g111154_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g111229_| + (define |[1]#_g111159_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111232_| + (define |[1]#_g111162_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111236_| + (define |[1]#_g111166_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g111238_| + (define |[1]#_g111168_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g111240_| + (define |[1]#_g111170_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g111245_| + (define |[1]#_g111175_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g111248_| + (define |[1]#_g111178_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g111253_| + (define |[1]#_g111183_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111256_| + (define |[1]#_g111186_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111261_| + (define |[1]#_g111191_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g111264_| + (define |[1]#_g111194_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g111269_| + (define |[1]#_g111199_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111272_| + (define |[1]#_g111202_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111276_| + (define |[1]#_g111206_| (##structure gx#syntax-quote::t '__struct-info::t #f (gx#current-expander-context) '())) - (define |[1]#_g111278_| + (define |[1]#_g111208_| (##structure gx#syntax-quote::t 'make-__struct-info #f (gx#current-expander-context) '())) - (define |[1]#_g111280_| + (define |[1]#_g111210_| (##structure gx#syntax-quote::t '__struct-info? #f (gx#current-expander-context) '())) - (define |[1]#_g111285_| + (define |[1]#_g111215_| (##structure gx#syntax-quote::t '__struct-info-id #f (gx#current-expander-context) '())) - (define |[1]#_g111288_| + (define |[1]#_g111218_| (##structure gx#syntax-quote::t '__struct-info-e #f (gx#current-expander-context) '())) - (define |[1]#_g111293_| + (define |[1]#_g111223_| (##structure gx#syntax-quote::t '__struct-info-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111296_| + (define |[1]#_g111226_| (##structure gx#syntax-quote::t '__struct-info-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111301_| + (define |[1]#_g111231_| (##structure gx#syntax-quote::t '&__struct-info-id #f (gx#current-expander-context) '())) - (define |[1]#_g111304_| + (define |[1]#_g111234_| (##structure gx#syntax-quote::t '&__struct-info-e #f (gx#current-expander-context) '())) - (define |[1]#_g111309_| + (define |[1]#_g111239_| (##structure gx#syntax-quote::t '&__struct-info-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111312_| + (define |[1]#_g111242_| (##structure gx#syntax-quote::t '&__struct-info-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111316_| + (define |[1]#_g111246_| (##structure gx#syntax-quote::t '__feature::t #f (gx#current-expander-context) '())) - (define |[1]#_g111318_| + (define |[1]#_g111248_| (##structure gx#syntax-quote::t 'make-__feature #f (gx#current-expander-context) '())) - (define |[1]#_g111320_| + (define |[1]#_g111250_| (##structure gx#syntax-quote::t '__feature? #f (gx#current-expander-context) '())) - (define |[1]#_g111325_| + (define |[1]#_g111255_| (##structure gx#syntax-quote::t '__feature-id #f (gx#current-expander-context) '())) - (define |[1]#_g111328_| + (define |[1]#_g111258_| (##structure gx#syntax-quote::t '__feature-e #f (gx#current-expander-context) '())) - (define |[1]#_g111333_| + (define |[1]#_g111263_| (##structure gx#syntax-quote::t '__feature-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111336_| + (define |[1]#_g111266_| (##structure gx#syntax-quote::t '__feature-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111341_| + (define |[1]#_g111271_| (##structure gx#syntax-quote::t '&__feature-id #f (gx#current-expander-context) '())) - (define |[1]#_g111344_| + (define |[1]#_g111274_| (##structure gx#syntax-quote::t '&__feature-e #f (gx#current-expander-context) '())) - (define |[1]#_g111349_| + (define |[1]#_g111279_| (##structure gx#syntax-quote::t '&__feature-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111352_| + (define |[1]#_g111282_| (##structure gx#syntax-quote::t '&__feature-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111355_| + (define |[1]#_g111285_| (##structure gx#syntax-quote::t '__context #f (gx#current-expander-context) '())) - (define |[1]#_g111357_| + (define |[1]#_g111287_| (##structure gx#syntax-quote::t '__module::t #f (gx#current-expander-context) '())) - (define |[1]#_g111359_| + (define |[1]#_g111289_| (##structure gx#syntax-quote::t 'make-__module #f (gx#current-expander-context) '())) - (define |[1]#_g111361_| + (define |[1]#_g111291_| (##structure gx#syntax-quote::t '__module? #f (gx#current-expander-context) '())) - (define |[1]#_g111372_| + (define |[1]#_g111302_| (##structure gx#syntax-quote::t '__module-table #f (gx#current-expander-context) '())) - (define |[1]#_g111375_| + (define |[1]#_g111305_| (##structure gx#syntax-quote::t '__module-super #f (gx#current-expander-context) '())) - (define |[1]#_g111378_| + (define |[1]#_g111308_| (##structure gx#syntax-quote::t '__module-ns #f (gx#current-expander-context) '())) - (define |[1]#_g111381_| + (define |[1]#_g111311_| (##structure gx#syntax-quote::t '__module-t #f (gx#current-expander-context) '())) - (define |[1]#_g111384_| + (define |[1]#_g111314_| (##structure gx#syntax-quote::t '__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g111387_| + (define |[1]#_g111317_| (##structure gx#syntax-quote::t '__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g111390_| + (define |[1]#_g111320_| (##structure gx#syntax-quote::t '__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g111393_| + (define |[1]#_g111323_| (##structure gx#syntax-quote::t '__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g111404_| + (define |[1]#_g111334_| (##structure gx#syntax-quote::t '__module-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111407_| + (define |[1]#_g111337_| (##structure gx#syntax-quote::t '__module-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111410_| + (define |[1]#_g111340_| (##structure gx#syntax-quote::t '__module-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111413_| + (define |[1]#_g111343_| (##structure gx#syntax-quote::t '__module-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111416_| + (define |[1]#_g111346_| (##structure gx#syntax-quote::t '__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111419_| + (define |[1]#_g111349_| (##structure gx#syntax-quote::t '__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111422_| + (define |[1]#_g111352_| (##structure gx#syntax-quote::t '__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111425_| + (define |[1]#_g111355_| (##structure gx#syntax-quote::t '__module-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111436_| + (define |[1]#_g111366_| (##structure gx#syntax-quote::t '&__module-table #f (gx#current-expander-context) '())) - (define |[1]#_g111439_| + (define |[1]#_g111369_| (##structure gx#syntax-quote::t '&__module-super #f (gx#current-expander-context) '())) - (define |[1]#_g111442_| + (define |[1]#_g111372_| (##structure gx#syntax-quote::t '&__module-ns #f (gx#current-expander-context) '())) - (define |[1]#_g111445_| + (define |[1]#_g111375_| (##structure gx#syntax-quote::t '&__module-t #f (gx#current-expander-context) '())) - (define |[1]#_g111448_| + (define |[1]#_g111378_| (##structure gx#syntax-quote::t '&__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g111451_| + (define |[1]#_g111381_| (##structure gx#syntax-quote::t '&__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g111454_| + (define |[1]#_g111384_| (##structure gx#syntax-quote::t '&__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g111457_| + (define |[1]#_g111387_| (##structure gx#syntax-quote::t '&__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g111468_| + (define |[1]#_g111398_| (##structure gx#syntax-quote::t '&__module-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111471_| + (define |[1]#_g111401_| (##structure gx#syntax-quote::t '&__module-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111474_| + (define |[1]#_g111404_| (##structure gx#syntax-quote::t '&__module-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111477_| + (define |[1]#_g111407_| (##structure gx#syntax-quote::t '&__module-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111480_| + (define |[1]#_g111410_| (##structure gx#syntax-quote::t '&__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111483_| + (define |[1]#_g111413_| (##structure gx#syntax-quote::t '&__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111486_| + (define |[1]#_g111416_| (##structure gx#syntax-quote::t '&__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111489_| + (define |[1]#_g111419_| (##structure gx#syntax-quote::t '&__module-id-set! @@ -1073,12 +1073,12 @@ '())) (begin (define |[:0:]#__context| - (let ((__obj110541 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110471 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110541 + __obj110471 'gerbil/runtime/eval#__context::t '1 gerbil/core$$#class-type-info::t @@ -1086,7 +1086,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110541 + __obj110471 '__context '2 gerbil/core$$#class-type-info::t @@ -1094,7 +1094,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110541 + __obj110471 '(t ns super table) '4 gerbil/core$$#class-type-info::t @@ -1102,7 +1102,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110541 + __obj110471 '() '3 gerbil/core$$#class-type-info::t @@ -1110,7 +1110,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110541 + __obj110471 '#t '5 gerbil/core$$#class-type-info::t @@ -1118,7 +1118,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110541 + __obj110471 '#f '6 gerbil/core$$#class-type-info::t @@ -1126,183 +1126,183 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110541 + __obj110471 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp110940 |[1]#_g110941_|)) + (let ((__tmp110870 |[1]#_g110871_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110541 - __tmp110940 + __obj110471 + __tmp110870 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp110942 |[1]#_g110943_|)) + (let ((__tmp110872 |[1]#_g110873_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110541 - __tmp110942 + __obj110471 + __tmp110872 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp110944 |[1]#_g110945_|)) + (let ((__tmp110874 |[1]#_g110875_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110541 - __tmp110944 + __obj110471 + __tmp110874 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp110946 - (let ((__tmp110959 - (let ((__tmp110960 |[1]#_g110961_|)) + (let ((__tmp110876 + (let ((__tmp110889 + (let ((__tmp110890 |[1]#_g110891_|)) (declare (not safe)) - (cons 't __tmp110960))) - (__tmp110947 - (let ((__tmp110956 - (let ((__tmp110957 |[1]#_g110958_|)) + (cons 't __tmp110890))) + (__tmp110877 + (let ((__tmp110886 + (let ((__tmp110887 |[1]#_g110888_|)) (declare (not safe)) - (cons 'ns __tmp110957))) - (__tmp110948 - (let ((__tmp110953 - (let ((__tmp110954 |[1]#_g110955_|)) + (cons 'ns __tmp110887))) + (__tmp110878 + (let ((__tmp110883 + (let ((__tmp110884 |[1]#_g110885_|)) (declare (not safe)) - (cons 'super __tmp110954))) - (__tmp110949 - (let ((__tmp110950 - (let ((__tmp110951 |[1]#_g110952_|)) + (cons 'super __tmp110884))) + (__tmp110879 + (let ((__tmp110880 + (let ((__tmp110881 |[1]#_g110882_|)) (declare (not safe)) - (cons 'table __tmp110951)))) + (cons 'table __tmp110881)))) (declare (not safe)) - (cons __tmp110950 '())))) + (cons __tmp110880 '())))) (declare (not safe)) - (cons __tmp110953 __tmp110949)))) + (cons __tmp110883 __tmp110879)))) (declare (not safe)) - (cons __tmp110956 __tmp110948)))) + (cons __tmp110886 __tmp110878)))) (declare (not safe)) - (cons __tmp110959 __tmp110947)))) + (cons __tmp110889 __tmp110877)))) (declare (not safe)) (##unchecked-structure-set! - __obj110541 - __tmp110946 + __obj110471 + __tmp110876 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp110962 - (let ((__tmp110975 - (let ((__tmp110976 |[1]#_g110977_|)) + (let ((__tmp110892 + (let ((__tmp110905 + (let ((__tmp110906 |[1]#_g110907_|)) (declare (not safe)) - (cons 't __tmp110976))) - (__tmp110963 - (let ((__tmp110972 - (let ((__tmp110973 |[1]#_g110974_|)) + (cons 't __tmp110906))) + (__tmp110893 + (let ((__tmp110902 + (let ((__tmp110903 |[1]#_g110904_|)) (declare (not safe)) - (cons 'ns __tmp110973))) - (__tmp110964 - (let ((__tmp110969 - (let ((__tmp110970 |[1]#_g110971_|)) + (cons 'ns __tmp110903))) + (__tmp110894 + (let ((__tmp110899 + (let ((__tmp110900 |[1]#_g110901_|)) (declare (not safe)) - (cons 'super __tmp110970))) - (__tmp110965 - (let ((__tmp110966 - (let ((__tmp110967 |[1]#_g110968_|)) + (cons 'super __tmp110900))) + (__tmp110895 + (let ((__tmp110896 + (let ((__tmp110897 |[1]#_g110898_|)) (declare (not safe)) - (cons 'table __tmp110967)))) + (cons 'table __tmp110897)))) (declare (not safe)) - (cons __tmp110966 '())))) + (cons __tmp110896 '())))) (declare (not safe)) - (cons __tmp110969 __tmp110965)))) + (cons __tmp110899 __tmp110895)))) (declare (not safe)) - (cons __tmp110972 __tmp110964)))) + (cons __tmp110902 __tmp110894)))) (declare (not safe)) - (cons __tmp110975 __tmp110963)))) + (cons __tmp110905 __tmp110893)))) (declare (not safe)) (##unchecked-structure-set! - __obj110541 - __tmp110962 + __obj110471 + __tmp110892 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp110978 - (let ((__tmp110991 - (let ((__tmp110992 |[1]#_g110993_|)) + (let ((__tmp110908 + (let ((__tmp110921 + (let ((__tmp110922 |[1]#_g110923_|)) (declare (not safe)) - (cons 't __tmp110992))) - (__tmp110979 - (let ((__tmp110988 - (let ((__tmp110989 |[1]#_g110990_|)) + (cons 't __tmp110922))) + (__tmp110909 + (let ((__tmp110918 + (let ((__tmp110919 |[1]#_g110920_|)) (declare (not safe)) - (cons 'ns __tmp110989))) - (__tmp110980 - (let ((__tmp110985 - (let ((__tmp110986 |[1]#_g110987_|)) + (cons 'ns __tmp110919))) + (__tmp110910 + (let ((__tmp110915 + (let ((__tmp110916 |[1]#_g110917_|)) (declare (not safe)) - (cons 'super __tmp110986))) - (__tmp110981 - (let ((__tmp110982 - (let ((__tmp110983 |[1]#_g110984_|)) + (cons 'super __tmp110916))) + (__tmp110911 + (let ((__tmp110912 + (let ((__tmp110913 |[1]#_g110914_|)) (declare (not safe)) - (cons 'table __tmp110983)))) + (cons 'table __tmp110913)))) (declare (not safe)) - (cons __tmp110982 '())))) + (cons __tmp110912 '())))) (declare (not safe)) - (cons __tmp110985 __tmp110981)))) + (cons __tmp110915 __tmp110911)))) (declare (not safe)) - (cons __tmp110988 __tmp110980)))) + (cons __tmp110918 __tmp110910)))) (declare (not safe)) - (cons __tmp110991 __tmp110979)))) + (cons __tmp110921 __tmp110909)))) (declare (not safe)) (##unchecked-structure-set! - __obj110541 - __tmp110978 + __obj110471 + __tmp110908 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp110994 - (let ((__tmp111007 - (let ((__tmp111008 |[1]#_g111009_|)) + (let ((__tmp110924 + (let ((__tmp110937 + (let ((__tmp110938 |[1]#_g110939_|)) (declare (not safe)) - (cons 't __tmp111008))) - (__tmp110995 - (let ((__tmp111004 - (let ((__tmp111005 |[1]#_g111006_|)) + (cons 't __tmp110938))) + (__tmp110925 + (let ((__tmp110934 + (let ((__tmp110935 |[1]#_g110936_|)) (declare (not safe)) - (cons 'ns __tmp111005))) - (__tmp110996 - (let ((__tmp111001 - (let ((__tmp111002 |[1]#_g111003_|)) + (cons 'ns __tmp110935))) + (__tmp110926 + (let ((__tmp110931 + (let ((__tmp110932 |[1]#_g110933_|)) (declare (not safe)) - (cons 'super __tmp111002))) - (__tmp110997 - (let ((__tmp110998 - (let ((__tmp110999 |[1]#_g111000_|)) + (cons 'super __tmp110932))) + (__tmp110927 + (let ((__tmp110928 + (let ((__tmp110929 |[1]#_g110930_|)) (declare (not safe)) - (cons 'table __tmp110999)))) + (cons 'table __tmp110929)))) (declare (not safe)) - (cons __tmp110998 '())))) + (cons __tmp110928 '())))) (declare (not safe)) - (cons __tmp111001 __tmp110997)))) + (cons __tmp110931 __tmp110927)))) (declare (not safe)) - (cons __tmp111004 __tmp110996)))) + (cons __tmp110934 __tmp110926)))) (declare (not safe)) - (cons __tmp111007 __tmp110995)))) + (cons __tmp110937 __tmp110925)))) (declare (not safe)) (##unchecked-structure-set! - __obj110541 - __tmp110994 + __obj110471 + __tmp110924 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110541)) + __obj110471)) (define |[:0:]#__runtime| - (let ((__obj110542 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110472 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110542 + __obj110472 'gerbil/runtime/eval#__runtime::t '1 gerbil/core$$#class-type-info::t @@ -1310,7 +1310,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110542 + __obj110472 '__runtime '2 gerbil/core$$#class-type-info::t @@ -1318,7 +1318,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110542 + __obj110472 '(id) '4 gerbil/core$$#class-type-info::t @@ -1326,7 +1326,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110542 + __obj110472 '() '3 gerbil/core$$#class-type-info::t @@ -1334,7 +1334,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110542 + __obj110472 '#t '5 gerbil/core$$#class-type-info::t @@ -1342,7 +1342,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110542 + __obj110472 '#f '6 gerbil/core$$#class-type-info::t @@ -1350,99 +1350,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110542 + __obj110472 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111010 |[1]#_g111011_|)) + (let ((__tmp110940 |[1]#_g110941_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110542 - __tmp111010 + __obj110472 + __tmp110940 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111012 |[1]#_g111013_|)) + (let ((__tmp110942 |[1]#_g110943_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110542 - __tmp111012 + __obj110472 + __tmp110942 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111014 |[1]#_g111015_|)) + (let ((__tmp110944 |[1]#_g110945_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110542 - __tmp111014 + __obj110472 + __tmp110944 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111016 - (let ((__tmp111017 - (let ((__tmp111018 |[1]#_g111019_|)) + (let ((__tmp110946 + (let ((__tmp110947 + (let ((__tmp110948 |[1]#_g110949_|)) (declare (not safe)) - (cons 'id __tmp111018)))) + (cons 'id __tmp110948)))) (declare (not safe)) - (cons __tmp111017 '())))) + (cons __tmp110947 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110542 - __tmp111016 + __obj110472 + __tmp110946 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111020 - (let ((__tmp111021 - (let ((__tmp111022 |[1]#_g111023_|)) + (let ((__tmp110950 + (let ((__tmp110951 + (let ((__tmp110952 |[1]#_g110953_|)) (declare (not safe)) - (cons 'id __tmp111022)))) + (cons 'id __tmp110952)))) (declare (not safe)) - (cons __tmp111021 '())))) + (cons __tmp110951 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110542 - __tmp111020 + __obj110472 + __tmp110950 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111024 - (let ((__tmp111025 - (let ((__tmp111026 |[1]#_g111027_|)) + (let ((__tmp110954 + (let ((__tmp110955 + (let ((__tmp110956 |[1]#_g110957_|)) (declare (not safe)) - (cons 'id __tmp111026)))) + (cons 'id __tmp110956)))) (declare (not safe)) - (cons __tmp111025 '())))) + (cons __tmp110955 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110542 - __tmp111024 + __obj110472 + __tmp110954 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111028 - (let ((__tmp111029 - (let ((__tmp111030 |[1]#_g111031_|)) + (let ((__tmp110958 + (let ((__tmp110959 + (let ((__tmp110960 |[1]#_g110961_|)) (declare (not safe)) - (cons 'id __tmp111030)))) + (cons 'id __tmp110960)))) (declare (not safe)) - (cons __tmp111029 '())))) + (cons __tmp110959 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110542 - __tmp111028 + __obj110472 + __tmp110958 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110542)) + __obj110472)) (define |[:0:]#__syntax| - (let ((__obj110543 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110473 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110543 + __obj110473 'gerbil/runtime/eval#__syntax::t '1 gerbil/core$$#class-type-info::t @@ -1450,7 +1450,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110543 + __obj110473 '__syntax '2 gerbil/core$$#class-type-info::t @@ -1458,7 +1458,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110543 + __obj110473 '(e id) '4 gerbil/core$$#class-type-info::t @@ -1466,7 +1466,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110543 + __obj110473 '() '3 gerbil/core$$#class-type-info::t @@ -1474,7 +1474,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110543 + __obj110473 '#t '5 gerbil/core$$#class-type-info::t @@ -1482,7 +1482,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110543 + __obj110473 '#f '6 gerbil/core$$#class-type-info::t @@ -1490,127 +1490,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110543 + __obj110473 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111032 |[1]#_g111033_|)) + (let ((__tmp110962 |[1]#_g110963_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110543 - __tmp111032 + __obj110473 + __tmp110962 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111034 |[1]#_g111035_|)) + (let ((__tmp110964 |[1]#_g110965_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110543 - __tmp111034 + __obj110473 + __tmp110964 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111036 |[1]#_g111037_|)) + (let ((__tmp110966 |[1]#_g110967_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110543 - __tmp111036 + __obj110473 + __tmp110966 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111038 - (let ((__tmp111043 - (let ((__tmp111044 |[1]#_g111045_|)) + (let ((__tmp110968 + (let ((__tmp110973 + (let ((__tmp110974 |[1]#_g110975_|)) (declare (not safe)) - (cons 'e __tmp111044))) - (__tmp111039 - (let ((__tmp111040 - (let ((__tmp111041 |[1]#_g111042_|)) + (cons 'e __tmp110974))) + (__tmp110969 + (let ((__tmp110970 + (let ((__tmp110971 |[1]#_g110972_|)) (declare (not safe)) - (cons 'id __tmp111041)))) + (cons 'id __tmp110971)))) (declare (not safe)) - (cons __tmp111040 '())))) + (cons __tmp110970 '())))) (declare (not safe)) - (cons __tmp111043 __tmp111039)))) + (cons __tmp110973 __tmp110969)))) (declare (not safe)) (##unchecked-structure-set! - __obj110543 - __tmp111038 + __obj110473 + __tmp110968 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111046 - (let ((__tmp111051 - (let ((__tmp111052 |[1]#_g111053_|)) + (let ((__tmp110976 + (let ((__tmp110981 + (let ((__tmp110982 |[1]#_g110983_|)) (declare (not safe)) - (cons 'e __tmp111052))) - (__tmp111047 - (let ((__tmp111048 - (let ((__tmp111049 |[1]#_g111050_|)) + (cons 'e __tmp110982))) + (__tmp110977 + (let ((__tmp110978 + (let ((__tmp110979 |[1]#_g110980_|)) (declare (not safe)) - (cons 'id __tmp111049)))) + (cons 'id __tmp110979)))) (declare (not safe)) - (cons __tmp111048 '())))) + (cons __tmp110978 '())))) (declare (not safe)) - (cons __tmp111051 __tmp111047)))) + (cons __tmp110981 __tmp110977)))) (declare (not safe)) (##unchecked-structure-set! - __obj110543 - __tmp111046 + __obj110473 + __tmp110976 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111054 - (let ((__tmp111059 - (let ((__tmp111060 |[1]#_g111061_|)) + (let ((__tmp110984 + (let ((__tmp110989 + (let ((__tmp110990 |[1]#_g110991_|)) (declare (not safe)) - (cons 'e __tmp111060))) - (__tmp111055 - (let ((__tmp111056 - (let ((__tmp111057 |[1]#_g111058_|)) + (cons 'e __tmp110990))) + (__tmp110985 + (let ((__tmp110986 + (let ((__tmp110987 |[1]#_g110988_|)) (declare (not safe)) - (cons 'id __tmp111057)))) + (cons 'id __tmp110987)))) (declare (not safe)) - (cons __tmp111056 '())))) + (cons __tmp110986 '())))) (declare (not safe)) - (cons __tmp111059 __tmp111055)))) + (cons __tmp110989 __tmp110985)))) (declare (not safe)) (##unchecked-structure-set! - __obj110543 - __tmp111054 + __obj110473 + __tmp110984 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111062 - (let ((__tmp111067 - (let ((__tmp111068 |[1]#_g111069_|)) + (let ((__tmp110992 + (let ((__tmp110997 + (let ((__tmp110998 |[1]#_g110999_|)) (declare (not safe)) - (cons 'e __tmp111068))) - (__tmp111063 - (let ((__tmp111064 - (let ((__tmp111065 |[1]#_g111066_|)) + (cons 'e __tmp110998))) + (__tmp110993 + (let ((__tmp110994 + (let ((__tmp110995 |[1]#_g110996_|)) (declare (not safe)) - (cons 'id __tmp111065)))) + (cons 'id __tmp110995)))) (declare (not safe)) - (cons __tmp111064 '())))) + (cons __tmp110994 '())))) (declare (not safe)) - (cons __tmp111067 __tmp111063)))) + (cons __tmp110997 __tmp110993)))) (declare (not safe)) (##unchecked-structure-set! - __obj110543 - __tmp111062 + __obj110473 + __tmp110992 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110543)) + __obj110473)) (define |[:0:]#__macro| - (let ((__obj110544 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110474 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110544 + __obj110474 'gerbil/runtime/eval#__macro::t '1 gerbil/core$$#class-type-info::t @@ -1618,7 +1618,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110544 + __obj110474 '__macro '2 gerbil/core$$#class-type-info::t @@ -1626,26 +1626,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110544 + __obj110474 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111070 - (let ((__tmp111071 |[1]#_g111072_|)) + (let ((__tmp111000 + (let ((__tmp111001 |[1]#_g111002_|)) (declare (not safe)) - (cons __tmp111071 '())))) + (cons __tmp111001 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110544 - __tmp111070 + __obj110474 + __tmp111000 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110544 + __obj110474 '#t '5 gerbil/core$$#class-type-info::t @@ -1653,7 +1653,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110544 + __obj110474 '#f '6 gerbil/core$$#class-type-info::t @@ -1661,127 +1661,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110544 + __obj110474 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111073 |[1]#_g111074_|)) + (let ((__tmp111003 |[1]#_g111004_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110544 - __tmp111073 + __obj110474 + __tmp111003 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111075 |[1]#_g111076_|)) + (let ((__tmp111005 |[1]#_g111006_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110544 - __tmp111075 + __obj110474 + __tmp111005 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111077 |[1]#_g111078_|)) + (let ((__tmp111007 |[1]#_g111008_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110544 - __tmp111077 + __obj110474 + __tmp111007 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111079 - (let ((__tmp111084 - (let ((__tmp111085 |[1]#_g111086_|)) + (let ((__tmp111009 + (let ((__tmp111014 + (let ((__tmp111015 |[1]#_g111016_|)) (declare (not safe)) - (cons 'e __tmp111085))) - (__tmp111080 - (let ((__tmp111081 - (let ((__tmp111082 |[1]#_g111083_|)) + (cons 'e __tmp111015))) + (__tmp111010 + (let ((__tmp111011 + (let ((__tmp111012 |[1]#_g111013_|)) (declare (not safe)) - (cons 'id __tmp111082)))) + (cons 'id __tmp111012)))) (declare (not safe)) - (cons __tmp111081 '())))) + (cons __tmp111011 '())))) (declare (not safe)) - (cons __tmp111084 __tmp111080)))) + (cons __tmp111014 __tmp111010)))) (declare (not safe)) (##unchecked-structure-set! - __obj110544 - __tmp111079 + __obj110474 + __tmp111009 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111087 - (let ((__tmp111092 - (let ((__tmp111093 |[1]#_g111094_|)) + (let ((__tmp111017 + (let ((__tmp111022 + (let ((__tmp111023 |[1]#_g111024_|)) (declare (not safe)) - (cons 'e __tmp111093))) - (__tmp111088 - (let ((__tmp111089 - (let ((__tmp111090 |[1]#_g111091_|)) + (cons 'e __tmp111023))) + (__tmp111018 + (let ((__tmp111019 + (let ((__tmp111020 |[1]#_g111021_|)) (declare (not safe)) - (cons 'id __tmp111090)))) + (cons 'id __tmp111020)))) (declare (not safe)) - (cons __tmp111089 '())))) + (cons __tmp111019 '())))) (declare (not safe)) - (cons __tmp111092 __tmp111088)))) + (cons __tmp111022 __tmp111018)))) (declare (not safe)) (##unchecked-structure-set! - __obj110544 - __tmp111087 + __obj110474 + __tmp111017 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111095 - (let ((__tmp111100 - (let ((__tmp111101 |[1]#_g111102_|)) + (let ((__tmp111025 + (let ((__tmp111030 + (let ((__tmp111031 |[1]#_g111032_|)) (declare (not safe)) - (cons 'e __tmp111101))) - (__tmp111096 - (let ((__tmp111097 - (let ((__tmp111098 |[1]#_g111099_|)) + (cons 'e __tmp111031))) + (__tmp111026 + (let ((__tmp111027 + (let ((__tmp111028 |[1]#_g111029_|)) (declare (not safe)) - (cons 'id __tmp111098)))) + (cons 'id __tmp111028)))) (declare (not safe)) - (cons __tmp111097 '())))) + (cons __tmp111027 '())))) (declare (not safe)) - (cons __tmp111100 __tmp111096)))) + (cons __tmp111030 __tmp111026)))) (declare (not safe)) (##unchecked-structure-set! - __obj110544 - __tmp111095 + __obj110474 + __tmp111025 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111103 - (let ((__tmp111108 - (let ((__tmp111109 |[1]#_g111110_|)) + (let ((__tmp111033 + (let ((__tmp111038 + (let ((__tmp111039 |[1]#_g111040_|)) (declare (not safe)) - (cons 'e __tmp111109))) - (__tmp111104 - (let ((__tmp111105 - (let ((__tmp111106 |[1]#_g111107_|)) + (cons 'e __tmp111039))) + (__tmp111034 + (let ((__tmp111035 + (let ((__tmp111036 |[1]#_g111037_|)) (declare (not safe)) - (cons 'id __tmp111106)))) + (cons 'id __tmp111036)))) (declare (not safe)) - (cons __tmp111105 '())))) + (cons __tmp111035 '())))) (declare (not safe)) - (cons __tmp111108 __tmp111104)))) + (cons __tmp111038 __tmp111034)))) (declare (not safe)) (##unchecked-structure-set! - __obj110544 - __tmp111103 + __obj110474 + __tmp111033 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110544)) + __obj110474)) (define |[:0:]#__special-form| - (let ((__obj110545 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110475 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110545 + __obj110475 'gerbil/runtime/eval#__special-form::t '1 gerbil/core$$#class-type-info::t @@ -1789,7 +1789,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110545 + __obj110475 '__special-form '2 gerbil/core$$#class-type-info::t @@ -1797,26 +1797,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110545 + __obj110475 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111111 - (let ((__tmp111112 |[1]#_g111113_|)) + (let ((__tmp111041 + (let ((__tmp111042 |[1]#_g111043_|)) (declare (not safe)) - (cons __tmp111112 '())))) + (cons __tmp111042 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110545 - __tmp111111 + __obj110475 + __tmp111041 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110545 + __obj110475 '#t '5 gerbil/core$$#class-type-info::t @@ -1824,7 +1824,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110545 + __obj110475 '#f '6 gerbil/core$$#class-type-info::t @@ -1832,127 +1832,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110545 + __obj110475 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111114 |[1]#_g111115_|)) + (let ((__tmp111044 |[1]#_g111045_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110545 - __tmp111114 + __obj110475 + __tmp111044 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111116 |[1]#_g111117_|)) + (let ((__tmp111046 |[1]#_g111047_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110545 - __tmp111116 + __obj110475 + __tmp111046 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111118 |[1]#_g111119_|)) + (let ((__tmp111048 |[1]#_g111049_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110545 - __tmp111118 + __obj110475 + __tmp111048 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111120 - (let ((__tmp111125 - (let ((__tmp111126 |[1]#_g111127_|)) + (let ((__tmp111050 + (let ((__tmp111055 + (let ((__tmp111056 |[1]#_g111057_|)) (declare (not safe)) - (cons 'e __tmp111126))) - (__tmp111121 - (let ((__tmp111122 - (let ((__tmp111123 |[1]#_g111124_|)) + (cons 'e __tmp111056))) + (__tmp111051 + (let ((__tmp111052 + (let ((__tmp111053 |[1]#_g111054_|)) (declare (not safe)) - (cons 'id __tmp111123)))) + (cons 'id __tmp111053)))) (declare (not safe)) - (cons __tmp111122 '())))) + (cons __tmp111052 '())))) (declare (not safe)) - (cons __tmp111125 __tmp111121)))) + (cons __tmp111055 __tmp111051)))) (declare (not safe)) (##unchecked-structure-set! - __obj110545 - __tmp111120 + __obj110475 + __tmp111050 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111128 - (let ((__tmp111133 - (let ((__tmp111134 |[1]#_g111135_|)) + (let ((__tmp111058 + (let ((__tmp111063 + (let ((__tmp111064 |[1]#_g111065_|)) (declare (not safe)) - (cons 'e __tmp111134))) - (__tmp111129 - (let ((__tmp111130 - (let ((__tmp111131 |[1]#_g111132_|)) + (cons 'e __tmp111064))) + (__tmp111059 + (let ((__tmp111060 + (let ((__tmp111061 |[1]#_g111062_|)) (declare (not safe)) - (cons 'id __tmp111131)))) + (cons 'id __tmp111061)))) (declare (not safe)) - (cons __tmp111130 '())))) + (cons __tmp111060 '())))) (declare (not safe)) - (cons __tmp111133 __tmp111129)))) + (cons __tmp111063 __tmp111059)))) (declare (not safe)) (##unchecked-structure-set! - __obj110545 - __tmp111128 + __obj110475 + __tmp111058 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111136 - (let ((__tmp111141 - (let ((__tmp111142 |[1]#_g111143_|)) + (let ((__tmp111066 + (let ((__tmp111071 + (let ((__tmp111072 |[1]#_g111073_|)) (declare (not safe)) - (cons 'e __tmp111142))) - (__tmp111137 - (let ((__tmp111138 - (let ((__tmp111139 |[1]#_g111140_|)) + (cons 'e __tmp111072))) + (__tmp111067 + (let ((__tmp111068 + (let ((__tmp111069 |[1]#_g111070_|)) (declare (not safe)) - (cons 'id __tmp111139)))) + (cons 'id __tmp111069)))) (declare (not safe)) - (cons __tmp111138 '())))) + (cons __tmp111068 '())))) (declare (not safe)) - (cons __tmp111141 __tmp111137)))) + (cons __tmp111071 __tmp111067)))) (declare (not safe)) (##unchecked-structure-set! - __obj110545 - __tmp111136 + __obj110475 + __tmp111066 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111144 - (let ((__tmp111149 - (let ((__tmp111150 |[1]#_g111151_|)) + (let ((__tmp111074 + (let ((__tmp111079 + (let ((__tmp111080 |[1]#_g111081_|)) (declare (not safe)) - (cons 'e __tmp111150))) - (__tmp111145 - (let ((__tmp111146 - (let ((__tmp111147 |[1]#_g111148_|)) + (cons 'e __tmp111080))) + (__tmp111075 + (let ((__tmp111076 + (let ((__tmp111077 |[1]#_g111078_|)) (declare (not safe)) - (cons 'id __tmp111147)))) + (cons 'id __tmp111077)))) (declare (not safe)) - (cons __tmp111146 '())))) + (cons __tmp111076 '())))) (declare (not safe)) - (cons __tmp111149 __tmp111145)))) + (cons __tmp111079 __tmp111075)))) (declare (not safe)) (##unchecked-structure-set! - __obj110545 - __tmp111144 + __obj110475 + __tmp111074 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110545)) + __obj110475)) (define |[:0:]#__core-form| - (let ((__obj110546 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110476 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110546 + __obj110476 'gerbil/runtime/eval#__core-form::t '1 gerbil/core$$#class-type-info::t @@ -1960,7 +1960,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110546 + __obj110476 '__core-form '2 gerbil/core$$#class-type-info::t @@ -1968,26 +1968,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110546 + __obj110476 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111152 - (let ((__tmp111153 |[1]#_g111072_|)) + (let ((__tmp111082 + (let ((__tmp111083 |[1]#_g111002_|)) (declare (not safe)) - (cons __tmp111153 '())))) + (cons __tmp111083 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110546 - __tmp111152 + __obj110476 + __tmp111082 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110546 + __obj110476 '#t '5 gerbil/core$$#class-type-info::t @@ -1995,7 +1995,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110546 + __obj110476 '#f '6 gerbil/core$$#class-type-info::t @@ -2003,127 +2003,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110546 + __obj110476 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111154 |[1]#_g111155_|)) + (let ((__tmp111084 |[1]#_g111085_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110546 - __tmp111154 + __obj110476 + __tmp111084 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111156 |[1]#_g111157_|)) + (let ((__tmp111086 |[1]#_g111087_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110546 - __tmp111156 + __obj110476 + __tmp111086 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111158 |[1]#_g111159_|)) + (let ((__tmp111088 |[1]#_g111089_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110546 - __tmp111158 + __obj110476 + __tmp111088 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111160 - (let ((__tmp111165 - (let ((__tmp111166 |[1]#_g111167_|)) + (let ((__tmp111090 + (let ((__tmp111095 + (let ((__tmp111096 |[1]#_g111097_|)) (declare (not safe)) - (cons 'e __tmp111166))) - (__tmp111161 - (let ((__tmp111162 - (let ((__tmp111163 |[1]#_g111164_|)) + (cons 'e __tmp111096))) + (__tmp111091 + (let ((__tmp111092 + (let ((__tmp111093 |[1]#_g111094_|)) (declare (not safe)) - (cons 'id __tmp111163)))) + (cons 'id __tmp111093)))) (declare (not safe)) - (cons __tmp111162 '())))) + (cons __tmp111092 '())))) (declare (not safe)) - (cons __tmp111165 __tmp111161)))) + (cons __tmp111095 __tmp111091)))) (declare (not safe)) (##unchecked-structure-set! - __obj110546 - __tmp111160 + __obj110476 + __tmp111090 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111168 - (let ((__tmp111173 - (let ((__tmp111174 |[1]#_g111175_|)) + (let ((__tmp111098 + (let ((__tmp111103 + (let ((__tmp111104 |[1]#_g111105_|)) (declare (not safe)) - (cons 'e __tmp111174))) - (__tmp111169 - (let ((__tmp111170 - (let ((__tmp111171 |[1]#_g111172_|)) + (cons 'e __tmp111104))) + (__tmp111099 + (let ((__tmp111100 + (let ((__tmp111101 |[1]#_g111102_|)) (declare (not safe)) - (cons 'id __tmp111171)))) + (cons 'id __tmp111101)))) (declare (not safe)) - (cons __tmp111170 '())))) + (cons __tmp111100 '())))) (declare (not safe)) - (cons __tmp111173 __tmp111169)))) + (cons __tmp111103 __tmp111099)))) (declare (not safe)) (##unchecked-structure-set! - __obj110546 - __tmp111168 + __obj110476 + __tmp111098 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111176 - (let ((__tmp111181 - (let ((__tmp111182 |[1]#_g111183_|)) + (let ((__tmp111106 + (let ((__tmp111111 + (let ((__tmp111112 |[1]#_g111113_|)) (declare (not safe)) - (cons 'e __tmp111182))) - (__tmp111177 - (let ((__tmp111178 - (let ((__tmp111179 |[1]#_g111180_|)) + (cons 'e __tmp111112))) + (__tmp111107 + (let ((__tmp111108 + (let ((__tmp111109 |[1]#_g111110_|)) (declare (not safe)) - (cons 'id __tmp111179)))) + (cons 'id __tmp111109)))) (declare (not safe)) - (cons __tmp111178 '())))) + (cons __tmp111108 '())))) (declare (not safe)) - (cons __tmp111181 __tmp111177)))) + (cons __tmp111111 __tmp111107)))) (declare (not safe)) (##unchecked-structure-set! - __obj110546 - __tmp111176 + __obj110476 + __tmp111106 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111184 - (let ((__tmp111189 - (let ((__tmp111190 |[1]#_g111191_|)) + (let ((__tmp111114 + (let ((__tmp111119 + (let ((__tmp111120 |[1]#_g111121_|)) (declare (not safe)) - (cons 'e __tmp111190))) - (__tmp111185 - (let ((__tmp111186 - (let ((__tmp111187 |[1]#_g111188_|)) + (cons 'e __tmp111120))) + (__tmp111115 + (let ((__tmp111116 + (let ((__tmp111117 |[1]#_g111118_|)) (declare (not safe)) - (cons 'id __tmp111187)))) + (cons 'id __tmp111117)))) (declare (not safe)) - (cons __tmp111186 '())))) + (cons __tmp111116 '())))) (declare (not safe)) - (cons __tmp111189 __tmp111185)))) + (cons __tmp111119 __tmp111115)))) (declare (not safe)) (##unchecked-structure-set! - __obj110546 - __tmp111184 + __obj110476 + __tmp111114 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110546)) + __obj110476)) (define |[:0:]#__core-expression| - (let ((__obj110547 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110477 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110547 + __obj110477 'gerbil/runtime/eval#__core-expression::t '1 gerbil/core$$#class-type-info::t @@ -2131,7 +2131,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110547 + __obj110477 '__core-expression '2 gerbil/core$$#class-type-info::t @@ -2139,26 +2139,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110547 + __obj110477 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111192 - (let ((__tmp111193 |[1]#_g111194_|)) + (let ((__tmp111122 + (let ((__tmp111123 |[1]#_g111124_|)) (declare (not safe)) - (cons __tmp111193 '())))) + (cons __tmp111123 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110547 - __tmp111192 + __obj110477 + __tmp111122 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110547 + __obj110477 '#t '5 gerbil/core$$#class-type-info::t @@ -2166,7 +2166,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110547 + __obj110477 '#f '6 gerbil/core$$#class-type-info::t @@ -2174,127 +2174,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110547 + __obj110477 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111195 |[1]#_g111196_|)) + (let ((__tmp111125 |[1]#_g111126_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110547 - __tmp111195 + __obj110477 + __tmp111125 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111197 |[1]#_g111198_|)) + (let ((__tmp111127 |[1]#_g111128_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110547 - __tmp111197 + __obj110477 + __tmp111127 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111199 |[1]#_g111200_|)) + (let ((__tmp111129 |[1]#_g111130_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110547 - __tmp111199 + __obj110477 + __tmp111129 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111201 - (let ((__tmp111206 - (let ((__tmp111207 |[1]#_g111208_|)) + (let ((__tmp111131 + (let ((__tmp111136 + (let ((__tmp111137 |[1]#_g111138_|)) (declare (not safe)) - (cons 'e __tmp111207))) - (__tmp111202 - (let ((__tmp111203 - (let ((__tmp111204 |[1]#_g111205_|)) + (cons 'e __tmp111137))) + (__tmp111132 + (let ((__tmp111133 + (let ((__tmp111134 |[1]#_g111135_|)) (declare (not safe)) - (cons 'id __tmp111204)))) + (cons 'id __tmp111134)))) (declare (not safe)) - (cons __tmp111203 '())))) + (cons __tmp111133 '())))) (declare (not safe)) - (cons __tmp111206 __tmp111202)))) + (cons __tmp111136 __tmp111132)))) (declare (not safe)) (##unchecked-structure-set! - __obj110547 - __tmp111201 + __obj110477 + __tmp111131 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111209 - (let ((__tmp111214 - (let ((__tmp111215 |[1]#_g111216_|)) + (let ((__tmp111139 + (let ((__tmp111144 + (let ((__tmp111145 |[1]#_g111146_|)) (declare (not safe)) - (cons 'e __tmp111215))) - (__tmp111210 - (let ((__tmp111211 - (let ((__tmp111212 |[1]#_g111213_|)) + (cons 'e __tmp111145))) + (__tmp111140 + (let ((__tmp111141 + (let ((__tmp111142 |[1]#_g111143_|)) (declare (not safe)) - (cons 'id __tmp111212)))) + (cons 'id __tmp111142)))) (declare (not safe)) - (cons __tmp111211 '())))) + (cons __tmp111141 '())))) (declare (not safe)) - (cons __tmp111214 __tmp111210)))) + (cons __tmp111144 __tmp111140)))) (declare (not safe)) (##unchecked-structure-set! - __obj110547 - __tmp111209 + __obj110477 + __tmp111139 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111217 - (let ((__tmp111222 - (let ((__tmp111223 |[1]#_g111224_|)) + (let ((__tmp111147 + (let ((__tmp111152 + (let ((__tmp111153 |[1]#_g111154_|)) (declare (not safe)) - (cons 'e __tmp111223))) - (__tmp111218 - (let ((__tmp111219 - (let ((__tmp111220 |[1]#_g111221_|)) + (cons 'e __tmp111153))) + (__tmp111148 + (let ((__tmp111149 + (let ((__tmp111150 |[1]#_g111151_|)) (declare (not safe)) - (cons 'id __tmp111220)))) + (cons 'id __tmp111150)))) (declare (not safe)) - (cons __tmp111219 '())))) + (cons __tmp111149 '())))) (declare (not safe)) - (cons __tmp111222 __tmp111218)))) + (cons __tmp111152 __tmp111148)))) (declare (not safe)) (##unchecked-structure-set! - __obj110547 - __tmp111217 + __obj110477 + __tmp111147 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111225 - (let ((__tmp111230 - (let ((__tmp111231 |[1]#_g111232_|)) + (let ((__tmp111155 + (let ((__tmp111160 + (let ((__tmp111161 |[1]#_g111162_|)) (declare (not safe)) - (cons 'e __tmp111231))) - (__tmp111226 - (let ((__tmp111227 - (let ((__tmp111228 |[1]#_g111229_|)) + (cons 'e __tmp111161))) + (__tmp111156 + (let ((__tmp111157 + (let ((__tmp111158 |[1]#_g111159_|)) (declare (not safe)) - (cons 'id __tmp111228)))) + (cons 'id __tmp111158)))) (declare (not safe)) - (cons __tmp111227 '())))) + (cons __tmp111157 '())))) (declare (not safe)) - (cons __tmp111230 __tmp111226)))) + (cons __tmp111160 __tmp111156)))) (declare (not safe)) (##unchecked-structure-set! - __obj110547 - __tmp111225 + __obj110477 + __tmp111155 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110547)) + __obj110477)) (define |[:0:]#__core-special-form| - (let ((__obj110548 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110478 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110548 + __obj110478 'gerbil/runtime/eval#__core-special-form::t '1 gerbil/core$$#class-type-info::t @@ -2302,7 +2302,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110548 + __obj110478 '__core-special-form '2 gerbil/core$$#class-type-info::t @@ -2310,26 +2310,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110548 + __obj110478 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111233 - (let ((__tmp111234 |[1]#_g111194_|)) + (let ((__tmp111163 + (let ((__tmp111164 |[1]#_g111124_|)) (declare (not safe)) - (cons __tmp111234 '())))) + (cons __tmp111164 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110548 - __tmp111233 + __obj110478 + __tmp111163 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110548 + __obj110478 '#t '5 gerbil/core$$#class-type-info::t @@ -2337,7 +2337,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110548 + __obj110478 '#f '6 gerbil/core$$#class-type-info::t @@ -2345,127 +2345,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110548 + __obj110478 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111235 |[1]#_g111236_|)) + (let ((__tmp111165 |[1]#_g111166_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110548 - __tmp111235 + __obj110478 + __tmp111165 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111237 |[1]#_g111238_|)) + (let ((__tmp111167 |[1]#_g111168_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110548 - __tmp111237 + __obj110478 + __tmp111167 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111239 |[1]#_g111240_|)) + (let ((__tmp111169 |[1]#_g111170_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110548 - __tmp111239 + __obj110478 + __tmp111169 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111241 - (let ((__tmp111246 - (let ((__tmp111247 |[1]#_g111248_|)) + (let ((__tmp111171 + (let ((__tmp111176 + (let ((__tmp111177 |[1]#_g111178_|)) (declare (not safe)) - (cons 'e __tmp111247))) - (__tmp111242 - (let ((__tmp111243 - (let ((__tmp111244 |[1]#_g111245_|)) + (cons 'e __tmp111177))) + (__tmp111172 + (let ((__tmp111173 + (let ((__tmp111174 |[1]#_g111175_|)) (declare (not safe)) - (cons 'id __tmp111244)))) + (cons 'id __tmp111174)))) (declare (not safe)) - (cons __tmp111243 '())))) + (cons __tmp111173 '())))) (declare (not safe)) - (cons __tmp111246 __tmp111242)))) + (cons __tmp111176 __tmp111172)))) (declare (not safe)) (##unchecked-structure-set! - __obj110548 - __tmp111241 + __obj110478 + __tmp111171 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111249 - (let ((__tmp111254 - (let ((__tmp111255 |[1]#_g111256_|)) + (let ((__tmp111179 + (let ((__tmp111184 + (let ((__tmp111185 |[1]#_g111186_|)) (declare (not safe)) - (cons 'e __tmp111255))) - (__tmp111250 - (let ((__tmp111251 - (let ((__tmp111252 |[1]#_g111253_|)) + (cons 'e __tmp111185))) + (__tmp111180 + (let ((__tmp111181 + (let ((__tmp111182 |[1]#_g111183_|)) (declare (not safe)) - (cons 'id __tmp111252)))) + (cons 'id __tmp111182)))) (declare (not safe)) - (cons __tmp111251 '())))) + (cons __tmp111181 '())))) (declare (not safe)) - (cons __tmp111254 __tmp111250)))) + (cons __tmp111184 __tmp111180)))) (declare (not safe)) (##unchecked-structure-set! - __obj110548 - __tmp111249 + __obj110478 + __tmp111179 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111257 - (let ((__tmp111262 - (let ((__tmp111263 |[1]#_g111264_|)) + (let ((__tmp111187 + (let ((__tmp111192 + (let ((__tmp111193 |[1]#_g111194_|)) (declare (not safe)) - (cons 'e __tmp111263))) - (__tmp111258 - (let ((__tmp111259 - (let ((__tmp111260 |[1]#_g111261_|)) + (cons 'e __tmp111193))) + (__tmp111188 + (let ((__tmp111189 + (let ((__tmp111190 |[1]#_g111191_|)) (declare (not safe)) - (cons 'id __tmp111260)))) + (cons 'id __tmp111190)))) (declare (not safe)) - (cons __tmp111259 '())))) + (cons __tmp111189 '())))) (declare (not safe)) - (cons __tmp111262 __tmp111258)))) + (cons __tmp111192 __tmp111188)))) (declare (not safe)) (##unchecked-structure-set! - __obj110548 - __tmp111257 + __obj110478 + __tmp111187 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111265 - (let ((__tmp111270 - (let ((__tmp111271 |[1]#_g111272_|)) + (let ((__tmp111195 + (let ((__tmp111200 + (let ((__tmp111201 |[1]#_g111202_|)) (declare (not safe)) - (cons 'e __tmp111271))) - (__tmp111266 - (let ((__tmp111267 - (let ((__tmp111268 |[1]#_g111269_|)) + (cons 'e __tmp111201))) + (__tmp111196 + (let ((__tmp111197 + (let ((__tmp111198 |[1]#_g111199_|)) (declare (not safe)) - (cons 'id __tmp111268)))) + (cons 'id __tmp111198)))) (declare (not safe)) - (cons __tmp111267 '())))) + (cons __tmp111197 '())))) (declare (not safe)) - (cons __tmp111270 __tmp111266)))) + (cons __tmp111200 __tmp111196)))) (declare (not safe)) (##unchecked-structure-set! - __obj110548 - __tmp111265 + __obj110478 + __tmp111195 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110548)) + __obj110478)) (define |[:0:]#__struct-info| - (let ((__obj110549 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110479 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110549 + __obj110479 'gerbil/runtime/eval#__struct-info::t '1 gerbil/core$$#class-type-info::t @@ -2473,7 +2473,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110549 + __obj110479 '__struct-info '2 gerbil/core$$#class-type-info::t @@ -2481,26 +2481,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110549 + __obj110479 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111273 - (let ((__tmp111274 |[1]#_g111072_|)) + (let ((__tmp111203 + (let ((__tmp111204 |[1]#_g111002_|)) (declare (not safe)) - (cons __tmp111274 '())))) + (cons __tmp111204 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110549 - __tmp111273 + __obj110479 + __tmp111203 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110549 + __obj110479 '#t '5 gerbil/core$$#class-type-info::t @@ -2508,7 +2508,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110549 + __obj110479 '#f '6 gerbil/core$$#class-type-info::t @@ -2516,127 +2516,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110549 + __obj110479 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111275 |[1]#_g111276_|)) + (let ((__tmp111205 |[1]#_g111206_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110549 - __tmp111275 + __obj110479 + __tmp111205 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111277 |[1]#_g111278_|)) + (let ((__tmp111207 |[1]#_g111208_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110549 - __tmp111277 + __obj110479 + __tmp111207 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111279 |[1]#_g111280_|)) + (let ((__tmp111209 |[1]#_g111210_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110549 - __tmp111279 + __obj110479 + __tmp111209 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111281 - (let ((__tmp111286 - (let ((__tmp111287 |[1]#_g111288_|)) + (let ((__tmp111211 + (let ((__tmp111216 + (let ((__tmp111217 |[1]#_g111218_|)) (declare (not safe)) - (cons 'e __tmp111287))) - (__tmp111282 - (let ((__tmp111283 - (let ((__tmp111284 |[1]#_g111285_|)) + (cons 'e __tmp111217))) + (__tmp111212 + (let ((__tmp111213 + (let ((__tmp111214 |[1]#_g111215_|)) (declare (not safe)) - (cons 'id __tmp111284)))) + (cons 'id __tmp111214)))) (declare (not safe)) - (cons __tmp111283 '())))) + (cons __tmp111213 '())))) (declare (not safe)) - (cons __tmp111286 __tmp111282)))) + (cons __tmp111216 __tmp111212)))) (declare (not safe)) (##unchecked-structure-set! - __obj110549 - __tmp111281 + __obj110479 + __tmp111211 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111289 - (let ((__tmp111294 - (let ((__tmp111295 |[1]#_g111296_|)) + (let ((__tmp111219 + (let ((__tmp111224 + (let ((__tmp111225 |[1]#_g111226_|)) (declare (not safe)) - (cons 'e __tmp111295))) - (__tmp111290 - (let ((__tmp111291 - (let ((__tmp111292 |[1]#_g111293_|)) + (cons 'e __tmp111225))) + (__tmp111220 + (let ((__tmp111221 + (let ((__tmp111222 |[1]#_g111223_|)) (declare (not safe)) - (cons 'id __tmp111292)))) + (cons 'id __tmp111222)))) (declare (not safe)) - (cons __tmp111291 '())))) + (cons __tmp111221 '())))) (declare (not safe)) - (cons __tmp111294 __tmp111290)))) + (cons __tmp111224 __tmp111220)))) (declare (not safe)) (##unchecked-structure-set! - __obj110549 - __tmp111289 + __obj110479 + __tmp111219 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111297 - (let ((__tmp111302 - (let ((__tmp111303 |[1]#_g111304_|)) + (let ((__tmp111227 + (let ((__tmp111232 + (let ((__tmp111233 |[1]#_g111234_|)) (declare (not safe)) - (cons 'e __tmp111303))) - (__tmp111298 - (let ((__tmp111299 - (let ((__tmp111300 |[1]#_g111301_|)) + (cons 'e __tmp111233))) + (__tmp111228 + (let ((__tmp111229 + (let ((__tmp111230 |[1]#_g111231_|)) (declare (not safe)) - (cons 'id __tmp111300)))) + (cons 'id __tmp111230)))) (declare (not safe)) - (cons __tmp111299 '())))) + (cons __tmp111229 '())))) (declare (not safe)) - (cons __tmp111302 __tmp111298)))) + (cons __tmp111232 __tmp111228)))) (declare (not safe)) (##unchecked-structure-set! - __obj110549 - __tmp111297 + __obj110479 + __tmp111227 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111305 - (let ((__tmp111310 - (let ((__tmp111311 |[1]#_g111312_|)) + (let ((__tmp111235 + (let ((__tmp111240 + (let ((__tmp111241 |[1]#_g111242_|)) (declare (not safe)) - (cons 'e __tmp111311))) - (__tmp111306 - (let ((__tmp111307 - (let ((__tmp111308 |[1]#_g111309_|)) + (cons 'e __tmp111241))) + (__tmp111236 + (let ((__tmp111237 + (let ((__tmp111238 |[1]#_g111239_|)) (declare (not safe)) - (cons 'id __tmp111308)))) + (cons 'id __tmp111238)))) (declare (not safe)) - (cons __tmp111307 '())))) + (cons __tmp111237 '())))) (declare (not safe)) - (cons __tmp111310 __tmp111306)))) + (cons __tmp111240 __tmp111236)))) (declare (not safe)) (##unchecked-structure-set! - __obj110549 - __tmp111305 + __obj110479 + __tmp111235 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110549)) + __obj110479)) (define |[:0:]#__feature| - (let ((__obj110550 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110480 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110550 + __obj110480 'gerbil/runtime/eval#__feature::t '1 gerbil/core$$#class-type-info::t @@ -2644,7 +2644,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110550 + __obj110480 '__feature '2 gerbil/core$$#class-type-info::t @@ -2652,26 +2652,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110550 + __obj110480 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111313 - (let ((__tmp111314 |[1]#_g111072_|)) + (let ((__tmp111243 + (let ((__tmp111244 |[1]#_g111002_|)) (declare (not safe)) - (cons __tmp111314 '())))) + (cons __tmp111244 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110550 - __tmp111313 + __obj110480 + __tmp111243 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110550 + __obj110480 '#t '5 gerbil/core$$#class-type-info::t @@ -2679,7 +2679,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110550 + __obj110480 '#f '6 gerbil/core$$#class-type-info::t @@ -2687,127 +2687,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110550 + __obj110480 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111315 |[1]#_g111316_|)) + (let ((__tmp111245 |[1]#_g111246_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110550 - __tmp111315 + __obj110480 + __tmp111245 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111317 |[1]#_g111318_|)) + (let ((__tmp111247 |[1]#_g111248_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110550 - __tmp111317 + __obj110480 + __tmp111247 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111319 |[1]#_g111320_|)) + (let ((__tmp111249 |[1]#_g111250_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110550 - __tmp111319 + __obj110480 + __tmp111249 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111321 - (let ((__tmp111326 - (let ((__tmp111327 |[1]#_g111328_|)) + (let ((__tmp111251 + (let ((__tmp111256 + (let ((__tmp111257 |[1]#_g111258_|)) (declare (not safe)) - (cons 'e __tmp111327))) - (__tmp111322 - (let ((__tmp111323 - (let ((__tmp111324 |[1]#_g111325_|)) + (cons 'e __tmp111257))) + (__tmp111252 + (let ((__tmp111253 + (let ((__tmp111254 |[1]#_g111255_|)) (declare (not safe)) - (cons 'id __tmp111324)))) + (cons 'id __tmp111254)))) (declare (not safe)) - (cons __tmp111323 '())))) + (cons __tmp111253 '())))) (declare (not safe)) - (cons __tmp111326 __tmp111322)))) + (cons __tmp111256 __tmp111252)))) (declare (not safe)) (##unchecked-structure-set! - __obj110550 - __tmp111321 + __obj110480 + __tmp111251 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111329 - (let ((__tmp111334 - (let ((__tmp111335 |[1]#_g111336_|)) + (let ((__tmp111259 + (let ((__tmp111264 + (let ((__tmp111265 |[1]#_g111266_|)) (declare (not safe)) - (cons 'e __tmp111335))) - (__tmp111330 - (let ((__tmp111331 - (let ((__tmp111332 |[1]#_g111333_|)) + (cons 'e __tmp111265))) + (__tmp111260 + (let ((__tmp111261 + (let ((__tmp111262 |[1]#_g111263_|)) (declare (not safe)) - (cons 'id __tmp111332)))) + (cons 'id __tmp111262)))) (declare (not safe)) - (cons __tmp111331 '())))) + (cons __tmp111261 '())))) (declare (not safe)) - (cons __tmp111334 __tmp111330)))) + (cons __tmp111264 __tmp111260)))) (declare (not safe)) (##unchecked-structure-set! - __obj110550 - __tmp111329 + __obj110480 + __tmp111259 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111337 - (let ((__tmp111342 - (let ((__tmp111343 |[1]#_g111344_|)) + (let ((__tmp111267 + (let ((__tmp111272 + (let ((__tmp111273 |[1]#_g111274_|)) (declare (not safe)) - (cons 'e __tmp111343))) - (__tmp111338 - (let ((__tmp111339 - (let ((__tmp111340 |[1]#_g111341_|)) + (cons 'e __tmp111273))) + (__tmp111268 + (let ((__tmp111269 + (let ((__tmp111270 |[1]#_g111271_|)) (declare (not safe)) - (cons 'id __tmp111340)))) + (cons 'id __tmp111270)))) (declare (not safe)) - (cons __tmp111339 '())))) + (cons __tmp111269 '())))) (declare (not safe)) - (cons __tmp111342 __tmp111338)))) + (cons __tmp111272 __tmp111268)))) (declare (not safe)) (##unchecked-structure-set! - __obj110550 - __tmp111337 + __obj110480 + __tmp111267 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111345 - (let ((__tmp111350 - (let ((__tmp111351 |[1]#_g111352_|)) + (let ((__tmp111275 + (let ((__tmp111280 + (let ((__tmp111281 |[1]#_g111282_|)) (declare (not safe)) - (cons 'e __tmp111351))) - (__tmp111346 - (let ((__tmp111347 - (let ((__tmp111348 |[1]#_g111349_|)) + (cons 'e __tmp111281))) + (__tmp111276 + (let ((__tmp111277 + (let ((__tmp111278 |[1]#_g111279_|)) (declare (not safe)) - (cons 'id __tmp111348)))) + (cons 'id __tmp111278)))) (declare (not safe)) - (cons __tmp111347 '())))) + (cons __tmp111277 '())))) (declare (not safe)) - (cons __tmp111350 __tmp111346)))) + (cons __tmp111280 __tmp111276)))) (declare (not safe)) (##unchecked-structure-set! - __obj110550 - __tmp111345 + __obj110480 + __tmp111275 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110550)) + __obj110480)) (define |[:0:]#__module| - (let ((__obj110551 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj110481 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110551 + __obj110481 'gerbil/runtime/eval#__module::t '1 gerbil/core$$#class-type-info::t @@ -2815,7 +2815,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110551 + __obj110481 '__module '2 gerbil/core$$#class-type-info::t @@ -2823,26 +2823,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110551 + __obj110481 '(id path import export) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111353 - (let ((__tmp111354 |[1]#_g111355_|)) + (let ((__tmp111283 + (let ((__tmp111284 |[1]#_g111285_|)) (declare (not safe)) - (cons __tmp111354 '())))) + (cons __tmp111284 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj110551 - __tmp111353 + __obj110481 + __tmp111283 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110551 + __obj110481 '#t '5 gerbil/core$$#class-type-info::t @@ -2850,7 +2850,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110551 + __obj110481 '#f '6 gerbil/core$$#class-type-info::t @@ -2858,526 +2858,526 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110551 + __obj110481 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111356 |[1]#_g111357_|)) + (let ((__tmp111286 |[1]#_g111287_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110551 - __tmp111356 + __obj110481 + __tmp111286 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111358 |[1]#_g111359_|)) + (let ((__tmp111288 |[1]#_g111289_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110551 - __tmp111358 + __obj110481 + __tmp111288 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111360 |[1]#_g111361_|)) + (let ((__tmp111290 |[1]#_g111291_|)) (declare (not safe)) (##unchecked-structure-set! - __obj110551 - __tmp111360 + __obj110481 + __tmp111290 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111362 - (let ((__tmp111391 - (let ((__tmp111392 |[1]#_g111393_|)) + (let ((__tmp111292 + (let ((__tmp111321 + (let ((__tmp111322 |[1]#_g111323_|)) (declare (not safe)) - (cons 'id __tmp111392))) - (__tmp111363 - (let ((__tmp111388 - (let ((__tmp111389 |[1]#_g111390_|)) + (cons 'id __tmp111322))) + (__tmp111293 + (let ((__tmp111318 + (let ((__tmp111319 |[1]#_g111320_|)) (declare (not safe)) - (cons 'path __tmp111389))) - (__tmp111364 - (let ((__tmp111385 - (let ((__tmp111386 |[1]#_g111387_|)) + (cons 'path __tmp111319))) + (__tmp111294 + (let ((__tmp111315 + (let ((__tmp111316 |[1]#_g111317_|)) (declare (not safe)) - (cons 'import __tmp111386))) - (__tmp111365 - (let ((__tmp111382 - (let ((__tmp111383 |[1]#_g111384_|)) + (cons 'import __tmp111316))) + (__tmp111295 + (let ((__tmp111312 + (let ((__tmp111313 |[1]#_g111314_|)) (declare (not safe)) - (cons 'export __tmp111383))) - (__tmp111366 - (let ((__tmp111379 - (let ((__tmp111380 - |[1]#_g111381_|)) + (cons 'export __tmp111313))) + (__tmp111296 + (let ((__tmp111309 + (let ((__tmp111310 + |[1]#_g111311_|)) (declare (not safe)) - (cons 't __tmp111380))) - (__tmp111367 - (let ((__tmp111376 - (let ((__tmp111377 - |[1]#_g111378_|)) + (cons 't __tmp111310))) + (__tmp111297 + (let ((__tmp111306 + (let ((__tmp111307 + |[1]#_g111308_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp111377))) - (__tmp111368 - (let ((__tmp111373 - (let ((__tmp111374 |[1]#_g111375_|)) + __tmp111307))) + (__tmp111298 + (let ((__tmp111303 + (let ((__tmp111304 |[1]#_g111305_|)) (declare (not safe)) - (cons 'super __tmp111374))) - (__tmp111369 - (let ((__tmp111370 - (let ((__tmp111371 |[1]#_g111372_|)) + (cons 'super __tmp111304))) + (__tmp111299 + (let ((__tmp111300 + (let ((__tmp111301 |[1]#_g111302_|)) (declare (not safe)) - (cons 'table __tmp111371)))) + (cons 'table __tmp111301)))) (declare (not safe)) - (cons __tmp111370 '())))) + (cons __tmp111300 '())))) (declare (not safe)) - (cons __tmp111373 __tmp111369)))) + (cons __tmp111303 __tmp111299)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111376 - __tmp111368)))) + (cons __tmp111306 + __tmp111298)))) (declare (not safe)) - (cons __tmp111379 __tmp111367)))) + (cons __tmp111309 __tmp111297)))) (declare (not safe)) - (cons __tmp111382 __tmp111366)))) + (cons __tmp111312 __tmp111296)))) (declare (not safe)) - (cons __tmp111385 __tmp111365)))) + (cons __tmp111315 __tmp111295)))) (declare (not safe)) - (cons __tmp111388 __tmp111364)))) + (cons __tmp111318 __tmp111294)))) (declare (not safe)) - (cons __tmp111391 __tmp111363)))) + (cons __tmp111321 __tmp111293)))) (declare (not safe)) (##unchecked-structure-set! - __obj110551 - __tmp111362 + __obj110481 + __tmp111292 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111394 - (let ((__tmp111423 - (let ((__tmp111424 |[1]#_g111425_|)) + (let ((__tmp111324 + (let ((__tmp111353 + (let ((__tmp111354 |[1]#_g111355_|)) (declare (not safe)) - (cons 'id __tmp111424))) - (__tmp111395 - (let ((__tmp111420 - (let ((__tmp111421 |[1]#_g111422_|)) + (cons 'id __tmp111354))) + (__tmp111325 + (let ((__tmp111350 + (let ((__tmp111351 |[1]#_g111352_|)) (declare (not safe)) - (cons 'path __tmp111421))) - (__tmp111396 - (let ((__tmp111417 - (let ((__tmp111418 |[1]#_g111419_|)) + (cons 'path __tmp111351))) + (__tmp111326 + (let ((__tmp111347 + (let ((__tmp111348 |[1]#_g111349_|)) (declare (not safe)) - (cons 'import __tmp111418))) - (__tmp111397 - (let ((__tmp111414 - (let ((__tmp111415 |[1]#_g111416_|)) + (cons 'import __tmp111348))) + (__tmp111327 + (let ((__tmp111344 + (let ((__tmp111345 |[1]#_g111346_|)) (declare (not safe)) - (cons 'export __tmp111415))) - (__tmp111398 - (let ((__tmp111411 - (let ((__tmp111412 - |[1]#_g111413_|)) + (cons 'export __tmp111345))) + (__tmp111328 + (let ((__tmp111341 + (let ((__tmp111342 + |[1]#_g111343_|)) (declare (not safe)) - (cons 't __tmp111412))) - (__tmp111399 - (let ((__tmp111408 - (let ((__tmp111409 - |[1]#_g111410_|)) + (cons 't __tmp111342))) + (__tmp111329 + (let ((__tmp111338 + (let ((__tmp111339 + |[1]#_g111340_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp111409))) - (__tmp111400 - (let ((__tmp111405 - (let ((__tmp111406 |[1]#_g111407_|)) + __tmp111339))) + (__tmp111330 + (let ((__tmp111335 + (let ((__tmp111336 |[1]#_g111337_|)) (declare (not safe)) - (cons 'super __tmp111406))) - (__tmp111401 - (let ((__tmp111402 - (let ((__tmp111403 |[1]#_g111404_|)) + (cons 'super __tmp111336))) + (__tmp111331 + (let ((__tmp111332 + (let ((__tmp111333 |[1]#_g111334_|)) (declare (not safe)) - (cons 'table __tmp111403)))) + (cons 'table __tmp111333)))) (declare (not safe)) - (cons __tmp111402 '())))) + (cons __tmp111332 '())))) (declare (not safe)) - (cons __tmp111405 __tmp111401)))) + (cons __tmp111335 __tmp111331)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111408 - __tmp111400)))) + (cons __tmp111338 + __tmp111330)))) (declare (not safe)) - (cons __tmp111411 __tmp111399)))) + (cons __tmp111341 __tmp111329)))) (declare (not safe)) - (cons __tmp111414 __tmp111398)))) + (cons __tmp111344 __tmp111328)))) (declare (not safe)) - (cons __tmp111417 __tmp111397)))) + (cons __tmp111347 __tmp111327)))) (declare (not safe)) - (cons __tmp111420 __tmp111396)))) + (cons __tmp111350 __tmp111326)))) (declare (not safe)) - (cons __tmp111423 __tmp111395)))) + (cons __tmp111353 __tmp111325)))) (declare (not safe)) (##unchecked-structure-set! - __obj110551 - __tmp111394 + __obj110481 + __tmp111324 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111426 - (let ((__tmp111455 - (let ((__tmp111456 |[1]#_g111457_|)) + (let ((__tmp111356 + (let ((__tmp111385 + (let ((__tmp111386 |[1]#_g111387_|)) (declare (not safe)) - (cons 'id __tmp111456))) - (__tmp111427 - (let ((__tmp111452 - (let ((__tmp111453 |[1]#_g111454_|)) + (cons 'id __tmp111386))) + (__tmp111357 + (let ((__tmp111382 + (let ((__tmp111383 |[1]#_g111384_|)) (declare (not safe)) - (cons 'path __tmp111453))) - (__tmp111428 - (let ((__tmp111449 - (let ((__tmp111450 |[1]#_g111451_|)) + (cons 'path __tmp111383))) + (__tmp111358 + (let ((__tmp111379 + (let ((__tmp111380 |[1]#_g111381_|)) (declare (not safe)) - (cons 'import __tmp111450))) - (__tmp111429 - (let ((__tmp111446 - (let ((__tmp111447 |[1]#_g111448_|)) + (cons 'import __tmp111380))) + (__tmp111359 + (let ((__tmp111376 + (let ((__tmp111377 |[1]#_g111378_|)) (declare (not safe)) - (cons 'export __tmp111447))) - (__tmp111430 - (let ((__tmp111443 - (let ((__tmp111444 - |[1]#_g111445_|)) + (cons 'export __tmp111377))) + (__tmp111360 + (let ((__tmp111373 + (let ((__tmp111374 + |[1]#_g111375_|)) (declare (not safe)) - (cons 't __tmp111444))) - (__tmp111431 - (let ((__tmp111440 - (let ((__tmp111441 - |[1]#_g111442_|)) + (cons 't __tmp111374))) + (__tmp111361 + (let ((__tmp111370 + (let ((__tmp111371 + |[1]#_g111372_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp111441))) - (__tmp111432 - (let ((__tmp111437 - (let ((__tmp111438 |[1]#_g111439_|)) + __tmp111371))) + (__tmp111362 + (let ((__tmp111367 + (let ((__tmp111368 |[1]#_g111369_|)) (declare (not safe)) - (cons 'super __tmp111438))) - (__tmp111433 - (let ((__tmp111434 - (let ((__tmp111435 |[1]#_g111436_|)) + (cons 'super __tmp111368))) + (__tmp111363 + (let ((__tmp111364 + (let ((__tmp111365 |[1]#_g111366_|)) (declare (not safe)) - (cons 'table __tmp111435)))) + (cons 'table __tmp111365)))) (declare (not safe)) - (cons __tmp111434 '())))) + (cons __tmp111364 '())))) (declare (not safe)) - (cons __tmp111437 __tmp111433)))) + (cons __tmp111367 __tmp111363)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111440 - __tmp111432)))) + (cons __tmp111370 + __tmp111362)))) (declare (not safe)) - (cons __tmp111443 __tmp111431)))) + (cons __tmp111373 __tmp111361)))) (declare (not safe)) - (cons __tmp111446 __tmp111430)))) + (cons __tmp111376 __tmp111360)))) (declare (not safe)) - (cons __tmp111449 __tmp111429)))) + (cons __tmp111379 __tmp111359)))) (declare (not safe)) - (cons __tmp111452 __tmp111428)))) + (cons __tmp111382 __tmp111358)))) (declare (not safe)) - (cons __tmp111455 __tmp111427)))) + (cons __tmp111385 __tmp111357)))) (declare (not safe)) (##unchecked-structure-set! - __obj110551 - __tmp111426 + __obj110481 + __tmp111356 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp111458 - (let ((__tmp111487 - (let ((__tmp111488 |[1]#_g111489_|)) + (let ((__tmp111388 + (let ((__tmp111417 + (let ((__tmp111418 |[1]#_g111419_|)) (declare (not safe)) - (cons 'id __tmp111488))) - (__tmp111459 - (let ((__tmp111484 - (let ((__tmp111485 |[1]#_g111486_|)) + (cons 'id __tmp111418))) + (__tmp111389 + (let ((__tmp111414 + (let ((__tmp111415 |[1]#_g111416_|)) (declare (not safe)) - (cons 'path __tmp111485))) - (__tmp111460 - (let ((__tmp111481 - (let ((__tmp111482 |[1]#_g111483_|)) + (cons 'path __tmp111415))) + (__tmp111390 + (let ((__tmp111411 + (let ((__tmp111412 |[1]#_g111413_|)) (declare (not safe)) - (cons 'import __tmp111482))) - (__tmp111461 - (let ((__tmp111478 - (let ((__tmp111479 |[1]#_g111480_|)) + (cons 'import __tmp111412))) + (__tmp111391 + (let ((__tmp111408 + (let ((__tmp111409 |[1]#_g111410_|)) (declare (not safe)) - (cons 'export __tmp111479))) - (__tmp111462 - (let ((__tmp111475 - (let ((__tmp111476 - |[1]#_g111477_|)) + (cons 'export __tmp111409))) + (__tmp111392 + (let ((__tmp111405 + (let ((__tmp111406 + |[1]#_g111407_|)) (declare (not safe)) - (cons 't __tmp111476))) - (__tmp111463 - (let ((__tmp111472 - (let ((__tmp111473 - |[1]#_g111474_|)) + (cons 't __tmp111406))) + (__tmp111393 + (let ((__tmp111402 + (let ((__tmp111403 + |[1]#_g111404_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp111473))) - (__tmp111464 - (let ((__tmp111469 - (let ((__tmp111470 |[1]#_g111471_|)) + __tmp111403))) + (__tmp111394 + (let ((__tmp111399 + (let ((__tmp111400 |[1]#_g111401_|)) (declare (not safe)) - (cons 'super __tmp111470))) - (__tmp111465 - (let ((__tmp111466 - (let ((__tmp111467 |[1]#_g111468_|)) + (cons 'super __tmp111400))) + (__tmp111395 + (let ((__tmp111396 + (let ((__tmp111397 |[1]#_g111398_|)) (declare (not safe)) - (cons 'table __tmp111467)))) + (cons 'table __tmp111397)))) (declare (not safe)) - (cons __tmp111466 '())))) + (cons __tmp111396 '())))) (declare (not safe)) - (cons __tmp111469 __tmp111465)))) + (cons __tmp111399 __tmp111395)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111472 - __tmp111464)))) + (cons __tmp111402 + __tmp111394)))) (declare (not safe)) - (cons __tmp111475 __tmp111463)))) + (cons __tmp111405 __tmp111393)))) (declare (not safe)) - (cons __tmp111478 __tmp111462)))) + (cons __tmp111408 __tmp111392)))) (declare (not safe)) - (cons __tmp111481 __tmp111461)))) + (cons __tmp111411 __tmp111391)))) (declare (not safe)) - (cons __tmp111484 __tmp111460)))) + (cons __tmp111414 __tmp111390)))) (declare (not safe)) - (cons __tmp111487 __tmp111459)))) + (cons __tmp111417 __tmp111389)))) (declare (not safe)) (##unchecked-structure-set! - __obj110551 - __tmp111458 + __obj110481 + __tmp111388 '14 gerbil/core$$#class-type-info::t '#f)) - __obj110551)) + __obj110481)) (define |[:0:]#defcore-forms| - (lambda (_stx103778_) - (letrec ((_generate103781_ - (lambda (_id104145_ _compile104147_ _make104148_) - (let* ((_g104150104169_ - (lambda (_g104151104165_) + (lambda (_stx103708_) + (letrec ((_generate103711_ + (lambda (_id104075_ _compile104077_ _make104078_) + (let* ((_g104080104099_ + (lambda (_g104081104095_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104151104165_))) - (_g104149104228_ - (lambda (_g104151104173_) - (if (gx#stx-pair? _g104151104173_) - (let ((_e104157104176_ - (gx#syntax-e _g104151104173_))) - (let ((_hd104156104180_ + _g104081104095_))) + (_g104079104158_ + (lambda (_g104081104103_) + (if (gx#stx-pair? _g104081104103_) + (let ((_e104087104106_ + (gx#syntax-e _g104081104103_))) + (let ((_hd104086104110_ (let () (declare (not safe)) - (##car _e104157104176_))) - (_tl104155104183_ + (##car _e104087104106_))) + (_tl104085104113_ (let () (declare (not safe)) - (##cdr _e104157104176_)))) - (if (gx#stx-pair? _tl104155104183_) - (let ((_e104160104186_ + (##cdr _e104087104106_)))) + (if (gx#stx-pair? _tl104085104113_) + (let ((_e104090104116_ (gx#syntax-e - _tl104155104183_))) - (let ((_hd104159104190_ + _tl104085104113_))) + (let ((_hd104089104120_ (let () (declare (not safe)) - (##car _e104160104186_))) - (_tl104158104193_ + (##car _e104090104116_))) + (_tl104088104123_ (let () (declare (not safe)) - (##cdr _e104160104186_)))) + (##cdr _e104090104116_)))) (if (gx#stx-pair? - _tl104158104193_) - (let ((_e104163104196_ + _tl104088104123_) + (let ((_e104093104126_ (gx#syntax-e - _tl104158104193_))) - (let ((_hd104162104200_ + _tl104088104123_))) + (let ((_hd104092104130_ (let () (declare (not safe)) - (##car _e104163104196_))) - (_tl104161104203_ + (##car _e104093104126_))) + (_tl104091104133_ (let () (declare (not safe)) - (##cdr _e104163104196_)))) + (##cdr _e104093104126_)))) (if (gx#stx-null? - _tl104161104203_) - ((lambda (_L104206_ + _tl104091104133_) + ((lambda (_L104136_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L104208_ - _L104209_) + _L104138_ + _L104139_) (let () - (let ((__tmp111496 + (let ((__tmp111426 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp111490 - (let ((__tmp111493 - (let ((__tmp111495 + (__tmp111420 + (let ((__tmp111423 + (let ((__tmp111425 (gx#datum->syntax '#f 'quote)) - (__tmp111494 + (__tmp111424 (let () (declare (not safe)) - (cons _L104209_ '())))) + (cons _L104139_ '())))) (declare (not safe)) - (cons __tmp111495 __tmp111494))) - (__tmp111491 - (let ((__tmp111492 + (cons __tmp111425 __tmp111424))) + (__tmp111421 + (let ((__tmp111422 (let () (declare (not safe)) - (cons _L104206_ '())))) + (cons _L104136_ '())))) (declare (not safe)) - (cons _L104208_ __tmp111492)))) + (cons _L104138_ __tmp111422)))) (declare (not safe)) - (cons __tmp111493 __tmp111491)))) + (cons __tmp111423 __tmp111421)))) (declare (not safe)) - (cons __tmp111496 __tmp111490)))) - _hd104162104200_ - _hd104159104190_ - _hd104156104180_) - (_g104150104169_ _g104151104173_)))) + (cons __tmp111426 __tmp111420)))) + _hd104092104130_ + _hd104089104120_ + _hd104086104110_) + (_g104080104099_ _g104081104103_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g104150104169_ - _g104151104173_)))) - (_g104150104169_ _g104151104173_)))) - (_g104150104169_ _g104151104173_))))) - (_g104149104228_ - (list _id104145_ + (_g104080104099_ + _g104081104103_)))) + (_g104080104099_ _g104081104103_)))) + (_g104080104099_ _g104081104103_))))) + (_g104079104158_ + (list _id104075_ (gx#stx-identifier - _id104145_ + _id104075_ '"__" - _compile104147_) - _make104148_)))))) - (let* ((_g103784103804_ - (lambda (_g103785103800_) + _compile104077_) + _make104078_)))))) + (let* ((_g103714103734_ + (lambda (_g103715103730_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103785103800_))) - (_g103783104141_ - (lambda (_g103785103808_) - (if (gx#stx-pair? _g103785103808_) - (let ((_e103789103811_ (gx#syntax-e _g103785103808_))) - (let ((_hd103788103815_ + _g103715103730_))) + (_g103713104071_ + (lambda (_g103715103738_) + (if (gx#stx-pair? _g103715103738_) + (let ((_e103719103741_ (gx#syntax-e _g103715103738_))) + (let ((_hd103718103745_ (let () (declare (not safe)) - (##car _e103789103811_))) - (_tl103787103818_ + (##car _e103719103741_))) + (_tl103717103748_ (let () (declare (not safe)) - (##cdr _e103789103811_)))) - (if (gx#stx-pair/null? _tl103787103818_) - (let ((_g111497_ + (##cdr _e103719103741_)))) + (if (gx#stx-pair/null? _tl103717103748_) + (let ((_g111427_ (gx#syntax-split-splice - _tl103787103818_ + _tl103717103748_ '0))) (begin - (let ((_g111498_ + (let ((_g111428_ (let () (declare (not safe)) - (if (##values? _g111497_) - (##vector-length _g111497_) + (if (##values? _g111427_) + (##vector-length _g111427_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111498_ 2))) + (##fx= _g111428_ 2))) (error "Context expects 2 values" - _g111498_))) - (let ((_target103790103821_ + _g111428_))) + (let ((_target103720103751_ (let () (declare (not safe)) - (##vector-ref _g111497_ 0))) - (_tl103792103824_ + (##vector-ref _g111427_ 0))) + (_tl103722103754_ (let () (declare (not safe)) - (##vector-ref _g111497_ 1)))) - (if (gx#stx-null? _tl103792103824_) - (letrec ((_loop103793103827_ - (lambda (_hd103791103831_ - _form103797103834_) + (##vector-ref _g111427_ 1)))) + (if (gx#stx-null? _tl103722103754_) + (letrec ((_loop103723103757_ + (lambda (_hd103721103761_ + _form103727103764_) (if (gx#stx-pair? - _hd103791103831_) - (let ((_e103794103837_ + _hd103721103761_) + (let ((_e103724103767_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd103791103831_))) - (let ((_lp-hd103795103841_ + (gx#syntax-e _hd103721103761_))) + (let ((_lp-hd103725103771_ (let () (declare (not safe)) - (##car _e103794103837_))) - (_lp-tl103796103844_ + (##car _e103724103767_))) + (_lp-tl103726103774_ (let () (declare (not safe)) - (##cdr _e103794103837_)))) - (_loop103793103827_ - _lp-tl103796103844_ + (##cdr _e103724103767_)))) + (_loop103723103757_ + _lp-tl103726103774_ (let () (declare (not safe)) - (cons _lp-hd103795103841_ _form103797103834_))))) - (let ((_form103798103847_ (reverse _form103797103834_))) - ((lambda (_L103851_) - (let _lp103869_ ((_rest103872_ - (let ((__tmp111503 - (lambda (_g104132104135_ - _g104133104138_) + (cons _lp-hd103725103771_ _form103727103764_))))) + (let ((_form103728103777_ (reverse _form103727103764_))) + ((lambda (_L103781_) + (let _lp103799_ ((_rest103802_ + (let ((__tmp111433 + (lambda (_g104062104065_ + _g104063104068_) (let () (declare (not safe)) - (cons _g104132104135_ - _g104133104138_))))) + (cons _g104062104065_ + _g104063104068_))))) (declare (not safe)) - (foldr1 __tmp111503 '() _L103851_))) - (_body103874_ '())) - (let* ((___stx110448110449_ _rest103872_) - (_g103879103926_ + (foldr1 __tmp111433 '() _L103781_))) + (_body103804_ '())) + (let* ((___stx110378110379_ _rest103802_) + (_g103809103856_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110448110449_)))) - (let ((___kont110451110452_ - (lambda (_L104107_ _L104109_ _L104110_) - (_lp103869_ - _L104107_ - (let ((__tmp111499 - (_generate103781_ - _L104110_ - _L104109_ + ___stx110378110379_)))) + (let ((___kont110381110382_ + (lambda (_L104037_ _L104039_ _L104040_) + (_lp103799_ + _L104037_ + (let ((__tmp111429 + (_generate103711_ + _L104040_ + _L104039_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp111499 _body103874_))))) - (___kont110453110454_ - (lambda (_L104034_ _L104036_ _L104037_) - (_lp103869_ - _L104034_ - (let ((__tmp111500 - (_generate103781_ - _L104037_ - _L104036_ + (cons __tmp111429 _body103804_))))) + (___kont110383110384_ + (lambda (_L103964_ _L103966_ _L103967_) + (_lp103799_ + _L103964_ + (let ((__tmp111430 + (_generate103711_ + _L103967_ + _L103966_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp111500 _body103874_))))) - (___kont110455110456_ - (lambda (_L103964_ _L103966_) - (_lp103869_ - _L103964_ - (let ((__tmp111501 - (_generate103781_ - _L103966_ + (cons __tmp111430 _body103804_))))) + (___kont110385110386_ + (lambda (_L103894_ _L103896_) + (_lp103799_ + _L103894_ + (let ((__tmp111431 + (_generate103711_ + _L103896_ (gx#datum->syntax '#f 'compile-error) @@ -3385,133 +3385,133 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp111501 _body103874_))))) - (___kont110457110458_ + (cons __tmp111431 _body103804_))))) + (___kont110387110388_ (lambda () - (let ((__tmp111502 (reverse _body103874_))) + (let ((__tmp111432 (reverse _body103804_))) (declare (not safe)) - (cons 'begin __tmp111502))))) - (let ((_g103878103937_ + (cons 'begin __tmp111432))))) + (let ((_g103808103867_ (lambda () - (if (gx#stx-null? ___stx110448110449_) - (___kont110457110458_) + (if (gx#stx-null? ___stx110378110379_) + (___kont110387110388_) (let () (declare (not safe)) - (_g103879103926_)))))) - (if (gx#stx-pair? ___stx110448110449_) - (let ((_e103886104063_ - (gx#syntax-e ___stx110448110449_))) - (let ((_tl103884104070_ + (_g103809103856_)))))) + (if (gx#stx-pair? ___stx110378110379_) + (let ((_e103816103993_ + (gx#syntax-e ___stx110378110379_))) + (let ((_tl103814104000_ (let () (declare (not safe)) - (##cdr _e103886104063_))) - (_hd103885104067_ + (##cdr _e103816103993_))) + (_hd103815103997_ (let () (declare (not safe)) - (##car _e103886104063_)))) - (if (gx#stx-pair? _hd103885104067_) - (let ((_e103889104073_ + (##car _e103816103993_)))) + (if (gx#stx-pair? _hd103815103997_) + (let ((_e103819104003_ (gx#syntax-e - _hd103885104067_))) - (let ((_tl103887104080_ + _hd103815103997_))) + (let ((_tl103817104010_ (let () (declare (not safe)) - (##cdr _e103889104073_))) - (_hd103888104077_ + (##cdr _e103819104003_))) + (_hd103818104007_ (let () (declare (not safe)) - (##car _e103889104073_)))) + (##car _e103819104003_)))) (if (gx#stx-pair? - _tl103887104080_) - (let ((_e103892104083_ + _tl103817104010_) + (let ((_e103822104013_ (gx#syntax-e - _tl103887104080_))) - (let ((_tl103890104090_ + _tl103817104010_))) + (let ((_tl103820104020_ (let () (declare (not safe)) - (##cdr _e103892104083_))) - (_hd103891104087_ + (##cdr _e103822104013_))) + (_hd103821104017_ (let () (declare (not safe)) - (##car _e103892104083_)))) + (##car _e103822104013_)))) (if (gx#stx-datum? - _hd103891104087_) - (let ((_e103893104093_ + _hd103821104017_) + (let ((_e103823104023_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd103891104087_))) + (gx#stx-e _hd103821104017_))) (if (let () (declare (not safe)) - (equal? _e103893104093_ 'expr:)) - (if (gx#stx-pair? _tl103890104090_) - (let ((_e103896104097_ - (gx#syntax-e _tl103890104090_))) - (let ((_tl103894104104_ + (equal? _e103823104023_ 'expr:)) + (if (gx#stx-pair? _tl103820104020_) + (let ((_e103826104027_ + (gx#syntax-e _tl103820104020_))) + (let ((_tl103824104034_ (let () (declare (not safe)) - (##cdr _e103896104097_))) - (_hd103895104101_ + (##cdr _e103826104027_))) + (_hd103825104031_ (let () (declare (not safe)) - (##car _e103896104097_)))) - (if (gx#stx-null? _tl103894104104_) - (___kont110451110452_ - _tl103884104070_ - _hd103895104101_ - _hd103888104077_) + (##car _e103826104027_)))) + (if (gx#stx-null? _tl103824104034_) + (___kont110381110382_ + _tl103814104000_ + _hd103825104031_ + _hd103818104007_) (let () (declare (not safe)) - (_g103879103926_))))) - (let () (declare (not safe)) (_g103879103926_))) + (_g103809103856_))))) + (let () (declare (not safe)) (_g103809103856_))) (if (let () (declare (not safe)) - (equal? _e103893104093_ 'special:)) - (if (gx#stx-pair? _tl103890104090_) - (let ((_e103912104024_ - (gx#syntax-e _tl103890104090_))) - (let ((_tl103910104031_ + (equal? _e103823104023_ 'special:)) + (if (gx#stx-pair? _tl103820104020_) + (let ((_e103842103954_ + (gx#syntax-e _tl103820104020_))) + (let ((_tl103840103961_ (let () (declare (not safe)) - (##cdr _e103912104024_))) - (_hd103911104028_ + (##cdr _e103842103954_))) + (_hd103841103958_ (let () (declare (not safe)) - (##car _e103912104024_)))) - (if (gx#stx-null? _tl103910104031_) - (___kont110453110454_ - _tl103884104070_ - _hd103911104028_ - _hd103888104077_) + (##car _e103842103954_)))) + (if (gx#stx-null? _tl103840103961_) + (___kont110383110384_ + _tl103814104000_ + _hd103841103958_ + _hd103818104007_) (let () (declare (not safe)) - (_g103879103926_))))) + (_g103809103856_))))) (let () (declare (not safe)) - (_g103879103926_))) - (let () (declare (not safe)) (_g103879103926_))))) - (let () (declare (not safe)) (_g103879103926_))))) + (_g103809103856_))) + (let () (declare (not safe)) (_g103809103856_))))) + (let () (declare (not safe)) (_g103809103856_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl103887104080_) - (___kont110455110456_ - _tl103884104070_ - _hd103888104077_) + _tl103817104010_) + (___kont110385110386_ + _tl103814104000_ + _hd103818104007_) (let () (declare (not safe)) - (_g103879103926_)))))) + (_g103809103856_)))))) (let () (declare (not safe)) - (_g103879103926_))))) + (_g103809103856_))))) (let () (declare (not safe)) - (_g103878103937_)))))))) - _form103798103847_)))))) + (_g103808103867_)))))))) + _form103728103777_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop103793103827_ - _target103790103821_ + (_loop103723103757_ + _target103720103751_ '())) - (_g103784103804_ _g103785103808_))))) - (_g103784103804_ _g103785103808_)))) - (_g103784103804_ _g103785103808_))))) - (_g103783104141_ _stx103778_))))))) + (_g103714103734_ _g103715103738_))))) + (_g103714103734_ _g103715103738_)))) + (_g103714103734_ _g103715103738_))))) + (_g103713104071_ _stx103708_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index 1d2f665a8..3f31ddf57 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 1707423037) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1707565657) '#!void) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index dad59db78..51a0a0a03 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 1707423039) + (define gerbil/runtime/init::timestamp 1707565659) (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+115908_ __*readtable*)) + (letrec* ((_+readtable+115838_ __*readtable*)) (let () (declare (not safe)) (__init-gx!)) - (let* ((_core115910_ (gx#import-module ':gerbil/core)) - (_pre115912_ (gx#make-prelude-context _core115910_))) - (gx#current-expander-module-prelude _pre115912_) - (gx#core-bind-root-syntax! ': _pre115912_ '#t) + (let* ((_core115840_ (gx#import-module ':gerbil/core)) + (_pre115842_ (gx#make-prelude-context _core115840_))) + (gx#current-expander-module-prelude _pre115842_) + (gx#core-bind-root-syntax! ': _pre115842_ '#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 (_port115915_) - (input-port-readtable-set! _port115915_ _+readtable+115908_)) + (lambda (_port115845_) + (input-port-readtable-set! _port115845_ _+readtable+115838_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port115917_) + (lambda (_port115847_) (output-port-readtable-set! - _port115917_ + _port115847_ (readtable-sharing-allowed?-set - (output-port-readtable _port115917_) + (output-port-readtable _port115847_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline115905_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline115835_) '#!void)) (define load-scheme - (lambda (_path115900_) - (let ((__tmp120113 + (lambda (_path115830_) + (let ((__tmp120043 (lambda () - (let ((__tmp120114 (lambda _args115903_ '#f))) + (let ((__tmp120044 (lambda _args115833_ '#f))) (declare (not safe)) - (##load _path115900_ __tmp120114 '#t '#t '#f))))) + (##load _path115830_ __tmp120044 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters - __tmp120113 + __tmp120043 __loading-scheme-source - _path115900_)))) + _path115830_)))) (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 _paths115895_ - (apply add-library-load-path _paths115895_) - (apply add-expander-load-path _paths115895_))) + (lambda _paths115825_ + (apply add-library-load-path _paths115825_) + (apply add-expander-load-path _paths115825_))) (define add-library-load-path - (lambda _paths115884_ - (let* ((_current115886_ (current-module-library-path)) - (_paths115888_ (map path-expand _paths115884_)) - (_paths115892_ - (let ((__tmp120115 - (lambda (_x115890_) - (let ((__tmp120116 - (member _x115890_ _current115886_))) + (lambda _paths115814_ + (let* ((_current115816_ (current-module-library-path)) + (_paths115818_ (map path-expand _paths115814_)) + (_paths115822_ + (let ((__tmp120045 + (lambda (_x115820_) + (let ((__tmp120046 + (member _x115820_ _current115816_))) (declare (not safe)) - (not __tmp120116))))) + (not __tmp120046))))) (declare (not safe)) - (filter __tmp120115 _paths115888_)))) + (filter __tmp120045 _paths115818_)))) (current-module-library-path - (append _current115886_ _paths115892_))))) + (append _current115816_ _paths115822_))))) (define add-expander-load-path - (lambda _paths115873_ - (let* ((_current115875_ (gx#current-expander-module-library-path)) - (_paths115877_ (map path-expand _paths115873_)) - (_paths115881_ - (let ((__tmp120117 - (lambda (_x115879_) - (let ((__tmp120118 - (member _x115879_ _current115875_))) + (lambda _paths115803_ + (let* ((_current115805_ (gx#current-expander-module-library-path)) + (_paths115807_ (map path-expand _paths115803_)) + (_paths115811_ + (let ((__tmp120047 + (lambda (_x115809_) + (let ((__tmp120048 + (member _x115809_ _current115805_))) (declare (not safe)) - (not __tmp120118))))) + (not __tmp120048))))) (declare (not safe)) - (filter __tmp120117 _paths115877_)))) + (filter __tmp120047 _paths115807_)))) (gx#current-expander-module-library-path - (append _current115875_ _paths115881_))))) + (append _current115805_ _paths115811_))))) (define cons-load-path - (lambda _paths115871_ - (apply cons-library-load-path _paths115871_) - (apply cons-expander-load-path _paths115871_))) + (lambda _paths115801_ + (apply cons-library-load-path _paths115801_) + (apply cons-expander-load-path _paths115801_))) (define cons-library-load-path - (lambda _paths115866_ - (let ((_current115868_ (current-module-library-path)) - (_paths115869_ (map path-expand _paths115866_))) + (lambda _paths115796_ + (let ((_current115798_ (current-module-library-path)) + (_paths115799_ (map path-expand _paths115796_))) (current-module-library-path - (append _paths115869_ _current115868_))))) + (append _paths115799_ _current115798_))))) (define cons-expander-load-path - (lambda _paths115861_ - (let ((_current115863_ (gx#current-expander-module-library-path)) - (_paths115864_ (map path-expand _paths115861_))) + (lambda _paths115791_ + (let ((_current115793_ (gx#current-expander-module-library-path)) + (_paths115794_ (map path-expand _paths115791_))) (gx#current-expander-module-library-path - (append _paths115864_ _current115863_))))) + (append _paths115794_ _current115793_))))) (define with-cons-load-path - (lambda (_thunk115857_ . _paths115858_) + (lambda (_thunk115787_ . _paths115788_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk115857_ - _paths115858_)) - _paths115858_))) + _thunk115787_ + _paths115788_)) + _paths115788_))) (define with-cons-library-load-path - (lambda (_thunk115850_ . _paths115851_) - (let ((_current115853_ (current-module-library-path)) - (_paths115854_ (map path-expand _paths115851_))) - (let ((__tmp120120 (lambda () (_thunk115850_))) - (__tmp120119 (append _paths115854_ _current115853_))) + (lambda (_thunk115780_ . _paths115781_) + (let ((_current115783_ (current-module-library-path)) + (_paths115784_ (map path-expand _paths115781_))) + (let ((__tmp120050 (lambda () (_thunk115780_))) + (__tmp120049 (append _paths115784_ _current115783_))) (declare (not safe)) (call-with-parameters - __tmp120120 + __tmp120050 current-module-library-path - __tmp120119))))) + __tmp120049))))) (define with-cons-expander-load-path - (lambda (_thunk115843_ . _paths115844_) - (let ((_current115846_ (gx#current-expander-module-library-path)) - (_paths115847_ (map path-expand _paths115844_))) - (let ((__tmp120122 (lambda () (_thunk115843_))) - (__tmp120121 (append _paths115847_ _current115846_))) + (lambda (_thunk115773_ . _paths115774_) + (let ((_current115776_ (gx#current-expander-module-library-path)) + (_paths115777_ (map path-expand _paths115774_))) + (let ((__tmp120052 (lambda () (_thunk115773_))) + (__tmp120051 (append _paths115777_ _current115776_))) (declare (not safe)) (call-with-parameters - __tmp120122 + __tmp120052 gx#current-expander-module-library-path - __tmp120121))))) + __tmp120051))))) (define __expand-source - (lambda (_src115829_) - (letrec ((_expand115831_ - (lambda (_src115841_) - (let ((__tmp120123 + (lambda (_src115759_) + (letrec ((_expand115761_ + (lambda (_src115771_) + (let ((__tmp120053 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src115841_))))) + (__source->syntax _src115771_))))) (declare (not safe)) - (__compile-top __tmp120123)))) - (_no-expand115832_ - (lambda (_src115837_) + (__compile-top __tmp120053)))) + (_no-expand115762_ + (lambda (_src115767_) (if (__loading-scheme-source) - _src115837_ + _src115767_ (if (let () (declare (not safe)) - (##source? _src115837_)) - (let ((_code115839_ + (##source? _src115767_)) + (let ((_code115769_ (let () (declare (not safe)) - (##source-code _src115837_)))) + (##source-code _src115767_)))) (if (let () (declare (not safe)) - (pair? _code115839_)) - (if (let ((__tmp120124 + (pair? _code115769_)) + (if (let ((__tmp120054 (let () (declare (not safe)) - (##car _code115839_)))) + (##car _code115769_)))) (declare (not safe)) - (eq? '__noexpand: __tmp120124)) + (eq? '__noexpand: __tmp120054)) (let () (declare (not safe)) - (##cdr _code115839_)) + (##cdr _code115769_)) '#f) '#f)) '#f))))) - (let ((_$e115834_ + (let ((_$e115764_ (let () (declare (not safe)) - (_no-expand115832_ _src115829_)))) - (if _$e115834_ - _$e115834_ - (let () (declare (not safe)) (_expand115831_ _src115829_))))))) + (_no-expand115762_ _src115759_)))) + (if _$e115764_ + _$e115764_ + (let () (declare (not safe)) (_expand115761_ _src115759_))))))) (define __macro-descr - (lambda (_src115815_ _def-syntax?115816_) - (letrec ((_fail!115818_ + (lambda (_src115745_ _def-syntax?115746_) + (letrec ((_fail!115748_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src115815_)))) - (_make-descr115819_ - (lambda (_size115823_) - (let ((_expander115826_ - (let ((__tmp120125 + _src115745_)))) + (_make-descr115749_ + (lambda (_size115753_) + (let ((_expander115756_ + (let ((__tmp120055 (lambda () (let () (declare (not safe)) (##eval-top - _src115815_ + _src115745_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp120125 + __tmp120055 __loading-scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander115826_)) + (procedure? _expander115756_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?115816_ - _size115823_ - _expander115826_ - _src115815_)) - (let () (declare (not safe)) (_fail!115818_))))))) - (if _def-syntax?115816_ - (let () (declare (not safe)) (_make-descr115819_ '-1)) - (let ((_code115821_ + _def-syntax?115746_ + _size115753_ + _expander115756_ + _src115745_)) + (let () (declare (not safe)) (_fail!115748_))))))) + (if _def-syntax?115746_ + (let () (declare (not safe)) (_make-descr115749_ '-1)) + (let ((_code115751_ (let () (declare (not safe)) - (##source-code _src115815_)))) - (if (and (let () (declare (not safe)) (##pair? _code115821_)) - (let ((__tmp120129 - (let ((__tmp120130 - (let ((__tmp120131 + (##source-code _src115745_)))) + (if (and (let () (declare (not safe)) (##pair? _code115751_)) + (let ((__tmp120059 + (let ((__tmp120060 + (let ((__tmp120061 (let () (declare (not safe)) - (##car _code115821_)))) + (##car _code115751_)))) (declare (not safe)) (##sourcify - __tmp120131 - _src115815_)))) + __tmp120061 + _src115745_)))) (declare (not safe)) - (##source-code __tmp120130)))) + (##source-code __tmp120060)))) (declare (not safe)) - (##memq __tmp120129 '(##lambda lambda)))) + (##memq __tmp120059 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src115815_ _src115815_ '-3)) - (let ((__tmp120126 - (let ((__tmp120127 - (let ((__tmp120128 + (##shape _src115745_ _src115745_ '-3)) + (let ((__tmp120056 + (let ((__tmp120057 + (let ((__tmp120058 (let () (declare (not safe)) - (##cadr _code115821_)))) + (##cadr _code115751_)))) (declare (not safe)) - (##sourcify __tmp120128 _src115815_)))) + (##sourcify __tmp120058 _src115745_)))) (declare (not safe)) - (##form-size __tmp120127)))) + (##form-size __tmp120057)))) (declare (not safe)) - (_make-descr115819_ __tmp120126))) - (let () (declare (not safe)) (_fail!115818_)))))))) + (_make-descr115749_ __tmp120056))) + (let () (declare (not safe)) (_fail!115748_)))))))) (define __source->syntax - (lambda (_src115809_) - (let _recur115811_ ((_e115813_ _src115809_)) - (if (let () (declare (not safe)) (##source? _e115813_)) - (let ((__tmp120139 - (let ((__tmp120140 + (lambda (_src115739_) + (let _recur115741_ ((_e115743_ _src115739_)) + (if (let () (declare (not safe)) (##source? _e115743_)) + (let ((__tmp120069 + (let ((__tmp120070 (let () (declare (not safe)) - (##source-code _e115813_)))) + (##source-code _e115743_)))) (declare (not safe)) - (_recur115811_ __tmp120140))) - (__tmp120138 - (let () (declare (not safe)) (##source-locat _e115813_)))) + (_recur115741_ __tmp120070))) + (__tmp120068 + (let () (declare (not safe)) (##source-locat _e115743_)))) (declare (not safe)) - (##structure AST::t __tmp120139 __tmp120138)) - (if (let () (declare (not safe)) (pair? _e115813_)) - (let ((__tmp120136 - (let ((__tmp120137 + (##structure AST::t __tmp120069 __tmp120068)) + (if (let () (declare (not safe)) (pair? _e115743_)) + (let ((__tmp120066 + (let ((__tmp120067 (let () (declare (not safe)) - (##car _e115813_)))) + (##car _e115743_)))) (declare (not safe)) - (_recur115811_ __tmp120137))) - (__tmp120134 - (let ((__tmp120135 + (_recur115741_ __tmp120067))) + (__tmp120064 + (let ((__tmp120065 (let () (declare (not safe)) - (##cdr _e115813_)))) + (##cdr _e115743_)))) (declare (not safe)) - (_recur115811_ __tmp120135)))) + (_recur115741_ __tmp120065)))) (declare (not safe)) - (cons __tmp120136 __tmp120134)) - (if (let () (declare (not safe)) (vector? _e115813_)) - (vector-map _recur115811_ _e115813_) - (if (let () (declare (not safe)) (box? _e115813_)) - (let ((__tmp120132 - (let ((__tmp120133 (unbox _e115813_))) + (cons __tmp120066 __tmp120064)) + (if (let () (declare (not safe)) (vector? _e115743_)) + (vector-map _recur115741_ _e115743_) + (if (let () (declare (not safe)) (box? _e115743_)) + (let ((__tmp120062 + (let ((__tmp120063 (unbox _e115743_))) (declare (not safe)) - (_recur115811_ __tmp120133)))) + (_recur115741_ __tmp120063)))) (declare (not safe)) - (box __tmp120132)) - _e115813_))))))) + (box __tmp120062)) + _e115743_))))))) (define __compile-top-source - (lambda (_stx115807_) - (let ((__tmp120141 - (let () (declare (not safe)) (__compile-top _stx115807_)))) + (lambda (_stx115737_) + (let ((__tmp120071 + (let () (declare (not safe)) (__compile-top _stx115737_)))) (declare (not safe)) - (cons '__noexpand: __tmp120141)))) + (cons '__noexpand: __tmp120071)))) (define __compile-top - (lambda (_stx115805_) - (let ((__tmp120142 (gx#core-compile-top-syntax _stx115805_))) + (lambda (_stx115735_) + (let ((__tmp120072 (gx#core-compile-top-syntax _stx115735_))) (declare (not safe)) - (__compile __tmp120142)))) + (__compile __tmp120072)))) (define __eval-import - (lambda (_in115786_) - (letrec* ((_mods115788_ + (lambda (_in115716_) + (letrec* ((_mods115718_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_import1115789_ - (lambda (_in115796_ _phi115797_) - (if (gx#module-import? _in115796_) - (let ((_iphi115799_ - (fx+ _phi115797_ - (gx#module-import-phi _in115796_)))) + (_import1115719_ + (lambda (_in115726_ _phi115727_) + (if (gx#module-import? _in115726_) + (let ((_iphi115729_ + (fx+ _phi115727_ + (gx#module-import-phi _in115726_)))) (if (let () (declare (not safe)) - (fxzero? _iphi115799_)) - (let ((__tmp120144 + (fxzero? _iphi115729_)) + (let ((__tmp120074 (gx#module-export-context - (gx#module-import-source _in115796_)))) + (gx#module-import-source _in115726_)))) (declare (not safe)) - (_eval1115790_ __tmp120144)) + (_eval1115720_ __tmp120074)) '#!void)) - (if (gx#module-context? _in115796_) + (if (gx#module-context? _in115726_) (if (let () (declare (not safe)) - (fxzero? _phi115797_)) + (fxzero? _phi115727_)) (let () (declare (not safe)) - (_eval1115790_ _in115796_)) + (_eval1115720_ _in115726_)) '#!void) - (if (gx#import-set? _in115796_) - (let ((_iphi115801_ - (fx+ _phi115797_ - (gx#import-set-phi _in115796_)))) + (if (gx#import-set? _in115726_) + (let ((_iphi115731_ + (fx+ _phi115727_ + (gx#import-set-phi _in115726_)))) (if (let () (declare (not safe)) - (fxzero? _iphi115801_)) - (let ((__tmp120143 + (fxzero? _iphi115731_)) + (let ((__tmp120073 (gx#import-set-source - _in115796_))) + _in115726_))) (declare (not safe)) - (_eval1115790_ __tmp120143)) - (if (fxpositive? _iphi115801_) + (_eval1115720_ __tmp120073)) + (if (fxpositive? _iphi115731_) (for-each - (lambda (_in115803_) + (lambda (_in115733_) (let () (declare (not safe)) - (_import1115789_ - _in115803_ - _iphi115801_))) + (_import1115719_ + _in115733_ + _iphi115731_))) (gx#module-context-import (gx#import-set-source - _in115796_))) + _in115726_))) '#!void))) - (error '"Unexpected import" _in115796_)))))) - (_eval1115790_ - (lambda (_ctx115794_) + (error '"Unexpected import" _in115726_)))))) + (_eval1115720_ + (lambda (_ctx115724_) (if (let () (declare (not safe)) - (table-ref _mods115788_ _ctx115794_ '#f)) + (table-ref _mods115718_ _ctx115724_ '#f)) '#!void (begin (let () (declare (not safe)) - (table-set! _mods115788_ _ctx115794_ '#t)) - (__eval-module _ctx115794_)))))) - (if (let () (declare (not safe)) (pair? _in115786_)) + (table-set! _mods115718_ _ctx115724_ '#t)) + (__eval-module _ctx115724_)))))) + (if (let () (declare (not safe)) (pair? _in115716_)) (for-each - (lambda (_in115792_) - (let () (declare (not safe)) (_import1115789_ _in115792_ '0))) - _in115786_) - (let () (declare (not safe)) (_import1115789_ _in115786_ '0)))))) + (lambda (_in115722_) + (let () (declare (not safe)) (_import1115719_ _in115722_ '0))) + _in115716_) + (let () (declare (not safe)) (_import1115719_ _in115716_ '0)))))) (define __eval-module - (lambda (_obj115779_) - (let* ((_key115781_ - (if (gx#module-context? _obj115779_) - (gx#module-context-path _obj115779_) - _obj115779_)) - (_$e115783_ + (lambda (_obj115709_) + (let* ((_key115711_ + (if (gx#module-context? _obj115709_) + (gx#module-context-path _obj115709_) + _obj115709_)) + (_$e115713_ (let () (declare (not safe)) - (table-ref __*modules* _key115781_ '#f)))) - (if _$e115783_ - (values _$e115783_) - (gx#core-eval-module _obj115779_))))) + (table-ref __*modules* _key115711_ '#f)))) + (if _$e115713_ + (values _$e115713_) + (gx#core-eval-module _obj115709_))))) (define gerbil-runtime-init! - (lambda (_builtin-modules115714_) + (lambda (_builtin-modules115644_) (if __runtime-initialized '#!void (begin - (let* ((_home115716_ (let () (declare (not safe)) (gerbil-home))) - (_libdir115718_ (path-expand '"lib" _home115716_)) - (_userpath115720_ + (let* ((_home115646_ (let () (declare (not safe)) (gerbil-home))) + (_libdir115648_ (path-expand '"lib" _home115646_)) + (_userpath115650_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath115722_ + (_loadpath115652_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) (let () (declare (not safe)) - (cons _libdir115718_ '())) - (let ((__tmp120145 + (cons _libdir115648_ '())) + (let ((__tmp120075 (let () (declare (not safe)) - (cons _libdir115718_ '())))) + (cons _libdir115648_ '())))) (declare (not safe)) - (cons _userpath115720_ __tmp120145)))) - (_loadpath115731_ - (let ((_$e115724_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e115724_ - ((lambda (_envvar115727_) - (append (let ((__tmp120147 - (lambda (_x115729_) - (let ((__tmp120148 + (cons _userpath115650_ __tmp120075)))) + (_loadpath115661_ + (let ((_$e115654_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e115654_ + ((lambda (_envvar115657_) + (append (let ((__tmp120077 + (lambda (_x115659_) + (let ((__tmp120078 (let () (declare (not safe)) (string-empty? - _x115729_)))) + _x115659_)))) (declare (not safe)) - (not __tmp120148)))) - (__tmp120146 + (not __tmp120078)))) + (__tmp120076 (let () (declare (not safe)) (string-split - _envvar115727_ + _envvar115657_ '#\:)))) (declare (not safe)) - (filter __tmp120147 __tmp120146)) - _loadpath115722_)) - _$e115724_) - _loadpath115722_)))) - (current-module-library-path _loadpath115731_)) - (let* ((_registry-entry115736_ - (lambda (_m115734_) + (filter __tmp120077 __tmp120076)) + _loadpath115652_)) + _$e115654_) + _loadpath115652_)))) + (current-module-library-path _loadpath115661_)) + (let* ((_registry-entry115666_ + (lambda (_m115664_) (let () (declare (not safe)) - (cons _m115734_ 'builtin)))) - (_module-registry115776_ - (let _lp115738_ ((_rest115740_ _builtin-modules115714_) - (_registry115741_ '())) - (let* ((_rest115742115750_ _rest115740_) - (_else115744115758_ + (cons _m115664_ 'builtin)))) + (_module-registry115706_ + (let _lp115668_ ((_rest115670_ _builtin-modules115644_) + (_registry115671_ '())) + (let* ((_rest115672115680_ _rest115670_) + (_else115674115688_ (lambda () (let () (declare (not safe)) - (list->table _registry115741_)))) - (_K115746115764_ - (lambda (_rest115761_ _mod115762_) - (let ((__tmp120149 - (let ((__tmp120153 - (let ((__tmp120154 + (list->table _registry115671_)))) + (_K115676115694_ + (lambda (_rest115691_ _mod115692_) + (let ((__tmp120079 + (let ((__tmp120083 + (let ((__tmp120084 (string-append - _mod115762_ + _mod115692_ '"__0"))) (declare (not safe)) - (_registry-entry115736_ - __tmp120154))) - (__tmp120150 - (let ((__tmp120151 - (let ((__tmp120152 + (_registry-entry115666_ + __tmp120084))) + (__tmp120080 + (let ((__tmp120081 + (let ((__tmp120082 (string-append - _mod115762_ + _mod115692_ '"__rt"))) (declare (not safe)) - (_registry-entry115736_ - __tmp120152)))) + (_registry-entry115666_ + __tmp120082)))) (declare (not safe)) - (cons __tmp120151 - _registry115741_)))) + (cons __tmp120081 + _registry115671_)))) (declare (not safe)) - (cons __tmp120153 __tmp120150)))) + (cons __tmp120083 __tmp120080)))) (declare (not safe)) - (_lp115738_ _rest115761_ __tmp120149))))) + (_lp115668_ _rest115691_ __tmp120079))))) (if (let () (declare (not safe)) - (##pair? _rest115742115750_)) - (let ((_hd115747115767_ + (##pair? _rest115672115680_)) + (let ((_hd115677115697_ (let () (declare (not safe)) - (##car _rest115742115750_))) - (_tl115748115769_ + (##car _rest115672115680_))) + (_tl115678115699_ (let () (declare (not safe)) - (##cdr _rest115742115750_)))) - (let* ((_mod115772_ _hd115747115767_) - (_rest115774_ _tl115748115769_)) + (##cdr _rest115672115680_)))) + (let* ((_mod115702_ _hd115677115697_) + (_rest115704_ _tl115678115699_)) (declare (not safe)) - (_K115746115764_ _rest115774_ _mod115772_))) + (_K115676115694_ _rest115704_ _mod115702_))) (let () (declare (not safe)) - (_else115744115758_))))))) - (current-module-registry _module-registry115776_)) + (_else115674115688_))))))) + (current-module-registry _module-registry115706_)) (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 f97493c16..cf9792e8c 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 1707423038) + (define gerbil/runtime/loader::timestamp 1707565657) (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 (_modpath68308_ _reload?68309_) - (let ((_$e68311_ - (if (let () (declare (not safe)) (not _reload?68309_)) - (let ((__tmp72524 (current-module-registry))) + (lambda (_modpath68313_ _reload?68314_) + (let ((_$e68316_ + (if (let () (declare (not safe)) (not _reload?68314_)) + (let ((__tmp72529 (current-module-registry))) (declare (not safe)) - (table-ref __tmp72524 _modpath68308_ '#f)) + (table-ref __tmp72529 _modpath68313_ '#f)) '#f))) - (if _$e68311_ - _$e68311_ - (let ((_$e68314_ + (if _$e68316_ + _$e68316_ + (let ((_$e68319_ (let () (declare (not safe)) - (find-library-module _modpath68308_)))) - (if _$e68314_ - ((lambda (_path68317_) - (let ((_lpath68319_ (load _path68317_))) - (let ((__tmp72525 (current-module-registry))) + (find-library-module _modpath68313_)))) + (if _$e68319_ + ((lambda (_path68322_) + (let ((_lpath68324_ (load _path68322_))) + (let ((__tmp72530 (current-module-registry))) (declare (not safe)) - (table-set! __tmp72525 _modpath68308_ _lpath68319_)) - _lpath68319_)) - _$e68314_) - (error '"module not found" _modpath68308_))))))) + (table-set! __tmp72530 _modpath68313_ _lpath68324_)) + _lpath68324_)) + _$e68319_) + (error '"module not found" _modpath68313_))))))) (define load-module__0 - (lambda (_modpath68324_) - (let ((_reload?68326_ (__reload-module))) + (lambda (_modpath68329_) + (let ((_reload?68331_ (__reload-module))) (declare (not safe)) - (load-module__% _modpath68324_ _reload?68326_)))) + (load-module__% _modpath68329_ _reload?68331_)))) (define load-module - (lambda _g72527_ - (let ((_g72526_ (let () (declare (not safe)) (##length _g72527_)))) - (cond ((let () (declare (not safe)) (##fx= _g72526_ 1)) - (apply (lambda (_modpath68324_) + (lambda _g72532_ + (let ((_g72531_ (let () (declare (not safe)) (##length _g72532_)))) + (cond ((let () (declare (not safe)) (##fx= _g72531_ 1)) + (apply (lambda (_modpath68329_) (let () (declare (not safe)) - (load-module__0 _modpath68324_))) - _g72527_)) - ((let () (declare (not safe)) (##fx= _g72526_ 2)) - (apply (lambda (_modpath68328_ _reload?68329_) + (load-module__0 _modpath68329_))) + _g72532_)) + ((let () (declare (not safe)) (##fx= _g72531_ 2)) + (apply (lambda (_modpath68333_ _reload?68334_) (let () (declare (not safe)) - (load-module__% _modpath68328_ _reload?68329_))) - _g72527_)) + (load-module__% _modpath68333_ _reload?68334_))) + _g72532_)) (else (##raise-wrong-number-of-arguments-exception load-module - _g72527_)))))) + _g72532_)))))) (define find-library-module - (lambda (_modpath68242_) - (letrec ((_find-compiled-file68244_ - (lambda (_npath68296_) - (let ((_basepath68298_ + (lambda (_modpath68247_) + (letrec ((_find-compiled-file68249_ + (lambda (_npath68301_) + (let ((_basepath68303_ (let () (declare (not safe)) - (##string-append _npath68296_ '".o")))) - (let _lp68300_ ((_current68302_ '#f) (_n68303_ '1)) - (let ((_next68305_ - (let ((__tmp72528 (number->string _n68303_))) + (##string-append _npath68301_ '".o")))) + (let _lp68305_ ((_current68307_ '#f) (_n68308_ '1)) + (let ((_next68310_ + (let ((__tmp72533 (number->string _n68308_))) (declare (not safe)) (##string-append - _basepath68298_ - __tmp72528)))) + _basepath68303_ + __tmp72533)))) (if (let () (declare (not safe)) - (##file-exists? _next68305_)) - (let ((__tmp72529 + (##file-exists? _next68310_)) + (let ((__tmp72534 (let () (declare (not safe)) - (##fx+ _n68303_ '1)))) + (##fx+ _n68308_ '1)))) (declare (not safe)) - (_lp68300_ _next68305_ __tmp72529)) - _current68302_)))))) - (_find-source-file68245_ - (lambda (_npath68292_) - (let ((_spath68294_ (string-append _npath68292_ '".scm"))) + (_lp68305_ _next68310_ __tmp72534)) + _current68307_)))))) + (_find-source-file68250_ + (lambda (_npath68297_) + (let ((_spath68299_ (string-append _npath68297_ '".scm"))) (if (let () (declare (not safe)) - (##file-exists? _spath68294_)) - _spath68294_ + (##file-exists? _spath68299_)) + _spath68299_ '#f))))) - (let _lp68247_ ((_rest68249_ (current-module-library-path))) - (let* ((_rest6825068258_ _rest68249_) - (_else6825268266_ (lambda () '#f)) - (_K6825468280_ - (lambda (_rest68269_ _dir68270_) - (let* ((_npath68272_ + (let _lp68252_ ((_rest68254_ (current-module-library-path))) + (let* ((_rest6825568263_ _rest68254_) + (_else6825768271_ (lambda () '#f)) + (_K6825968285_ + (lambda (_rest68274_ _dir68275_) + (let* ((_npath68277_ (path-expand - _modpath68242_ - (path-expand _dir68270_))) - (_$e68274_ + _modpath68247_ + (path-expand _dir68275_))) + (_$e68279_ (let () (declare (not safe)) - (_find-compiled-file68244_ _npath68272_)))) - (if _$e68274_ - (path-normalize _$e68274_) - (let ((_$e68277_ + (_find-compiled-file68249_ _npath68277_)))) + (if _$e68279_ + (path-normalize _$e68279_) + (let ((_$e68282_ (let () (declare (not safe)) - (_find-source-file68245_ _npath68272_)))) - (if _$e68277_ - (path-normalize _$e68277_) + (_find-source-file68250_ _npath68277_)))) + (if _$e68282_ + (path-normalize _$e68282_) (let () (declare (not safe)) - (_lp68247_ _rest68269_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6825068258_)) - (let ((_hd6825568283_ + (_lp68252_ _rest68274_))))))))) + (if (let () (declare (not safe)) (##pair? _rest6825568263_)) + (let ((_hd6826068288_ (let () (declare (not safe)) - (##car _rest6825068258_))) - (_tl6825668285_ + (##car _rest6825568263_))) + (_tl6826168290_ (let () (declare (not safe)) - (##cdr _rest6825068258_)))) - (let* ((_dir68288_ _hd6825568283_) - (_rest68290_ _tl6825668285_)) + (##cdr _rest6825568263_)))) + (let* ((_dir68293_ _hd6826068288_) + (_rest68295_ _tl6826168290_)) (declare (not safe)) - (_K6825468280_ _rest68290_ _dir68288_))) - (let () (declare (not safe)) (_else6825268266_)))))))))) + (_K6825968285_ _rest68295_ _dir68293_))) + (let () (declare (not safe)) (_else6825768271_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssi b/src/bootstrap/gerbil/runtime/mop.ssi index 3eaabff0f..1095d6bea 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssi +++ b/src/bootstrap/gerbil/runtime/mop.ssi @@ -16,7 +16,6 @@ namespace: #f (%#define-runtime class-type? class-type?) (%#define-runtime properties-form properties-form) (%#define-runtime make-type-descriptor make-type-descriptor) - (%#define-runtime make-type-descriptor* make-type-descriptor*) (%#define-runtime type-descriptor-precedence-list type-descriptor-precedence-list) @@ -34,20 +33,10 @@ namespace: #f (%#define-runtime type-descriptor-methods-set! type-descriptor-methods-set!) - (%#define-runtime type-descriptor-mixin type-descriptor-mixin) - (%#define-runtime type-descriptor-plist type-descriptor-plist) - (%#define-runtime type-descriptor-ctor type-descriptor-ctor) (%#define-runtime type-descriptor-fields type-descriptor-fields) (%#define-runtime type-descriptor-sealed? type-descriptor-sealed?) (%#define-runtime type-descriptor-seal! type-descriptor-seal!) - (%#begin (%#define-runtime make-struct-type__% make-struct-type__%) - (%#begin (%#define-runtime - make-struct-type__0 - make-struct-type__0) - (%#define-runtime - make-struct-type - make-struct-type))) - (%#define-runtime make-struct-type* make-struct-type*) + (%#define-runtime make-struct-type make-struct-type) (%#define-runtime make-struct-predicate make-struct-predicate) (%#define-runtime make-struct-slot-accessor make-struct-slot-accessor) (%#define-runtime make-struct-slot-mutator make-struct-slot-mutator) @@ -57,31 +46,19 @@ namespace: #f (%#define-runtime make-struct-slot-unchecked-mutator make-struct-slot-unchecked-mutator) + (%#define-runtime make-final-field-accessor make-final-field-accessor) (%#define-runtime make-struct-field-accessor make-struct-field-accessor) - (%#define-runtime - make-struct-field-accessor* - make-struct-field-accessor*) + (%#define-runtime make-final-field-mutator make-final-field-mutator) (%#define-runtime make-struct-field-mutator make-struct-field-mutator) - (%#define-runtime - make-struct-field-mutator* - make-struct-field-mutator*) (%#define-runtime make-struct-field-unchecked-accessor make-struct-field-unchecked-accessor) - (%#define-runtime - make-struct-field-unchecked-accessor* - make-struct-field-unchecked-accessor*) (%#define-runtime make-struct-field-unchecked-mutator make-struct-field-unchecked-mutator) - (%#define-runtime - make-struct-field-unchecked-mutator* - make-struct-field-unchecked-mutator*) - (%#define-runtime struct-field-offset* struct-field-offset*) (%#define-runtime substruct? substruct?) - (%#define-runtime struct-subtype? struct-subtype?) (%#define-runtime base-struct/1 base-struct/1) (%#define-runtime base-struct/2 base-struct/2) (%#define-runtime base-struct/list base-struct/list) @@ -90,13 +67,17 @@ namespace: #f (%#define-runtime find-super-constructor find-super-constructor) (%#define-runtime compute-class-slots compute-class-slots) (%#define-runtime make-class-type make-class-type) - (%#define-runtime make-class-type* make-class-type*) (%#define-runtime class-precedence-list class-precedence-list) (%#define-runtime struct-precedence-list struct-precedence-list) (%#define-runtime class-linearize-mixins class-linearize-mixins) (%#define-runtime make-class-predicate make-class-predicate) (%#define-runtime if-class-slot-field if-class-slot-field) (%#define-runtime make-class-slot-accessor make-class-slot-accessor) + (%#begin (%#define-runtime not-an-instance__% not-an-instance__%) + (%#begin (%#define-runtime + not-an-instance__0 + not-an-instance__0) + (%#define-runtime not-an-instance not-an-instance))) (%#define-runtime make-struct-subclass-field-accessor make-struct-subclass-field-accessor) @@ -122,9 +103,7 @@ namespace: #f (%#define-runtime make-class-cached-slot-unchecked-mutator make-class-cached-slot-unchecked-mutator) - (%#define-runtime ignore-slot ignore-slot) (%#define-runtime class-slot-offset class-slot-offset) - (%#define-runtime class-slot-offset* class-slot-offset*) (%#define-runtime class-slot-ref class-slot-ref) (%#define-runtime class-slot-set! class-slot-set!) (%#define-runtime unchecked-field-ref unchecked-field-ref) @@ -143,14 +122,12 @@ namespace: #f (%#define-runtime slot-set! slot-set!))) (%#define-runtime __slot-error __slot-error) (%#define-runtime subclass? subclass?) - (%#define-runtime class-subtype? class-subtype?) (%#define-runtime object? object?) (%#define-runtime object-type object-type) (%#define-runtime direct-instance? direct-instance?) (%#define-runtime struct-instance? struct-instance?) (%#define-runtime class-instance? class-instance?) (%#define-runtime make-object make-object) - (%#define-runtime make-object* make-object*) (%#define-runtime make-instance make-instance) (%#define-runtime make-struct-instance make-struct-instance) (%#define-runtime make-class-instance make-class-instance) @@ -171,7 +148,6 @@ namespace: #f (%#define-runtime checked-bound-method-ref checked-bound-method-ref) (%#define-runtime find-method find-method) (%#define-runtime __find-method __find-method) - (%#define-runtime struct-find-method struct-find-method) (%#define-runtime class-find-method class-find-method) (%#define-runtime mixin-find-method mixin-find-method) (%#define-runtime builtin-find-method builtin-find-method) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index 033719048..2d6ef1f19 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -10,8 +10,7 @@ package: gerbil/runtime (declare-type struct-type? (@lambda 1 #f)) (declare-type class-type? (@lambda 1 #f)) (declare-type properties-form (@lambda 1 #f)) - (declare-type make-type-descriptor (@lambda 9 make-type-descriptor*)) - (declare-type make-type-descriptor* (@lambda 9 #f)) + (declare-type make-type-descriptor (@lambda 9 #f)) (declare-type type-descriptor-precedence-list (@lambda 1 #f)) (declare-type type-descriptor-all-slots (@lambda 1 #f)) (declare-type type-descriptor-slot-table (@lambda 1 #f)) @@ -19,32 +18,22 @@ package: gerbil/runtime (declare-type type-descriptor-constructor (@lambda 1 #f)) (declare-type type-descriptor-methods (@lambda 1 #f)) (declare-type type-descriptor-methods-set! (@lambda 2 #f)) - (declare-type type-descriptor-mixin (@lambda 1 #f)) - (declare-type type-descriptor-plist (@lambda 1 #f)) - (declare-type type-descriptor-ctor (@lambda 1 #f)) (declare-type type-descriptor-fields (@lambda 1 #f)) (declare-type type-descriptor-sealed? (@lambda 1 #f)) (declare-type type-descriptor-seal! (@lambda 1 #f)) - (declare-type make-struct-type__% (@lambda 7 #f)) - (declare-type make-struct-type__0 (@lambda 6 #f)) (declare-type make-struct-type (@case-lambda (6 #f) (7 #f))) - (declare-type make-struct-type* (@lambda 6 #f)) (declare-type make-struct-predicate (@lambda 1 #f)) (declare-type make-struct-slot-accessor (@lambda 2 #f)) (declare-type make-struct-slot-mutator (@lambda 2 #f)) (declare-type make-struct-slot-unchecked-accessor (@lambda 2 #f)) (declare-type make-struct-slot-unchecked-mutator (@lambda 2 #f)) + (declare-type make-final-field-accessor (@lambda 3 #f)) (declare-type make-struct-field-accessor (@lambda 2 #f)) - (declare-type make-struct-field-accessor* (@lambda 2 #f)) + (declare-type make-final-field-mutator (@lambda 3 #f)) (declare-type make-struct-field-mutator (@lambda 2 #f)) - (declare-type make-struct-field-mutator* (@lambda 2 #f)) (declare-type make-struct-field-unchecked-accessor (@lambda 2 #f)) - (declare-type make-struct-field-unchecked-accessor* (@lambda 2 #f)) (declare-type make-struct-field-unchecked-mutator (@lambda 2 #f)) - (declare-type make-struct-field-unchecked-mutator* (@lambda 2 #f)) - (declare-type struct-field-offset* (@lambda 2 #f)) (declare-type substruct? (@lambda 2 #f)) - (declare-type struct-subtype? (@lambda 2 #f)) (declare-type base-struct/1 (@lambda 1 #f)) (declare-type base-struct/2 (@lambda 2 #f)) (declare-type base-struct/list (@lambda 1 #f)) @@ -53,13 +42,17 @@ package: gerbil/runtime (declare-type find-super-constructor (@lambda 1 #f)) (declare-type compute-class-slots (@lambda 3 #f)) (declare-type make-class-type (@lambda 6 #f)) - (declare-type make-class-type* (@lambda 6 #f)) (declare-type class-precedence-list (@lambda 1 #f)) (declare-type struct-precedence-list (@lambda 1 #f)) (declare-type class-linearize-mixins (@lambda 1 #f)) (declare-type make-class-predicate (@lambda 1 #f)) - (declare-type if-class-slot-field (@lambda 5 #f)) + (declare-type if-class-slot-field (@lambda 6 #f)) (declare-type make-class-slot-accessor (@lambda 2 #f)) + (declare-type not-an-instance__% (@lambda 3 #f)) + (declare-type not-an-instance__0 (@lambda 2 #f)) + (declare-type + not-an-instance + (@case-lambda (2 not-an-instance__0) (3 not-an-instance__%))) (declare-type make-struct-subclass-field-accessor (@lambda 3 #f)) (declare-type make-class-cached-slot-accessor (@lambda 3 #f)) (declare-type make-class-slot-mutator (@lambda 2 #f)) @@ -69,9 +62,7 @@ package: gerbil/runtime (declare-type make-class-cached-slot-unchecked-accessor (@lambda 3 #f)) (declare-type make-class-slot-unchecked-mutator (@lambda 2 #f)) (declare-type make-class-cached-slot-unchecked-mutator (@lambda 3 #f)) - (declare-type ignore-slot (@lambda 1 #f)) (declare-type class-slot-offset (@lambda 2 #f)) - (declare-type class-slot-offset* (@lambda 2 #f)) (declare-type class-slot-ref (@lambda 3 #f)) (declare-type class-slot-set! (@lambda 4 #f)) (declare-type unchecked-field-ref (@lambda 2 #f)) @@ -86,7 +77,6 @@ package: gerbil/runtime (declare-type slot-set! (@case-lambda (3 #f) (4 #f))) (declare-type __slot-error (@lambda 2 #f)) (declare-type subclass? (@lambda 2 #f)) - (declare-type class-subtype? (@lambda 2 #f)) (declare-type object? (@lambda 1 #f)) (declare-type object-type (@lambda 1 #f)) (declare-type @@ -100,7 +90,6 @@ package: gerbil/runtime (declare-type struct-instance? (@lambda 2 #f)) (declare-type class-instance? (@lambda 2 #f)) (declare-type make-object (@lambda 2 #f)) - (declare-type make-object* (@lambda 2 #f)) (declare-type make-instance (@lambda 1 #f)) (declare-type make-struct-instance (@lambda (1) #f)) (declare-type make-class-instance (@lambda (1) #f)) @@ -174,7 +163,6 @@ package: gerbil/runtime (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 struct-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)) diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index 2001c9c1b..78cce5b62 100644 --- a/src/bootstrap/gerbil/runtime/mop__0.scm +++ b/src/bootstrap/gerbil/runtime/mop__0.scm @@ -1,2469 +1,2330 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1707423038) + (define gerbil/runtime/mop::timestamp 1707565658) (begin (define type-id - (lambda (_klass82501_) - (if (let () (declare (not safe)) (type-descriptor? _klass82501_)) - (let () (declare (not safe)) (##type-id _klass82501_)) - (if (let () (declare (not safe)) (not _klass82501_)) + (lambda (_klass82448_) + (if (let () (declare (not safe)) (type-descriptor? _klass82448_)) + (let () (declare (not safe)) (##type-id _klass82448_)) + (if (let () (declare (not safe)) (not _klass82448_)) '#f - (error '"not a type descriptor" _klass82501_))))) + (error '"not a type descriptor" _klass82448_))))) (define type=? - (lambda (_x82498_ _y82499_) - (let ((__tmp86720 (let () (declare (not safe)) (type-id _x82498_))) - (__tmp86719 (let () (declare (not safe)) (type-id _y82499_)))) + (lambda (_x82445_ _y82446_) + (let ((__tmp86667 (let () (declare (not safe)) (type-id _x82445_))) + (__tmp86666 (let () (declare (not safe)) (type-id _y82446_)))) (declare (not safe)) - (eq? __tmp86720 __tmp86719)))) + (eq? __tmp86667 __tmp86666)))) (define type-descriptor? - (lambda (_klass82496_) - (if (let () (declare (not safe)) (##type? _klass82496_)) - (let ((__tmp86721 + (lambda (_klass82443_) + (if (let () (declare (not safe)) (##type? _klass82443_)) + (let ((__tmp86668 (let () (declare (not safe)) - (##structure-length _klass82496_)))) + (##structure-length _klass82443_)))) (declare (not safe)) - (eq? __tmp86721 '12)) + (eq? __tmp86668 '12)) '#f))) (define type-struct? - (lambda (_klass82494_) - (let ((__tmp86722 + (lambda (_klass82441_) + (let ((__tmp86669 (let () (declare (not safe)) - (type-descriptor-properties _klass82494_)))) + (type-descriptor-properties _klass82441_)))) (declare (not safe)) - (assgetq 'struct: __tmp86722)))) + (assgetq 'struct: __tmp86669)))) (define type-final? - (lambda (_klass82492_) - (let ((__tmp86723 + (lambda (_klass82439_) + (let ((__tmp86670 (let () (declare (not safe)) - (type-descriptor-properties _klass82492_)))) + (type-descriptor-properties _klass82439_)))) (declare (not safe)) - (assgetq 'final: __tmp86723)))) + (assgetq 'final: __tmp86670)))) (define struct-type? - (lambda (_klass82490_) - (if (let () (declare (not safe)) (type-descriptor? _klass82490_)) - (let () (declare (not safe)) (type-struct? _klass82490_)) + (lambda (_klass82437_) + (if (let () (declare (not safe)) (type-descriptor? _klass82437_)) + (let () (declare (not safe)) (type-struct? _klass82437_)) '#f))) (define class-type? - (lambda (_klass82488_) - (let () (declare (not safe)) (type-descriptor? _klass82488_)))) + (lambda (_klass82435_) + (let () (declare (not safe)) (type-descriptor? _klass82435_)))) (define properties-form - (lambda (_properties82454_) - (map (lambda (_e8245582457_) - (let* ((_g8245982466_ _e8245582457_) - (_E8246182470_ - (lambda () (error '"No clause matching" _g8245982466_))) - (_K8246282476_ - (lambda (_val82473_ _key82474_) + (lambda (_properties82401_) + (map (lambda (_e8240282404_) + (let* ((_g8240682413_ _e8240282404_) + (_E8240882417_ + (lambda () (error '"No clause matching" _g8240682413_))) + (_K8240982423_ + (lambda (_val82420_ _key82421_) (if (let () (declare (not safe)) - (eq? _key82474_ 'direct-supers:)) - (let ((__tmp86724 (map type-id _val82473_))) + (eq? _key82421_ 'direct-supers:)) + (let ((__tmp86671 (map type-id _val82420_))) (declare (not safe)) - (cons _key82474_ __tmp86724)) + (cons _key82421_ __tmp86671)) (let () (declare (not safe)) - (cons _key82474_ _val82473_)))))) - (if (let () (declare (not safe)) (##pair? _g8245982466_)) - (let ((_hd8246382479_ + (cons _key82421_ _val82420_)))))) + (if (let () (declare (not safe)) (##pair? _g8240682413_)) + (let ((_hd8241082426_ (let () (declare (not safe)) - (##car _g8245982466_))) - (_tl8246482481_ + (##car _g8240682413_))) + (_tl8241182428_ (let () (declare (not safe)) - (##cdr _g8245982466_)))) - (let* ((_key82484_ _hd8246382479_) - (_val82486_ _tl8246482481_)) + (##cdr _g8240682413_)))) + (let* ((_key82431_ _hd8241082426_) + (_val82433_ _tl8241182428_)) (declare (not safe)) - (_K8246282476_ _val82486_ _key82484_))) - (let () (declare (not safe)) (_E8246182470_))))) - _properties82454_))) + (_K8240982423_ _val82433_ _key82431_))) + (let () (declare (not safe)) (_E8240882417_))))) + _properties82401_))) (define make-type-descriptor - (lambda (_type-id82444_ - _type-name82445_ - _type-super82446_ - _rtd-mixin82447_ - _rtd-fields82448_ - _rtd-plist82449_ - _rtd-ctor82450_ - _rtd-slots82451_ - _rtd-methods82452_) - (let () - (declare (not safe)) - (make-type-descriptor* - _type-id82444_ - _type-name82445_ - _type-super82446_ - _rtd-mixin82447_ - _rtd-fields82448_ - _rtd-plist82449_ - _rtd-ctor82450_ - _rtd-slots82451_ - _rtd-methods82452_)))) - (define make-type-descriptor* - (lambda (_type-id82357_ - _type-name82358_ - _type-super82359_ - _precedence-list82360_ - _all-slots82361_ - _properties82362_ - _constructor82363_ - _slot-table82364_ - _methods82365_) - (letrec ((_make-props!82367_ - (lambda (_key82413_) - (letrec* ((_ht82415_ + (lambda (_type-id82314_ + _type-name82315_ + _type-super82316_ + _precedence-list82317_ + _all-slots82318_ + _properties82319_ + _constructor82320_ + _slot-table82321_ + _methods82322_) + (letrec ((_make-props!82324_ + (lambda (_key82370_) + (letrec* ((_ht82372_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_put-slots!82416_ - (lambda (_ht82437_ _slots82438_) + (_put-slots!82373_ + (lambda (_ht82394_ _slots82395_) (for-each - (lambda (_g8243982441_) + (lambda (_g8239682398_) (let () (declare (not safe)) (table-set! - _ht82437_ - _g8243982441_ + _ht82394_ + _g8239682398_ '#t))) - _slots82438_))) - (_put-alist!82417_ - (lambda (_ht82426_ _key82427_ _alist82428_) - (let ((_$e82430_ + _slots82395_))) + (_put-alist!82374_ + (lambda (_ht82383_ _key82384_ _alist82385_) + (let ((_$e82387_ (let () (declare (not safe)) - (assgetq _key82427_ _alist82428_)))) - (if _$e82430_ - ((lambda (_g8243282434_) + (assgetq _key82384_ _alist82385_)))) + (if _$e82387_ + ((lambda (_g8238982391_) (let () (declare (not safe)) - (_put-slots!82416_ - _ht82426_ - _g8243282434_))) - _$e82430_) + (_put-slots!82373_ + _ht82383_ + _g8238982391_))) + _$e82387_) '#!void))))) (let () (declare (not safe)) - (_put-alist!82417_ - _ht82415_ - _key82413_ - _properties82362_)) + (_put-alist!82374_ + _ht82372_ + _key82370_ + _properties82319_)) (for-each - (lambda (_mixin82419_) - (let ((_alist82421_ + (lambda (_mixin82376_) + (let ((_alist82378_ (let () (declare (not safe)) - (type-descriptor-properties _mixin82419_)))) + (type-descriptor-properties _mixin82376_)))) (if (or (let () (declare (not safe)) - (assgetq 'transparent: _alist82421_)) - (let ((__tmp86726 + (assgetq 'transparent: _alist82378_)) + (let ((__tmp86673 (let () (declare (not safe)) - (assgetq _key82413_ - _alist82421_)))) + (assgetq _key82370_ + _alist82378_)))) (declare (not safe)) - (eq? '#t __tmp86726))) - (let ((__tmp86725 + (eq? '#t __tmp86673))) + (let ((__tmp86672 (cdr (vector->list (let () (declare (not safe)) (type-descriptor-all-slots - _mixin82419_)))))) + _mixin82376_)))))) (declare (not safe)) - (_put-slots!82416_ _ht82415_ __tmp86725)) + (_put-slots!82373_ _ht82372_ __tmp86672)) (let () (declare (not safe)) - (_put-alist!82417_ - _ht82415_ - _key82413_ - _alist82421_))))) - _precedence-list82360_) - _ht82415_)))) - (let* ((_transparent?82369_ + (_put-alist!82374_ + _ht82372_ + _key82370_ + _alist82378_))))) + _precedence-list82317_) + _ht82372_)))) + (let* ((_transparent?82326_ (let () (declare (not safe)) - (assgetq 'transparent: _properties82362_))) - (_all-slots-printable?82374_ - (let ((_$e82371_ _transparent?82369_)) - (if _$e82371_ - _$e82371_ - (let ((__tmp86727 + (assgetq 'transparent: _properties82319_))) + (_all-slots-printable?82331_ + (let ((_$e82328_ _transparent?82326_)) + (if _$e82328_ + _$e82328_ + (let ((__tmp86674 (let () (declare (not safe)) - (assgetq 'print: _properties82362_)))) + (assgetq 'print: _properties82319_)))) (declare (not safe)) - (eq? '#t __tmp86727))))) - (_printable82376_ + (eq? '#t __tmp86674))))) + (_printable82333_ (if (let () (declare (not safe)) - (not _all-slots-printable?82374_)) + (not _all-slots-printable?82331_)) (let () (declare (not safe)) - (_make-props!82367_ 'print:)) + (_make-props!82324_ 'print:)) '#f)) - (_all-slots-equalable?82381_ - (let ((_$e82378_ _transparent?82369_)) - (if _$e82378_ - _$e82378_ - (let ((__tmp86728 + (_all-slots-equalable?82338_ + (let ((_$e82335_ _transparent?82326_)) + (if _$e82335_ + _$e82335_ + (let ((__tmp86675 (let () (declare (not safe)) - (assgetq 'equal: _properties82362_)))) + (assgetq 'equal: _properties82319_)))) (declare (not safe)) - (eq? '#t __tmp86728))))) - (_equalable82383_ + (eq? '#t __tmp86675))))) + (_equalable82340_ (if (let () (declare (not safe)) - (not _all-slots-equalable?82381_)) + (not _all-slots-equalable?82338_)) (let () (declare (not safe)) - (_make-props!82367_ 'equal:)) + (_make-props!82324_ 'equal:)) '#f)) - (_first-new-field82385_ - (if _type-super82359_ - (let ((__tmp86729 + (_first-new-field82342_ + (if _type-super82316_ + (let ((__tmp86676 (let () (declare (not safe)) - (type-descriptor-all-slots _type-super82359_)))) + (type-descriptor-all-slots _type-super82316_)))) (declare (not safe)) - (##vector-length __tmp86729)) + (##vector-length __tmp86676)) '1)) - (_field-info-length82387_ - (let ((__tmp86730 - (let ((__tmp86731 + (_field-info-length82344_ + (let ((__tmp86677 + (let ((__tmp86678 (let () (declare (not safe)) - (##vector-length _all-slots82361_)))) + (##vector-length _all-slots82318_)))) (declare (not safe)) - (##fx- __tmp86731 _first-new-field82385_)))) + (##fx- __tmp86678 _first-new-field82342_)))) (declare (not safe)) - (##fx* '3 __tmp86730))) - (_field-info82389_ (make-vector _field-info-length82387_ '#f)) - (_opaque?82394_ - (let ((_$e82391_ + (##fx* '3 __tmp86677))) + (_field-info82346_ (make-vector _field-info-length82344_ '#f)) + (_opaque?82351_ + (let ((_$e82348_ (let () (declare (not safe)) - (not _all-slots-equalable?82381_)))) - (if _$e82391_ - _$e82391_ - (if _type-super82359_ - (let ((__tmp86732 - (let ((__tmp86733 + (not _all-slots-equalable?82338_)))) + (if _$e82348_ + _$e82348_ + (if _type-super82316_ + (let ((__tmp86679 + (let ((__tmp86680 (let () (declare (not safe)) - (##type-flags _type-super82359_)))) + (##type-flags _type-super82316_)))) (declare (not safe)) - (##fxand __tmp86733 '1)))) + (##fxand __tmp86680 '1)))) (declare (not safe)) - (##fx= __tmp86732 '1)) + (##fx= __tmp86679 '1)) '#f))))) - (let _loop82397_ ((_i82399_ _first-new-field82385_) (_j82400_ '0)) + (let _loop82354_ ((_i82356_ _first-new-field82342_) (_j82357_ '0)) (if (let () (declare (not safe)) - (##fx< _j82400_ _field-info-length82387_)) - (let* ((_slot82402_ + (##fx< _j82357_ _field-info-length82344_)) + (let* ((_slot82359_ (let () (declare (not safe)) - (##vector-ref _all-slots82361_ _i82399_))) - (_flags82410_ - (if _transparent?82369_ + (##vector-ref _all-slots82318_ _i82356_))) + (_flags82367_ + (if _transparent?82326_ '0 - (let ((__tmp86735 - (if (or _all-slots-printable?82374_ + (let ((__tmp86682 + (if (or _all-slots-printable?82331_ (let () (declare (not safe)) (table-ref - _printable82376_ - _slot82402_ + _printable82333_ + _slot82359_ '#f))) '0 '1)) - (__tmp86734 - (if (or _all-slots-equalable?82381_ + (__tmp86681 + (if (or _all-slots-equalable?82338_ (let () (declare (not safe)) (table-ref - _equalable82383_ - _slot82402_ + _equalable82340_ + _slot82359_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp86735 __tmp86734))))) - (vector-set! _field-info82389_ _j82400_ _slot82402_) + (##fxior __tmp86682 __tmp86681))))) + (vector-set! _field-info82346_ _j82357_ _slot82359_) (vector-set! - _field-info82389_ - (let () (declare (not safe)) (##fx+ _j82400_ '1)) - _flags82410_) - (let ((__tmp86737 - (let () (declare (not safe)) (##fx+ _i82399_ '1))) - (__tmp86736 - (let () (declare (not safe)) (##fx+ _j82400_ '3)))) + _field-info82346_ + (let () (declare (not safe)) (##fx+ _j82357_ '1)) + _flags82367_) + (let ((__tmp86684 + (let () (declare (not safe)) (##fx+ _i82356_ '1))) + (__tmp86683 + (let () (declare (not safe)) (##fx+ _j82357_ '3)))) (declare (not safe)) - (_loop82397_ __tmp86737 __tmp86736))) + (_loop82354_ __tmp86684 __tmp86683))) '#!void)) - (let ((__tmp86738 (if _opaque?82394_ '25 '24))) + (let ((__tmp86685 (if _opaque?82351_ '25 '24))) (declare (not safe)) (##structure ##type-type - _type-id82357_ - _type-name82358_ - __tmp86738 - _type-super82359_ - _field-info82389_ - _precedence-list82360_ - _all-slots82361_ - _slot-table82364_ - _properties82362_ - _constructor82363_ - _methods82365_)))))) + _type-id82314_ + _type-name82315_ + __tmp86685 + _type-super82316_ + _field-info82346_ + _precedence-list82317_ + _all-slots82318_ + _slot-table82321_ + _properties82319_ + _constructor82320_ + _methods82322_)))))) (define type-descriptor-precedence-list - (lambda (_klass82355_) - (let () (declare (not safe)) (##vector-ref _klass82355_ '6)))) + (lambda (_klass82312_) + (let () + (declare (not safe)) + (##structure-ref + _klass82312_ + '6 + ##type-type + type-descriptor-precedence-list)))) (define type-descriptor-all-slots - (lambda (_klass82353_) - (let () (declare (not safe)) (##vector-ref _klass82353_ '7)))) + (lambda (_klass82310_) + (let () + (declare (not safe)) + (##structure-ref + _klass82310_ + '7 + ##type-type + type-descriptor-all-slots)))) (define type-descriptor-slot-table - (lambda (_klass82351_) - (let () (declare (not safe)) (##vector-ref _klass82351_ '8)))) + (lambda (_klass82308_) + (let () + (declare (not safe)) + (##structure-ref + _klass82308_ + '8 + ##type-type + type-descriptor-slot-table)))) (define type-descriptor-properties - (lambda (_klass82349_) - (let () (declare (not safe)) (##vector-ref _klass82349_ '9)))) + (lambda (_klass82306_) + (let () + (declare (not safe)) + (##structure-ref + _klass82306_ + '9 + ##type-type + type-descriptor-properties)))) (define type-descriptor-constructor - (lambda (_klass82347_) - (let () (declare (not safe)) (##vector-ref _klass82347_ '10)))) + (lambda (_klass82304_) + (let () + (declare (not safe)) + (##structure-ref + _klass82304_ + '10 + ##type-type + type-descriptor-constructor)))) (define type-descriptor-methods - (lambda (_klass82345_) - (let () (declare (not safe)) (##vector-ref _klass82345_ '11)))) + (lambda (_klass82302_) + (let () + (declare (not safe)) + (##structure-ref + _klass82302_ + '11 + ##type-type + type-descriptor-methods)))) (define type-descriptor-methods-set! - (lambda (_klass82342_ _ht82343_) + (lambda (_klass82299_ _ht82300_) (let () (declare (not safe)) - (##vector-set! _klass82342_ '11 _ht82343_)))) - (define type-descriptor-mixin type-descriptor-precedence-list) - (define type-descriptor-plist type-descriptor-properties) - (define type-descriptor-ctor type-descriptor-constructor) + (##structure-set! + _klass82299_ + _ht82300_ + '11 + ##type-type + type-descriptor-methods-set!)))) (define type-descriptor-fields - (lambda (_klass82340_) - (let ((__tmp86739 - (let ((__tmp86740 + (lambda (_klass82297_) + (let ((__tmp86686 + (let ((__tmp86687 (let () (declare (not safe)) - (type-descriptor-all-slots _klass82340_)))) + (type-descriptor-all-slots _klass82297_)))) (declare (not safe)) - (##vector-length __tmp86740)))) + (##vector-length __tmp86687)))) (declare (not safe)) - (##fx- __tmp86739 '1)))) + (##fx- __tmp86686 '1)))) (define type-descriptor-sealed? - (lambda (_klass82338_) - (let ((__tmp86741 - (let () (declare (not safe)) (##type-flags _klass82338_)))) + (lambda (_klass82295_) + (let ((__tmp86688 + (let () (declare (not safe)) (##type-flags _klass82295_)))) (declare (not safe)) - (##fxbit-set? '20 __tmp86741)))) + (##fxbit-set? '20 __tmp86688)))) (define type-descriptor-seal! - (lambda (_klass82336_) - (let ((__tmp86742 - (let ((__tmp86744 + (lambda (_klass82293_) + (let ((__tmp86689 + (let ((__tmp86691 (let () (declare (not safe)) (##fxarithmetic-shift '1 '20))) - (__tmp86743 + (__tmp86690 (let () (declare (not safe)) - (##type-flags _klass82336_)))) + (##type-flags _klass82293_)))) (declare (not safe)) - (##fxior __tmp86744 __tmp86743)))) - (declare (not safe)) - (##vector-set! _klass82336_ '3 __tmp86742)))) - (define make-struct-type__% - (lambda (_id82301_ - _super82302_ - _n-direct-slots82303_ - _name82304_ - _properties82305_ - _constructor82306_ - _direct-slots82307_) - (let ((__tmp86745 - (let ((_$e82309_ _direct-slots82307_)) - (if _$e82309_ - _$e82309_ - (map (lambda (_g8231182313_) - (let () - (declare (not safe)) - (make-symbol__1 '"_" _g8231182313_))) - (let ((__tmp86746 - (if _super82302_ - (let ((__tmp86747 - (let () - (declare (not safe)) - (type-descriptor-all-slots - _super82302_)))) - (declare (not safe)) - (##vector-length __tmp86747)) - '1))) - (declare (not safe)) - (iota _n-direct-slots82303_ __tmp86746))))))) + (##fxior __tmp86691 __tmp86690)))) (declare (not safe)) - (make-struct-type* - _id82301_ - _name82304_ - _super82302_ - __tmp86745 - _properties82305_ - _constructor82306_)))) - (define make-struct-type__0 - (lambda (_id82319_ - _super82320_ - _n-direct-slots82321_ - _name82322_ - _properties82323_ - _constructor82324_) - (let ((_direct-slots82326_ '#f)) - (declare (not safe)) - (make-struct-type__% - _id82319_ - _super82320_ - _n-direct-slots82321_ - _name82322_ - _properties82323_ - _constructor82324_ - _direct-slots82326_)))) + (##structure-set! + _klass82293_ + __tmp86689 + '3 + ##type-type + type-descriptor-seal!)))) (define make-struct-type - (lambda _g86749_ - (let ((_g86748_ (let () (declare (not safe)) (##length _g86749_)))) - (cond ((let () (declare (not safe)) (##fx= _g86748_ 6)) - (apply (lambda (_id82319_ - _super82320_ - _n-direct-slots82321_ - _name82322_ - _properties82323_ - _constructor82324_) - (let () - (declare (not safe)) - (make-struct-type__0 - _id82319_ - _super82320_ - _n-direct-slots82321_ - _name82322_ - _properties82323_ - _constructor82324_))) - _g86749_)) - ((let () (declare (not safe)) (##fx= _g86748_ 7)) - (apply (lambda (_id82328_ - _super82329_ - _n-direct-slots82330_ - _name82331_ - _properties82332_ - _constructor82333_ - _direct-slots82334_) - (let () - (declare (not safe)) - (make-struct-type__% - _id82328_ - _super82329_ - _n-direct-slots82330_ - _name82331_ - _properties82332_ - _constructor82333_ - _direct-slots82334_))) - _g86749_)) - (else - (##raise-wrong-number-of-arguments-exception - make-struct-type - _g86749_)))))) - (define make-struct-type* - (lambda (_id82281_ - _name82282_ - _super82283_ - _direct-slots82284_ - _properties82285_ - _constructor82286_) - (if (and _super82283_ - (let ((__tmp86750 + (lambda (_id82274_ + _name82275_ + _super82276_ + _direct-slots82277_ + _properties82278_ + _constructor82279_) + (if (and _super82276_ + (let ((__tmp86692 (let () (declare (not safe)) - (struct-type? _super82283_)))) + (struct-type? _super82276_)))) (declare (not safe)) - (not __tmp86750))) - (error '"illegal super type; not a struct-type" _super82283_) + (not __tmp86692))) + (error '"illegal super type; not a struct-type" _super82276_) '#!void) - (let* ((_type82288_ - (let ((__tmp86753 - (if _super82283_ + (let* ((_type82281_ + (let ((__tmp86695 + (if _super82276_ (let () (declare (not safe)) - (cons _super82283_ '())) + (cons _super82276_ '())) '())) - (__tmp86751 + (__tmp86693 (if (let () (declare (not safe)) - (assgetq 'struct: _properties82285_)) - _properties82285_ - (let ((__tmp86752 + (assgetq 'struct: _properties82278_)) + _properties82278_ + (let ((__tmp86694 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp86752 _properties82285_))))) + (cons __tmp86694 _properties82278_))))) (declare (not safe)) - (make-class-type* - _id82281_ - _name82282_ - __tmp86753 - _direct-slots82284_ - __tmp86751 - _constructor82286_))) - (_all-slots82290_ + (make-class-type + _id82274_ + _name82275_ + __tmp86695 + _direct-slots82277_ + __tmp86693 + _constructor82279_))) + (_all-slots82283_ (let () (declare (not safe)) - (type-descriptor-all-slots _type82288_))) - (_len82292_ (length _direct-slots82284_)) - (_start82294_ - (let ((__tmp86754 + (type-descriptor-all-slots _type82281_))) + (_len82285_ (length _direct-slots82277_)) + (_start82287_ + (let ((__tmp86696 (let () (declare (not safe)) - (##vector-length _all-slots82290_)))) + (##vector-length _all-slots82283_)))) (declare (not safe)) - (##fx- __tmp86754 _len82292_)))) - (if (let ((__tmp86756 - (lambda (_slot82297_ _i82298_) - (let ((__tmp86757 + (##fx- __tmp86696 _len82285_)))) + (if (let ((__tmp86698 + (lambda (_slot82290_ _i82291_) + (let ((__tmp86699 (let () (declare (not safe)) - (##vector-ref _all-slots82290_ _i82298_)))) + (##vector-ref _all-slots82283_ _i82291_)))) (declare (not safe)) - (eq? _slot82297_ __tmp86757)))) - (__tmp86755 + (eq? _slot82290_ __tmp86699)))) + (__tmp86697 (let () (declare (not safe)) - (iota _len82292_ _start82294_)))) + (iota _len82285_ _start82287_)))) (declare (not safe)) - (andmap2 __tmp86756 _direct-slots82284_ __tmp86755)) + (andmap2 __tmp86698 _direct-slots82277_ __tmp86697)) '#!void (error '"non-unique slots in struct" - _name82282_ - _direct-slots82284_)) - _type82288_))) + _name82275_ + _direct-slots82277_)) + _type82281_))) (define make-struct-predicate - (lambda (_klass82273_) - (let ((_tid82275_ - (let () (declare (not safe)) (##type-id _klass82273_)))) - (if (let () (declare (not safe)) (type-final? _klass82273_)) - (lambda (_obj82277_) + (lambda (_klass82266_) + (let ((_tid82268_ + (let () (declare (not safe)) (##type-id _klass82266_)))) + (if (let () (declare (not safe)) (type-final? _klass82266_)) + (lambda (_obj82270_) (let () (declare (not safe)) - (##structure-direct-instance-of? _obj82277_ _tid82275_))) - (lambda (_obj82279_) + (##structure-direct-instance-of? _obj82270_ _tid82268_))) + (lambda (_obj82272_) (let () (declare (not safe)) - (##structure-instance-of? _obj82279_ _tid82275_))))))) + (##structure-instance-of? _obj82272_ _tid82268_))))))) (define make-struct-slot-accessor - (lambda (_klass82261_ _slot82262_) - (let ((_$e82264_ + (lambda (_klass82254_ _slot82255_) + (let ((_$e82257_ (let () (declare (not safe)) - (class-slot-offset* _klass82261_ _slot82262_)))) - (if _$e82264_ - ((lambda (_off82267_) - (if (let () (declare (not safe)) (type-final? _klass82261_)) - (lambda (_obj82269_) + (class-slot-offset _klass82254_ _slot82255_)))) + (if _$e82257_ + ((lambda (_off82260_) + (if (let () (declare (not safe)) (type-final? _klass82254_)) + (lambda (_obj82262_) (let () (declare (not safe)) (##direct-structure-ref - _obj82269_ - _off82267_ - _klass82261_ + _obj82262_ + _off82260_ + _klass82254_ '#f))) - (lambda (_obj82271_) + (lambda (_obj82264_) (let () (declare (not safe)) (##structure-ref - _obj82271_ - _off82267_ - _klass82261_ + _obj82264_ + _off82260_ + _klass82254_ '#f))))) - _$e82264_) + _$e82257_) (error '"unknown slot" 'class: - _klass82261_ + _klass82254_ 'slot: - _slot82262_))))) + _slot82255_))))) (define make-struct-slot-mutator - (lambda (_klass82247_ _slot82248_) - (let ((_$e82250_ + (lambda (_klass82240_ _slot82241_) + (let ((_$e82243_ (let () (declare (not safe)) - (class-slot-offset* _klass82247_ _slot82248_)))) - (if _$e82250_ - ((lambda (_off82253_) - (if (let () (declare (not safe)) (type-final? _klass82247_)) - (lambda (_obj82255_ _val82256_) + (class-slot-offset _klass82240_ _slot82241_)))) + (if _$e82243_ + ((lambda (_off82246_) + (if (let () (declare (not safe)) (type-final? _klass82240_)) + (lambda (_obj82248_ _val82249_) (let () (declare (not safe)) (##direct-structure-set! - _obj82255_ - _val82256_ - _off82253_ - _klass82247_ + _obj82248_ + _val82249_ + _off82246_ + _klass82240_ '#f))) - (lambda (_obj82258_ _val82259_) + (lambda (_obj82251_ _val82252_) (let () (declare (not safe)) (##structure-set! - _obj82258_ - _val82259_ - _off82253_ - _klass82247_ + _obj82251_ + _val82252_ + _off82246_ + _klass82240_ '#f))))) - _$e82250_) + _$e82243_) (error '"unknown slot" 'class: - _klass82247_ + _klass82240_ 'slot: - _slot82248_))))) + _slot82241_))))) (define make-struct-slot-unchecked-accessor - (lambda (_klass82237_ _slot82238_) - (let ((_$e82240_ + (lambda (_klass82230_ _slot82231_) + (let ((_$e82233_ (let () (declare (not safe)) - (class-slot-offset* _klass82237_ _slot82238_)))) - (if _$e82240_ - ((lambda (_off82243_) - (lambda (_obj82245_) + (class-slot-offset _klass82230_ _slot82231_)))) + (if _$e82233_ + ((lambda (_off82236_) + (lambda (_obj82238_) (let () (declare (not safe)) (##unchecked-structure-ref - _obj82245_ - _off82243_ - _klass82237_ + _obj82238_ + _off82236_ + _klass82230_ '#f)))) - _$e82240_) + _$e82233_) (error '"unknown slot" 'class: - _klass82237_ + _klass82230_ 'slot: - _slot82238_))))) + _slot82231_))))) (define make-struct-slot-unchecked-mutator - (lambda (_klass82226_ _slot82227_) - (let ((_$e82229_ + (lambda (_klass82219_ _slot82220_) + (let ((_$e82222_ (let () (declare (not safe)) - (class-slot-offset* _klass82226_ _slot82227_)))) - (if _$e82229_ - ((lambda (_off82232_) - (lambda (_obj82234_ _val82235_) + (class-slot-offset _klass82219_ _slot82220_)))) + (if _$e82222_ + ((lambda (_off82225_) + (lambda (_obj82227_ _val82228_) (let () (declare (not safe)) (##unchecked-structure-set! - _obj82234_ - _val82235_ - _off82232_ - _klass82226_ + _obj82227_ + _val82228_ + _off82225_ + _klass82219_ '#f)))) - _$e82229_) + _$e82222_) (error '"unknown slot" 'class: - _klass82226_ + _klass82219_ 'slot: - _slot82227_))))) + _slot82220_))))) + (define make-final-field-accessor + (lambda (_klass82213_ _slot82214_ _field82215_) + (lambda (_obj82217_) + (let () + (declare (not safe)) + (##direct-structure-ref + _obj82217_ + _field82215_ + _klass82213_ + _slot82214_))))) (define make-struct-field-accessor - (lambda (_klass82223_ _field82224_) - (let ((__tmp86758 - (let () - (declare (not safe)) - (struct-field-offset* _klass82223_ _field82224_)))) - (declare (not safe)) - (make-struct-field-accessor* _klass82223_ __tmp86758)))) - (define make-struct-field-accessor* - (lambda (_klass82218_ _field82219_) - (lambda (_obj82221_) + (lambda (_klass82207_ _slot82208_ _field82209_) + (lambda (_obj82211_) + (let () + (declare (not safe)) + (##structure-ref + _obj82211_ + _field82209_ + _klass82207_ + _slot82208_))))) + (define make-final-field-mutator + (lambda (_klass82200_ _slot82201_ _field82202_) + (lambda (_obj82204_ _val82205_) (let () (declare (not safe)) - (##structure-ref _obj82221_ _field82219_ _klass82218_ '#f))))) + (##direct-structure-set! + _obj82204_ + _val82205_ + _field82202_ + _klass82200_ + _slot82201_))))) (define make-struct-field-mutator - (lambda (_klass82215_ _field82216_) - (let ((__tmp86759 - (let () - (declare (not safe)) - (struct-field-offset* _klass82215_ _field82216_)))) - (declare (not safe)) - (make-struct-field-mutator* _klass82215_ __tmp86759)))) - (define make-struct-field-mutator* - (lambda (_klass82209_ _field82210_) - (lambda (_obj82212_ _val82213_) + (lambda (_klass82193_ _slot82194_ _field82195_) + (lambda (_obj82197_ _val82198_) (let () (declare (not safe)) (##structure-set! - _obj82212_ - _val82213_ - _field82210_ - _klass82209_ - '#f))))) + _obj82197_ + _val82198_ + _field82195_ + _klass82193_ + _slot82194_))))) (define make-struct-field-unchecked-accessor - (lambda (_klass82206_ _field82207_) - (let ((__tmp86760 - (let () - (declare (not safe)) - (struct-field-offset* _klass82206_ _field82207_)))) - (declare (not safe)) - (make-struct-field-unchecked-accessor* _klass82206_ __tmp86760)))) - (define make-struct-field-unchecked-accessor* - (lambda (_klass82201_ _field82202_) - (lambda (_obj82204_) + (lambda (_klass82187_ _slot82188_ _field82189_) + (lambda (_obj82191_) (let () (declare (not safe)) (##unchecked-structure-ref - _obj82204_ - _field82202_ - _klass82201_ - '#f))))) + _obj82191_ + _field82189_ + _klass82187_ + _slot82188_))))) (define make-struct-field-unchecked-mutator - (lambda (_klass82198_ _field82199_) - (let ((__tmp86761 - (let () - (declare (not safe)) - (struct-field-offset* _klass82198_ _field82199_)))) - (declare (not safe)) - (make-struct-field-unchecked-mutator* _klass82198_ __tmp86761)))) - (define make-struct-field-unchecked-mutator* - (lambda (_klass82192_ _field82193_) - (lambda (_obj82195_ _val82196_) + (lambda (_klass82180_ _slot82181_ _field82182_) + (lambda (_obj82184_ _val82185_) (let () (declare (not safe)) (##unchecked-structure-set! - _obj82195_ - _val82196_ - _field82193_ - _klass82192_ - '#f))))) - (define struct-field-offset* - (lambda (_klass82187_ _field82188_) - (let ((__tmp86762 - (let ((_super82190_ - (let () - (declare (not safe)) - (##type-super _klass82187_)))) - (if _super82190_ - (let ((__tmp86763 - (let () - (declare (not safe)) - (type-descriptor-all-slots _super82190_)))) - (declare (not safe)) - (##vector-length __tmp86763)) - '1)))) - (declare (not safe)) - (##fx+ _field82188_ __tmp86762)))) + _obj82184_ + _val82185_ + _field82182_ + _klass82180_ + _slot82181_))))) (define substruct? - (lambda (_maybe-sub-struct82178_ _maybe-super-struct82179_) - (let ((_maybe-super-struct-id82181_ + (lambda (_maybe-sub-struct82171_ _maybe-super-struct82172_) + (let ((_maybe-super-struct-id82174_ (let () (declare (not safe)) - (##type-id _maybe-super-struct82179_)))) - (let _lp82183_ ((_super-struct82185_ _maybe-sub-struct82178_)) - (if (let () (declare (not safe)) (not _super-struct82185_)) + (##type-id _maybe-super-struct82172_)))) + (let _lp82176_ ((_super-struct82178_ _maybe-sub-struct82171_)) + (if (let () (declare (not safe)) (not _super-struct82178_)) '#f - (if (let ((__tmp86765 + (if (let ((__tmp86701 (let () (declare (not safe)) - (type-id _super-struct82185_)))) + (type-id _super-struct82178_)))) (declare (not safe)) - (eq? _maybe-super-struct-id82181_ __tmp86765)) + (eq? _maybe-super-struct-id82174_ __tmp86701)) '#t - (let ((__tmp86764 + (let ((__tmp86700 (let () (declare (not safe)) - (##type-super _super-struct82185_)))) + (##type-super _super-struct82178_)))) (declare (not safe)) - (_lp82183_ __tmp86764)))))))) - (define struct-subtype? - (lambda (_maybe-super-struct82175_ _maybe-sub-struct82176_) - (let () - (declare (not safe)) - (substruct? _maybe-sub-struct82176_ _maybe-super-struct82175_)))) + (_lp82176_ __tmp86700)))))))) (define base-struct/1 - (lambda (_klass82173_) - (if (let () (declare (not safe)) (struct-type? _klass82173_)) - _klass82173_ - (if (let () (declare (not safe)) (class-type? _klass82173_)) - (let () (declare (not safe)) (##type-super _klass82173_)) - (if (let () (declare (not safe)) (not _klass82173_)) + (lambda (_klass82169_) + (if (let () (declare (not safe)) (struct-type? _klass82169_)) + _klass82169_ + (if (let () (declare (not safe)) (class-type? _klass82169_)) + (let () (declare (not safe)) (##type-super _klass82169_)) + (if (let () (declare (not safe)) (not _klass82169_)) '#f - (error '"not a class or false" _klass82173_)))))) + (error '"not a class or false" _klass82169_)))))) (define base-struct/2 - (lambda (_klass182161_ _klass282162_) - (let ((_s182164_ - (let () (declare (not safe)) (base-struct/1 _klass182161_))) - (_s282165_ - (let () (declare (not safe)) (base-struct/1 _klass282162_)))) - (if (or (let () (declare (not safe)) (not _s182164_)) - (and _s282165_ + (lambda (_klass182157_ _klass282158_) + (let ((_s182160_ + (let () (declare (not safe)) (base-struct/1 _klass182157_))) + (_s282161_ + (let () (declare (not safe)) (base-struct/1 _klass282158_)))) + (if (or (let () (declare (not safe)) (not _s182160_)) + (and _s282161_ (let () (declare (not safe)) - (substruct? _s182164_ _s282165_)))) - _s282165_ - (if (or (let () (declare (not safe)) (not _s282165_)) - (and _s182164_ + (substruct? _s182160_ _s282161_)))) + _s282161_ + (if (or (let () (declare (not safe)) (not _s282161_)) + (and _s182160_ (let () (declare (not safe)) - (substruct? _s282165_ _s182164_)))) - _s182164_ + (substruct? _s282161_ _s182160_)))) + _s182160_ (error '"bad mixin: incompatible struct bases" - _klass182161_ - _klass282162_ - _s182164_ - _s282165_)))))) + _klass182157_ + _klass282158_ + _s182160_ + _s282161_)))))) (define base-struct/list - (lambda (_all-supers82045_) - (let* ((_all-supers8204682071_ _all-supers82045_) - (_E8205182075_ + (lambda (_all-supers82041_) + (let* ((_all-supers8204282067_ _all-supers82041_) + (_E8204782071_ (lambda () - (error '"No clause matching" _all-supers8204682071_)))) - (let ((_K8206982158_ (lambda () '#f)) - (_K8206682144_ - (lambda (_x82142_) - (let () (declare (not safe)) (base-struct/1 _x82142_)))) - (_K8206182121_ - (lambda (_y82118_ _x82119_) + (error '"No clause matching" _all-supers8204282067_)))) + (let ((_K8206582154_ (lambda () '#f)) + (_K8206282140_ + (lambda (_x82138_) + (let () (declare (not safe)) (base-struct/1 _x82138_)))) + (_K8205782117_ + (lambda (_y82114_ _x82115_) (let () (declare (not safe)) - (base-struct/2 _x82119_ _y82118_)))) - (_K8205282082_ - (lambda (_y82079_ _x82080_) + (base-struct/2 _x82115_ _y82114_)))) + (_K8204882078_ + (lambda (_y82075_ _x82076_) (let () (declare (not safe)) - (foldr1 base-struct/2 _x82080_ _y82079_))))) - (let* ((___match8671786718_ - (lambda (_hd8205382085_ _tl8205482087_) - (let ((_x82090_ _hd8205382085_)) - (letrec ((_splice-rest8205682092_ - (lambda (_rest8206082099_ _y82101_) + (foldr1 base-struct/2 _x82076_ _y82075_))))) + (let* ((___match8666486665_ + (lambda (_hd8204982081_ _tl8205082083_) + (let ((_x82086_ _hd8204982081_)) + (letrec ((_splice-rest8205282088_ + (lambda (_rest8205682095_ _y82097_) (if (let () (declare (not safe)) - (##null? _rest8206082099_)) + (##null? _rest8205682095_)) (let () (declare (not safe)) - (_K8205282082_ _y82101_ _x82090_)) + (_K8204882078_ _y82097_ _x82086_)) (let () (declare (not safe)) - (_E8205182075_))))) - (_splice-try8205882094_ - (lambda (_hd8205982103_ - _rest8206082105_ - _y8205582106_) - (let ((_y82109_ _hd8205982103_)) - (let ((__tmp86767 + (_E8204782071_))))) + (_splice-try8205482090_ + (lambda (_hd8205582099_ + _rest8205682101_ + _y8205182102_) + (let ((_y82105_ _hd8205582099_)) + (let ((__tmp86703 (let () (declare (not safe)) - (##cdr _rest8206082105_))) - (__tmp86766 + (##cdr _rest8205682101_))) + (__tmp86702 (let () (declare (not safe)) - (cons _y82109_ _y8205582106_)))) + (cons _y82105_ _y8205182102_)))) (declare (not safe)) - (_splice-loop8205782096_ - __tmp86767 - __tmp86766))))) - (_splice-loop8205782096_ - (lambda (_rest8206082111_ _y8205582112_) + (_splice-loop8205382092_ + __tmp86703 + __tmp86702))))) + (_splice-loop8205382092_ + (lambda (_rest8205682107_ _y8205182108_) (if (let () (declare (not safe)) - (pair? _rest8206082111_)) - (let ((__tmp86769 + (pair? _rest8205682107_)) + (let ((__tmp86705 (let () (declare (not safe)) - (##car _rest8206082111_)))) + (##car _rest8205682107_)))) (declare (not safe)) - (_splice-try8205882094_ - __tmp86769 - _rest8206082111_ - _y8205582112_)) - (let ((__tmp86768 - (reverse _y8205582112_))) + (_splice-try8205482090_ + __tmp86705 + _rest8205682107_ + _y8205182108_)) + (let ((__tmp86704 + (reverse _y8205182108_))) (declare (not safe)) - (_splice-rest8205682092_ - _rest8206082111_ - __tmp86768)))))) + (_splice-rest8205282088_ + _rest8205682107_ + __tmp86704)))))) (let () (declare (not safe)) - (_splice-loop8205782096_ _tl8205482087_ '())))))) - (_try-match8204882154_ + (_splice-loop8205382092_ _tl8205082083_ '())))))) + (_try-match8204482150_ (lambda () (if (let () (declare (not safe)) - (##pair? _all-supers8204682071_)) - (let ((_tl8206882149_ + (##pair? _all-supers8204282067_)) + (let ((_tl8206482145_ (let () (declare (not safe)) - (##cdr _all-supers8204682071_))) - (_hd8206782147_ + (##cdr _all-supers8204282067_))) + (_hd8206382143_ (let () (declare (not safe)) - (##car _all-supers8204682071_)))) + (##car _all-supers8204282067_)))) (if (let () (declare (not safe)) - (##null? _tl8206882149_)) - (let ((_x82152_ _hd8206782147_)) + (##null? _tl8206482145_)) + (let ((_x82148_ _hd8206382143_)) (declare (not safe)) - (base-struct/1 _x82152_)) + (base-struct/1 _x82148_)) (if (let () (declare (not safe)) - (##pair? _tl8206882149_)) - (let ((_tl8206582133_ + (##pair? _tl8206482145_)) + (let ((_tl8206182129_ (let () (declare (not safe)) - (##cdr _tl8206882149_))) - (_hd8206482131_ + (##cdr _tl8206482145_))) + (_hd8206082127_ (let () (declare (not safe)) - (##car _tl8206882149_)))) + (##car _tl8206482145_)))) (if (let () (declare (not safe)) - (##null? _tl8206582133_)) - (let ((_x82129_ _hd8206782147_) - (_y82136_ _hd8206482131_)) + (##null? _tl8206182129_)) + (let ((_x82125_ _hd8206382143_) + (_y82132_ _hd8206082127_)) (let () (declare (not safe)) - (_K8206182121_ - _y82136_ - _x82129_))) - (___match8671786718_ - _hd8206782147_ - _tl8206882149_))) - (___match8671786718_ - _hd8206782147_ - _tl8206882149_)))) - (let () (declare (not safe)) (_E8205182075_)))))) + (_K8205782117_ + _y82132_ + _x82125_))) + (___match8666486665_ + _hd8206382143_ + _tl8206482145_))) + (___match8666486665_ + _hd8206382143_ + _tl8206482145_)))) + (let () (declare (not safe)) (_E8204782071_)))))) (if (let () (declare (not safe)) - (##null? _all-supers8204682071_)) - (let () (declare (not safe)) (_K8206982158_)) - (let () (declare (not safe)) (_try-match8204882154_)))))))) + (##null? _all-supers8204282067_)) + (let () (declare (not safe)) (_K8206582154_)) + (let () (declare (not safe)) (_try-match8204482150_)))))))) (define base-struct - (lambda _all-supers82043_ - (let () (declare (not safe)) (base-struct/list _all-supers82043_)))) + (lambda _all-supers82039_ + (let () (declare (not safe)) (base-struct/list _all-supers82039_)))) (define find-super-ctor - (lambda (_super82041_) - (let () (declare (not safe)) (find-super-constructor _super82041_)))) + (lambda (_super82037_) + (let () (declare (not safe)) (find-super-constructor _super82037_)))) (define find-super-constructor - (lambda (_super81993_) - (let _lp81995_ ((_rest81997_ _super81993_) (_constructor81998_ '#f)) - (let* ((_rest8199982007_ _rest81997_) - (_else8200182015_ (lambda () _constructor81998_)) - (_K8200382029_ - (lambda (_rest82018_ _hd82019_) - (let ((_$e82021_ + (lambda (_super81989_) + (let _lp81991_ ((_rest81993_ _super81989_) (_constructor81994_ '#f)) + (let* ((_rest8199582003_ _rest81993_) + (_else8199782011_ (lambda () _constructor81994_)) + (_K8199982025_ + (lambda (_rest82014_ _hd82015_) + (let ((_$e82017_ (let () (declare (not safe)) - (type-descriptor-constructor _hd82019_)))) - (if _$e82021_ - ((lambda (_xconstructor82024_) + (type-descriptor-constructor _hd82015_)))) + (if _$e82017_ + ((lambda (_xconstructor82020_) (if (or (let () (declare (not safe)) - (not _constructor81998_)) + (not _constructor81994_)) (let () (declare (not safe)) - (eq? _constructor81998_ - _xconstructor82024_))) + (eq? _constructor81994_ + _xconstructor82020_))) (let () (declare (not safe)) - (_lp81995_ _rest82018_ _xconstructor82024_)) + (_lp81991_ _rest82014_ _xconstructor82020_)) (error '"conflicting implicit constructors" - _constructor81998_ - _xconstructor82024_))) - _$e82021_) + _constructor81994_ + _xconstructor82020_))) + _$e82017_) (let () (declare (not safe)) - (_lp81995_ _rest82018_ _constructor81998_))))))) - (if (let () (declare (not safe)) (##pair? _rest8199982007_)) - (let ((_hd8200482032_ - (let () (declare (not safe)) (##car _rest8199982007_))) - (_tl8200582034_ - (let () (declare (not safe)) (##cdr _rest8199982007_)))) - (let* ((_hd82037_ _hd8200482032_) - (_rest82039_ _tl8200582034_)) + (_lp81991_ _rest82014_ _constructor81994_))))))) + (if (let () (declare (not safe)) (##pair? _rest8199582003_)) + (let ((_hd8200082028_ + (let () (declare (not safe)) (##car _rest8199582003_))) + (_tl8200182030_ + (let () (declare (not safe)) (##cdr _rest8199582003_)))) + (let* ((_hd82033_ _hd8200082028_) + (_rest82035_ _tl8200182030_)) (declare (not safe)) - (_K8200382029_ _rest82039_ _hd82037_))) - (let () (declare (not safe)) (_else8200182015_))))))) + (_K8199982025_ _rest82035_ _hd82033_))) + (let () (declare (not safe)) (_else8199782011_))))))) (define compute-class-slots - (lambda (_super-struct81964_ - _class-precedence-list81965_ - _direct-slots81966_) - (let* ((_previous-slots81968_ - (if _super-struct81964_ + (lambda (_super-struct81960_ + _class-precedence-list81961_ + _direct-slots81962_) + (let* ((_previous-slots81964_ + (if _super-struct81960_ (let () (declare (not safe)) - (type-descriptor-all-slots _super-struct81964_)) + (type-descriptor-all-slots _super-struct81960_)) '#(#f))) - (_next-slot81970_ + (_next-slot81966_ (let () (declare (not safe)) - (##vector-length _previous-slots81968_))) - (_slot-table81972_ - (if _super-struct81964_ - (let ((__tmp86770 + (##vector-length _previous-slots81964_))) + (_slot-table81968_ + (if _super-struct81960_ + (let ((__tmp86706 (let () (declare (not safe)) (type-descriptor-slot-table - _super-struct81964_)))) + _super-struct81960_)))) (declare (not safe)) - (hash-copy __tmp86770)) + (hash-copy __tmp86706)) (let () (declare (not safe)) (make-table 'test: eq?)))) - (_r-slots81974_ '()) - (_process-slot81978_ - (lambda (_slot81976_) - (if (let () (declare (not safe)) (symbol? _slot81976_)) + (_r-slots81970_ '()) + (_process-slot81974_ + (lambda (_slot81972_) + (if (let () (declare (not safe)) (symbol? _slot81972_)) '#!void - (error '"invalid slot name" _slot81976_)) + (error '"invalid slot name" _slot81972_)) (if (let () (declare (not safe)) - (hash-key? _slot-table81972_ _slot81976_)) + (hash-key? _slot-table81968_ _slot81972_)) '#!void (begin (let () (declare (not safe)) (table-set! - _slot-table81972_ - _slot81976_ - _next-slot81970_)) - (let ((__tmp86771 (symbol->keyword _slot81976_))) + _slot-table81968_ + _slot81972_ + _next-slot81966_)) + (let ((__tmp86707 (symbol->keyword _slot81972_))) (declare (not safe)) (table-set! - _slot-table81972_ - __tmp86771 - _next-slot81970_)) - (set! _r-slots81974_ + _slot-table81968_ + __tmp86707 + _next-slot81966_)) + (set! _r-slots81970_ (let () (declare (not safe)) - (cons _slot81976_ _r-slots81974_))) - (set! _next-slot81970_ + (cons _slot81972_ _r-slots81970_))) + (set! _next-slot81966_ (let () (declare (not safe)) - (##fx+ _next-slot81970_ '1))))))) - (_process-slots81984_ - (lambda (_g8197981981_) - (for-each _process-slot81978_ _g8197981981_)))) + (##fx+ _next-slot81966_ '1))))))) + (_process-slots81980_ + (lambda (_g8197581977_) + (for-each _process-slot81974_ _g8197581977_)))) (for-each - (lambda (_mixin81987_) - (if (let () (declare (not safe)) (type-struct? _mixin81987_)) + (lambda (_mixin81983_) + (if (let () (declare (not safe)) (type-struct? _mixin81983_)) '#!void - (let ((__tmp86772 - (let ((__tmp86773 + (let ((__tmp86708 + (let ((__tmp86709 (let () (declare (not safe)) - (type-descriptor-properties _mixin81987_)))) + (type-descriptor-properties _mixin81983_)))) (declare (not safe)) - (assgetq 'direct-slots: __tmp86773 '())))) + (assgetq 'direct-slots: __tmp86709 '())))) (declare (not safe)) - (_process-slots81984_ __tmp86772)))) - (reverse _class-precedence-list81965_)) + (_process-slots81980_ __tmp86708)))) + (reverse _class-precedence-list81961_)) (let () (declare (not safe)) - (_process-slots81984_ _direct-slots81966_)) - (let ((_all-slots81989_ (make-vector _next-slot81970_ '#f))) - (vector-copy! _all-slots81989_ '0 _previous-slots81968_) + (_process-slots81980_ _direct-slots81962_)) + (let ((_all-slots81985_ (make-vector _next-slot81966_ '#f))) + (vector-copy! _all-slots81985_ '0 _previous-slots81964_) (for-each - (lambda (_slot81991_) - (set! _next-slot81970_ - (let () (declare (not safe)) (##fx- _next-slot81970_ '1))) - (vector-set! _all-slots81989_ _next-slot81970_ _slot81991_)) - _r-slots81974_) - (values _all-slots81989_ _slot-table81972_))))) + (lambda (_slot81987_) + (set! _next-slot81966_ + (let () (declare (not safe)) (##fx- _next-slot81966_ '1))) + (vector-set! _all-slots81985_ _next-slot81966_ _slot81987_)) + _r-slots81970_) + (values _all-slots81985_ _slot-table81968_))))) (define make-class-type - (lambda (_id81957_ - _direct-supers81958_ - _direct-slots81959_ - _name81960_ - _properties81961_ - _constructor81962_) - (let () - (declare (not safe)) - (make-class-type* - _id81957_ - _name81960_ - _direct-supers81958_ - _direct-slots81959_ - _properties81961_ - _constructor81962_)))) - (define make-class-type* - (lambda (_id81919_ - _name81920_ - _direct-supers81921_ - _direct-slots81922_ - _properties81923_ - _constructor81924_) - (let ((_$e81928_ - (let ((__tmp86774 - (lambda (_klass81926_) - (let ((__tmp86775 + (lambda (_id81922_ + _name81923_ + _direct-supers81924_ + _direct-slots81925_ + _properties81926_ + _constructor81927_) + (let ((_$e81931_ + (let ((__tmp86710 + (lambda (_klass81929_) + (let ((__tmp86711 (let () (declare (not safe)) - (type-descriptor? _klass81926_)))) + (type-descriptor? _klass81929_)))) (declare (not safe)) - (not __tmp86775))))) + (not __tmp86711))))) (declare (not safe)) - (find __tmp86774 _direct-supers81921_)))) - (if _$e81928_ - ((lambda (_g8193081932_) + (find __tmp86710 _direct-supers81924_)))) + (if _$e81931_ + ((lambda (_g8193381935_) (error '"Illegal super class; not a type descriptor" - _g8193081932_)) - _$e81928_) - (let ((_$e81935_ + _g8193381935_)) + _$e81931_) + (let ((_$e81938_ (let () (declare (not safe)) - (find type-final? _direct-supers81921_)))) - (if _$e81935_ - ((lambda (_g8193781939_) - (error '"Cannot extend final class" _g8193781939_)) - _$e81935_) + (find type-final? _direct-supers81924_)))) + (if _$e81938_ + ((lambda (_g8194081942_) + (error '"Cannot extend final class" _g8194081942_)) + _$e81938_) '#!void)))) - (let* ((_struct-super81942_ + (let* ((_struct-super81945_ (let () (declare (not safe)) - (base-struct/list _direct-supers81921_))) - (_precedence-list81944_ + (base-struct/list _direct-supers81924_))) + (_precedence-list81947_ (let () (declare (not safe)) - (class-linearize-mixins _direct-supers81921_))) - (_g86776_ + (class-linearize-mixins _direct-supers81924_))) + (_g86712_ (let () (declare (not safe)) (compute-class-slots - _struct-super81942_ - _precedence-list81944_ - _direct-slots81922_)))) + _struct-super81945_ + _precedence-list81947_ + _direct-slots81925_)))) (begin - (let ((_g86777_ + (let ((_g86713_ (let () (declare (not safe)) - (if (##values? _g86776_) (##vector-length _g86776_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g86777_ 2))) - (error "Context expects 2 values" _g86777_))) - (let ((_all-slots81946_ - (let () (declare (not safe)) (##vector-ref _g86776_ 0))) - (_slot-table81947_ - (let () (declare (not safe)) (##vector-ref _g86776_ 1)))) - (let* ((_properties81949_ - (let ((__tmp86780 + (if (##values? _g86712_) (##vector-length _g86712_) 1)))) + (if (not (let () (declare (not safe)) (##fx= _g86713_ 2))) + (error "Context expects 2 values" _g86713_))) + (let ((_all-slots81949_ + (let () (declare (not safe)) (##vector-ref _g86712_ 0))) + (_slot-table81950_ + (let () (declare (not safe)) (##vector-ref _g86712_ 1)))) + (let* ((_properties81952_ + (let ((__tmp86716 (let () (declare (not safe)) - (cons 'direct-slots: _direct-slots81922_))) - (__tmp86778 - (let ((__tmp86779 + (cons 'direct-slots: _direct-slots81925_))) + (__tmp86714 + (let ((__tmp86715 (let () (declare (not safe)) (cons 'direct-supers: - _direct-supers81921_)))) + _direct-supers81924_)))) (declare (not safe)) - (cons __tmp86779 _properties81923_)))) + (cons __tmp86715 _properties81926_)))) (declare (not safe)) - (cons __tmp86780 __tmp86778))) - (_constructor*81954_ - (let ((_$e81951_ _constructor81924_)) - (if _$e81951_ - _$e81951_ + (cons __tmp86716 __tmp86714))) + (_constructor*81957_ + (let ((_$e81954_ _constructor81927_)) + (if _$e81954_ + _$e81954_ (let () (declare (not safe)) (find-super-constructor - _direct-supers81921_)))))) + _direct-supers81924_)))))) (let () (declare (not safe)) - (make-type-descriptor* - _id81919_ - _name81920_ - _struct-super81942_ - _precedence-list81944_ - _all-slots81946_ - _properties81949_ - _constructor*81954_ - _slot-table81947_ + (make-type-descriptor + _id81922_ + _name81923_ + _struct-super81945_ + _precedence-list81947_ + _all-slots81949_ + _properties81952_ + _constructor*81957_ + _slot-table81950_ '#f)))))))) (define class-precedence-list - (lambda (_klass81917_) - (let ((__tmp86781 + (lambda (_klass81920_) + (let ((__tmp86717 (let () (declare (not safe)) - (type-descriptor-precedence-list _klass81917_)))) + (type-descriptor-precedence-list _klass81920_)))) (declare (not safe)) - (cons _klass81917_ __tmp86781)))) + (cons _klass81920_ __tmp86717)))) (define struct-precedence-list - (lambda (_strukt81912_) - (let ((__tmp86782 - (let ((_$e81914_ + (lambda (_strukt81915_) + (let ((__tmp86718 + (let ((_$e81917_ (let () (declare (not safe)) - (##type-super _strukt81912_)))) - (if _$e81914_ + (##type-super _strukt81915_)))) + (if _$e81917_ (let () (declare (not safe)) - (struct-precedence-list _$e81914_)) + (struct-precedence-list _$e81917_)) '())))) (declare (not safe)) - (cons _strukt81912_ __tmp86782)))) + (cons _strukt81915_ __tmp86718)))) (define class-linearize-mixins - (lambda (_klass-lst81910_) + (lambda (_klass-lst81913_) (let () (declare (not safe)) (c3-linearize__% '() - _klass-lst81910_ + _klass-lst81913_ class-precedence-list eq? ##type-name)))) (define make-class-predicate - (lambda (_klass81900_) - (if (let () (declare (not safe)) (type-final? _klass81900_)) - (lambda (_g8190181903_) - (let ((__tmp86783 - (let () (declare (not safe)) (##type-id _klass81900_)))) + (lambda (_klass81903_) + (if (let () (declare (not safe)) (type-final? _klass81903_)) + (lambda (_g8190481906_) + (let ((__tmp86719 + (let () (declare (not safe)) (##type-id _klass81903_)))) (declare (not safe)) - (##structure-direct-instance-of? _g8190181903_ __tmp86783))) - (lambda (_g8190581907_) + (##structure-direct-instance-of? _g8190481906_ __tmp86719))) + (lambda (_g8190881910_) (let () (declare (not safe)) - (class-instance? _klass81900_ _g8190581907_)))))) + (class-instance? _klass81903_ _g8190881910_)))))) (define if-class-slot-field - (lambda (_klass81887_ - _slot81888_ - _if-struct81889_ - _if-struct-field81890_ - _if-class-slot81891_) - (let ((_field81893_ - (let ((__tmp86784 + (lambda (_klass81892_ + _slot81893_ + _if-final81894_ + _if-struct81895_ + _if-struct-field81896_ + _if-class-slot81897_) + (let ((_field81899_ + (let ((__tmp86720 (let () (declare (not safe)) - (type-descriptor-slot-table _klass81887_)))) + (type-descriptor-slot-table _klass81892_)))) (declare (not safe)) - (table-ref __tmp86784 _slot81888_ '#f)))) - (if (let () (declare (not safe)) (not _field81893_)) - (error '"unknown slot" 'class: _klass81887_ 'slot: _slot81888_) - (if (or (let () (declare (not safe)) (type-final? _klass81887_)) - (let () - (declare (not safe)) - (type-struct? _klass81887_))) - (_if-struct81889_ _klass81887_ _slot81888_ _field81893_) - (if (let ((_strukt81898_ - (let () - (declare (not safe)) - (base-struct/1 _klass81887_)))) - (and _strukt81898_ - (let ((__tmp86785 - (let ((__tmp86786 - (let () - (declare (not safe)) - (type-descriptor-all-slots - _strukt81898_)))) - (declare (not safe)) - (##vector-length __tmp86786)))) - (declare (not safe)) - (##fx< _field81893_ __tmp86785)))) - (_if-struct-field81890_ - _klass81887_ - _slot81888_ - _field81893_) - (_if-class-slot81891_ - _klass81887_ - _slot81888_ - _field81893_))))))) + (table-ref __tmp86720 _slot81893_ '#f)))) + (if (let () (declare (not safe)) (not _field81899_)) + (error '"unknown slot" 'class: _klass81892_ 'slot: _slot81893_) + (if (let () (declare (not safe)) (type-final? _klass81892_)) + (_if-final81894_ _klass81892_ _slot81893_ _field81899_) + (if (let () (declare (not safe)) (type-struct? _klass81892_)) + (_if-struct81895_ _klass81892_ _slot81893_ _field81899_) + (if (let ((_strukt81901_ + (let () + (declare (not safe)) + (base-struct/1 _klass81892_)))) + (and _strukt81901_ + (let ((__tmp86721 + (let ((__tmp86722 + (let () + (declare (not safe)) + (type-descriptor-all-slots + _strukt81901_)))) + (declare (not safe)) + (##vector-length __tmp86722)))) + (declare (not safe)) + (##fx< _field81899_ __tmp86721)))) + (_if-struct-field81896_ + _klass81892_ + _slot81893_ + _field81899_) + (_if-class-slot81897_ + _klass81892_ + _slot81893_ + _field81899_)))))))) (define make-class-slot-accessor - (lambda (_klass81884_ _slot81885_) - (let ((__tmp86787 - (let () - (declare (not safe)) - (ignore-slot make-struct-field-accessor*)))) + (lambda (_klass81889_ _slot81890_) + (let () (declare (not safe)) (if-class-slot-field - _klass81884_ - _slot81885_ - __tmp86787 + _klass81889_ + _slot81890_ + make-final-field-accessor + make-struct-field-accessor make-struct-subclass-field-accessor make-class-cached-slot-accessor)))) + (define not-an-instance__% + (lambda (_object81873_ _class81874_ _slot81875_) + (apply error + '"not an instance" + 'object: + _object81873_ + 'class: + _class81874_ + (if _slot81875_ + (let ((__tmp86723 + (let () + (declare (not safe)) + (cons _slot81875_ '())))) + (declare (not safe)) + (cons 'slot: __tmp86723)) + '())))) + (define not-an-instance__0 + (lambda (_object81880_ _class81881_) + (let ((_slot81883_ '#f)) + (declare (not safe)) + (not-an-instance__% _object81880_ _class81881_ _slot81883_)))) + (define not-an-instance + (lambda _g86725_ + (let ((_g86724_ (let () (declare (not safe)) (##length _g86725_)))) + (cond ((let () (declare (not safe)) (##fx= _g86724_ 2)) + (apply (lambda (_object81880_ _class81881_) + (let () + (declare (not safe)) + (not-an-instance__0 _object81880_ _class81881_))) + _g86725_)) + ((let () (declare (not safe)) (##fx= _g86724_ 3)) + (apply (lambda (_object81885_ _class81886_ _slot81887_) + (let () + (declare (not safe)) + (not-an-instance__% + _object81885_ + _class81886_ + _slot81887_))) + _g86725_)) + (else + (##raise-wrong-number-of-arguments-exception + not-an-instance + _g86725_)))))) (define make-struct-subclass-field-accessor - (lambda (_klass81878_ _slot81879_ _field81880_) - (lambda (_obj81882_) + (lambda (_klass81866_ _slot81867_ _field81868_) + (lambda (_obj81870_) (if (let () (declare (not safe)) - (class-instance? _klass81878_ _obj81882_)) + (class-instance? _klass81866_ _obj81870_)) (let () (declare (not safe)) - (unchecked-field-ref _obj81882_ _field81880_)) - (error '"not an instance" - 'object: - _obj81882_ - 'class: - _klass81878_ - 'slot: - _slot81879_))))) + (unchecked-field-ref _obj81870_ _field81868_)) + (let () + (declare (not safe)) + (not-an-instance__% _obj81870_ _klass81866_ _slot81867_)))))) (define make-class-cached-slot-accessor - (lambda (_klass81872_ _slot81873_ _field81874_) - (lambda (_obj81876_) - (if (let ((__tmp86788 - (let () (declare (not safe)) (##type-id _klass81872_)))) + (lambda (_klass81860_ _slot81861_ _field81862_) + (lambda (_obj81864_) + (if (let ((__tmp86726 + (let () (declare (not safe)) (##type-id _klass81860_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj81876_ __tmp86788)) + (##structure-direct-instance-of? _obj81864_ __tmp86726)) (let () (declare (not safe)) - (unchecked-field-ref _obj81876_ _field81874_)) + (unchecked-field-ref _obj81864_ _field81862_)) (if (let () (declare (not safe)) - (class-instance? _klass81872_ _obj81876_)) + (class-instance? _klass81860_ _obj81864_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj81876_ _slot81873_)) - (error '"not an instance" - 'object: - _obj81876_ - 'class: - _klass81872_ - 'slot: - _slot81873_)))))) + (unchecked-slot-ref _obj81864_ _slot81861_)) + (let () + (declare (not safe)) + (not-an-instance__% + _obj81864_ + _klass81860_ + _slot81861_))))))) (define make-class-slot-mutator - (lambda (_klass81869_ _slot81870_) - (let ((__tmp86789 - (let () - (declare (not safe)) - (ignore-slot make-struct-field-mutator*)))) + (lambda (_klass81857_ _slot81858_) + (let () (declare (not safe)) (if-class-slot-field - _klass81869_ - _slot81870_ - __tmp86789 + _klass81857_ + _slot81858_ + make-final-field-mutator + make-struct-field-mutator make-struct-subclass-field-mutator make-class-cached-slot-mutator)))) (define make-struct-subclass-field-mutator - (lambda (_klass81862_ _slot81863_ _field81864_) - (lambda (_obj81866_ _val81867_) + (lambda (_klass81850_ _slot81851_ _field81852_) + (lambda (_obj81854_ _val81855_) (if (let () (declare (not safe)) - (class-instance? _klass81862_ _obj81866_)) + (class-instance? _klass81850_ _obj81854_)) (let () (declare (not safe)) - (unchecked-field-set! _obj81866_ _field81864_ _val81867_)) - (error '"not an instance" - 'object: - _obj81866_ - 'class: - _klass81862_ - 'slot: - _slot81863_))))) + (unchecked-field-set! _obj81854_ _field81852_ _val81855_)) + (let () + (declare (not safe)) + (not-an-instance__% _obj81854_ _klass81850_ _slot81851_)))))) (define make-class-cached-slot-mutator - (lambda (_klass81855_ _slot81856_ _field81857_) - (lambda (_obj81859_ _val81860_) - (if (let ((__tmp86790 - (let () (declare (not safe)) (##type-id _klass81855_)))) + (lambda (_klass81843_ _slot81844_ _field81845_) + (lambda (_obj81847_ _val81848_) + (if (let ((__tmp86727 + (let () (declare (not safe)) (##type-id _klass81843_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj81859_ __tmp86790)) + (##structure-direct-instance-of? _obj81847_ __tmp86727)) (let () (declare (not safe)) - (unchecked-field-set! _obj81859_ _field81857_ _val81860_)) + (unchecked-field-set! _obj81847_ _field81845_ _val81848_)) (if (let () (declare (not safe)) - (class-instance? _klass81855_ _obj81859_)) + (class-instance? _klass81843_ _obj81847_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj81859_ _slot81856_ _val81860_)) - (error '"not an instance" - 'object: - _obj81859_ - 'class: - _klass81855_ - 'slot: - _slot81856_)))))) + (unchecked-slot-set! _obj81847_ _slot81844_ _val81848_)) + (let () + (declare (not safe)) + (not-an-instance__% + _obj81847_ + _klass81843_ + _slot81844_))))))) (define make-class-slot-unchecked-accessor - (lambda (_klass81852_ _slot81853_) - (let ((__tmp86792 - (let () - (declare (not safe)) - (ignore-slot make-struct-field-unchecked-accessor*))) - (__tmp86791 - (let () - (declare (not safe)) - (ignore-slot make-struct-field-unchecked-accessor*)))) + (lambda (_klass81840_ _slot81841_) + (let () (declare (not safe)) (if-class-slot-field - _klass81852_ - _slot81853_ - __tmp86792 - __tmp86791 + _klass81840_ + _slot81841_ + make-struct-field-unchecked-accessor + make-struct-field-unchecked-accessor + make-struct-field-unchecked-accessor make-class-cached-slot-unchecked-accessor)))) (define make-class-cached-slot-unchecked-accessor - (lambda (_klass81846_ _slot81847_ _field81848_) - (lambda (_obj81850_) - (if (let ((__tmp86793 - (let () (declare (not safe)) (##type-id _klass81846_)))) + (lambda (_klass81834_ _slot81835_ _field81836_) + (lambda (_obj81838_) + (if (let ((__tmp86728 + (let () (declare (not safe)) (##type-id _klass81834_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj81850_ __tmp86793)) + (##structure-direct-instance-of? _obj81838_ __tmp86728)) (let () (declare (not safe)) - (unchecked-field-ref _obj81850_ _field81848_)) + (unchecked-field-ref _obj81838_ _field81836_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj81850_ _slot81847_)))))) + (unchecked-slot-ref _obj81838_ _slot81835_)))))) (define make-class-slot-unchecked-mutator - (lambda (_klass81843_ _slot81844_) - (let ((__tmp86795 - (let () - (declare (not safe)) - (ignore-slot make-struct-field-unchecked-mutator*))) - (__tmp86794 - (let () - (declare (not safe)) - (ignore-slot make-struct-field-unchecked-mutator*)))) + (lambda (_klass81831_ _slot81832_) + (let () (declare (not safe)) (if-class-slot-field - _klass81843_ - _slot81844_ - __tmp86795 - __tmp86794 + _klass81831_ + _slot81832_ + make-struct-field-unchecked-mutator + make-struct-field-unchecked-mutator + make-struct-field-unchecked-mutator make-class-cached-slot-unchecked-mutator)))) (define make-class-cached-slot-unchecked-mutator - (lambda (_klass81836_ _slot81837_ _field81838_) - (lambda (_obj81840_ _val81841_) - (if (let ((__tmp86796 - (let () (declare (not safe)) (##type-id _klass81836_)))) + (lambda (_klass81824_ _slot81825_ _field81826_) + (lambda (_obj81828_ _val81829_) + (if (let ((__tmp86729 + (let () (declare (not safe)) (##type-id _klass81824_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj81840_ __tmp86796)) + (##structure-direct-instance-of? _obj81828_ __tmp86729)) (let () (declare (not safe)) - (unchecked-field-set! _obj81840_ _field81838_ _val81841_)) + (unchecked-field-set! _obj81828_ _field81826_ _val81829_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj81840_ _slot81837_ _val81841_)))))) - (define ignore-slot - (lambda (_proc81830_) - (lambda (_klass81832_ _slot81833_ _field81834_) - (_proc81830_ _klass81832_ _field81834_)))) + (unchecked-slot-set! _obj81828_ _slot81825_ _val81829_)))))) (define class-slot-offset - (lambda (_klass81825_ _slot81826_) - (let ((_off81828_ + (lambda (_klass81821_ _slot81822_) + (let ((__tmp86730 (let () (declare (not safe)) - (class-slot-offset* _klass81825_ _slot81826_)))) - (if _off81828_ - (let () (declare (not safe)) (##fx- _off81828_ '1)) - '#f)))) - (define class-slot-offset* - (lambda (_klass81822_ _slot81823_) - (let ((__tmp86797 - (let () - (declare (not safe)) - (type-descriptor-slot-table _klass81822_)))) + (type-descriptor-slot-table _klass81821_)))) (declare (not safe)) - (table-ref __tmp86797 _slot81823_ '#f)))) + (table-ref __tmp86730 _slot81822_ '#f)))) (define class-slot-ref - (lambda (_klass81816_ _obj81817_ _slot81818_) + (lambda (_klass81815_ _obj81816_ _slot81817_) (if (let () (declare (not safe)) - (class-instance? _klass81816_ _obj81817_)) - (let ((_off81820_ - (let ((__tmp86798 + (class-instance? _klass81815_ _obj81816_)) + (let ((_off81819_ + (let ((__tmp86731 (let () (declare (not safe)) - (object-type _obj81817_)))) + (object-type _obj81816_)))) (declare (not safe)) - (class-slot-offset* __tmp86798 _slot81818_)))) + (class-slot-offset __tmp86731 _slot81817_)))) (declare (not safe)) (##unchecked-structure-ref - _obj81817_ - _off81820_ - _klass81816_ + _obj81816_ + _off81819_ + _klass81815_ '#f)) - (error '"not an instance" - 'class: - _klass81816_ - 'object: - _obj81817_)))) + (let () + (declare (not safe)) + (not-an-instance__0 _obj81816_ _klass81815_))))) (define class-slot-set! - (lambda (_klass81809_ _obj81810_ _slot81811_ _val81812_) + (lambda (_klass81808_ _obj81809_ _slot81810_ _val81811_) (if (let () (declare (not safe)) - (class-instance? _klass81809_ _obj81810_)) - (let ((_off81814_ - (let ((__tmp86799 + (class-instance? _klass81808_ _obj81809_)) + (let ((_off81813_ + (let ((__tmp86732 (let () (declare (not safe)) - (object-type _obj81810_)))) + (object-type _obj81809_)))) (declare (not safe)) - (class-slot-offset* __tmp86799 _slot81811_)))) + (class-slot-offset __tmp86732 _slot81810_)))) (declare (not safe)) (##unchecked-structure-set! - _obj81810_ - _val81812_ - _off81814_ - _klass81809_ + _obj81809_ + _val81811_ + _off81813_ + _klass81808_ '#f)) - (error '"not an instance" - 'class: - _klass81809_ - 'object: - _obj81810_)))) + (let () + (declare (not safe)) + (not-an-instance__0 _obj81809_ _klass81808_))))) (define unchecked-field-ref - (lambda (_obj81806_ _off81807_) - (let ((__tmp86800 - (let () (declare (not safe)) (##structure-type _obj81806_)))) + (lambda (_obj81805_ _off81806_) + (let ((__tmp86733 + (let () (declare (not safe)) (##structure-type _obj81805_)))) (declare (not safe)) - (##unchecked-structure-ref _obj81806_ _off81807_ __tmp86800 '#f)))) + (##unchecked-structure-ref _obj81805_ _off81806_ __tmp86733 '#f)))) (define unchecked-field-set! - (lambda (_obj81802_ _off81803_ _val81804_) - (let ((__tmp86801 - (let () (declare (not safe)) (##structure-type _obj81802_)))) + (lambda (_obj81801_ _off81802_ _val81803_) + (let ((__tmp86734 + (let () (declare (not safe)) (##structure-type _obj81801_)))) (declare (not safe)) (##unchecked-structure-set! - _obj81802_ - _val81804_ - _off81803_ - __tmp86801 + _obj81801_ + _val81803_ + _off81802_ + __tmp86734 '#f)))) (define unchecked-slot-ref - (lambda (_obj81799_ _slot81800_) - (let ((__tmp86802 - (let ((__tmp86803 + (lambda (_obj81798_ _slot81799_) + (let ((__tmp86735 + (let ((__tmp86736 (let () (declare (not safe)) - (##structure-type _obj81799_)))) + (##structure-type _obj81798_)))) (declare (not safe)) - (class-slot-offset* __tmp86803 _slot81800_)))) + (class-slot-offset __tmp86736 _slot81799_)))) (declare (not safe)) - (unchecked-field-ref _obj81799_ __tmp86802)))) + (unchecked-field-ref _obj81798_ __tmp86735)))) (define unchecked-slot-set! - (lambda (_obj81795_ _slot81796_ _val81797_) - (let ((__tmp86804 - (let ((__tmp86805 + (lambda (_obj81794_ _slot81795_ _val81796_) + (let ((__tmp86737 + (let ((__tmp86738 (let () (declare (not safe)) - (##structure-type _obj81795_)))) + (##structure-type _obj81794_)))) (declare (not safe)) - (class-slot-offset* __tmp86805 _slot81796_)))) + (class-slot-offset __tmp86738 _slot81795_)))) (declare (not safe)) - (unchecked-field-set! _obj81795_ __tmp86804 _val81797_)))) + (unchecked-field-set! _obj81794_ __tmp86737 _val81796_)))) (define slot-ref__% - (lambda (_obj81771_ _slot81772_ _E81773_) - (if (let () (declare (not safe)) (object? _obj81771_)) - (let* ((_klass81775_ - (let () (declare (not safe)) (object-type _obj81771_))) - (_$e81778_ + (lambda (_obj81770_ _slot81771_ _E81772_) + (if (let () (declare (not safe)) (object? _obj81770_)) + (let* ((_klass81774_ + (let () (declare (not safe)) (object-type _obj81770_))) + (_$e81777_ (if (let () (declare (not safe)) - (type-descriptor? _klass81775_)) + (type-descriptor? _klass81774_)) (let () (declare (not safe)) - (class-slot-offset* _klass81775_ _slot81772_)) + (class-slot-offset _klass81774_ _slot81771_)) '#f))) - (if _$e81778_ - ((lambda (_off81781_) + (if _$e81777_ + ((lambda (_off81780_) (let () (declare (not safe)) - (unchecked-field-ref _obj81771_ _off81781_))) - _$e81778_) - (_E81773_ _obj81771_ _slot81772_))) - (_E81773_ _obj81771_ _slot81772_)))) + (unchecked-field-ref _obj81770_ _off81780_))) + _$e81777_) + (_E81772_ _obj81770_ _slot81771_))) + (_E81772_ _obj81770_ _slot81771_)))) (define slot-ref__0 - (lambda (_obj81786_ _slot81787_) - (let ((_E81789_ __slot-error)) + (lambda (_obj81785_ _slot81786_) + (let ((_E81788_ __slot-error)) (declare (not safe)) - (slot-ref__% _obj81786_ _slot81787_ _E81789_)))) + (slot-ref__% _obj81785_ _slot81786_ _E81788_)))) (define slot-ref - (lambda _g86807_ - (let ((_g86806_ (let () (declare (not safe)) (##length _g86807_)))) - (cond ((let () (declare (not safe)) (##fx= _g86806_ 2)) - (apply (lambda (_obj81786_ _slot81787_) + (lambda _g86740_ + (let ((_g86739_ (let () (declare (not safe)) (##length _g86740_)))) + (cond ((let () (declare (not safe)) (##fx= _g86739_ 2)) + (apply (lambda (_obj81785_ _slot81786_) (let () (declare (not safe)) - (slot-ref__0 _obj81786_ _slot81787_))) - _g86807_)) - ((let () (declare (not safe)) (##fx= _g86806_ 3)) - (apply (lambda (_obj81791_ _slot81792_ _E81793_) + (slot-ref__0 _obj81785_ _slot81786_))) + _g86740_)) + ((let () (declare (not safe)) (##fx= _g86739_ 3)) + (apply (lambda (_obj81790_ _slot81791_ _E81792_) (let () (declare (not safe)) - (slot-ref__% _obj81791_ _slot81792_ _E81793_))) - _g86807_)) + (slot-ref__% _obj81790_ _slot81791_ _E81792_))) + _g86740_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g86807_)))))) + _g86740_)))))) (define slot-set!__% - (lambda (_obj81743_ _slot81744_ _val81745_ _E81746_) - (if (let () (declare (not safe)) (object? _obj81743_)) - (let* ((_klass81748_ - (let () (declare (not safe)) (object-type _obj81743_))) - (_$e81751_ + (lambda (_obj81742_ _slot81743_ _val81744_ _E81745_) + (if (let () (declare (not safe)) (object? _obj81742_)) + (let* ((_klass81747_ + (let () (declare (not safe)) (object-type _obj81742_))) + (_$e81750_ (if (let () (declare (not safe)) - (type-descriptor? _klass81748_)) + (type-descriptor? _klass81747_)) (let () (declare (not safe)) - (class-slot-offset* _klass81748_ _slot81744_)) + (class-slot-offset _klass81747_ _slot81743_)) '#f))) - (if _$e81751_ - ((lambda (_off81754_) + (if _$e81750_ + ((lambda (_off81753_) (let () (declare (not safe)) (unchecked-field-set! - _obj81743_ - _off81754_ - _val81745_))) - _$e81751_) - (_E81746_ _obj81743_ _slot81744_))) - (_E81746_ _obj81743_ _slot81744_)))) + _obj81742_ + _off81753_ + _val81744_))) + _$e81750_) + (_E81745_ _obj81742_ _slot81743_))) + (_E81745_ _obj81742_ _slot81743_)))) (define slot-set!__0 - (lambda (_obj81759_ _slot81760_ _val81761_) - (let ((_E81763_ __slot-error)) + (lambda (_obj81758_ _slot81759_ _val81760_) + (let ((_E81762_ __slot-error)) (declare (not safe)) - (slot-set!__% _obj81759_ _slot81760_ _val81761_ _E81763_)))) + (slot-set!__% _obj81758_ _slot81759_ _val81760_ _E81762_)))) (define slot-set! - (lambda _g86809_ - (let ((_g86808_ (let () (declare (not safe)) (##length _g86809_)))) - (cond ((let () (declare (not safe)) (##fx= _g86808_ 3)) - (apply (lambda (_obj81759_ _slot81760_ _val81761_) + (lambda _g86742_ + (let ((_g86741_ (let () (declare (not safe)) (##length _g86742_)))) + (cond ((let () (declare (not safe)) (##fx= _g86741_ 3)) + (apply (lambda (_obj81758_ _slot81759_ _val81760_) (let () (declare (not safe)) - (slot-set!__0 _obj81759_ _slot81760_ _val81761_))) - _g86809_)) - ((let () (declare (not safe)) (##fx= _g86808_ 4)) - (apply (lambda (_obj81765_ _slot81766_ _val81767_ _E81768_) + (slot-set!__0 _obj81758_ _slot81759_ _val81760_))) + _g86742_)) + ((let () (declare (not safe)) (##fx= _g86741_ 4)) + (apply (lambda (_obj81764_ _slot81765_ _val81766_ _E81767_) (let () (declare (not safe)) (slot-set!__% - _obj81765_ - _slot81766_ - _val81767_ - _E81768_))) - _g86809_)) + _obj81764_ + _slot81765_ + _val81766_ + _E81767_))) + _g86742_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g86809_)))))) + _g86742_)))))) (define __slot-error - (lambda (_obj81739_ _slot81740_) - (error '"Cannot find slot" 'object: _obj81739_ 'slot: _slot81740_))) + (lambda (_obj81738_ _slot81739_) + (error '"Cannot find slot" 'object: _obj81738_ 'slot: _slot81739_))) (define subclass? - (lambda (_maybe-sub-class81729_ _maybe-super-class81730_) - (let* ((_maybe-super-class-id81732_ + (lambda (_maybe-sub-class81728_ _maybe-super-class81729_) + (let* ((_maybe-super-class-id81731_ (let () (declare (not safe)) - (##type-id _maybe-super-class81730_))) - (_$e81734_ - (let ((__tmp86810 + (##type-id _maybe-super-class81729_))) + (_$e81733_ + (let ((__tmp86743 (let () (declare (not safe)) - (##type-id _maybe-sub-class81729_)))) + (##type-id _maybe-sub-class81728_)))) (declare (not safe)) - (eq? _maybe-super-class-id81732_ __tmp86810)))) - (if _$e81734_ - _$e81734_ - (let ((__tmp86812 - (lambda (_super-class81737_) - (let ((__tmp86813 + (eq? _maybe-super-class-id81731_ __tmp86743)))) + (if _$e81733_ + _$e81733_ + (let ((__tmp86745 + (lambda (_super-class81736_) + (let ((__tmp86746 (let () (declare (not safe)) - (##type-id _super-class81737_)))) + (##type-id _super-class81736_)))) (declare (not safe)) - (eq? __tmp86813 _maybe-super-class-id81732_)))) - (__tmp86811 + (eq? __tmp86746 _maybe-super-class-id81731_)))) + (__tmp86744 (let () (declare (not safe)) (type-descriptor-precedence-list - _maybe-sub-class81729_)))) + _maybe-sub-class81728_)))) (declare (not safe)) - (ormap1 __tmp86812 __tmp86811)))))) - (define class-subtype? - (lambda (_maybe-super-class81726_ _maybe-sub-class81727_) - (let () - (declare (not safe)) - (subclass? _maybe-sub-class81727_ _maybe-super-class81726_)))) + (ormap1 __tmp86745 __tmp86744)))))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass81723_ _obj81724_) - (let ((__tmp86814 - (let () (declare (not safe)) (##type-id _klass81723_)))) + (lambda (_klass81725_ _obj81726_) + (let ((__tmp86747 + (let () (declare (not safe)) (##type-id _klass81725_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj81724_ __tmp86814)))) + (##structure-direct-instance-of? _obj81726_ __tmp86747)))) (define struct-instance? - (lambda (_klass81720_ _obj81721_) - (let ((__tmp86815 - (let () (declare (not safe)) (##type-id _klass81720_)))) + (lambda (_klass81722_ _obj81723_) + (let ((__tmp86748 + (let () (declare (not safe)) (##type-id _klass81722_)))) (declare (not safe)) - (##structure-instance-of? _obj81721_ __tmp86815)))) + (##structure-instance-of? _obj81723_ __tmp86748)))) (define class-instance? - (lambda (_klass81715_ _obj81716_) - (if (let () (declare (not safe)) (object? _obj81716_)) - (let ((_type81718_ - (let () (declare (not safe)) (object-type _obj81716_)))) - (if (let () (declare (not safe)) (type-descriptor? _type81718_)) + (lambda (_klass81717_ _obj81718_) + (if (let () (declare (not safe)) (object? _obj81718_)) + (let ((_type81720_ + (let () (declare (not safe)) (object-type _obj81718_)))) + (if (let () (declare (not safe)) (type-descriptor? _type81720_)) (let () (declare (not safe)) - (subclass? _type81718_ _klass81715_)) + (subclass? _type81720_ _klass81717_)) '#f)) '#f))) (define make-object (lambda (_klass81712_ _k81713_) - (let ((__tmp86816 (let () (declare (not safe)) (##fx+ _k81713_ '1)))) - (declare (not safe)) - (make-object* _klass81712_ __tmp86816)))) - (define make-object* - (lambda (_klass81707_ _k81708_) - (let ((_obj81710_ - (let () (declare (not safe)) (##make-vector _k81708_ '#f)))) + (let ((_obj81715_ + (let () (declare (not safe)) (##make-vector _k81713_ '#f)))) (let () (declare (not safe)) - (##vector-set! _obj81710_ '0 _klass81707_)) - (let ((__tmp86817 (macro-subtype-structure))) + (##vector-set! _obj81715_ '0 _klass81712_)) + (let ((__tmp86749 (macro-subtype-structure))) (declare (not safe)) - (##subtype-set! _obj81710_ __tmp86817)) - _obj81710_))) + (##subtype-set! _obj81715_ __tmp86749)) + _obj81715_))) (define make-instance - (lambda (_klass81705_) - (let ((__tmp86818 - (let ((__tmp86819 + (lambda (_klass81710_) + (let ((__tmp86750 + (let ((__tmp86751 (let () (declare (not safe)) - (type-descriptor-all-slots _klass81705_)))) + (type-descriptor-all-slots _klass81710_)))) (declare (not safe)) - (##vector-length __tmp86819)))) + (##vector-length __tmp86751)))) (declare (not safe)) - (make-object* _klass81705_ __tmp86818)))) + (make-object _klass81710_ __tmp86750)))) (define make-struct-instance - (lambda (_klass81692_ . _args81693_) - (let* ((_all-slots81695_ + (lambda (_klass81697_ . _args81698_) + (let* ((_all-slots81700_ (let () (declare (not safe)) - (type-descriptor-all-slots _klass81692_))) - (_size81697_ + (type-descriptor-all-slots _klass81697_))) + (_size81702_ (let () (declare (not safe)) - (##vector-length _all-slots81695_)))) - (let ((_$e81700_ + (##vector-length _all-slots81700_)))) + (let ((_$e81705_ (let () (declare (not safe)) - (type-descriptor-constructor _klass81692_)))) - (if _$e81700_ - ((lambda (_kons-id81703_) - (let ((__tmp86822 + (type-descriptor-constructor _klass81697_)))) + (if _$e81705_ + ((lambda (_kons-id81708_) + (let ((__tmp86754 (let () (declare (not safe)) - (make-object* _klass81692_ _size81697_)))) + (make-object _klass81697_ _size81702_)))) (declare (not safe)) (__constructor-init! - _klass81692_ - _kons-id81703_ - __tmp86822 - _args81693_))) - _$e81700_) - (if (let ((__tmp86821 + _klass81697_ + _kons-id81708_ + __tmp86754 + _args81698_))) + _$e81705_) + (if (let ((__tmp86753 (let () (declare (not safe)) - (##fx- _size81697_ '1))) - (__tmp86820 (length _args81693_))) + (##fx- _size81702_ '1))) + (__tmp86752 (length _args81698_))) (declare (not safe)) - (##fx= __tmp86821 __tmp86820)) - (apply ##structure _klass81692_ _args81693_) + (##fx= __tmp86753 __tmp86752)) + (apply ##structure _klass81697_ _args81698_) (error '"arguments don't match object size" 'class: - _klass81692_ + _klass81697_ 'slots: - (let () (declare (not safe)) (##fx- _size81697_ '1)) + (let () (declare (not safe)) (##fx- _size81702_ '1)) 'args: - _args81693_))))))) + _args81698_))))))) (define make-class-instance - (lambda (_klass81682_ . _args81683_) - (let* ((_obj81685_ - (let ((__tmp86823 - (let ((__tmp86824 - (let () - (declare (not safe)) - (type-descriptor-all-slots _klass81682_)))) - (declare (not safe)) - (##vector-length __tmp86824)))) - (declare (not safe)) - (make-object* _klass81682_ __tmp86823))) - (_$e81687_ + (lambda (_klass81687_ . _args81688_) + (let* ((_obj81690_ + (let () (declare (not safe)) (make-instance _klass81687_))) + (_$e81692_ (let () (declare (not safe)) - (type-descriptor-constructor _klass81682_)))) - (if _$e81687_ - ((lambda (_kons-id81690_) + (type-descriptor-constructor _klass81687_)))) + (if _$e81692_ + ((lambda (_kons-id81695_) (let () (declare (not safe)) (__constructor-init! - _klass81682_ - _kons-id81690_ - _obj81685_ - _args81683_))) - _$e81687_) + _klass81687_ + _kons-id81695_ + _obj81690_ + _args81688_))) + _$e81692_) (let () (declare (not safe)) (__class-instance-init! - _klass81682_ - _obj81685_ - _args81683_)))))) + _klass81687_ + _obj81690_ + _args81688_)))))) (define struct-instance-init! - (lambda (_obj81679_ . _args81680_) - (if (let ((__tmp86826 (length _args81680_)) - (__tmp86825 + (lambda (_obj81684_ . _args81685_) + (if (let ((__tmp86756 (length _args81685_)) + (__tmp86755 (let () (declare (not safe)) - (##structure-length _obj81679_)))) + (##structure-length _obj81684_)))) (declare (not safe)) - (##fx< __tmp86826 __tmp86825)) + (##fx< __tmp86756 __tmp86755)) (let () (declare (not safe)) - (__struct-instance-init! _obj81679_ _args81680_)) + (__struct-instance-init! _obj81684_ _args81685_)) (error '"too many arguments for struct" 'object: - _obj81679_ + _obj81684_ 'args: - _args81680_)))) + _args81685_)))) (define __struct-instance-init! - (lambda (_obj81638_ _args81639_) - (let _lp81641_ ((_k81643_ '1) (_rest81644_ _args81639_)) - (let* ((_rest8164581653_ _rest81644_) - (_else8164781661_ (lambda () _obj81638_)) - (_K8164981667_ - (lambda (_rest81664_ _hd81665_) + (lambda (_obj81643_ _args81644_) + (let _lp81646_ ((_k81648_ '1) (_rest81649_ _args81644_)) + (let* ((_rest8165081658_ _rest81649_) + (_else8165281666_ (lambda () _obj81643_)) + (_K8165481672_ + (lambda (_rest81669_ _hd81670_) (let () (declare (not safe)) - (unchecked-field-set! _obj81638_ _k81643_ _hd81665_)) - (let ((__tmp86827 - (let () (declare (not safe)) (##fx+ _k81643_ '1)))) + (unchecked-field-set! _obj81643_ _k81648_ _hd81670_)) + (let ((__tmp86757 + (let () (declare (not safe)) (##fx+ _k81648_ '1)))) (declare (not safe)) - (_lp81641_ __tmp86827 _rest81664_))))) - (if (let () (declare (not safe)) (##pair? _rest8164581653_)) - (let ((_hd8165081670_ - (let () (declare (not safe)) (##car _rest8164581653_))) - (_tl8165181672_ - (let () (declare (not safe)) (##cdr _rest8164581653_)))) - (let* ((_hd81675_ _hd8165081670_) - (_rest81677_ _tl8165181672_)) + (_lp81646_ __tmp86757 _rest81669_))))) + (if (let () (declare (not safe)) (##pair? _rest8165081658_)) + (let ((_hd8165581675_ + (let () (declare (not safe)) (##car _rest8165081658_))) + (_tl8165681677_ + (let () (declare (not safe)) (##cdr _rest8165081658_)))) + (let* ((_hd81680_ _hd8165581675_) + (_rest81682_ _tl8165681677_)) (declare (not safe)) - (_K8164981667_ _rest81677_ _hd81675_))) - (let () (declare (not safe)) (_else8164781661_))))))) + (_K8165481672_ _rest81682_ _hd81680_))) + (let () (declare (not safe)) (_else8165281666_))))))) (define class-instance-init! - (lambda (_obj81635_ . _args81636_) - (let ((__tmp86828 - (let () (declare (not safe)) (object-type _obj81635_)))) + (lambda (_obj81640_ . _args81641_) + (let ((__tmp86758 + (let () (declare (not safe)) (object-type _obj81640_)))) (declare (not safe)) - (__class-instance-init! __tmp86828 _obj81635_ _args81636_)))) + (__class-instance-init! __tmp86758 _obj81640_ _args81641_)))) (define __class-instance-init! - (lambda (_klass81579_ _obj81580_ _args81581_) - (let _lp81583_ ((_rest81585_ _args81581_)) - (let* ((_rest8158681596_ _rest81585_) - (_else8158881604_ + (lambda (_klass81584_ _obj81585_ _args81586_) + (let _lp81588_ ((_rest81590_ _args81586_)) + (let* ((_rest8159181601_ _rest81590_) + (_else8159381609_ (lambda () - (if (let () (declare (not safe)) (null? _rest81585_)) - _obj81580_ + (if (let () (declare (not safe)) (null? _rest81590_)) + _obj81585_ (error '"unexpected class initializer arguments" 'class: - _klass81579_ + _klass81584_ 'rest: - _rest81585_)))) - (_K8159081616_ - (lambda (_rest81607_ _val81608_ _key81609_) - (let ((_$e81611_ + _rest81590_)))) + (_K8159581621_ + (lambda (_rest81612_ _val81613_ _key81614_) + (let ((_$e81616_ (let () (declare (not safe)) - (class-slot-offset* _klass81579_ _key81609_)))) - (if _$e81611_ - ((lambda (_off81614_) + (class-slot-offset _klass81584_ _key81614_)))) + (if _$e81616_ + ((lambda (_off81619_) (let () (declare (not safe)) (unchecked-field-set! - _obj81580_ - _off81614_ - _val81608_)) + _obj81585_ + _off81619_ + _val81613_)) (let () (declare (not safe)) - (_lp81583_ _rest81607_))) - _$e81611_) + (_lp81588_ _rest81612_))) + _$e81616_) (error '"unknown slot" 'class: - _klass81579_ + _klass81584_ 'slot: - _key81609_)))))) - (if (let () (declare (not safe)) (##pair? _rest8158681596_)) - (let ((_hd8159181619_ - (let () (declare (not safe)) (##car _rest8158681596_))) - (_tl8159281621_ - (let () (declare (not safe)) (##cdr _rest8158681596_)))) - (let ((_key81624_ _hd8159181619_)) - (if (let () (declare (not safe)) (##pair? _tl8159281621_)) - (let ((_hd8159381626_ + _key81614_)))))) + (if (let () (declare (not safe)) (##pair? _rest8159181601_)) + (let ((_hd8159681624_ + (let () (declare (not safe)) (##car _rest8159181601_))) + (_tl8159781626_ + (let () (declare (not safe)) (##cdr _rest8159181601_)))) + (let ((_key81629_ _hd8159681624_)) + (if (let () (declare (not safe)) (##pair? _tl8159781626_)) + (let ((_hd8159881631_ (let () (declare (not safe)) - (##car _tl8159281621_))) - (_tl8159481628_ + (##car _tl8159781626_))) + (_tl8159981633_ (let () (declare (not safe)) - (##cdr _tl8159281621_)))) - (let* ((_val81631_ _hd8159381626_) - (_rest81633_ _tl8159481628_)) + (##cdr _tl8159781626_)))) + (let* ((_val81636_ _hd8159881631_) + (_rest81638_ _tl8159981633_)) (declare (not safe)) - (_K8159081616_ _rest81633_ _val81631_ _key81624_))) - (let () (declare (not safe)) (_else8158881604_))))) - (let () (declare (not safe)) (_else8158881604_))))))) + (_K8159581621_ _rest81638_ _val81636_ _key81629_))) + (let () (declare (not safe)) (_else8159381609_))))) + (let () (declare (not safe)) (_else8159381609_))))))) (define constructor-init! - (lambda (_klass81574_ _kons-id81575_ _obj81576_ . _args81577_) + (lambda (_klass81579_ _kons-id81580_ _obj81581_ . _args81582_) (let () (declare (not safe)) (__constructor-init! - _klass81574_ - _kons-id81575_ - _obj81576_ - _args81577_)))) + _klass81579_ + _kons-id81580_ + _obj81581_ + _args81582_)))) (define __constructor-init! - (lambda (_klass81564_ _kons-id81565_ _obj81566_ _args81567_) - (let ((_$e81569_ + (lambda (_klass81569_ _kons-id81570_ _obj81571_ _args81572_) + (let ((_$e81574_ (let () (declare (not safe)) - (__find-method _klass81564_ _kons-id81565_)))) - (if _$e81569_ - ((lambda (_kons81572_) - (apply _kons81572_ _obj81566_ _args81567_) - _obj81566_) - _$e81569_) + (__find-method _klass81569_ _kons-id81570_)))) + (if _$e81574_ + ((lambda (_kons81577_) + (apply _kons81577_ _obj81571_ _args81572_) + _obj81571_) + _$e81574_) (error '"missing constructor" 'class: - _klass81564_ + _klass81569_ 'method: - _kons-id81565_))))) + _kons-id81570_))))) (define struct-copy - (lambda (_struct81562_) - (if (let () (declare (not safe)) (##structure? _struct81562_)) + (lambda (_struct81567_) + (if (let () (declare (not safe)) (##structure? _struct81567_)) '#!void - (error '"not a structure" _struct81562_)) - (let () (declare (not safe)) (##structure-copy _struct81562_)))) + (error '"not a structure" _struct81567_)) + (let () (declare (not safe)) (##structure-copy _struct81567_)))) (define struct->list - (lambda (_obj81560_) - (if (let () (declare (not safe)) (object? _obj81560_)) - (let () (declare (not safe)) (##vector->list _obj81560_)) - (error '"not an object" _obj81560_)))) + (lambda (_obj81565_) + (if (let () (declare (not safe)) (object? _obj81565_)) + (let () (declare (not safe)) (##vector->list _obj81565_)) + (error '"not an object" _obj81565_)))) (define class->list - (lambda (_obj81547_) - (if (let () (declare (not safe)) (object? _obj81547_)) - (let ((_klass81549_ - (let () (declare (not safe)) (object-type _obj81547_)))) - (if (let () (declare (not safe)) (type-descriptor? _klass81549_)) - (let ((_all-slots81551_ + (lambda (_obj81552_) + (if (let () (declare (not safe)) (object? _obj81552_)) + (let ((_klass81554_ + (let () (declare (not safe)) (object-type _obj81552_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass81554_)) + (let ((_all-slots81556_ (let () (declare (not safe)) - (type-descriptor-all-slots _klass81549_)))) - (let _loop81553_ ((_index81555_ - (let ((__tmp86834 + (type-descriptor-all-slots _klass81554_)))) + (let _loop81558_ ((_index81560_ + (let ((__tmp86764 (let () (declare (not safe)) (##vector-length - _all-slots81551_)))) + _all-slots81556_)))) (declare (not safe)) - (##fx- __tmp86834 '1))) - (_plist81556_ '())) - (if (let () (declare (not safe)) (##fx< _index81555_ '1)) + (##fx- __tmp86764 '1))) + (_plist81561_ '())) + (if (let () (declare (not safe)) (##fx< _index81560_ '1)) (let () (declare (not safe)) - (cons _klass81549_ _plist81556_)) - (let ((_slot81558_ + (cons _klass81554_ _plist81561_)) + (let ((_slot81563_ (let () (declare (not safe)) (##vector-ref - _all-slots81551_ - _index81555_)))) - (let ((__tmp86833 + _all-slots81556_ + _index81560_)))) + (let ((__tmp86763 (let () (declare (not safe)) - (##fx- _index81555_ '1))) - (__tmp86829 - (let ((__tmp86832 - (symbol->keyword _slot81558_)) - (__tmp86830 - (let ((__tmp86831 + (##fx- _index81560_ '1))) + (__tmp86759 + (let ((__tmp86762 + (symbol->keyword _slot81563_)) + (__tmp86760 + (let ((__tmp86761 (let () (declare (not safe)) (unchecked-field-ref - _obj81547_ - _index81555_)))) + _obj81552_ + _index81560_)))) (declare (not safe)) - (cons __tmp86831 _plist81556_)))) + (cons __tmp86761 _plist81561_)))) (declare (not safe)) - (cons __tmp86832 __tmp86830)))) + (cons __tmp86762 __tmp86760)))) (declare (not safe)) - (_loop81553_ __tmp86833 __tmp86829)))))) + (_loop81558_ __tmp86763 __tmp86759)))))) (error '"not a class type" 'object: - _obj81547_ + _obj81552_ 'class: - _klass81549_))) - (error '"not an object" _obj81547_)))) + _klass81554_))) + (error '"not an object" _obj81552_)))) (define call-method - (lambda (_obj81538_ _id81539_ . _args81540_) - (let ((_$e81542_ + (lambda (_obj81543_ _id81544_ . _args81545_) + (let ((_$e81547_ (let () (declare (not safe)) - (method-ref _obj81538_ _id81539_)))) - (if _$e81542_ - ((lambda (_method81545_) - (apply _method81545_ _obj81538_ _args81540_)) - _$e81542_) + (method-ref _obj81543_ _id81544_)))) + (if _$e81547_ + ((lambda (_method81550_) + (apply _method81550_ _obj81543_ _args81545_)) + _$e81547_) (error '"cannot find method" 'object: - _obj81538_ + _obj81543_ 'method: - _id81539_))))) + _id81544_))))) (define __builtin-type-methods (make-table 'test: eq?)) (define method-ref - (lambda (_obj81535_ _id81536_) - (if (let () (declare (not safe)) (object? _obj81535_)) - (let ((__tmp86835 - (let () (declare (not safe)) (object-type _obj81535_)))) + (lambda (_obj81540_ _id81541_) + (if (let () (declare (not safe)) (object? _obj81540_)) + (let ((__tmp86765 + (let () (declare (not safe)) (object-type _obj81540_)))) (declare (not safe)) - (find-method __tmp86835 _id81536_)) + (find-method __tmp86765 _id81541_)) '#f))) (define checked-method-ref - (lambda (_obj81529_ _id81530_) - (let ((_$e81532_ + (lambda (_obj81534_ _id81535_) + (let ((_$e81537_ (let () (declare (not safe)) - (method-ref _obj81529_ _id81530_)))) - (if _$e81532_ - _$e81532_ + (method-ref _obj81534_ _id81535_)))) + (if _$e81537_ + _$e81537_ (error '"missing method" 'object: - _obj81529_ + _obj81534_ 'method: - _id81530_))))) + _id81535_))))) (define bound-method-ref - (lambda (_obj81519_ _id81520_) - (let ((_$e81522_ + (lambda (_obj81524_ _id81525_) + (let ((_$e81527_ (let () (declare (not safe)) - (method-ref _obj81519_ _id81520_)))) - (if _$e81522_ - ((lambda (_method81525_) - (lambda _args81527_ - (apply _method81525_ _obj81519_ _args81527_))) - _$e81522_) + (method-ref _obj81524_ _id81525_)))) + (if _$e81527_ + ((lambda (_method81530_) + (lambda _args81532_ + (apply _method81530_ _obj81524_ _args81532_))) + _$e81527_) '#f)))) (define checked-bound-method-ref - (lambda (_obj81512_ _id81513_) - (let ((_method81515_ + (lambda (_obj81517_ _id81518_) + (let ((_method81520_ (let () (declare (not safe)) - (checked-method-ref _obj81512_ _id81513_)))) - (lambda _args81517_ (apply _method81515_ _obj81512_ _args81517_))))) + (checked-method-ref _obj81517_ _id81518_)))) + (lambda _args81522_ (apply _method81520_ _obj81517_ _args81522_))))) (define find-method - (lambda (_klass81509_ _id81510_) - (if (let () (declare (not safe)) (type-descriptor? _klass81509_)) + (lambda (_klass81514_ _id81515_) + (if (let () (declare (not safe)) (type-descriptor? _klass81514_)) (let () (declare (not safe)) - (__find-method _klass81509_ _id81510_)) + (__find-method _klass81514_ _id81515_)) (let () (declare (not safe)) - (builtin-find-method _klass81509_ _id81510_))))) + (builtin-find-method _klass81514_ _id81515_))))) (define __find-method - (lambda (_klass81503_ _id81504_) - (let ((_$e81506_ + (lambda (_klass81508_ _id81509_) + (let ((_$e81511_ (let () (declare (not safe)) - (direct-method-ref _klass81503_ _id81504_)))) - (if _$e81506_ - _$e81506_ + (direct-method-ref _klass81508_ _id81509_)))) + (if _$e81511_ + _$e81511_ (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass81503_)) + (type-descriptor-sealed? _klass81508_)) '#f (let () (declare (not safe)) - (mixin-method-ref _klass81503_ _id81504_))))))) - (define struct-find-method find-method) + (mixin-method-ref _klass81508_ _id81509_))))))) (define class-find-method - (lambda (_klass81500_ _id81501_) - (if (let () (declare (not safe)) (type-descriptor? _klass81500_)) + (lambda (_klass81505_ _id81506_) + (if (let () (declare (not safe)) (type-descriptor? _klass81505_)) (let () (declare (not safe)) - (__find-method _klass81500_ _id81501_)) + (__find-method _klass81505_ _id81506_)) '#f))) (define mixin-find-method - (lambda (_mixins81493_ _id81494_) - (let ((__tmp86836 - (lambda (_g8149581497_) + (lambda (_mixins81498_ _id81499_) + (let ((__tmp86766 + (lambda (_g8150081502_) (let () (declare (not safe)) - (direct-method-ref _g8149581497_ _id81494_))))) + (direct-method-ref _g8150081502_ _id81499_))))) (declare (not safe)) - (ormap1 __tmp86836 _mixins81493_)))) + (ormap1 __tmp86766 _mixins81498_)))) (define builtin-find-method - (lambda (_klass81487_ _id81488_) - (if (let () (declare (not safe)) (##type? _klass81487_)) - (let ((_$e81490_ + (lambda (_klass81492_ _id81493_) + (if (let () (declare (not safe)) (##type? _klass81492_)) + (let ((_$e81495_ (let () (declare (not safe)) - (builtin-method-ref _klass81487_ _id81488_)))) - (if _$e81490_ - _$e81490_ - (let ((__tmp86837 + (builtin-method-ref _klass81492_ _id81493_)))) + (if _$e81495_ + _$e81495_ + (let ((__tmp86767 (let () (declare (not safe)) - (##type-super _klass81487_)))) + (##type-super _klass81492_)))) (declare (not safe)) - (builtin-find-method __tmp86837 _id81488_)))) + (builtin-find-method __tmp86767 _id81493_)))) '#f))) (define direct-method-ref - (lambda (_klass81479_ _id81480_) - (let ((_$e81482_ + (lambda (_klass81484_ _id81485_) + (let ((_$e81487_ (let () (declare (not safe)) - (type-descriptor-methods _klass81479_)))) - (if _$e81482_ - ((lambda (_ht81485_) + (type-descriptor-methods _klass81484_)))) + (if _$e81487_ + ((lambda (_ht81490_) (let () (declare (not safe)) - (table-ref _ht81485_ _id81480_ '#f))) - _$e81482_) + (table-ref _ht81490_ _id81485_ '#f))) + _$e81487_) '#f)))) (define mixin-method-ref - (lambda (_klass81476_ _id81477_) - (let ((__tmp86838 + (lambda (_klass81481_ _id81482_) + (let ((__tmp86768 (let () (declare (not safe)) - (type-descriptor-precedence-list _klass81476_)))) + (type-descriptor-precedence-list _klass81481_)))) (declare (not safe)) - (mixin-find-method __tmp86838 _id81477_)))) + (mixin-find-method __tmp86768 _id81482_)))) (define builtin-method-ref - (lambda (_klass81468_ _id81469_) - (let ((_$e81471_ - (let ((__tmp86839 - (let () (declare (not safe)) (##type-id _klass81468_)))) + (lambda (_klass81473_ _id81474_) + (let ((_$e81476_ + (let ((__tmp86769 + (let () (declare (not safe)) (##type-id _klass81473_)))) (declare (not safe)) - (table-ref __builtin-type-methods __tmp86839 '#f)))) - (if _$e81471_ - ((lambda (_mtab81474_) + (table-ref __builtin-type-methods __tmp86769 '#f)))) + (if _$e81476_ + ((lambda (_mtab81479_) (let () (declare (not safe)) - (table-ref _mtab81474_ _id81469_ '#f))) - _$e81471_) + (table-ref _mtab81479_ _id81474_ '#f))) + _$e81476_) '#f)))) (define bind-method!__% - (lambda (_klass81434_ _id81435_ _proc81436_ _rebind?81437_) - (letrec ((_bind!81439_ - (lambda (_ht81452_) - (if (and (let () (declare (not safe)) (not _rebind?81437_)) + (lambda (_klass81439_ _id81440_ _proc81441_ _rebind?81442_) + (letrec ((_bind!81444_ + (lambda (_ht81457_) + (if (and (let () (declare (not safe)) (not _rebind?81442_)) (let () (declare (not safe)) - (table-ref _ht81452_ _id81435_ '#f))) + (table-ref _ht81457_ _id81440_ '#f))) (error '"method already bound" 'class: - _klass81434_ + _klass81439_ 'method: - _id81435_) + _id81440_) (let () (declare (not safe)) - (table-set! _ht81452_ _id81435_ _proc81436_)))))) - (if (let () (declare (not safe)) (procedure? _proc81436_)) + (table-set! _ht81457_ _id81440_ _proc81441_)))))) + (if (let () (declare (not safe)) (procedure? _proc81441_)) '#!void - (error '"bad method; expected procedure" _proc81436_)) - (if (let () (declare (not safe)) (type-descriptor? _klass81434_)) - (let ((_ht81441_ + (error '"bad method; expected procedure" _proc81441_)) + (if (let () (declare (not safe)) (type-descriptor? _klass81439_)) + (let ((_ht81446_ (let () (declare (not safe)) - (type-descriptor-methods _klass81434_)))) - (if _ht81441_ - (let () (declare (not safe)) (_bind!81439_ _ht81441_)) - (let ((_ht81443_ + (type-descriptor-methods _klass81439_)))) + (if _ht81446_ + (let () (declare (not safe)) (_bind!81444_ _ht81446_)) + (let ((_ht81448_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (type-descriptor-methods-set! _klass81434_ _ht81443_)) - (let () (declare (not safe)) (_bind!81439_ _ht81443_))))) - (if (let () (declare (not safe)) (##type? _klass81434_)) - (let ((_ht81450_ - (let ((_$e81445_ - (let ((__tmp86840 + (type-descriptor-methods-set! _klass81439_ _ht81448_)) + (let () (declare (not safe)) (_bind!81444_ _ht81448_))))) + (if (let () (declare (not safe)) (##type? _klass81439_)) + (let ((_ht81455_ + (let ((_$e81450_ + (let ((__tmp86770 (let () (declare (not safe)) - (##type-id _klass81434_)))) + (##type-id _klass81439_)))) (declare (not safe)) (table-ref __builtin-type-methods - __tmp86840 + __tmp86770 '#f)))) - (if _$e81445_ - _$e81445_ - (let ((_ht81448_ + (if _$e81450_ + _$e81450_ + (let ((_ht81453_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp86841 + (let ((__tmp86771 (let () (declare (not safe)) - (##type-id _klass81434_)))) + (##type-id _klass81439_)))) (declare (not safe)) (table-set! __builtin-type-methods - __tmp86841 - _ht81448_)) - _ht81448_))))) + __tmp86771 + _ht81453_)) + _ht81453_))))) (declare (not safe)) - (_bind!81439_ _ht81450_)) + (_bind!81444_ _ht81455_)) (error '"bad class; expected type-descriptor or builtin type" - _klass81434_)))))) + _klass81439_)))))) (define bind-method!__0 - (lambda (_klass81457_ _id81458_ _proc81459_) - (let ((_rebind?81461_ '#t)) + (lambda (_klass81462_ _id81463_ _proc81464_) + (let ((_rebind?81466_ '#t)) (declare (not safe)) (bind-method!__% - _klass81457_ - _id81458_ - _proc81459_ - _rebind?81461_)))) + _klass81462_ + _id81463_ + _proc81464_ + _rebind?81466_)))) (define bind-method! - (lambda _g86843_ - (let ((_g86842_ (let () (declare (not safe)) (##length _g86843_)))) - (cond ((let () (declare (not safe)) (##fx= _g86842_ 3)) - (apply (lambda (_klass81457_ _id81458_ _proc81459_) + (lambda _g86773_ + (let ((_g86772_ (let () (declare (not safe)) (##length _g86773_)))) + (cond ((let () (declare (not safe)) (##fx= _g86772_ 3)) + (apply (lambda (_klass81462_ _id81463_ _proc81464_) (let () (declare (not safe)) (bind-method!__0 - _klass81457_ - _id81458_ - _proc81459_))) - _g86843_)) - ((let () (declare (not safe)) (##fx= _g86842_ 4)) - (apply (lambda (_klass81463_ - _id81464_ - _proc81465_ - _rebind?81466_) + _klass81462_ + _id81463_ + _proc81464_))) + _g86773_)) + ((let () (declare (not safe)) (##fx= _g86772_ 4)) + (apply (lambda (_klass81468_ + _id81469_ + _proc81470_ + _rebind?81471_) (let () (declare (not safe)) (bind-method!__% - _klass81463_ - _id81464_ - _proc81465_ - _rebind?81466_))) - _g86843_)) + _klass81468_ + _id81469_ + _proc81470_ + _rebind?81471_))) + _g86773_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g86843_)))))) + _g86773_)))))) (define __method-specializers (make-table 'test: eq?)) (define bind-specializer! - (lambda (_proc81430_ _specializer81431_) + (lambda (_proc81435_ _specializer81436_) (let () (declare (not safe)) - (table-set! __method-specializers _proc81430_ _specializer81431_)))) + (table-set! __method-specializers _proc81435_ _specializer81436_)))) (define seal-class! - (lambda (_klass81397_) - (letrec ((_collect-methods!81399_ - (lambda (_mtab81415_) - (letrec ((_merge!81417_ - (lambda (_tab81425_) - (let ((__tmp86844 - (lambda (_id81427_ _proc81428_) + (lambda (_klass81402_) + (letrec ((_collect-methods!81404_ + (lambda (_mtab81420_) + (letrec ((_merge!81422_ + (lambda (_tab81430_) + (let ((__tmp86774 + (lambda (_id81432_ _proc81433_) (let () (declare (not safe)) (table-set! - _mtab81415_ - _id81427_ - _proc81428_))))) + _mtab81420_ + _id81432_ + _proc81433_))))) (declare (not safe)) - (table-for-each __tmp86844 _tab81425_)))) - (_collect-direct-methods!81418_ - (lambda (_klass81420_) - (let ((_$e81422_ + (table-for-each __tmp86774 _tab81430_)))) + (_collect-direct-methods!81423_ + (lambda (_klass81425_) + (let ((_$e81427_ (let () (declare (not safe)) (type-descriptor-methods - _klass81420_)))) - (if _$e81422_ + _klass81425_)))) + (if _$e81427_ (let () (declare (not safe)) - (_merge!81417_ _$e81422_)) + (_merge!81422_ _$e81427_)) '#!void))))) (for-each - _collect-direct-methods!81418_ + _collect-direct-methods!81423_ (reverse (let () (declare (not safe)) - (class-precedence-list _klass81397_)))))))) - (if (let () (declare (not safe)) (type-descriptor? _klass81397_)) + (class-precedence-list _klass81402_)))))))) + (if (let () (declare (not safe)) (type-descriptor? _klass81402_)) (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass81397_)) + (type-descriptor-sealed? _klass81402_)) '#!void (begin (if (let () (declare (not safe)) - (type-final? _klass81397_)) + (type-final? _klass81402_)) '#!void - (error '"cannot seal non-final class" _klass81397_)) - (let ((_vtab81401_ + (error '"cannot seal non-final class" _klass81402_)) + (let ((_vtab81406_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_mtab81402_ + (_mtab81407_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (_collect-methods!81399_ _mtab81402_)) - (let ((__tmp86845 - (lambda (_id81404_ _proc81405_) - (let ((_$e81407_ + (_collect-methods!81404_ _mtab81407_)) + (let ((__tmp86775 + (lambda (_id81409_ _proc81410_) + (let ((_$e81412_ (let () (declare (not safe)) (table-ref __method-specializers - _proc81405_ + _proc81410_ '#f)))) - (if _$e81407_ - ((lambda (_specializer81410_) - (let ((_proc81412_ - (_specializer81410_ - _klass81397_)) - (_gid81413_ - (let ((__tmp86846 + (if _$e81412_ + ((lambda (_specializer81415_) + (let ((_proc81417_ + (_specializer81415_ + _klass81402_)) + (_gid81418_ + (let ((__tmp86776 (let () (declare (not safe)) (##type-id - _klass81397_)))) + _klass81402_)))) (declare (not safe)) (make-symbol__1 - __tmp86846 + __tmp86776 '"::[" - _id81404_ + _id81409_ '"]")))) - (eval (let ((__tmp86847 - (let ((__tmp86848 - (let ((__tmp86849 + (eval (let ((__tmp86777 + (let ((__tmp86778 + (let ((__tmp86779 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp86850 + (let ((__tmp86780 (let () (declare (not safe)) - (cons _proc81412_ '())))) + (cons _proc81417_ '())))) (declare (not safe)) - (cons 'quote __tmp86850)))) + (cons 'quote __tmp86780)))) (declare (not safe)) - (cons __tmp86849 '())))) + (cons __tmp86779 '())))) (declare (not safe)) - (cons _gid81413_ __tmp86848)))) + (cons _gid81418_ __tmp86778)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'def __tmp86847))) + (cons 'def __tmp86777))) (let () (declare (not safe)) (table-set! - _vtab81401_ - _id81404_ - _proc81412_)))) - _$e81407_) + _vtab81406_ + _id81409_ + _proc81417_)))) + _$e81412_) (let () (declare (not safe)) (table-set! - _vtab81401_ - _id81404_ - _proc81405_))))))) + _vtab81406_ + _id81409_ + _proc81410_))))))) (declare (not safe)) - (table-for-each __tmp86845 _mtab81402_)) + (table-for-each __tmp86775 _mtab81407_)) (let () (declare (not safe)) (type-descriptor-methods-set! - _klass81397_ - _vtab81401_)) + _klass81402_ + _vtab81406_)) (let () (declare (not safe)) - (type-descriptor-seal! _klass81397_))))) + (type-descriptor-seal! _klass81402_))))) '#!void)))) (define next-method - (lambda (_subklass81346_ _obj81347_ _id81348_) - (let ((_klass81350_ - (let () (declare (not safe)) (object-type _obj81347_))) - (_type-id81351_ - (let () (declare (not safe)) (##type-id _subklass81346_)))) - (if (let () (declare (not safe)) (type-descriptor? _klass81350_)) - (let _lp81353_ ((_rest81355_ + (lambda (_subklass81351_ _obj81352_ _id81353_) + (let ((_klass81355_ + (let () (declare (not safe)) (object-type _obj81352_))) + (_type-id81356_ + (let () (declare (not safe)) (##type-id _subklass81351_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass81355_)) + (let _lp81358_ ((_rest81360_ (let () (declare (not safe)) - (class-precedence-list _klass81350_)))) - (let* ((_rest8135681364_ _rest81355_) - (_else8135881372_ (lambda () '#f)) - (_K8136081378_ - (lambda (_rest81375_ _klass81376_) - (if (let ((__tmp86853 + (class-precedence-list _klass81355_)))) + (let* ((_rest8136181369_ _rest81360_) + (_else8136381377_ (lambda () '#f)) + (_K8136581383_ + (lambda (_rest81380_ _klass81381_) + (if (let ((__tmp86783 (let () (declare (not safe)) - (##type-id _klass81376_)))) + (##type-id _klass81381_)))) (declare (not safe)) - (eq? _type-id81351_ __tmp86853)) + (eq? _type-id81356_ __tmp86783)) (let () (declare (not safe)) - (mixin-find-method _rest81375_ _id81348_)) + (mixin-find-method _rest81380_ _id81353_)) (let () (declare (not safe)) - (_lp81353_ _rest81375_)))))) - (if (let () (declare (not safe)) (##pair? _rest8135681364_)) - (let ((_hd8136181381_ + (_lp81358_ _rest81380_)))))) + (if (let () (declare (not safe)) (##pair? _rest8136181369_)) + (let ((_hd8136681386_ (let () (declare (not safe)) - (##car _rest8135681364_))) - (_tl8136281383_ + (##car _rest8136181369_))) + (_tl8136781388_ (let () (declare (not safe)) - (##cdr _rest8135681364_)))) - (let* ((_klass81386_ _hd8136181381_) - (_rest81388_ _tl8136281383_)) + (##cdr _rest8136181369_)))) + (let* ((_klass81391_ _hd8136681386_) + (_rest81393_ _tl8136781388_)) (declare (not safe)) - (_K8136081378_ _rest81388_ _klass81386_))) - (let () (declare (not safe)) (_else8135881372_))))) - (if (let () (declare (not safe)) (##type? _klass81350_)) - (let _lp81390_ ((_klass81392_ _klass81350_)) - (if (let ((__tmp86852 + (_K8136581383_ _rest81393_ _klass81391_))) + (let () (declare (not safe)) (_else8136381377_))))) + (if (let () (declare (not safe)) (##type? _klass81355_)) + (let _lp81395_ ((_klass81397_ _klass81355_)) + (if (let ((__tmp86782 (let () (declare (not safe)) - (##type-id _klass81392_)))) + (##type-id _klass81397_)))) (declare (not safe)) - (eq? _type-id81351_ __tmp86852)) - (let ((__tmp86851 + (eq? _type-id81356_ __tmp86782)) + (let ((__tmp86781 (let () (declare (not safe)) - (##type-super _klass81392_)))) + (##type-super _klass81397_)))) (declare (not safe)) - (builtin-find-method __tmp86851 _id81348_)) - (let ((_$e81394_ + (builtin-find-method __tmp86781 _id81353_)) + (let ((_$e81399_ (let () (declare (not safe)) - (##type-super _klass81392_)))) - (if _$e81394_ + (##type-super _klass81397_)))) + (if _$e81399_ (let () (declare (not safe)) - (_lp81390_ _$e81394_)) + (_lp81395_ _$e81399_)) '#f)))) '#f))))) (define call-next-method - (lambda (_subklass81336_ _obj81337_ _id81338_ . _args81339_) - (let ((_$e81341_ + (lambda (_subklass81341_ _obj81342_ _id81343_ . _args81344_) + (let ((_$e81346_ (let () (declare (not safe)) - (next-method _subklass81336_ _obj81337_ _id81338_)))) - (if _$e81341_ - ((lambda (_methodf81344_) - (apply _methodf81344_ _obj81337_ _args81339_)) - _$e81341_) + (next-method _subklass81341_ _obj81342_ _id81343_)))) + (if _$e81346_ + ((lambda (_methodf81349_) + (apply _methodf81349_ _obj81342_ _args81344_)) + _$e81346_) (error '"cannot find next method" 'object: - _obj81337_ + _obj81342_ 'method: - _id81338_))))) - (define write-style (lambda (_we81334_) (macro-writeenv-style _we81334_))) + _id81343_))))) + (define write-style (lambda (_we81339_) (macro-writeenv-style _we81339_))) (define write-object - (lambda (_we81326_ _obj81327_) - (let ((_$e81329_ - (let () (declare (not safe)) (method-ref _obj81327_ ':wr)))) - (if _$e81329_ - ((lambda (_method81332_) (_method81332_ _obj81327_ _we81326_)) - _$e81329_) + (lambda (_we81331_ _obj81332_) + (let ((_$e81334_ + (let () (declare (not safe)) (method-ref _obj81332_ ':wr)))) + (if _$e81334_ + ((lambda (_method81337_) (_method81337_ _obj81332_ _we81331_)) + _$e81334_) (let () (declare (not safe)) - (##default-wr _we81326_ _obj81327_)))))) + (##default-wr _we81331_ _obj81332_)))))) (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 070270ed8..303d82657 100644 --- a/src/bootstrap/gerbil/runtime/mop__1.scm +++ b/src/bootstrap/gerbil/runtime/mop__1.scm @@ -1,233 +1,233 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |[:0:]#__slot-e| - (lambda (_$stx81208_) - (let* ((_g8121281238_ - (lambda (_g8121381234_) + (lambda (_$stx81213_) + (let* ((_g8121781243_ + (lambda (_g8121881239_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8121381234_))) - (_g8121181322_ - (lambda (_g8121381242_) - (if (gx#stx-pair? _g8121381242_) - (let ((_e8122081245_ (gx#syntax-e _g8121381242_))) - (let ((_hd8121981249_ - (let () (declare (not safe)) (##car _e8122081245_))) - (_tl8121881252_ + _g8121881239_))) + (_g8121681327_ + (lambda (_g8121881247_) + (if (gx#stx-pair? _g8121881247_) + (let ((_e8122581250_ (gx#syntax-e _g8121881247_))) + (let ((_hd8122481254_ + (let () (declare (not safe)) (##car _e8122581250_))) + (_tl8122381257_ (let () (declare (not safe)) - (##cdr _e8122081245_)))) - (if (gx#stx-pair? _tl8121881252_) - (let ((_e8122381255_ (gx#syntax-e _tl8121881252_))) - (let ((_hd8122281259_ + (##cdr _e8122581250_)))) + (if (gx#stx-pair? _tl8122381257_) + (let ((_e8122881260_ (gx#syntax-e _tl8122381257_))) + (let ((_hd8122781264_ (let () (declare (not safe)) - (##car _e8122381255_))) - (_tl8122181262_ + (##car _e8122881260_))) + (_tl8122681267_ (let () (declare (not safe)) - (##cdr _e8122381255_)))) - (if (gx#stx-pair? _tl8122181262_) - (let ((_e8122681265_ - (gx#syntax-e _tl8122181262_))) - (let ((_hd8122581269_ + (##cdr _e8122881260_)))) + (if (gx#stx-pair? _tl8122681267_) + (let ((_e8123181270_ + (gx#syntax-e _tl8122681267_))) + (let ((_hd8123081274_ (let () (declare (not safe)) - (##car _e8122681265_))) - (_tl8122481272_ + (##car _e8123181270_))) + (_tl8122981277_ (let () (declare (not safe)) - (##cdr _e8122681265_)))) - (if (gx#stx-pair? _tl8122481272_) - (let ((_e8122981275_ - (gx#syntax-e _tl8122481272_))) - (let ((_hd8122881279_ + (##cdr _e8123181270_)))) + (if (gx#stx-pair? _tl8122981277_) + (let ((_e8123481280_ + (gx#syntax-e _tl8122981277_))) + (let ((_hd8123381284_ (let () (declare (not safe)) - (##car _e8122981275_))) - (_tl8122781282_ + (##car _e8123481280_))) + (_tl8123281287_ (let () (declare (not safe)) - (##cdr _e8122981275_)))) - (if (gx#stx-pair? _tl8122781282_) - (let ((_e8123281285_ + (##cdr _e8123481280_)))) + (if (gx#stx-pair? _tl8123281287_) + (let ((_e8123781290_ (gx#syntax-e - _tl8122781282_))) - (let ((_hd8123181289_ + _tl8123281287_))) + (let ((_hd8123681294_ (let () (declare (not safe)) - (##car _e8123281285_))) - (_tl8123081292_ + (##car _e8123781290_))) + (_tl8123581297_ (let () (declare (not safe)) - (##cdr _e8123281285_)))) + (##cdr _e8123781290_)))) (if (gx#stx-null? - _tl8123081292_) - ((lambda (_L81295_ + _tl8123581297_) + ((lambda (_L81300_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L81297_ - _L81298_ - _L81299_) - (let ((__tmp86900 (gx#datum->syntax '#f 'if)) - (__tmp86854 - (let ((__tmp86897 - (let ((__tmp86899 + _L81302_ + _L81303_ + _L81304_) + (let ((__tmp86830 (gx#datum->syntax '#f 'if)) + (__tmp86784 + (let ((__tmp86827 + (let ((__tmp86829 (gx#datum->syntax '#f 'object?)) - (__tmp86898 + (__tmp86828 (let () (declare (not safe)) - (cons _L81299_ '())))) + (cons _L81304_ '())))) (declare (not safe)) - (cons __tmp86899 __tmp86898))) - (__tmp86855 - (let ((__tmp86860 - (let ((__tmp86896 + (cons __tmp86829 __tmp86828))) + (__tmp86785 + (let ((__tmp86790 + (let ((__tmp86826 (gx#datum->syntax '#f 'let)) - (__tmp86861 - (let ((__tmp86890 - (let ((__tmp86895 + (__tmp86791 + (let ((__tmp86820 + (let ((__tmp86825 (gx#datum->syntax '#f 'klass)) - (__tmp86891 - (let ((__tmp86892 + (__tmp86821 + (let ((__tmp86822 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp86894 + (let ((__tmp86824 (gx#datum->syntax '#f 'object-type)) - (__tmp86893 + (__tmp86823 (let () (declare (not safe)) - (cons _L81299_ '())))) + (cons _L81304_ '())))) (declare (not safe)) - (cons __tmp86894 __tmp86893)))) + (cons __tmp86824 __tmp86823)))) (declare (not safe)) - (cons __tmp86892 '())))) + (cons __tmp86822 '())))) (declare (not safe)) - (cons __tmp86895 __tmp86891))) - (__tmp86862 - (let ((__tmp86863 - (let ((__tmp86889 (gx#datum->syntax '#f 'cond)) - (__tmp86864 - (let ((__tmp86872 - (let ((__tmp86876 - (let ((__tmp86888 + (cons __tmp86825 __tmp86821))) + (__tmp86792 + (let ((__tmp86793 + (let ((__tmp86819 (gx#datum->syntax '#f 'cond)) + (__tmp86794 + (let ((__tmp86802 + (let ((__tmp86806 + (let ((__tmp86818 (gx#datum->syntax '#f 'and)) - (__tmp86877 - (let ((__tmp86884 - (let ((__tmp86887 + (__tmp86807 + (let ((__tmp86814 + (let ((__tmp86817 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'type-descriptor?)) - (__tmp86885 - (let ((__tmp86886 (gx#datum->syntax '#f 'klass))) + (__tmp86815 + (let ((__tmp86816 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp86886 '())))) + (cons __tmp86816 '())))) (declare (not safe)) - (cons __tmp86887 __tmp86885))) - (__tmp86878 - (let ((__tmp86879 - (let ((__tmp86883 - (gx#datum->syntax '#f 'class-slot-offset*)) - (__tmp86880 - (let ((__tmp86882 + (cons __tmp86817 __tmp86815))) + (__tmp86808 + (let ((__tmp86809 + (let ((__tmp86813 + (gx#datum->syntax '#f 'class-slot-offset)) + (__tmp86810 + (let ((__tmp86812 (gx#datum->syntax '#f 'klass)) - (__tmp86881 + (__tmp86811 (let () (declare (not safe)) - (cons _L81298_ '())))) + (cons _L81303_ '())))) (declare (not safe)) - (cons __tmp86882 __tmp86881)))) + (cons __tmp86812 __tmp86811)))) (declare (not safe)) - (cons __tmp86883 __tmp86880)))) + (cons __tmp86813 __tmp86810)))) (declare (not safe)) - (cons __tmp86879 '())))) + (cons __tmp86809 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86884 - __tmp86878)))) + (cons __tmp86814 + __tmp86808)))) (declare (not safe)) - (cons __tmp86888 __tmp86877))) - (__tmp86873 - (let ((__tmp86875 + (cons __tmp86818 __tmp86807))) + (__tmp86803 + (let ((__tmp86805 (gx#datum->syntax '#f '=>)) - (__tmp86874 + (__tmp86804 (let () (declare (not safe)) - (cons _L81297_ '())))) + (cons _L81302_ '())))) (declare (not safe)) - (cons __tmp86875 __tmp86874)))) + (cons __tmp86805 __tmp86804)))) (declare (not safe)) - (cons __tmp86876 __tmp86873))) - (__tmp86865 - (let ((__tmp86866 - (let ((__tmp86871 + (cons __tmp86806 __tmp86803))) + (__tmp86795 + (let ((__tmp86796 + (let ((__tmp86801 (gx#datum->syntax '#f 'else)) - (__tmp86867 - (let ((__tmp86868 - (let ((__tmp86869 + (__tmp86797 + (let ((__tmp86798 + (let ((__tmp86799 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp86870 + (let ((__tmp86800 (let () (declare (not safe)) - (cons _L81298_ '())))) + (cons _L81303_ '())))) (declare (not safe)) - (cons _L81299_ __tmp86870)))) + (cons _L81304_ __tmp86800)))) (declare (not safe)) - (cons _L81295_ __tmp86869)))) + (cons _L81300_ __tmp86799)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86868 '())))) + (cons __tmp86798 '())))) (declare (not safe)) - (cons __tmp86871 __tmp86867)))) + (cons __tmp86801 __tmp86797)))) (declare (not safe)) - (cons __tmp86866 '())))) + (cons __tmp86796 '())))) (declare (not safe)) - (cons __tmp86872 __tmp86865)))) + (cons __tmp86802 __tmp86795)))) (declare (not safe)) - (cons __tmp86889 __tmp86864)))) + (cons __tmp86819 __tmp86794)))) (declare (not safe)) - (cons __tmp86863 '())))) + (cons __tmp86793 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86890 - __tmp86862)))) + (cons __tmp86820 + __tmp86792)))) (declare (not safe)) - (cons __tmp86896 __tmp86861))) - (__tmp86856 - (let ((__tmp86857 - (let ((__tmp86858 - (let ((__tmp86859 + (cons __tmp86826 __tmp86791))) + (__tmp86786 + (let ((__tmp86787 + (let ((__tmp86788 + (let ((__tmp86789 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L81298_ '())))) + (cons _L81303_ '())))) (declare (not safe)) - (cons _L81299_ __tmp86859)))) + (cons _L81304_ __tmp86789)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L81295_ - __tmp86858)))) + (cons _L81300_ + __tmp86788)))) (declare (not safe)) - (cons __tmp86857 '())))) + (cons __tmp86787 '())))) (declare (not safe)) - (cons __tmp86860 __tmp86856)))) + (cons __tmp86790 __tmp86786)))) (declare (not safe)) - (cons __tmp86897 __tmp86855)))) + (cons __tmp86827 __tmp86785)))) (declare (not safe)) - (cons __tmp86900 __tmp86854))) - _hd8123181289_ - _hd8122881279_ - _hd8122581269_ - _hd8122281259_) - (_g8121281238_ _g8121381242_)))) + (cons __tmp86830 __tmp86784))) + _hd8123681294_ + _hd8123381284_ + _hd8123081274_ + _hd8122781264_) + (_g8121781243_ _g8121881247_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8121281238_ - _g8121381242_)))) - (_g8121281238_ _g8121381242_)))) - (_g8121281238_ _g8121381242_)))) - (_g8121281238_ _g8121381242_)))) - (_g8121281238_ _g8121381242_))))) - (_g8121181322_ _$stx81208_)))) + (_g8121781243_ + _g8121881247_)))) + (_g8121781243_ _g8121881247_)))) + (_g8121781243_ _g8121881247_)))) + (_g8121781243_ _g8121881247_)))) + (_g8121781243_ _g8121881247_))))) + (_g8121681327_ _$stx81213_)))) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index e402ded60..1fa9eb2a0 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 1707423039) + (define gerbil/runtime/repl::timestamp 1707565659) (define replx (lambda () - (letrec ((_write-reason111506_ - (lambda (_exn111512_) - (lambda (_cont111514_ _port111515_) + (letrec ((_write-reason111436_ + (lambda (_exn111442_) + (lambda (_cont111444_ _port111445_) (let () (declare (not safe)) (##display-exception-in-context - _exn111512_ - _cont111514_ - _port111515_)) + _exn111442_ + _cont111444_ + _port111445_)) '#f)))) (with-exception-handler - (lambda (_exn111508_) - (let ((__tmp115710 - (lambda (_cont111510_) - (let ((__tmp115711 + (lambda (_exn111438_) + (let ((__tmp115640 + (lambda (_cont111440_) + (let ((__tmp115641 (let () (declare (not safe)) - (_write-reason111506_ _exn111508_)))) + (_write-reason111436_ _exn111438_)))) (declare (not safe)) - (##repl-within _cont111510_ __tmp115711 _exn111508_))))) + (##repl-within _cont111440_ __tmp115641 _exn111438_))))) (declare (not safe)) - (##continuation-capture __tmp115710))) + (##continuation-capture __tmp115640))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index d238d59af..e0903fd1b 100644 --- a/src/bootstrap/gerbil/runtime/syntax__0.scm +++ b/src/bootstrap/gerbil/runtime/syntax__0.scm @@ -1,10 +1,10 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/syntax::timestamp 1707423039) + (define gerbil/runtime/syntax::timestamp 1707565658) (begin (declare (not safe)) (define SyntaxError::t - (make-class-type* + (make-class-type 'gerbil/runtime/syntax#SyntaxError::t 'SyntaxError (list Exception::t) @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args99226_ - (apply make-class-instance SyntaxError::t _$args99226_))) + (lambda _$args99156_ + (apply make-class-instance SyntaxError::t _$args99156_))) (define SyntaxError-message (make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -60,103 +60,103 @@ (define &SyntaxError-marks-set! (make-class-slot-unchecked-mutator SyntaxError::t 'marks)) (define SyntaxError::display-exception - (lambda (_self99129_ _port99130_) - (letrec ((_location99132_ + (lambda (_self99059_ _port99060_) + (letrec ((_location99062_ (lambda () - (let _lp99186_ ((_rest99188_ + (let _lp99116_ ((_rest99118_ (##unchecked-structure-ref - _self99129_ + _self99059_ '2 SyntaxError::t '#f))) - (let* ((_rest9918999197_ _rest99188_) - (_else9919199205_ (lambda () '#f)) - (_K9919399214_ - (lambda (_rest99208_ _hd99209_) - (let ((_$e99211_ (__AST-source _hd99209_))) - (if _$e99211_ - _$e99211_ - (_lp99186_ _rest99208_)))))) - (if (##pair? _rest9918999197_) - (let ((_hd9919499217_ (##car _rest9918999197_)) - (_tl9919599219_ (##cdr _rest9918999197_))) - (let* ((_hd99222_ _hd9919499217_) - (_rest99224_ _tl9919599219_)) - (_K9919399214_ _rest99224_ _hd99222_))) - (_else9919199205_))))))) + (let* ((_rest9911999127_ _rest99118_) + (_else9912199135_ (lambda () '#f)) + (_K9912399144_ + (lambda (_rest99138_ _hd99139_) + (let ((_$e99141_ (__AST-source _hd99139_))) + (if _$e99141_ + _$e99141_ + (_lp99116_ _rest99138_)))))) + (if (##pair? _rest9911999127_) + (let ((_hd9912499147_ (##car _rest9911999127_)) + (_tl9912599149_ (##cdr _rest9911999127_))) + (let* ((_hd99152_ _hd9912499147_) + (_rest99154_ _tl9912599149_)) + (_K9912399144_ _rest99154_ _hd99152_))) + (_else9912199135_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e99135_ (_location99132_))) - (if _$e99135_ - ((lambda (_where99138_) - (##display-locat _where99138_ '#t (current-output-port))) - _$e99135_) + (let ((_$e99065_ (_location99062_))) + (if _$e99065_ + ((lambda (_where99068_) + (##display-locat _where99068_ '#t (current-output-port))) + _$e99065_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e99140_ + (let ((_$e99070_ (##unchecked-structure-ref - _self99129_ + _self99059_ '3 SyntaxError::t '#f))) - (if _$e99140_ - ((lambda (_where99143_) + (if _$e99070_ + ((lambda (_where99073_) (displayln '" at " - _where99143_ + _where99073_ '": " (##unchecked-structure-ref - _self99129_ + _self99059_ '1 SyntaxError::t '#f))) - _$e99140_) + _$e99070_) (displayln '": " (##unchecked-structure-ref - _self99129_ + _self99059_ '1 SyntaxError::t '#f)))) - (let* ((_g9914499152_ + (let* ((_g9907499082_ (##unchecked-structure-ref - _self99129_ + _self99059_ '2 SyntaxError::t '#f)) - (_else9914699160_ (lambda () '#!void)) - (_K9914899173_ - (lambda (_rest99163_ _stx99164_) + (_else9907699090_ (lambda () '#!void)) + (_K9907899103_ + (lambda (_rest99093_ _stx99094_) (display '"... form: ") - (__pp-syntax _stx99164_) + (__pp-syntax _stx99094_) (for-each - (lambda (_detail99166_) + (lambda (_detail99096_) (display '"... detail: ") - (write (__AST->datum _detail99166_)) - (let ((_$e99168_ (__AST-source _detail99166_))) - (if _$e99168_ - ((lambda (_loc99171_) + (write (__AST->datum _detail99096_)) + (let ((_$e99098_ (__AST-source _detail99096_))) + (if _$e99098_ + ((lambda (_loc99101_) (display '" at ") (##display-locat - _loc99171_ + _loc99101_ '#t (current-output-port))) - _$e99168_) + _$e99098_) '#!void)) (newline)) - _rest99163_)))) - (if (##pair? _g9914499152_) - (let ((_hd9914999176_ (##car _g9914499152_)) - (_tl9915099178_ (##cdr _g9914499152_))) - (let* ((_stx99181_ _hd9914999176_) - (_rest99183_ _tl9915099178_)) - (_K9914899173_ _rest99183_ _stx99181_))) + _rest99093_)))) + (if (##pair? _g9907499082_) + (let ((_hd9907999106_ (##car _g9907499082_)) + (_tl9908099108_ (##cdr _g9907499082_))) + (let* ((_stx99111_ _hd9907999106_) + (_rest99113_ _tl9908099108_)) + (_K9907899103_ _rest99113_ _stx99111_))) '#!void))) current-output-port - _port99130_)))) + _port99060_)))) (bind-method! SyntaxError::t 'display-exception @@ -164,63 +164,63 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message99000_ - _irritants99001_ - _where99002_ - _context99003_ - _marks99004_ - _phi99005_) - (let ((__obj103515 (make-object* SyntaxError::t '7))) + (lambda (_message98930_ + _irritants98931_ + _where98932_ + _context98933_ + _marks98934_ + _phi98935_) + (let ((__obj103445 (make-object SyntaxError::t '7))) (##unchecked-structure-set! - __obj103515 - _message99000_ + __obj103445 + _message98930_ '1 SyntaxError::t '#f) (##unchecked-structure-set! - __obj103515 - _irritants99001_ + __obj103445 + _irritants98931_ '2 SyntaxError::t '#f) (##unchecked-structure-set! - __obj103515 - _where99002_ + __obj103445 + _where98932_ '3 SyntaxError::t '#f) (##unchecked-structure-set! - __obj103515 - _context99003_ + __obj103445 + _context98933_ '4 SyntaxError::t '#f) (##unchecked-structure-set! - __obj103515 - _marks99004_ + __obj103445 + _marks98934_ '6 SyntaxError::t '#f) (##unchecked-structure-set! - __obj103515 - _phi99005_ + __obj103445 + _phi98935_ '5 SyntaxError::t '#f) - __obj103515))) + __obj103445))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where98995_ _message98996_ _stx98997_ . _details98998_) + (lambda (_where98925_ _message98926_ _stx98927_ . _details98928_) (raise (make-syntax-error - _message98996_ - (cons _stx98997_ _details98998_) - _where98995_ + _message98926_ + (cons _stx98927_ _details98928_) + _where98925_ (__current-context) '#f '#f)))) (define __current-context (make-parameter '#f)) (define AST::t - (make-struct-type* + (make-struct-type 'gerbil#AST::t 'syntax '#f @@ -229,7 +229,7 @@ '#f)) (define AST? (make-struct-predicate AST::t)) (define make-AST - (lambda _$args98992_ (apply make-struct-instance AST::t _$args98992_))) + (lambda _$args98922_ (apply make-struct-instance AST::t _$args98922_))) (define AST-e (make-struct-slot-accessor AST::t 'e)) (define AST-source (make-struct-slot-accessor AST::t 'source)) (define AST-e-set! (make-struct-slot-mutator AST::t 'e)) @@ -240,169 +240,169 @@ (define &AST-source-set! (make-struct-slot-unchecked-mutator AST::t 'source)) (define __AST-e - (lambda (_stx98990_) - (if (##structure-instance-of? _stx98990_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx98990_ '1 AST::t '#f) - _stx98990_))) + (lambda (_stx98920_) + (if (##structure-instance-of? _stx98920_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx98920_ '1 AST::t '#f) + _stx98920_))) (define __AST-source - (lambda (_stx98984_) - (let _lp98986_ ((_src98988_ _stx98984_)) - (if (##structure-instance-of? _src98988_ 'gerbil#AST::t) - (_lp98986_ (##unchecked-structure-ref _src98988_ '2 AST::t '#f)) - (if (##locat? _src98988_) _src98988_ '#f))))) + (lambda (_stx98914_) + (let _lp98916_ ((_src98918_ _stx98914_)) + (if (##structure-instance-of? _src98918_ 'gerbil#AST::t) + (_lp98916_ (##unchecked-structure-ref _src98918_ '2 AST::t '#f)) + (if (##locat? _src98918_) _src98918_ '#f))))) (define __AST - (lambda (_e98976_ _src-stx98977_) - (let ((_src98979_ (__AST-source _src-stx98977_))) - (if (or (##structure-instance-of? _e98976_ 'gerbil#AST::t) - (not _src98979_)) - _e98976_ - (##structure AST::t _e98976_ _src98979_))))) + (lambda (_e98906_ _src-stx98907_) + (let ((_src98909_ (__AST-source _src-stx98907_))) + (if (or (##structure-instance-of? _e98906_ 'gerbil#AST::t) + (not _src98909_)) + _e98906_ + (##structure AST::t _e98906_ _src98909_))))) (define __AST-eq? - (lambda (_stx98973_ _obj98974_) (eq? (__AST-e _stx98973_) _obj98974_))) - (define __AST-pair? (lambda (_stx98971_) (pair? (__AST-e _stx98971_)))) - (define __AST-null? (lambda (_stx98969_) (null? (__AST-e _stx98969_)))) + (lambda (_stx98903_ _obj98904_) (eq? (__AST-e _stx98903_) _obj98904_))) + (define __AST-pair? (lambda (_stx98901_) (pair? (__AST-e _stx98901_)))) + (define __AST-null? (lambda (_stx98899_) (null? (__AST-e _stx98899_)))) (define __AST-datum? - (lambda (_stx98950_) - (let* ((_e98952_ (__AST-e _stx98950_)) (_$e98954_ (number? _e98952_))) - (if _$e98954_ - _$e98954_ - (let ((_$e98957_ (string? _e98952_))) - (if _$e98957_ - _$e98957_ - (let ((_$e98960_ (char? _e98952_))) - (if _$e98960_ - _$e98960_ - (let ((_$e98963_ (keyword? _e98952_))) - (if _$e98963_ - _$e98963_ - (let ((_$e98966_ (boolean? _e98952_))) - (if _$e98966_ - _$e98966_ - (eq? _e98952_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx98948_) (symbol? (__AST-e _stx98948_)))) + (lambda (_stx98880_) + (let* ((_e98882_ (__AST-e _stx98880_)) (_$e98884_ (number? _e98882_))) + (if _$e98884_ + _$e98884_ + (let ((_$e98887_ (string? _e98882_))) + (if _$e98887_ + _$e98887_ + (let ((_$e98890_ (char? _e98882_))) + (if _$e98890_ + _$e98890_ + (let ((_$e98893_ (keyword? _e98882_))) + (if _$e98893_ + _$e98893_ + (let ((_$e98896_ (boolean? _e98882_))) + (if _$e98896_ + _$e98896_ + (eq? _e98882_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx98878_) (symbol? (__AST-e _stx98878_)))) (define __AST-id-list?__% - (lambda (_stx98899_ _tail?98900_) - (let _lp98902_ ((_rest98904_ _stx98899_)) - (let* ((_$e98906_ _rest98904_) - (_$E9890898921_ + (lambda (_stx98829_ _tail?98830_) + (let _lp98832_ ((_rest98834_ _stx98829_)) + (let* ((_$e98836_ _rest98834_) + (_$E9883898851_ (lambda () - (let* ((_$E9890998916_ + (let* ((_$E9883998846_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e98906_))) - (_rest98919_ _$e98906_)) - (_tail?98900_ _rest98919_))))) - (if (__AST-pair? _$e98906_) - (let* ((_$tgt9891098924_ (__AST-e _$e98906_)) - (_$hd9891198927_ (##car _$tgt9891098924_)) - (_$tl9891298930_ (##cdr _$tgt9891098924_))) - (let* ((_hd98934_ _$hd9891198927_) - (_rest98936_ _$tl9891298930_)) - (if (__AST-id? _hd98934_) (_lp98902_ _rest98936_) '#f))) - (_$E9890898921_)))))) + _$e98836_))) + (_rest98849_ _$e98836_)) + (_tail?98830_ _rest98849_))))) + (if (__AST-pair? _$e98836_) + (let* ((_$tgt9884098854_ (__AST-e _$e98836_)) + (_$hd9884198857_ (##car _$tgt9884098854_)) + (_$tl9884298860_ (##cdr _$tgt9884098854_))) + (let* ((_hd98864_ _$hd9884198857_) + (_rest98866_ _$tl9884298860_)) + (if (__AST-id? _hd98864_) (_lp98832_ _rest98866_) '#f))) + (_$E9883898851_)))))) (define __AST-id-list?__0 - (lambda (_stx98941_) - (let ((_tail?98943_ __AST-null?)) - (__AST-id-list?__% _stx98941_ _tail?98943_)))) + (lambda (_stx98871_) + (let ((_tail?98873_ __AST-null?)) + (__AST-id-list?__% _stx98871_ _tail?98873_)))) (define __AST-id-list? - (lambda _g103518_ - (let ((_g103517_ (##length _g103518_))) - (cond ((##fx= _g103517_ 1) - (apply (lambda (_stx98941_) (__AST-id-list?__0 _stx98941_)) - _g103518_)) - ((##fx= _g103517_ 2) - (apply (lambda (_stx98945_ _tail?98946_) - (__AST-id-list?__% _stx98945_ _tail?98946_)) - _g103518_)) + (lambda _g103448_ + (let ((_g103447_ (##length _g103448_))) + (cond ((##fx= _g103447_ 1) + (apply (lambda (_stx98871_) (__AST-id-list?__0 _stx98871_)) + _g103448_)) + ((##fx= _g103447_ 2) + (apply (lambda (_stx98875_ _tail?98876_) + (__AST-id-list?__% _stx98875_ _tail?98876_)) + _g103448_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g103518_)))))) + _g103448_)))))) (define __AST-bind-list? - (lambda (_stx98891_) + (lambda (_stx98821_) (__AST-id-list?__% - _stx98891_ - (lambda (_e98893_) - (let ((_$e98895_ (__AST-null? _e98893_))) - (if _$e98895_ _$e98895_ (__AST-id? _e98893_))))))) + _stx98821_ + (lambda (_e98823_) + (let ((_$e98825_ (__AST-null? _e98823_))) + (if _$e98825_ _$e98825_ (__AST-id? _e98823_))))))) (define __AST-list?__% - (lambda (_stx98844_ _tail?98845_) - (let _lp98847_ ((_rest98849_ _stx98844_)) - (let* ((_$e98851_ _rest98849_) - (_$E9885398866_ + (lambda (_stx98774_ _tail?98775_) + (let _lp98777_ ((_rest98779_ _stx98774_)) + (let* ((_$e98781_ _rest98779_) + (_$E9878398796_ (lambda () - (let* ((_$E9885498861_ + (let* ((_$E9878498791_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e98851_))) - (_rest98864_ _$e98851_)) - (_tail?98845_ _rest98864_))))) - (if (__AST-pair? _$e98851_) - (let* ((_$tgt9885598869_ (__AST-e _$e98851_)) - (_$hd9885698872_ (##car _$tgt9885598869_)) - (_$tl9885798875_ (##cdr _$tgt9885598869_))) - (let ((_rest98879_ _$tl9885798875_)) - (_lp98847_ _rest98879_))) - (_$E9885398866_)))))) + _$e98781_))) + (_rest98794_ _$e98781_)) + (_tail?98775_ _rest98794_))))) + (if (__AST-pair? _$e98781_) + (let* ((_$tgt9878598799_ (__AST-e _$e98781_)) + (_$hd9878698802_ (##car _$tgt9878598799_)) + (_$tl9878798805_ (##cdr _$tgt9878598799_))) + (let ((_rest98809_ _$tl9878798805_)) + (_lp98777_ _rest98809_))) + (_$E9878398796_)))))) (define __AST-list?__0 - (lambda (_stx98884_) - (let ((_tail?98886_ __AST-null?)) - (__AST-list?__% _stx98884_ _tail?98886_)))) + (lambda (_stx98814_) + (let ((_tail?98816_ __AST-null?)) + (__AST-list?__% _stx98814_ _tail?98816_)))) (define __AST-list? - (lambda _g103520_ - (let ((_g103519_ (##length _g103520_))) - (cond ((##fx= _g103519_ 1) - (apply (lambda (_stx98884_) (__AST-list?__0 _stx98884_)) - _g103520_)) - ((##fx= _g103519_ 2) - (apply (lambda (_stx98888_ _tail?98889_) - (__AST-list?__% _stx98888_ _tail?98889_)) - _g103520_)) + (lambda _g103450_ + (let ((_g103449_ (##length _g103450_))) + (cond ((##fx= _g103449_ 1) + (apply (lambda (_stx98814_) (__AST-list?__0 _stx98814_)) + _g103450_)) + ((##fx= _g103449_ 2) + (apply (lambda (_stx98818_ _tail?98819_) + (__AST-list?__% _stx98818_ _tail?98819_)) + _g103450_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g103520_)))))) + _g103450_)))))) (define __AST->list - (lambda (_stx98809_) - (let* ((_$e98811_ _stx98809_) - (_$E9881398826_ + (lambda (_stx98739_) + (let* ((_$e98741_ _stx98739_) + (_$E9874398756_ (lambda () - (let* ((_$E9881498821_ + (let* ((_$E9874498751_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e98811_))) - (_rest98824_ _$e98811_)) - (__AST-e _rest98824_))))) - (if (__AST-pair? _$e98811_) - (let* ((_$tgt9881598829_ (__AST-e _$e98811_)) - (_$hd9881698832_ (##car _$tgt9881598829_)) - (_$tl9881798835_ (##cdr _$tgt9881598829_))) - (let* ((_hd98839_ _$hd9881698832_) - (_rest98841_ _$tl9881798835_)) - (cons _hd98839_ (__AST->list _rest98841_)))) - (_$E9881398826_))))) + _$e98741_))) + (_rest98754_ _$e98741_)) + (__AST-e _rest98754_))))) + (if (__AST-pair? _$e98741_) + (let* ((_$tgt9874598759_ (__AST-e _$e98741_)) + (_$hd9874698762_ (##car _$tgt9874598759_)) + (_$tl9874798765_ (##cdr _$tgt9874598759_))) + (let* ((_hd98769_ _$hd9874698762_) + (_rest98771_ _$tl9874798765_)) + (cons _hd98769_ (__AST->list _rest98771_)))) + (_$E9874398756_))))) (define __AST->datum - (lambda (_stx98807_) - (if (##structure-instance-of? _stx98807_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx98807_)) - (if (pair? _stx98807_) - (cons (__AST->datum (car _stx98807_)) - (__AST->datum (cdr _stx98807_))) - (if (vector? _stx98807_) - (vector-map __AST->datum _stx98807_) - (if (box? _stx98807_) - (box (__AST->datum (unbox _stx98807_))) - _stx98807_)))))) + (lambda (_stx98737_) + (if (##structure-instance-of? _stx98737_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx98737_)) + (if (pair? _stx98737_) + (cons (__AST->datum (car _stx98737_)) + (__AST->datum (cdr _stx98737_))) + (if (vector? _stx98737_) + (vector-map __AST->datum _stx98737_) + (if (box? _stx98737_) + (box (__AST->datum (unbox _stx98737_))) + _stx98737_)))))) (define get-readenv - (lambda (_port98805_) + (lambda (_port98735_) (##make-readenv - _port98805_ + _port98735_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -410,83 +410,83 @@ '() '#f))) (define read-syntax__% - (lambda (_in98793_) - (let ((_e98795_ (##read-datum-or-eof (get-readenv _in98793_)))) - (if (eof-object? (__AST-e _e98795_)) (__AST-e _e98795_) _e98795_)))) + (lambda (_in98723_) + (let ((_e98725_ (##read-datum-or-eof (get-readenv _in98723_)))) + (if (eof-object? (__AST-e _e98725_)) (__AST-e _e98725_) _e98725_)))) (define read-syntax__0 (lambda () - (let ((_in98801_ (current-input-port))) (read-syntax__% _in98801_)))) + (let ((_in98731_ (current-input-port))) (read-syntax__% _in98731_)))) (define read-syntax - (lambda _g103522_ - (let ((_g103521_ (##length _g103522_))) - (cond ((##fx= _g103521_ 0) - (apply (lambda () (read-syntax__0)) _g103522_)) - ((##fx= _g103521_ 1) - (apply (lambda (_in98803_) (read-syntax__% _in98803_)) - _g103522_)) + (lambda _g103452_ + (let ((_g103451_ (##length _g103452_))) + (cond ((##fx= _g103451_ 0) + (apply (lambda () (read-syntax__0)) _g103452_)) + ((##fx= _g103451_ 1) + (apply (lambda (_in98733_) (read-syntax__% _in98733_)) + _g103452_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g103522_)))))) + _g103452_)))))) (define read-syntax-from-file - (lambda (_path98788_) - (let ((_r98790_ + (lambda (_path98718_) + (let ((_r98720_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path98788_) + (path-normalize _path98718_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r98790_) - (cdr (__AST-e (vector-ref _r98790_ '1))) - (error (err-code->string _r98790_) _path98788_))))) + (if (vector? _r98720_) + (cdr (__AST-e (vector-ref _r98720_ '1))) + (error (err-code->string _r98720_) _path98718_))))) (define __wrap-syntax - (lambda (_re98785_ _e98786_) - (if (eof-object? _e98786_) - _e98786_ - (##structure AST::t _e98786_ (##readenv->locat _re98785_))))) - (define __unwrap-syntax (lambda (_re98782_ _e98783_) (__AST-e _e98783_))) - (define __pp-syntax (lambda (_stx98780_) (pp (__AST->datum _stx98780_)))) + (lambda (_re98715_ _e98716_) + (if (eof-object? _e98716_) + _e98716_ + (##structure AST::t _e98716_ (##readenv->locat _re98715_))))) + (define __unwrap-syntax (lambda (_re98712_ _e98713_) (__AST-e _e98713_))) + (define __pp-syntax (lambda (_stx98710_) (pp (__AST->datum _stx98710_)))) (define __make-readtable (lambda () - (let ((_rt98778_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt98778_ '#t) - (macro-readtable-bracket-handler-set! _rt98778_ '@list) - (macro-readtable-brace-handler-set! _rt98778_ '@method) + (let ((_rt98708_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt98708_ '#t) + (macro-readtable-bracket-handler-set! _rt98708_ '@list) + (macro-readtable-brace-handler-set! _rt98708_ '@method) (##readtable-char-sharp-handler-set! - _rt98778_ + _rt98708_ '#\! __read-sharp-bang) - _rt98778_))) + _rt98708_))) (define __readtable-bracket-keyword-set! - (lambda (_rt98774_ _kw98775_) - (macro-readtable-bracket-handler-set! _rt98774_ _kw98775_))) + (lambda (_rt98704_ _kw98705_) + (macro-readtable-bracket-handler-set! _rt98704_ _kw98705_))) (define __readtable-brace-keyword-set! - (lambda (_rt98771_ _kw98772_) - (macro-readtable-brace-handler-set! _rt98771_ _kw98772_))) + (lambda (_rt98701_ _kw98702_) + (macro-readtable-brace-handler-set! _rt98701_ _kw98702_))) (define __read-sharp-bang - (lambda (_re98762_ _next98763_ _start-pos98764_) - (if (eq? _start-pos98764_ '0) - (let* ((_line98766_ + (lambda (_re98692_ _next98693_ _start-pos98694_) + (if (eq? _start-pos98694_ '0) + (let* ((_line98696_ (##read-line - (macro-readenv-port _re98762_) + (macro-readenv-port _re98692_) '#\newline '#f ##max-fixnum)) - (_script-line98768_ - (substring _line98766_ '1 (string-length _line98766_)))) - (macro-readenv-script-line-set! _re98762_ _script-line98768_) + (_script-line98698_ + (substring _line98696_ '1 (string-length _line98696_)))) + (macro-readenv-script-line-set! _re98692_ _script-line98698_) (##script-marker)) - (##read-sharp-bang _re98762_ _next98763_ _start-pos98764_)))) + (##read-sharp-bang _re98692_ _next98693_ _start-pos98694_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj98760_) - (if (source-location? _obj98760_) - (string? (##locat-container _obj98760_)) + (lambda (_obj98690_) + (if (source-location? _obj98690_) + (string? (##locat-container _obj98690_)) '#f))) (define source-location-path - (lambda (_obj98758_) - (if (##locat? _obj98758_) - (##container->path (##locat-container _obj98758_)) + (lambda (_obj98688_) + (if (##locat? _obj98688_) + (##container->path (##locat-container _obj98688_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index 119f31ce5..04a0aa8a0 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]#_g103627_| + (define |[1]#_g103557_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g103635_| + (define |[1]#_g103565_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g103637_| + (define |[1]#_g103567_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g103639_| + (define |[1]#_g103569_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g103641_| + (define |[1]#_g103571_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g103650_| + (define |[1]#_g103580_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g103653_| + (define |[1]#_g103583_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g103656_| + (define |[1]#_g103586_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g103659_| + (define |[1]#_g103589_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g103662_| + (define |[1]#_g103592_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103665_| + (define |[1]#_g103595_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g103674_| + (define |[1]#_g103604_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103677_| + (define |[1]#_g103607_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103680_| + (define |[1]#_g103610_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103683_| + (define |[1]#_g103613_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103686_| + (define |[1]#_g103616_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103689_| + (define |[1]#_g103619_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103698_| + (define |[1]#_g103628_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g103701_| + (define |[1]#_g103631_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g103704_| + (define |[1]#_g103634_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g103707_| + (define |[1]#_g103637_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g103710_| + (define |[1]#_g103640_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103713_| + (define |[1]#_g103643_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g103722_| + (define |[1]#_g103652_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103725_| + (define |[1]#_g103655_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103728_| + (define |[1]#_g103658_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103731_| + (define |[1]#_g103661_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103734_| + (define |[1]#_g103664_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103737_| + (define |[1]#_g103667_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103739_| + (define |[1]#_g103669_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g103741_| + (define |[1]#_g103671_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g103743_| + (define |[1]#_g103673_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g103748_| + (define |[1]#_g103678_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g103751_| + (define |[1]#_g103681_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g103756_| + (define |[1]#_g103686_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103759_| + (define |[1]#_g103689_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103764_| + (define |[1]#_g103694_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g103767_| + (define |[1]#_g103697_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g103772_| + (define |[1]#_g103702_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103775_| + (define |[1]#_g103705_| (##structure gx#syntax-quote::t '&AST-e-set! @@ -282,1173 +282,1173 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx97647_) - (let* ((_g9765197675_ - (lambda (_g9765297671_) + (lambda (_$stx97577_) + (let* ((_g9758197605_ + (lambda (_g9758297601_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9765297671_))) - (_g9765097761_ - (lambda (_g9765297679_) - (if (gx#stx-pair? _g9765297679_) - (let ((_e9765797682_ (gx#syntax-e _g9765297679_))) - (let ((_hd9765697686_ + _g9758297601_))) + (_g9758097691_ + (lambda (_g9758297609_) + (if (gx#stx-pair? _g9758297609_) + (let ((_e9758797612_ (gx#syntax-e _g9758297609_))) + (let ((_hd9758697616_ (let () (declare (not safe)) - (##car _e9765797682_))) - (_tl9765597689_ + (##car _e9758797612_))) + (_tl9758597619_ (let () (declare (not safe)) - (##cdr _e9765797682_)))) - (if (gx#stx-pair? _tl9765597689_) - (let ((_e9766097692_ - (gx#syntax-e _tl9765597689_))) - (let ((_hd9765997696_ + (##cdr _e9758797612_)))) + (if (gx#stx-pair? _tl9758597619_) + (let ((_e9759097622_ + (gx#syntax-e _tl9758597619_))) + (let ((_hd9758997626_ (let () (declare (not safe)) - (##car _e9766097692_))) - (_tl9765897699_ + (##car _e9759097622_))) + (_tl9758897629_ (let () (declare (not safe)) - (##cdr _e9766097692_)))) - (if (gx#stx-pair/null? _tl9765897699_) - (let ((_g103523_ + (##cdr _e9759097622_)))) + (if (gx#stx-pair/null? _tl9758897629_) + (let ((_g103453_ (gx#syntax-split-splice - _tl9765897699_ + _tl9758897629_ '0))) (begin - (let ((_g103524_ + (let ((_g103454_ (let () (declare (not safe)) - (if (##values? _g103523_) + (if (##values? _g103453_) (##vector-length - _g103523_) + _g103453_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103524_ 2))) + (##fx= _g103454_ 2))) (error "Context expects 2 values" - _g103524_))) - (let ((_target9766197702_ + _g103454_))) + (let ((_target9759197632_ (let () (declare (not safe)) - (##vector-ref _g103523_ 0))) - (_tl9766397705_ + (##vector-ref _g103453_ 0))) + (_tl9759397635_ (let () (declare (not safe)) (##vector-ref - _g103523_ + _g103453_ 1)))) - (if (gx#stx-null? _tl9766397705_) - (letrec ((_loop9766497708_ - (lambda (_hd9766297712_ + (if (gx#stx-null? _tl9759397635_) + (letrec ((_loop9759497638_ + (lambda (_hd9759297642_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body9766897715_) - (if (gx#stx-pair? _hd9766297712_) - (let ((_e9766597718_ (gx#syntax-e _hd9766297712_))) - (let ((_lp-hd9766697722_ + _body9759897645_) + (if (gx#stx-pair? _hd9759297642_) + (let ((_e9759597648_ (gx#syntax-e _hd9759297642_))) + (let ((_lp-hd9759697652_ (let () (declare (not safe)) - (##car _e9766597718_))) - (_lp-tl9766797725_ + (##car _e9759597648_))) + (_lp-tl9759797655_ (let () (declare (not safe)) - (##cdr _e9766597718_)))) - (_loop9766497708_ - _lp-tl9766797725_ + (##cdr _e9759597648_)))) + (_loop9759497638_ + _lp-tl9759797655_ (let () (declare (not safe)) - (cons _lp-hd9766697722_ _body9766897715_))))) - (let ((_body9766997728_ (reverse _body9766897715_))) - ((lambda (_L97732_ _L97734_) - (let ((__tmp103536 (gx#datum->syntax '#f 'let)) - (__tmp103525 - (let ((__tmp103533 - (let ((__tmp103535 + (cons _lp-hd9759697652_ _body9759897645_))))) + (let ((_body9759997658_ (reverse _body9759897645_))) + ((lambda (_L97662_ _L97664_) + (let ((__tmp103466 (gx#datum->syntax '#f 'let)) + (__tmp103455 + (let ((__tmp103463 + (let ((__tmp103465 (gx#datum->syntax '#f '$e)) - (__tmp103534 + (__tmp103464 (let () (declare (not safe)) - (cons _L97734_ '())))) + (cons _L97664_ '())))) (declare (not safe)) - (cons __tmp103535 __tmp103534))) - (__tmp103526 - (let ((__tmp103527 - (let ((__tmp103532 + (cons __tmp103465 __tmp103464))) + (__tmp103456 + (let ((__tmp103457 + (let ((__tmp103462 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp103528 - (let ((__tmp103531 + (__tmp103458 + (let ((__tmp103461 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp103529 - (let ((__tmp103530 - (lambda (_g9775297755_ _g9775397758_) + (__tmp103459 + (let ((__tmp103460 + (lambda (_g9768297685_ _g9768397688_) (let () (declare (not safe)) - (cons _g9775297755_ _g9775397758_))))) + (cons _g9768297685_ _g9768397688_))))) (declare (not safe)) - (foldr1 __tmp103530 '() _L97732_)))) + (foldr1 __tmp103460 '() _L97662_)))) (declare (not safe)) - (cons __tmp103531 __tmp103529)))) + (cons __tmp103461 __tmp103459)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103532 - __tmp103528)))) + (cons __tmp103462 + __tmp103458)))) (declare (not safe)) - (cons __tmp103527 '())))) + (cons __tmp103457 '())))) (declare (not safe)) - (cons __tmp103533 __tmp103526)))) + (cons __tmp103463 __tmp103456)))) (declare (not safe)) - (cons __tmp103536 __tmp103525))) - _body9766997728_ - _hd9765997696_)))))) + (cons __tmp103466 __tmp103455))) + _body9759997658_ + _hd9758997626_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9766497708_ - _target9766197702_ + (_loop9759497638_ + _target9759197632_ '())) - (_g9765197675_ - _g9765297679_))))) - (_g9765197675_ _g9765297679_)))) - (_g9765197675_ _g9765297679_)))) - (_g9765197675_ _g9765297679_))))) - (_g9765097761_ _$stx97647_)))) + (_g9758197605_ + _g9758297609_))))) + (_g9758197605_ _g9758297609_)))) + (_g9758197605_ _g9758297609_)))) + (_g9758197605_ _g9758297609_))))) + (_g9758097691_ _$stx97577_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx97766_) - (letrec ((_generate197769_ - (lambda (_hd98310_ _tgt98312_ _K98313_ _E98314_ _kws98315_) - (let* ((_g9831798325_ - (lambda (_g9831898321_) + (lambda (_stx97696_) + (letrec ((_generate197699_ + (lambda (_hd98240_ _tgt98242_ _K98243_ _E98244_ _kws98245_) + (let* ((_g9824798255_ + (lambda (_g9824898251_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9831898321_))) - (_g9831698752_ - (lambda (_g9831898329_) - ((lambda (_L98332_) + _g9824898251_))) + (_g9824698682_ + (lambda (_g9824898259_) + ((lambda (_L98262_) (let () - (let* ((___stx103423103424_ _hd98310_) - (_g9834698360_ + (let* ((___stx103353103354_ _hd98240_) + (_g9827698290_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx103423103424_)))) - (let ((___kont103426103427_ - (lambda (_L98574_ _L98576_) - (let* ((_g9858798595_ - (lambda (_g9858898591_) + ___stx103353103354_)))) + (let ((___kont103356103357_ + (lambda (_L98504_ _L98506_) + (let* ((_g9851798525_ + (lambda (_g9851898521_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9858898591_))) - (_g9858698744_ - (lambda (_g9858898599_) - ((lambda (_L98602_) + _g9851898521_))) + (_g9851698674_ + (lambda (_g9851898529_) + ((lambda (_L98532_) (let () - (let* ((_g9861498622_ + (let* ((_g9854498552_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g9861598618_) + (lambda (_g9854598548_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9861598618_))) - (_g9861398740_ - (lambda (_g9861598626_) - ((lambda (_L98629_) + _g9854598548_))) + (_g9854398670_ + (lambda (_g9854598556_) + ((lambda (_L98559_) (let () - (let* ((_g9864298650_ - (lambda (_g9864398646_) + (let* ((_g9857298580_ + (lambda (_g9857398576_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9864398646_))) - (_g9864198736_ - (lambda (_g9864398654_) - ((lambda (_L98657_) + _g9857398576_))) + (_g9857198666_ + (lambda (_g9857398584_) + ((lambda (_L98587_) (let () - (let* ((_g9867098678_ - (lambda (_g9867198674_) + (let* ((_g9860098608_ + (lambda (_g9860198604_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9867198674_))) - (_g9866998732_ - (lambda (_g9867198682_) - ((lambda (_L98685_) + _g9860198604_))) + (_g9859998662_ + (lambda (_g9860198612_) + ((lambda (_L98615_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g9869898706_ - (lambda (_g9869998702_) + (let* ((_g9862898636_ + (lambda (_g9862998632_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9869998702_))) - (_g9869798728_ - (lambda (_g9869998710_) - ((lambda (_L98713_) + _g9862998632_))) + (_g9862798658_ + (lambda (_g9862998640_) + ((lambda (_L98643_) (let () (let () - (let ((__tmp103565 + (let ((__tmp103495 (gx#datum->syntax '#f 'if)) - (__tmp103537 - (let ((__tmp103562 - (let ((__tmp103564 + (__tmp103467 + (let ((__tmp103492 + (let ((__tmp103494 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp103563 - (let () (declare (not safe)) (cons _L98332_ '())))) + (__tmp103493 + (let () (declare (not safe)) (cons _L98262_ '())))) (declare (not safe)) - (cons __tmp103564 __tmp103563))) - (__tmp103538 - (let ((__tmp103540 - (let ((__tmp103561 (gx#datum->syntax '#f 'let*)) - (__tmp103541 - (let ((__tmp103543 - (let ((__tmp103556 - (let ((__tmp103557 - (let ((__tmp103558 - (let ((__tmp103560 + (cons __tmp103494 __tmp103493))) + (__tmp103468 + (let ((__tmp103470 + (let ((__tmp103491 (gx#datum->syntax '#f 'let*)) + (__tmp103471 + (let ((__tmp103473 + (let ((__tmp103486 + (let ((__tmp103487 + (let ((__tmp103488 + (let ((__tmp103490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp103559 - (let () (declare (not safe)) (cons _L98332_ '())))) + (__tmp103489 + (let () (declare (not safe)) (cons _L98262_ '())))) (declare (not safe)) - (cons __tmp103560 __tmp103559)))) + (cons __tmp103490 __tmp103489)))) (declare (not safe)) - (cons __tmp103558 '())))) + (cons __tmp103488 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L98602_ __tmp103557))) - (__tmp103544 - (let ((__tmp103551 - (let ((__tmp103552 - (let ((__tmp103553 + (cons _L98532_ __tmp103487))) + (__tmp103474 + (let ((__tmp103481 + (let ((__tmp103482 + (let ((__tmp103483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103555 (gx#datum->syntax '#f '##car)) - (__tmp103554 + (let ((__tmp103485 (gx#datum->syntax '#f '##car)) + (__tmp103484 (let () (declare (not safe)) - (cons _L98602_ '())))) + (cons _L98532_ '())))) (declare (not safe)) - (cons __tmp103555 __tmp103554)))) + (cons __tmp103485 __tmp103484)))) (declare (not safe)) - (cons __tmp103553 '())))) + (cons __tmp103483 '())))) (declare (not safe)) - (cons _L98629_ __tmp103552))) + (cons _L98559_ __tmp103482))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp103545 - (let ((__tmp103546 - (let ((__tmp103547 + (__tmp103475 + (let ((__tmp103476 + (let ((__tmp103477 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103548 - (let ((__tmp103550 + (let ((__tmp103478 + (let ((__tmp103480 (gx#datum->syntax '#f '##cdr)) - (__tmp103549 + (__tmp103479 (let () (declare (not safe)) - (cons _L98602_ '())))) + (cons _L98532_ '())))) (declare (not safe)) - (cons __tmp103550 __tmp103549)))) + (cons __tmp103480 __tmp103479)))) (declare (not safe)) - (cons __tmp103548 '())))) + (cons __tmp103478 '())))) (declare (not safe)) - (cons _L98657_ __tmp103547)))) + (cons _L98587_ __tmp103477)))) (declare (not safe)) - (cons __tmp103546 '())))) + (cons __tmp103476 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103551 - __tmp103545)))) + (cons __tmp103481 + __tmp103475)))) (declare (not safe)) - (cons __tmp103556 __tmp103544))) - (__tmp103542 + (cons __tmp103486 __tmp103474))) + (__tmp103472 (let () (declare (not safe)) - (cons _L98685_ '())))) + (cons _L98615_ '())))) (declare (not safe)) - (cons __tmp103543 __tmp103542)))) + (cons __tmp103473 __tmp103472)))) (declare (not safe)) - (cons __tmp103561 __tmp103541))) - (__tmp103539 - (let () (declare (not safe)) (cons _L98713_ '())))) + (cons __tmp103491 __tmp103471))) + (__tmp103469 + (let () (declare (not safe)) (cons _L98643_ '())))) (declare (not safe)) - (cons __tmp103540 __tmp103539)))) + (cons __tmp103470 __tmp103469)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103562 - __tmp103538)))) + (cons __tmp103492 + __tmp103468)))) (declare (not safe)) - (cons __tmp103565 __tmp103537))))) - _g9869998710_)))) - (_g9869798728_ _E98314_)))) - _g9867198682_)))) + (cons __tmp103495 __tmp103467))))) + _g9862998640_)))) + (_g9862798658_ _E98244_)))) + _g9860198612_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9866998732_ - (_generate197769_ - _L98576_ - _L98629_ - (_generate197769_ - _L98574_ - _L98657_ - _K98313_ - _E98314_ - _kws98315_) - _E98314_ - _kws98315_))))) - _g9864398654_)))) - (_g9864198736_ (gx#genident '$tl))))) - _g9861598626_)))) - (_g9861398740_ (gx#genident '$hd))))) - _g9858898599_)))) + (_g9859998662_ + (_generate197699_ + _L98506_ + _L98559_ + (_generate197699_ + _L98504_ + _L98587_ + _K98243_ + _E98244_ + _kws98245_) + _E98244_ + _kws98245_))))) + _g9857398584_)))) + (_g9857198666_ (gx#genident '$tl))))) + _g9854598556_)))) + (_g9854398670_ (gx#genident '$hd))))) + _g9851898529_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9858698744_ + (_g9851698674_ (gx#genident '$tgt))))) - (___kont103428103429_ - (lambda (_L98449_) - (if (gx#underscore? _L98449_) - _K98313_ - (if (let ((__tmp103594 - (lambda (_g9845798459_) + (___kont103358103359_ + (lambda (_L98379_) + (if (gx#underscore? _L98379_) + _K98243_ + (if (let ((__tmp103524 + (lambda (_g9838798389_) (gx#bound-identifier=? - _g9845798459_ - _L98449_))) - (__tmp103593 + _g9838798389_ + _L98379_))) + (__tmp103523 (gx#syntax->list - _kws98315_))) + _kws98245_))) (declare (not safe)) - (find __tmp103594 - __tmp103593)) - (let* ((_g9846398478_ - (lambda (_g9846498474_) + (find __tmp103524 + __tmp103523)) + (let* ((_g9839398408_ + (lambda (_g9839498404_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g9846498474_))) - (_g9846298523_ - (lambda (_g9846498482_) - (if (gx#stx-pair? _g9846498482_) - (let ((_e9846998485_ (gx#syntax-e _g9846498482_))) - (let ((_hd9846898489_ + _g9839498404_))) + (_g9839298453_ + (lambda (_g9839498412_) + (if (gx#stx-pair? _g9839498412_) + (let ((_e9839998415_ (gx#syntax-e _g9839498412_))) + (let ((_hd9839898419_ (let () (declare (not safe)) - (##car _e9846998485_))) - (_tl9846798492_ + (##car _e9839998415_))) + (_tl9839798422_ (let () (declare (not safe)) - (##cdr _e9846998485_)))) - (if (gx#stx-pair? _tl9846798492_) - (let ((_e9847298495_ - (gx#syntax-e _tl9846798492_))) - (let ((_hd9847198499_ + (##cdr _e9839998415_)))) + (if (gx#stx-pair? _tl9839798422_) + (let ((_e9840298425_ + (gx#syntax-e _tl9839798422_))) + (let ((_hd9840198429_ (let () (declare (not safe)) - (##car _e9847298495_))) - (_tl9847098502_ + (##car _e9840298425_))) + (_tl9840098432_ (let () (declare (not safe)) - (##cdr _e9847298495_)))) - (if (gx#stx-null? _tl9847098502_) - ((lambda (_L98505_ _L98507_) + (##cdr _e9840298425_)))) + (if (gx#stx-null? _tl9840098432_) + ((lambda (_L98435_ _L98437_) (let () - (let ((__tmp103592 + (let ((__tmp103522 (gx#datum->syntax '#f 'if)) - (__tmp103572 - (let ((__tmp103575 - (let ((__tmp103591 + (__tmp103502 + (let ((__tmp103505 + (let ((__tmp103521 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp103576 - (let ((__tmp103588 - (let ((__tmp103590 + (__tmp103506 + (let ((__tmp103518 + (let ((__tmp103520 (gx#datum->syntax '#f '__AST-id?)) - (__tmp103589 + (__tmp103519 (let () (declare (not safe)) - (cons _L98332_ '())))) + (cons _L98262_ '())))) (declare (not safe)) - (cons __tmp103590 __tmp103589))) - (__tmp103577 - (let ((__tmp103578 - (let ((__tmp103587 + (cons __tmp103520 __tmp103519))) + (__tmp103507 + (let ((__tmp103508 + (let ((__tmp103517 (gx#datum->syntax '#f 'eq?)) - (__tmp103579 - (let ((__tmp103584 - (let ((__tmp103586 + (__tmp103509 + (let ((__tmp103514 + (let ((__tmp103516 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp103585 - (let () (declare (not safe)) (cons _L98332_ '())))) + (__tmp103515 + (let () (declare (not safe)) (cons _L98262_ '())))) (declare (not safe)) - (cons __tmp103586 __tmp103585))) - (__tmp103580 - (let ((__tmp103581 - (let ((__tmp103583 (gx#datum->syntax '#f 'quote)) - (__tmp103582 + (cons __tmp103516 __tmp103515))) + (__tmp103510 + (let ((__tmp103511 + (let ((__tmp103513 (gx#datum->syntax '#f 'quote)) + (__tmp103512 (let () (declare (not safe)) - (cons _L98449_ '())))) + (cons _L98379_ '())))) (declare (not safe)) - (cons __tmp103583 __tmp103582)))) + (cons __tmp103513 __tmp103512)))) (declare (not safe)) - (cons __tmp103581 '())))) + (cons __tmp103511 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103584 - __tmp103580)))) + (cons __tmp103514 + __tmp103510)))) (declare (not safe)) - (cons __tmp103587 __tmp103579)))) + (cons __tmp103517 __tmp103509)))) (declare (not safe)) - (cons __tmp103578 '())))) + (cons __tmp103508 '())))) (declare (not safe)) - (cons __tmp103588 __tmp103577)))) + (cons __tmp103518 __tmp103507)))) (declare (not safe)) - (cons __tmp103591 __tmp103576))) - (__tmp103573 - (let ((__tmp103574 + (cons __tmp103521 __tmp103506))) + (__tmp103503 + (let ((__tmp103504 (let () (declare (not safe)) - (cons _L98505_ '())))) + (cons _L98435_ '())))) (declare (not safe)) - (cons _L98507_ __tmp103574)))) + (cons _L98437_ __tmp103504)))) (declare (not safe)) - (cons __tmp103575 __tmp103573)))) + (cons __tmp103505 __tmp103503)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103592 - __tmp103572)))) - _hd9847198499_ - _hd9846898489_) - (_g9846398478_ _g9846498482_)))) - (_g9846398478_ _g9846498482_)))) - (_g9846398478_ _g9846498482_))))) - (_g9846298523_ (list _K98313_ _E98314_))) - (let* ((_g9852798535_ - (lambda (_g9852898531_) + (cons __tmp103522 + __tmp103502)))) + _hd9840198429_ + _hd9839898419_) + (_g9839398408_ _g9839498412_)))) + (_g9839398408_ _g9839498412_)))) + (_g9839398408_ _g9839498412_))))) + (_g9839298453_ (list _K98243_ _E98244_))) + (let* ((_g9845798465_ + (lambda (_g9845898461_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9852898531_))) - (_g9852698553_ - (lambda (_g9852898539_) - ((lambda (_L98542_) + _g9845898461_))) + (_g9845698483_ + (lambda (_g9845898469_) + ((lambda (_L98472_) (let () - (let ((__tmp103571 (gx#datum->syntax '#f 'let)) - (__tmp103566 - (let ((__tmp103568 - (let ((__tmp103569 - (let ((__tmp103570 + (let ((__tmp103501 (gx#datum->syntax '#f 'let)) + (__tmp103496 + (let ((__tmp103498 + (let ((__tmp103499 + (let ((__tmp103500 (let () (declare (not safe)) - (cons _L98332_ + (cons _L98262_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L98449_ - __tmp103570)))) + (cons _L98379_ + __tmp103500)))) (declare (not safe)) - (cons __tmp103569 '()))) - (__tmp103567 + (cons __tmp103499 '()))) + (__tmp103497 (let () (declare (not safe)) - (cons _L98542_ '())))) + (cons _L98472_ '())))) (declare (not safe)) - (cons __tmp103568 __tmp103567)))) + (cons __tmp103498 __tmp103497)))) (declare (not safe)) - (cons __tmp103571 __tmp103566)))) - _g9852898539_)))) - (_g9852698553_ _K98313_)))))) + (cons __tmp103501 __tmp103496)))) + _g9845898469_)))) + (_g9845698483_ _K98243_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont103430103431_ - (lambda (_L98367_) - (let* ((_g9837898393_ - (lambda (_g9837998389_) + (___kont103360103361_ + (lambda (_L98297_) + (let* ((_g9830898323_ + (lambda (_g9830998319_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9837998389_))) - (_g9837798438_ - (lambda (_g9837998397_) + _g9830998319_))) + (_g9830798368_ + (lambda (_g9830998327_) (if (gx#stx-pair? - _g9837998397_) - (let ((_e9838498400_ + _g9830998327_) + (let ((_e9831498330_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g9837998397_))) - (let ((_hd9838398404_ + (gx#syntax-e _g9830998327_))) + (let ((_hd9831398334_ (let () (declare (not safe)) - (##car _e9838498400_))) - (_tl9838298407_ + (##car _e9831498330_))) + (_tl9831298337_ (let () (declare (not safe)) - (##cdr _e9838498400_)))) - (if (gx#stx-pair? _tl9838298407_) - (let ((_e9838798410_ (gx#syntax-e _tl9838298407_))) - (let ((_hd9838698414_ + (##cdr _e9831498330_)))) + (if (gx#stx-pair? _tl9831298337_) + (let ((_e9831798340_ (gx#syntax-e _tl9831298337_))) + (let ((_hd9831698344_ (let () (declare (not safe)) - (##car _e9838798410_))) - (_tl9838598417_ + (##car _e9831798340_))) + (_tl9831598347_ (let () (declare (not safe)) - (##cdr _e9838798410_)))) - (if (gx#stx-null? _tl9838598417_) - ((lambda (_L98420_ _L98422_) + (##cdr _e9831798340_)))) + (if (gx#stx-null? _tl9831598347_) + ((lambda (_L98350_ _L98352_) (let () - (let ((__tmp103608 + (let ((__tmp103538 (gx#datum->syntax '#f 'if)) - (__tmp103595 - (let ((__tmp103598 - (let ((__tmp103607 + (__tmp103525 + (let ((__tmp103528 + (let ((__tmp103537 (gx#datum->syntax '#f 'equal?)) - (__tmp103599 - (let ((__tmp103604 + (__tmp103529 + (let ((__tmp103534 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103606 + (let ((__tmp103536 (gx#datum->syntax '#f '__AST-e)) - (__tmp103605 + (__tmp103535 (let () (declare (not safe)) - (cons _L98332_ '())))) + (cons _L98262_ '())))) (declare (not safe)) - (cons __tmp103606 __tmp103605))) - (__tmp103600 - (let ((__tmp103601 - (let ((__tmp103603 + (cons __tmp103536 __tmp103535))) + (__tmp103530 + (let ((__tmp103531 + (let ((__tmp103533 (gx#datum->syntax '#f 'quote)) - (__tmp103602 + (__tmp103532 (let () (declare (not safe)) - (cons _L98367_ '())))) + (cons _L98297_ '())))) (declare (not safe)) - (cons __tmp103603 __tmp103602)))) + (cons __tmp103533 __tmp103532)))) (declare (not safe)) - (cons __tmp103601 '())))) + (cons __tmp103531 '())))) (declare (not safe)) - (cons __tmp103604 __tmp103600)))) + (cons __tmp103534 __tmp103530)))) (declare (not safe)) - (cons __tmp103607 __tmp103599))) - (__tmp103596 - (let ((__tmp103597 - (let () (declare (not safe)) (cons _L98420_ '())))) + (cons __tmp103537 __tmp103529))) + (__tmp103526 + (let ((__tmp103527 + (let () (declare (not safe)) (cons _L98350_ '())))) (declare (not safe)) - (cons _L98422_ __tmp103597)))) + (cons _L98352_ __tmp103527)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103598 - __tmp103596)))) + (cons __tmp103528 + __tmp103526)))) (declare (not safe)) - (cons __tmp103608 __tmp103595)))) - _hd9838698414_ - _hd9838398404_) - (_g9837898393_ _g9837998397_)))) - (_g9837898393_ _g9837998397_)))) - (_g9837898393_ _g9837998397_))))) + (cons __tmp103538 __tmp103525)))) + _hd9831698344_ + _hd9831398334_) + (_g9830898323_ _g9830998327_)))) + (_g9830898323_ _g9830998327_)))) + (_g9830898323_ _g9830998327_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9837798438_ - (list _K98313_ _E98314_)))))) - (let ((_g9834498557_ + (_g9830798368_ + (list _K98243_ _E98244_)))))) + (let ((_g9827498487_ (lambda () - (let ((_L98449_ - ___stx103423103424_)) - (if (gx#identifier? _L98449_) - (___kont103428103429_ - _L98449_) - (___kont103430103431_ - ___stx103423103424_)))))) - (if (gx#stx-pair? ___stx103423103424_) - (let ((_e9835298564_ + (let ((_L98379_ + ___stx103353103354_)) + (if (gx#identifier? _L98379_) + (___kont103358103359_ + _L98379_) + (___kont103360103361_ + ___stx103353103354_)))))) + (if (gx#stx-pair? ___stx103353103354_) + (let ((_e9828298494_ (gx#syntax-e - ___stx103423103424_))) - (let ((_tl9835098571_ + ___stx103353103354_))) + (let ((_tl9828098501_ (let () (declare (not safe)) - (##cdr _e9835298564_))) - (_hd9835198568_ + (##cdr _e9828298494_))) + (_hd9828198498_ (let () (declare (not safe)) - (##car _e9835298564_)))) - (___kont103426103427_ - _tl9835098571_ - _hd9835198568_))) + (##car _e9828298494_)))) + (___kont103356103357_ + _tl9828098501_ + _hd9828198498_))) (let () (declare (not safe)) - (_g9834498557_)))))))) - _g9831898329_)))) - (_g9831698752_ _tgt98312_))))) - (let* ((_g9777297800_ - (lambda (_g9777397796_) + (_g9827498487_)))))))) + _g9824898259_)))) + (_g9824698682_ _tgt98242_))))) + (let* ((_g9770297730_ + (lambda (_g9770397726_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9777397796_))) - (_g9777198306_ - (lambda (_g9777397804_) - (if (gx#stx-pair? _g9777397804_) - (let ((_e9777997807_ (gx#syntax-e _g9777397804_))) - (let ((_hd9777897811_ + _g9770397726_))) + (_g9770198236_ + (lambda (_g9770397734_) + (if (gx#stx-pair? _g9770397734_) + (let ((_e9770997737_ (gx#syntax-e _g9770397734_))) + (let ((_hd9770897741_ (let () (declare (not safe)) - (##car _e9777997807_))) - (_tl9777797814_ + (##car _e9770997737_))) + (_tl9770797744_ (let () (declare (not safe)) - (##cdr _e9777997807_)))) - (if (gx#stx-pair? _tl9777797814_) - (let ((_e9778297817_ - (gx#syntax-e _tl9777797814_))) - (let ((_hd9778197821_ + (##cdr _e9770997737_)))) + (if (gx#stx-pair? _tl9770797744_) + (let ((_e9771297747_ + (gx#syntax-e _tl9770797744_))) + (let ((_hd9771197751_ (let () (declare (not safe)) - (##car _e9778297817_))) - (_tl9778097824_ + (##car _e9771297747_))) + (_tl9771097754_ (let () (declare (not safe)) - (##cdr _e9778297817_)))) - (if (gx#stx-pair? _tl9778097824_) - (let ((_e9778597827_ - (gx#syntax-e _tl9778097824_))) - (let ((_hd9778497831_ + (##cdr _e9771297747_)))) + (if (gx#stx-pair? _tl9771097754_) + (let ((_e9771597757_ + (gx#syntax-e _tl9771097754_))) + (let ((_hd9771497761_ (let () (declare (not safe)) - (##car _e9778597827_))) - (_tl9778397834_ + (##car _e9771597757_))) + (_tl9771397764_ (let () (declare (not safe)) - (##cdr _e9778597827_)))) + (##cdr _e9771597757_)))) (if (gx#stx-pair/null? - _tl9778397834_) - (let ((_g103609_ + _tl9771397764_) + (let ((_g103539_ (gx#syntax-split-splice - _tl9778397834_ + _tl9771397764_ '0))) (begin - (let ((_g103610_ + (let ((_g103540_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g103609_) - (##vector-length _g103609_) + _g103539_) + (##vector-length _g103539_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g103610_ 2))) - (error "Context expects 2 values" _g103610_))) + (if (not (let () (declare (not safe)) (##fx= _g103540_ 2))) + (error "Context expects 2 values" _g103540_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target9778697837_ + (let ((_target9771697767_ (let () (declare (not safe)) (##vector-ref - _g103609_ + _g103539_ 0))) - (_tl9778897840_ + (_tl9771897770_ (let () (declare (not safe)) (##vector-ref - _g103609_ + _g103539_ 1)))) (if (gx#stx-null? - _tl9778897840_) - (letrec ((_loop9778997843_ + _tl9771897770_) + (letrec ((_loop9771997773_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd9778797847_ _clause9779397850_) - (if (gx#stx-pair? _hd9778797847_) - (let ((_e9779097853_ - (gx#syntax-e _hd9778797847_))) - (let ((_lp-hd9779197857_ + (lambda (_hd9771797777_ _clause9772397780_) + (if (gx#stx-pair? _hd9771797777_) + (let ((_e9772097783_ + (gx#syntax-e _hd9771797777_))) + (let ((_lp-hd9772197787_ (let () (declare (not safe)) - (##car _e9779097853_))) - (_lp-tl9779297860_ + (##car _e9772097783_))) + (_lp-tl9772297790_ (let () (declare (not safe)) - (##cdr _e9779097853_)))) - (_loop9778997843_ - _lp-tl9779297860_ + (##cdr _e9772097783_)))) + (_loop9771997773_ + _lp-tl9772297790_ (let () (declare (not safe)) - (cons _lp-hd9779197857_ - _clause9779397850_))))) - (let ((_clause9779497863_ - (reverse _clause9779397850_))) - ((lambda (_L97867_ _L97869_ _L97870_) - (let _recur97892_ ((_rest97895_ - (let ((__tmp103632 + (cons _lp-hd9772197787_ + _clause9772397780_))))) + (let ((_clause9772497793_ + (reverse _clause9772397780_))) + ((lambda (_L97797_ _L97799_ _L97800_) + (let _recur97822_ ((_rest97825_ + (let ((__tmp103562 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g9829798300_ _g9829898303_) + (lambda (_g9822798230_ _g9822898233_) (let () (declare (not safe)) - (cons _g9829798300_ _g9829898303_))))) + (cons _g9822798230_ _g9822898233_))))) (declare (not safe)) - (foldr1 __tmp103632 '() _L97867_)))) + (foldr1 __tmp103562 '() _L97797_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest9789797906_ _rest97895_) - (_E9790097912_ + (let* ((_rest9782797836_ _rest97825_) + (_E9783097842_ (lambda () (error '"No clause matching" - _rest9789797906_)))) - (let ((_K9790298282_ - (lambda (_rest97928_ - _hd97930_) - (let* ((_g9793297940_ - (lambda (_g9793397936_) + _rest9782797836_)))) + (let ((_K9783298212_ + (lambda (_rest97858_ + _hd97860_) + (let* ((_g9786297870_ + (lambda (_g9786397866_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9793397936_))) - (_g9793198278_ - (lambda (_g9793397944_) - ((lambda (_L97947_) + _g9786397866_))) + (_g9786198208_ + (lambda (_g9786397874_) + ((lambda (_L97877_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g9796597973_ - (lambda (_g9796697969_) + (let* ((_g9789597903_ + (lambda (_g9789697899_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9796697969_))) - (_g9796498274_ - (lambda (_g9796697977_) - ((lambda (_L97980_) + _g9789697899_))) + (_g9789498204_ + (lambda (_g9789697907_) + ((lambda (_L97910_) (let () - (let* ((_g9799398001_ - (lambda (_g9799497997_) + (let* ((_g9792397931_ + (lambda (_g9792497927_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9799497997_))) - (_g9799298270_ - (lambda (_g9799498005_) - ((lambda (_L98008_) + _g9792497927_))) + (_g9792298200_ + (lambda (_g9792497935_) + ((lambda (_L97938_) (let () - (let* ((_g9802198029_ + (let* ((_g9795197959_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g9802298025_) + (lambda (_g9795297955_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9802298025_))) - (_g9802098051_ - (lambda (_g9802298033_) - ((lambda (_L98036_) + _g9795297955_))) + (_g9795097981_ + (lambda (_g9795297963_) + ((lambda (_L97966_) (let () (let () - (let ((__tmp103619 + (let ((__tmp103549 (gx#datum->syntax '#f 'let)) - (__tmp103611 - (let ((__tmp103613 - (let ((__tmp103614 - (let ((__tmp103615 - (let ((__tmp103618 + (__tmp103541 + (let ((__tmp103543 + (let ((__tmp103544 + (let ((__tmp103545 + (let ((__tmp103548 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp103616 - (let ((__tmp103617 + (__tmp103546 + (let ((__tmp103547 (let () (declare (not safe)) - (cons _L98008_ '())))) + (cons _L97938_ '())))) (declare (not safe)) - (cons '() __tmp103617)))) + (cons '() __tmp103547)))) (declare (not safe)) - (cons __tmp103618 __tmp103616)))) + (cons __tmp103548 __tmp103546)))) (declare (not safe)) - (cons __tmp103615 '())))) + (cons __tmp103545 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L97947_ __tmp103614))) - (__tmp103612 + (cons _L97877_ __tmp103544))) + (__tmp103542 (let () (declare (not safe)) - (cons _L98036_ '())))) + (cons _L97966_ '())))) (declare (not safe)) - (cons __tmp103613 __tmp103612)))) + (cons __tmp103543 __tmp103542)))) (declare (not safe)) - (cons __tmp103619 __tmp103611))))) - _g9802298033_)))) - (_g9802098051_ - (let* ((___stx103441103442_ _hd97930_) - (_g9805798097_ + (cons __tmp103549 __tmp103541))))) + _g9795297963_)))) + (_g9795097981_ + (let* ((___stx103371103372_ _hd97860_) + (_g9798798027_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx103441103442_)))) - (let ((___kont103444103445_ - (lambda (_L98243_) - (let ((__tmp103622 + ___stx103371103372_)))) + (let ((___kont103374103375_ + (lambda (_L98173_) + (let ((__tmp103552 (gx#datum->syntax '#f 'begin)) - (__tmp103620 - (let ((__tmp103621 - (lambda (_g9825798260_ - _g9825898263_) + (__tmp103550 + (let ((__tmp103551 + (lambda (_g9818798190_ + _g9818898193_) (let () (declare (not safe)) - (cons _g9825798260_ - _g9825898263_))))) + (cons _g9818798190_ + _g9818898193_))))) (declare (not safe)) - (foldr1 __tmp103621 '() _L98243_)))) + (foldr1 __tmp103551 '() _L98173_)))) (declare (not safe)) - (cons __tmp103622 __tmp103620)))) - (___kont103448103449_ - (lambda (_L98181_ _L98183_) - (_generate197769_ - _L98183_ - _L97870_ - _L98181_ - _L97980_ - _L97869_))) - (___kont103450103451_ - (lambda (_L98134_ _L98136_ _L98137_) - (_generate197769_ - _L98137_ - _L97870_ - (let ((__tmp103626 (gx#datum->syntax '#f 'if)) - (__tmp103623 - (let ((__tmp103624 - (let ((__tmp103625 + (cons __tmp103552 __tmp103550)))) + (___kont103378103379_ + (lambda (_L98111_ _L98113_) + (_generate197699_ + _L98113_ + _L97800_ + _L98111_ + _L97910_ + _L97799_))) + (___kont103380103381_ + (lambda (_L98064_ _L98066_ _L98067_) + (_generate197699_ + _L98067_ + _L97800_ + (let ((__tmp103556 (gx#datum->syntax '#f 'if)) + (__tmp103553 + (let ((__tmp103554 + (let ((__tmp103555 (let () (declare (not safe)) - (cons _L97980_ '())))) + (cons _L97910_ '())))) (declare (not safe)) - (cons _L98134_ __tmp103625)))) + (cons _L98064_ __tmp103555)))) (declare (not safe)) - (cons _L98136_ __tmp103624)))) + (cons _L98066_ __tmp103554)))) (declare (not safe)) - (cons __tmp103626 __tmp103623)) - _L97980_ - _L97869_)))) - (let ((___match103470103471_ - (lambda (_e9806298203_ - _hd9806198207_ - _tl9806098210_ - ___splice103446103447_ - _target9806398213_ - _tl9806598216_) - (letrec ((_loop9806698219_ - (lambda (_hd9806498223_ - _expr9807098226_) - (if (gx#stx-pair? _hd9806498223_) - (let ((_e9806798229_ + (cons __tmp103556 __tmp103553)) + _L97910_ + _L97799_)))) + (let ((___match103400103401_ + (lambda (_e9799298133_ + _hd9799198137_ + _tl9799098140_ + ___splice103376103377_ + _target9799398143_ + _tl9799598146_) + (letrec ((_loop9799698149_ + (lambda (_hd9799498153_ + _expr9800098156_) + (if (gx#stx-pair? _hd9799498153_) + (let ((_e9799798159_ (gx#syntax-e - _hd9806498223_))) - (let ((_lp-tl9806998236_ + _hd9799498153_))) + (let ((_lp-tl9799998166_ (let () (declare (not safe)) - (##cdr _e9806798229_))) - (_lp-hd9806898233_ + (##cdr _e9799798159_))) + (_lp-hd9799898163_ (let () (declare (not safe)) - (##car _e9806798229_)))) - (_loop9806698219_ - _lp-tl9806998236_ + (##car _e9799798159_)))) + (_loop9799698149_ + _lp-tl9799998166_ (let () (declare (not safe)) - (cons _lp-hd9806898233_ - _expr9807098226_))))) - (let ((_expr9807198239_ - (reverse _expr9807098226_))) - (___kont103444103445_ - _expr9807198239_)))))) - (_loop9806698219_ - _target9806398213_ + (cons _lp-hd9799898163_ + _expr9800098156_))))) + (let ((_expr9800198169_ + (reverse _expr9800098156_))) + (___kont103374103375_ + _expr9800198169_)))))) + (_loop9799698149_ + _target9799398143_ '()))))) - (if (gx#stx-pair? ___stx103441103442_) - (let ((_e9806298203_ - (gx#syntax-e ___stx103441103442_))) - (let ((_tl9806098210_ + (if (gx#stx-pair? ___stx103371103372_) + (let ((_e9799298133_ + (gx#syntax-e ___stx103371103372_))) + (let ((_tl9799098140_ (let () (declare (not safe)) - (##cdr _e9806298203_))) - (_hd9806198207_ + (##cdr _e9799298133_))) + (_hd9799198137_ (let () (declare (not safe)) - (##car _e9806298203_)))) - (if (gx#identifier? _hd9806198207_) + (##car _e9799298133_)))) + (if (gx#identifier? _hd9799198137_) (if (gx#free-identifier=? - |[1]#_g103627_| - _hd9806198207_) + |[1]#_g103557_| + _hd9799198137_) (if (gx#stx-pair/null? - _tl9806098210_) - (let ((___splice103446103447_ + _tl9799098140_) + (let ((___splice103376103377_ (gx#syntax-split-splice - _tl9806098210_ + _tl9799098140_ '0))) - (let ((_tl9806598216_ + (let ((_tl9799598146_ (let () (declare (not safe)) (##vector-ref - ___splice103446103447_ + ___splice103376103377_ '1))) - (_target9806398213_ + (_target9799398143_ (let () (declare (not safe)) (##vector-ref - ___splice103446103447_ + ___splice103376103377_ '0)))) (if (gx#stx-null? - _tl9806598216_) - (___match103470103471_ - _e9806298203_ - _hd9806198207_ - _tl9806098210_ - ___splice103446103447_ - _target9806398213_ - _tl9806598216_) + _tl9799598146_) + (___match103400103401_ + _e9799298133_ + _hd9799198137_ + _tl9799098140_ + ___splice103376103377_ + _target9799398143_ + _tl9799598146_) (if (gx#stx-pair? - _tl9806098210_) - (let ((_e9807998171_ + _tl9799098140_) + (let ((_e9800998101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl9806098210_))) - (let ((_tl9807798178_ - (let () (declare (not safe)) (##cdr _e9807998171_))) - (_hd9807898175_ + (gx#syntax-e _tl9799098140_))) + (let ((_tl9800798108_ + (let () (declare (not safe)) (##cdr _e9800998101_))) + (_hd9800898105_ (let () (declare (not safe)) - (##car _e9807998171_)))) - (if (gx#stx-null? _tl9807798178_) - (___kont103448103449_ _hd9807898175_ _hd9806198207_) - (if (gx#stx-pair? _tl9807798178_) - (let ((_e9809198124_ - (gx#syntax-e _tl9807798178_))) - (let ((_tl9808998131_ + (##car _e9800998101_)))) + (if (gx#stx-null? _tl9800798108_) + (___kont103378103379_ _hd9800898105_ _hd9799198137_) + (if (gx#stx-pair? _tl9800798108_) + (let ((_e9802198054_ + (gx#syntax-e _tl9800798108_))) + (let ((_tl9801998061_ (let () (declare (not safe)) - (##cdr _e9809198124_))) - (_hd9809098128_ + (##cdr _e9802198054_))) + (_hd9802098058_ (let () (declare (not safe)) - (##car _e9809198124_)))) - (if (gx#stx-null? _tl9808998131_) - (___kont103450103451_ - _hd9809098128_ - _hd9807898175_ - _hd9806198207_) + (##car _e9802198054_)))) + (if (gx#stx-null? _tl9801998061_) + (___kont103380103381_ + _hd9802098058_ + _hd9800898105_ + _hd9799198137_) (let () (declare (not safe)) - (_g9805798097_))))) - (let () (declare (not safe)) (_g9805798097_)))))) - (let () (declare (not safe)) (_g9805798097_)))))) + (_g9798798027_))))) + (let () (declare (not safe)) (_g9798798027_)))))) + (let () (declare (not safe)) (_g9798798027_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl9806098210_) - (let ((_e9807998171_ + (if (gx#stx-pair? _tl9799098140_) + (let ((_e9800998101_ (gx#syntax-e - _tl9806098210_))) - (let ((_tl9807798178_ + _tl9799098140_))) + (let ((_tl9800798108_ (let () (declare (not safe)) - (##cdr _e9807998171_))) - (_hd9807898175_ + (##cdr _e9800998101_))) + (_hd9800898105_ (let () (declare (not safe)) - (##car _e9807998171_)))) + (##car _e9800998101_)))) (if (gx#stx-null? - _tl9807798178_) - (___kont103448103449_ - _hd9807898175_ - _hd9806198207_) + _tl9800798108_) + (___kont103378103379_ + _hd9800898105_ + _hd9799198137_) (if (gx#stx-pair? - _tl9807798178_) - (let ((_e9809198124_ + _tl9800798108_) + (let ((_e9802198054_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl9807798178_))) - (let ((_tl9808998131_ + (gx#syntax-e _tl9800798108_))) + (let ((_tl9801998061_ (let () (declare (not safe)) - (##cdr _e9809198124_))) - (_hd9809098128_ + (##cdr _e9802198054_))) + (_hd9802098058_ (let () (declare (not safe)) - (##car _e9809198124_)))) - (if (gx#stx-null? _tl9808998131_) - (___kont103450103451_ - _hd9809098128_ - _hd9807898175_ - _hd9806198207_) - (let () (declare (not safe)) (_g9805798097_))))) - (let () (declare (not safe)) (_g9805798097_)))))) + (##car _e9802198054_)))) + (if (gx#stx-null? _tl9801998061_) + (___kont103380103381_ + _hd9802098058_ + _hd9800898105_ + _hd9799198137_) + (let () (declare (not safe)) (_g9798798027_))))) + (let () (declare (not safe)) (_g9798798027_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9805798097_)))) - (if (gx#stx-pair? _tl9806098210_) - (let ((_e9807998171_ + (_g9798798027_)))) + (if (gx#stx-pair? _tl9799098140_) + (let ((_e9800998101_ (gx#syntax-e - _tl9806098210_))) - (let ((_tl9807798178_ + _tl9799098140_))) + (let ((_tl9800798108_ (let () (declare (not safe)) - (##cdr _e9807998171_))) - (_hd9807898175_ + (##cdr _e9800998101_))) + (_hd9800898105_ (let () (declare (not safe)) - (##car _e9807998171_)))) + (##car _e9800998101_)))) (if (gx#stx-null? - _tl9807798178_) - (___kont103448103449_ - _hd9807898175_ - _hd9806198207_) + _tl9800798108_) + (___kont103378103379_ + _hd9800898105_ + _hd9799198137_) (if (gx#stx-pair? - _tl9807798178_) - (let ((_e9809198124_ + _tl9800798108_) + (let ((_e9802198054_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl9807798178_))) - (let ((_tl9808998131_ - (let () (declare (not safe)) (##cdr _e9809198124_))) - (_hd9809098128_ + (gx#syntax-e _tl9800798108_))) + (let ((_tl9801998061_ + (let () (declare (not safe)) (##cdr _e9802198054_))) + (_hd9802098058_ (let () (declare (not safe)) - (##car _e9809198124_)))) - (if (gx#stx-null? _tl9808998131_) - (___kont103450103451_ - _hd9809098128_ - _hd9807898175_ - _hd9806198207_) - (let () (declare (not safe)) (_g9805798097_))))) - (let () (declare (not safe)) (_g9805798097_)))))) + (##car _e9802198054_)))) + (if (gx#stx-null? _tl9801998061_) + (___kont103380103381_ + _hd9802098058_ + _hd9800898105_ + _hd9799198137_) + (let () (declare (not safe)) (_g9798798027_))))) + (let () (declare (not safe)) (_g9798798027_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9805798097_)))) - (if (gx#stx-pair? _tl9806098210_) - (let ((_e9807998171_ - (gx#syntax-e _tl9806098210_))) - (let ((_tl9807798178_ + (_g9798798027_)))) + (if (gx#stx-pair? _tl9799098140_) + (let ((_e9800998101_ + (gx#syntax-e _tl9799098140_))) + (let ((_tl9800798108_ (let () (declare (not safe)) - (##cdr _e9807998171_))) - (_hd9807898175_ + (##cdr _e9800998101_))) + (_hd9800898105_ (let () (declare (not safe)) - (##car _e9807998171_)))) - (if (gx#stx-null? _tl9807798178_) - (___kont103448103449_ - _hd9807898175_ - _hd9806198207_) + (##car _e9800998101_)))) + (if (gx#stx-null? _tl9800798108_) + (___kont103378103379_ + _hd9800898105_ + _hd9799198137_) (if (gx#stx-pair? - _tl9807798178_) - (let ((_e9809198124_ + _tl9800798108_) + (let ((_e9802198054_ (gx#syntax-e - _tl9807798178_))) - (let ((_tl9808998131_ + _tl9800798108_))) + (let ((_tl9801998061_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e9809198124_))) - (_hd9809098128_ - (let () (declare (not safe)) (##car _e9809198124_)))) - (if (gx#stx-null? _tl9808998131_) - (___kont103450103451_ - _hd9809098128_ - _hd9807898175_ - _hd9806198207_) - (let () (declare (not safe)) (_g9805798097_))))) - (let () (declare (not safe)) (_g9805798097_)))))) + (##cdr _e9802198054_))) + (_hd9802098058_ + (let () (declare (not safe)) (##car _e9802198054_)))) + (if (gx#stx-null? _tl9801998061_) + (___kont103380103381_ + _hd9802098058_ + _hd9800898105_ + _hd9799198137_) + (let () (declare (not safe)) (_g9798798027_))))) + (let () (declare (not safe)) (_g9798798027_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9805798097_)))))) + (_g9798798027_)))))) (let () (declare (not safe)) - (_g9805798097_)))))))))) + (_g9798798027_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g9799498005_)))) - (_g9799298270_ - (_recur97892_ _rest97928_))))) - _g9796697977_)))) - (_g9796498274_ + _g9792497935_)))) + (_g9792298200_ + (_recur97822_ _rest97858_))))) + _g9789697907_)))) + (_g9789498204_ (let () (declare (not safe)) - (cons _L97947_ '())))))) - _g9793397944_)))) - (_g9793198278_ (gx#genident '$E))))) + (cons _L97877_ '())))))) + _g9786397874_)))) + (_g9786198208_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K9790197920_ + (_K9783197850_ (lambda () - (let ((__tmp103631 + (let ((__tmp103561 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp103628 - (let ((__tmp103629 + (__tmp103558 + (let ((__tmp103559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103630 + (let ((__tmp103560 (let () (declare (not safe)) - (cons _L97870_ '())))) + (cons _L97800_ '())))) (declare (not safe)) (cons '"Bad syntax; malformed ast clause" - __tmp103630)))) + __tmp103560)))) (declare (not safe)) - (cons '#f __tmp103629)))) + (cons '#f __tmp103559)))) (declare (not safe)) - (cons __tmp103631 __tmp103628))))) + (cons __tmp103561 __tmp103558))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match9789997924_ + (let ((_try-match9782997854_ (lambda () (if (let () (declare (not safe)) - (##null? _rest9789797906_)) - (_K9790197920_) - (_E9790097912_))))) + (##null? _rest9782797836_)) + (_K9783197850_) + (_E9783097842_))))) (if (let () (declare (not safe)) - (##pair? _rest9789797906_)) - (let ((_tl9790498289_ + (##pair? _rest9782797836_)) + (let ((_tl9783498219_ (let () (declare (not safe)) - (##cdr _rest9789797906_))) - (_hd9790398286_ + (##cdr _rest9782797836_))) + (_hd9783398216_ (let () (declare (not safe)) - (##car _rest9789797906_)))) - (let ((_hd98292_ - _hd9790398286_) - (_rest98295_ - _tl9790498289_)) - (_K9790298282_ - _rest98295_ - _hd98292_))) - (_try-match9789997924_))))))) - _clause9779497863_ - _hd9778497831_ - _hd9778197821_)))))) - (_loop9778997843_ _target9778697837_ '())) - (_g9777297800_ _g9777397804_))))) + (##car _rest9782797836_)))) + (let ((_hd98222_ + _hd9783398216_) + (_rest98225_ + _tl9783498219_)) + (_K9783298212_ + _rest98225_ + _hd98222_))) + (_try-match9782997854_))))))) + _clause9772497793_ + _hd9771497761_ + _hd9771197751_)))))) + (_loop9771997773_ _target9771697767_ '())) + (_g9770297730_ _g9770397734_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9777297800_ - _g9777397804_)))) - (_g9777297800_ _g9777397804_)))) - (_g9777297800_ _g9777397804_)))) - (_g9777297800_ _g9777397804_))))) - (_g9777198306_ _stx97766_))))) + (_g9770297730_ + _g9770397734_)))) + (_g9770297730_ _g9770397734_)))) + (_g9770297730_ _g9770397734_)))) + (_g9770297730_ _g9770397734_))))) + (_g9770198236_ _stx97696_))))) (define |[:0:]#SyntaxError| - (let ((__obj103514 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj103444 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103514 + __obj103444 'gerbil/runtime/syntax#SyntaxError::t '1 gerbil/core$$#class-type-info::t @@ -1456,7 +1456,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103514 + __obj103444 'SyntaxError '2 gerbil/core$$#class-type-info::t @@ -1464,26 +1464,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103514 + __obj103444 '(message irritants where context phi marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103633 - (let ((__tmp103634 |[1]#_g103635_|)) + (let ((__tmp103563 + (let ((__tmp103564 |[1]#_g103565_|)) (declare (not safe)) - (cons __tmp103634 '())))) + (cons __tmp103564 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj103514 - __tmp103633 + __obj103444 + __tmp103563 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103514 + __obj103444 '#f '5 gerbil/core$$#class-type-info::t @@ -1491,7 +1491,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103514 + __obj103444 '#t '6 gerbil/core$$#class-type-info::t @@ -1499,259 +1499,259 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103514 + __obj103444 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103636 |[1]#_g103637_|)) + (let ((__tmp103566 |[1]#_g103567_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103514 - __tmp103636 + __obj103444 + __tmp103566 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103638 |[1]#_g103639_|)) + (let ((__tmp103568 |[1]#_g103569_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103514 - __tmp103638 + __obj103444 + __tmp103568 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103640 |[1]#_g103641_|)) + (let ((__tmp103570 |[1]#_g103571_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103514 - __tmp103640 + __obj103444 + __tmp103570 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103642 - (let ((__tmp103663 - (let ((__tmp103664 |[1]#_g103665_|)) + (let ((__tmp103572 + (let ((__tmp103593 + (let ((__tmp103594 |[1]#_g103595_|)) (declare (not safe)) - (cons 'message __tmp103664))) - (__tmp103643 - (let ((__tmp103660 - (let ((__tmp103661 |[1]#_g103662_|)) + (cons 'message __tmp103594))) + (__tmp103573 + (let ((__tmp103590 + (let ((__tmp103591 |[1]#_g103592_|)) (declare (not safe)) - (cons 'irritants __tmp103661))) - (__tmp103644 - (let ((__tmp103657 - (let ((__tmp103658 |[1]#_g103659_|)) + (cons 'irritants __tmp103591))) + (__tmp103574 + (let ((__tmp103587 + (let ((__tmp103588 |[1]#_g103589_|)) (declare (not safe)) - (cons 'where __tmp103658))) - (__tmp103645 - (let ((__tmp103654 - (let ((__tmp103655 |[1]#_g103656_|)) + (cons 'where __tmp103588))) + (__tmp103575 + (let ((__tmp103584 + (let ((__tmp103585 |[1]#_g103586_|)) (declare (not safe)) - (cons 'context __tmp103655))) - (__tmp103646 - (let ((__tmp103651 - (let ((__tmp103652 - |[1]#_g103653_|)) + (cons 'context __tmp103585))) + (__tmp103576 + (let ((__tmp103581 + (let ((__tmp103582 + |[1]#_g103583_|)) (declare (not safe)) - (cons 'phi __tmp103652))) - (__tmp103647 - (let ((__tmp103648 - (let ((__tmp103649 - |[1]#_g103650_|)) + (cons 'phi __tmp103582))) + (__tmp103577 + (let ((__tmp103578 + (let ((__tmp103579 + |[1]#_g103580_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp103649)))) + __tmp103579)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103648 '())))) + (cons __tmp103578 '())))) (declare (not safe)) - (cons __tmp103651 __tmp103647)))) + (cons __tmp103581 __tmp103577)))) (declare (not safe)) - (cons __tmp103654 __tmp103646)))) + (cons __tmp103584 __tmp103576)))) (declare (not safe)) - (cons __tmp103657 __tmp103645)))) + (cons __tmp103587 __tmp103575)))) (declare (not safe)) - (cons __tmp103660 __tmp103644)))) + (cons __tmp103590 __tmp103574)))) (declare (not safe)) - (cons __tmp103663 __tmp103643)))) + (cons __tmp103593 __tmp103573)))) (declare (not safe)) (##unchecked-structure-set! - __obj103514 - __tmp103642 + __obj103444 + __tmp103572 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103666 - (let ((__tmp103687 - (let ((__tmp103688 |[1]#_g103689_|)) + (let ((__tmp103596 + (let ((__tmp103617 + (let ((__tmp103618 |[1]#_g103619_|)) (declare (not safe)) - (cons 'message __tmp103688))) - (__tmp103667 - (let ((__tmp103684 - (let ((__tmp103685 |[1]#_g103686_|)) + (cons 'message __tmp103618))) + (__tmp103597 + (let ((__tmp103614 + (let ((__tmp103615 |[1]#_g103616_|)) (declare (not safe)) - (cons 'irritants __tmp103685))) - (__tmp103668 - (let ((__tmp103681 - (let ((__tmp103682 |[1]#_g103683_|)) + (cons 'irritants __tmp103615))) + (__tmp103598 + (let ((__tmp103611 + (let ((__tmp103612 |[1]#_g103613_|)) (declare (not safe)) - (cons 'where __tmp103682))) - (__tmp103669 - (let ((__tmp103678 - (let ((__tmp103679 |[1]#_g103680_|)) + (cons 'where __tmp103612))) + (__tmp103599 + (let ((__tmp103608 + (let ((__tmp103609 |[1]#_g103610_|)) (declare (not safe)) - (cons 'context __tmp103679))) - (__tmp103670 - (let ((__tmp103675 - (let ((__tmp103676 - |[1]#_g103677_|)) + (cons 'context __tmp103609))) + (__tmp103600 + (let ((__tmp103605 + (let ((__tmp103606 + |[1]#_g103607_|)) (declare (not safe)) - (cons 'phi __tmp103676))) - (__tmp103671 - (let ((__tmp103672 - (let ((__tmp103673 - |[1]#_g103674_|)) + (cons 'phi __tmp103606))) + (__tmp103601 + (let ((__tmp103602 + (let ((__tmp103603 + |[1]#_g103604_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp103673)))) + __tmp103603)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103672 '())))) + (cons __tmp103602 '())))) (declare (not safe)) - (cons __tmp103675 __tmp103671)))) + (cons __tmp103605 __tmp103601)))) (declare (not safe)) - (cons __tmp103678 __tmp103670)))) + (cons __tmp103608 __tmp103600)))) (declare (not safe)) - (cons __tmp103681 __tmp103669)))) + (cons __tmp103611 __tmp103599)))) (declare (not safe)) - (cons __tmp103684 __tmp103668)))) + (cons __tmp103614 __tmp103598)))) (declare (not safe)) - (cons __tmp103687 __tmp103667)))) + (cons __tmp103617 __tmp103597)))) (declare (not safe)) (##unchecked-structure-set! - __obj103514 - __tmp103666 + __obj103444 + __tmp103596 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103690 - (let ((__tmp103711 - (let ((__tmp103712 |[1]#_g103713_|)) + (let ((__tmp103620 + (let ((__tmp103641 + (let ((__tmp103642 |[1]#_g103643_|)) (declare (not safe)) - (cons 'message __tmp103712))) - (__tmp103691 - (let ((__tmp103708 - (let ((__tmp103709 |[1]#_g103710_|)) + (cons 'message __tmp103642))) + (__tmp103621 + (let ((__tmp103638 + (let ((__tmp103639 |[1]#_g103640_|)) (declare (not safe)) - (cons 'irritants __tmp103709))) - (__tmp103692 - (let ((__tmp103705 - (let ((__tmp103706 |[1]#_g103707_|)) + (cons 'irritants __tmp103639))) + (__tmp103622 + (let ((__tmp103635 + (let ((__tmp103636 |[1]#_g103637_|)) (declare (not safe)) - (cons 'where __tmp103706))) - (__tmp103693 - (let ((__tmp103702 - (let ((__tmp103703 |[1]#_g103704_|)) + (cons 'where __tmp103636))) + (__tmp103623 + (let ((__tmp103632 + (let ((__tmp103633 |[1]#_g103634_|)) (declare (not safe)) - (cons 'context __tmp103703))) - (__tmp103694 - (let ((__tmp103699 - (let ((__tmp103700 - |[1]#_g103701_|)) + (cons 'context __tmp103633))) + (__tmp103624 + (let ((__tmp103629 + (let ((__tmp103630 + |[1]#_g103631_|)) (declare (not safe)) - (cons 'phi __tmp103700))) - (__tmp103695 - (let ((__tmp103696 - (let ((__tmp103697 - |[1]#_g103698_|)) + (cons 'phi __tmp103630))) + (__tmp103625 + (let ((__tmp103626 + (let ((__tmp103627 + |[1]#_g103628_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp103697)))) + __tmp103627)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103696 '())))) + (cons __tmp103626 '())))) (declare (not safe)) - (cons __tmp103699 __tmp103695)))) + (cons __tmp103629 __tmp103625)))) (declare (not safe)) - (cons __tmp103702 __tmp103694)))) + (cons __tmp103632 __tmp103624)))) (declare (not safe)) - (cons __tmp103705 __tmp103693)))) + (cons __tmp103635 __tmp103623)))) (declare (not safe)) - (cons __tmp103708 __tmp103692)))) + (cons __tmp103638 __tmp103622)))) (declare (not safe)) - (cons __tmp103711 __tmp103691)))) + (cons __tmp103641 __tmp103621)))) (declare (not safe)) (##unchecked-structure-set! - __obj103514 - __tmp103690 + __obj103444 + __tmp103620 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103714 - (let ((__tmp103735 - (let ((__tmp103736 |[1]#_g103737_|)) + (let ((__tmp103644 + (let ((__tmp103665 + (let ((__tmp103666 |[1]#_g103667_|)) (declare (not safe)) - (cons 'message __tmp103736))) - (__tmp103715 - (let ((__tmp103732 - (let ((__tmp103733 |[1]#_g103734_|)) + (cons 'message __tmp103666))) + (__tmp103645 + (let ((__tmp103662 + (let ((__tmp103663 |[1]#_g103664_|)) (declare (not safe)) - (cons 'irritants __tmp103733))) - (__tmp103716 - (let ((__tmp103729 - (let ((__tmp103730 |[1]#_g103731_|)) + (cons 'irritants __tmp103663))) + (__tmp103646 + (let ((__tmp103659 + (let ((__tmp103660 |[1]#_g103661_|)) (declare (not safe)) - (cons 'where __tmp103730))) - (__tmp103717 - (let ((__tmp103726 - (let ((__tmp103727 |[1]#_g103728_|)) + (cons 'where __tmp103660))) + (__tmp103647 + (let ((__tmp103656 + (let ((__tmp103657 |[1]#_g103658_|)) (declare (not safe)) - (cons 'context __tmp103727))) - (__tmp103718 - (let ((__tmp103723 - (let ((__tmp103724 - |[1]#_g103725_|)) + (cons 'context __tmp103657))) + (__tmp103648 + (let ((__tmp103653 + (let ((__tmp103654 + |[1]#_g103655_|)) (declare (not safe)) - (cons 'phi __tmp103724))) - (__tmp103719 - (let ((__tmp103720 - (let ((__tmp103721 - |[1]#_g103722_|)) + (cons 'phi __tmp103654))) + (__tmp103649 + (let ((__tmp103650 + (let ((__tmp103651 + |[1]#_g103652_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp103721)))) + __tmp103651)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103720 '())))) + (cons __tmp103650 '())))) (declare (not safe)) - (cons __tmp103723 __tmp103719)))) + (cons __tmp103653 __tmp103649)))) (declare (not safe)) - (cons __tmp103726 __tmp103718)))) + (cons __tmp103656 __tmp103648)))) (declare (not safe)) - (cons __tmp103729 __tmp103717)))) + (cons __tmp103659 __tmp103647)))) (declare (not safe)) - (cons __tmp103732 __tmp103716)))) + (cons __tmp103662 __tmp103646)))) (declare (not safe)) - (cons __tmp103735 __tmp103715)))) + (cons __tmp103665 __tmp103645)))) (declare (not safe)) (##unchecked-structure-set! - __obj103514 - __tmp103714 + __obj103444 + __tmp103644 '14 gerbil/core$$#class-type-info::t '#f)) - __obj103514)) + __obj103444)) (define |[:0:]#AST| - (let ((__obj103516 - (make-object* gerbil/core$$#class-type-info::t '15))) + (let ((__obj103446 + (make-object gerbil/core$$#class-type-info::t '15))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103516 + __obj103446 'gerbil#AST::t '1 gerbil/core$$#class-type-info::t @@ -1759,7 +1759,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103516 + __obj103446 'syntax '2 gerbil/core$$#class-type-info::t @@ -1767,7 +1767,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103516 + __obj103446 '(e source) '4 gerbil/core$$#class-type-info::t @@ -1775,7 +1775,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103516 + __obj103446 '() '3 gerbil/core$$#class-type-info::t @@ -1783,7 +1783,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103516 + __obj103446 '#t '5 gerbil/core$$#class-type-info::t @@ -1791,7 +1791,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103516 + __obj103446 '#f '6 gerbil/core$$#class-type-info::t @@ -1799,117 +1799,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103516 + __obj103446 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103738 |[1]#_g103739_|)) + (let ((__tmp103668 |[1]#_g103669_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103516 - __tmp103738 + __obj103446 + __tmp103668 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103740 |[1]#_g103741_|)) + (let ((__tmp103670 |[1]#_g103671_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103516 - __tmp103740 + __obj103446 + __tmp103670 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103742 |[1]#_g103743_|)) + (let ((__tmp103672 |[1]#_g103673_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103516 - __tmp103742 + __obj103446 + __tmp103672 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103744 - (let ((__tmp103749 - (let ((__tmp103750 |[1]#_g103751_|)) + (let ((__tmp103674 + (let ((__tmp103679 + (let ((__tmp103680 |[1]#_g103681_|)) (declare (not safe)) - (cons 'e __tmp103750))) - (__tmp103745 - (let ((__tmp103746 - (let ((__tmp103747 |[1]#_g103748_|)) + (cons 'e __tmp103680))) + (__tmp103675 + (let ((__tmp103676 + (let ((__tmp103677 |[1]#_g103678_|)) (declare (not safe)) - (cons 'source __tmp103747)))) + (cons 'source __tmp103677)))) (declare (not safe)) - (cons __tmp103746 '())))) + (cons __tmp103676 '())))) (declare (not safe)) - (cons __tmp103749 __tmp103745)))) + (cons __tmp103679 __tmp103675)))) (declare (not safe)) (##unchecked-structure-set! - __obj103516 - __tmp103744 + __obj103446 + __tmp103674 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103752 - (let ((__tmp103757 - (let ((__tmp103758 |[1]#_g103759_|)) + (let ((__tmp103682 + (let ((__tmp103687 + (let ((__tmp103688 |[1]#_g103689_|)) (declare (not safe)) - (cons 'e __tmp103758))) - (__tmp103753 - (let ((__tmp103754 - (let ((__tmp103755 |[1]#_g103756_|)) + (cons 'e __tmp103688))) + (__tmp103683 + (let ((__tmp103684 + (let ((__tmp103685 |[1]#_g103686_|)) (declare (not safe)) - (cons 'source __tmp103755)))) + (cons 'source __tmp103685)))) (declare (not safe)) - (cons __tmp103754 '())))) + (cons __tmp103684 '())))) (declare (not safe)) - (cons __tmp103757 __tmp103753)))) + (cons __tmp103687 __tmp103683)))) (declare (not safe)) (##unchecked-structure-set! - __obj103516 - __tmp103752 + __obj103446 + __tmp103682 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103760 - (let ((__tmp103765 - (let ((__tmp103766 |[1]#_g103767_|)) + (let ((__tmp103690 + (let ((__tmp103695 + (let ((__tmp103696 |[1]#_g103697_|)) (declare (not safe)) - (cons 'e __tmp103766))) - (__tmp103761 - (let ((__tmp103762 - (let ((__tmp103763 |[1]#_g103764_|)) + (cons 'e __tmp103696))) + (__tmp103691 + (let ((__tmp103692 + (let ((__tmp103693 |[1]#_g103694_|)) (declare (not safe)) - (cons 'source __tmp103763)))) + (cons 'source __tmp103693)))) (declare (not safe)) - (cons __tmp103762 '())))) + (cons __tmp103692 '())))) (declare (not safe)) - (cons __tmp103765 __tmp103761)))) + (cons __tmp103695 __tmp103691)))) (declare (not safe)) (##unchecked-structure-set! - __obj103516 - __tmp103760 + __obj103446 + __tmp103690 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp103768 - (let ((__tmp103773 - (let ((__tmp103774 |[1]#_g103775_|)) + (let ((__tmp103698 + (let ((__tmp103703 + (let ((__tmp103704 |[1]#_g103705_|)) (declare (not safe)) - (cons 'e __tmp103774))) - (__tmp103769 - (let ((__tmp103770 - (let ((__tmp103771 |[1]#_g103772_|)) + (cons 'e __tmp103704))) + (__tmp103699 + (let ((__tmp103700 + (let ((__tmp103701 |[1]#_g103702_|)) (declare (not safe)) - (cons 'source __tmp103771)))) + (cons 'source __tmp103701)))) (declare (not safe)) - (cons __tmp103770 '())))) + (cons __tmp103700 '())))) (declare (not safe)) - (cons __tmp103773 __tmp103769)))) + (cons __tmp103703 __tmp103699)))) (declare (not safe)) (##unchecked-structure-set! - __obj103516 - __tmp103768 + __obj103446 + __tmp103698 '14 gerbil/core$$#class-type-info::t '#f)) - __obj103516)))) + __obj103446)))) diff --git a/src/bootstrap/gerbil/runtime/system__0.scm b/src/bootstrap/gerbil/runtime/system__0.scm index f5e798ad9..52564d22f 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 1707423038) + (define gerbil/runtime/system::timestamp 1707565657) (begin - (define gerbil-version-string (lambda () '"v0.18.1-56-g04d0fa81")) + (define gerbil-version-string (lambda () '"v0.18.1-42-g5261ab7b")) (define gerbil-system-manifest - (let ((__tmp68219 - (let ((__tmp68220 + (let ((__tmp68224 + (let ((__tmp68225 (let () (declare (not safe)) (gerbil-version-string)))) (declare (not safe)) - (cons '"Gerbil" __tmp68220))) - (__tmp68216 - (let ((__tmp68217 - (let ((__tmp68218 (system-version-string))) + (cons '"Gerbil" __tmp68225))) + (__tmp68221 + (let ((__tmp68222 + (let ((__tmp68223 (system-version-string))) (declare (not safe)) - (cons '"Gambit" __tmp68218)))) + (cons '"Gambit" __tmp68223)))) (declare (not safe)) - (cons __tmp68217 '())))) + (cons __tmp68222 '())))) (declare (not safe)) - (cons __tmp68219 __tmp68216))) + (cons __tmp68224 __tmp68221))) (define build-manifest gerbil-system-manifest) (set! build-manifest build-manifest) (define display-build-manifest__% - (lambda (_manifest63966_ _port63967_) - (let ((_p63973_ - (lambda (_g6396863970_) (display _g6396863970_ _port63967_))) - (_l63974_ (length _manifest63966_)) - (_i63975_ '0)) + (lambda (_manifest63971_ _port63972_) + (let ((_p63978_ + (lambda (_g6397363975_) (display _g6397363975_ _port63972_))) + (_l63979_ (length _manifest63971_)) + (_i63980_ '0)) (for-each - (lambda (_layer63977_) - (if (let () (declare (not safe)) (zero? _i63975_)) + (lambda (_layer63982_) + (if (let () (declare (not safe)) (zero? _i63980_)) '#!void - (if (= _i63975_ '1) - (let () (declare (not safe)) (_p63973_ '" on ")) - (let () (declare (not safe)) (_p63973_ '", ")))) - (let* ((_layer6397863985_ _layer63977_) - (_E6398063989_ + (if (= _i63980_ '1) + (let () (declare (not safe)) (_p63978_ '" on ")) + (let () (declare (not safe)) (_p63978_ '", ")))) + (let* ((_layer6398363990_ _layer63982_) + (_E6398563994_ (lambda () - (error '"No clause matching" _layer6397863985_))) - (_K6398163995_ - (lambda (_version63992_ _name63993_) - (let () (declare (not safe)) (_p63973_ _name63993_)) - (let () (declare (not safe)) (_p63973_ '" ")) + (error '"No clause matching" _layer6398363990_))) + (_K6398664000_ + (lambda (_version63997_ _name63998_) + (let () (declare (not safe)) (_p63978_ _name63998_)) + (let () (declare (not safe)) (_p63978_ '" ")) (let () (declare (not safe)) - (_p63973_ _version63992_))))) - (if (let () (declare (not safe)) (##pair? _layer6397863985_)) - (let ((_hd6398263998_ + (_p63978_ _version63997_))))) + (if (let () (declare (not safe)) (##pair? _layer6398363990_)) + (let ((_hd6398764003_ (let () (declare (not safe)) - (##car _layer6397863985_))) - (_tl6398364000_ + (##car _layer6398363990_))) + (_tl6398864005_ (let () (declare (not safe)) - (##cdr _layer6397863985_)))) - (let* ((_name64003_ _hd6398263998_) - (_version64005_ _tl6398364000_)) + (##cdr _layer6398363990_)))) + (let* ((_name64008_ _hd6398764003_) + (_version64010_ _tl6398864005_)) (declare (not safe)) - (_K6398163995_ _version64005_ _name64003_))) - (let () (declare (not safe)) (_E6398063989_)))) - (set! _i63975_ (+ _i63975_ '1))) - _manifest63966_)))) + (_K6398664000_ _version64010_ _name64008_))) + (let () (declare (not safe)) (_E6398563994_)))) + (set! _i63980_ (+ _i63980_ '1))) + _manifest63971_)))) (define display-build-manifest__0 (lambda () - (let* ((_manifest64011_ build-manifest) - (_port64013_ (current-output-port))) + (let* ((_manifest64016_ build-manifest) + (_port64018_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest64011_ _port64013_)))) + (display-build-manifest__% _manifest64016_ _port64018_)))) (define display-build-manifest__1 - (lambda (_manifest64015_) - (let ((_port64017_ (current-output-port))) + (lambda (_manifest64020_) + (let ((_port64022_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest64015_ _port64017_)))) + (display-build-manifest__% _manifest64020_ _port64022_)))) (define display-build-manifest - (lambda _g68222_ - (let ((_g68221_ (let () (declare (not safe)) (##length _g68222_)))) - (cond ((let () (declare (not safe)) (##fx= _g68221_ 0)) + (lambda _g68227_ + (let ((_g68226_ (let () (declare (not safe)) (##length _g68227_)))) + (cond ((let () (declare (not safe)) (##fx= _g68226_ 0)) (apply (lambda () (let () (declare (not safe)) (display-build-manifest__0))) - _g68222_)) - ((let () (declare (not safe)) (##fx= _g68221_ 1)) - (apply (lambda (_manifest64015_) + _g68227_)) + ((let () (declare (not safe)) (##fx= _g68226_ 1)) + (apply (lambda (_manifest64020_) (let () (declare (not safe)) - (display-build-manifest__1 _manifest64015_))) - _g68222_)) - ((let () (declare (not safe)) (##fx= _g68221_ 2)) - (apply (lambda (_manifest64019_ _port64020_) + (display-build-manifest__1 _manifest64020_))) + _g68227_)) + ((let () (declare (not safe)) (##fx= _g68226_ 2)) + (apply (lambda (_manifest64024_ _port64025_) (let () (declare (not safe)) (display-build-manifest__% - _manifest64019_ - _port64020_))) - _g68222_)) + _manifest64024_ + _port64025_))) + _g68227_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g68222_)))))) + _g68227_)))))) (define build-manifest/layer - (lambda (_layer63961_) - (let ((_l63963_ (assoc _layer63961_ build-manifest))) - (if _l63963_ - (let () (declare (not safe)) (cons _l63963_ '())) + (lambda (_layer63966_) + (let ((_l63968_ (assoc _layer63966_ build-manifest))) + (if _l63968_ + (let () (declare (not safe)) (cons _l63968_ '())) '())))) (define build-manifest/head (lambda () - (let ((__tmp68223 (car build-manifest))) + (let ((__tmp68228 (car build-manifest))) (declare (not safe)) - (cons __tmp68223 '())))) + (cons __tmp68228 '())))) (define build-manifest-string__% - (lambda (_manifest63948_) + (lambda (_manifest63953_) (call-with-output-string '() - (lambda (_p63950_) + (lambda (_p63955_) (let () (declare (not safe)) - (display-build-manifest__% _manifest63948_ _p63950_)))))) + (display-build-manifest__% _manifest63953_ _p63955_)))))) (define build-manifest-string__0 (lambda () - (let ((_manifest63956_ build-manifest)) + (let ((_manifest63961_ build-manifest)) (declare (not safe)) - (build-manifest-string__% _manifest63956_)))) + (build-manifest-string__% _manifest63961_)))) (define build-manifest-string - (lambda _g68225_ - (let ((_g68224_ (let () (declare (not safe)) (##length _g68225_)))) - (cond ((let () (declare (not safe)) (##fx= _g68224_ 0)) + (lambda _g68230_ + (let ((_g68229_ (let () (declare (not safe)) (##length _g68230_)))) + (cond ((let () (declare (not safe)) (##fx= _g68229_ 0)) (apply (lambda () (let () (declare (not safe)) (build-manifest-string__0))) - _g68225_)) - ((let () (declare (not safe)) (##fx= _g68224_ 1)) - (apply (lambda (_manifest63958_) + _g68230_)) + ((let () (declare (not safe)) (##fx= _g68229_ 1)) + (apply (lambda (_manifest63963_) (let () (declare (not safe)) - (build-manifest-string__% _manifest63958_))) - _g68225_)) + (build-manifest-string__% _manifest63963_))) + _g68230_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g68225_)))))) + _g68230_)))))) (define gerbil-system-version-string (lambda () (let () @@ -152,15 +152,15 @@ (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_$e63942_ (getenv '"GERBIL_HOME" '#f))) - (if _$e63942_ _$e63942_ (path-expand '"~~"))))) + (let ((_$e63947_ (getenv '"GERBIL_HOME" '#f))) + (if _$e63947_ _$e63947_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_$e63938_ (getenv '"GERBIL_PATH" '#f))) - (if _$e63938_ _$e63938_ (path-expand '"~/.gerbil"))))) + (let ((_$e63943_ (getenv '"GERBIL_PATH" '#f))) + (if _$e63943_ _$e63943_ (path-expand '"~/.gerbil"))))) (define gerbil-runtime-smp? (lambda () (member '"--enable-smp" - (let ((__tmp68226 (configure-command-string))) + (let ((__tmp68231 (configure-command-string))) (declare (not safe)) - (string-split __tmp68226 '#\'))))))) + (string-split __tmp68231 '#\'))))))) diff --git a/src/bootstrap/gerbil/runtime/system__1.scm b/src/bootstrap/gerbil/runtime/system__1.scm index 9d4d1308c..20665b992 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 (_$stx63854_) - (let* ((_g6385863876_ - (lambda (_g6385963872_) + (lambda (_$stx63859_) + (let* ((_g6386363881_ + (lambda (_g6386463877_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6385963872_))) - (_g6385763932_ - (lambda (_g6385963880_) - (if (gx#stx-pair? _g6385963880_) - (let ((_e6386463883_ (gx#syntax-e _g6385963880_))) - (let ((_hd6386363887_ - (let () (declare (not safe)) (##car _e6386463883_))) - (_tl6386263890_ + _g6386463877_))) + (_g6386263937_ + (lambda (_g6386463885_) + (if (gx#stx-pair? _g6386463885_) + (let ((_e6386963888_ (gx#syntax-e _g6386463885_))) + (let ((_hd6386863892_ + (let () (declare (not safe)) (##car _e6386963888_))) + (_tl6386763895_ (let () (declare (not safe)) - (##cdr _e6386463883_)))) - (if (gx#stx-pair? _tl6386263890_) - (let ((_e6386763893_ (gx#syntax-e _tl6386263890_))) - (let ((_hd6386663897_ + (##cdr _e6386963888_)))) + (if (gx#stx-pair? _tl6386763895_) + (let ((_e6387263898_ (gx#syntax-e _tl6386763895_))) + (let ((_hd6387163902_ (let () (declare (not safe)) - (##car _e6386763893_))) - (_tl6386563900_ + (##car _e6387263898_))) + (_tl6387063905_ (let () (declare (not safe)) - (##cdr _e6386763893_)))) - (if (gx#stx-pair? _tl6386563900_) - (let ((_e6387063903_ - (gx#syntax-e _tl6386563900_))) - (let ((_hd6386963907_ + (##cdr _e6387263898_)))) + (if (gx#stx-pair? _tl6387063905_) + (let ((_e6387563908_ + (gx#syntax-e _tl6387063905_))) + (let ((_hd6387463912_ (let () (declare (not safe)) - (##car _e6387063903_))) - (_tl6386863910_ + (##car _e6387563908_))) + (_tl6387363915_ (let () (declare (not safe)) - (##cdr _e6387063903_)))) - (if (gx#stx-null? _tl6386863910_) - ((lambda (_L63913_ _L63915_) - (let ((__tmp68240 + (##cdr _e6387563908_)))) + (if (gx#stx-null? _tl6387363915_) + ((lambda (_L63918_ _L63920_) + (let ((__tmp68245 (gx#datum->syntax '#f 'begin)) - (__tmp68227 - (let ((__tmp68236 - (let ((__tmp68239 + (__tmp68232 + (let ((__tmp68241 + (let ((__tmp68244 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'def)) - (__tmp68237 - (let ((__tmp68238 + (__tmp68242 + (let ((__tmp68243 (let () (declare (not safe)) - (cons _L63913_ '())))) + (cons _L63918_ '())))) (declare (not safe)) - (cons _L63915_ __tmp68238)))) + (cons _L63920_ __tmp68243)))) (declare (not safe)) - (cons __tmp68239 __tmp68237))) - (__tmp68228 - (let ((__tmp68232 - (let ((__tmp68235 (gx#datum->syntax '#f 'set!)) - (__tmp68233 - (let ((__tmp68234 + (cons __tmp68244 __tmp68242))) + (__tmp68233 + (let ((__tmp68237 + (let ((__tmp68240 (gx#datum->syntax '#f 'set!)) + (__tmp68238 + (let ((__tmp68239 (let () (declare (not safe)) - (cons _L63915_ '())))) + (cons _L63920_ '())))) (declare (not safe)) - (cons _L63915_ __tmp68234)))) + (cons _L63920_ __tmp68239)))) (declare (not safe)) - (cons __tmp68235 __tmp68233))) - (__tmp68229 - (let ((__tmp68230 - (let ((__tmp68231 + (cons __tmp68240 __tmp68238))) + (__tmp68234 + (let ((__tmp68235 + (let ((__tmp68236 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp68231 '())))) + (cons __tmp68236 '())))) (declare (not safe)) - (cons __tmp68230 '())))) + (cons __tmp68235 '())))) (declare (not safe)) - (cons __tmp68232 __tmp68229)))) + (cons __tmp68237 __tmp68234)))) (declare (not safe)) - (cons __tmp68236 __tmp68228)))) + (cons __tmp68241 __tmp68233)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68240 __tmp68227))) - _hd6386963907_ - _hd6386663897_) - (_g6385863876_ _g6385963880_)))) - (_g6385863876_ _g6385963880_)))) - (_g6385863876_ _g6385963880_)))) - (_g6385863876_ _g6385963880_))))) - (_g6385763932_ _$stx63854_)))) + (cons __tmp68245 __tmp68232))) + _hd6387463912_ + _hd6387163902_) + (_g6386363881_ _g6386463885_)))) + (_g6386363881_ _g6386463885_)))) + (_g6386363881_ _g6386463885_)))) + (_g6386363881_ _g6386463885_))))) + (_g6386263937_ _$stx63859_)))) diff --git a/src/bootstrap/gerbil/runtime/thread__0.scm b/src/bootstrap/gerbil/runtime/thread__0.scm index a0185be31..76339723f 100644 --- a/src/bootstrap/gerbil/runtime/thread__0.scm +++ b/src/bootstrap/gerbil/runtime/thread__0.scm @@ -1,219 +1,219 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1707423039) + (define gerbil/runtime/thread::timestamp 1707565658) (begin (define spawn - (lambda (_f93432_ . _args93433_) - (if (let () (declare (not safe)) (procedure? _f93432_)) + (lambda (_f93362_ . _args93363_) + (if (let () (declare (not safe)) (procedure? _f93362_)) '#!void - (raise (let ((__obj97628 (make-object* Error::t '5))) + (raise (let ((__obj97558 (make-object Error::t '5))) (Error:::init! - __obj97628 + __obj97558 '"expected procedure" 'where: 'spawn 'irritants: - (let () (declare (not safe)) (cons _f93432_ '()))) - __obj97628))) + (let () (declare (not safe)) (cons _f93362_ '()))) + __obj97558))) (let () (declare (not safe)) - (spawn-actor _f93432_ _args93433_ '#!void '#f)))) + (spawn-actor _f93362_ _args93363_ '#!void '#f)))) (define spawn/name - (lambda (_name93428_ _f93429_ . _args93430_) - (if (let () (declare (not safe)) (procedure? _f93429_)) + (lambda (_name93358_ _f93359_ . _args93360_) + (if (let () (declare (not safe)) (procedure? _f93359_)) '#!void - (raise (let ((__obj97629 (make-object* Error::t '5))) + (raise (let ((__obj97559 (make-object Error::t '5))) (Error:::init! - __obj97629 + __obj97559 '"expected procedure" 'where: 'spawn/name 'irritants: - (let () (declare (not safe)) (cons _f93429_ '()))) - __obj97629))) + (let () (declare (not safe)) (cons _f93359_ '()))) + __obj97559))) (let () (declare (not safe)) - (spawn-actor _f93429_ _args93430_ _name93428_ '#f)))) + (spawn-actor _f93359_ _args93360_ _name93358_ '#f)))) (define spawn/group - (lambda (_name93422_ _f93423_ . _args93424_) - (if (let () (declare (not safe)) (procedure? _f93423_)) + (lambda (_name93352_ _f93353_ . _args93354_) + (if (let () (declare (not safe)) (procedure? _f93353_)) '#!void - (raise (let ((__obj97630 (make-object* Error::t '5))) + (raise (let ((__obj97560 (make-object Error::t '5))) (Error:::init! - __obj97630 + __obj97560 '"expected procedure" 'where: 'spawn/group 'irritants: - (let () (declare (not safe)) (cons _f93423_ '()))) - __obj97630))) - (let ((_tgroup93426_ (make-thread-group _name93422_))) + (let () (declare (not safe)) (cons _f93353_ '()))) + __obj97560))) + (let ((_tgroup93356_ (make-thread-group _name93352_))) (declare (not safe)) - (spawn-actor _f93423_ _args93424_ _name93422_ _tgroup93426_)))) + (spawn-actor _f93353_ _args93354_ _name93352_ _tgroup93356_)))) (define spawn-actor - (lambda (_f93395_ _args93396_ _name93397_ _tgroup93398_) - (letrec ((_thread-main93400_ - (lambda (_thunk93414_) + (lambda (_f93325_ _args93326_ _name93327_ _tgroup93328_) + (letrec ((_thread-main93330_ + (lambda (_thunk93344_) (lambda () (with-exception-handler - (lambda (_exn93417_) - (let ((__tmp97632 - (lambda (_cont93419_) + (lambda (_exn93347_) + (let ((__tmp97562 + (lambda (_cont93349_) (if __unhandled-actor-exception-hook - (let ((__tmp97633 + (let ((__tmp97563 (lambda () (__unhandled-actor-exception-hook - _cont93419_ - _exn93417_)))) + _cont93349_ + _exn93347_)))) (declare (not safe)) - (with-catch void __tmp97633)) + (with-catch void __tmp97563)) '#!void) - (let ((__tmp97634 + (let ((__tmp97564 (let () (declare (not safe)) - (##continuation-last _cont93419_)))) + (##continuation-last _cont93349_)))) (declare (not safe)) (##continuation-graft - __tmp97634 + __tmp97564 ##primordial-exception-handler - _exn93417_))))) + _exn93347_))))) (declare (not safe)) - (##continuation-capture __tmp97632))) - _thunk93414_))))) - (let* ((_thunk93403_ - (if (let () (declare (not safe)) (null? _args93396_)) - _f93395_ - (lambda () (apply _f93395_ _args93396_)))) - (_thunk93406_ + (##continuation-capture __tmp97562))) + _thunk93344_))))) + (let* ((_thunk93333_ + (if (let () (declare (not safe)) (null? _args93326_)) + _f93325_ + (lambda () (apply _f93325_ _args93326_)))) + (_thunk93336_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk93403_)))) - (_tgroup93411_ - (let ((_$e93408_ _tgroup93398_)) - (if _$e93408_ - _$e93408_ + (with-exception-stack-trace__0 _thunk93333_)))) + (_tgroup93341_ + (let ((_$e93338_ _tgroup93328_)) + (if _$e93338_ + _$e93338_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main93400_ _thunk93406_)) - _name93397_ - _tgroup93411_)))))) + (let () (declare (not safe)) (_thread-main93330_ _thunk93336_)) + _name93327_ + _tgroup93341_)))))) (define spawn-thread__% - (lambda (_thunk93373_ _name93374_ _tgroup93375_) - (thread-start! (make-thread _thunk93373_ _name93374_ _tgroup93375_)))) + (lambda (_thunk93303_ _name93304_ _tgroup93305_) + (thread-start! (make-thread _thunk93303_ _name93304_ _tgroup93305_)))) (define spawn-thread__0 - (lambda (_thunk93380_) - (let* ((_name93382_ absent-obj) (_tgroup93384_ absent-obj)) + (lambda (_thunk93310_) + (let* ((_name93312_ absent-obj) (_tgroup93314_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk93380_ _name93382_ _tgroup93384_)))) + (spawn-thread__% _thunk93310_ _name93312_ _tgroup93314_)))) (define spawn-thread__1 - (lambda (_thunk93386_ _name93387_) - (let ((_tgroup93389_ absent-obj)) + (lambda (_thunk93316_ _name93317_) + (let ((_tgroup93319_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk93386_ _name93387_ _tgroup93389_)))) + (spawn-thread__% _thunk93316_ _name93317_ _tgroup93319_)))) (define spawn-thread - (lambda _g97636_ - (let ((_g97635_ (let () (declare (not safe)) (##length _g97636_)))) - (cond ((let () (declare (not safe)) (##fx= _g97635_ 1)) - (apply (lambda (_thunk93380_) + (lambda _g97566_ + (let ((_g97565_ (let () (declare (not safe)) (##length _g97566_)))) + (cond ((let () (declare (not safe)) (##fx= _g97565_ 1)) + (apply (lambda (_thunk93310_) (let () (declare (not safe)) - (spawn-thread__0 _thunk93380_))) - _g97636_)) - ((let () (declare (not safe)) (##fx= _g97635_ 2)) - (apply (lambda (_thunk93386_ _name93387_) + (spawn-thread__0 _thunk93310_))) + _g97566_)) + ((let () (declare (not safe)) (##fx= _g97565_ 2)) + (apply (lambda (_thunk93316_ _name93317_) (let () (declare (not safe)) - (spawn-thread__1 _thunk93386_ _name93387_))) - _g97636_)) - ((let () (declare (not safe)) (##fx= _g97635_ 3)) - (apply (lambda (_thunk93391_ _name93392_ _tgroup93393_) + (spawn-thread__1 _thunk93316_ _name93317_))) + _g97566_)) + ((let () (declare (not safe)) (##fx= _g97565_ 3)) + (apply (lambda (_thunk93321_ _name93322_ _tgroup93323_) (let () (declare (not safe)) (spawn-thread__% - _thunk93391_ - _name93392_ - _tgroup93393_))) - _g97636_)) + _thunk93321_ + _name93322_ + _tgroup93323_))) + _g97566_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g97636_)))))) + _g97566_)))))) (define thread-local-ref__% - (lambda (_key93357_ _default93358_) - (let ((_tab93360_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key93287_ _default93288_) + (let ((_tab93290_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-ref _tab93360_ _key93357_ _default93358_)))) + (table-ref _tab93290_ _key93287_ _default93288_)))) (define thread-local-ref__0 - (lambda (_key93365_) - (let ((_default93367_ absent-obj)) + (lambda (_key93295_) + (let ((_default93297_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key93365_ _default93367_)))) + (thread-local-ref__% _key93295_ _default93297_)))) (define thread-local-ref - (lambda _g97638_ - (let ((_g97637_ (let () (declare (not safe)) (##length _g97638_)))) - (cond ((let () (declare (not safe)) (##fx= _g97637_ 1)) - (apply (lambda (_key93365_) + (lambda _g97568_ + (let ((_g97567_ (let () (declare (not safe)) (##length _g97568_)))) + (cond ((let () (declare (not safe)) (##fx= _g97567_ 1)) + (apply (lambda (_key93295_) (let () (declare (not safe)) - (thread-local-ref__0 _key93365_))) - _g97638_)) - ((let () (declare (not safe)) (##fx= _g97637_ 2)) - (apply (lambda (_key93369_ _default93370_) + (thread-local-ref__0 _key93295_))) + _g97568_)) + ((let () (declare (not safe)) (##fx= _g97567_ 2)) + (apply (lambda (_key93299_ _default93300_) (let () (declare (not safe)) - (thread-local-ref__% _key93369_ _default93370_))) - _g97638_)) + (thread-local-ref__% _key93299_ _default93300_))) + _g97568_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g97638_)))))) + _g97568_)))))) (define thread-local-get - (lambda (_key93354_) - (let () (declare (not safe)) (thread-local-ref _key93354_ '#f)))) + (lambda (_key93284_) + (let () (declare (not safe)) (thread-local-ref _key93284_ '#f)))) (define thread-local-set! - (lambda (_key93349_ _value93350_) - (let ((_tab93352_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key93279_ _value93280_) + (let ((_tab93282_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab93352_ _key93349_ _value93350_)))) + (table-set! _tab93282_ _key93279_ _value93280_)))) (define thread-local-clear! - (lambda (_key93345_) - (let ((_tab93347_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key93275_) + (let ((_tab93277_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab93347_ _key93345_)))) + (table-set! _tab93277_ _key93275_)))) (define thread-local-table (lambda () - (let ((_thr93331_ (current-thread))) - (if (let () (declare (not safe)) (actor-thread? _thr93331_)) - (let ((_$e93333_ (actor-thread-locals _thr93331_))) - (if _$e93333_ - (values _$e93333_) - (let ((_tab93336_ + (let ((_thr93261_ (current-thread))) + (if (let () (declare (not safe)) (actor-thread? _thr93261_)) + (let ((_$e93263_ (actor-thread-locals _thr93261_))) + (if _$e93263_ + (values _$e93263_) + (let ((_tab93266_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (actor-thread-locals-set! _thr93331_ _tab93336_) - _tab93336_))) + (actor-thread-locals-set! _thr93261_ _tab93266_) + _tab93266_))) (if (let () (declare (not safe)) - (eq? _thr93331_ ##primordial-thread)) + (eq? _thr93261_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e93338_ + (let ((_$e93268_ (let () (declare (not safe)) - (table-ref __thread-locals _thr93331_ '#f)))) - (if _$e93338_ - ((lambda (_tab93341_) + (table-ref __thread-locals _thr93261_ '#f)))) + (if _$e93268_ + ((lambda (_tab93271_) (mutex-unlock! __thread-locals-mutex) - _tab93341_) - _$e93338_) - (let ((_tab93343_ + _tab93271_) + _$e93268_) + (let ((_tab93273_ (let () (declare (not safe)) (make-table 'test: eq?)))) @@ -221,10 +221,10 @@ (declare (not safe)) (table-set! __thread-locals - _thr93331_ - _tab93343_)) + _thr93261_ + _tab93273_)) (mutex-unlock! __thread-locals-mutex) - _tab93343_))))))))) + _tab93273_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-table 'test: eq?))) (define __thread-locals @@ -232,135 +232,135 @@ (define __thread-locals-mutex (make-mutex 'thread-locals)) (define __unhandled-actor-exception-hook '#f) (define unhandled-actor-exception-hook-set! - (lambda (_proc93328_) - (if (let () (declare (not safe)) (procedure? _proc93328_)) + (lambda (_proc93258_) + (if (let () (declare (not safe)) (procedure? _proc93258_)) '#!void - (raise (let ((__obj97631 (make-object* Error::t '5))) + (raise (let ((__obj97561 (make-object Error::t '5))) (Error:::init! - __obj97631 + __obj97561 '"Bad argument; expected procedure or #f" 'where: 'unhandler-actor-exception-hook-set! 'irritants: - (let () (declare (not safe)) (cons _proc93328_ '()))) - __obj97631))) - (set! __unhandled-actor-exception-hook _proc93328_))) + (let () (declare (not safe)) (cons _proc93258_ '()))) + __obj97561))) + (set! __unhandled-actor-exception-hook _proc93258_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx93316_ _proc93317_) - (let ((_handler93319_ (current-exception-handler))) + (lambda (_mx93246_ _proc93247_) + (let ((_handler93249_ (current-exception-handler))) (with-exception-handler - (lambda (_e93321_) - (let ((__tmp97639 + (lambda (_e93251_) + (let ((__tmp97569 (lambda () - (mutex-unlock! _mx93316_) - (_handler93319_ _e93321_)))) + (mutex-unlock! _mx93246_) + (_handler93249_ _e93251_)))) (declare (not safe)) - (with-catch void __tmp97639)) + (with-catch void __tmp97569)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e93321_))) + (##thread-end-with-uncaught-exception! _e93251_))) (lambda () - (mutex-lock! _mx93316_) - (let ((_result93325_ (_proc93317_))) - (mutex-unlock! _mx93316_) - _result93325_)))))) + (mutex-lock! _mx93246_) + (let ((_result93255_ (_proc93247_))) + (mutex-unlock! _mx93246_) + _result93255_)))))) (define with-dynamic-lock - (lambda (_mx93311_ _proc93312_) + (lambda (_mx93241_ _proc93242_) (dynamic-wind - (lambda () (mutex-lock! _mx93311_)) - _proc93312_ - (lambda () (mutex-unlock! _mx93311_))))) + (lambda () (mutex-lock! _mx93241_)) + _proc93242_ + (lambda () (mutex-unlock! _mx93241_))))) (define with-exception-stack-trace__% - (lambda (_thunk93292_ _error-port93293_) + (lambda (_thunk93222_ _error-port93223_) (with-exception-handler - (let ((_E93295_ (current-exception-handler))) - (lambda (_exn93297_) + (let ((_E93225_ (current-exception-handler))) + (lambda (_exn93227_) (continuation-capture - (lambda (_cont93299_) + (lambda (_cont93229_) (if (dump-stack-trace?) (let () (declare (not safe)) (dump-stack-trace!__% - _cont93299_ - _exn93297_ - _error-port93293_)) + _cont93229_ + _exn93227_ + _error-port93223_)) '#!void) - (_E93295_ _exn93297_))))) - _thunk93292_))) + (_E93225_ _exn93227_))))) + _thunk93222_))) (define with-exception-stack-trace__0 - (lambda (_thunk93304_) - (let ((_error-port93306_ (current-error-port))) + (lambda (_thunk93234_) + (let ((_error-port93236_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk93304_ _error-port93306_)))) + (with-exception-stack-trace__% _thunk93234_ _error-port93236_)))) (define with-exception-stack-trace - (lambda _g97641_ - (let ((_g97640_ (let () (declare (not safe)) (##length _g97641_)))) - (cond ((let () (declare (not safe)) (##fx= _g97640_ 1)) - (apply (lambda (_thunk93304_) + (lambda _g97571_ + (let ((_g97570_ (let () (declare (not safe)) (##length _g97571_)))) + (cond ((let () (declare (not safe)) (##fx= _g97570_ 1)) + (apply (lambda (_thunk93234_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk93304_))) - _g97641_)) - ((let () (declare (not safe)) (##fx= _g97640_ 2)) - (apply (lambda (_thunk93308_ _error-port93309_) + (with-exception-stack-trace__0 _thunk93234_))) + _g97571_)) + ((let () (declare (not safe)) (##fx= _g97570_ 2)) + (apply (lambda (_thunk93238_ _error-port93239_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk93308_ - _error-port93309_))) - _g97641_)) + _thunk93238_ + _error-port93239_))) + _g97571_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g97641_)))))) + _g97571_)))))) (define dump-stack-trace!__% - (lambda (_cont93273_ _exn93274_ _error-port93275_) - (let ((_out93277_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _out93277_)) - (display '"*** Unhandled exception in " _out93277_) - (display (current-thread) _out93277_) - (newline _out93277_) - (display-exception _exn93274_ _out93277_) + (lambda (_cont93203_ _exn93204_ _error-port93205_) + (let ((_out93207_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out93207_)) + (display '"*** Unhandled exception in " _out93207_) + (display (current-thread) _out93207_) + (newline _out93207_) + (display-exception _exn93204_ _out93207_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn93274_)) + (class-instance? StackTrace::t _exn93204_)) '#!void (begin - (display '"Continuation backtrace: " _out93277_) - (newline _out93277_) - (display-continuation-backtrace _cont93273_ _out93277_))) - (let ((__tmp97642 (get-output-string _out93277_))) + (display '"Continuation backtrace: " _out93207_) + (newline _out93207_) + (display-continuation-backtrace _cont93203_ _out93207_))) + (let ((__tmp97572 (get-output-string _out93207_))) (declare (not safe)) - (##write-string __tmp97642 _error-port93275_))))) + (##write-string __tmp97572 _error-port93205_))))) (define dump-stack-trace!__0 - (lambda (_cont93282_ _exn93283_) - (let ((_error-port93285_ (current-error-port))) + (lambda (_cont93212_ _exn93213_) + (let ((_error-port93215_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont93282_ _exn93283_ _error-port93285_)))) + (dump-stack-trace!__% _cont93212_ _exn93213_ _error-port93215_)))) (define dump-stack-trace! - (lambda _g97644_ - (let ((_g97643_ (let () (declare (not safe)) (##length _g97644_)))) - (cond ((let () (declare (not safe)) (##fx= _g97643_ 2)) - (apply (lambda (_cont93282_ _exn93283_) + (lambda _g97574_ + (let ((_g97573_ (let () (declare (not safe)) (##length _g97574_)))) + (cond ((let () (declare (not safe)) (##fx= _g97573_ 2)) + (apply (lambda (_cont93212_ _exn93213_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont93282_ _exn93283_))) - _g97644_)) - ((let () (declare (not safe)) (##fx= _g97643_ 3)) - (apply (lambda (_cont93287_ _exn93288_ _error-port93289_) + (dump-stack-trace!__0 _cont93212_ _exn93213_))) + _g97574_)) + ((let () (declare (not safe)) (##fx= _g97573_ 3)) + (apply (lambda (_cont93217_ _exn93218_ _error-port93219_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont93287_ - _exn93288_ - _error-port93289_))) - _g97644_)) + _cont93217_ + _exn93218_ + _error-port93219_))) + _g97574_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g97644_)))))) + _g97574_)))))) (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 182d03a8a..ab1b06693 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,2349 +1,2349 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1707423037) + (define gerbil/runtime/util::timestamp 1707565657) (begin (define displayln - (lambda _args58639_ - (let _lp58641_ ((_rest58643_ _args58639_)) - (let* ((_rest5864458652_ _rest58643_) - (_else5864658660_ (lambda () (newline))) - (_K5864858666_ - (lambda (_rest58663_ _hd58664_) - (display _hd58664_) - (let () (declare (not safe)) (_lp58641_ _rest58663_))))) - (if (let () (declare (not safe)) (##pair? _rest5864458652_)) - (let ((_hd5864958669_ - (let () (declare (not safe)) (##car _rest5864458652_))) - (_tl5865058671_ - (let () (declare (not safe)) (##cdr _rest5864458652_)))) - (let* ((_hd58674_ _hd5864958669_) - (_rest58676_ _tl5865058671_)) + (lambda _args58644_ + (let _lp58646_ ((_rest58648_ _args58644_)) + (let* ((_rest5864958657_ _rest58648_) + (_else5865158665_ (lambda () (newline))) + (_K5865358671_ + (lambda (_rest58668_ _hd58669_) + (display _hd58669_) + (let () (declare (not safe)) (_lp58646_ _rest58668_))))) + (if (let () (declare (not safe)) (##pair? _rest5864958657_)) + (let ((_hd5865458674_ + (let () (declare (not safe)) (##car _rest5864958657_))) + (_tl5865558676_ + (let () (declare (not safe)) (##cdr _rest5864958657_)))) + (let* ((_hd58679_ _hd5865458674_) + (_rest58681_ _tl5865558676_)) (declare (not safe)) - (_K5864858666_ _rest58676_ _hd58674_))) + (_K5865358671_ _rest58681_ _hd58679_))) (let () (declare (not safe)) (newline))))))) - (define display* (lambda _args58637_ (for-each display _args58637_))) + (define display* (lambda _args58642_ (for-each display _args58642_))) (define file-newer? - (lambda (_file158630_ _file258631_) - (letrec ((_modification-time58633_ - (lambda (_file58635_) - (let ((__tmp63258 + (lambda (_file158635_ _file258636_) + (letrec ((_modification-time58638_ + (lambda (_file58640_) + (let ((__tmp63263 (file-info-last-modification-time - (file-info _file58635_ '#t)))) + (file-info _file58640_ '#t)))) (declare (not safe)) - (##time->seconds __tmp63258))))) - (let ((__tmp63260 + (##time->seconds __tmp63263))))) + (let ((__tmp63265 (let () (declare (not safe)) - (_modification-time58633_ _file158630_))) - (__tmp63259 + (_modification-time58638_ _file158635_))) + (__tmp63264 (let () (declare (not safe)) - (_modification-time58633_ _file258631_)))) + (_modification-time58638_ _file258636_)))) (declare (not safe)) - (##fl> __tmp63260 __tmp63259))))) + (##fl> __tmp63265 __tmp63264))))) (define create-directory*__% - (lambda (_dir58604_ _perms58605_) - (letrec ((_create158607_ - (lambda (_path58618_) - (if (file-exists? _path58618_) - (if (let ((__tmp63261 (file-type _path58618_))) + (lambda (_dir58609_ _perms58610_) + (letrec ((_create158612_ + (lambda (_path58623_) + (if (file-exists? _path58623_) + (if (let ((__tmp63266 (file-type _path58623_))) (declare (not safe)) - (eq? __tmp63261 'directory)) + (eq? __tmp63266 'directory)) '#!void (error '"Path component is not a directory" - _path58618_)) - (if _perms58605_ + _path58623_)) + (if _perms58610_ (create-directory (list 'path: - _path58618_ + _path58623_ 'permissions: - _perms58605_)) - (create-directory _path58618_)))))) - (if (file-exists? _dir58604_) + _perms58610_)) + (create-directory _path58623_)))))) + (if (file-exists? _dir58609_) '#!void - (let _lp58609_ ((_start58611_ '0)) - (let ((_$e58613_ + (let _lp58614_ ((_start58616_ '0)) + (let ((_$e58618_ (let () (declare (not safe)) - (string-index _dir58604_ '#\/ _start58611_)))) - (if _$e58613_ - ((lambda (_x58616_) - (if (let () (declare (not safe)) (##fx> _x58616_ '0)) - (let ((__tmp63262 - (substring _dir58604_ '0 _x58616_))) + (string-index _dir58609_ '#\/ _start58616_)))) + (if _$e58618_ + ((lambda (_x58621_) + (if (let () (declare (not safe)) (##fx> _x58621_ '0)) + (let ((__tmp63267 + (substring _dir58609_ '0 _x58621_))) (declare (not safe)) - (_create158607_ __tmp63262)) + (_create158612_ __tmp63267)) '#!void) - (let ((__tmp63263 + (let ((__tmp63268 (let () (declare (not safe)) - (##fx+ _x58616_ '1)))) + (##fx+ _x58621_ '1)))) (declare (not safe)) - (_lp58609_ __tmp63263))) - _$e58613_) + (_lp58614_ __tmp63268))) + _$e58618_) (let () (declare (not safe)) - (_create158607_ _dir58604_))))))))) + (_create158612_ _dir58609_))))))))) (define create-directory*__0 - (lambda (_dir58623_) - (let ((_perms58625_ '493)) + (lambda (_dir58628_) + (let ((_perms58630_ '493)) (declare (not safe)) - (create-directory*__% _dir58623_ _perms58625_)))) + (create-directory*__% _dir58628_ _perms58630_)))) (define create-directory* - (lambda _g63265_ - (let ((_g63264_ (let () (declare (not safe)) (##length _g63265_)))) - (cond ((let () (declare (not safe)) (##fx= _g63264_ 1)) - (apply (lambda (_dir58623_) + (lambda _g63270_ + (let ((_g63269_ (let () (declare (not safe)) (##length _g63270_)))) + (cond ((let () (declare (not safe)) (##fx= _g63269_ 1)) + (apply (lambda (_dir58628_) (let () (declare (not safe)) - (create-directory*__0 _dir58623_))) - _g63265_)) - ((let () (declare (not safe)) (##fx= _g63264_ 2)) - (apply (lambda (_dir58627_ _perms58628_) + (create-directory*__0 _dir58628_))) + _g63270_)) + ((let () (declare (not safe)) (##fx= _g63269_ 2)) + (apply (lambda (_dir58632_ _perms58633_) (let () (declare (not safe)) - (create-directory*__% _dir58627_ _perms58628_))) - _g63265_)) + (create-directory*__% _dir58632_ _perms58633_))) + _g63270_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g63265_)))))) + _g63270_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _g63266_ '#t)) + (define true (lambda _g63271_ '#t)) (define true? - (lambda (_obj58600_) (let () (declare (not safe)) (eq? _obj58600_ '#t)))) - (define false (lambda _g63267_ '#f)) - (define void (lambda _g63268_ '#!void)) + (lambda (_obj58605_) (let () (declare (not safe)) (eq? _obj58605_ '#t)))) + (define false (lambda _g63272_ '#f)) + (define void (lambda _g63273_ '#!void)) (define void? - (lambda (_obj58596_) - (let () (declare (not safe)) (eq? _obj58596_ '#!void)))) - (define eof-object (lambda _g63269_ '#!eof)) - (define identity (lambda (_obj58593_) _obj58593_)) + (lambda (_obj58601_) + (let () (declare (not safe)) (eq? _obj58601_ '#!void)))) + (define eof-object (lambda _g63274_ '#!eof)) + (define identity (lambda (_obj58598_) _obj58598_)) (define dssl-object? - (lambda (_obj58591_) - (if (memq _obj58591_ '(#!key #!rest #!optional)) '#t '#f))) + (lambda (_obj58596_) + (if (memq _obj58596_ '(#!key #!rest #!optional)) '#t '#f))) (define dssl-key-object? - (lambda (_obj58589_) - (let () (declare (not safe)) (eq? _obj58589_ '#!key)))) + (lambda (_obj58594_) + (let () (declare (not safe)) (eq? _obj58594_ '#!key)))) (define dssl-rest-object? - (lambda (_obj58587_) - (let () (declare (not safe)) (eq? _obj58587_ '#!rest)))) + (lambda (_obj58592_) + (let () (declare (not safe)) (eq? _obj58592_ '#!rest)))) (define dssl-optional-object? - (lambda (_obj58585_) - (let () (declare (not safe)) (eq? _obj58585_ '#!optional)))) + (lambda (_obj58590_) + (let () (declare (not safe)) (eq? _obj58590_ '#!optional)))) (define immediate? - (lambda (_obj58581_) - (let* ((_t58583_ (let () (declare (not safe)) (##type _obj58581_))) - (__tmp63270 - (let () (declare (not safe)) (##fxand _t58583_ '1)))) + (lambda (_obj58586_) + (let* ((_t58588_ (let () (declare (not safe)) (##type _obj58586_))) + (__tmp63275 + (let () (declare (not safe)) (##fxand _t58588_ '1)))) (declare (not safe)) - (##fxzero? __tmp63270)))) + (##fxzero? __tmp63275)))) (define nonnegative-fixnum? - (lambda (_obj58579_) - (if (fixnum? _obj58579_) - (let ((__tmp63271 (fxnegative? _obj58579_))) + (lambda (_obj58584_) + (if (fixnum? _obj58584_) + (let ((__tmp63276 (fxnegative? _obj58584_))) (declare (not safe)) - (not __tmp63271)) + (not __tmp63276)) '#f))) (define values-count - (lambda (_obj58577_) - (if (let () (declare (not safe)) (##values? _obj58577_)) - (let () (declare (not safe)) (##vector-length _obj58577_)) + (lambda (_obj58582_) + (if (let () (declare (not safe)) (##values? _obj58582_)) + (let () (declare (not safe)) (##vector-length _obj58582_)) '1))) (define values-ref - (lambda (_obj58574_ _k58575_) - (if (let () (declare (not safe)) (##values? _obj58574_)) - (let () (declare (not safe)) (##vector-ref _obj58574_ _k58575_)) - _obj58574_))) + (lambda (_obj58579_ _k58580_) + (if (let () (declare (not safe)) (##values? _obj58579_)) + (let () (declare (not safe)) (##vector-ref _obj58579_ _k58580_)) + _obj58579_))) (define values->list - (lambda (_obj58572_) - (if (let () (declare (not safe)) (##values? _obj58572_)) - (let () (declare (not safe)) (##vector->list _obj58572_)) - (list _obj58572_)))) + (lambda (_obj58577_) + (if (let () (declare (not safe)) (##values? _obj58577_)) + (let () (declare (not safe)) (##vector->list _obj58577_)) + (list _obj58577_)))) (define subvector->list__% - (lambda (_obj58557_ _start58558_) - (let ((_lst58560_ - (let () (declare (not safe)) (##vector->list _obj58557_)))) - (list-tail _lst58560_ _start58558_)))) + (lambda (_obj58562_ _start58563_) + (let ((_lst58565_ + (let () (declare (not safe)) (##vector->list _obj58562_)))) + (list-tail _lst58565_ _start58563_)))) (define subvector->list__0 - (lambda (_obj58565_) - (let ((_start58567_ '0)) + (lambda (_obj58570_) + (let ((_start58572_ '0)) (declare (not safe)) - (subvector->list__% _obj58565_ _start58567_)))) + (subvector->list__% _obj58570_ _start58572_)))) (define subvector->list - (lambda _g63273_ - (let ((_g63272_ (let () (declare (not safe)) (##length _g63273_)))) - (cond ((let () (declare (not safe)) (##fx= _g63272_ 1)) - (apply (lambda (_obj58565_) + (lambda _g63278_ + (let ((_g63277_ (let () (declare (not safe)) (##length _g63278_)))) + (cond ((let () (declare (not safe)) (##fx= _g63277_ 1)) + (apply (lambda (_obj58570_) (let () (declare (not safe)) - (subvector->list__0 _obj58565_))) - _g63273_)) - ((let () (declare (not safe)) (##fx= _g63272_ 2)) - (apply (lambda (_obj58569_ _start58570_) + (subvector->list__0 _obj58570_))) + _g63278_)) + ((let () (declare (not safe)) (##fx= _g63277_ 2)) + (apply (lambda (_obj58574_ _start58575_) (let () (declare (not safe)) - (subvector->list__% _obj58569_ _start58570_))) - _g63273_)) + (subvector->list__% _obj58574_ _start58575_))) + _g63278_)) (else (##raise-wrong-number-of-arguments-exception subvector->list - _g63273_)))))) + _g63278_)))))) (define make-hash-table make-table) (define make-hash-table-eq - (lambda _args58554_ (apply make-table 'test: eq? _args58554_))) + (lambda _args58559_ (apply make-table 'test: eq? _args58559_))) (define make-hash-table-eqv - (lambda _args58552_ (apply make-table 'test: eqv? _args58552_))) + (lambda _args58557_ (apply make-table 'test: eqv? _args58557_))) (define list->hash-table list->table) (define list->hash-table-eq - (lambda (_lst58549_ . _args58550_) - (apply list->table _lst58549_ 'test: eq? _args58550_))) + (lambda (_lst58554_ . _args58555_) + (apply list->table _lst58554_ 'test: eq? _args58555_))) (define list->hash-table-eqv - (lambda (_lst58546_ . _args58547_) - (apply list->table _lst58546_ 'test: eqv? _args58547_))) + (lambda (_lst58551_ . _args58552_) + (apply list->table _lst58551_ 'test: eqv? _args58552_))) (define hash? table?) (define hash-table? table?) (define hash-length table-length) (define hash-ref table-ref) (define hash-get - (lambda (_ht58543_ _k58544_) (table-ref _ht58543_ _k58544_ '#f))) + (lambda (_ht58548_ _k58549_) (table-ref _ht58548_ _k58549_ '#f))) (define hash-put! - (lambda (_ht58539_ _k58540_ _v58541_) - (table-set! _ht58539_ _k58540_ _v58541_))) + (lambda (_ht58544_ _k58545_ _v58546_) + (table-set! _ht58544_ _k58545_ _v58546_))) (define hash-update!__% - (lambda (_ht58518_ _k58519_ _update58520_ _default58521_) - (let* ((_value58523_ + (lambda (_ht58523_ _k58524_ _update58525_ _default58526_) + (let* ((_value58528_ (let () (declare (not safe)) - (table-ref _ht58518_ _k58519_ _default58521_))) - (__tmp63274 (_update58520_ _value58523_))) + (table-ref _ht58523_ _k58524_ _default58526_))) + (__tmp63279 (_update58525_ _value58528_))) (declare (not safe)) - (table-set! _ht58518_ _k58519_ __tmp63274)))) + (table-set! _ht58523_ _k58524_ __tmp63279)))) (define hash-update!__0 - (lambda (_ht58528_ _k58529_ _update58530_) - (let ((_default58532_ '#!void)) + (lambda (_ht58533_ _k58534_ _update58535_) + (let ((_default58537_ '#!void)) (declare (not safe)) - (hash-update!__% _ht58528_ _k58529_ _update58530_ _default58532_)))) + (hash-update!__% _ht58533_ _k58534_ _update58535_ _default58537_)))) (define hash-update! - (lambda _g63276_ - (let ((_g63275_ (let () (declare (not safe)) (##length _g63276_)))) - (cond ((let () (declare (not safe)) (##fx= _g63275_ 3)) - (apply (lambda (_ht58528_ _k58529_ _update58530_) + (lambda _g63281_ + (let ((_g63280_ (let () (declare (not safe)) (##length _g63281_)))) + (cond ((let () (declare (not safe)) (##fx= _g63280_ 3)) + (apply (lambda (_ht58533_ _k58534_ _update58535_) (let () (declare (not safe)) (hash-update!__0 - _ht58528_ - _k58529_ - _update58530_))) - _g63276_)) - ((let () (declare (not safe)) (##fx= _g63275_ 4)) - (apply (lambda (_ht58534_ - _k58535_ - _update58536_ - _default58537_) + _ht58533_ + _k58534_ + _update58535_))) + _g63281_)) + ((let () (declare (not safe)) (##fx= _g63280_ 4)) + (apply (lambda (_ht58539_ + _k58540_ + _update58541_ + _default58542_) (let () (declare (not safe)) (hash-update!__% - _ht58534_ - _k58535_ - _update58536_ - _default58537_))) - _g63276_)) + _ht58539_ + _k58540_ + _update58541_ + _default58542_))) + _g63281_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g63276_)))))) + _g63281_)))))) (define hash-remove! - (lambda (_ht58514_ _k58515_) (table-set! _ht58514_ _k58515_))) + (lambda (_ht58519_ _k58520_) (table-set! _ht58519_ _k58520_))) (define hash->list table->list) (define hash->plist - (lambda (_ht58512_) - (let () (declare (not safe)) (hash-fold cons* '() _ht58512_)))) + (lambda (_ht58517_) + (let () (declare (not safe)) (hash-fold cons* '() _ht58517_)))) (define plist->hash-table__% - (lambda (_plst58447_ _ht58448_) - (let _lp58450_ ((_rest58452_ _plst58447_)) - (let* ((_rest5845358464_ _rest58452_) - (_E5845658468_ - (lambda () (error '"No clause matching" _rest5845358464_)))) - (let ((_K5845858483_ - (lambda (_rest58479_ _v58480_ _k58481_) + (lambda (_plst58452_ _ht58453_) + (let _lp58455_ ((_rest58457_ _plst58452_)) + (let* ((_rest5845858469_ _rest58457_) + (_E5846158473_ + (lambda () (error '"No clause matching" _rest5845858469_)))) + (let ((_K5846358488_ + (lambda (_rest58484_ _v58485_ _k58486_) (let () (declare (not safe)) - (table-set! _ht58448_ _k58481_ _v58480_)) - (let () (declare (not safe)) (_lp58450_ _rest58479_)))) - (_K5845758473_ (lambda () _ht58448_))) - (let ((_try-match5845558476_ + (table-set! _ht58453_ _k58486_ _v58485_)) + (let () (declare (not safe)) (_lp58455_ _rest58484_)))) + (_K5846258478_ (lambda () _ht58453_))) + (let ((_try-match5846058481_ (lambda () (if (let () (declare (not safe)) - (##eq? _rest5845358464_ '())) - (let () (declare (not safe)) (_K5845758473_)) - (let () (declare (not safe)) (_E5845658468_)))))) - (if (let () (declare (not safe)) (##pair? _rest5845358464_)) - (let ((_tl5846058488_ + (##eq? _rest5845858469_ '())) + (let () (declare (not safe)) (_K5846258478_)) + (let () (declare (not safe)) (_E5846158473_)))))) + (if (let () (declare (not safe)) (##pair? _rest5845858469_)) + (let ((_tl5846558493_ (let () (declare (not safe)) - (##cdr _rest5845358464_))) - (_hd5845958486_ + (##cdr _rest5845858469_))) + (_hd5846458491_ (let () (declare (not safe)) - (##car _rest5845358464_)))) + (##car _rest5845858469_)))) (if (let () (declare (not safe)) - (##pair? _tl5846058488_)) - (let ((_tl5846258495_ + (##pair? _tl5846558493_)) + (let ((_tl5846758500_ (let () (declare (not safe)) - (##cdr _tl5846058488_))) - (_hd5846158493_ + (##cdr _tl5846558493_))) + (_hd5846658498_ (let () (declare (not safe)) - (##car _tl5846058488_)))) - (let ((_k58491_ _hd5845958486_) - (_v58498_ _hd5846158493_) - (_rest58500_ _tl5846258495_)) + (##car _tl5846558493_)))) + (let ((_k58496_ _hd5846458491_) + (_v58503_ _hd5846658498_) + (_rest58505_ _tl5846758500_)) (let () (declare (not safe)) - (_K5845858483_ - _rest58500_ - _v58498_ - _k58491_)))) + (_K5846358488_ + _rest58505_ + _v58503_ + _k58496_)))) (let () (declare (not safe)) - (_try-match5845558476_)))) + (_try-match5846058481_)))) (let () (declare (not safe)) - (_try-match5845558476_))))))))) + (_try-match5846058481_))))))))) (define plist->hash-table__0 - (lambda (_plst58505_) - (let ((_ht58507_ (let () (declare (not safe)) (make-table)))) + (lambda (_plst58510_) + (let ((_ht58512_ (let () (declare (not safe)) (make-table)))) (declare (not safe)) - (plist->hash-table__% _plst58505_ _ht58507_)))) + (plist->hash-table__% _plst58510_ _ht58512_)))) (define plist->hash-table - (lambda _g63278_ - (let ((_g63277_ (let () (declare (not safe)) (##length _g63278_)))) - (cond ((let () (declare (not safe)) (##fx= _g63277_ 1)) - (apply (lambda (_plst58505_) + (lambda _g63283_ + (let ((_g63282_ (let () (declare (not safe)) (##length _g63283_)))) + (cond ((let () (declare (not safe)) (##fx= _g63282_ 1)) + (apply (lambda (_plst58510_) (let () (declare (not safe)) - (plist->hash-table__0 _plst58505_))) - _g63278_)) - ((let () (declare (not safe)) (##fx= _g63277_ 2)) - (apply (lambda (_plst58509_ _ht58510_) + (plist->hash-table__0 _plst58510_))) + _g63283_)) + ((let () (declare (not safe)) (##fx= _g63282_ 2)) + (apply (lambda (_plst58514_ _ht58515_) (let () (declare (not safe)) - (plist->hash-table__% _plst58509_ _ht58510_))) - _g63278_)) + (plist->hash-table__% _plst58514_ _ht58515_))) + _g63283_)) (else (##raise-wrong-number-of-arguments-exception plist->hash-table - _g63278_)))))) + _g63283_)))))) (define plist->hash-table-eq - (lambda (_plst58444_) - (let ((__tmp63279 + (lambda (_plst58449_) + (let ((__tmp63284 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (plist->hash-table _plst58444_ __tmp63279)))) + (plist->hash-table _plst58449_ __tmp63284)))) (define plist->hash-table-eqv - (lambda (_plst58442_) - (let ((__tmp63280 + (lambda (_plst58447_) + (let ((__tmp63285 (let () (declare (not safe)) (make-table 'test: eqv?)))) (declare (not safe)) - (plist->hash-table _plst58442_ __tmp63280)))) + (plist->hash-table _plst58447_ __tmp63285)))) (define hash-key? - (lambda (_ht58439_ _k58440_) - (let ((__tmp63281 - (let ((__tmp63282 + (lambda (_ht58444_ _k58445_) + (let ((__tmp63286 + (let ((__tmp63287 (let () (declare (not safe)) - (table-ref _ht58439_ _k58440_ absent-value)))) + (table-ref _ht58444_ _k58445_ absent-value)))) (declare (not safe)) - (eq? __tmp63282 absent-value)))) + (eq? __tmp63287 absent-value)))) (declare (not safe)) - (not __tmp63281)))) + (not __tmp63286)))) (define hash-for-each table-for-each) (define hash-map - (lambda (_fun58432_ _ht58433_) - (let ((__tmp63283 - (lambda (_k58435_ _v58436_ _r58437_) - (let ((__tmp63284 (_fun58432_ _k58435_ _v58436_))) + (lambda (_fun58437_ _ht58438_) + (let ((__tmp63288 + (lambda (_k58440_ _v58441_ _r58442_) + (let ((__tmp63289 (_fun58437_ _k58440_ _v58441_))) (declare (not safe)) - (cons __tmp63284 _r58437_))))) + (cons __tmp63289 _r58442_))))) (declare (not safe)) - (hash-fold __tmp63283 '() _ht58433_)))) + (hash-fold __tmp63288 '() _ht58438_)))) (define hash-fold - (lambda (_fun58423_ _iv58424_ _ht58425_) - (let ((_ret58427_ _iv58424_)) - (let ((__tmp63285 - (lambda (_k58429_ _v58430_) - (set! _ret58427_ - (_fun58423_ _k58429_ _v58430_ _ret58427_))))) + (lambda (_fun58428_ _iv58429_ _ht58430_) + (let ((_ret58432_ _iv58429_)) + (let ((__tmp63290 + (lambda (_k58434_ _v58435_) + (set! _ret58432_ + (_fun58428_ _k58434_ _v58435_ _ret58432_))))) (declare (not safe)) - (table-for-each __tmp63285 _ht58425_)) - _ret58427_))) + (table-for-each __tmp63290 _ht58430_)) + _ret58432_))) (define hash-find table-search) (define hash-keys - (lambda (_ht58418_) - (let ((__tmp63286 (lambda (_k58420_ _v58421_) _k58420_))) + (lambda (_ht58423_) + (let ((__tmp63291 (lambda (_k58425_ _v58426_) _k58425_))) (declare (not safe)) - (hash-map __tmp63286 _ht58418_)))) + (hash-map __tmp63291 _ht58423_)))) (define hash-values - (lambda (_ht58413_) - (let ((__tmp63287 (lambda (_k58415_ _v58416_) _v58416_))) + (lambda (_ht58418_) + (let ((__tmp63292 (lambda (_k58420_ _v58421_) _v58421_))) (declare (not safe)) - (hash-map __tmp63287 _ht58413_)))) + (hash-map __tmp63292 _ht58418_)))) (define hash-copy - (lambda (_hd58408_ . _rest58409_) - (let ((_hd58411_ (table-copy _hd58408_))) - (if (let () (declare (not safe)) (null? _rest58409_)) - _hd58411_ - (apply hash-copy! _hd58411_ _rest58409_))))) + (lambda (_hd58413_ . _rest58414_) + (let ((_hd58416_ (table-copy _hd58413_))) + (if (let () (declare (not safe)) (null? _rest58414_)) + _hd58416_ + (apply hash-copy! _hd58416_ _rest58414_))))) (define hash-copy! - (lambda (_hd58403_ . _rest58404_) + (lambda (_hd58408_ . _rest58409_) (for-each - (lambda (_r58406_) (table-merge! _hd58403_ _r58406_)) - _rest58404_) - _hd58403_)) + (lambda (_r58411_) (table-merge! _hd58408_ _r58411_)) + _rest58409_) + _hd58408_)) (define hash-merge - (lambda (_hd58397_ . _rest58398_) - (let ((__tmp63288 - (lambda (_tab58400_ _r58401_) - (table-merge _r58401_ _tab58400_)))) + (lambda (_hd58402_ . _rest58403_) + (let ((__tmp63293 + (lambda (_tab58405_ _r58406_) + (table-merge _r58406_ _tab58405_)))) (declare (not safe)) - (foldl1 __tmp63288 _hd58397_ _rest58398_)))) + (foldl1 __tmp63293 _hd58402_ _rest58403_)))) (define hash-merge! - (lambda (_hd58391_ . _rest58392_) - (let ((__tmp63289 - (lambda (_tab58394_ _r58395_) - (table-merge! _r58395_ _tab58394_)))) + (lambda (_hd58396_ . _rest58397_) + (let ((__tmp63294 + (lambda (_tab58399_ _r58400_) + (table-merge! _r58400_ _tab58399_)))) (declare (not safe)) - (foldl1 __tmp63289 _hd58391_ _rest58392_)))) + (foldl1 __tmp63294 _hd58396_ _rest58397_)))) (define hash-clear!__% - (lambda (_ht58376_ _size58377_) - (let ((_gcht58379_ - (let () (declare (not safe)) (##vector-ref _ht58376_ '5)))) - (if (let ((__tmp63290 (fixnum? _gcht58379_))) + (lambda (_ht58381_ _size58382_) + (let ((_gcht58384_ + (let () (declare (not safe)) (##vector-ref _ht58381_ '5)))) + (if (let ((__tmp63295 (fixnum? _gcht58384_))) (declare (not safe)) - (not __tmp63290)) + (not __tmp63295)) (let () (declare (not safe)) - (##vector-set! _ht58376_ '5 _size58377_)) + (##vector-set! _ht58381_ '5 _size58382_)) '#!void)))) (define hash-clear!__0 - (lambda (_ht58384_) - (let ((_size58386_ '0)) + (lambda (_ht58389_) + (let ((_size58391_ '0)) (declare (not safe)) - (hash-clear!__% _ht58384_ _size58386_)))) + (hash-clear!__% _ht58389_ _size58391_)))) (define hash-clear! - (lambda _g63292_ - (let ((_g63291_ (let () (declare (not safe)) (##length _g63292_)))) - (cond ((let () (declare (not safe)) (##fx= _g63291_ 1)) - (apply (lambda (_ht58384_) + (lambda _g63297_ + (let ((_g63296_ (let () (declare (not safe)) (##length _g63297_)))) + (cond ((let () (declare (not safe)) (##fx= _g63296_ 1)) + (apply (lambda (_ht58389_) (let () (declare (not safe)) - (hash-clear!__0 _ht58384_))) - _g63292_)) - ((let () (declare (not safe)) (##fx= _g63291_ 2)) - (apply (lambda (_ht58388_ _size58389_) + (hash-clear!__0 _ht58389_))) + _g63297_)) + ((let () (declare (not safe)) (##fx= _g63296_ 2)) + (apply (lambda (_ht58393_ _size58394_) (let () (declare (not safe)) - (hash-clear!__% _ht58388_ _size58389_))) - _g63292_)) + (hash-clear!__% _ht58393_ _size58394_))) + _g63297_)) (else (##raise-wrong-number-of-arguments-exception hash-clear! - _g63292_)))))) + _g63297_)))))) (define make-list__% - (lambda (_k58357_ _val58358_) - (if (fixnum? _k58357_) + (lambda (_k58362_ _val58363_) + (if (fixnum? _k58362_) '#!void - (error '"expected argument 1 to be fixnum" _k58357_)) - (let _lp58360_ ((_n58362_ '0) (_r58363_ '())) - (if (let () (declare (not safe)) (##fx< _n58362_ _k58357_)) - (let ((__tmp63294 - (let () (declare (not safe)) (##fx+ _n58362_ '1))) - (__tmp63293 - (let () (declare (not safe)) (cons _val58358_ _r58363_)))) + (error '"expected argument 1 to be fixnum" _k58362_)) + (let _lp58365_ ((_n58367_ '0) (_r58368_ '())) + (if (let () (declare (not safe)) (##fx< _n58367_ _k58362_)) + (let ((__tmp63299 + (let () (declare (not safe)) (##fx+ _n58367_ '1))) + (__tmp63298 + (let () (declare (not safe)) (cons _val58363_ _r58368_)))) (declare (not safe)) - (_lp58360_ __tmp63294 __tmp63293)) - _r58363_)))) + (_lp58365_ __tmp63299 __tmp63298)) + _r58368_)))) (define make-list__0 - (lambda (_k58368_) - (let ((_val58370_ '#f)) + (lambda (_k58373_) + (let ((_val58375_ '#f)) (declare (not safe)) - (make-list__% _k58368_ _val58370_)))) + (make-list__% _k58373_ _val58375_)))) (define make-list - (lambda _g63296_ - (let ((_g63295_ (let () (declare (not safe)) (##length _g63296_)))) - (cond ((let () (declare (not safe)) (##fx= _g63295_ 1)) - (apply (lambda (_k58368_) + (lambda _g63301_ + (let ((_g63300_ (let () (declare (not safe)) (##length _g63301_)))) + (cond ((let () (declare (not safe)) (##fx= _g63300_ 1)) + (apply (lambda (_k58373_) (let () (declare (not safe)) - (make-list__0 _k58368_))) - _g63296_)) - ((let () (declare (not safe)) (##fx= _g63295_ 2)) - (apply (lambda (_k58372_ _val58373_) + (make-list__0 _k58373_))) + _g63301_)) + ((let () (declare (not safe)) (##fx= _g63300_ 2)) + (apply (lambda (_k58377_ _val58378_) (let () (declare (not safe)) - (make-list__% _k58372_ _val58373_))) - _g63296_)) + (make-list__% _k58377_ _val58378_))) + _g63301_)) (else (##raise-wrong-number-of-arguments-exception make-list - _g63296_)))))) + _g63301_)))))) (define cons* - (lambda (_x58347_ _y58348_ . _rest58349_) - (letrec ((_recur58351_ - (lambda (_x58353_ _rest58354_) - (if (let () (declare (not safe)) (pair? _rest58354_)) - (let ((__tmp63297 - (let ((__tmp63299 + (lambda (_x58352_ _y58353_ . _rest58354_) + (letrec ((_recur58356_ + (lambda (_x58358_ _rest58359_) + (if (let () (declare (not safe)) (pair? _rest58359_)) + (let ((__tmp63302 + (let ((__tmp63304 (let () (declare (not safe)) - (##car _rest58354_))) - (__tmp63298 + (##car _rest58359_))) + (__tmp63303 (let () (declare (not safe)) - (##cdr _rest58354_)))) + (##cdr _rest58359_)))) (declare (not safe)) - (_recur58351_ __tmp63299 __tmp63298)))) + (_recur58356_ __tmp63304 __tmp63303)))) (declare (not safe)) - (cons _x58353_ __tmp63297)) - _x58353_)))) - (let ((__tmp63300 + (cons _x58358_ __tmp63302)) + _x58358_)))) + (let ((__tmp63305 (let () (declare (not safe)) - (_recur58351_ _y58348_ _rest58349_)))) + (_recur58356_ _y58353_ _rest58354_)))) (declare (not safe)) - (cons _x58347_ __tmp63300))))) + (cons _x58352_ __tmp63305))))) (define foldl1 - (lambda (_f58305_ _iv58306_ _lst58307_) - (let _lp58309_ ((_rest58311_ _lst58307_) (_r58312_ _iv58306_)) - (let* ((_rest5831358321_ _rest58311_) - (_else5831558329_ (lambda () _r58312_)) - (_K5831758335_ - (lambda (_rest58332_ _x58333_) - (let ((__tmp63301 (_f58305_ _x58333_ _r58312_))) + (lambda (_f58310_ _iv58311_ _lst58312_) + (let _lp58314_ ((_rest58316_ _lst58312_) (_r58317_ _iv58311_)) + (let* ((_rest5831858326_ _rest58316_) + (_else5832058334_ (lambda () _r58317_)) + (_K5832258340_ + (lambda (_rest58337_ _x58338_) + (let ((__tmp63306 (_f58310_ _x58338_ _r58317_))) (declare (not safe)) - (_lp58309_ _rest58332_ __tmp63301))))) - (if (let () (declare (not safe)) (##pair? _rest5831358321_)) - (let ((_hd5831858338_ - (let () (declare (not safe)) (##car _rest5831358321_))) - (_tl5831958340_ - (let () (declare (not safe)) (##cdr _rest5831358321_)))) - (let* ((_x58343_ _hd5831858338_) - (_rest58345_ _tl5831958340_)) + (_lp58314_ _rest58337_ __tmp63306))))) + (if (let () (declare (not safe)) (##pair? _rest5831858326_)) + (let ((_hd5832358343_ + (let () (declare (not safe)) (##car _rest5831858326_))) + (_tl5832458345_ + (let () (declare (not safe)) (##cdr _rest5831858326_)))) + (let* ((_x58348_ _hd5832358343_) + (_rest58350_ _tl5832458345_)) (declare (not safe)) - (_K5831758335_ _rest58345_ _x58343_))) - (let () (declare (not safe)) (_else5831558329_))))))) + (_K5832258340_ _rest58350_ _x58348_))) + (let () (declare (not safe)) (_else5832058334_))))))) (define foldl2 - (lambda (_f58228_ _iv58229_ _lst158230_ _lst258231_) - (let _lp58233_ ((_rest158235_ _lst158230_) - (_rest258236_ _lst258231_) - (_r58237_ _iv58229_)) - (let* ((_rest15823858246_ _rest158235_) - (_else5824058254_ (lambda () _r58237_)) - (_K5824258293_ - (lambda (_rest158257_ _x158258_) - (let* ((_rest25825958267_ _rest258236_) - (_else5826158275_ (lambda () _r58237_)) - (_K5826358281_ - (lambda (_rest258278_ _x258279_) - (let ((__tmp63302 - (_f58228_ _x158258_ _x258279_ _r58237_))) + (lambda (_f58233_ _iv58234_ _lst158235_ _lst258236_) + (let _lp58238_ ((_rest158240_ _lst158235_) + (_rest258241_ _lst258236_) + (_r58242_ _iv58234_)) + (let* ((_rest15824358251_ _rest158240_) + (_else5824558259_ (lambda () _r58242_)) + (_K5824758298_ + (lambda (_rest158262_ _x158263_) + (let* ((_rest25826458272_ _rest258241_) + (_else5826658280_ (lambda () _r58242_)) + (_K5826858286_ + (lambda (_rest258283_ _x258284_) + (let ((__tmp63307 + (_f58233_ _x158263_ _x258284_ _r58242_))) (declare (not safe)) - (_lp58233_ - _rest158257_ - _rest258278_ - __tmp63302))))) + (_lp58238_ + _rest158262_ + _rest258283_ + __tmp63307))))) (if (let () (declare (not safe)) - (##pair? _rest25825958267_)) - (let ((_hd5826458284_ + (##pair? _rest25826458272_)) + (let ((_hd5826958289_ (let () (declare (not safe)) - (##car _rest25825958267_))) - (_tl5826558286_ + (##car _rest25826458272_))) + (_tl5827058291_ (let () (declare (not safe)) - (##cdr _rest25825958267_)))) - (let* ((_x258289_ _hd5826458284_) - (_rest258291_ _tl5826558286_)) + (##cdr _rest25826458272_)))) + (let* ((_x258294_ _hd5826958289_) + (_rest258296_ _tl5827058291_)) (declare (not safe)) - (_K5826358281_ _rest258291_ _x258289_))) - (let () (declare (not safe)) (_else5826158275_))))))) - (if (let () (declare (not safe)) (##pair? _rest15823858246_)) - (let ((_hd5824358296_ - (let () (declare (not safe)) (##car _rest15823858246_))) - (_tl5824458298_ + (_K5826858286_ _rest258296_ _x258294_))) + (let () (declare (not safe)) (_else5826658280_))))))) + (if (let () (declare (not safe)) (##pair? _rest15824358251_)) + (let ((_hd5824858301_ + (let () (declare (not safe)) (##car _rest15824358251_))) + (_tl5824958303_ (let () (declare (not safe)) - (##cdr _rest15823858246_)))) - (let* ((_x158301_ _hd5824358296_) - (_rest158303_ _tl5824458298_)) + (##cdr _rest15824358251_)))) + (let* ((_x158306_ _hd5824858301_) + (_rest158308_ _tl5824958303_)) (declare (not safe)) - (_K5824258293_ _rest158303_ _x158301_))) - (let () (declare (not safe)) (_else5824058254_))))))) + (_K5824758298_ _rest158308_ _x158306_))) + (let () (declare (not safe)) (_else5824558259_))))))) (define foldl - (lambda _g63304_ - (let ((_g63303_ (let () (declare (not safe)) (##length _g63304_)))) - (cond ((let () (declare (not safe)) (##fx= _g63303_ 3)) - (apply (lambda (_f58213_ _iv58214_ _lst58215_) + (lambda _g63309_ + (let ((_g63308_ (let () (declare (not safe)) (##length _g63309_)))) + (cond ((let () (declare (not safe)) (##fx= _g63308_ 3)) + (apply (lambda (_f58218_ _iv58219_ _lst58220_) (let () (declare (not safe)) - (foldl1 _f58213_ _iv58214_ _lst58215_))) - _g63304_)) - ((let () (declare (not safe)) (##fx= _g63303_ 4)) - (apply (lambda (_f58217_ _iv58218_ _lst158219_ _lst258220_) + (foldl1 _f58218_ _iv58219_ _lst58220_))) + _g63309_)) + ((let () (declare (not safe)) (##fx= _g63308_ 4)) + (apply (lambda (_f58222_ _iv58223_ _lst158224_ _lst258225_) (let () (declare (not safe)) - (foldl2 _f58217_ - _iv58218_ - _lst158219_ - _lst258220_))) - _g63304_)) - ((let () (declare (not safe)) (##fx>= _g63303_ 4)) - (apply foldl* _g63304_)) + (foldl2 _f58222_ + _iv58223_ + _lst158224_ + _lst258225_))) + _g63309_)) + ((let () (declare (not safe)) (##fx>= _g63308_ 4)) + (apply foldl* _g63309_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g63304_)))))) + _g63309_)))))) (define foldl* - (lambda (_f58201_ _iv58202_ . _rest58203_) - (let _recur58205_ ((_iv58207_ _iv58202_) (_rest58208_ _rest58203_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58208_)) - (let ((__tmp63306 - (apply _f58201_ - (let ((__tmp63308 - (lambda (_xs58210_ _r58211_) - (let ((__tmp63309 (car _xs58210_))) + (lambda (_f58206_ _iv58207_ . _rest58208_) + (let _recur58210_ ((_iv58212_ _iv58207_) (_rest58213_ _rest58208_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58213_)) + (let ((__tmp63311 + (apply _f58206_ + (let ((__tmp63313 + (lambda (_xs58215_ _r58216_) + (let ((__tmp63314 (car _xs58215_))) (declare (not safe)) - (cons __tmp63309 _r58211_)))) - (__tmp63307 (list _iv58207_))) + (cons __tmp63314 _r58216_)))) + (__tmp63312 (list _iv58212_))) (declare (not safe)) - (foldr1 __tmp63308 __tmp63307 _rest58208_)))) - (__tmp63305 (map cdr _rest58208_))) + (foldr1 __tmp63313 __tmp63312 _rest58213_)))) + (__tmp63310 (map cdr _rest58213_))) (declare (not safe)) - (_recur58205_ __tmp63306 __tmp63305)) - _iv58207_)))) + (_recur58210_ __tmp63311 __tmp63310)) + _iv58212_)))) (define foldr1 - (lambda (_f58160_ _iv58161_ _lst58162_) - (let _recur58164_ ((_rest58166_ _lst58162_)) - (let* ((_rest5816758175_ _rest58166_) - (_else5816958183_ (lambda () _iv58161_)) - (_K5817158189_ - (lambda (_rest58186_ _x58187_) - (_f58160_ - _x58187_ + (lambda (_f58165_ _iv58166_ _lst58167_) + (let _recur58169_ ((_rest58171_ _lst58167_)) + (let* ((_rest5817258180_ _rest58171_) + (_else5817458188_ (lambda () _iv58166_)) + (_K5817658194_ + (lambda (_rest58191_ _x58192_) + (_f58165_ + _x58192_ (let () (declare (not safe)) - (_recur58164_ _rest58186_)))))) - (if (let () (declare (not safe)) (##pair? _rest5816758175_)) - (let ((_hd5817258192_ - (let () (declare (not safe)) (##car _rest5816758175_))) - (_tl5817358194_ - (let () (declare (not safe)) (##cdr _rest5816758175_)))) - (let* ((_x58197_ _hd5817258192_) - (_rest58199_ _tl5817358194_)) + (_recur58169_ _rest58191_)))))) + (if (let () (declare (not safe)) (##pair? _rest5817258180_)) + (let ((_hd5817758197_ + (let () (declare (not safe)) (##car _rest5817258180_))) + (_tl5817858199_ + (let () (declare (not safe)) (##cdr _rest5817258180_)))) + (let* ((_x58202_ _hd5817758197_) + (_rest58204_ _tl5817858199_)) (declare (not safe)) - (_K5817158189_ _rest58199_ _x58197_))) - (let () (declare (not safe)) (_else5816958183_))))))) + (_K5817658194_ _rest58204_ _x58202_))) + (let () (declare (not safe)) (_else5817458188_))))))) (define foldr2 - (lambda (_f58084_ _iv58085_ _lst158086_ _lst258087_) - (let _recur58089_ ((_rest158091_ _lst158086_) - (_rest258092_ _lst258087_)) - (let* ((_rest15809358101_ _rest158091_) - (_else5809558109_ (lambda () _iv58085_)) - (_K5809758148_ - (lambda (_rest158112_ _x158113_) - (let* ((_rest25811458122_ _rest258092_) - (_else5811658130_ (lambda () _iv58085_)) - (_K5811858136_ - (lambda (_rest258133_ _x258134_) - (_f58084_ - _x158113_ - _x258134_ + (lambda (_f58089_ _iv58090_ _lst158091_ _lst258092_) + (let _recur58094_ ((_rest158096_ _lst158091_) + (_rest258097_ _lst258092_)) + (let* ((_rest15809858106_ _rest158096_) + (_else5810058114_ (lambda () _iv58090_)) + (_K5810258153_ + (lambda (_rest158117_ _x158118_) + (let* ((_rest25811958127_ _rest258097_) + (_else5812158135_ (lambda () _iv58090_)) + (_K5812358141_ + (lambda (_rest258138_ _x258139_) + (_f58089_ + _x158118_ + _x258139_ (let () (declare (not safe)) - (_recur58089_ _rest158112_ _rest258133_)))))) + (_recur58094_ _rest158117_ _rest258138_)))))) (if (let () (declare (not safe)) - (##pair? _rest25811458122_)) - (let ((_hd5811958139_ + (##pair? _rest25811958127_)) + (let ((_hd5812458144_ (let () (declare (not safe)) - (##car _rest25811458122_))) - (_tl5812058141_ + (##car _rest25811958127_))) + (_tl5812558146_ (let () (declare (not safe)) - (##cdr _rest25811458122_)))) - (let* ((_x258144_ _hd5811958139_) - (_rest258146_ _tl5812058141_)) + (##cdr _rest25811958127_)))) + (let* ((_x258149_ _hd5812458144_) + (_rest258151_ _tl5812558146_)) (declare (not safe)) - (_K5811858136_ _rest258146_ _x258144_))) - (let () (declare (not safe)) (_else5811658130_))))))) - (if (let () (declare (not safe)) (##pair? _rest15809358101_)) - (let ((_hd5809858151_ - (let () (declare (not safe)) (##car _rest15809358101_))) - (_tl5809958153_ + (_K5812358141_ _rest258151_ _x258149_))) + (let () (declare (not safe)) (_else5812158135_))))))) + (if (let () (declare (not safe)) (##pair? _rest15809858106_)) + (let ((_hd5810358156_ + (let () (declare (not safe)) (##car _rest15809858106_))) + (_tl5810458158_ (let () (declare (not safe)) - (##cdr _rest15809358101_)))) - (let* ((_x158156_ _hd5809858151_) - (_rest158158_ _tl5809958153_)) + (##cdr _rest15809858106_)))) + (let* ((_x158161_ _hd5810358156_) + (_rest158163_ _tl5810458158_)) (declare (not safe)) - (_K5809758148_ _rest158158_ _x158156_))) - (let () (declare (not safe)) (_else5809558109_))))))) + (_K5810258153_ _rest158163_ _x158161_))) + (let () (declare (not safe)) (_else5810058114_))))))) (define foldr - (lambda _g63311_ - (let ((_g63310_ (let () (declare (not safe)) (##length _g63311_)))) - (cond ((let () (declare (not safe)) (##fx= _g63310_ 3)) - (apply (lambda (_f58069_ _iv58070_ _lst58071_) + (lambda _g63316_ + (let ((_g63315_ (let () (declare (not safe)) (##length _g63316_)))) + (cond ((let () (declare (not safe)) (##fx= _g63315_ 3)) + (apply (lambda (_f58074_ _iv58075_ _lst58076_) (let () (declare (not safe)) - (foldr1 _f58069_ _iv58070_ _lst58071_))) - _g63311_)) - ((let () (declare (not safe)) (##fx= _g63310_ 4)) - (apply (lambda (_f58073_ _iv58074_ _lst158075_ _lst258076_) + (foldr1 _f58074_ _iv58075_ _lst58076_))) + _g63316_)) + ((let () (declare (not safe)) (##fx= _g63315_ 4)) + (apply (lambda (_f58078_ _iv58079_ _lst158080_ _lst258081_) (let () (declare (not safe)) - (foldr2 _f58073_ - _iv58074_ - _lst158075_ - _lst258076_))) - _g63311_)) - ((let () (declare (not safe)) (##fx>= _g63310_ 4)) - (apply foldr* _g63311_)) + (foldr2 _f58078_ + _iv58079_ + _lst158080_ + _lst258081_))) + _g63316_)) + ((let () (declare (not safe)) (##fx>= _g63315_ 4)) + (apply foldr* _g63316_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g63311_)))))) + _g63316_)))))) (define foldr* - (lambda (_f58058_ _iv58059_ . _rest58060_) - (let _recur58062_ ((_rest58064_ _rest58060_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58064_)) - (apply _f58058_ - (let ((__tmp63314 - (lambda (_xs58066_ _r58067_) - (let ((__tmp63315 (car _xs58066_))) + (lambda (_f58063_ _iv58064_ . _rest58065_) + (let _recur58067_ ((_rest58069_ _rest58065_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58069_)) + (apply _f58063_ + (let ((__tmp63319 + (lambda (_xs58071_ _r58072_) + (let ((__tmp63320 (car _xs58071_))) (declare (not safe)) - (cons __tmp63315 _r58067_)))) - (__tmp63312 - (list (let ((__tmp63313 (map cdr _rest58064_))) + (cons __tmp63320 _r58072_)))) + (__tmp63317 + (list (let ((__tmp63318 (map cdr _rest58069_))) (declare (not safe)) - (_recur58062_ __tmp63313))))) + (_recur58067_ __tmp63318))))) (declare (not safe)) - (foldr1 __tmp63314 __tmp63312 _rest58064_))) - _iv58059_)))) + (foldr1 __tmp63319 __tmp63317 _rest58069_))) + _iv58064_)))) (define remove-nulls! - (lambda (_l57945_) - (let* ((_l5794657959_ _l57945_) - (_E5795057963_ - (lambda () (error '"No clause matching" _l5794657959_)))) - (let ((_K5795558048_ - (lambda (_r58046_) - (let () (declare (not safe)) (remove-nulls! _r58046_)))) - (_K5795258035_ - (lambda (_r57975_) - (let _loop57977_ ((_l57979_ _l57945_) (_r57980_ _r57975_)) - (let* ((_r5798157994_ _r57980_) - (_E5798557998_ + (lambda (_l57950_) + (let* ((_l5795157964_ _l57950_) + (_E5795557968_ + (lambda () (error '"No clause matching" _l5795157964_)))) + (let ((_K5796058053_ + (lambda (_r58051_) + (let () (declare (not safe)) (remove-nulls! _r58051_)))) + (_K5795758040_ + (lambda (_r57980_) + (let _loop57982_ ((_l57984_ _l57950_) (_r57985_ _r57980_)) + (let* ((_r5798657999_ _r57985_) + (_E5799058003_ (lambda () - (error '"No clause matching" _r5798157994_)))) - (let ((_K5799058025_ - (lambda (_rr58023_) + (error '"No clause matching" _r5798657999_)))) + (let ((_K5799558030_ + (lambda (_rr58028_) (set-cdr! - _l57979_ + _l57984_ (let () (declare (not safe)) - (remove-nulls! _rr58023_))))) - (_K5798758012_ - (lambda (_rr58010_) + (remove-nulls! _rr58028_))))) + (_K5799258017_ + (lambda (_rr58015_) (let () (declare (not safe)) - (_loop57977_ _r57980_ _rr58010_)))) - (_K5798658003_ (lambda () '#!void))) + (_loop57982_ _r57985_ _rr58015_)))) + (_K5799158008_ (lambda () '#!void))) (if (let () (declare (not safe)) - (##pair? _r5798157994_)) - (let ((_tl5799258030_ + (##pair? _r5798657999_)) + (let ((_tl5799758035_ (let () (declare (not safe)) - (##cdr _r5798157994_))) - (_hd5799158028_ + (##cdr _r5798657999_))) + (_hd5799658033_ (let () (declare (not safe)) - (##car _r5798157994_)))) + (##car _r5798657999_)))) (if (let () (declare (not safe)) - (##null? _hd5799158028_)) - (let ((_rr58033_ _tl5799258030_)) + (##null? _hd5799658033_)) + (let ((_rr58038_ _tl5799758035_)) (declare (not safe)) - (_K5799058025_ _rr58033_)) - (let ((_rr58018_ _tl5799258030_)) + (_K5799558030_ _rr58038_)) + (let ((_rr58023_ _tl5799758035_)) (declare (not safe)) - (_K5798758012_ _rr58018_)))) + (_K5799258017_ _rr58023_)))) '#!void)))) - _l57945_)) - (_K5795157968_ (lambda () _l57945_))) - (if (let () (declare (not safe)) (##pair? _l5794657959_)) - (let ((_tl5795758053_ - (let () (declare (not safe)) (##cdr _l5794657959_))) - (_hd5795658051_ - (let () (declare (not safe)) (##car _l5794657959_)))) - (if (let () (declare (not safe)) (##null? _hd5795658051_)) - (let ((_r58056_ _tl5795758053_)) + _l57950_)) + (_K5795657973_ (lambda () _l57950_))) + (if (let () (declare (not safe)) (##pair? _l5795157964_)) + (let ((_tl5796258058_ + (let () (declare (not safe)) (##cdr _l5795157964_))) + (_hd5796158056_ + (let () (declare (not safe)) (##car _l5795157964_)))) + (if (let () (declare (not safe)) (##null? _hd5796158056_)) + (let ((_r58061_ _tl5796258058_)) (declare (not safe)) - (remove-nulls! _r58056_)) - (let ((_r58041_ _tl5795758053_)) + (remove-nulls! _r58061_)) + (let ((_r58046_ _tl5796258058_)) (declare (not safe)) - (_K5795258035_ _r58041_)))) - (let () (declare (not safe)) (_K5795157968_))))))) + (_K5795758040_ _r58046_)))) + (let () (declare (not safe)) (_K5795657973_))))))) (define append1! - (lambda (_l57940_ _x57941_) - (let ((_l257943_ (let () (declare (not safe)) (cons _x57941_ '())))) - (if (let () (declare (not safe)) (pair? _l57940_)) + (lambda (_l57945_ _x57946_) + (let ((_l257948_ (let () (declare (not safe)) (cons _x57946_ '())))) + (if (let () (declare (not safe)) (pair? _l57945_)) (set-cdr! - (let () (declare (not safe)) (##last-pair _l57940_)) - _l257943_) - _l257943_)))) + (let () (declare (not safe)) (##last-pair _l57945_)) + _l257948_) + _l257948_)))) (define append-reverse - (lambda (_rev-head57937_ _tail57938_) + (lambda (_rev-head57942_ _tail57943_) (let () (declare (not safe)) - (foldl1 cons _tail57938_ _rev-head57937_)))) + (foldl1 cons _tail57943_ _rev-head57942_)))) (define andmap1 - (lambda (_f57897_ _lst57898_) - (let _lp57900_ ((_rest57902_ _lst57898_)) - (let* ((_rest5790357911_ _rest57902_) - (_else5790557919_ (lambda () '#t)) - (_K5790757925_ - (lambda (_rest57922_ _x57923_) - (if (_f57897_ _x57923_) - (let () (declare (not safe)) (_lp57900_ _rest57922_)) + (lambda (_f57902_ _lst57903_) + (let _lp57905_ ((_rest57907_ _lst57903_)) + (let* ((_rest5790857916_ _rest57907_) + (_else5791057924_ (lambda () '#t)) + (_K5791257930_ + (lambda (_rest57927_ _x57928_) + (if (_f57902_ _x57928_) + (let () (declare (not safe)) (_lp57905_ _rest57927_)) '#f)))) - (if (let () (declare (not safe)) (##pair? _rest5790357911_)) - (let ((_hd5790857928_ - (let () (declare (not safe)) (##car _rest5790357911_))) - (_tl5790957930_ - (let () (declare (not safe)) (##cdr _rest5790357911_)))) - (let* ((_x57933_ _hd5790857928_) - (_rest57935_ _tl5790957930_)) + (if (let () (declare (not safe)) (##pair? _rest5790857916_)) + (let ((_hd5791357933_ + (let () (declare (not safe)) (##car _rest5790857916_))) + (_tl5791457935_ + (let () (declare (not safe)) (##cdr _rest5790857916_)))) + (let* ((_x57938_ _hd5791357933_) + (_rest57940_ _tl5791457935_)) (declare (not safe)) - (_K5790757925_ _rest57935_ _x57933_))) - (let () (declare (not safe)) (_else5790557919_))))))) + (_K5791257930_ _rest57940_ _x57938_))) + (let () (declare (not safe)) (_else5791057924_))))))) (define andmap2 - (lambda (_f57822_ _lst157823_ _lst257824_) - (let _lp57826_ ((_rest157828_ _lst157823_) (_rest257829_ _lst257824_)) - (let* ((_rest15783057838_ _rest157828_) - (_else5783257846_ (lambda () '#t)) - (_K5783457885_ - (lambda (_rest157849_ _x157850_) - (let* ((_rest25785157859_ _rest257829_) - (_else5785357867_ (lambda () '#t)) - (_K5785557873_ - (lambda (_rest257870_ _x257871_) - (if (_f57822_ _x157850_ _x257871_) + (lambda (_f57827_ _lst157828_ _lst257829_) + (let _lp57831_ ((_rest157833_ _lst157828_) (_rest257834_ _lst257829_)) + (let* ((_rest15783557843_ _rest157833_) + (_else5783757851_ (lambda () '#t)) + (_K5783957890_ + (lambda (_rest157854_ _x157855_) + (let* ((_rest25785657864_ _rest257834_) + (_else5785857872_ (lambda () '#t)) + (_K5786057878_ + (lambda (_rest257875_ _x257876_) + (if (_f57827_ _x157855_ _x257876_) (let () (declare (not safe)) - (_lp57826_ _rest157849_ _rest257870_)) + (_lp57831_ _rest157854_ _rest257875_)) '#f)))) (if (let () (declare (not safe)) - (##pair? _rest25785157859_)) - (let ((_hd5785657876_ + (##pair? _rest25785657864_)) + (let ((_hd5786157881_ (let () (declare (not safe)) - (##car _rest25785157859_))) - (_tl5785757878_ + (##car _rest25785657864_))) + (_tl5786257883_ (let () (declare (not safe)) - (##cdr _rest25785157859_)))) - (let* ((_x257881_ _hd5785657876_) - (_rest257883_ _tl5785757878_)) + (##cdr _rest25785657864_)))) + (let* ((_x257886_ _hd5786157881_) + (_rest257888_ _tl5786257883_)) (declare (not safe)) - (_K5785557873_ _rest257883_ _x257881_))) - (let () (declare (not safe)) (_else5785357867_))))))) - (if (let () (declare (not safe)) (##pair? _rest15783057838_)) - (let ((_hd5783557888_ - (let () (declare (not safe)) (##car _rest15783057838_))) - (_tl5783657890_ + (_K5786057878_ _rest257888_ _x257886_))) + (let () (declare (not safe)) (_else5785857872_))))))) + (if (let () (declare (not safe)) (##pair? _rest15783557843_)) + (let ((_hd5784057893_ + (let () (declare (not safe)) (##car _rest15783557843_))) + (_tl5784157895_ (let () (declare (not safe)) - (##cdr _rest15783057838_)))) - (let* ((_x157893_ _hd5783557888_) - (_rest157895_ _tl5783657890_)) + (##cdr _rest15783557843_)))) + (let* ((_x157898_ _hd5784057893_) + (_rest157900_ _tl5784157895_)) (declare (not safe)) - (_K5783457885_ _rest157895_ _x157893_))) - (let () (declare (not safe)) (_else5783257846_))))))) + (_K5783957890_ _rest157900_ _x157898_))) + (let () (declare (not safe)) (_else5783757851_))))))) (define andmap - (lambda _g63317_ - (let ((_g63316_ (let () (declare (not safe)) (##length _g63317_)))) - (cond ((let () (declare (not safe)) (##fx= _g63316_ 2)) - (apply (lambda (_f57810_ _lst57811_) + (lambda _g63322_ + (let ((_g63321_ (let () (declare (not safe)) (##length _g63322_)))) + (cond ((let () (declare (not safe)) (##fx= _g63321_ 2)) + (apply (lambda (_f57815_ _lst57816_) (let () (declare (not safe)) - (andmap1 _f57810_ _lst57811_))) - _g63317_)) - ((let () (declare (not safe)) (##fx= _g63316_ 3)) - (apply (lambda (_f57813_ _lst157814_ _lst257815_) + (andmap1 _f57815_ _lst57816_))) + _g63322_)) + ((let () (declare (not safe)) (##fx= _g63321_ 3)) + (apply (lambda (_f57818_ _lst157819_ _lst257820_) (let () (declare (not safe)) - (andmap2 _f57813_ _lst157814_ _lst257815_))) - _g63317_)) - ((let () (declare (not safe)) (##fx>= _g63316_ 3)) - (apply andmap* _g63317_)) + (andmap2 _f57818_ _lst157819_ _lst257820_))) + _g63322_)) + ((let () (declare (not safe)) (##fx>= _g63321_ 3)) + (apply andmap* _g63322_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g63317_)))))) + _g63322_)))))) (define andmap* - (lambda (_f57803_ . _rest57804_) - (let _recur57806_ ((_rest57808_ _rest57804_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest57808_)) - (if (apply _f57803_ (map car _rest57808_)) - (let ((__tmp63318 (map cdr _rest57808_))) + (lambda (_f57808_ . _rest57809_) + (let _recur57811_ ((_rest57813_ _rest57809_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest57813_)) + (if (apply _f57808_ (map car _rest57813_)) + (let ((__tmp63323 (map cdr _rest57813_))) (declare (not safe)) - (_recur57806_ __tmp63318)) + (_recur57811_ __tmp63323)) '#f) '#t)))) (define ormap1 - (lambda (_f57760_ _lst57761_) - (let _lp57763_ ((_rest57765_ _lst57761_)) - (let* ((_rest5776657774_ _rest57765_) - (_else5776857782_ (lambda () '#f)) - (_K5777057791_ - (lambda (_rest57785_ _x57786_) - (let ((_$e57788_ (_f57760_ _x57786_))) - (if _$e57788_ - _$e57788_ + (lambda (_f57765_ _lst57766_) + (let _lp57768_ ((_rest57770_ _lst57766_)) + (let* ((_rest5777157779_ _rest57770_) + (_else5777357787_ (lambda () '#f)) + (_K5777557796_ + (lambda (_rest57790_ _x57791_) + (let ((_$e57793_ (_f57765_ _x57791_))) + (if _$e57793_ + _$e57793_ (let () (declare (not safe)) - (_lp57763_ _rest57785_))))))) - (if (let () (declare (not safe)) (##pair? _rest5776657774_)) - (let ((_hd5777157794_ - (let () (declare (not safe)) (##car _rest5776657774_))) - (_tl5777257796_ - (let () (declare (not safe)) (##cdr _rest5776657774_)))) - (let* ((_x57799_ _hd5777157794_) - (_rest57801_ _tl5777257796_)) + (_lp57768_ _rest57790_))))))) + (if (let () (declare (not safe)) (##pair? _rest5777157779_)) + (let ((_hd5777657799_ + (let () (declare (not safe)) (##car _rest5777157779_))) + (_tl5777757801_ + (let () (declare (not safe)) (##cdr _rest5777157779_)))) + (let* ((_x57804_ _hd5777657799_) + (_rest57806_ _tl5777757801_)) (declare (not safe)) - (_K5777057791_ _rest57801_ _x57799_))) - (let () (declare (not safe)) (_else5776857782_))))))) + (_K5777557796_ _rest57806_ _x57804_))) + (let () (declare (not safe)) (_else5777357787_))))))) (define ormap2 - (lambda (_f57682_ _lst157683_ _lst257684_) - (let _lp57686_ ((_rest157688_ _lst157683_) (_rest257689_ _lst257684_)) - (let* ((_rest15769057698_ _rest157688_) - (_else5769257706_ (lambda () '#f)) - (_K5769457748_ - (lambda (_rest157709_ _x157710_) - (let* ((_rest25771157719_ _rest257689_) - (_else5771357727_ (lambda () '#f)) - (_K5771557736_ - (lambda (_rest257730_ _x257731_) - (let ((_$e57733_ (_f57682_ _x157710_ _x257731_))) - (if _$e57733_ - _$e57733_ + (lambda (_f57687_ _lst157688_ _lst257689_) + (let _lp57691_ ((_rest157693_ _lst157688_) (_rest257694_ _lst257689_)) + (let* ((_rest15769557703_ _rest157693_) + (_else5769757711_ (lambda () '#f)) + (_K5769957753_ + (lambda (_rest157714_ _x157715_) + (let* ((_rest25771657724_ _rest257694_) + (_else5771857732_ (lambda () '#f)) + (_K5772057741_ + (lambda (_rest257735_ _x257736_) + (let ((_$e57738_ (_f57687_ _x157715_ _x257736_))) + (if _$e57738_ + _$e57738_ (let () (declare (not safe)) - (_lp57686_ - _rest157709_ - _rest257730_))))))) + (_lp57691_ + _rest157714_ + _rest257735_))))))) (if (let () (declare (not safe)) - (##pair? _rest25771157719_)) - (let ((_hd5771657739_ + (##pair? _rest25771657724_)) + (let ((_hd5772157744_ (let () (declare (not safe)) - (##car _rest25771157719_))) - (_tl5771757741_ + (##car _rest25771657724_))) + (_tl5772257746_ (let () (declare (not safe)) - (##cdr _rest25771157719_)))) - (let* ((_x257744_ _hd5771657739_) - (_rest257746_ _tl5771757741_)) + (##cdr _rest25771657724_)))) + (let* ((_x257749_ _hd5772157744_) + (_rest257751_ _tl5772257746_)) (declare (not safe)) - (_K5771557736_ _rest257746_ _x257744_))) - (let () (declare (not safe)) (_else5771357727_))))))) - (if (let () (declare (not safe)) (##pair? _rest15769057698_)) - (let ((_hd5769557751_ - (let () (declare (not safe)) (##car _rest15769057698_))) - (_tl5769657753_ + (_K5772057741_ _rest257751_ _x257749_))) + (let () (declare (not safe)) (_else5771857732_))))))) + (if (let () (declare (not safe)) (##pair? _rest15769557703_)) + (let ((_hd5770057756_ + (let () (declare (not safe)) (##car _rest15769557703_))) + (_tl5770157758_ (let () (declare (not safe)) - (##cdr _rest15769057698_)))) - (let* ((_x157756_ _hd5769557751_) - (_rest157758_ _tl5769657753_)) + (##cdr _rest15769557703_)))) + (let* ((_x157761_ _hd5770057756_) + (_rest157763_ _tl5770157758_)) (declare (not safe)) - (_K5769457748_ _rest157758_ _x157756_))) - (let () (declare (not safe)) (_else5769257706_))))))) + (_K5769957753_ _rest157763_ _x157761_))) + (let () (declare (not safe)) (_else5769757711_))))))) (define ormap - (lambda _g63320_ - (let ((_g63319_ (let () (declare (not safe)) (##length _g63320_)))) - (cond ((let () (declare (not safe)) (##fx= _g63319_ 2)) - (apply (lambda (_f57670_ _lst57671_) + (lambda _g63325_ + (let ((_g63324_ (let () (declare (not safe)) (##length _g63325_)))) + (cond ((let () (declare (not safe)) (##fx= _g63324_ 2)) + (apply (lambda (_f57675_ _lst57676_) (let () (declare (not safe)) - (ormap1 _f57670_ _lst57671_))) - _g63320_)) - ((let () (declare (not safe)) (##fx= _g63319_ 3)) - (apply (lambda (_f57673_ _lst157674_ _lst257675_) + (ormap1 _f57675_ _lst57676_))) + _g63325_)) + ((let () (declare (not safe)) (##fx= _g63324_ 3)) + (apply (lambda (_f57678_ _lst157679_ _lst257680_) (let () (declare (not safe)) - (ormap2 _f57673_ _lst157674_ _lst257675_))) - _g63320_)) - ((let () (declare (not safe)) (##fx>= _g63319_ 3)) - (apply ormap* _g63320_)) + (ormap2 _f57678_ _lst157679_ _lst257680_))) + _g63325_)) + ((let () (declare (not safe)) (##fx>= _g63324_ 3)) + (apply ormap* _g63325_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g63320_)))))) + _g63325_)))))) (define ormap* - (lambda (_f57660_ . _rest57661_) - (let _recur57663_ ((_rest57665_ _rest57661_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest57665_)) - (let ((_$e57667_ (apply _f57660_ (map car _rest57665_)))) - (if _$e57667_ - _$e57667_ - (let ((__tmp63321 (map cdr _rest57665_))) + (lambda (_f57665_ . _rest57666_) + (let _recur57668_ ((_rest57670_ _rest57666_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest57670_)) + (let ((_$e57672_ (apply _f57665_ (map car _rest57670_)))) + (if _$e57672_ + _$e57672_ + (let ((__tmp63326 (map cdr _rest57670_))) (declare (not safe)) - (_recur57663_ __tmp63321)))) + (_recur57668_ __tmp63326)))) '#f)))) (define filter - (lambda (_f57618_ _lst57619_) - (let _recur57621_ ((_lst57623_ _lst57619_)) - (let* ((_lst5762457632_ _lst57623_) - (_else5762657640_ (lambda () '())) - (_K5762857648_ - (lambda (_rest57643_ _hd57644_) - (if (_f57618_ _hd57644_) - (let ((_tail57646_ + (lambda (_f57623_ _lst57624_) + (let _recur57626_ ((_lst57628_ _lst57624_)) + (let* ((_lst5762957637_ _lst57628_) + (_else5763157645_ (lambda () '())) + (_K5763357653_ + (lambda (_rest57648_ _hd57649_) + (if (_f57623_ _hd57649_) + (let ((_tail57651_ (let () (declare (not safe)) - (_recur57621_ _rest57643_)))) + (_recur57626_ _rest57648_)))) (if (let () (declare (not safe)) - (eq? _tail57646_ _rest57643_)) - _lst57623_ + (eq? _tail57651_ _rest57648_)) + _lst57628_ (let () (declare (not safe)) - (cons _hd57644_ _tail57646_)))) + (cons _hd57649_ _tail57651_)))) (let () (declare (not safe)) - (_recur57621_ _rest57643_)))))) - (if (let () (declare (not safe)) (##pair? _lst5762457632_)) - (let ((_hd5762957651_ - (let () (declare (not safe)) (##car _lst5762457632_))) - (_tl5763057653_ - (let () (declare (not safe)) (##cdr _lst5762457632_)))) - (let* ((_hd57656_ _hd5762957651_) - (_rest57658_ _tl5763057653_)) + (_recur57626_ _rest57648_)))))) + (if (let () (declare (not safe)) (##pair? _lst5762957637_)) + (let ((_hd5763457656_ + (let () (declare (not safe)) (##car _lst5762957637_))) + (_tl5763557658_ + (let () (declare (not safe)) (##cdr _lst5762957637_)))) + (let* ((_hd57661_ _hd5763457656_) + (_rest57663_ _tl5763557658_)) (declare (not safe)) - (_K5762857648_ _rest57658_ _hd57656_))) - (let () (declare (not safe)) (_else5762657640_))))))) + (_K5763357653_ _rest57663_ _hd57661_))) + (let () (declare (not safe)) (_else5763157645_))))))) (define filter-map1 - (lambda (_f57573_ _lst57574_) - (let _recur57576_ ((_rest57578_ _lst57574_)) - (let* ((_rest5757957587_ _rest57578_) - (_else5758157595_ (lambda () '())) - (_K5758357606_ - (lambda (_rest57598_ _x57599_) - (let ((_$e57601_ (_f57573_ _x57599_))) - (if _$e57601_ - ((lambda (_r57604_) - (let ((__tmp63322 + (lambda (_f57578_ _lst57579_) + (let _recur57581_ ((_rest57583_ _lst57579_)) + (let* ((_rest5758457592_ _rest57583_) + (_else5758657600_ (lambda () '())) + (_K5758857611_ + (lambda (_rest57603_ _x57604_) + (let ((_$e57606_ (_f57578_ _x57604_))) + (if _$e57606_ + ((lambda (_r57609_) + (let ((__tmp63327 (let () (declare (not safe)) - (_recur57576_ _rest57598_)))) + (_recur57581_ _rest57603_)))) (declare (not safe)) - (cons _r57604_ __tmp63322))) - _$e57601_) + (cons _r57609_ __tmp63327))) + _$e57606_) (let () (declare (not safe)) - (_recur57576_ _rest57598_))))))) - (if (let () (declare (not safe)) (##pair? _rest5757957587_)) - (let ((_hd5758457609_ - (let () (declare (not safe)) (##car _rest5757957587_))) - (_tl5758557611_ - (let () (declare (not safe)) (##cdr _rest5757957587_)))) - (let* ((_x57614_ _hd5758457609_) - (_rest57616_ _tl5758557611_)) + (_recur57581_ _rest57603_))))))) + (if (let () (declare (not safe)) (##pair? _rest5758457592_)) + (let ((_hd5758957614_ + (let () (declare (not safe)) (##car _rest5758457592_))) + (_tl5759057616_ + (let () (declare (not safe)) (##cdr _rest5758457592_)))) + (let* ((_x57619_ _hd5758957614_) + (_rest57621_ _tl5759057616_)) (declare (not safe)) - (_K5758357606_ _rest57616_ _x57614_))) - (let () (declare (not safe)) (_else5758157595_))))))) + (_K5758857611_ _rest57621_ _x57619_))) + (let () (declare (not safe)) (_else5758657600_))))))) (define filter-map2 - (lambda (_f57493_ _lst157494_ _lst257495_) - (let _recur57497_ ((_rest157499_ _lst157494_) - (_rest257500_ _lst257495_)) - (let* ((_rest15750157509_ _rest157499_) - (_else5750357517_ (lambda () '())) - (_K5750557561_ - (lambda (_rest157520_ _x157521_) - (let* ((_rest25752257530_ _rest257500_) - (_else5752457538_ (lambda () '())) - (_K5752657549_ - (lambda (_rest257541_ _x257542_) - (let ((_$e57544_ (_f57493_ _x157521_ _x257542_))) - (if _$e57544_ - ((lambda (_r57547_) - (let ((__tmp63323 + (lambda (_f57498_ _lst157499_ _lst257500_) + (let _recur57502_ ((_rest157504_ _lst157499_) + (_rest257505_ _lst257500_)) + (let* ((_rest15750657514_ _rest157504_) + (_else5750857522_ (lambda () '())) + (_K5751057566_ + (lambda (_rest157525_ _x157526_) + (let* ((_rest25752757535_ _rest257505_) + (_else5752957543_ (lambda () '())) + (_K5753157554_ + (lambda (_rest257546_ _x257547_) + (let ((_$e57549_ (_f57498_ _x157526_ _x257547_))) + (if _$e57549_ + ((lambda (_r57552_) + (let ((__tmp63328 (let () (declare (not safe)) - (_recur57497_ - _rest157520_ - _rest257541_)))) + (_recur57502_ + _rest157525_ + _rest257546_)))) (declare (not safe)) - (cons _r57547_ __tmp63323))) - _$e57544_) + (cons _r57552_ __tmp63328))) + _$e57549_) (let () (declare (not safe)) - (_recur57497_ - _rest157520_ - _rest257541_))))))) + (_recur57502_ + _rest157525_ + _rest257546_))))))) (if (let () (declare (not safe)) - (##pair? _rest25752257530_)) - (let ((_hd5752757552_ + (##pair? _rest25752757535_)) + (let ((_hd5753257557_ (let () (declare (not safe)) - (##car _rest25752257530_))) - (_tl5752857554_ + (##car _rest25752757535_))) + (_tl5753357559_ (let () (declare (not safe)) - (##cdr _rest25752257530_)))) - (let* ((_x257557_ _hd5752757552_) - (_rest257559_ _tl5752857554_)) + (##cdr _rest25752757535_)))) + (let* ((_x257562_ _hd5753257557_) + (_rest257564_ _tl5753357559_)) (declare (not safe)) - (_K5752657549_ _rest257559_ _x257557_))) - (let () (declare (not safe)) (_else5752457538_))))))) - (if (let () (declare (not safe)) (##pair? _rest15750157509_)) - (let ((_hd5750657564_ - (let () (declare (not safe)) (##car _rest15750157509_))) - (_tl5750757566_ + (_K5753157554_ _rest257564_ _x257562_))) + (let () (declare (not safe)) (_else5752957543_))))))) + (if (let () (declare (not safe)) (##pair? _rest15750657514_)) + (let ((_hd5751157569_ + (let () (declare (not safe)) (##car _rest15750657514_))) + (_tl5751257571_ (let () (declare (not safe)) - (##cdr _rest15750157509_)))) - (let* ((_x157569_ _hd5750657564_) - (_rest157571_ _tl5750757566_)) + (##cdr _rest15750657514_)))) + (let* ((_x157574_ _hd5751157569_) + (_rest157576_ _tl5751257571_)) (declare (not safe)) - (_K5750557561_ _rest157571_ _x157569_))) - (let () (declare (not safe)) (_else5750357517_))))))) + (_K5751057566_ _rest157576_ _x157574_))) + (let () (declare (not safe)) (_else5750857522_))))))) (define filter-map - (lambda _g63325_ - (let ((_g63324_ (let () (declare (not safe)) (##length _g63325_)))) - (cond ((let () (declare (not safe)) (##fx= _g63324_ 2)) - (apply (lambda (_f57481_ _lst57482_) + (lambda _g63330_ + (let ((_g63329_ (let () (declare (not safe)) (##length _g63330_)))) + (cond ((let () (declare (not safe)) (##fx= _g63329_ 2)) + (apply (lambda (_f57486_ _lst57487_) (let () (declare (not safe)) - (filter-map1 _f57481_ _lst57482_))) - _g63325_)) - ((let () (declare (not safe)) (##fx= _g63324_ 3)) - (apply (lambda (_f57484_ _lst157485_ _lst257486_) + (filter-map1 _f57486_ _lst57487_))) + _g63330_)) + ((let () (declare (not safe)) (##fx= _g63329_ 3)) + (apply (lambda (_f57489_ _lst157490_ _lst257491_) (let () (declare (not safe)) - (filter-map2 _f57484_ _lst157485_ _lst257486_))) - _g63325_)) - ((let () (declare (not safe)) (##fx>= _g63324_ 3)) - (apply filter-map* _g63325_)) + (filter-map2 _f57489_ _lst157490_ _lst257491_))) + _g63330_)) + ((let () (declare (not safe)) (##fx>= _g63329_ 3)) + (apply filter-map* _g63330_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g63325_)))))) + _g63330_)))))) (define filter-map* - (lambda (_f57469_ . _rest57470_) - (let _recur57472_ ((_rest57474_ _rest57470_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest57474_)) - (let ((_$e57476_ (apply _f57469_ (map car _rest57474_)))) - (if _$e57476_ - ((lambda (_r57479_) - (let ((__tmp63327 - (let ((__tmp63328 (map cdr _rest57474_))) + (lambda (_f57474_ . _rest57475_) + (let _recur57477_ ((_rest57479_ _rest57475_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest57479_)) + (let ((_$e57481_ (apply _f57474_ (map car _rest57479_)))) + (if _$e57481_ + ((lambda (_r57484_) + (let ((__tmp63332 + (let ((__tmp63333 (map cdr _rest57479_))) (declare (not safe)) - (_recur57472_ __tmp63328)))) + (_recur57477_ __tmp63333)))) (declare (not safe)) - (cons _r57479_ __tmp63327))) - _$e57476_) - (let ((__tmp63326 (map cdr _rest57474_))) + (cons _r57484_ __tmp63332))) + _$e57481_) + (let ((__tmp63331 (map cdr _rest57479_))) (declare (not safe)) - (_recur57472_ __tmp63326)))) + (_recur57477_ __tmp63331)))) '())))) (define iota__% - (lambda (_count57437_ _start57438_ _step57439_) - (if (fixnum? _count57437_) + (lambda (_count57442_ _start57443_ _step57444_) + (if (fixnum? _count57442_) '#!void - (error '"expected fixnum" _count57437_)) - (if (let () (declare (not safe)) (number? _start57438_)) + (error '"expected fixnum" _count57442_)) + (if (let () (declare (not safe)) (number? _start57443_)) '#!void - (error '"expected number" _start57438_)) - (if (let () (declare (not safe)) (number? _step57439_)) + (error '"expected number" _start57443_)) + (if (let () (declare (not safe)) (number? _step57444_)) '#!void - (error '"expected number" _step57439_)) - (let ((_root57441_ (let () (declare (not safe)) (cons '#f '())))) - (let _lp57443_ ((_i57445_ '0) - (_x57446_ _start57438_) - (_tl57447_ _root57441_)) - (if (let () (declare (not safe)) (##fx< _i57445_ _count57437_)) - (let ((_tl*57449_ - (let () (declare (not safe)) (cons _x57446_ '())))) + (error '"expected number" _step57444_)) + (let ((_root57446_ (let () (declare (not safe)) (cons '#f '())))) + (let _lp57448_ ((_i57450_ '0) + (_x57451_ _start57443_) + (_tl57452_ _root57446_)) + (if (let () (declare (not safe)) (##fx< _i57450_ _count57442_)) + (let ((_tl*57454_ + (let () (declare (not safe)) (cons _x57451_ '())))) (let () (declare (not safe)) - (##set-cdr! _tl57447_ _tl*57449_)) - (let ((__tmp63330 - (let () (declare (not safe)) (##fx+ _i57445_ '1))) - (__tmp63329 (+ _x57446_ _step57439_))) + (##set-cdr! _tl57452_ _tl*57454_)) + (let ((__tmp63335 + (let () (declare (not safe)) (##fx+ _i57450_ '1))) + (__tmp63334 (+ _x57451_ _step57444_))) (declare (not safe)) - (_lp57443_ __tmp63330 __tmp63329 _tl*57449_))) - (let () (declare (not safe)) (##cdr _root57441_))))))) + (_lp57448_ __tmp63335 __tmp63334 _tl*57454_))) + (let () (declare (not safe)) (##cdr _root57446_))))))) (define iota__0 - (lambda (_count57454_) - (let* ((_start57456_ '0) (_step57458_ '1)) + (lambda (_count57459_) + (let* ((_start57461_ '0) (_step57463_ '1)) (declare (not safe)) - (iota__% _count57454_ _start57456_ _step57458_)))) + (iota__% _count57459_ _start57461_ _step57463_)))) (define iota__1 - (lambda (_count57460_ _start57461_) - (let ((_step57463_ '1)) + (lambda (_count57465_ _start57466_) + (let ((_step57468_ '1)) (declare (not safe)) - (iota__% _count57460_ _start57461_ _step57463_)))) + (iota__% _count57465_ _start57466_ _step57468_)))) (define iota - (lambda _g63332_ - (let ((_g63331_ (let () (declare (not safe)) (##length _g63332_)))) - (cond ((let () (declare (not safe)) (##fx= _g63331_ 1)) - (apply (lambda (_count57454_) - (let () (declare (not safe)) (iota__0 _count57454_))) - _g63332_)) - ((let () (declare (not safe)) (##fx= _g63331_ 2)) - (apply (lambda (_count57460_ _start57461_) + (lambda _g63337_ + (let ((_g63336_ (let () (declare (not safe)) (##length _g63337_)))) + (cond ((let () (declare (not safe)) (##fx= _g63336_ 1)) + (apply (lambda (_count57459_) + (let () (declare (not safe)) (iota__0 _count57459_))) + _g63337_)) + ((let () (declare (not safe)) (##fx= _g63336_ 2)) + (apply (lambda (_count57465_ _start57466_) (let () (declare (not safe)) - (iota__1 _count57460_ _start57461_))) - _g63332_)) - ((let () (declare (not safe)) (##fx= _g63331_ 3)) - (apply (lambda (_count57465_ _start57466_ _step57467_) + (iota__1 _count57465_ _start57466_))) + _g63337_)) + ((let () (declare (not safe)) (##fx= _g63336_ 3)) + (apply (lambda (_count57470_ _start57471_ _step57472_) (let () (declare (not safe)) - (iota__% _count57465_ _start57466_ _step57467_))) - _g63332_)) + (iota__% _count57470_ _start57471_ _step57472_))) + _g63337_)) (else (##raise-wrong-number-of-arguments-exception iota - _g63332_)))))) + _g63337_)))))) (define last-pair - (lambda (_lst57411_) - (let* ((_lst5741257419_ _lst57411_) - (_E5741457423_ - (lambda () (error '"No clause matching" _lst5741257419_))) - (_K5741557428_ - (lambda (_rest57426_) - (if (let () (declare (not safe)) (pair? _rest57426_)) - (let () (declare (not safe)) (last-pair _rest57426_)) - _lst57411_)))) - (if (let () (declare (not safe)) (##pair? _lst5741257419_)) - (let* ((_tl5741757431_ - (let () (declare (not safe)) (##cdr _lst5741257419_))) - (_rest57434_ _tl5741757431_)) + (lambda (_lst57416_) + (let* ((_lst5741757424_ _lst57416_) + (_E5741957428_ + (lambda () (error '"No clause matching" _lst5741757424_))) + (_K5742057433_ + (lambda (_rest57431_) + (if (let () (declare (not safe)) (pair? _rest57431_)) + (let () (declare (not safe)) (last-pair _rest57431_)) + _lst57416_)))) + (if (let () (declare (not safe)) (##pair? _lst5741757424_)) + (let* ((_tl5742257436_ + (let () (declare (not safe)) (##cdr _lst5741757424_))) + (_rest57439_ _tl5742257436_)) (declare (not safe)) - (_K5741557428_ _rest57434_)) - (let () (declare (not safe)) (_E5741457423_)))))) + (_K5742057433_ _rest57439_)) + (let () (declare (not safe)) (_E5741957428_)))))) (define last - (lambda (_lst57409_) - (car (let () (declare (not safe)) (last-pair _lst57409_))))) + (lambda (_lst57414_) + (car (let () (declare (not safe)) (last-pair _lst57414_))))) (define assgetq__% - (lambda (_key57387_ _lst57389_ _default57391_) - (let ((_$e57394_ - (if (let () (declare (not safe)) (pair? _lst57389_)) - (assq _key57387_ _lst57389_) + (lambda (_key57392_ _lst57394_ _default57396_) + (let ((_$e57399_ + (if (let () (declare (not safe)) (pair? _lst57394_)) + (assq _key57392_ _lst57394_) '#f))) - (if _$e57394_ - (cdr _$e57394_) - (if (let () (declare (not safe)) (procedure? _default57391_)) - (_default57391_ _key57387_) - _default57391_))))) + (if _$e57399_ + (cdr _$e57399_) + (if (let () (declare (not safe)) (procedure? _default57396_)) + (_default57396_ _key57392_) + _default57396_))))) (define assgetq__0 - (lambda (_key57400_ _lst57401_) - (let ((_default57403_ '#f)) + (lambda (_key57405_ _lst57406_) + (let ((_default57408_ '#f)) (declare (not safe)) - (assgetq__% _key57400_ _lst57401_ _default57403_)))) + (assgetq__% _key57405_ _lst57406_ _default57408_)))) (define assgetq - (lambda _g63334_ - (let ((_g63333_ (let () (declare (not safe)) (##length _g63334_)))) - (cond ((let () (declare (not safe)) (##fx= _g63333_ 2)) - (apply (lambda (_key57400_ _lst57401_) + (lambda _g63339_ + (let ((_g63338_ (let () (declare (not safe)) (##length _g63339_)))) + (cond ((let () (declare (not safe)) (##fx= _g63338_ 2)) + (apply (lambda (_key57405_ _lst57406_) (let () (declare (not safe)) - (assgetq__0 _key57400_ _lst57401_))) - _g63334_)) - ((let () (declare (not safe)) (##fx= _g63333_ 3)) - (apply (lambda (_key57405_ _lst57406_ _default57407_) + (assgetq__0 _key57405_ _lst57406_))) + _g63339_)) + ((let () (declare (not safe)) (##fx= _g63338_ 3)) + (apply (lambda (_key57410_ _lst57411_ _default57412_) (let () (declare (not safe)) - (assgetq__% _key57405_ _lst57406_ _default57407_))) - _g63334_)) + (assgetq__% _key57410_ _lst57411_ _default57412_))) + _g63339_)) (else (##raise-wrong-number-of-arguments-exception assgetq - _g63334_)))))) + _g63339_)))))) (define assgetv__% - (lambda (_key57364_ _lst57366_ _default57368_) - (let ((_$e57371_ - (if (let () (declare (not safe)) (pair? _lst57366_)) - (assv _key57364_ _lst57366_) + (lambda (_key57369_ _lst57371_ _default57373_) + (let ((_$e57376_ + (if (let () (declare (not safe)) (pair? _lst57371_)) + (assv _key57369_ _lst57371_) '#f))) - (if _$e57371_ - (cdr _$e57371_) - (if (let () (declare (not safe)) (procedure? _default57368_)) - (_default57368_ _key57364_) - _default57368_))))) + (if _$e57376_ + (cdr _$e57376_) + (if (let () (declare (not safe)) (procedure? _default57373_)) + (_default57373_ _key57369_) + _default57373_))))) (define assgetv__0 - (lambda (_key57377_ _lst57378_) - (let ((_default57380_ '#f)) + (lambda (_key57382_ _lst57383_) + (let ((_default57385_ '#f)) (declare (not safe)) - (assgetv__% _key57377_ _lst57378_ _default57380_)))) + (assgetv__% _key57382_ _lst57383_ _default57385_)))) (define assgetv - (lambda _g63336_ - (let ((_g63335_ (let () (declare (not safe)) (##length _g63336_)))) - (cond ((let () (declare (not safe)) (##fx= _g63335_ 2)) - (apply (lambda (_key57377_ _lst57378_) + (lambda _g63341_ + (let ((_g63340_ (let () (declare (not safe)) (##length _g63341_)))) + (cond ((let () (declare (not safe)) (##fx= _g63340_ 2)) + (apply (lambda (_key57382_ _lst57383_) (let () (declare (not safe)) - (assgetv__0 _key57377_ _lst57378_))) - _g63336_)) - ((let () (declare (not safe)) (##fx= _g63335_ 3)) - (apply (lambda (_key57382_ _lst57383_ _default57384_) + (assgetv__0 _key57382_ _lst57383_))) + _g63341_)) + ((let () (declare (not safe)) (##fx= _g63340_ 3)) + (apply (lambda (_key57387_ _lst57388_ _default57389_) (let () (declare (not safe)) - (assgetv__% _key57382_ _lst57383_ _default57384_))) - _g63336_)) + (assgetv__% _key57387_ _lst57388_ _default57389_))) + _g63341_)) (else (##raise-wrong-number-of-arguments-exception assgetv - _g63336_)))))) + _g63341_)))))) (define assget__% - (lambda (_key57341_ _lst57343_ _default57345_) - (let ((_$e57348_ - (if (let () (declare (not safe)) (pair? _lst57343_)) - (assoc _key57341_ _lst57343_) + (lambda (_key57346_ _lst57348_ _default57350_) + (let ((_$e57353_ + (if (let () (declare (not safe)) (pair? _lst57348_)) + (assoc _key57346_ _lst57348_) '#f))) - (if _$e57348_ - (cdr _$e57348_) - (if (let () (declare (not safe)) (procedure? _default57345_)) - (_default57345_ _key57341_) - _default57345_))))) + (if _$e57353_ + (cdr _$e57353_) + (if (let () (declare (not safe)) (procedure? _default57350_)) + (_default57350_ _key57346_) + _default57350_))))) (define assget__0 - (lambda (_key57354_ _lst57355_) - (let ((_default57357_ '#f)) + (lambda (_key57359_ _lst57360_) + (let ((_default57362_ '#f)) (declare (not safe)) - (assget__% _key57354_ _lst57355_ _default57357_)))) + (assget__% _key57359_ _lst57360_ _default57362_)))) (define assget - (lambda _g63338_ - (let ((_g63337_ (let () (declare (not safe)) (##length _g63338_)))) - (cond ((let () (declare (not safe)) (##fx= _g63337_ 2)) - (apply (lambda (_key57354_ _lst57355_) + (lambda _g63343_ + (let ((_g63342_ (let () (declare (not safe)) (##length _g63343_)))) + (cond ((let () (declare (not safe)) (##fx= _g63342_ 2)) + (apply (lambda (_key57359_ _lst57360_) (let () (declare (not safe)) - (assget__0 _key57354_ _lst57355_))) - _g63338_)) - ((let () (declare (not safe)) (##fx= _g63337_ 3)) - (apply (lambda (_key57359_ _lst57360_ _default57361_) + (assget__0 _key57359_ _lst57360_))) + _g63343_)) + ((let () (declare (not safe)) (##fx= _g63342_ 3)) + (apply (lambda (_key57364_ _lst57365_ _default57366_) (let () (declare (not safe)) - (assget__% _key57359_ _lst57360_ _default57361_))) - _g63338_)) + (assget__% _key57364_ _lst57365_ _default57366_))) + _g63343_)) (else (##raise-wrong-number-of-arguments-exception assget - _g63338_)))))) + _g63343_)))))) (define pgetq__% - (lambda (_key57270_ _lst57272_ _default57274_) - (let _lp57277_ ((_rest57280_ _lst57272_)) - (let* ((_rest5728257292_ _rest57280_) - (_else5728457300_ + (lambda (_key57275_ _lst57277_ _default57279_) + (let _lp57282_ ((_rest57285_ _lst57277_)) + (let* ((_rest5728757297_ _rest57285_) + (_else5728957305_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57274_)) - (_default57274_ _key57270_) - _default57274_))) - (_K5728657309_ - (lambda (_rest57303_ _v57304_ _k57306_) - (if (let () (declare (not safe)) (eq? _k57306_ _key57270_)) - _v57304_ + (procedure? _default57279_)) + (_default57279_ _key57275_) + _default57279_))) + (_K5729157314_ + (lambda (_rest57308_ _v57309_ _k57311_) + (if (let () (declare (not safe)) (eq? _k57311_ _key57275_)) + _v57309_ (let () (declare (not safe)) - (_lp57277_ _rest57303_)))))) - (if (let () (declare (not safe)) (##pair? _rest5728257292_)) - (let ((_hd5728757312_ - (let () (declare (not safe)) (##car _rest5728257292_))) - (_tl5728857314_ - (let () (declare (not safe)) (##cdr _rest5728257292_)))) - (let ((_k57317_ _hd5728757312_)) - (if (let () (declare (not safe)) (##pair? _tl5728857314_)) - (let ((_hd5728957319_ + (_lp57282_ _rest57308_)))))) + (if (let () (declare (not safe)) (##pair? _rest5728757297_)) + (let ((_hd5729257317_ + (let () (declare (not safe)) (##car _rest5728757297_))) + (_tl5729357319_ + (let () (declare (not safe)) (##cdr _rest5728757297_)))) + (let ((_k57322_ _hd5729257317_)) + (if (let () (declare (not safe)) (##pair? _tl5729357319_)) + (let ((_hd5729457324_ (let () (declare (not safe)) - (##car _tl5728857314_))) - (_tl5729057321_ + (##car _tl5729357319_))) + (_tl5729557326_ (let () (declare (not safe)) - (##cdr _tl5728857314_)))) - (let* ((_v57324_ _hd5728957319_) - (_rest57326_ _tl5729057321_)) + (##cdr _tl5729357319_)))) + (let* ((_v57329_ _hd5729457324_) + (_rest57331_ _tl5729557326_)) (declare (not safe)) - (_K5728657309_ _rest57326_ _v57324_ _k57317_))) - (let () (declare (not safe)) (_else5728457300_))))) - (let () (declare (not safe)) (_else5728457300_))))))) + (_K5729157314_ _rest57331_ _v57329_ _k57322_))) + (let () (declare (not safe)) (_else5728957305_))))) + (let () (declare (not safe)) (_else5728957305_))))))) (define pgetq__0 - (lambda (_key57331_ _lst57332_) - (let ((_default57334_ '#f)) + (lambda (_key57336_ _lst57337_) + (let ((_default57339_ '#f)) (declare (not safe)) - (pgetq__% _key57331_ _lst57332_ _default57334_)))) + (pgetq__% _key57336_ _lst57337_ _default57339_)))) (define pgetq - (lambda _g63340_ - (let ((_g63339_ (let () (declare (not safe)) (##length _g63340_)))) - (cond ((let () (declare (not safe)) (##fx= _g63339_ 2)) - (apply (lambda (_key57331_ _lst57332_) + (lambda _g63345_ + (let ((_g63344_ (let () (declare (not safe)) (##length _g63345_)))) + (cond ((let () (declare (not safe)) (##fx= _g63344_ 2)) + (apply (lambda (_key57336_ _lst57337_) (let () (declare (not safe)) - (pgetq__0 _key57331_ _lst57332_))) - _g63340_)) - ((let () (declare (not safe)) (##fx= _g63339_ 3)) - (apply (lambda (_key57336_ _lst57337_ _default57338_) + (pgetq__0 _key57336_ _lst57337_))) + _g63345_)) + ((let () (declare (not safe)) (##fx= _g63344_ 3)) + (apply (lambda (_key57341_ _lst57342_ _default57343_) (let () (declare (not safe)) - (pgetq__% _key57336_ _lst57337_ _default57338_))) - _g63340_)) + (pgetq__% _key57341_ _lst57342_ _default57343_))) + _g63345_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g63340_)))))) + _g63345_)))))) (define pgetv__% - (lambda (_key57199_ _lst57201_ _default57203_) - (let _lp57206_ ((_rest57209_ _lst57201_)) - (let* ((_rest5721157221_ _rest57209_) - (_else5721357229_ + (lambda (_key57204_ _lst57206_ _default57208_) + (let _lp57211_ ((_rest57214_ _lst57206_)) + (let* ((_rest5721657226_ _rest57214_) + (_else5721857234_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57203_)) - (_default57203_ _key57199_) - _default57203_))) - (_K5721557238_ - (lambda (_rest57232_ _v57233_ _k57235_) + (procedure? _default57208_)) + (_default57208_ _key57204_) + _default57208_))) + (_K5722057243_ + (lambda (_rest57237_ _v57238_ _k57240_) (if (let () (declare (not safe)) - (eqv? _k57235_ _key57199_)) - _v57233_ + (eqv? _k57240_ _key57204_)) + _v57238_ (let () (declare (not safe)) - (_lp57206_ _rest57232_)))))) - (if (let () (declare (not safe)) (##pair? _rest5721157221_)) - (let ((_hd5721657241_ - (let () (declare (not safe)) (##car _rest5721157221_))) - (_tl5721757243_ - (let () (declare (not safe)) (##cdr _rest5721157221_)))) - (let ((_k57246_ _hd5721657241_)) - (if (let () (declare (not safe)) (##pair? _tl5721757243_)) - (let ((_hd5721857248_ + (_lp57211_ _rest57237_)))))) + (if (let () (declare (not safe)) (##pair? _rest5721657226_)) + (let ((_hd5722157246_ + (let () (declare (not safe)) (##car _rest5721657226_))) + (_tl5722257248_ + (let () (declare (not safe)) (##cdr _rest5721657226_)))) + (let ((_k57251_ _hd5722157246_)) + (if (let () (declare (not safe)) (##pair? _tl5722257248_)) + (let ((_hd5722357253_ (let () (declare (not safe)) - (##car _tl5721757243_))) - (_tl5721957250_ + (##car _tl5722257248_))) + (_tl5722457255_ (let () (declare (not safe)) - (##cdr _tl5721757243_)))) - (let* ((_v57253_ _hd5721857248_) - (_rest57255_ _tl5721957250_)) + (##cdr _tl5722257248_)))) + (let* ((_v57258_ _hd5722357253_) + (_rest57260_ _tl5722457255_)) (declare (not safe)) - (_K5721557238_ _rest57255_ _v57253_ _k57246_))) - (let () (declare (not safe)) (_else5721357229_))))) - (let () (declare (not safe)) (_else5721357229_))))))) + (_K5722057243_ _rest57260_ _v57258_ _k57251_))) + (let () (declare (not safe)) (_else5721857234_))))) + (let () (declare (not safe)) (_else5721857234_))))))) (define pgetv__0 - (lambda (_key57260_ _lst57261_) - (let ((_default57263_ '#f)) + (lambda (_key57265_ _lst57266_) + (let ((_default57268_ '#f)) (declare (not safe)) - (pgetv__% _key57260_ _lst57261_ _default57263_)))) + (pgetv__% _key57265_ _lst57266_ _default57268_)))) (define pgetv - (lambda _g63342_ - (let ((_g63341_ (let () (declare (not safe)) (##length _g63342_)))) - (cond ((let () (declare (not safe)) (##fx= _g63341_ 2)) - (apply (lambda (_key57260_ _lst57261_) + (lambda _g63347_ + (let ((_g63346_ (let () (declare (not safe)) (##length _g63347_)))) + (cond ((let () (declare (not safe)) (##fx= _g63346_ 2)) + (apply (lambda (_key57265_ _lst57266_) (let () (declare (not safe)) - (pgetv__0 _key57260_ _lst57261_))) - _g63342_)) - ((let () (declare (not safe)) (##fx= _g63341_ 3)) - (apply (lambda (_key57265_ _lst57266_ _default57267_) + (pgetv__0 _key57265_ _lst57266_))) + _g63347_)) + ((let () (declare (not safe)) (##fx= _g63346_ 3)) + (apply (lambda (_key57270_ _lst57271_ _default57272_) (let () (declare (not safe)) - (pgetv__% _key57265_ _lst57266_ _default57267_))) - _g63342_)) + (pgetv__% _key57270_ _lst57271_ _default57272_))) + _g63347_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g63342_)))))) + _g63347_)))))) (define pget__% - (lambda (_key57128_ _lst57130_ _default57132_) - (let _lp57135_ ((_rest57138_ _lst57130_)) - (let* ((_rest5714057150_ _rest57138_) - (_else5714257158_ + (lambda (_key57133_ _lst57135_ _default57137_) + (let _lp57140_ ((_rest57143_ _lst57135_)) + (let* ((_rest5714557155_ _rest57143_) + (_else5714757163_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57132_)) - (_default57132_ _key57128_) - _default57132_))) - (_K5714457167_ - (lambda (_rest57161_ _v57162_ _k57164_) + (procedure? _default57137_)) + (_default57137_ _key57133_) + _default57137_))) + (_K5714957172_ + (lambda (_rest57166_ _v57167_ _k57169_) (if (let () (declare (not safe)) - (equal? _k57164_ _key57128_)) - _v57162_ + (equal? _k57169_ _key57133_)) + _v57167_ (let () (declare (not safe)) - (_lp57135_ _rest57161_)))))) - (if (let () (declare (not safe)) (##pair? _rest5714057150_)) - (let ((_hd5714557170_ - (let () (declare (not safe)) (##car _rest5714057150_))) - (_tl5714657172_ - (let () (declare (not safe)) (##cdr _rest5714057150_)))) - (let ((_k57175_ _hd5714557170_)) - (if (let () (declare (not safe)) (##pair? _tl5714657172_)) - (let ((_hd5714757177_ + (_lp57140_ _rest57166_)))))) + (if (let () (declare (not safe)) (##pair? _rest5714557155_)) + (let ((_hd5715057175_ + (let () (declare (not safe)) (##car _rest5714557155_))) + (_tl5715157177_ + (let () (declare (not safe)) (##cdr _rest5714557155_)))) + (let ((_k57180_ _hd5715057175_)) + (if (let () (declare (not safe)) (##pair? _tl5715157177_)) + (let ((_hd5715257182_ (let () (declare (not safe)) - (##car _tl5714657172_))) - (_tl5714857179_ + (##car _tl5715157177_))) + (_tl5715357184_ (let () (declare (not safe)) - (##cdr _tl5714657172_)))) - (let* ((_v57182_ _hd5714757177_) - (_rest57184_ _tl5714857179_)) + (##cdr _tl5715157177_)))) + (let* ((_v57187_ _hd5715257182_) + (_rest57189_ _tl5715357184_)) (declare (not safe)) - (_K5714457167_ _rest57184_ _v57182_ _k57175_))) - (let () (declare (not safe)) (_else5714257158_))))) - (let () (declare (not safe)) (_else5714257158_))))))) + (_K5714957172_ _rest57189_ _v57187_ _k57180_))) + (let () (declare (not safe)) (_else5714757163_))))) + (let () (declare (not safe)) (_else5714757163_))))))) (define pget__0 - (lambda (_key57189_ _lst57190_) - (let ((_default57192_ '#f)) + (lambda (_key57194_ _lst57195_) + (let ((_default57197_ '#f)) (declare (not safe)) - (pget__% _key57189_ _lst57190_ _default57192_)))) + (pget__% _key57194_ _lst57195_ _default57197_)))) (define pget - (lambda _g63344_ - (let ((_g63343_ (let () (declare (not safe)) (##length _g63344_)))) - (cond ((let () (declare (not safe)) (##fx= _g63343_ 2)) - (apply (lambda (_key57189_ _lst57190_) + (lambda _g63349_ + (let ((_g63348_ (let () (declare (not safe)) (##length _g63349_)))) + (cond ((let () (declare (not safe)) (##fx= _g63348_ 2)) + (apply (lambda (_key57194_ _lst57195_) (let () (declare (not safe)) - (pget__0 _key57189_ _lst57190_))) - _g63344_)) - ((let () (declare (not safe)) (##fx= _g63343_ 3)) - (apply (lambda (_key57194_ _lst57195_ _default57196_) + (pget__0 _key57194_ _lst57195_))) + _g63349_)) + ((let () (declare (not safe)) (##fx= _g63348_ 3)) + (apply (lambda (_key57199_ _lst57200_ _default57201_) (let () (declare (not safe)) - (pget__% _key57194_ _lst57195_ _default57196_))) - _g63344_)) + (pget__% _key57199_ _lst57200_ _default57201_))) + _g63349_)) (else (##raise-wrong-number-of-arguments-exception pget - _g63344_)))))) + _g63349_)))))) (define find - (lambda (_pred57121_ _lst57122_) - (let ((_$e57124_ - (let () (declare (not safe)) (memf _pred57121_ _lst57122_)))) - (if _$e57124_ (car _$e57124_) '#f)))) + (lambda (_pred57126_ _lst57127_) + (let ((_$e57129_ + (let () (declare (not safe)) (memf _pred57126_ _lst57127_)))) + (if _$e57129_ (car _$e57129_) '#f)))) (define memf - (lambda (_proc57081_ _lst57082_) - (let _lp57084_ ((_rest57086_ _lst57082_)) - (let* ((_rest5708757095_ _rest57086_) - (_else5708957103_ (lambda () '#f)) - (_K5709157109_ - (lambda (_tl57106_ _hd57107_) - (if (_proc57081_ _hd57107_) - _rest57086_ - (let () (declare (not safe)) (_lp57084_ _tl57106_)))))) - (if (let () (declare (not safe)) (##pair? _rest5708757095_)) - (let ((_hd5709257112_ - (let () (declare (not safe)) (##car _rest5708757095_))) - (_tl5709357114_ - (let () (declare (not safe)) (##cdr _rest5708757095_)))) - (let* ((_hd57117_ _hd5709257112_) (_tl57119_ _tl5709357114_)) + (lambda (_proc57086_ _lst57087_) + (let _lp57089_ ((_rest57091_ _lst57087_)) + (let* ((_rest5709257100_ _rest57091_) + (_else5709457108_ (lambda () '#f)) + (_K5709657114_ + (lambda (_tl57111_ _hd57112_) + (if (_proc57086_ _hd57112_) + _rest57091_ + (let () (declare (not safe)) (_lp57089_ _tl57111_)))))) + (if (let () (declare (not safe)) (##pair? _rest5709257100_)) + (let ((_hd5709757117_ + (let () (declare (not safe)) (##car _rest5709257100_))) + (_tl5709857119_ + (let () (declare (not safe)) (##cdr _rest5709257100_)))) + (let* ((_hd57122_ _hd5709757117_) (_tl57124_ _tl5709857119_)) (declare (not safe)) - (_K5709157109_ _tl57119_ _hd57117_))) - (let () (declare (not safe)) (_else5708957103_))))))) + (_K5709657114_ _tl57124_ _hd57122_))) + (let () (declare (not safe)) (_else5709457108_))))))) (define remove1 - (lambda (_el57034_ _lst57036_) - (let _lp57039_ ((_rest57042_ _lst57036_) (_r57044_ '())) - (let* ((_rest5704657054_ _rest57042_) - (_else5704857062_ (lambda () _lst57036_)) - (_K5705057069_ - (lambda (_rest57065_ _hd57066_) + (lambda (_el57039_ _lst57041_) + (let _lp57044_ ((_rest57047_ _lst57041_) (_r57049_ '())) + (let* ((_rest5705157059_ _rest57047_) + (_else5705357067_ (lambda () _lst57041_)) + (_K5705557074_ + (lambda (_rest57070_ _hd57071_) (if (let () (declare (not safe)) - (equal? _el57034_ _hd57066_)) + (equal? _el57039_ _hd57071_)) (let () (declare (not safe)) - (foldl1 cons _rest57065_ _r57044_)) - (let ((__tmp63345 + (foldl1 cons _rest57070_ _r57049_)) + (let ((__tmp63350 (let () (declare (not safe)) - (cons _hd57066_ _r57044_)))) + (cons _hd57071_ _r57049_)))) (declare (not safe)) - (_lp57039_ _rest57065_ __tmp63345)))))) - (if (let () (declare (not safe)) (##pair? _rest5704657054_)) - (let ((_hd5705157072_ - (let () (declare (not safe)) (##car _rest5704657054_))) - (_tl5705257074_ - (let () (declare (not safe)) (##cdr _rest5704657054_)))) - (let* ((_hd57077_ _hd5705157072_) - (_rest57079_ _tl5705257074_)) + (_lp57044_ _rest57070_ __tmp63350)))))) + (if (let () (declare (not safe)) (##pair? _rest5705157059_)) + (let ((_hd5705657077_ + (let () (declare (not safe)) (##car _rest5705157059_))) + (_tl5705757079_ + (let () (declare (not safe)) (##cdr _rest5705157059_)))) + (let* ((_hd57082_ _hd5705657077_) + (_rest57084_ _tl5705757079_)) (declare (not safe)) - (_K5705057069_ _rest57079_ _hd57077_))) - (let () (declare (not safe)) (_else5704857062_))))))) + (_K5705557074_ _rest57084_ _hd57082_))) + (let () (declare (not safe)) (_else5705357067_))))))) (define remv - (lambda (_el56987_ _lst56989_) - (let _lp56992_ ((_rest56995_ _lst56989_) (_r56997_ '())) - (let* ((_rest5699957007_ _rest56995_) - (_else5700157015_ (lambda () _lst56989_)) - (_K5700357022_ - (lambda (_rest57018_ _hd57019_) + (lambda (_el56992_ _lst56994_) + (let _lp56997_ ((_rest57000_ _lst56994_) (_r57002_ '())) + (let* ((_rest5700457012_ _rest57000_) + (_else5700657020_ (lambda () _lst56994_)) + (_K5700857027_ + (lambda (_rest57023_ _hd57024_) (if (let () (declare (not safe)) - (eqv? _el56987_ _hd57019_)) + (eqv? _el56992_ _hd57024_)) (let () (declare (not safe)) - (foldl1 cons _rest57018_ _r56997_)) - (let ((__tmp63346 + (foldl1 cons _rest57023_ _r57002_)) + (let ((__tmp63351 (let () (declare (not safe)) - (cons _hd57019_ _r56997_)))) + (cons _hd57024_ _r57002_)))) (declare (not safe)) - (_lp56992_ _rest57018_ __tmp63346)))))) - (if (let () (declare (not safe)) (##pair? _rest5699957007_)) - (let ((_hd5700457025_ - (let () (declare (not safe)) (##car _rest5699957007_))) - (_tl5700557027_ - (let () (declare (not safe)) (##cdr _rest5699957007_)))) - (let* ((_hd57030_ _hd5700457025_) - (_rest57032_ _tl5700557027_)) + (_lp56997_ _rest57023_ __tmp63351)))))) + (if (let () (declare (not safe)) (##pair? _rest5700457012_)) + (let ((_hd5700957030_ + (let () (declare (not safe)) (##car _rest5700457012_))) + (_tl5701057032_ + (let () (declare (not safe)) (##cdr _rest5700457012_)))) + (let* ((_hd57035_ _hd5700957030_) + (_rest57037_ _tl5701057032_)) (declare (not safe)) - (_K5700357022_ _rest57032_ _hd57030_))) - (let () (declare (not safe)) (_else5700157015_))))))) + (_K5700857027_ _rest57037_ _hd57035_))) + (let () (declare (not safe)) (_else5700657020_))))))) (define remq - (lambda (_el56940_ _lst56942_) - (let _lp56945_ ((_rest56948_ _lst56942_) (_r56950_ '())) - (let* ((_rest5695256960_ _rest56948_) - (_else5695456968_ (lambda () _lst56942_)) - (_K5695656975_ - (lambda (_rest56971_ _hd56972_) - (if (let () (declare (not safe)) (eq? _el56940_ _hd56972_)) + (lambda (_el56945_ _lst56947_) + (let _lp56950_ ((_rest56953_ _lst56947_) (_r56955_ '())) + (let* ((_rest5695756965_ _rest56953_) + (_else5695956973_ (lambda () _lst56947_)) + (_K5696156980_ + (lambda (_rest56976_ _hd56977_) + (if (let () (declare (not safe)) (eq? _el56945_ _hd56977_)) (let () (declare (not safe)) - (foldl1 cons _rest56971_ _r56950_)) - (let ((__tmp63347 + (foldl1 cons _rest56976_ _r56955_)) + (let ((__tmp63352 (let () (declare (not safe)) - (cons _hd56972_ _r56950_)))) + (cons _hd56977_ _r56955_)))) (declare (not safe)) - (_lp56945_ _rest56971_ __tmp63347)))))) - (if (let () (declare (not safe)) (##pair? _rest5695256960_)) - (let ((_hd5695756978_ - (let () (declare (not safe)) (##car _rest5695256960_))) - (_tl5695856980_ - (let () (declare (not safe)) (##cdr _rest5695256960_)))) - (let* ((_hd56983_ _hd5695756978_) - (_rest56985_ _tl5695856980_)) + (_lp56950_ _rest56976_ __tmp63352)))))) + (if (let () (declare (not safe)) (##pair? _rest5695756965_)) + (let ((_hd5696256983_ + (let () (declare (not safe)) (##car _rest5695756965_))) + (_tl5696356985_ + (let () (declare (not safe)) (##cdr _rest5695756965_)))) + (let* ((_hd56988_ _hd5696256983_) + (_rest56990_ _tl5696356985_)) (declare (not safe)) - (_K5695656975_ _rest56985_ _hd56983_))) - (let () (declare (not safe)) (_else5695456968_))))))) + (_K5696156980_ _rest56990_ _hd56988_))) + (let () (declare (not safe)) (_else5695956973_))))))) (define remf - (lambda (_proc56899_ _lst56900_) - (let _lp56902_ ((_rest56904_ _lst56900_) (_r56905_ '())) - (let* ((_rest5690656914_ _rest56904_) - (_else5690856922_ (lambda () _lst56900_)) - (_K5691056928_ - (lambda (_rest56925_ _hd56926_) - (if (_proc56899_ _hd56926_) + (lambda (_proc56904_ _lst56905_) + (let _lp56907_ ((_rest56909_ _lst56905_) (_r56910_ '())) + (let* ((_rest5691156919_ _rest56909_) + (_else5691356927_ (lambda () _lst56905_)) + (_K5691556933_ + (lambda (_rest56930_ _hd56931_) + (if (_proc56904_ _hd56931_) (let () (declare (not safe)) - (foldl1 cons _rest56925_ _r56905_)) - (let ((__tmp63348 + (foldl1 cons _rest56930_ _r56910_)) + (let ((__tmp63353 (let () (declare (not safe)) - (cons _hd56926_ _r56905_)))) + (cons _hd56931_ _r56910_)))) (declare (not safe)) - (_lp56902_ _rest56925_ __tmp63348)))))) - (if (let () (declare (not safe)) (##pair? _rest5690656914_)) - (let ((_hd5691156931_ - (let () (declare (not safe)) (##car _rest5690656914_))) - (_tl5691256933_ - (let () (declare (not safe)) (##cdr _rest5690656914_)))) - (let* ((_hd56936_ _hd5691156931_) - (_rest56938_ _tl5691256933_)) + (_lp56907_ _rest56930_ __tmp63353)))))) + (if (let () (declare (not safe)) (##pair? _rest5691156919_)) + (let ((_hd5691656936_ + (let () (declare (not safe)) (##car _rest5691156919_))) + (_tl5691756938_ + (let () (declare (not safe)) (##cdr _rest5691156919_)))) + (let* ((_hd56941_ _hd5691656936_) + (_rest56943_ _tl5691756938_)) (declare (not safe)) - (_K5691056928_ _rest56938_ _hd56936_))) - (let () (declare (not safe)) (_else5690856922_))))))) - (define 1+ (lambda (_x56897_) (+ _x56897_ '1))) - (define 1- (lambda (_x56895_) (- _x56895_ '1))) - (define fx1+ (lambda (_x56893_) (fx+ _x56893_ '1))) - (define fx1- (lambda (_x56891_) (fx- _x56891_ '1))) + (_K5691556933_ _rest56943_ _hd56941_))) + (let () (declare (not safe)) (_else5691356927_))))))) + (define 1+ (lambda (_x56902_) (+ _x56902_ '1))) + (define 1- (lambda (_x56900_) (- _x56900_ '1))) + (define fx1+ (lambda (_x56898_) (fx+ _x56898_ '1))) + (define fx1- (lambda (_x56896_) (fx- _x56896_ '1))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_x56889_) - (if (fixnum? _x56889_) - (let () (declare (not safe)) (##fx>= _x56889_ '0)) + (lambda (_x56894_) + (if (fixnum? _x56894_) + (let () (declare (not safe)) (##fx>= _x56894_ '0)) '#f))) (define fx>0? - (lambda (_x56887_) - (if (fixnum? _x56887_) - (let () (declare (not safe)) (##fx> _x56887_ '0)) + (lambda (_x56892_) + (if (fixnum? _x56892_) + (let () (declare (not safe)) (##fx> _x56892_ '0)) '#f))) (define fx=0? - (lambda (_x56885_) (let () (declare (not safe)) (eq? _x56885_ '0)))) + (lambda (_x56890_) (let () (declare (not safe)) (eq? _x56890_ '0)))) (define fx<0? - (lambda (_x56883_) - (if (fixnum? _x56883_) - (let () (declare (not safe)) (##fx< _x56883_ '0)) + (lambda (_x56888_) + (if (fixnum? _x56888_) + (let () (declare (not safe)) (##fx< _x56888_ '0)) '#f))) (define fx<=0? - (lambda (_x56881_) - (if (fixnum? _x56881_) - (let () (declare (not safe)) (##fx<= _x56881_ '0)) + (lambda (_x56886_) + (if (fixnum? _x56886_) + (let () (declare (not safe)) (##fx<= _x56886_ '0)) '#f))) (define interned-symbol? - (lambda (_x56879_) - (if (let () (declare (not safe)) (symbol? _x56879_)) - (let ((__tmp63349 (uninterned-symbol? _x56879_))) + (lambda (_x56884_) + (if (let () (declare (not safe)) (symbol? _x56884_)) + (let ((__tmp63354 (uninterned-symbol? _x56884_))) (declare (not safe)) - (not __tmp63349)) + (not __tmp63354)) '#f))) (define display-as-string - (lambda (_x56851_ _port56852_) - (if (or (let () (declare (not safe)) (string? _x56851_)) - (let () (declare (not safe)) (symbol? _x56851_)) - (keyword? _x56851_) - (let () (declare (not safe)) (number? _x56851_)) - (let () (declare (not safe)) (char? _x56851_))) - (display _x56851_ _port56852_) - (if (let () (declare (not safe)) (pair? _x56851_)) + (lambda (_x56856_ _port56857_) + (if (or (let () (declare (not safe)) (string? _x56856_)) + (let () (declare (not safe)) (symbol? _x56856_)) + (keyword? _x56856_) + (let () (declare (not safe)) (number? _x56856_)) + (let () (declare (not safe)) (char? _x56856_))) + (display _x56856_ _port56857_) + (if (let () (declare (not safe)) (pair? _x56856_)) (begin - (let ((__tmp63350 (car _x56851_))) + (let ((__tmp63355 (car _x56856_))) (declare (not safe)) - (display-as-string __tmp63350 _port56852_)) - (let ((__tmp63351 (cdr _x56851_))) + (display-as-string __tmp63355 _port56857_)) + (let ((__tmp63356 (cdr _x56856_))) (declare (not safe)) - (display-as-string __tmp63351 _port56852_))) - (if (let () (declare (not safe)) (vector? _x56851_)) + (display-as-string __tmp63356 _port56857_))) + (if (let () (declare (not safe)) (vector? _x56856_)) (vector-for-each - (lambda (_g5686556867_) + (lambda (_g5687056872_) (let () (declare (not safe)) - (display-as-string _g5686556867_ _port56852_))) - _x56851_) - (if (or (let () (declare (not safe)) (null? _x56851_)) + (display-as-string _g5687056872_ _port56857_))) + _x56856_) + (if (or (let () (declare (not safe)) (null? _x56856_)) (let () (declare (not safe)) - (eq? _x56851_ '#!void)) + (eq? _x56856_ '#!void)) (let () (declare (not safe)) - (eof-object? _x56851_)) - (let () (declare (not safe)) (boolean? _x56851_))) + (eof-object? _x56856_)) + (let () (declare (not safe)) (boolean? _x56856_))) '#!void - (error '"cannot convert as string" _x56851_))))))) + (error '"cannot convert as string" _x56856_))))))) (define as-string__0 - (lambda (_x56839_) - (if (let () (declare (not safe)) (string? _x56839_)) - _x56839_ - (if (let () (declare (not safe)) (symbol? _x56839_)) - (symbol->string _x56839_) - (if (keyword? _x56839_) - (keyword->string _x56839_) + (lambda (_x56844_) + (if (let () (declare (not safe)) (string? _x56844_)) + _x56844_ + (if (let () (declare (not safe)) (symbol? _x56844_)) + (symbol->string _x56844_) + (if (keyword? _x56844_) + (keyword->string _x56844_) (call-with-output-string '() - (lambda (_g5684056842_) + (lambda (_g5684556847_) (let () (declare (not safe)) - (display-as-string _x56839_ _g5684056842_))))))))) + (display-as-string _x56844_ _g5684556847_))))))))) (define as-string__1 - (lambda _args56845_ + (lambda _args56850_ (call-with-output-string '() - (lambda (_g5684656848_) + (lambda (_g5685156853_) (let () (declare (not safe)) - (display-as-string _args56845_ _g5684656848_)))))) + (display-as-string _args56850_ _g5685156853_)))))) (define as-string - (lambda _g63353_ - (let ((_g63352_ (let () (declare (not safe)) (##length _g63353_)))) - (cond ((let () (declare (not safe)) (##fx= _g63352_ 1)) - (apply (lambda (_x56839_) + (lambda _g63358_ + (let ((_g63357_ (let () (declare (not safe)) (##length _g63358_)))) + (cond ((let () (declare (not safe)) (##fx= _g63357_ 1)) + (apply (lambda (_x56844_) (let () (declare (not safe)) - (as-string__0 _x56839_))) - _g63353_)) - (#t (apply as-string__1 _g63353_)) + (as-string__0 _x56844_))) + _g63358_)) + (#t (apply as-string__1 _g63358_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g63353_)))))) + _g63358_)))))) (define make-symbol__0 - (lambda (_x56835_) - (if (interned-symbol? _x56835_) - _x56835_ + (lambda (_x56840_) + (if (interned-symbol? _x56840_) + _x56840_ (string->symbol - (let () (declare (not safe)) (as-string__0 _x56835_)))))) + (let () (declare (not safe)) (as-string__0 _x56840_)))))) (define make-symbol__1 - (lambda _args56837_ (string->symbol (apply as-string _args56837_)))) + (lambda _args56842_ (string->symbol (apply as-string _args56842_)))) (define make-symbol - (lambda _g63355_ - (let ((_g63354_ (let () (declare (not safe)) (##length _g63355_)))) - (cond ((let () (declare (not safe)) (##fx= _g63354_ 1)) - (apply (lambda (_x56835_) + (lambda _g63360_ + (let ((_g63359_ (let () (declare (not safe)) (##length _g63360_)))) + (cond ((let () (declare (not safe)) (##fx= _g63359_ 1)) + (apply (lambda (_x56840_) (let () (declare (not safe)) - (make-symbol__0 _x56835_))) - _g63355_)) - (#t (apply make-symbol__1 _g63355_)) + (make-symbol__0 _x56840_))) + _g63360_)) + (#t (apply make-symbol__1 _g63360_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g63355_)))))) + _g63360_)))))) (define make-keyword__0 - (lambda (_x56831_) - (if (interned-keyword? _x56831_) - _x56831_ + (lambda (_x56836_) + (if (interned-keyword? _x56836_) + _x56836_ (string->keyword - (let () (declare (not safe)) (as-string__0 _x56831_)))))) + (let () (declare (not safe)) (as-string__0 _x56836_)))))) (define make-keyword__1 - (lambda _args56833_ (string->keyword (apply as-string _args56833_)))) + (lambda _args56838_ (string->keyword (apply as-string _args56838_)))) (define make-keyword - (lambda _g63357_ - (let ((_g63356_ (let () (declare (not safe)) (##length _g63357_)))) - (cond ((let () (declare (not safe)) (##fx= _g63356_ 1)) - (apply (lambda (_x56831_) + (lambda _g63362_ + (let ((_g63361_ (let () (declare (not safe)) (##length _g63362_)))) + (cond ((let () (declare (not safe)) (##fx= _g63361_ 1)) + (apply (lambda (_x56836_) (let () (declare (not safe)) - (make-keyword__0 _x56831_))) - _g63357_)) - (#t (apply make-keyword__1 _g63357_)) + (make-keyword__0 _x56836_))) + _g63362_)) + (#t (apply make-keyword__1 _g63362_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g63357_)))))) + _g63362_)))))) (define interned-keyword? - (lambda (_x56829_) - (if (keyword? _x56829_) - (let ((__tmp63358 (uninterned-keyword? _x56829_))) + (lambda (_x56834_) + (if (keyword? _x56834_) + (let ((__tmp63363 (uninterned-keyword? _x56834_))) (declare (not safe)) - (not __tmp63358)) + (not __tmp63363)) '#f))) (define symbol->keyword - (lambda (_sym56827_) - ((if (uninterned-symbol? _sym56827_) + (lambda (_sym56832_) + ((if (uninterned-symbol? _sym56832_) string->uninterned-keyword string->keyword) - (symbol->string _sym56827_)))) + (symbol->string _sym56832_)))) (define keyword->symbol - (lambda (_kw56825_) - ((if (uninterned-keyword? _kw56825_) + (lambda (_kw56830_) + ((if (uninterned-keyword? _kw56830_) string->uninterned-symbol string->symbol) - (keyword->string _kw56825_)))) + (keyword->string _kw56830_)))) (define bytes->string__% - (lambda (_bstr56803_ _enc56804_) - (if (let () (declare (not safe)) (eq? _enc56804_ 'UTF-8)) - (utf8->string _bstr56803_) - (let* ((_in56806_ + (lambda (_bstr56808_ _enc56809_) + (if (let () (declare (not safe)) (eq? _enc56809_ 'UTF-8)) + (utf8->string _bstr56808_) + (let* ((_in56811_ (open-input-u8vector - (let ((__tmp63359 - (let ((__tmp63360 - (let ((__tmp63361 + (let ((__tmp63364 + (let ((__tmp63365 + (let ((__tmp63366 (let () (declare (not safe)) - (cons _bstr56803_ '())))) + (cons _bstr56808_ '())))) (declare (not safe)) - (cons 'init: __tmp63361)))) + (cons 'init: __tmp63366)))) (declare (not safe)) - (cons _enc56804_ __tmp63360)))) + (cons _enc56809_ __tmp63365)))) (declare (not safe)) - (cons 'char-encoding: __tmp63359)))) - (_len56808_ (u8vector-length _bstr56803_)) - (_out56810_ (make-string _len56808_)) - (_n56812_ - (read-substring _out56810_ '0 _len56808_ _in56806_))) - (string-shrink! _out56810_ _n56812_) - _out56810_)))) + (cons 'char-encoding: __tmp63364)))) + (_len56813_ (u8vector-length _bstr56808_)) + (_out56815_ (make-string _len56813_)) + (_n56817_ + (read-substring _out56815_ '0 _len56813_ _in56811_))) + (string-shrink! _out56815_ _n56817_) + _out56815_)))) (define bytes->string__0 - (lambda (_bstr56818_) - (let ((_enc56820_ 'UTF-8)) + (lambda (_bstr56823_) + (let ((_enc56825_ 'UTF-8)) (declare (not safe)) - (bytes->string__% _bstr56818_ _enc56820_)))) + (bytes->string__% _bstr56823_ _enc56825_)))) (define bytes->string - (lambda _g63363_ - (let ((_g63362_ (let () (declare (not safe)) (##length _g63363_)))) - (cond ((let () (declare (not safe)) (##fx= _g63362_ 1)) - (apply (lambda (_bstr56818_) + (lambda _g63368_ + (let ((_g63367_ (let () (declare (not safe)) (##length _g63368_)))) + (cond ((let () (declare (not safe)) (##fx= _g63367_ 1)) + (apply (lambda (_bstr56823_) (let () (declare (not safe)) - (bytes->string__0 _bstr56818_))) - _g63363_)) - ((let () (declare (not safe)) (##fx= _g63362_ 2)) - (apply (lambda (_bstr56822_ _enc56823_) + (bytes->string__0 _bstr56823_))) + _g63368_)) + ((let () (declare (not safe)) (##fx= _g63367_ 2)) + (apply (lambda (_bstr56827_ _enc56828_) (let () (declare (not safe)) - (bytes->string__% _bstr56822_ _enc56823_))) - _g63363_)) + (bytes->string__% _bstr56827_ _enc56828_))) + _g63368_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g63363_)))))) + _g63368_)))))) (define string->bytes__% - (lambda (_str56789_ _enc56790_) - (if (let () (declare (not safe)) (eq? _enc56790_ 'UTF-8)) - (string->utf8 _str56789_) + (lambda (_str56794_ _enc56795_) + (if (let () (declare (not safe)) (eq? _enc56795_ 'UTF-8)) + (string->utf8 _str56794_) (substring->bytes - _str56789_ + _str56794_ '0 - (string-length _str56789_) - _enc56790_)))) + (string-length _str56794_) + _enc56795_)))) (define string->bytes__0 - (lambda (_str56795_) - (let ((_enc56797_ 'UTF-8)) + (lambda (_str56800_) + (let ((_enc56802_ 'UTF-8)) (declare (not safe)) - (string->bytes__% _str56795_ _enc56797_)))) + (string->bytes__% _str56800_ _enc56802_)))) (define string->bytes - (lambda _g63365_ - (let ((_g63364_ (let () (declare (not safe)) (##length _g63365_)))) - (cond ((let () (declare (not safe)) (##fx= _g63364_ 1)) - (apply (lambda (_str56795_) + (lambda _g63370_ + (let ((_g63369_ (let () (declare (not safe)) (##length _g63370_)))) + (cond ((let () (declare (not safe)) (##fx= _g63369_ 1)) + (apply (lambda (_str56800_) (let () (declare (not safe)) - (string->bytes__0 _str56795_))) - _g63365_)) - ((let () (declare (not safe)) (##fx= _g63364_ 2)) - (apply (lambda (_str56799_ _enc56800_) + (string->bytes__0 _str56800_))) + _g63370_)) + ((let () (declare (not safe)) (##fx= _g63369_ 2)) + (apply (lambda (_str56804_ _enc56805_) (let () (declare (not safe)) - (string->bytes__% _str56799_ _enc56800_))) - _g63365_)) + (string->bytes__% _str56804_ _enc56805_))) + _g63370_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g63365_)))))) + _g63370_)))))) (define substring->bytes__% - (lambda (_str56767_ _start56768_ _end56769_ _enc56770_) - (if (let () (declare (not safe)) (eq? _enc56770_ 'UTF-8)) - (string->utf8 _str56767_ _start56768_ _end56769_) - (let ((_out56772_ + (lambda (_str56772_ _start56773_ _end56774_ _enc56775_) + (if (let () (declare (not safe)) (eq? _enc56775_ 'UTF-8)) + (string->utf8 _str56772_ _start56773_ _end56774_) + (let ((_out56777_ (open-output-u8vector - (let ((__tmp63366 + (let ((__tmp63371 (let () (declare (not safe)) - (cons _enc56770_ '())))) + (cons _enc56775_ '())))) (declare (not safe)) - (cons 'char-encoding: __tmp63366))))) - (write-substring _str56767_ _start56768_ _end56769_ _out56772_) - (get-output-u8vector _out56772_))))) + (cons 'char-encoding: __tmp63371))))) + (write-substring _str56772_ _start56773_ _end56774_ _out56777_) + (get-output-u8vector _out56777_))))) (define substring->bytes__0 - (lambda (_str56777_ _start56778_ _end56779_) - (let ((_enc56781_ 'UTF-8)) + (lambda (_str56782_ _start56783_ _end56784_) + (let ((_enc56786_ 'UTF-8)) (declare (not safe)) (substring->bytes__% - _str56777_ - _start56778_ - _end56779_ - _enc56781_)))) + _str56782_ + _start56783_ + _end56784_ + _enc56786_)))) (define substring->bytes - (lambda _g63368_ - (let ((_g63367_ (let () (declare (not safe)) (##length _g63368_)))) - (cond ((let () (declare (not safe)) (##fx= _g63367_ 3)) - (apply (lambda (_str56777_ _start56778_ _end56779_) + (lambda _g63373_ + (let ((_g63372_ (let () (declare (not safe)) (##length _g63373_)))) + (cond ((let () (declare (not safe)) (##fx= _g63372_ 3)) + (apply (lambda (_str56782_ _start56783_ _end56784_) (let () (declare (not safe)) (substring->bytes__0 - _str56777_ - _start56778_ - _end56779_))) - _g63368_)) - ((let () (declare (not safe)) (##fx= _g63367_ 4)) - (apply (lambda (_str56783_ _start56784_ _end56785_ _enc56786_) + _str56782_ + _start56783_ + _end56784_))) + _g63373_)) + ((let () (declare (not safe)) (##fx= _g63372_ 4)) + (apply (lambda (_str56788_ _start56789_ _end56790_ _enc56791_) (let () (declare (not safe)) (substring->bytes__% - _str56783_ - _start56784_ - _end56785_ - _enc56786_))) - _g63368_)) + _str56788_ + _start56789_ + _end56790_ + _enc56791_))) + _g63373_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g63368_)))))) + _g63373_)))))) (define string-empty? - (lambda (_str56764_) - (let ((__tmp63369 (string-length _str56764_))) + (lambda (_str56769_) + (let ((__tmp63374 (string-length _str56769_))) (declare (not safe)) - (##fxzero? __tmp63369)))) + (##fxzero? __tmp63374)))) (define string-prefix? - (lambda (_prefix56754_ _str56755_) - (let ((_str-len56757_ (string-length _str56755_)) - (_prefix-len56758_ (string-length _prefix56754_))) + (lambda (_prefix56759_ _str56760_) + (let ((_str-len56762_ (string-length _str56760_)) + (_prefix-len56763_ (string-length _prefix56759_))) (if (let () (declare (not safe)) - (##fx<= _prefix-len56758_ _str-len56757_)) - (let _lp56760_ ((_i56762_ '0)) + (##fx<= _prefix-len56763_ _str-len56762_)) + (let _lp56765_ ((_i56767_ '0)) (if (let () (declare (not safe)) - (##fx< _i56762_ _prefix-len56758_)) - (if (let ((__tmp63372 + (##fx< _i56767_ _prefix-len56763_)) + (if (let ((__tmp63377 (let () (declare (not safe)) - (##string-ref _str56755_ _i56762_))) - (__tmp63371 + (##string-ref _str56760_ _i56767_))) + (__tmp63376 (let () (declare (not safe)) - (##string-ref _prefix56754_ _i56762_)))) + (##string-ref _prefix56759_ _i56767_)))) (declare (not safe)) - (eq? __tmp63372 __tmp63371)) - (let ((__tmp63370 + (eq? __tmp63377 __tmp63376)) + (let ((__tmp63375 (let () (declare (not safe)) - (##fx+ _i56762_ '1)))) + (##fx+ _i56767_ '1)))) (declare (not safe)) - (_lp56760_ __tmp63370)) + (_lp56765_ __tmp63375)) '#f) '#t)) '#f)))) (define string-index__% - (lambda (_str56732_ _char56733_ _start56734_) - (let ((_len56736_ (string-length _str56732_))) - (let _lp56738_ ((_k56740_ _start56734_)) - (if (let () (declare (not safe)) (##fx< _k56740_ _len56736_)) - (if (let ((__tmp63374 + (lambda (_str56737_ _char56738_ _start56739_) + (let ((_len56741_ (string-length _str56737_))) + (let _lp56743_ ((_k56745_ _start56739_)) + (if (let () (declare (not safe)) (##fx< _k56745_ _len56741_)) + (if (let ((__tmp63379 (let () (declare (not safe)) - (##string-ref _str56732_ _k56740_)))) + (##string-ref _str56737_ _k56745_)))) (declare (not safe)) - (eq? _char56733_ __tmp63374)) - _k56740_ - (let ((__tmp63373 - (let () (declare (not safe)) (##fx+ _k56740_ '1)))) + (eq? _char56738_ __tmp63379)) + _k56745_ + (let ((__tmp63378 + (let () (declare (not safe)) (##fx+ _k56745_ '1)))) (declare (not safe)) - (_lp56738_ __tmp63373))) + (_lp56743_ __tmp63378))) '#f))))) (define string-index__0 - (lambda (_str56745_ _char56746_) - (let ((_start56748_ '0)) + (lambda (_str56750_ _char56751_) + (let ((_start56753_ '0)) (declare (not safe)) - (string-index__% _str56745_ _char56746_ _start56748_)))) + (string-index__% _str56750_ _char56751_ _start56753_)))) (define string-index - (lambda _g63376_ - (let ((_g63375_ (let () (declare (not safe)) (##length _g63376_)))) - (cond ((let () (declare (not safe)) (##fx= _g63375_ 2)) - (apply (lambda (_str56745_ _char56746_) + (lambda _g63381_ + (let ((_g63380_ (let () (declare (not safe)) (##length _g63381_)))) + (cond ((let () (declare (not safe)) (##fx= _g63380_ 2)) + (apply (lambda (_str56750_ _char56751_) (let () (declare (not safe)) - (string-index__0 _str56745_ _char56746_))) - _g63376_)) - ((let () (declare (not safe)) (##fx= _g63375_ 3)) - (apply (lambda (_str56750_ _char56751_ _start56752_) + (string-index__0 _str56750_ _char56751_))) + _g63381_)) + ((let () (declare (not safe)) (##fx= _g63380_ 3)) + (apply (lambda (_str56755_ _char56756_ _start56757_) (let () (declare (not safe)) (string-index__% - _str56750_ - _char56751_ - _start56752_))) - _g63376_)) + _str56755_ + _char56756_ + _start56757_))) + _g63381_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g63376_)))))) + _g63381_)))))) (define string-rindex__% - (lambda (_str56703_ _char56704_ _start56705_) - (let* ((_len56707_ (string-length _str56703_)) - (_start56712_ - (let ((_$e56709_ _start56705_)) - (if _$e56709_ - _$e56709_ - (let () (declare (not safe)) (##fx- _len56707_ '1)))))) - (let _lp56715_ ((_k56717_ _start56712_)) - (if (let () (declare (not safe)) (##fx>= _k56717_ '0)) - (if (let ((__tmp63378 + (lambda (_str56708_ _char56709_ _start56710_) + (let* ((_len56712_ (string-length _str56708_)) + (_start56717_ + (let ((_$e56714_ _start56710_)) + (if _$e56714_ + _$e56714_ + (let () (declare (not safe)) (##fx- _len56712_ '1)))))) + (let _lp56720_ ((_k56722_ _start56717_)) + (if (let () (declare (not safe)) (##fx>= _k56722_ '0)) + (if (let ((__tmp63383 (let () (declare (not safe)) - (##string-ref _str56703_ _k56717_)))) + (##string-ref _str56708_ _k56722_)))) (declare (not safe)) - (eq? _char56704_ __tmp63378)) - _k56717_ - (let ((__tmp63377 - (let () (declare (not safe)) (##fx- _k56717_ '1)))) + (eq? _char56709_ __tmp63383)) + _k56722_ + (let ((__tmp63382 + (let () (declare (not safe)) (##fx- _k56722_ '1)))) (declare (not safe)) - (_lp56715_ __tmp63377))) + (_lp56720_ __tmp63382))) '#f))))) (define string-rindex__0 - (lambda (_str56722_ _char56723_) - (let ((_start56725_ '#f)) + (lambda (_str56727_ _char56728_) + (let ((_start56730_ '#f)) (declare (not safe)) - (string-rindex__% _str56722_ _char56723_ _start56725_)))) + (string-rindex__% _str56727_ _char56728_ _start56730_)))) (define string-rindex - (lambda _g63380_ - (let ((_g63379_ (let () (declare (not safe)) (##length _g63380_)))) - (cond ((let () (declare (not safe)) (##fx= _g63379_ 2)) - (apply (lambda (_str56722_ _char56723_) + (lambda _g63385_ + (let ((_g63384_ (let () (declare (not safe)) (##length _g63385_)))) + (cond ((let () (declare (not safe)) (##fx= _g63384_ 2)) + (apply (lambda (_str56727_ _char56728_) (let () (declare (not safe)) - (string-rindex__0 _str56722_ _char56723_))) - _g63380_)) - ((let () (declare (not safe)) (##fx= _g63379_ 3)) - (apply (lambda (_str56727_ _char56728_ _start56729_) + (string-rindex__0 _str56727_ _char56728_))) + _g63385_)) + ((let () (declare (not safe)) (##fx= _g63384_ 3)) + (apply (lambda (_str56732_ _char56733_ _start56734_) (let () (declare (not safe)) (string-rindex__% - _str56727_ - _char56728_ - _start56729_))) - _g63380_)) + _str56732_ + _char56733_ + _start56734_))) + _g63385_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g63380_)))))) + _g63385_)))))) (define string-split - (lambda (_str56687_ _char56688_) - (let ((_len56690_ (string-length _str56687_))) - (let _lp56692_ ((_start56694_ '0) (_r56695_ '())) - (let ((_$e56697_ + (lambda (_str56692_ _char56693_) + (let ((_len56695_ (string-length _str56692_))) + (let _lp56697_ ((_start56699_ '0) (_r56700_ '())) + (let ((_$e56702_ (let () (declare (not safe)) - (string-index _str56687_ _char56688_ _start56694_)))) - (if _$e56697_ - ((lambda (_end56700_) - (let ((__tmp63384 + (string-index _str56692_ _char56693_ _start56699_)))) + (if _$e56702_ + ((lambda (_end56705_) + (let ((__tmp63389 (let () (declare (not safe)) - (##fx+ _end56700_ '1))) - (__tmp63382 - (let ((__tmp63383 + (##fx+ _end56705_ '1))) + (__tmp63387 + (let ((__tmp63388 (let () (declare (not safe)) (##substring - _str56687_ - _start56694_ - _end56700_)))) + _str56692_ + _start56699_ + _end56705_)))) (declare (not safe)) - (cons __tmp63383 _r56695_)))) + (cons __tmp63388 _r56700_)))) (declare (not safe)) - (_lp56692_ __tmp63384 __tmp63382))) - _$e56697_) + (_lp56697_ __tmp63389 __tmp63387))) + _$e56702_) (if (let () (declare (not safe)) - (##fx< _start56694_ _len56690_)) - (let ((__tmp63381 + (##fx< _start56699_ _len56695_)) + (let ((__tmp63386 (list (let () (declare (not safe)) (##substring - _str56687_ - _start56694_ - _len56690_))))) + _str56692_ + _start56699_ + _len56695_))))) (declare (not safe)) - (foldl1 cons __tmp63381 _r56695_)) - (reverse _r56695_)))))))) + (foldl1 cons __tmp63386 _r56700_)) + (reverse _r56700_)))))))) (define string-join - (lambda (_strs56592_ _join56593_) - (letrec ((_join-length56595_ - (lambda (_strs56646_ _jlen56647_) - (let _lp56649_ ((_rest56651_ _strs56646_) (_len56652_ '0)) - (let* ((_rest5665356661_ _rest56651_) - (_else5665556669_ (lambda () '0)) - (_K5665756675_ - (lambda (_rest56672_ _hd56673_) + (lambda (_strs56597_ _join56598_) + (letrec ((_join-length56600_ + (lambda (_strs56651_ _jlen56652_) + (let _lp56654_ ((_rest56656_ _strs56651_) (_len56657_ '0)) + (let* ((_rest5665856666_ _rest56656_) + (_else5666056674_ (lambda () '0)) + (_K5666256680_ + (lambda (_rest56677_ _hd56678_) (if (let () (declare (not safe)) - (string? _hd56673_)) + (string? _hd56678_)) (if (let () (declare (not safe)) - (pair? _rest56672_)) - (let ((__tmp63386 - (let ((__tmp63387 + (pair? _rest56677_)) + (let ((__tmp63391 + (let ((__tmp63392 (let () (declare (not safe)) (##string-length - _hd56673_)))) + _hd56678_)))) (declare (not safe)) - (##fx+ __tmp63387 - _jlen56647_ - _len56652_)))) + (##fx+ __tmp63392 + _jlen56652_ + _len56657_)))) (declare (not safe)) - (_lp56649_ _rest56672_ __tmp63386)) - (let ((__tmp63385 + (_lp56654_ _rest56677_ __tmp63391)) + (let ((__tmp63390 (let () (declare (not safe)) - (##string-length _hd56673_)))) + (##string-length _hd56678_)))) (declare (not safe)) - (##fx+ __tmp63385 _len56652_))) - (error '"expected string" _hd56673_))))) + (##fx+ __tmp63390 _len56657_))) + (error '"expected string" _hd56678_))))) (if (let () (declare (not safe)) - (##pair? _rest5665356661_)) - (let ((_hd5665856678_ + (##pair? _rest5665856666_)) + (let ((_hd5666356683_ (let () (declare (not safe)) - (##car _rest5665356661_))) - (_tl5665956680_ + (##car _rest5665856666_))) + (_tl5666456685_ (let () (declare (not safe)) - (##cdr _rest5665356661_)))) - (let* ((_hd56683_ _hd5665856678_) - (_rest56685_ _tl5665956680_)) + (##cdr _rest5665856666_)))) + (let* ((_hd56688_ _hd5666356683_) + (_rest56690_ _tl5666456685_)) (declare (not safe)) - (_K5665756675_ _rest56685_ _hd56683_))) + (_K5666256680_ _rest56690_ _hd56688_))) (let () (declare (not safe)) - (_else5665556669_)))))))) - (let* ((_join56597_ - (if (let () (declare (not safe)) (char? _join56593_)) - (string _join56593_) - (if (let () (declare (not safe)) (string? _join56593_)) - _join56593_ - (error '"expected string or char" _join56593_)))) - (_jlen56599_ - (let () (declare (not safe)) (##string-length _join56597_))) - (_olen56601_ + (_else5666056674_)))))))) + (let* ((_join56602_ + (if (let () (declare (not safe)) (char? _join56598_)) + (string _join56598_) + (if (let () (declare (not safe)) (string? _join56598_)) + _join56598_ + (error '"expected string or char" _join56598_)))) + (_jlen56604_ + (let () (declare (not safe)) (##string-length _join56602_))) + (_olen56606_ (let () (declare (not safe)) - (_join-length56595_ _strs56592_ _jlen56599_))) - (_ostr56603_ (make-string _olen56601_))) - (let _lp56606_ ((_rest56608_ _strs56592_) (_k56609_ '0)) - (let* ((_rest5661056618_ _rest56608_) - (_else5661256626_ (lambda () '"")) - (_K5661456634_ - (lambda (_rest56629_ _hd56630_) - (let ((_hdlen56632_ + (_join-length56600_ _strs56597_ _jlen56604_))) + (_ostr56608_ (make-string _olen56606_))) + (let _lp56611_ ((_rest56613_ _strs56597_) (_k56614_ '0)) + (let* ((_rest5661556623_ _rest56613_) + (_else5661756631_ (lambda () '"")) + (_K5661956639_ + (lambda (_rest56634_ _hd56635_) + (let ((_hdlen56637_ (let () (declare (not safe)) - (##string-length _hd56630_)))) - (if (let () (declare (not safe)) (pair? _rest56629_)) + (##string-length _hd56635_)))) + (if (let () (declare (not safe)) (pair? _rest56634_)) (begin (let () (declare (not safe)) (##substring-move! - _hd56630_ + _hd56635_ '0 - _hdlen56632_ - _ostr56603_ - _k56609_)) - (let ((__tmp63388 + _hdlen56637_ + _ostr56608_ + _k56614_)) + (let ((__tmp63393 (let () (declare (not safe)) - (##fx+ _k56609_ _hdlen56632_)))) + (##fx+ _k56614_ _hdlen56637_)))) (declare (not safe)) (##substring-move! - _join56597_ + _join56602_ '0 - _jlen56599_ - _ostr56603_ - __tmp63388)) - (let ((__tmp63389 + _jlen56604_ + _ostr56608_ + __tmp63393)) + (let ((__tmp63394 (let () (declare (not safe)) - (##fx+ _k56609_ - _hdlen56632_ - _jlen56599_)))) + (##fx+ _k56614_ + _hdlen56637_ + _jlen56604_)))) (declare (not safe)) - (_lp56606_ _rest56629_ __tmp63389))) + (_lp56611_ _rest56634_ __tmp63394))) (begin (let () (declare (not safe)) (##substring-move! - _hd56630_ + _hd56635_ '0 - _hdlen56632_ - _ostr56603_ - _k56609_)) - _ostr56603_)))))) - (if (let () (declare (not safe)) (##pair? _rest5661056618_)) - (let ((_hd5661556637_ + _hdlen56637_ + _ostr56608_ + _k56614_)) + _ostr56608_)))))) + (if (let () (declare (not safe)) (##pair? _rest5661556623_)) + (let ((_hd5662056642_ (let () (declare (not safe)) - (##car _rest5661056618_))) - (_tl5661656639_ + (##car _rest5661556623_))) + (_tl5662156644_ (let () (declare (not safe)) - (##cdr _rest5661056618_)))) - (let* ((_hd56642_ _hd5661556637_) - (_rest56644_ _tl5661656639_)) + (##cdr _rest5661556623_)))) + (let* ((_hd56647_ _hd5662056642_) + (_rest56649_ _tl5662156644_)) (declare (not safe)) - (_K5661456634_ _rest56644_ _hd56642_))) - (let () (declare (not safe)) (_else5661256626_))))))))) + (_K5661956639_ _rest56649_ _hd56647_))) + (let () (declare (not safe)) (_else5661756631_))))))))) (define read-u8vector - (lambda (_bytes56589_ _port56590_) + (lambda (_bytes56594_ _port56595_) (read-subu8vector - _bytes56589_ + _bytes56594_ '0 - (u8vector-length _bytes56589_) - _port56590_))) + (u8vector-length _bytes56594_) + _port56595_))) (define write-u8vector - (lambda (_bytes56586_ _port56587_) + (lambda (_bytes56591_ _port56592_) (write-subu8vector - _bytes56586_ + _bytes56591_ '0 - (u8vector-length _bytes56586_) - _port56587_))) + (u8vector-length _bytes56591_) + _port56592_))) (define read-string - (lambda (_str56583_ _port56584_) - (read-substring _str56583_ '0 (string-length _str56583_) _port56584_))) + (lambda (_str56588_ _port56589_) + (read-substring _str56588_ '0 (string-length _str56588_) _port56589_))) (define write-string - (lambda (_str56580_ _port56581_) + (lambda (_str56585_ _port56586_) (write-substring - _str56580_ + _str56585_ '0 - (string-length _str56580_) - _port56581_))) + (string-length _str56585_) + _port56586_))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_tag56551_ - _dbg-exprs56552_ - _dbg-thunks56553_ - _expr56554_ - _thunk56555_) - (letrec ((_fo56557_ + (lambda (_tag56556_ + _dbg-exprs56557_ + _dbg-thunks56558_ + _expr56559_ + _thunk56560_) + (letrec ((_fo56562_ (lambda () (force-output (current-error-port)) (force-output (current-output-port)))) - (_d56558_ - (lambda (_x56566_) (display _x56566_ (current-error-port)))) - (_p56559_ (DBG-printer)) - (_w56560_ - (lambda (_x56568_) (_p56559_ _x56568_ (current-error-port)))) - (_n56561_ (lambda () (newline (current-error-port)))) - (_v56562_ - (lambda (_l56571_) + (_d56563_ + (lambda (_x56571_) (display _x56571_ (current-error-port)))) + (_p56564_ (DBG-printer)) + (_w56565_ + (lambda (_x56573_) (_p56564_ _x56573_ (current-error-port)))) + (_n56566_ (lambda () (newline (current-error-port)))) + (_v56567_ + (lambda (_l56576_) (for-each - (lambda (_x56573_) - (let () (declare (not safe)) (_d56558_ '" ")) - (let () (declare (not safe)) (_w56560_ _x56573_))) - _l56571_) - (let () (declare (not safe)) (_n56561_)))) - (_x56563_ - (lambda (_expr56575_ _thunk56576_) - (let () (declare (not safe)) (_d56558_ '" ")) - (let () (declare (not safe)) (_w56560_ _expr56575_)) - (let () (declare (not safe)) (_d56558_ '" =>")) + (lambda (_x56578_) + (let () (declare (not safe)) (_d56563_ '" ")) + (let () (declare (not safe)) (_w56565_ _x56578_))) + _l56576_) + (let () (declare (not safe)) (_n56566_)))) + (_x56568_ + (lambda (_expr56580_ _thunk56581_) + (let () (declare (not safe)) (_d56563_ '" ")) + (let () (declare (not safe)) (_w56565_ _expr56580_)) + (let () (declare (not safe)) (_d56563_ '" =>")) (call-with-values - _thunk56576_ - (lambda _x56578_ - (let () (declare (not safe)) (_v56562_ _x56578_)) - (apply values _x56578_)))))) - (if _tag56551_ + _thunk56581_ + (lambda _x56583_ + (let () (declare (not safe)) (_v56567_ _x56583_)) + (apply values _x56583_)))))) + (if _tag56556_ (begin - (if (let () (declare (not safe)) (eq? _tag56551_ '#!void)) + (if (let () (declare (not safe)) (eq? _tag56556_ '#!void)) '#!void (begin - (let () (declare (not safe)) (_d56558_ _tag56551_)) - (let () (declare (not safe)) (_n56561_)))) - (for-each _x56563_ _dbg-exprs56552_ _dbg-thunks56553_) - (if _thunk56555_ + (let () (declare (not safe)) (_d56563_ _tag56556_)) + (let () (declare (not safe)) (_n56566_)))) + (for-each _x56568_ _dbg-exprs56557_ _dbg-thunks56558_) + (if _thunk56560_ (let () (declare (not safe)) - (_x56563_ _expr56554_ _thunk56555_)) + (_x56568_ _expr56559_ _thunk56560_)) '#!void)) - (if _thunk56555_ (_thunk56555_) '#!void))))))) + (if _thunk56560_ (_thunk56560_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util__1.scm b/src/bootstrap/gerbil/runtime/util__1.scm index ec9d1a096..f12f81cbb 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]#_g63677_| + (define |[1]#_g63682_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g63678_| + (define |[1]#_g63683_| (##structure gx#syntax-quote::t 'quote @@ -16,2316 +16,2316 @@ '())) (begin (define |[:0:]#defassget| - (lambda (_$stx55130_) - (let* ((_g5513455152_ - (lambda (_g5513555148_) + (lambda (_$stx55135_) + (let* ((_g5513955157_ + (lambda (_g5514055153_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5513555148_))) - (_g5513355208_ - (lambda (_g5513555156_) - (if (gx#stx-pair? _g5513555156_) - (let ((_e5514055159_ (gx#syntax-e _g5513555156_))) - (let ((_hd5513955163_ + _g5514055153_))) + (_g5513855213_ + (lambda (_g5514055161_) + (if (gx#stx-pair? _g5514055161_) + (let ((_e5514555164_ (gx#syntax-e _g5514055161_))) + (let ((_hd5514455168_ (let () (declare (not safe)) - (##car _e5514055159_))) - (_tl5513855166_ + (##car _e5514555164_))) + (_tl5514355171_ (let () (declare (not safe)) - (##cdr _e5514055159_)))) - (if (gx#stx-pair? _tl5513855166_) - (let ((_e5514355169_ - (gx#syntax-e _tl5513855166_))) - (let ((_hd5514255173_ + (##cdr _e5514555164_)))) + (if (gx#stx-pair? _tl5514355171_) + (let ((_e5514855174_ + (gx#syntax-e _tl5514355171_))) + (let ((_hd5514755178_ (let () (declare (not safe)) - (##car _e5514355169_))) - (_tl5514155176_ + (##car _e5514855174_))) + (_tl5514655181_ (let () (declare (not safe)) - (##cdr _e5514355169_)))) - (if (gx#stx-pair? _tl5514155176_) - (let ((_e5514655179_ - (gx#syntax-e _tl5514155176_))) - (let ((_hd5514555183_ + (##cdr _e5514855174_)))) + (if (gx#stx-pair? _tl5514655181_) + (let ((_e5515155184_ + (gx#syntax-e _tl5514655181_))) + (let ((_hd5515055188_ (let () (declare (not safe)) - (##car _e5514655179_))) - (_tl5514455186_ + (##car _e5515155184_))) + (_tl5514955191_ (let () (declare (not safe)) - (##cdr _e5514655179_)))) - (if (gx#stx-null? _tl5514455186_) - ((lambda (_L55189_ _L55191_) - (let ((__tmp63438 + (##cdr _e5515155184_)))) + (if (gx#stx-null? _tl5514955191_) + ((lambda (_L55194_ _L55196_) + (let ((__tmp63443 (gx#datum->syntax '#f 'def)) - (__tmp63390 - (let ((__tmp63429 - (let ((__tmp63430 + (__tmp63395 + (let ((__tmp63434 + (let ((__tmp63435 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp63437 (gx#datum->syntax '#f 'key)) - (__tmp63431 - (let ((__tmp63436 + (let ((__tmp63442 (gx#datum->syntax '#f 'key)) + (__tmp63436 + (let ((__tmp63441 (gx#datum->syntax '#f 'lst)) - (__tmp63432 - (let ((__tmp63433 - (let ((__tmp63435 + (__tmp63437 + (let ((__tmp63438 + (let ((__tmp63440 (gx#datum->syntax '#f 'default)) - (__tmp63434 + (__tmp63439 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp63435 - __tmp63434)))) + (cons __tmp63440 + __tmp63439)))) (declare (not safe)) - (cons __tmp63433 '())))) + (cons __tmp63438 '())))) (declare (not safe)) - (cons __tmp63436 __tmp63432)))) + (cons __tmp63441 __tmp63437)))) (declare (not safe)) - (cons __tmp63437 __tmp63431)))) + (cons __tmp63442 __tmp63436)))) (declare (not safe)) - (cons _L55191_ __tmp63430))) - (__tmp63391 - (let ((__tmp63392 - (let ((__tmp63428 (gx#datum->syntax '#f 'cond)) - (__tmp63393 - (let ((__tmp63410 - (let ((__tmp63415 - (let ((__tmp63427 + (cons _L55196_ __tmp63435))) + (__tmp63396 + (let ((__tmp63397 + (let ((__tmp63433 (gx#datum->syntax '#f 'cond)) + (__tmp63398 + (let ((__tmp63415 + (let ((__tmp63420 + (let ((__tmp63432 (gx#datum->syntax '#f 'and)) - (__tmp63416 - (let ((__tmp63423 + (__tmp63421 + (let ((__tmp63428 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp63426 (gx#datum->syntax '#f 'pair?)) - (__tmp63424 - (let ((__tmp63425 (gx#datum->syntax '#f 'lst))) + (let ((__tmp63431 (gx#datum->syntax '#f 'pair?)) + (__tmp63429 + (let ((__tmp63430 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp63425 '())))) + (cons __tmp63430 '())))) (declare (not safe)) - (cons __tmp63426 __tmp63424))) - (__tmp63417 - (let ((__tmp63418 - (let ((__tmp63419 - (let ((__tmp63422 + (cons __tmp63431 __tmp63429))) + (__tmp63422 + (let ((__tmp63423 + (let ((__tmp63424 + (let ((__tmp63427 (gx#datum->syntax '#f 'key)) - (__tmp63420 - (let ((__tmp63421 + (__tmp63425 + (let ((__tmp63426 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp63421 '())))) + (cons __tmp63426 '())))) (declare (not safe)) - (cons __tmp63422 __tmp63420)))) + (cons __tmp63427 __tmp63425)))) (declare (not safe)) - (cons _L55189_ __tmp63419)))) + (cons _L55194_ __tmp63424)))) (declare (not safe)) - (cons __tmp63418 '())))) + (cons __tmp63423 '())))) (declare (not safe)) - (cons __tmp63423 __tmp63417)))) + (cons __tmp63428 __tmp63422)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63427 - __tmp63416))) - (__tmp63411 - (let ((__tmp63414 + (cons __tmp63432 + __tmp63421))) + (__tmp63416 + (let ((__tmp63419 (gx#datum->syntax '#f '=>)) - (__tmp63412 - (let ((__tmp63413 + (__tmp63417 + (let ((__tmp63418 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cdr))) (declare (not safe)) - (cons __tmp63413 '())))) + (cons __tmp63418 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63414 - __tmp63412)))) + (cons __tmp63419 + __tmp63417)))) (declare (not safe)) - (cons __tmp63415 __tmp63411))) - (__tmp63394 - (let ((__tmp63400 - (let ((__tmp63406 - (let ((__tmp63409 + (cons __tmp63420 __tmp63416))) + (__tmp63399 + (let ((__tmp63405 + (let ((__tmp63411 + (let ((__tmp63414 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp63407 - (let ((__tmp63408 (gx#datum->syntax '#f 'default))) + (__tmp63412 + (let ((__tmp63413 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp63408 '())))) + (cons __tmp63413 '())))) (declare (not safe)) - (cons __tmp63409 __tmp63407))) - (__tmp63401 - (let ((__tmp63402 - (let ((__tmp63405 (gx#datum->syntax '#f 'default)) - (__tmp63403 - (let ((__tmp63404 (gx#datum->syntax '#f 'key))) + (cons __tmp63414 __tmp63412))) + (__tmp63406 + (let ((__tmp63407 + (let ((__tmp63410 (gx#datum->syntax '#f 'default)) + (__tmp63408 + (let ((__tmp63409 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp63404 '())))) + (cons __tmp63409 '())))) (declare (not safe)) - (cons __tmp63405 __tmp63403)))) + (cons __tmp63410 __tmp63408)))) (declare (not safe)) - (cons __tmp63402 '())))) + (cons __tmp63407 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63406 - __tmp63401))) - (__tmp63395 - (let ((__tmp63396 - (let ((__tmp63399 + (cons __tmp63411 + __tmp63406))) + (__tmp63400 + (let ((__tmp63401 + (let ((__tmp63404 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'else)) - (__tmp63397 - (let ((__tmp63398 (gx#datum->syntax '#f 'default))) + (__tmp63402 + (let ((__tmp63403 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp63398 '())))) + (cons __tmp63403 '())))) (declare (not safe)) - (cons __tmp63399 __tmp63397)))) + (cons __tmp63404 __tmp63402)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63396 '())))) + (cons __tmp63401 '())))) (declare (not safe)) - (cons __tmp63400 __tmp63395)))) + (cons __tmp63405 __tmp63400)))) (declare (not safe)) - (cons __tmp63410 __tmp63394)))) + (cons __tmp63415 __tmp63399)))) (declare (not safe)) - (cons __tmp63428 __tmp63393)))) + (cons __tmp63433 __tmp63398)))) (declare (not safe)) - (cons __tmp63392 '())))) + (cons __tmp63397 '())))) (declare (not safe)) - (cons __tmp63429 __tmp63391)))) + (cons __tmp63434 __tmp63396)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63438 - __tmp63390))) - _hd5514555183_ - _hd5514255173_) - (_g5513455152_ _g5513555156_)))) - (_g5513455152_ _g5513555156_)))) - (_g5513455152_ _g5513555156_)))) - (_g5513455152_ _g5513555156_))))) - (_g5513355208_ _$stx55130_)))) + (cons __tmp63443 + __tmp63395))) + _hd5515055188_ + _hd5514755178_) + (_g5513955157_ _g5514055161_)))) + (_g5513955157_ _g5514055161_)))) + (_g5513955157_ _g5514055161_)))) + (_g5513955157_ _g5514055161_))))) + (_g5513855213_ _$stx55135_)))) (define |[:0:]#defpget| - (lambda (_$stx55212_) - (let* ((_g5521655234_ - (lambda (_g5521755230_) + (lambda (_$stx55217_) + (let* ((_g5522155239_ + (lambda (_g5522255235_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5521755230_))) - (_g5521555289_ - (lambda (_g5521755238_) - (if (gx#stx-pair? _g5521755238_) - (let ((_e5522255241_ (gx#syntax-e _g5521755238_))) - (let ((_hd5522155245_ + _g5522255235_))) + (_g5522055294_ + (lambda (_g5522255243_) + (if (gx#stx-pair? _g5522255243_) + (let ((_e5522755246_ (gx#syntax-e _g5522255243_))) + (let ((_hd5522655250_ (let () (declare (not safe)) - (##car _e5522255241_))) - (_tl5522055248_ + (##car _e5522755246_))) + (_tl5522555253_ (let () (declare (not safe)) - (##cdr _e5522255241_)))) - (if (gx#stx-pair? _tl5522055248_) - (let ((_e5522555251_ - (gx#syntax-e _tl5522055248_))) - (let ((_hd5522455255_ + (##cdr _e5522755246_)))) + (if (gx#stx-pair? _tl5522555253_) + (let ((_e5523055256_ + (gx#syntax-e _tl5522555253_))) + (let ((_hd5522955260_ (let () (declare (not safe)) - (##car _e5522555251_))) - (_tl5522355258_ + (##car _e5523055256_))) + (_tl5522855263_ (let () (declare (not safe)) - (##cdr _e5522555251_)))) - (if (gx#stx-pair? _tl5522355258_) - (let ((_e5522855261_ - (gx#syntax-e _tl5522355258_))) - (let ((_hd5522755265_ + (##cdr _e5523055256_)))) + (if (gx#stx-pair? _tl5522855263_) + (let ((_e5523355266_ + (gx#syntax-e _tl5522855263_))) + (let ((_hd5523255270_ (let () (declare (not safe)) - (##car _e5522855261_))) - (_tl5522655268_ + (##car _e5523355266_))) + (_tl5523155273_ (let () (declare (not safe)) - (##cdr _e5522855261_)))) - (if (gx#stx-null? _tl5522655268_) - ((lambda (_L55271_ _L55273_) - (let ((__tmp63508 + (##cdr _e5523355266_)))) + (if (gx#stx-null? _tl5523155273_) + ((lambda (_L55276_ _L55278_) + (let ((__tmp63513 (gx#datum->syntax '#f 'def)) - (__tmp63439 - (let ((__tmp63499 - (let ((__tmp63500 + (__tmp63444 + (let ((__tmp63504 + (let ((__tmp63505 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp63507 (gx#datum->syntax '#f 'key)) - (__tmp63501 - (let ((__tmp63506 + (let ((__tmp63512 (gx#datum->syntax '#f 'key)) + (__tmp63506 + (let ((__tmp63511 (gx#datum->syntax '#f 'lst)) - (__tmp63502 - (let ((__tmp63503 - (let ((__tmp63505 + (__tmp63507 + (let ((__tmp63508 + (let ((__tmp63510 (gx#datum->syntax '#f 'default)) - (__tmp63504 + (__tmp63509 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp63505 - __tmp63504)))) + (cons __tmp63510 + __tmp63509)))) (declare (not safe)) - (cons __tmp63503 '())))) + (cons __tmp63508 '())))) (declare (not safe)) - (cons __tmp63506 __tmp63502)))) + (cons __tmp63511 __tmp63507)))) (declare (not safe)) - (cons __tmp63507 __tmp63501)))) + (cons __tmp63512 __tmp63506)))) (declare (not safe)) - (cons _L55273_ __tmp63500))) - (__tmp63440 - (let ((__tmp63441 - (let ((__tmp63498 (gx#datum->syntax '#f 'let)) - (__tmp63442 - (let ((__tmp63497 + (cons _L55278_ __tmp63505))) + (__tmp63445 + (let ((__tmp63446 + (let ((__tmp63503 (gx#datum->syntax '#f 'let)) + (__tmp63447 + (let ((__tmp63502 (gx#datum->syntax '#f 'lp)) - (__tmp63443 - (let ((__tmp63492 - (let ((__tmp63493 - (let ((__tmp63496 + (__tmp63448 + (let ((__tmp63497 + (let ((__tmp63498 + (let ((__tmp63501 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp63494 - (let ((__tmp63495 (gx#datum->syntax '#f 'lst))) + (__tmp63499 + (let ((__tmp63500 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp63495 '())))) + (cons __tmp63500 '())))) (declare (not safe)) - (cons __tmp63496 __tmp63494)))) + (cons __tmp63501 __tmp63499)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63493 '()))) - (__tmp63444 - (let ((__tmp63445 - (let ((__tmp63491 + (cons __tmp63498 '()))) + (__tmp63449 + (let ((__tmp63450 + (let ((__tmp63496 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'match)) - (__tmp63446 - (let ((__tmp63490 (gx#datum->syntax '#f 'rest)) - (__tmp63447 - (let ((__tmp63466 - (let ((__tmp63483 - (let ((__tmp63489 + (__tmp63451 + (let ((__tmp63495 (gx#datum->syntax '#f 'rest)) + (__tmp63452 + (let ((__tmp63471 + (let ((__tmp63488 + (let ((__tmp63494 (gx#datum->syntax '#f '@list)) - (__tmp63484 - (let ((__tmp63488 + (__tmp63489 + (let ((__tmp63493 (gx#datum->syntax '#f 'k)) - (__tmp63485 - (let ((__tmp63487 + (__tmp63490 + (let ((__tmp63492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'v)) - (__tmp63486 (gx#datum->syntax '#f 'rest))) + (__tmp63491 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp63487 __tmp63486)))) + (cons __tmp63492 __tmp63491)))) (declare (not safe)) - (cons __tmp63488 __tmp63485)))) + (cons __tmp63493 __tmp63490)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63489 __tmp63484))) - (__tmp63467 - (let ((__tmp63468 - (let ((__tmp63482 + (cons __tmp63494 __tmp63489))) + (__tmp63472 + (let ((__tmp63473 + (let ((__tmp63487 (gx#datum->syntax '#f 'if)) - (__tmp63469 - (let ((__tmp63477 + (__tmp63474 + (let ((__tmp63482 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp63478 - (let ((__tmp63481 (gx#datum->syntax '#f 'k)) - (__tmp63479 - (let ((__tmp63480 + (let ((__tmp63483 + (let ((__tmp63486 (gx#datum->syntax '#f 'k)) + (__tmp63484 + (let ((__tmp63485 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp63480 '())))) + (cons __tmp63485 '())))) (declare (not safe)) - (cons __tmp63481 __tmp63479)))) + (cons __tmp63486 __tmp63484)))) (declare (not safe)) - (cons _L55271_ __tmp63478))) - (__tmp63470 - (let ((__tmp63476 (gx#datum->syntax '#f 'v)) - (__tmp63471 - (let ((__tmp63472 - (let ((__tmp63475 + (cons _L55276_ __tmp63483))) + (__tmp63475 + (let ((__tmp63481 (gx#datum->syntax '#f 'v)) + (__tmp63476 + (let ((__tmp63477 + (let ((__tmp63480 (gx#datum->syntax '#f 'lp)) - (__tmp63473 - (let ((__tmp63474 + (__tmp63478 + (let ((__tmp63479 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp63474 '())))) + (cons __tmp63479 '())))) (declare (not safe)) - (cons __tmp63475 __tmp63473)))) + (cons __tmp63480 __tmp63478)))) (declare (not safe)) - (cons __tmp63472 '())))) + (cons __tmp63477 '())))) (declare (not safe)) - (cons __tmp63476 __tmp63471)))) + (cons __tmp63481 __tmp63476)))) (declare (not safe)) - (cons __tmp63477 __tmp63470)))) + (cons __tmp63482 __tmp63475)))) (declare (not safe)) - (cons __tmp63482 __tmp63469)))) + (cons __tmp63487 __tmp63474)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63468 '())))) + (cons __tmp63473 '())))) (declare (not safe)) - (cons __tmp63483 __tmp63467))) - (__tmp63448 - (let ((__tmp63449 - (let ((__tmp63465 + (cons __tmp63488 __tmp63472))) + (__tmp63453 + (let ((__tmp63454 + (let ((__tmp63470 (gx#datum->syntax '#f 'else)) - (__tmp63450 - (let ((__tmp63451 - (let ((__tmp63464 + (__tmp63455 + (let ((__tmp63456 + (let ((__tmp63469 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp63452 - (let ((__tmp63460 - (let ((__tmp63463 + (__tmp63457 + (let ((__tmp63465 + (let ((__tmp63468 (gx#datum->syntax '#f 'procedure?)) - (__tmp63461 - (let ((__tmp63462 + (__tmp63466 + (let ((__tmp63467 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp63462 '())))) + (cons __tmp63467 '())))) (declare (not safe)) - (cons __tmp63463 __tmp63461))) - (__tmp63453 - (let ((__tmp63456 - (let ((__tmp63459 + (cons __tmp63468 __tmp63466))) + (__tmp63458 + (let ((__tmp63461 + (let ((__tmp63464 (gx#datum->syntax '#f 'default)) - (__tmp63457 - (let ((__tmp63458 + (__tmp63462 + (let ((__tmp63463 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp63458 '())))) + (cons __tmp63463 '())))) (declare (not safe)) - (cons __tmp63459 __tmp63457))) - (__tmp63454 - (let ((__tmp63455 + (cons __tmp63464 __tmp63462))) + (__tmp63459 + (let ((__tmp63460 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp63455 '())))) + (cons __tmp63460 '())))) (declare (not safe)) - (cons __tmp63456 __tmp63454)))) + (cons __tmp63461 __tmp63459)))) (declare (not safe)) - (cons __tmp63460 __tmp63453)))) + (cons __tmp63465 __tmp63458)))) (declare (not safe)) - (cons __tmp63464 __tmp63452)))) + (cons __tmp63469 __tmp63457)))) (declare (not safe)) - (cons __tmp63451 '())))) + (cons __tmp63456 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63465 __tmp63450)))) + (cons __tmp63470 __tmp63455)))) (declare (not safe)) - (cons __tmp63449 '())))) + (cons __tmp63454 '())))) (declare (not safe)) - (cons __tmp63466 __tmp63448)))) + (cons __tmp63471 __tmp63453)))) (declare (not safe)) - (cons __tmp63490 __tmp63447)))) + (cons __tmp63495 __tmp63452)))) (declare (not safe)) - (cons __tmp63491 __tmp63446)))) + (cons __tmp63496 __tmp63451)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63445 '())))) + (cons __tmp63450 '())))) (declare (not safe)) - (cons __tmp63492 __tmp63444)))) + (cons __tmp63497 __tmp63449)))) (declare (not safe)) - (cons __tmp63497 __tmp63443)))) + (cons __tmp63502 __tmp63448)))) (declare (not safe)) - (cons __tmp63498 __tmp63442)))) + (cons __tmp63503 __tmp63447)))) (declare (not safe)) - (cons __tmp63441 '())))) + (cons __tmp63446 '())))) (declare (not safe)) - (cons __tmp63499 __tmp63440)))) + (cons __tmp63504 __tmp63445)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63508 - __tmp63439))) - _hd5522755265_ - _hd5522455255_) - (_g5521655234_ _g5521755238_)))) - (_g5521655234_ _g5521755238_)))) - (_g5521655234_ _g5521755238_)))) - (_g5521655234_ _g5521755238_))))) - (_g5521555289_ _$stx55212_)))) + (cons __tmp63513 + __tmp63444))) + _hd5523255270_ + _hd5522955260_) + (_g5522155239_ _g5522255243_)))) + (_g5522155239_ _g5522255243_)))) + (_g5522155239_ _g5522255243_)))) + (_g5522155239_ _g5522255243_))))) + (_g5522055294_ _$stx55217_)))) (define |[:0:]#defremove1| - (lambda (_$stx55293_) - (let* ((_g5529755315_ - (lambda (_g5529855311_) + (lambda (_$stx55298_) + (let* ((_g5530255320_ + (lambda (_g5530355316_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5529855311_))) - (_g5529655370_ - (lambda (_g5529855319_) - (if (gx#stx-pair? _g5529855319_) - (let ((_e5530355322_ (gx#syntax-e _g5529855319_))) - (let ((_hd5530255326_ + _g5530355316_))) + (_g5530155375_ + (lambda (_g5530355324_) + (if (gx#stx-pair? _g5530355324_) + (let ((_e5530855327_ (gx#syntax-e _g5530355324_))) + (let ((_hd5530755331_ (let () (declare (not safe)) - (##car _e5530355322_))) - (_tl5530155329_ + (##car _e5530855327_))) + (_tl5530655334_ (let () (declare (not safe)) - (##cdr _e5530355322_)))) - (if (gx#stx-pair? _tl5530155329_) - (let ((_e5530655332_ - (gx#syntax-e _tl5530155329_))) - (let ((_hd5530555336_ + (##cdr _e5530855327_)))) + (if (gx#stx-pair? _tl5530655334_) + (let ((_e5531155337_ + (gx#syntax-e _tl5530655334_))) + (let ((_hd5531055341_ (let () (declare (not safe)) - (##car _e5530655332_))) - (_tl5530455339_ + (##car _e5531155337_))) + (_tl5530955344_ (let () (declare (not safe)) - (##cdr _e5530655332_)))) - (if (gx#stx-pair? _tl5530455339_) - (let ((_e5530955342_ - (gx#syntax-e _tl5530455339_))) - (let ((_hd5530855346_ + (##cdr _e5531155337_)))) + (if (gx#stx-pair? _tl5530955344_) + (let ((_e5531455347_ + (gx#syntax-e _tl5530955344_))) + (let ((_hd5531355351_ (let () (declare (not safe)) - (##car _e5530955342_))) - (_tl5530755349_ + (##car _e5531455347_))) + (_tl5531255354_ (let () (declare (not safe)) - (##cdr _e5530955342_)))) - (if (gx#stx-null? _tl5530755349_) - ((lambda (_L55352_ _L55354_) - (let ((__tmp63579 + (##cdr _e5531455347_)))) + (if (gx#stx-null? _tl5531255354_) + ((lambda (_L55357_ _L55359_) + (let ((__tmp63584 (gx#datum->syntax '#f 'def)) - (__tmp63509 - (let ((__tmp63574 - (let ((__tmp63575 + (__tmp63514 + (let ((__tmp63579 + (let ((__tmp63580 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp63578 (gx#datum->syntax '#f 'el)) - (__tmp63576 - (let ((__tmp63577 + (let ((__tmp63583 (gx#datum->syntax '#f 'el)) + (__tmp63581 + (let ((__tmp63582 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp63577 '())))) + (cons __tmp63582 '())))) (declare (not safe)) - (cons __tmp63578 __tmp63576)))) + (cons __tmp63583 __tmp63581)))) (declare (not safe)) - (cons _L55354_ __tmp63575))) - (__tmp63510 - (let ((__tmp63511 - (let ((__tmp63573 (gx#datum->syntax '#f 'let)) - (__tmp63512 - (let ((__tmp63572 + (cons _L55359_ __tmp63580))) + (__tmp63515 + (let ((__tmp63516 + (let ((__tmp63578 (gx#datum->syntax '#f 'let)) + (__tmp63517 + (let ((__tmp63577 (gx#datum->syntax '#f 'lp)) - (__tmp63513 - (let ((__tmp63561 - (let ((__tmp63568 - (let ((__tmp63571 + (__tmp63518 + (let ((__tmp63566 + (let ((__tmp63573 + (let ((__tmp63576 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp63569 - (let ((__tmp63570 (gx#datum->syntax '#f 'lst))) + (__tmp63574 + (let ((__tmp63575 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp63570 '())))) + (cons __tmp63575 '())))) (declare (not safe)) - (cons __tmp63571 __tmp63569))) - (__tmp63562 - (let ((__tmp63563 - (let ((__tmp63567 (gx#datum->syntax '#f 'r)) - (__tmp63564 - (let ((__tmp63565 - (let ((__tmp63566 + (cons __tmp63576 __tmp63574))) + (__tmp63567 + (let ((__tmp63568 + (let ((__tmp63572 (gx#datum->syntax '#f 'r)) + (__tmp63569 + (let ((__tmp63570 + (let ((__tmp63571 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp63566 '())))) + (cons __tmp63571 '())))) (declare (not safe)) - (cons __tmp63565 '())))) + (cons __tmp63570 '())))) (declare (not safe)) - (cons __tmp63567 __tmp63564)))) + (cons __tmp63572 __tmp63569)))) (declare (not safe)) - (cons __tmp63563 '())))) + (cons __tmp63568 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63568 - __tmp63562))) - (__tmp63514 - (let ((__tmp63515 - (let ((__tmp63560 + (cons __tmp63573 + __tmp63567))) + (__tmp63519 + (let ((__tmp63520 + (let ((__tmp63565 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'match)) - (__tmp63516 - (let ((__tmp63559 (gx#datum->syntax '#f 'rest)) - (__tmp63517 - (let ((__tmp63523 - (let ((__tmp63554 - (let ((__tmp63558 + (__tmp63521 + (let ((__tmp63564 (gx#datum->syntax '#f 'rest)) + (__tmp63522 + (let ((__tmp63528 + (let ((__tmp63559 + (let ((__tmp63563 (gx#datum->syntax '#f '@list)) - (__tmp63555 - (let ((__tmp63557 + (__tmp63560 + (let ((__tmp63562 (gx#datum->syntax '#f 'hd)) - (__tmp63556 + (__tmp63561 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp63557 - __tmp63556)))) + (cons __tmp63562 + __tmp63561)))) (declare (not safe)) - (cons __tmp63558 __tmp63555))) - (__tmp63524 - (let ((__tmp63525 - (let ((__tmp63553 + (cons __tmp63563 __tmp63560))) + (__tmp63529 + (let ((__tmp63530 + (let ((__tmp63558 (gx#datum->syntax '#f 'if)) - (__tmp63526 - (let ((__tmp63548 + (__tmp63531 + (let ((__tmp63553 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp63549 - (let ((__tmp63552 (gx#datum->syntax '#f 'el)) - (__tmp63550 - (let ((__tmp63551 + (let ((__tmp63554 + (let ((__tmp63557 (gx#datum->syntax '#f 'el)) + (__tmp63555 + (let ((__tmp63556 (gx#datum->syntax '#f 'hd))) (declare (not safe)) - (cons __tmp63551 '())))) + (cons __tmp63556 '())))) (declare (not safe)) - (cons __tmp63552 __tmp63550)))) + (cons __tmp63557 __tmp63555)))) (declare (not safe)) - (cons _L55352_ __tmp63549))) - (__tmp63527 - (let ((__tmp63540 - (let ((__tmp63547 + (cons _L55357_ __tmp63554))) + (__tmp63532 + (let ((__tmp63545 + (let ((__tmp63552 (gx#datum->syntax '#f 'foldl1)) - (__tmp63541 - (let ((__tmp63546 + (__tmp63546 + (let ((__tmp63551 (gx#datum->syntax '#f 'cons)) - (__tmp63542 - (let ((__tmp63545 + (__tmp63547 + (let ((__tmp63550 (gx#datum->syntax '#f 'rest)) - (__tmp63543 - (let ((__tmp63544 + (__tmp63548 + (let ((__tmp63549 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp63544 + (cons __tmp63549 '())))) (declare (not safe)) - (cons __tmp63545 - __tmp63543)))) + (cons __tmp63550 + __tmp63548)))) (declare (not safe)) - (cons __tmp63546 __tmp63542)))) + (cons __tmp63551 __tmp63547)))) (declare (not safe)) - (cons __tmp63547 __tmp63541))) - (__tmp63528 - (let ((__tmp63529 - (let ((__tmp63539 + (cons __tmp63552 __tmp63546))) + (__tmp63533 + (let ((__tmp63534 + (let ((__tmp63544 (gx#datum->syntax '#f 'lp)) - (__tmp63530 - (let ((__tmp63538 + (__tmp63535 + (let ((__tmp63543 (gx#datum->syntax '#f 'rest)) - (__tmp63531 - (let ((__tmp63532 - (let ((__tmp63537 + (__tmp63536 + (let ((__tmp63537 + (let ((__tmp63542 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons)) - (__tmp63533 - (let ((__tmp63536 (gx#datum->syntax '#f 'hd)) - (__tmp63534 - (let ((__tmp63535 + (__tmp63538 + (let ((__tmp63541 (gx#datum->syntax '#f 'hd)) + (__tmp63539 + (let ((__tmp63540 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp63535 '())))) + (cons __tmp63540 '())))) (declare (not safe)) - (cons __tmp63536 __tmp63534)))) + (cons __tmp63541 __tmp63539)))) (declare (not safe)) - (cons __tmp63537 __tmp63533)))) + (cons __tmp63542 __tmp63538)))) (declare (not safe)) - (cons __tmp63532 '())))) + (cons __tmp63537 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63538 - __tmp63531)))) + (cons __tmp63543 + __tmp63536)))) (declare (not safe)) - (cons __tmp63539 __tmp63530)))) + (cons __tmp63544 __tmp63535)))) (declare (not safe)) - (cons __tmp63529 '())))) + (cons __tmp63534 '())))) (declare (not safe)) - (cons __tmp63540 __tmp63528)))) + (cons __tmp63545 __tmp63533)))) (declare (not safe)) - (cons __tmp63548 __tmp63527)))) + (cons __tmp63553 __tmp63532)))) (declare (not safe)) - (cons __tmp63553 __tmp63526)))) + (cons __tmp63558 __tmp63531)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63525 '())))) + (cons __tmp63530 '())))) (declare (not safe)) - (cons __tmp63554 __tmp63524))) - (__tmp63518 - (let ((__tmp63519 - (let ((__tmp63522 + (cons __tmp63559 __tmp63529))) + (__tmp63523 + (let ((__tmp63524 + (let ((__tmp63527 (gx#datum->syntax '#f 'else)) - (__tmp63520 - (let ((__tmp63521 + (__tmp63525 + (let ((__tmp63526 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp63521 '())))) + (cons __tmp63526 '())))) (declare (not safe)) - (cons __tmp63522 __tmp63520)))) + (cons __tmp63527 __tmp63525)))) (declare (not safe)) - (cons __tmp63519 '())))) + (cons __tmp63524 '())))) (declare (not safe)) - (cons __tmp63523 __tmp63518)))) + (cons __tmp63528 __tmp63523)))) (declare (not safe)) - (cons __tmp63559 __tmp63517)))) + (cons __tmp63564 __tmp63522)))) (declare (not safe)) - (cons __tmp63560 __tmp63516)))) + (cons __tmp63565 __tmp63521)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63515 '())))) + (cons __tmp63520 '())))) (declare (not safe)) - (cons __tmp63561 __tmp63514)))) + (cons __tmp63566 __tmp63519)))) (declare (not safe)) - (cons __tmp63572 __tmp63513)))) + (cons __tmp63577 __tmp63518)))) (declare (not safe)) - (cons __tmp63573 __tmp63512)))) + (cons __tmp63578 __tmp63517)))) (declare (not safe)) - (cons __tmp63511 '())))) + (cons __tmp63516 '())))) (declare (not safe)) - (cons __tmp63574 __tmp63510)))) + (cons __tmp63579 __tmp63515)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63579 - __tmp63509))) - _hd5530855346_ - _hd5530555336_) - (_g5529755315_ _g5529855319_)))) - (_g5529755315_ _g5529855319_)))) - (_g5529755315_ _g5529855319_)))) - (_g5529755315_ _g5529855319_))))) - (_g5529655370_ _$stx55293_)))) + (cons __tmp63584 + __tmp63514))) + _hd5531355351_ + _hd5531055341_) + (_g5530255320_ _g5530355324_)))) + (_g5530255320_ _g5530355324_)))) + (_g5530255320_ _g5530355324_)))) + (_g5530255320_ _g5530355324_))))) + (_g5530155375_ _$stx55298_)))) (define |[:0:]#DBG| - (lambda (_$stx55374_) - (let* ((_g5537855389_ - (lambda (_g5537955385_) + (lambda (_$stx55379_) + (let* ((_g5538355394_ + (lambda (_g5538455390_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5537955385_))) - (_g5537755418_ - (lambda (_g5537955393_) - (if (gx#stx-pair? _g5537955393_) - (let ((_e5538355396_ (gx#syntax-e _g5537955393_))) - (let ((_hd5538255400_ + _g5538455390_))) + (_g5538255423_ + (lambda (_g5538455398_) + (if (gx#stx-pair? _g5538455398_) + (let ((_e5538855401_ (gx#syntax-e _g5538455398_))) + (let ((_hd5538755405_ (let () (declare (not safe)) - (##car _e5538355396_))) - (_tl5538155403_ + (##car _e5538855401_))) + (_tl5538655408_ (let () (declare (not safe)) - (##cdr _e5538355396_)))) - ((lambda (_L55406_) - (let ((__tmp63581 (gx#datum->syntax '#f 'DBG/1)) - (__tmp63580 + (##cdr _e5538855401_)))) + ((lambda (_L55411_) + (let ((__tmp63586 (gx#datum->syntax '#f 'DBG/1)) + (__tmp63585 (let () (declare (not safe)) - (cons '1 _L55406_)))) + (cons '1 _L55411_)))) (declare (not safe)) - (cons __tmp63581 __tmp63580))) - _tl5538155403_))) - (_g5537855389_ _g5537955393_))))) - (_g5537755418_ _$stx55374_)))) + (cons __tmp63586 __tmp63585))) + _tl5538655408_))) + (_g5538355394_ _g5538455398_))))) + (_g5538255423_ _$stx55379_)))) (define |[:0:]#DBG/1| - (lambda (_$stx55422_) - (let* ((___stx6290562906_ _$stx55422_) - (_g5543355647_ + (lambda (_$stx55427_) + (let* ((___stx6291062911_ _$stx55427_) + (_g5543855652_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx6290562906_)))) - (let ((___kont6290862909_ - (lambda (_L56500_ _L56502_ _L56503_ _L56504_ _L56505_) - (let ((__tmp63582 - (let ((__tmp63583 - (let ((__tmp63584 - (let ((__tmp63588 - (let ((__tmp63589 - (lambda (_g5653556538_ - _g5653656541_) + ___stx6291062911_)))) + (let ((___kont6291362914_ + (lambda (_L56505_ _L56507_ _L56508_ _L56509_ _L56510_) + (let ((__tmp63587 + (let ((__tmp63588 + (let ((__tmp63589 + (let ((__tmp63593 + (let ((__tmp63594 + (lambda (_g5654056543_ + _g5654156546_) (let () (declare (not safe)) - (cons _g5653556538_ - _g5653656541_))))) + (cons _g5654056543_ + _g5654156546_))))) (declare (not safe)) - (foldr1 __tmp63589 + (foldr1 __tmp63594 '() - _L56503_))) - (__tmp63585 - (let ((__tmp63586 - (let ((__tmp63587 + _L56508_))) + (__tmp63590 + (let ((__tmp63591 + (let ((__tmp63592 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L56500_ '())))) + (cons _L56505_ '())))) (declare (not safe)) - (cons _L56502_ __tmp63587)))) + (cons _L56507_ __tmp63592)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L56504_ __tmp63586)))) + (cons _L56509_ __tmp63591)))) (declare (not safe)) - (cons __tmp63588 __tmp63585)))) + (cons __tmp63593 __tmp63590)))) (declare (not safe)) - (cons '() __tmp63584)))) + (cons '() __tmp63589)))) (declare (not safe)) - (cons '2 __tmp63583)))) + (cons '2 __tmp63588)))) (declare (not safe)) - (cons _L56505_ __tmp63582)))) - (___kont6291262913_ - (lambda (_L56353_ _L56355_ _L56356_ _L56357_) - (let ((__tmp63590 - (let ((__tmp63591 - (let ((__tmp63592 - (let ((__tmp63596 - (let ((__tmp63597 - (lambda (_g5638056383_ - _g5638156386_) + (cons _L56510_ __tmp63587)))) + (___kont6291762918_ + (lambda (_L56358_ _L56360_ _L56361_ _L56362_) + (let ((__tmp63595 + (let ((__tmp63596 + (let ((__tmp63597 + (let ((__tmp63601 + (let ((__tmp63602 + (lambda (_g5638556388_ + _g5638656391_) (let () (declare (not safe)) - (cons _g5638056383_ - _g5638156386_))))) + (cons _g5638556388_ + _g5638656391_))))) (declare (not safe)) - (foldr1 __tmp63597 + (foldr1 __tmp63602 '() - _L56355_))) - (__tmp63593 - (let ((__tmp63594 - (let ((__tmp63595 + _L56360_))) + (__tmp63598 + (let ((__tmp63599 + (let ((__tmp63600 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L56353_ '())))) + (cons _L56358_ '())))) (declare (not safe)) - (cons _L56353_ __tmp63595)))) + (cons _L56358_ __tmp63600)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L56356_ __tmp63594)))) + (cons _L56361_ __tmp63599)))) (declare (not safe)) - (cons __tmp63596 __tmp63593)))) + (cons __tmp63601 __tmp63598)))) (declare (not safe)) - (cons '() __tmp63592)))) + (cons '() __tmp63597)))) (declare (not safe)) - (cons '2 __tmp63591)))) + (cons '2 __tmp63596)))) (declare (not safe)) - (cons _L56357_ __tmp63590)))) - (___kont6291662917_ - (lambda (_L56256_) - (let ((__tmp63609 (gx#datum->syntax '#f 'DBG-helper)) - (__tmp63598 - (let ((__tmp63599 - (let ((__tmp63606 - (let ((__tmp63608 + (cons _L56362_ __tmp63595)))) + (___kont6292162922_ + (lambda (_L56261_) + (let ((__tmp63614 (gx#datum->syntax '#f 'DBG-helper)) + (__tmp63603 + (let ((__tmp63604 + (let ((__tmp63611 + (let ((__tmp63613 (gx#datum->syntax '#f 'quote)) - (__tmp63607 + (__tmp63612 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp63608 __tmp63607))) - (__tmp63600 - (let ((__tmp63603 - (let ((__tmp63605 + (cons __tmp63613 __tmp63612))) + (__tmp63605 + (let ((__tmp63608 + (let ((__tmp63610 (gx#datum->syntax '#f 'quote)) - (__tmp63604 + (__tmp63609 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp63605 __tmp63604))) - (__tmp63601 - (let ((__tmp63602 + (cons __tmp63610 __tmp63609))) + (__tmp63606 + (let ((__tmp63607 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '#f __tmp63602)))) + (cons '#f __tmp63607)))) (declare (not safe)) - (cons __tmp63603 __tmp63601)))) + (cons __tmp63608 __tmp63606)))) (declare (not safe)) - (cons __tmp63606 __tmp63600)))) + (cons __tmp63611 __tmp63605)))) (declare (not safe)) - (cons _L56256_ __tmp63599)))) + (cons _L56261_ __tmp63604)))) (declare (not safe)) - (cons __tmp63609 __tmp63598)))) - (___kont6291862919_ - (lambda (_L56179_ - _L56181_ - _L56182_ - _L56183_ - _L56184_ - _L56185_) - (let ((__tmp63610 - (let ((__tmp63611 - (let ((__tmp63613 - (let ((__tmp63614 - (let ((__tmp63615 + (cons __tmp63614 __tmp63603)))) + (___kont6292362924_ + (lambda (_L56184_ + _L56186_ + _L56187_ + _L56188_ + _L56189_ + _L56190_) + (let ((__tmp63615 + (let ((__tmp63616 + (let ((__tmp63618 + (let ((__tmp63619 + (let ((__tmp63620 (let () (declare (not safe)) - (cons _L56182_ '())))) + (cons _L56187_ '())))) (declare (not safe)) - (cons _L56183_ __tmp63615)))) + (cons _L56188_ __tmp63620)))) (declare (not safe)) - (cons __tmp63614 _L56184_))) - (__tmp63612 + (cons __tmp63619 _L56189_))) + (__tmp63617 (let () (declare (not safe)) - (cons _L56181_ _L56179_)))) + (cons _L56186_ _L56184_)))) (declare (not safe)) - (cons __tmp63613 __tmp63612)))) + (cons __tmp63618 __tmp63617)))) (declare (not safe)) - (cons '2 __tmp63611)))) + (cons '2 __tmp63616)))) (declare (not safe)) - (cons _L56185_ __tmp63610)))) - (___kont6292062921_ - (lambda (_L56060_ _L56062_ _L56063_ _L56064_ _L56065_) - (let ((__tmp63616 - (let ((__tmp63617 - (let ((__tmp63619 - (let ((__tmp63620 - (let ((__tmp63621 + (cons _L56190_ __tmp63615)))) + (___kont6292562926_ + (lambda (_L56065_ _L56067_ _L56068_ _L56069_ _L56070_) + (let ((__tmp63621 + (let ((__tmp63622 + (let ((__tmp63624 + (let ((__tmp63625 + (let ((__tmp63626 (let () (declare (not safe)) - (cons _L56063_ '())))) + (cons _L56068_ '())))) (declare (not safe)) - (cons _L56063_ __tmp63621)))) + (cons _L56068_ __tmp63626)))) (declare (not safe)) - (cons __tmp63620 _L56064_))) - (__tmp63618 + (cons __tmp63625 _L56069_))) + (__tmp63623 (let () (declare (not safe)) - (cons _L56062_ _L56060_)))) + (cons _L56067_ _L56065_)))) (declare (not safe)) - (cons __tmp63619 __tmp63618)))) + (cons __tmp63624 __tmp63623)))) (declare (not safe)) - (cons '2 __tmp63617)))) + (cons '2 __tmp63622)))) (declare (not safe)) - (cons _L56065_ __tmp63616)))) - (___kont6292262923_ - (lambda (_L55977_ _L55979_ _L55980_) - (let ((__tmp63622 - (let ((__tmp63623 - (let ((__tmp63624 + (cons _L56070_ __tmp63621)))) + (___kont6292762928_ + (lambda (_L55982_ _L55984_ _L55985_) + (let ((__tmp63627 + (let ((__tmp63628 + (let ((__tmp63629 (let () (declare (not safe)) - (cons _L55979_ _L55977_)))) + (cons _L55984_ _L55982_)))) (declare (not safe)) - (cons '() __tmp63624)))) + (cons '() __tmp63629)))) (declare (not safe)) - (cons '3 __tmp63623)))) + (cons '3 __tmp63628)))) (declare (not safe)) - (cons _L55980_ __tmp63622)))) - (___kont6292462925_ - (lambda (_L55898_ _L55900_ _L55901_ _L55902_ _L55903_) - (let ((__tmp63625 - (let ((__tmp63626 - (let ((__tmp63628 + (cons _L55985_ __tmp63627)))) + (___kont6292962930_ + (lambda (_L55903_ _L55905_ _L55906_ _L55907_ _L55908_) + (let ((__tmp63630 + (let ((__tmp63631 + (let ((__tmp63633 (let () (declare (not safe)) - (cons _L55901_ _L55902_))) - (__tmp63627 + (cons _L55906_ _L55907_))) + (__tmp63632 (let () (declare (not safe)) - (cons _L55900_ _L55898_)))) + (cons _L55905_ _L55903_)))) (declare (not safe)) - (cons __tmp63628 __tmp63627)))) + (cons __tmp63633 __tmp63632)))) (declare (not safe)) - (cons '3 __tmp63626)))) + (cons '3 __tmp63631)))) (declare (not safe)) - (cons _L55903_ __tmp63625)))) - (___kont6292662927_ - (lambda (_L55782_ - _L55784_ - _L55785_ - _L55786_ - _L55787_ - _L55788_) - (let ((__tmp63676 (gx#datum->syntax '#f 'let)) - (__tmp63629 - (let ((__tmp63664 - (let ((__tmp63673 - (let ((__tmp63675 + (cons _L55908_ __tmp63630)))) + (___kont6293162932_ + (lambda (_L55787_ + _L55789_ + _L55790_ + _L55791_ + _L55792_ + _L55793_) + (let ((__tmp63681 (gx#datum->syntax '#f 'let)) + (__tmp63634 + (let ((__tmp63669 + (let ((__tmp63678 + (let ((__tmp63680 (gx#datum->syntax '#f 'tagval)) - (__tmp63674 + (__tmp63679 (let () (declare (not safe)) - (cons _L55785_ '())))) + (cons _L55790_ '())))) (declare (not safe)) - (cons __tmp63675 __tmp63674))) - (__tmp63665 - (let ((__tmp63666 - (let ((__tmp63672 + (cons __tmp63680 __tmp63679))) + (__tmp63670 + (let ((__tmp63671 + (let ((__tmp63677 (gx#datum->syntax '#f 'thunk)) - (__tmp63667 - (let ((__tmp63668 - (let ((__tmp63671 + (__tmp63672 + (let ((__tmp63673 + (let ((__tmp63676 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp63669 - (let ((__tmp63670 + (__tmp63674 + (let ((__tmp63675 (let () (declare (not safe)) - (cons _L55782_ '())))) + (cons _L55787_ '())))) (declare (not safe)) - (cons '() __tmp63670)))) + (cons '() __tmp63675)))) (declare (not safe)) - (cons __tmp63671 __tmp63669)))) + (cons __tmp63676 __tmp63674)))) (declare (not safe)) - (cons __tmp63668 '())))) + (cons __tmp63673 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63672 - __tmp63667)))) + (cons __tmp63677 + __tmp63672)))) (declare (not safe)) - (cons __tmp63666 '())))) + (cons __tmp63671 '())))) (declare (not safe)) - (cons __tmp63673 __tmp63665))) - (__tmp63630 - (let ((__tmp63631 - (let ((__tmp63663 + (cons __tmp63678 __tmp63670))) + (__tmp63635 + (let ((__tmp63636 + (let ((__tmp63668 (gx#datum->syntax '#f 'if)) - (__tmp63632 - (let ((__tmp63662 + (__tmp63637 + (let ((__tmp63667 (gx#datum->syntax '#f 'tagval)) - (__tmp63633 - (let ((__tmp63637 - (let ((__tmp63661 + (__tmp63638 + (let ((__tmp63642 + (let ((__tmp63666 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'DBG-helper)) - (__tmp63638 - (let ((__tmp63660 (gx#datum->syntax '#f 'tagval)) - (__tmp63639 - (let ((__tmp63655 - (let ((__tmp63659 + (__tmp63643 + (let ((__tmp63665 (gx#datum->syntax '#f 'tagval)) + (__tmp63644 + (let ((__tmp63660 + (let ((__tmp63664 (gx#datum->syntax '#f 'quote)) - (__tmp63656 - (let ((__tmp63657 - (let ((__tmp63658 - (lambda (_g5582255825_ + (__tmp63661 + (let ((__tmp63662 + (let ((__tmp63663 + (lambda (_g5582755830_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5582355828_) + _g5582855833_) (let () (declare (not safe)) - (cons _g5582255825_ _g5582355828_))))) + (cons _g5582755830_ _g5582855833_))))) (declare (not safe)) - (foldr1 __tmp63658 '() _L55787_)))) + (foldr1 __tmp63663 '() _L55792_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63657 '())))) + (cons __tmp63662 '())))) (declare (not safe)) - (cons __tmp63659 __tmp63656))) - (__tmp63640 - (let ((__tmp63647 - (let ((__tmp63654 + (cons __tmp63664 __tmp63661))) + (__tmp63645 + (let ((__tmp63652 + (let ((__tmp63659 (gx#datum->syntax '#f 'list)) - (__tmp63648 - (let ((__tmp63649 - (lambda (_g5582055831_ + (__tmp63653 + (let ((__tmp63654 + (lambda (_g5582555836_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5582155834_) - (let ((__tmp63650 - (let ((__tmp63653 + _g5582655839_) + (let ((__tmp63655 + (let ((__tmp63658 (gx#datum->syntax '#f 'lambda)) - (__tmp63651 - (let ((__tmp63652 + (__tmp63656 + (let ((__tmp63657 (let () (declare (not safe)) - (cons _g5582055831_ '())))) + (cons _g5582555836_ '())))) (declare (not safe)) - (cons '() __tmp63652)))) + (cons '() __tmp63657)))) (declare (not safe)) - (cons __tmp63653 __tmp63651)))) + (cons __tmp63658 __tmp63656)))) (declare (not safe)) - (cons __tmp63650 _g5582155834_))))) + (cons __tmp63655 _g5582655839_))))) (declare (not safe)) - (foldr1 __tmp63649 '() _L55786_)))) + (foldr1 __tmp63654 '() _L55791_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63654 - __tmp63648))) - (__tmp63641 - (let ((__tmp63644 - (let ((__tmp63646 + (cons __tmp63659 + __tmp63653))) + (__tmp63646 + (let ((__tmp63649 + (let ((__tmp63651 (gx#datum->syntax '#f 'quote)) - (__tmp63645 + (__tmp63650 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L55784_ '())))) + (cons _L55789_ '())))) (declare (not safe)) - (cons __tmp63646 __tmp63645))) - (__tmp63642 - (let ((__tmp63643 (gx#datum->syntax '#f 'thunk))) + (cons __tmp63651 __tmp63650))) + (__tmp63647 + (let ((__tmp63648 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp63643 '())))) + (cons __tmp63648 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63644 - __tmp63642)))) + (cons __tmp63649 + __tmp63647)))) (declare (not safe)) - (cons __tmp63647 __tmp63641)))) + (cons __tmp63652 __tmp63646)))) (declare (not safe)) - (cons __tmp63655 __tmp63640)))) + (cons __tmp63660 __tmp63645)))) (declare (not safe)) - (cons __tmp63660 __tmp63639)))) + (cons __tmp63665 __tmp63644)))) (declare (not safe)) - (cons __tmp63661 __tmp63638))) - (__tmp63634 - (let ((__tmp63635 - (let ((__tmp63636 (gx#datum->syntax '#f 'thunk))) + (cons __tmp63666 __tmp63643))) + (__tmp63639 + (let ((__tmp63640 + (let ((__tmp63641 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp63636 '())))) + (cons __tmp63641 '())))) (declare (not safe)) - (cons __tmp63635 '())))) + (cons __tmp63640 '())))) (declare (not safe)) - (cons __tmp63637 __tmp63634)))) + (cons __tmp63642 __tmp63639)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp63662 - __tmp63633)))) + (cons __tmp63667 + __tmp63638)))) (declare (not safe)) - (cons __tmp63663 __tmp63632)))) + (cons __tmp63668 __tmp63637)))) (declare (not safe)) - (cons __tmp63631 '())))) + (cons __tmp63636 '())))) (declare (not safe)) - (cons __tmp63664 __tmp63630)))) + (cons __tmp63669 __tmp63635)))) (declare (not safe)) - (cons __tmp63676 __tmp63629))))) - (let* ((___match6325663257_ - (lambda (_e5560555654_ - _hd5560455658_ - _tl5560355661_ - _e5560855664_ - _hd5560755668_ - _tl5560655671_ - _e5560955674_ - _e5561255678_ - _hd5561155682_ - _tl5561055685_ - ___splice6292862929_ - _target5561355688_ - _tl5561555691_) - (letrec ((_loop5561655694_ - (lambda (_hd5561455698_ - _exprs5562055701_ - _names5562155703_) - (if (gx#stx-pair? _hd5561455698_) - (let ((_e5561755706_ - (gx#syntax-e _hd5561455698_))) - (let ((_lp-tl5561955713_ + (cons __tmp63681 __tmp63634))))) + (let* ((___match6326163262_ + (lambda (_e5561055659_ + _hd5560955663_ + _tl5560855666_ + _e5561355669_ + _hd5561255673_ + _tl5561155676_ + _e5561455679_ + _e5561755683_ + _hd5561655687_ + _tl5561555690_ + ___splice6293362934_ + _target5561855693_ + _tl5562055696_) + (letrec ((_loop5562155699_ + (lambda (_hd5561955703_ + _exprs5562555706_ + _names5562655708_) + (if (gx#stx-pair? _hd5561955703_) + (let ((_e5562255711_ + (gx#syntax-e _hd5561955703_))) + (let ((_lp-tl5562455718_ (let () (declare (not safe)) - (##cdr _e5561755706_))) - (_lp-hd5561855710_ + (##cdr _e5562255711_))) + (_lp-hd5562355715_ (let () (declare (not safe)) - (##car _e5561755706_)))) - (if (gx#stx-pair? _lp-hd5561855710_) - (let ((_e5562655716_ + (##car _e5562255711_)))) + (if (gx#stx-pair? _lp-hd5562355715_) + (let ((_e5563155721_ (gx#syntax-e - _lp-hd5561855710_))) - (let ((_tl5562455723_ + _lp-hd5562355715_))) + (let ((_tl5562955728_ (let () (declare (not safe)) - (##cdr _e5562655716_))) - (_hd5562555720_ + (##cdr _e5563155721_))) + (_hd5563055725_ (let () (declare (not safe)) - (##car _e5562655716_)))) + (##car _e5563155721_)))) (if (gx#stx-pair? - _tl5562455723_) - (let ((_e5562955726_ + _tl5562955728_) + (let ((_e5563455731_ (gx#syntax-e - _tl5562455723_))) - (let ((_tl5562755733_ + _tl5562955728_))) + (let ((_tl5563255738_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e5562955726_))) - (_hd5562855730_ - (let () (declare (not safe)) (##car _e5562955726_)))) - (if (gx#stx-null? _tl5562755733_) - (_loop5561655694_ - _lp-tl5561955713_ + (##cdr _e5563455731_))) + (_hd5563355735_ + (let () (declare (not safe)) (##car _e5563455731_)))) + (if (gx#stx-null? _tl5563255738_) + (_loop5562155699_ + _lp-tl5562455718_ (let () (declare (not safe)) - (cons _hd5562855730_ _exprs5562055701_)) + (cons _hd5563355735_ _exprs5562555706_)) (let () (declare (not safe)) - (cons _hd5562555720_ _names5562155703_))) - (let () (declare (not safe)) (_g5543355647_))))) - (let () (declare (not safe)) (_g5543355647_))))) + (cons _hd5563055725_ _names5562655708_))) + (let () (declare (not safe)) (_g5543855652_))))) + (let () (declare (not safe)) (_g5543855652_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5543355647_))))) - (let ((_names5562355739_ - (reverse _names5562155703_)) - (_exprs5562255736_ - (reverse _exprs5562055701_))) - (if (gx#stx-pair? _tl5561055685_) - (let ((_e5563255742_ + (_g5543855652_))))) + (let ((_names5562855744_ + (reverse _names5562655708_)) + (_exprs5562755741_ + (reverse _exprs5562555706_))) + (if (gx#stx-pair? _tl5561555690_) + (let ((_e5563755747_ (gx#syntax-e - _tl5561055685_))) - (let ((_tl5563055749_ + _tl5561555690_))) + (let ((_tl5563555754_ (let () (declare (not safe)) - (##cdr _e5563255742_))) - (_hd5563155746_ + (##cdr _e5563755747_))) + (_hd5563655751_ (let () (declare (not safe)) - (##car _e5563255742_)))) + (##car _e5563755747_)))) (if (gx#stx-null? - _hd5563155746_) + _hd5563655751_) (if (gx#stx-pair? - _tl5563055749_) - (let ((_e5563555752_ + _tl5563555754_) + (let ((_e5564055757_ (gx#syntax-e - _tl5563055749_))) - (let ((_tl5563355759_ + _tl5563555754_))) + (let ((_tl5563855764_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5563555752_))) - (_hd5563455756_ - (let () (declare (not safe)) (##car _e5563555752_)))) - (if (gx#stx-pair? _tl5563355759_) - (let ((_e5563855762_ (gx#syntax-e _tl5563355759_))) - (let ((_tl5563655769_ + (let () (declare (not safe)) (##cdr _e5564055757_))) + (_hd5563955761_ + (let () (declare (not safe)) (##car _e5564055757_)))) + (if (gx#stx-pair? _tl5563855764_) + (let ((_e5564355767_ (gx#syntax-e _tl5563855764_))) + (let ((_tl5564155774_ (let () (declare (not safe)) - (##cdr _e5563855762_))) - (_hd5563755766_ + (##cdr _e5564355767_))) + (_hd5564255771_ (let () (declare (not safe)) - (##car _e5563855762_)))) - (if (gx#stx-pair? _tl5563655769_) - (let ((_e5564155772_ - (gx#syntax-e _tl5563655769_))) - (let ((_tl5563955779_ + (##car _e5564355767_)))) + (if (gx#stx-pair? _tl5564155774_) + (let ((_e5564655777_ + (gx#syntax-e _tl5564155774_))) + (let ((_tl5564455784_ (let () (declare (not safe)) - (##cdr _e5564155772_))) - (_hd5564055776_ + (##cdr _e5564655777_))) + (_hd5564555781_ (let () (declare (not safe)) - (##car _e5564155772_)))) - (if (gx#stx-null? _tl5563955779_) - (___kont6292662927_ - _hd5564055776_ - _hd5563755766_ - _hd5563455756_ - _exprs5562255736_ - _names5562355739_ - _hd5560455658_) + (##car _e5564655777_)))) + (if (gx#stx-null? _tl5564455784_) + (___kont6293162932_ + _hd5564555781_ + _hd5564255771_ + _hd5563955761_ + _exprs5562755741_ + _names5562855744_ + _hd5560955663_) (let () (declare (not safe)) - (_g5543355647_))))) + (_g5543855652_))))) (let () (declare (not safe)) - (_g5543355647_))))) - (let () (declare (not safe)) (_g5543355647_))))) - (let () (declare (not safe)) (_g5543355647_))) + (_g5543855652_))))) + (let () (declare (not safe)) (_g5543855652_))))) + (let () (declare (not safe)) (_g5543855652_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5543355647_))))) + (_g5543855652_))))) (let () (declare (not safe)) - (_g5543355647_)))))))) - (_loop5561655694_ _target5561355688_ '() '())))) - (___match6303463035_ - (lambda (_e5547756279_ - _hd5547656283_ - _tl5547556286_ - _e5548056289_ - _hd5547956293_ - _tl5547856296_ - _e5548156299_ - _e5548456303_ - _hd5548356307_ - _tl5548256310_ - ___splice6291462915_ - _target5548556313_ - _tl5548756316_ - _e5549656319_ - _hd5549556323_ - _tl5549456326_) - (letrec ((_loop5548856329_ - (lambda (_hd5548656333_ _exprs5549256336_) - (if (gx#stx-pair? _hd5548656333_) - (let ((_e5548956339_ - (gx#syntax-e _hd5548656333_))) - (let ((_lp-tl5549156346_ + (_g5543855652_)))))))) + (_loop5562155699_ _target5561855693_ '() '())))) + (___match6303963040_ + (lambda (_e5548256284_ + _hd5548156288_ + _tl5548056291_ + _e5548556294_ + _hd5548456298_ + _tl5548356301_ + _e5548656304_ + _e5548956308_ + _hd5548856312_ + _tl5548756315_ + ___splice6291962920_ + _target5549056318_ + _tl5549256321_ + _e5550156324_ + _hd5550056328_ + _tl5549956331_) + (letrec ((_loop5549356334_ + (lambda (_hd5549156338_ _exprs5549756341_) + (if (gx#stx-pair? _hd5549156338_) + (let ((_e5549456344_ + (gx#syntax-e _hd5549156338_))) + (let ((_lp-tl5549656351_ (let () (declare (not safe)) - (##cdr _e5548956339_))) - (_lp-hd5549056343_ + (##cdr _e5549456344_))) + (_lp-hd5549556348_ (let () (declare (not safe)) - (##car _e5548956339_)))) - (_loop5548856329_ - _lp-tl5549156346_ + (##car _e5549456344_)))) + (_loop5549356334_ + _lp-tl5549656351_ (let () (declare (not safe)) - (cons _lp-hd5549056343_ - _exprs5549256336_))))) - (let ((_exprs5549356349_ - (reverse _exprs5549256336_))) - (___kont6291262913_ - _hd5549556323_ - _exprs5549356349_ - _hd5548356307_ - _hd5547656283_)))))) - (_loop5548856329_ _target5548556313_ '())))) - (___match6299462995_ - (lambda (_e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291062911_ - _target5545056430_ - _tl5545256433_ - _e5546156436_ - _hd5546056440_ - _tl5545956443_ - _e5546456446_ - _hd5546356450_ - _tl5546256453_ - _e5546756456_ - _hd5546656460_ - _tl5546556463_ - _e5547056466_ - _hd5546956470_ - _tl5546856473_) - (letrec ((_loop5545356476_ - (lambda (_hd5545156480_ _exprs5545756483_) - (if (gx#stx-pair? _hd5545156480_) - (let ((_e5545456486_ - (gx#syntax-e _hd5545156480_))) - (let ((_lp-tl5545656493_ + (cons _lp-hd5549556348_ + _exprs5549756341_))))) + (let ((_exprs5549856354_ + (reverse _exprs5549756341_))) + (___kont6291762918_ + _hd5550056328_ + _exprs5549856354_ + _hd5548856312_ + _hd5548156288_)))))) + (_loop5549356334_ _target5549056318_ '())))) + (___match6299963000_ + (lambda (_e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291562916_ + _target5545556435_ + _tl5545756438_ + _e5546656441_ + _hd5546556445_ + _tl5546456448_ + _e5546956451_ + _hd5546856455_ + _tl5546756458_ + _e5547256461_ + _hd5547156465_ + _tl5547056468_ + _e5547556471_ + _hd5547456475_ + _tl5547356478_) + (letrec ((_loop5545856481_ + (lambda (_hd5545656485_ _exprs5546256488_) + (if (gx#stx-pair? _hd5545656485_) + (let ((_e5545956491_ + (gx#syntax-e _hd5545656485_))) + (let ((_lp-tl5546156498_ (let () (declare (not safe)) - (##cdr _e5545456486_))) - (_lp-hd5545556490_ + (##cdr _e5545956491_))) + (_lp-hd5546056495_ (let () (declare (not safe)) - (##car _e5545456486_)))) - (_loop5545356476_ - _lp-tl5545656493_ + (##car _e5545956491_)))) + (_loop5545856481_ + _lp-tl5546156498_ (let () (declare (not safe)) - (cons _lp-hd5545556490_ - _exprs5545756483_))))) - (let ((_exprs5545856496_ - (reverse _exprs5545756483_))) - (___kont6290862909_ - _hd5546956470_ - _hd5546656460_ - _exprs5545856496_ - _hd5544856424_ - _hd5544156400_)))))) - (_loop5545356476_ _target5545056430_ '()))))) - (if (gx#stx-pair? ___stx6290562906_) - (let ((_e5544256396_ (gx#syntax-e ___stx6290562906_))) - (let ((_tl5544056403_ - (let () (declare (not safe)) (##cdr _e5544256396_))) - (_hd5544156400_ + (cons _lp-hd5546056495_ + _exprs5546256488_))))) + (let ((_exprs5546356501_ + (reverse _exprs5546256488_))) + (___kont6291362914_ + _hd5547456475_ + _hd5547156465_ + _exprs5546356501_ + _hd5545356429_ + _hd5544656405_)))))) + (_loop5545856481_ _target5545556435_ '()))))) + (if (gx#stx-pair? ___stx6291062911_) + (let ((_e5544756401_ (gx#syntax-e ___stx6291062911_))) + (let ((_tl5544556408_ + (let () (declare (not safe)) (##cdr _e5544756401_))) + (_hd5544656405_ (let () (declare (not safe)) - (##car _e5544256396_)))) - (if (gx#stx-pair? _tl5544056403_) - (let ((_e5544556406_ (gx#syntax-e _tl5544056403_))) - (let ((_tl5544356413_ + (##car _e5544756401_)))) + (if (gx#stx-pair? _tl5544556408_) + (let ((_e5545056411_ (gx#syntax-e _tl5544556408_))) + (let ((_tl5544856418_ (let () (declare (not safe)) - (##cdr _e5544556406_))) - (_hd5544456410_ + (##cdr _e5545056411_))) + (_hd5544956415_ (let () (declare (not safe)) - (##car _e5544556406_)))) - (if (gx#stx-datum? _hd5544456410_) - (let ((_e5544656416_ - (gx#stx-e _hd5544456410_))) + (##car _e5545056411_)))) + (if (gx#stx-datum? _hd5544956415_) + (let ((_e5545156421_ + (gx#stx-e _hd5544956415_))) (if (let () (declare (not safe)) - (equal? _e5544656416_ '1)) - (if (gx#stx-pair? _tl5544356413_) - (let ((_e5544956420_ + (equal? _e5545156421_ '1)) + (if (gx#stx-pair? _tl5544856418_) + (let ((_e5545456425_ (gx#syntax-e - _tl5544356413_))) - (let ((_tl5544756427_ + _tl5544856418_))) + (let ((_tl5545256432_ (let () (declare (not safe)) - (##cdr _e5544956420_))) - (_hd5544856424_ + (##cdr _e5545456425_))) + (_hd5545356429_ (let () (declare (not safe)) - (##car _e5544956420_)))) + (##car _e5545456425_)))) (if (gx#stx-pair/null? - _tl5544756427_) + _tl5545256432_) (if (fx>= (gx#stx-length - _tl5544756427_) + _tl5545256432_) '2) - (let ((___splice6291062911_ + (let ((___splice6291562916_ (gx#syntax-split-splice - _tl5544756427_ + _tl5545256432_ '2))) - (let ((_tl5545256433_ + (let ((_tl5545756438_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice6291062911_ '1))) - (_target5545056430_ + (##vector-ref ___splice6291562916_ '1))) + (_target5545556435_ (let () (declare (not safe)) - (##vector-ref ___splice6291062911_ '0)))) - (if (gx#stx-pair? _tl5545256433_) - (let ((_e5546156436_ (gx#syntax-e _tl5545256433_))) - (let ((_tl5545956443_ + (##vector-ref ___splice6291562916_ '0)))) + (if (gx#stx-pair? _tl5545756438_) + (let ((_e5546656441_ (gx#syntax-e _tl5545756438_))) + (let ((_tl5546456448_ (let () (declare (not safe)) - (##cdr _e5546156436_))) - (_hd5546056440_ + (##cdr _e5546656441_))) + (_hd5546556445_ (let () (declare (not safe)) - (##car _e5546156436_)))) - (if (gx#stx-pair? _hd5546056440_) - (let ((_e5546456446_ - (gx#syntax-e _hd5546056440_))) - (let ((_tl5546256453_ + (##car _e5546656441_)))) + (if (gx#stx-pair? _hd5546556445_) + (let ((_e5546956451_ + (gx#syntax-e _hd5546556445_))) + (let ((_tl5546756458_ (let () (declare (not safe)) - (##cdr _e5546456446_))) - (_hd5546356450_ + (##cdr _e5546956451_))) + (_hd5546856455_ (let () (declare (not safe)) - (##car _e5546456446_)))) - (if (gx#identifier? _hd5546356450_) + (##car _e5546956451_)))) + (if (gx#identifier? _hd5546856455_) (if (gx#free-identifier=? - |[1]#_g63678_| - _hd5546356450_) - (if (gx#stx-pair? _tl5546256453_) - (let ((_e5546756456_ + |[1]#_g63683_| + _hd5546856455_) + (if (gx#stx-pair? _tl5546756458_) + (let ((_e5547256461_ (gx#syntax-e - _tl5546256453_))) - (let ((_tl5546556463_ + _tl5546756458_))) + (let ((_tl5547056468_ (let () (declare (not safe)) - (##cdr _e5546756456_))) - (_hd5546656460_ + (##cdr _e5547256461_))) + (_hd5547156465_ (let () (declare (not safe)) - (##car _e5546756456_)))) + (##car _e5547256461_)))) (if (gx#stx-null? - _tl5546556463_) + _tl5547056468_) (if (gx#stx-pair? - _tl5545956443_) - (let ((_e5547056466_ + _tl5546456448_) + (let ((_e5547556471_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl5545956443_))) - (let ((_tl5546856473_ + (gx#syntax-e _tl5546456448_))) + (let ((_tl5547356478_ (let () (declare (not safe)) - (##cdr _e5547056466_))) - (_hd5546956470_ + (##cdr _e5547556471_))) + (_hd5547456475_ (let () (declare (not safe)) - (##car _e5547056466_)))) - (if (gx#stx-null? _tl5546856473_) - (___match6299462995_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291062911_ - _target5545056430_ - _tl5545256433_ - _e5546156436_ - _hd5546056440_ - _tl5545956443_ - _e5546456446_ - _hd5546356450_ - _tl5546256453_ - _e5546756456_ - _hd5546656460_ - _tl5546556463_ - _e5547056466_ - _hd5546956470_ - _tl5546856473_) - (if (fx>= (gx#stx-length _tl5544756427_) '1) - (let ((___splice6291462915_ + (##car _e5547556471_)))) + (if (gx#stx-null? _tl5547356478_) + (___match6299963000_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291562916_ + _target5545556435_ + _tl5545756438_ + _e5546656441_ + _hd5546556445_ + _tl5546456448_ + _e5546956451_ + _hd5546856455_ + _tl5546756458_ + _e5547256461_ + _hd5547156465_ + _tl5547056468_ + _e5547556471_ + _hd5547456475_ + _tl5547356478_) + (if (fx>= (gx#stx-length _tl5545256432_) '1) + (let ((___splice6291962920_ (gx#syntax-split-splice - _tl5544756427_ + _tl5545256432_ '1))) - (let ((_tl5548756316_ + (let ((_tl5549256321_ (let () (declare (not safe)) (##vector-ref - ___splice6291462915_ + ___splice6291962920_ '1))) - (_target5548556313_ + (_target5549056318_ (let () (declare (not safe)) (##vector-ref - ___splice6291462915_ + ___splice6291962920_ '0)))) - (if (gx#stx-pair? _tl5548756316_) - (let ((_e5549656319_ - (gx#syntax-e _tl5548756316_))) - (let ((_tl5549456326_ + (if (gx#stx-pair? _tl5549256321_) + (let ((_e5550156324_ + (gx#syntax-e _tl5549256321_))) + (let ((_tl5549956331_ (let () (declare (not safe)) - (##cdr _e5549656319_))) - (_hd5549556323_ + (##cdr _e5550156324_))) + (_hd5550056328_ (let () (declare (not safe)) - (##car _e5549656319_)))) - (if (gx#stx-null? _tl5549456326_) - (___match6303463035_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291462915_ - _target5548556313_ - _tl5548756316_ - _e5549656319_ - _hd5549556323_ - _tl5549456326_) + (##car _e5550156324_)))) + (if (gx#stx-null? _tl5549956331_) + (___match6303963040_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291962920_ + _target5549056318_ + _tl5549256321_ + _e5550156324_ + _hd5550056328_ + _tl5549956331_) (if (gx#stx-null? - _tl5544756427_) - (___kont6291662917_ - _hd5544856424_) + _tl5545256432_) + (___kont6292162922_ + _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_))))))) - (if (fx>= (gx#stx-length _tl5544756427_) '1) - (let ((___splice6291462915_ - (gx#syntax-split-splice _tl5544756427_ '1))) - (let ((_tl5548756316_ + (_g5543855652_))))))) + (if (fx>= (gx#stx-length _tl5545256432_) '1) + (let ((___splice6291962920_ + (gx#syntax-split-splice _tl5545256432_ '1))) + (let ((_tl5549256321_ (let () (declare (not safe)) - (##vector-ref ___splice6291462915_ '1))) - (_target5548556313_ + (##vector-ref ___splice6291962920_ '1))) + (_target5549056318_ (let () (declare (not safe)) - (##vector-ref ___splice6291462915_ '0)))) - (if (gx#stx-pair? _tl5548756316_) - (let ((_e5549656319_ - (gx#syntax-e _tl5548756316_))) - (let ((_tl5549456326_ + (##vector-ref ___splice6291962920_ '0)))) + (if (gx#stx-pair? _tl5549256321_) + (let ((_e5550156324_ + (gx#syntax-e _tl5549256321_))) + (let ((_tl5549956331_ (let () (declare (not safe)) - (##cdr _e5549656319_))) - (_hd5549556323_ + (##cdr _e5550156324_))) + (_hd5550056328_ (let () (declare (not safe)) - (##car _e5549656319_)))) - (if (gx#stx-null? _tl5549456326_) - (___match6303463035_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291462915_ - _target5548556313_ - _tl5548756316_ - _e5549656319_ - _hd5549556323_ - _tl5549456326_) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (##car _e5550156324_)))) + (if (gx#stx-null? _tl5549956331_) + (___match6303963040_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291962920_ + _target5549056318_ + _tl5549256321_ + _e5550156324_ + _hd5550056328_ + _tl5549956331_) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) - (let () (declare (not safe)) (_g5543355647_))))) - (if (fx>= (gx#stx-length _tl5544756427_) '1) - (let ((___splice6291462915_ - (gx#syntax-split-splice _tl5544756427_ '1))) - (let ((_tl5548756316_ + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) + (let () (declare (not safe)) (_g5543855652_))))) + (if (fx>= (gx#stx-length _tl5545256432_) '1) + (let ((___splice6291962920_ + (gx#syntax-split-splice _tl5545256432_ '1))) + (let ((_tl5549256321_ (let () (declare (not safe)) - (##vector-ref ___splice6291462915_ '1))) - (_target5548556313_ + (##vector-ref ___splice6291962920_ '1))) + (_target5549056318_ (let () (declare (not safe)) - (##vector-ref ___splice6291462915_ '0)))) - (if (gx#stx-pair? _tl5548756316_) - (let ((_e5549656319_ (gx#syntax-e _tl5548756316_))) - (let ((_tl5549456326_ + (##vector-ref ___splice6291962920_ '0)))) + (if (gx#stx-pair? _tl5549256321_) + (let ((_e5550156324_ (gx#syntax-e _tl5549256321_))) + (let ((_tl5549956331_ (let () (declare (not safe)) - (##cdr _e5549656319_))) - (_hd5549556323_ + (##cdr _e5550156324_))) + (_hd5550056328_ (let () (declare (not safe)) - (##car _e5549656319_)))) - (if (gx#stx-null? _tl5549456326_) - (___match6303463035_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291462915_ - _target5548556313_ - _tl5548756316_ - _e5549656319_ - _hd5549556323_ - _tl5549456326_) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (##car _e5550156324_)))) + (if (gx#stx-null? _tl5549956331_) + (___match6303963040_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291962920_ + _target5549056318_ + _tl5549256321_ + _e5550156324_ + _hd5550056328_ + _tl5549956331_) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) - (let () (declare (not safe)) (_g5543355647_))))))) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) + (let () (declare (not safe)) (_g5543855652_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fx>= (gx#stx-length - _tl5544756427_) + _tl5545256432_) '1) - (let ((___splice6291462915_ + (let ((___splice6291962920_ (gx#syntax-split-splice - _tl5544756427_ + _tl5545256432_ '1))) - (let ((_tl5548756316_ + (let ((_tl5549256321_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice6291462915_ '1))) - (_target5548556313_ + (##vector-ref ___splice6291962920_ '1))) + (_target5549056318_ (let () (declare (not safe)) - (##vector-ref ___splice6291462915_ '0)))) - (if (gx#stx-pair? _tl5548756316_) - (let ((_e5549656319_ (gx#syntax-e _tl5548756316_))) - (let ((_tl5549456326_ + (##vector-ref ___splice6291962920_ '0)))) + (if (gx#stx-pair? _tl5549256321_) + (let ((_e5550156324_ (gx#syntax-e _tl5549256321_))) + (let ((_tl5549956331_ (let () (declare (not safe)) - (##cdr _e5549656319_))) - (_hd5549556323_ + (##cdr _e5550156324_))) + (_hd5550056328_ (let () (declare (not safe)) - (##car _e5549656319_)))) - (if (gx#stx-null? _tl5549456326_) - (___match6303463035_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291462915_ - _target5548556313_ - _tl5548756316_ - _e5549656319_ - _hd5549556323_ - _tl5549456326_) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (##car _e5550156324_)))) + (if (gx#stx-null? _tl5549956331_) + (___match6303963040_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291962920_ + _target5549056318_ + _tl5549256321_ + _e5550156324_ + _hd5550056328_ + _tl5549956331_) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) - (let () (declare (not safe)) (_g5543355647_)))))) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) + (let () (declare (not safe)) (_g5543855652_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5544756427_) - (___kont6291662917_ - _hd5544856424_) + _tl5545256432_) + (___kont6292162922_ + _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_))))) + (_g5543855652_))))) (if (fx>= (gx#stx-length - _tl5544756427_) + _tl5545256432_) '1) - (let ((___splice6291462915_ + (let ((___splice6291962920_ (gx#syntax-split-splice - _tl5544756427_ + _tl5545256432_ '1))) - (let ((_tl5548756316_ + (let ((_tl5549256321_ (let () (declare (not safe)) (##vector-ref - ___splice6291462915_ + ___splice6291962920_ '1))) - (_target5548556313_ + (_target5549056318_ (let () (declare (not safe)) (##vector-ref - ___splice6291462915_ + ___splice6291962920_ '0)))) (if (gx#stx-pair? - _tl5548756316_) - (let ((_e5549656319_ + _tl5549256321_) + (let ((_e5550156324_ (gx#syntax-e - _tl5548756316_))) - (let ((_tl5549456326_ + _tl5549256321_))) + (let ((_tl5549956331_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5549656319_))) - (_hd5549556323_ - (let () (declare (not safe)) (##car _e5549656319_)))) - (if (gx#stx-null? _tl5549456326_) - (___match6303463035_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291462915_ - _target5548556313_ - _tl5548756316_ - _e5549656319_ - _hd5549556323_ - _tl5549456326_) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) - (let () (declare (not safe)) (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) - (let () (declare (not safe)) (_g5543355647_)))))) + (let () (declare (not safe)) (##cdr _e5550156324_))) + (_hd5550056328_ + (let () (declare (not safe)) (##car _e5550156324_)))) + (if (gx#stx-null? _tl5549956331_) + (___match6303963040_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291962920_ + _target5549056318_ + _tl5549256321_ + _e5550156324_ + _hd5550056328_ + _tl5549956331_) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) + (let () (declare (not safe)) (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) + (let () (declare (not safe)) (_g5543855652_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5544756427_) - (___kont6291662917_ - _hd5544856424_) + _tl5545256432_) + (___kont6292162922_ + _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_))))) + (_g5543855652_))))) (if (fx>= (gx#stx-length - _tl5544756427_) + _tl5545256432_) '1) - (let ((___splice6291462915_ + (let ((___splice6291962920_ (gx#syntax-split-splice - _tl5544756427_ + _tl5545256432_ '1))) - (let ((_tl5548756316_ + (let ((_tl5549256321_ (let () (declare (not safe)) (##vector-ref - ___splice6291462915_ + ___splice6291962920_ '1))) - (_target5548556313_ + (_target5549056318_ (let () (declare (not safe)) (##vector-ref - ___splice6291462915_ + ___splice6291962920_ '0)))) (if (gx#stx-pair? - _tl5548756316_) - (let ((_e5549656319_ + _tl5549256321_) + (let ((_e5550156324_ (gx#syntax-e - _tl5548756316_))) - (let ((_tl5549456326_ + _tl5549256321_))) + (let ((_tl5549956331_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5549656319_))) - (_hd5549556323_ - (let () (declare (not safe)) (##car _e5549656319_)))) - (if (gx#stx-null? _tl5549456326_) - (___match6303463035_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291462915_ - _target5548556313_ - _tl5548756316_ - _e5549656319_ - _hd5549556323_ - _tl5549456326_) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) - (let () (declare (not safe)) (_g5543355647_)))))) + (##cdr _e5550156324_))) + (_hd5550056328_ + (let () (declare (not safe)) (##car _e5550156324_)))) + (if (gx#stx-null? _tl5549956331_) + (___match6303963040_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291962920_ + _target5549056318_ + _tl5549256321_ + _e5550156324_ + _hd5550056328_ + _tl5549956331_) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) + (let () (declare (not safe)) (_g5543855652_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5544756427_) - (___kont6291662917_ - _hd5544856424_) + _tl5545256432_) + (___kont6292162922_ + _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ - _hd5544856424_) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ + _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_))))))) - (if (fx>= (gx#stx-length _tl5544756427_) '1) - (let ((___splice6291462915_ + (_g5543855652_))))))) + (if (fx>= (gx#stx-length _tl5545256432_) '1) + (let ((___splice6291962920_ (gx#syntax-split-splice - _tl5544756427_ + _tl5545256432_ '1))) - (let ((_tl5548756316_ + (let ((_tl5549256321_ (let () (declare (not safe)) (##vector-ref - ___splice6291462915_ + ___splice6291962920_ '1))) - (_target5548556313_ + (_target5549056318_ (let () (declare (not safe)) (##vector-ref - ___splice6291462915_ + ___splice6291962920_ '0)))) - (if (gx#stx-pair? _tl5548756316_) - (let ((_e5549656319_ + (if (gx#stx-pair? _tl5549256321_) + (let ((_e5550156324_ (gx#syntax-e - _tl5548756316_))) - (let ((_tl5549456326_ + _tl5549256321_))) + (let ((_tl5549956331_ (let () (declare (not safe)) - (##cdr _e5549656319_))) - (_hd5549556323_ + (##cdr _e5550156324_))) + (_hd5550056328_ (let () (declare (not safe)) - (##car _e5549656319_)))) + (##car _e5550156324_)))) (if (gx#stx-null? - _tl5549456326_) - (___match6303463035_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291462915_ - _target5548556313_ - _tl5548756316_ - _e5549656319_ - _hd5549556323_ - _tl5549456326_) + _tl5549956331_) + (___match6303963040_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291962920_ + _target5549056318_ + _tl5549256321_ + _e5550156324_ + _hd5550056328_ + _tl5549956331_) (if (gx#stx-null? - _tl5544756427_) - (___kont6291662917_ - _hd5544856424_) + _tl5545256432_) + (___kont6292162922_ + _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ - _hd5544856424_) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ + _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_))))))) - (if (fx>= (gx#stx-length _tl5544756427_) '1) - (let ((___splice6291462915_ - (gx#syntax-split-splice _tl5544756427_ '1))) - (let ((_tl5548756316_ + (_g5543855652_))))))) + (if (fx>= (gx#stx-length _tl5545256432_) '1) + (let ((___splice6291962920_ + (gx#syntax-split-splice _tl5545256432_ '1))) + (let ((_tl5549256321_ (let () (declare (not safe)) - (##vector-ref ___splice6291462915_ '1))) - (_target5548556313_ + (##vector-ref ___splice6291962920_ '1))) + (_target5549056318_ (let () (declare (not safe)) (##vector-ref - ___splice6291462915_ + ___splice6291962920_ '0)))) - (if (gx#stx-pair? _tl5548756316_) - (let ((_e5549656319_ - (gx#syntax-e _tl5548756316_))) - (let ((_tl5549456326_ + (if (gx#stx-pair? _tl5549256321_) + (let ((_e5550156324_ + (gx#syntax-e _tl5549256321_))) + (let ((_tl5549956331_ (let () (declare (not safe)) - (##cdr _e5549656319_))) - (_hd5549556323_ + (##cdr _e5550156324_))) + (_hd5550056328_ (let () (declare (not safe)) - (##car _e5549656319_)))) - (if (gx#stx-null? _tl5549456326_) - (___match6303463035_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291462915_ - _target5548556313_ - _tl5548756316_ - _e5549656319_ - _hd5549556323_ - _tl5549456326_) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ - _hd5544856424_) + (##car _e5550156324_)))) + (if (gx#stx-null? _tl5549956331_) + (___match6303963040_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291962920_ + _target5549056318_ + _tl5549256321_ + _e5550156324_ + _hd5550056328_ + _tl5549956331_) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ + _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_))))))) - (if (fx>= (gx#stx-length _tl5544756427_) '1) - (let ((___splice6291462915_ - (gx#syntax-split-splice _tl5544756427_ '1))) - (let ((_tl5548756316_ + (_g5543855652_))))))) + (if (fx>= (gx#stx-length _tl5545256432_) '1) + (let ((___splice6291962920_ + (gx#syntax-split-splice _tl5545256432_ '1))) + (let ((_tl5549256321_ (let () (declare (not safe)) - (##vector-ref ___splice6291462915_ '1))) - (_target5548556313_ + (##vector-ref ___splice6291962920_ '1))) + (_target5549056318_ (let () (declare (not safe)) - (##vector-ref ___splice6291462915_ '0)))) - (if (gx#stx-pair? _tl5548756316_) - (let ((_e5549656319_ (gx#syntax-e _tl5548756316_))) - (let ((_tl5549456326_ + (##vector-ref ___splice6291962920_ '0)))) + (if (gx#stx-pair? _tl5549256321_) + (let ((_e5550156324_ (gx#syntax-e _tl5549256321_))) + (let ((_tl5549956331_ (let () (declare (not safe)) - (##cdr _e5549656319_))) - (_hd5549556323_ + (##cdr _e5550156324_))) + (_hd5550056328_ (let () (declare (not safe)) - (##car _e5549656319_)))) - (if (gx#stx-null? _tl5549456326_) - (___match6303463035_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5544956420_ - _hd5544856424_ - _tl5544756427_ - ___splice6291462915_ - _target5548556313_ - _tl5548756316_ - _e5549656319_ - _hd5549556323_ - _tl5549456326_) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (##car _e5550156324_)))) + (if (gx#stx-null? _tl5549956331_) + (___match6303963040_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5545456425_ + _hd5545356429_ + _tl5545256432_ + ___splice6291962920_ + _target5549056318_ + _tl5549256321_ + _e5550156324_ + _hd5550056328_ + _tl5549956331_) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-null? _tl5544756427_) - (___kont6291662917_ _hd5544856424_) - (let () (declare (not safe)) (_g5543355647_))))) + (_g5543855652_)))))) + (if (gx#stx-null? _tl5545256432_) + (___kont6292162922_ _hd5545356429_) + (let () (declare (not safe)) (_g5543855652_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5544756427_) - (___kont6291662917_ - _hd5544856424_) + _tl5545256432_) + (___kont6292162922_ + _hd5545356429_) (let () (declare (not safe)) - (_g5543355647_)))))) + (_g5543855652_)))))) (let () (declare (not safe)) - (_g5543355647_))) + (_g5543855652_))) (if (let () (declare (not safe)) - (equal? _e5544656416_ '2)) - (if (gx#stx-pair? _tl5544356413_) - (let ((_e5552356119_ + (equal? _e5545156421_ '2)) + (if (gx#stx-pair? _tl5544856418_) + (let ((_e5552856124_ (gx#syntax-e - _tl5544356413_))) - (let ((_tl5552156126_ + _tl5544856418_))) + (let ((_tl5552656131_ (let () (declare (not safe)) - (##cdr _e5552356119_))) - (_hd5552256123_ + (##cdr _e5552856124_))) + (_hd5552756128_ (let () (declare (not safe)) - (##car _e5552356119_)))) + (##car _e5552856124_)))) (if (gx#stx-pair? - _tl5552156126_) - (let ((_e5552656129_ + _tl5552656131_) + (let ((_e5553156134_ (gx#syntax-e - _tl5552156126_))) - (let ((_tl5552456136_ + _tl5552656131_))) + (let ((_tl5552956141_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5552656129_))) - (_hd5552556133_ - (let () (declare (not safe)) (##car _e5552656129_)))) - (if (gx#stx-pair? _hd5552556133_) - (let ((_e5552956139_ (gx#syntax-e _hd5552556133_))) - (let ((_tl5552756146_ + (let () (declare (not safe)) (##cdr _e5553156134_))) + (_hd5553056138_ + (let () (declare (not safe)) (##car _e5553156134_)))) + (if (gx#stx-pair? _hd5553056138_) + (let ((_e5553456144_ (gx#syntax-e _hd5553056138_))) + (let ((_tl5553256151_ (let () (declare (not safe)) - (##cdr _e5552956139_))) - (_hd5552856143_ + (##cdr _e5553456144_))) + (_hd5553356148_ (let () (declare (not safe)) - (##car _e5552956139_)))) - (if (gx#stx-pair? _hd5552856143_) - (let ((_e5553256149_ - (gx#syntax-e _hd5552856143_))) - (let ((_tl5553056156_ + (##car _e5553456144_)))) + (if (gx#stx-pair? _hd5553356148_) + (let ((_e5553756154_ + (gx#syntax-e _hd5553356148_))) + (let ((_tl5553556161_ (let () (declare (not safe)) - (##cdr _e5553256149_))) - (_hd5553156153_ + (##cdr _e5553756154_))) + (_hd5553656158_ (let () (declare (not safe)) - (##car _e5553256149_)))) - (if (gx#identifier? _hd5553156153_) + (##car _e5553756154_)))) + (if (gx#identifier? _hd5553656158_) (if (gx#free-identifier=? - |[1]#_g63677_| - _hd5553156153_) - (if (gx#stx-pair? _tl5553056156_) - (let ((_e5553556159_ + |[1]#_g63682_| + _hd5553656158_) + (if (gx#stx-pair? _tl5553556161_) + (let ((_e5554056164_ (gx#syntax-e - _tl5553056156_))) - (let ((_tl5553356166_ + _tl5553556161_))) + (let ((_tl5553856171_ (let () (declare (not safe)) - (##cdr _e5553556159_))) - (_hd5553456163_ + (##cdr _e5554056164_))) + (_hd5553956168_ (let () (declare (not safe)) - (##car _e5553556159_)))) + (##car _e5554056164_)))) (if (gx#stx-null? - _tl5553356166_) + _tl5553856171_) (if (gx#stx-pair? - _tl5552756146_) - (let ((_e5553856169_ + _tl5553256151_) + (let ((_e5554356174_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl5552756146_))) - (let ((_tl5553656176_ + (gx#syntax-e _tl5553256151_))) + (let ((_tl5554156181_ (let () (declare (not safe)) - (##cdr _e5553856169_))) - (_hd5553756173_ + (##cdr _e5554356174_))) + (_hd5554256178_ (let () (declare (not safe)) - (##car _e5553856169_)))) - (___kont6291862919_ - _tl5552456136_ - _tl5553656176_ - _hd5553756173_ - _hd5553456163_ - _hd5552256123_ - _hd5544156400_))) - (___kont6292062921_ - _tl5552456136_ - _tl5552756146_ - _hd5552856143_ - _hd5552256123_ - _hd5544156400_)) - (___kont6292062921_ - _tl5552456136_ - _tl5552756146_ - _hd5552856143_ - _hd5552256123_ - _hd5544156400_)))) + (##car _e5554356174_)))) + (___kont6292362924_ + _tl5552956141_ + _tl5554156181_ + _hd5554256178_ + _hd5553956168_ + _hd5552756128_ + _hd5544656405_))) + (___kont6292562926_ + _tl5552956141_ + _tl5553256151_ + _hd5553356148_ + _hd5552756128_ + _hd5544656405_)) + (___kont6292562926_ + _tl5552956141_ + _tl5553256151_ + _hd5553356148_ + _hd5552756128_ + _hd5544656405_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont6292062921_ - _tl5552456136_ - _tl5552756146_ - _hd5552856143_ - _hd5552256123_ - _hd5544156400_)) - (___kont6292062921_ - _tl5552456136_ - _tl5552756146_ - _hd5552856143_ - _hd5552256123_ - _hd5544156400_)) - (___kont6292062921_ - _tl5552456136_ - _tl5552756146_ - _hd5552856143_ - _hd5552256123_ - _hd5544156400_)))) - (___kont6292062921_ - _tl5552456136_ - _tl5552756146_ - _hd5552856143_ - _hd5552256123_ - _hd5544156400_)))) - (if (gx#stx-null? _hd5552556133_) - (___kont6292262923_ - _tl5552456136_ - _hd5552256123_ - _hd5544156400_) - (let () (declare (not safe)) (_g5543355647_)))))) - (let () (declare (not safe)) (_g5543355647_))))) + (___kont6292562926_ + _tl5552956141_ + _tl5553256151_ + _hd5553356148_ + _hd5552756128_ + _hd5544656405_)) + (___kont6292562926_ + _tl5552956141_ + _tl5553256151_ + _hd5553356148_ + _hd5552756128_ + _hd5544656405_)) + (___kont6292562926_ + _tl5552956141_ + _tl5553256151_ + _hd5553356148_ + _hd5552756128_ + _hd5544656405_)))) + (___kont6292562926_ + _tl5552956141_ + _tl5553256151_ + _hd5553356148_ + _hd5552756128_ + _hd5544656405_)))) + (if (gx#stx-null? _hd5553056138_) + (___kont6292762928_ + _tl5552956141_ + _hd5552756128_ + _hd5544656405_) + (let () (declare (not safe)) (_g5543855652_)))))) + (let () (declare (not safe)) (_g5543855652_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5543355647_))) + (_g5543855652_))) (if (let () (declare (not safe)) - (equal? _e5544656416_ '3)) + (equal? _e5545156421_ '3)) (if (gx#stx-pair? - _tl5544356413_) - (let ((_e5559055868_ + _tl5544856418_) + (let ((_e5559555873_ (gx#syntax-e - _tl5544356413_))) - (let ((_tl5558855875_ + _tl5544856418_))) + (let ((_tl5559355880_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5559055868_))) - (_hd5558955872_ - (let () (declare (not safe)) (##car _e5559055868_)))) - (if (gx#stx-pair? _tl5558855875_) - (let ((_e5559355878_ (gx#syntax-e _tl5558855875_))) - (let ((_tl5559155885_ + (##cdr _e5559555873_))) + (_hd5559455877_ + (let () (declare (not safe)) (##car _e5559555873_)))) + (if (gx#stx-pair? _tl5559355880_) + (let ((_e5559855883_ (gx#syntax-e _tl5559355880_))) + (let ((_tl5559655890_ (let () (declare (not safe)) - (##cdr _e5559355878_))) - (_hd5559255882_ + (##cdr _e5559855883_))) + (_hd5559755887_ (let () (declare (not safe)) - (##car _e5559355878_)))) - (if (gx#stx-pair? _hd5559255882_) - (let ((_e5559655888_ (gx#syntax-e _hd5559255882_))) - (let ((_tl5559455895_ + (##car _e5559855883_)))) + (if (gx#stx-pair? _hd5559755887_) + (let ((_e5560155893_ (gx#syntax-e _hd5559755887_))) + (let ((_tl5559955900_ (let () (declare (not safe)) - (##cdr _e5559655888_))) - (_hd5559555892_ + (##cdr _e5560155893_))) + (_hd5560055897_ (let () (declare (not safe)) - (##car _e5559655888_)))) - (___kont6292462925_ - _tl5559155885_ - _tl5559455895_ - _hd5559555892_ - _hd5558955872_ - _hd5544156400_))) - (if (gx#stx-pair/null? _hd5558955872_) - (let ((___splice6292862929_ + (##car _e5560155893_)))) + (___kont6292962930_ + _tl5559655890_ + _tl5559955900_ + _hd5560055897_ + _hd5559455877_ + _hd5544656405_))) + (if (gx#stx-pair/null? _hd5559455877_) + (let ((___splice6293362934_ (gx#syntax-split-splice - _hd5558955872_ + _hd5559455877_ '0))) - (let ((_tl5561555691_ + (let ((_tl5562055696_ (let () (declare (not safe)) (##vector-ref - ___splice6292862929_ + ___splice6293362934_ '1))) - (_target5561355688_ + (_target5561855693_ (let () (declare (not safe)) (##vector-ref - ___splice6292862929_ + ___splice6293362934_ '0)))) - (if (gx#stx-null? _tl5561555691_) - (___match6325663257_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5559055868_ - _hd5558955872_ - _tl5558855875_ - ___splice6292862929_ - _target5561355688_ - _tl5561555691_) + (if (gx#stx-null? _tl5562055696_) + (___match6326163262_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5559555873_ + _hd5559455877_ + _tl5559355880_ + ___splice6293362934_ + _target5561855693_ + _tl5562055696_) (let () (declare (not safe)) - (_g5543355647_))))) + (_g5543855652_))))) (let () (declare (not safe)) - (_g5543355647_)))))) - (if (gx#stx-pair/null? _hd5558955872_) - (let ((___splice6292862929_ - (gx#syntax-split-splice _hd5558955872_ '0))) - (let ((_tl5561555691_ + (_g5543855652_)))))) + (if (gx#stx-pair/null? _hd5559455877_) + (let ((___splice6293362934_ + (gx#syntax-split-splice _hd5559455877_ '0))) + (let ((_tl5562055696_ (let () (declare (not safe)) - (##vector-ref ___splice6292862929_ '1))) - (_target5561355688_ + (##vector-ref ___splice6293362934_ '1))) + (_target5561855693_ (let () (declare (not safe)) - (##vector-ref ___splice6292862929_ '0)))) - (if (gx#stx-null? _tl5561555691_) - (___match6325663257_ - _e5544256396_ - _hd5544156400_ - _tl5544056403_ - _e5544556406_ - _hd5544456410_ - _tl5544356413_ - _e5544656416_ - _e5559055868_ - _hd5558955872_ - _tl5558855875_ - ___splice6292862929_ - _target5561355688_ - _tl5561555691_) + (##vector-ref ___splice6293362934_ '0)))) + (if (gx#stx-null? _tl5562055696_) + (___match6326163262_ + _e5544756401_ + _hd5544656405_ + _tl5544556408_ + _e5545056411_ + _hd5544956415_ + _tl5544856418_ + _e5545156421_ + _e5559555873_ + _hd5559455877_ + _tl5559355880_ + ___splice6293362934_ + _target5561855693_ + _tl5562055696_) (let () (declare (not safe)) - (_g5543355647_))))) - (let () (declare (not safe)) (_g5543355647_)))))) + (_g5543855652_))))) + (let () (declare (not safe)) (_g5543855652_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5543355647_))) + (_g5543855652_))) (let () (declare (not safe)) - (_g5543355647_)))))) + (_g5543855652_)))))) (let () (declare (not safe)) - (_g5543355647_))))) - (let () (declare (not safe)) (_g5543355647_))))) - (let () (declare (not safe)) (_g5543355647_)))))))))) + (_g5543855652_))))) + (let () (declare (not safe)) (_g5543855652_))))) + (let () (declare (not safe)) (_g5543855652_)))))))))) diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index dfb86a364..aa92f764f 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 1707423039) '#!void) +(begin (define gerbil/runtime::timestamp 1707565659) '#!void) diff --git a/src/gerbil/compiler/optimize-ann.ss b/src/gerbil/compiler/optimize-ann.ss index 63c7581fd..cc9753098 100644 --- a/src/gerbil/compiler/optimize-ann.ss +++ b/src/gerbil/compiler/optimize-ann.ss @@ -566,7 +566,7 @@ namespace: gxc (cond ((eq? t xt) val) (val - ;; it's a positive type asserption; we can only satisfy it + ;; it's a positive type assertion; we can only satisfy it ;; if it's an assertion for a subtype of ours (and (!class? t) (!class? xt) diff --git a/src/gerbil/compiler/optimize-call.ss b/src/gerbil/compiler/optimize-call.ss index 0c66ebbc9..9f81eeb39 100644 --- a/src/gerbil/compiler/optimize-call.ss +++ b/src/gerbil/compiler/optimize-call.ss @@ -71,7 +71,7 @@ namespace: gxc (ctor-impl (!class-lookup-method klass ctor))) (xform-wrap-source ['%#let-values [[[$obj] - ['%#call ['%#ref 'make-object*] + ['%#call ['%#ref 'make-object] ['%#ref (!type-id self)] ['%#quote fields]]]] ['%#begin @@ -108,7 +108,7 @@ namespace: gxc (() (xform-wrap-source ['%#let-values [[[$obj] - ['%#call ['%#ref 'make-object*] + ['%#call ['%#ref 'make-object] ['%#ref (!type-id self)] ['%#quote fields]]]] ['%#begin @@ -128,7 +128,7 @@ namespace: gxc ;; redirect to class-instance-init! (xform-wrap-source ['%#let-values [[[$obj] - ['%#call ['%#ref 'make-object*] + ['%#call ['%#ref 'make-object] ['%#ref (!type-id self)] ['%#quote fields]]]] ['%#begin diff --git a/src/gerbil/compiler/optimize-spec.ss b/src/gerbil/compiler/optimize-spec.ss index 437f2b181..24ab33c50 100644 --- a/src/gerbil/compiler/optimize-spec.ss +++ b/src/gerbil/compiler/optimize-spec.ss @@ -63,7 +63,7 @@ namespace: gxc (let ($tmp (make-symbol (gensym '__tmp))) [[$id] ['%#let-values [[[$tmp] - ['%#call ['%#ref 'class-slot-offset*] + ['%#call ['%#ref 'class-slot-offset] ['%#ref $t] ['%#quote id]]]] ['%#if ['%#ref $tmp] @@ -74,11 +74,11 @@ namespace: gxc (def (generate-class-check-bind $t class-type $class-type) [[$class-type] - ['%#call ['%#ref 'class-subtype?] ['%#ref class-type] ['%#ref $t]]]) + ['%#call ['%#ref 'subclass?] ['%#ref $t] ['%#ref class-type]]]) (def (generate-struct-check-bind $t class-type $class-type) [[$class-type] - ['%#call ['%#ref 'struct-subtype?] ['%#ref class-type] ['%#ref $t]]]) + ['%#call ['%#ref 'substruct?] ['%#ref $t] ['%#ref class-type]]]) (def (generate-specializer-impl $t methods-bind slots-bind class-check-bind struct-check-bind diff --git a/src/gerbil/gxc-main.ss b/src/gerbil/gxc-main.ss index ab42ee762..99039accb 100644 --- a/src/gerbil/gxc-main.ss +++ b/src/gerbil/gxc-main.ss @@ -5,6 +5,7 @@ (def (gxc-print-usage!) (displayln "gxc [options...] ...") (displayln "Options: ") + (displayln " -v,--version display version information") (displayln " -h,--help display this help message and exit") (displayln " -d set compiler output directory; defaults to $GERBIL_PATH/lib") (displayln " -exe compile an executable") @@ -14,7 +15,7 @@ (displayln " -static link the executable's external library dependencies statically") (displayln " -s keep intermediate .scm files") (displayln " -S don't invoke gsc") - (displayln " -v be verbose during compilation") + (displayln " -V be verbose during compilation") (displayln " -g compile with debug symbols; c code is compiled with -g") (displayln " -no-ssxi don't generate .ssxi modules for cross-module optimization") (displayln " -include-gambit-sharp include _gambit# with necessary cond expand features") @@ -61,6 +62,10 @@ (match rest ([arg . rest] (case arg + (("-v" "--version") + (displayln (gerbil-system-version-string)) + (force-output) + (exit 0)) (("-h" "--help") (gxc-print-usage!) (exit 0)) @@ -88,7 +93,7 @@ (set! keep-scm #t) (set! debug #t) (lp rest)) - (("-v") + (("-V") (set! verbose #t) (lp rest)) (("-O") diff --git a/src/gerbil/prelude/builtin.ssxi.ss b/src/gerbil/prelude/builtin.ssxi.ss index 34019aaa4..8f7d6479c 100644 --- a/src/gerbil/prelude/builtin.ssxi.ss +++ b/src/gerbil/prelude/builtin.ssxi.ss @@ -420,7 +420,7 @@ package: gerbil method-ref direct-method-ref bound-method-ref checked-method-ref checked-bound-method-ref find-method - struct-subtype? class-subtype? + substruct? subclass? with-unwind-protect with-catch file-newer?) diff --git a/src/gerbil/prelude/core.ss b/src/gerbil/prelude/core.ss index 39e12d2fc..f3f1967e7 100644 --- a/src/gerbil/prelude/core.ss +++ b/src/gerbil/prelude/core.ss @@ -214,7 +214,6 @@ package: gerbil checked-method-ref checked-bound-method-ref find-method next-method call-next-method - struct-subtype? class-subtype? substruct? subclass? ;; write-env style write-style @@ -1719,14 +1718,14 @@ package: gerbil make-getf make-setf make-ugetf make-usetf) (if struct? - #'(make-struct-type* + #'(make-struct-type make-struct-instance make-struct-predicate make-struct-slot-accessor make-struct-slot-mutator make-struct-slot-unchecked-accessor make-struct-slot-unchecked-mutator) - #'(make-class-type* + #'(make-class-type make-class-instance make-class-predicate make-class-slot-accessor @@ -1735,7 +1734,7 @@ package: gerbil make-class-slot-unchecked-mutator))) (type-id (or (stx-getq id: #'rest) - (make-class-type-id type-id))) + (make-class-type-id #'type-t))) (type-name (or (stx-getq name: #'rest) #'type-t)) diff --git a/src/gerbil/runtime/mop.ss b/src/gerbil/runtime/mop.ss index af9d45bc6..5e4461de0 100644 --- a/src/gerbil/runtime/mop.ss +++ b/src/gerbil/runtime/mop.ss @@ -75,19 +75,11 @@ namespace: #f [key :: val]))) properties)) -;; TODO become make-type-descriptor* -(def (make-type-descriptor type-id type-name type-super - rtd-mixin rtd-fields rtd-plist - rtd-ctor rtd-slots rtd-methods) - (make-type-descriptor* type-id type-name type-super - rtd-mixin rtd-fields rtd-plist - rtd-ctor rtd-slots rtd-methods)) - ;; Bootstrap issue: all-slots is now a vector, not a list ;; Compute the flags and field-info and create a type-descriptor -(def (make-type-descriptor* type-id type-name type-super - precedence-list all-slots properties - constructor slot-table methods) +(def (make-type-descriptor type-id type-name type-super + precedence-list all-slots properties + constructor slot-table methods) ;; compute a table of slots with print: or equal: or transparent: flag ;; ht: table to which to add according slots ;; key: either print: or equal: (both implied by transparent:) @@ -140,52 +132,39 @@ namespace: #f ;;; type descriptor utilities (def (type-descriptor-precedence-list klass) - (##vector-ref klass 6)) + (##structure-ref klass 6 ##type-type type-descriptor-precedence-list)) (def (type-descriptor-all-slots klass) - (##vector-ref klass 7)) + (##structure-ref klass 7 ##type-type type-descriptor-all-slots)) (def (type-descriptor-slot-table klass) - (##vector-ref klass 8)) + (##structure-ref klass 8 ##type-type type-descriptor-slot-table)) (def (type-descriptor-properties klass) - (##vector-ref klass 9)) + (##structure-ref klass 9 ##type-type type-descriptor-properties)) (def (type-descriptor-constructor klass) - (##vector-ref klass 10)) + (##structure-ref klass 10 ##type-type type-descriptor-constructor)) (def (type-descriptor-methods klass) - (##vector-ref klass 11)) + (##structure-ref klass 11 ##type-type type-descriptor-methods)) (def (type-descriptor-methods-set! klass ht) - (##vector-set! klass 11 ht)) + (##structure-set! klass ht 11 ##type-type type-descriptor-methods-set!)) -;; TODO: remove after cleanup of clients + new bootstrap -(def type-descriptor-mixin type-descriptor-precedence-list) -(def type-descriptor-plist type-descriptor-properties) -(def type-descriptor-ctor type-descriptor-constructor) (def (type-descriptor-fields klass) (##fx- (##vector-length (type-descriptor-all-slots klass)) 1)) (def (type-descriptor-sealed? klass) (##fxbit-set? 20 (##type-flags klass))) (def (type-descriptor-seal! klass) - (##vector-set! klass 3 (##fxior (##fxarithmetic-shift 1 20) (##type-flags klass)))) + (##structure-set! klass (##fxior (##fxarithmetic-shift 1 20) (##type-flags klass)) + 3 ##type-type type-descriptor-seal!)) ;;; struct types -;; TODO become make-struct-type* -(def (make-struct-type id super n-direct-slots name properties constructor (direct-slots #f)) - (make-struct-type* id name super - (or direct-slots - (map (cut make-symbol "_" <>) - (iota n-direct-slots - (if super (##vector-length (type-descriptor-all-slots super)) - 1)))) - properties constructor)) - ;; : Symbol Symbol StructTypeDescriptor (List Symbol) Alist Constructor -> StructTypeDescriptor -(def (make-struct-type* id name super direct-slots properties constructor) +(def (make-struct-type id name super direct-slots properties constructor) (when (and super (not (struct-type? super))) (error "illegal super type; not a struct-type" super)) ;; Consistency check for slots: they must all be new - (let* ((type (make-class-type* id name (if super [super] []) direct-slots - (if (assgetq struct: properties) - properties - [[struct: . #t] . properties]) - constructor)) + (let* ((type (make-class-type id name (if super [super] []) direct-slots + (if (assgetq struct: properties) + properties + [[struct: . #t] . properties]) + constructor)) (all-slots (type-descriptor-all-slots type)) (len (length direct-slots)) (start (##fx- (##vector-length all-slots) len))) @@ -204,7 +183,7 @@ namespace: #f (def (make-struct-slot-accessor klass slot) (cond - ((class-slot-offset* klass slot) + ((class-slot-offset klass slot) => (lambda (off) (if (type-final? klass) (lambda (obj) @@ -216,7 +195,7 @@ namespace: #f (def (make-struct-slot-mutator klass slot) (cond - ((class-slot-offset* klass slot) + ((class-slot-offset klass slot) => (lambda (off) (if (type-final? klass) (lambda (obj val) @@ -228,7 +207,7 @@ namespace: #f (def (make-struct-slot-unchecked-accessor klass slot) (cond - ((class-slot-offset* klass slot) + ((class-slot-offset klass slot) => (lambda (off) (lambda (obj) (##unchecked-structure-ref obj off klass #f)))) @@ -237,48 +216,30 @@ namespace: #f (def (make-struct-slot-unchecked-mutator klass slot) (cond - ((class-slot-offset* klass slot) + ((class-slot-offset klass slot) => (lambda (off) (lambda (obj val) (##unchecked-structure-set! obj val off klass #f)))) (else (error "unknown slot" class: klass slot: slot)))) -;; TODO become make-struct-field-accessor* -(def (make-struct-field-accessor klass field) - (make-struct-field-accessor* klass (struct-field-offset* klass field))) - -(def (make-struct-field-accessor* klass field) - (lambda (obj) (##structure-ref obj field klass #f))) - -;; TODO become make-struct-field-mutator* -(def (make-struct-field-mutator klass field) - (make-struct-field-mutator* klass (struct-field-offset* klass field))) - -(def (make-struct-field-mutator* klass field) - (lambda (obj val) (##structure-set! obj val field klass #f))) +(def ((make-final-field-accessor klass slot field) obj) + (##direct-structure-ref obj field klass slot)) -;; TODO become make-struct-field-unchecked-accessor* -(def (make-struct-field-unchecked-accessor klass field) - (make-struct-field-unchecked-accessor* klass (struct-field-offset* klass field))) +(def ((make-struct-field-accessor klass slot field) obj) + (##structure-ref obj field klass slot)) -(def (make-struct-field-unchecked-accessor* klass field) - (lambda (obj) (##unchecked-structure-ref obj field klass #f))) +(def ((make-final-field-mutator klass slot field) obj val) + (##direct-structure-set! obj val field klass slot)) -;; TODO become make-struct-field-unchecked-mutator* -(def (make-struct-field-unchecked-mutator klass field) - (make-struct-field-unchecked-mutator* klass (struct-field-offset* klass field))) +(def ((make-struct-field-mutator klass slot field) obj val) + (##structure-set! obj val field klass slot)) -(def (make-struct-field-unchecked-mutator* klass field) - (lambda (obj val) (##unchecked-structure-set! obj val field klass #f))) +(def ((make-struct-field-unchecked-accessor klass slot field) obj) + (##unchecked-structure-ref obj field klass slot)) -;; TODO to be removed; it is only here for the mop transition -(def (struct-field-offset* klass field) - (##fx+ field - (let (super (##type-super klass)) - (if super - (##vector-length (type-descriptor-all-slots super)) - 1)))) +(def ((make-struct-field-unchecked-mutator klass slot field) obj val) + (##unchecked-structure-set! obj val field klass slot)) ;; Is maybe-sub-struct a subclass of maybe-super-struct? ; : TypeDescriptor TypeDescriptor -> Bool @@ -293,9 +254,6 @@ namespace: #f (else (lp (##type-super super-struct))))))) -(def (struct-subtype? maybe-super-struct maybe-sub-struct) - (substruct? maybe-sub-struct maybe-super-struct)) ;; TODO: remove after bootstrap - ;; Which is the most specific struct class if any that klass is or inherits from? ;; : TypeDescriptor -> (OrFalse StructTypeDescriptor) (def (base-struct/1 klass) @@ -387,13 +345,8 @@ namespace: #f (values all-slots slot-table)))) ;;; ClassTypeDescriptor -;; : Symbol (List TypeDescriptor) (List Symbol) Symbol Alist Constructor -> ClassTypeDescriptor -;; TODO become make-class-type* -(def (make-class-type id direct-supers direct-slots name properties constructor) - (make-class-type* id name direct-supers direct-slots properties constructor)) - ;; : Symbol Symbol (List TypeDescriptor) (List Symbol) Alist Constructor -> ClassTypeDescriptor -(def (make-class-type* id name direct-supers direct-slots properties constructor) +(def (make-class-type id name direct-supers direct-slots properties constructor) (cond ((find (lambda (klass) (not (type-descriptor? klass))) direct-supers) => (cut error "Illegal super class; not a type descriptor" <>)) @@ -410,9 +363,9 @@ namespace: #f properties ...]) (constructor* (or constructor (find-super-constructor direct-supers)))) - (make-type-descriptor* id name struct-super - precedence-list all-slots properties - constructor* slot-table #f))) + (make-type-descriptor id name struct-super + precedence-list all-slots properties + constructor* slot-table #f))) (def (class-precedence-list klass) (cons klass (type-descriptor-precedence-list klass))) @@ -438,12 +391,14 @@ namespace: #f ;; (same as above but you have a more expensive argument class check to be safe) ;; 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-struct if-struct-field if-class-slot) +(def (if-class-slot-field klass slot if-final if-struct if-struct-field if-class-slot) (let (field (hash-get (type-descriptor-slot-table klass) slot)) (cond ((not field) (error "unknown slot" class: klass slot: slot)) - ((or (type-final? klass) (type-struct? klass)) + ((type-final? klass) + (if-final klass slot field)) + ((type-struct? klass) (if-struct klass slot field)) ((let (strukt (base-struct/1 klass)) (and strukt (##fx< field (##vector-length (type-descriptor-all-slots strukt))))) @@ -453,104 +408,97 @@ namespace: #f (def (make-class-slot-accessor klass slot) (if-class-slot-field klass slot - (ignore-slot make-struct-field-accessor*) - make-struct-subclass-field-accessor - make-class-cached-slot-accessor)) - -(def (make-struct-subclass-field-accessor klass slot field) - (lambda (obj) - (if (class-instance? klass obj) - (unchecked-field-ref obj field) - (error "not an instance" object: obj class: klass slot: slot)))) - -(def (make-class-cached-slot-accessor klass slot field) - (lambda (obj) - (cond - ((direct-instance? klass obj) - (unchecked-field-ref obj field)) - ((class-instance? klass obj) - (unchecked-slot-ref obj slot)) - (else - (error "not an instance" object: obj class: klass slot: slot))))) + make-final-field-accessor + make-struct-field-accessor + make-struct-subclass-field-accessor + make-class-cached-slot-accessor)) + +(def (not-an-instance object class (slot #f)) + (apply error "not an instance" object: object class: class + (if slot [slot: slot] []))) + +(def ((make-struct-subclass-field-accessor klass slot field) obj) + (if (class-instance? klass obj) + (unchecked-field-ref obj field) + (not-an-instance obj klass slot))) + +(def ((make-class-cached-slot-accessor klass slot field) obj) + (cond + ((direct-instance? klass obj) + (unchecked-field-ref obj field)) + ((class-instance? klass obj) + (unchecked-slot-ref obj slot)) + (else + (not-an-instance obj klass slot)))) (def (make-class-slot-mutator klass slot) (if-class-slot-field klass slot - (ignore-slot make-struct-field-mutator*) + make-final-field-mutator + make-struct-field-mutator make-struct-subclass-field-mutator make-class-cached-slot-mutator)) -(def (make-struct-subclass-field-mutator klass slot field) - (lambda (obj val) - (if (class-instance? klass obj) - (unchecked-field-set! obj field val) - (error "not an instance" object: obj class: klass slot: slot)))) +(def ((make-struct-subclass-field-mutator klass slot field) obj val) + (if (class-instance? klass obj) + (unchecked-field-set! obj field val) + (not-an-instance obj klass slot))) -(def (make-class-cached-slot-mutator klass slot field) - (lambda (obj val) - (cond - ((direct-instance? klass obj) - (unchecked-field-set! obj field val)) - ((class-instance? klass obj) - (unchecked-slot-set! obj slot val)) - (else - (error "not an instance" object: obj class: klass slot: slot))))) +(def ((make-class-cached-slot-mutator klass slot field) obj val) + (cond + ((direct-instance? klass obj) + (unchecked-field-set! obj field val)) + ((class-instance? klass obj) + (unchecked-slot-set! obj slot val)) + (else + (not-an-instance obj klass slot)))) (def (make-class-slot-unchecked-accessor klass slot) (if-class-slot-field klass slot - (ignore-slot make-struct-field-unchecked-accessor*) - (ignore-slot make-struct-field-unchecked-accessor*) - make-class-cached-slot-unchecked-accessor)) + make-struct-field-unchecked-accessor + make-struct-field-unchecked-accessor + make-struct-field-unchecked-accessor + make-class-cached-slot-unchecked-accessor)) -(def (make-class-cached-slot-unchecked-accessor klass slot field) - (lambda (obj) - (if (direct-instance? klass obj) - (unchecked-field-ref obj field) - (unchecked-slot-ref obj slot)))) +(def ((make-class-cached-slot-unchecked-accessor klass slot field) obj) + (if (direct-instance? klass obj) + (unchecked-field-ref obj field) + (unchecked-slot-ref obj slot))) (def (make-class-slot-unchecked-mutator klass slot) (if-class-slot-field klass slot - (ignore-slot make-struct-field-unchecked-mutator*) - (ignore-slot make-struct-field-unchecked-mutator*) + make-struct-field-unchecked-mutator + make-struct-field-unchecked-mutator + make-struct-field-unchecked-mutator make-class-cached-slot-unchecked-mutator)) -(def (make-class-cached-slot-unchecked-mutator klass slot field) - (lambda (obj val) - (if (direct-instance? klass obj) - (unchecked-field-set! obj field val) - (unchecked-slot-set! obj slot val)))) - -(def (ignore-slot proc) - (lambda (klass slot field) - (proc klass field))) +(def ((make-class-cached-slot-unchecked-mutator klass slot field) obj val) + (if (direct-instance? klass obj) + (unchecked-field-set! obj field val) + (unchecked-slot-set! obj slot val))) -;; TODO become class-slot-offset* (def (class-slot-offset klass slot) - (let (off (class-slot-offset* klass slot)) - (and off (##fx- off 1)))) - -(def (class-slot-offset* klass slot) (hash-get (type-descriptor-slot-table klass) slot)) (def (class-slot-ref klass obj slot) (if (class-instance? klass obj) - (let (off (class-slot-offset* (object-type obj) slot)) + (let (off (class-slot-offset (object-type obj) slot)) (##unchecked-structure-ref obj off klass #f)) - (error "not an instance" class: klass object: obj))) + (not-an-instance obj klass))) (def (class-slot-set! klass obj slot val) (if (class-instance? klass obj) - (let (off (class-slot-offset* (object-type obj) slot)) + (let (off (class-slot-offset (object-type obj) slot)) (##unchecked-structure-set! obj val off klass #f)) - (error "not an instance" class: klass object: obj))) + (not-an-instance obj klass))) (def (unchecked-field-ref obj off) (##unchecked-structure-ref obj off (##structure-type obj) #f)) (def (unchecked-field-set! obj off val) (##unchecked-structure-set! obj val off (##structure-type obj) #f)) (def (unchecked-slot-ref obj slot) - (unchecked-field-ref obj (class-slot-offset* (##structure-type obj) slot))) + (unchecked-field-ref obj (class-slot-offset (##structure-type obj) slot))) (def (unchecked-slot-set! obj slot val) - (unchecked-field-set! obj (class-slot-offset* (##structure-type obj) slot) val)) + (unchecked-field-set! obj (class-slot-offset (##structure-type obj) slot) val)) (defrules __slot-e () ((_ obj slot K E) @@ -558,7 +506,7 @@ namespace: #f (let (klass (object-type obj)) (cond ((and (type-descriptor? klass) - (class-slot-offset* klass slot)) + (class-slot-offset klass slot)) => K) (else (E obj slot)))) (E obj slot)))) @@ -580,11 +528,6 @@ namespace: #f (ormap (lambda (super-class) (eq? (##type-id super-class) maybe-super-class-id)) (type-descriptor-precedence-list maybe-sub-class))))) -;; Is maybe-sub-class a subclass of maybe-super-class? -;; NB: Reverse order of argument. TODO: remove after bootstrap -(def (class-subtype? maybe-super-class maybe-sub-class) - (subclass? maybe-sub-class maybe-super-class)) - ;;; generic object utilities (def object? ##structure?) @@ -603,18 +546,16 @@ namespace: #f (and (type-descriptor? type) (subclass? type klass))))) -;; TODO become make-object* +;; TODO: We want (def make-object ##make-structure), except that we initialize to #f, it doesn't. +;; or cond-expand to use ##make-structure then initialize to #f on the JS target. (def (make-object klass k) - (make-object* klass (##fx+ k 1))) - -(def (make-object* klass k) (let (obj (##make-vector k #f)) (##vector-set! obj 0 klass) (##subtype-set! obj (macro-subtype-structure)) obj)) (def (make-instance klass) - (make-object* klass (##vector-length (type-descriptor-all-slots klass)))) + (make-object klass (##vector-length (type-descriptor-all-slots klass)))) (def (make-struct-instance klass . args) (let* ((all-slots (type-descriptor-all-slots klass)) @@ -622,7 +563,7 @@ namespace: #f (cond ((type-descriptor-constructor klass) => (lambda (kons-id) - (__constructor-init! klass kons-id (make-object* klass size) args))) + (__constructor-init! klass kons-id (make-object klass size) args))) ((##fx= (##fx- size 1) (length args)) (apply ##structure klass args)) (else @@ -630,7 +571,7 @@ namespace: #f class: klass slots: (##fx- size 1) args: args))))) (def (make-class-instance klass . args) - (let ((obj (make-object* klass (##vector-length (type-descriptor-all-slots klass))))) + (let (obj (make-instance klass)) (cond ((type-descriptor-constructor klass) => (lambda (kons-id) @@ -659,7 +600,7 @@ namespace: #f (match rest ([key val . rest] (cond - ((class-slot-offset* klass key) + ((class-slot-offset klass key) => (lambda (off) (unchecked-field-set! obj off val) (lp rest))) @@ -753,8 +694,6 @@ namespace: #f (else (mixin-method-ref klass id)))) -(def struct-find-method find-method) ;; TODO: remove after bootstrap - (def (class-find-method klass id) (and (type-descriptor? klass) (__find-method klass id))) diff --git a/src/gerbil/test/c3-test.ss b/src/gerbil/test/c3-test.ss index 1f6093118..a326665f6 100644 --- a/src/gerbil/test/c3-test.ss +++ b/src/gerbil/test/c3-test.ss @@ -37,7 +37,6 @@ (def (class-linearize-mixins klass-lst (get-supers my-get-supers)) (def (class->list klass) - ;;(cons klass (or (type-descriptor-mixin klass) '()))) ;;<-- in the original code (old-linearize-supers klass get-supers)) (match klass-lst diff --git a/src/std/actor-v13/xdr.ss b/src/std/actor-v13/xdr.ss index 13d61de7d..1ecd9e745 100644 --- a/src/std/actor-v13/xdr.ss +++ b/src/std/actor-v13/xdr.ss @@ -517,7 +517,7 @@ (def (xdr-read-struct klass buf) (let (fields (xdr-read-uint buf)) (if (##fx= fields (type-descriptor-fields klass)) - (let (obj (make-object klass fields)) + (let (obj (make-object klass (fx1+ fields))) (let lp ((i 0)) (if (##fx< i fields) (let (i+1 (##fx+ i 1)) diff --git a/src/std/actor-v18/io.ss b/src/std/actor-v18/io.ss index d1ed54434..5a4803301 100644 --- a/src/std/actor-v18/io.ss +++ b/src/std/actor-v18/io.ss @@ -98,7 +98,7 @@ (unless (fx= fields (type-descriptor-fields klass)) (raise-io-error unmarshal-message "bad message; field count mismatch" klass-id fields klass (type-descriptor-fields klass))) - (let (obj (make-object klass fields)) + (let (obj (make-object klass (fx1+ fields))) (let lp ((i 0)) (if (fx< i fields) (let ((i+1 (fx+ i 1)) diff --git a/src/std/interface.ss b/src/std/interface.ss index 62edb5908..79cdf0c3a 100644 --- a/src/std/interface.ss +++ b/src/std/interface.ss @@ -20,7 +20,11 @@ (CastError message irritants: [irritants ...])) ;; base type for all interface instances -(defstruct interface-instance (object)) +(defstruct-type interface-instance::t + #f #f interface-instance? + name: interface-instance + slots: + ((__object interface-instance-object interface-instance-object-set!))) ;; interface meta descriptor (defstruct interface-descriptor (type methods) final: #t) @@ -63,7 +67,7 @@ (else (fail! klass method-name)))) (else - (let (prototype (make-object klass (fx+ count 1))) + (let (prototype (make-object klass (fx+ count 2))) (let lp ((rest methods) (off (fx+ count 1))) (match rest ([method . rest] @@ -658,17 +662,15 @@ #'(unchecked-method-impl-name ...) #'(method-signature ...) (iota (length #'(method-name ...)) 2))) - (field-count - (length #'(method-name ...))) (defklass #'(def klass (make-struct-type 'klass-type-id ; type id + 'name ; name interface-instance::t ; super - field-count ; fields - 'name ; type name + '(method-name ...) ; direct slots '((final: . #t)) ; plist #f ; constructor (none) - '(method-name ...)))) ; field names + ))) (defdescriptor #'(def descriptor (begin-annotation (@interface klass-quoted (method-name ...)) diff --git a/src/std/protobuf/macros.ss b/src/std/protobuf/macros.ss index f83a0485c..17dae69c6 100644 --- a/src/std/protobuf/macros.ss +++ b/src/std/protobuf/macros.ss @@ -305,7 +305,7 @@ (make-read-fini id fields))) #'(begin (defreader-ext* (bio-read buf) - (let (obj (make-object id::t field-count)) + (let (obj (make-object id::t (fx1+ field-count))) (&bio-read! buf obj) obj)) (defreader-ext* (bio-read! buf obj) diff --git a/src/std/text/json/util.ss b/src/std/text/json/util.ss index b6546782f..1a7e773a2 100644 --- a/src/std/text/json/util.ss +++ b/src/std/text/json/util.ss @@ -108,7 +108,7 @@ (else #f))) (or (hash-get offsets slot) (error "invalid json key for struct" key strukt json))) - (def object (make-object* strukt n)) + (def object (make-object strukt n)) (def bound? (make-vector n #f)) (vector-set! bound? 0 #t) (for (((values k v) (in-hash json)))